9687850865
* (all files)
* stripped svn header
* minor cleanups
; use following command to find out the history of files:
git log
git log --follow
git blame
git annotate
62 lines
2.0 KiB
Plaintext
62 lines
2.0 KiB
Plaintext
/*
|
|
* Author....: Brian Loesgen
|
|
* CIS ID....: 74326,1174
|
|
*
|
|
* This is an original work by Brian Loesgen and is placed in the
|
|
* public domain.
|
|
*
|
|
* Modification history:
|
|
* ---------------------
|
|
*
|
|
* Rev 1.2 15 Aug 1991 23:05:52 GLENN
|
|
* Forest Belt proofread/edited/cleaned up doc
|
|
*
|
|
* Rev 1.1 14 Jun 1991 19:52:08 GLENN
|
|
* Minor edit to file header
|
|
*
|
|
* Rev 1.0 13 Jun 1991 15:21:26 GLENN
|
|
* Initial revision.
|
|
*
|
|
*/
|
|
|
|
// A function is detected by the left parenthesis, "(", and it begins
|
|
// at the space, comma or start-of-string preceeding the "("
|
|
|
|
// Returns: .T. if all functions are available,
|
|
// .F. if not
|
|
|
|
FUNCTION ft_Linked( cFuncs )
|
|
|
|
LOCAL aFuncArray := {}, nSpace, nComma, nFEnd, lRetVal := .F.
|
|
|
|
IF At( "(", cFuncs ) == 0
|
|
// No functions in string
|
|
Alert( "Warning: Expected function(s) in ft_Linked(), but none were found" )
|
|
ELSE
|
|
DO WHILE ( nFEnd := At( "(", cFuncs ) ) > 0
|
|
// Add the current function to the array of functions
|
|
AAdd( aFuncArray, Left( cFuncs, nFEnd ) + ")" )
|
|
// Remove the current function from the string
|
|
cFuncs := SubStr( cFuncs, nFEnd + 1 )
|
|
nSpace := At( " ", cFuncs )
|
|
nComma := At( ",", cFuncs )
|
|
DO WHILE ( nComma > 0 .AND. nComma < nFEnd ) .OR. ;
|
|
( nSpace > 0 .AND. nSpace < nFEnd )
|
|
// We have extra parameters or spaces prior to the start
|
|
// of the function. Strip them out.
|
|
IF nComma > 0
|
|
cFuncs := SubStr( cFuncs, nComma + 1 )
|
|
ELSEIF nSpace > 0
|
|
cFuncs := SubStr( cFuncs, nSpace + 1 )
|
|
ENDIF
|
|
nSpace := At( " ", cFuncs )
|
|
nComma := At( ",", cFuncs )
|
|
ENDDO
|
|
ENDDO
|
|
// Scan through the array of functions, stop after the first occurence
|
|
// of a function which returns a Type() of "U" (hence is not linked in)
|
|
lRetVal := AScan( aFuncArray, {| element | Type( element ) == "U" } ) == 0
|
|
ENDIF
|
|
|
|
RETURN lRetVal
|