Tag Archives: FT_LINKED()

FT Environment

Posted on by vivaclipper 
 FT_COM3OR4()     Enable use of COM3 and/or COM4 on IBM/PC compatables.
 FT_DIR2DB()      Create .DBF of directory files, using DOS filespec
 FT_EXIST()       Test for drive and/or subdir on SINGLE-USER systems only.
 FT_GETE()        Return the entire current environment
 FT_LINKED()      Determine if a function was linked in
 FT_ORIGIN()      Report the drive, path and filename of the current program
 FT_RESTSETS()    Restore status of all SET command settings
 FT_SAVESETS()    Save the status of all the SET command settings
 FT_SETCENTURY()  Check/Set the CENTURY Setting
 FT_TREE()        Locate all directories and subdirectories on a drive
 FT_WHEREIS()     Locate all occurrences of a filespec on a drive

 

FT_LINKED

Posted on by vivaclipper 
FT_LINKED()
 Determine if a function was linked in

 Syntax

      FT_LINKED( <cString> ) -> lResult

 Arguments

     <cString> is a character string containing one or more function
               calls

 Returns

     .T. if all functions within the string are currently linked into
     the application, .F. if one or more aren't.  See below for a
     definition of "function."

 Description

     This function would be used in data driven application to determine
     whether or not a macro compiled function was linked in.

     Several functions can be passed, and nested, in <cString>.

     Caveat: Some function calls are converted by the preprocessor
     into other function calls. You cannot have these types of
     functions in a macro compiled string as they never exist at
     runtime. FT_LINKED will correctly tell you that they are invalid.

     For instance: there is no function called SORT() in any of the
     Nantucket LIBraries, but it is a valid CLIPPER command because the
     preprocessor will convert it to other function calls.

 Examples

     cString := "FT_GoodFunc(BadFunc(3,2))"
     IF FT_LINKED(cString)
        EVAL( &("{||"+cString+"}") )
     ELSE
        ALERT("Error: "+cString+" was not linked in. Called by FT_LINKED()")
     ENDIF

 Source: LINKED.PRG

 Author: Brian Loesgen