xBase and Clipper language compatible compiler
PrevNext

ENVIRONMENT

Name

ENVIRONMENT -- 

Function

nCurrentReturnCode  ERRORLEVEL([<nNewReturnCode>])
lResult             FT_LINKED( <cString> )
NIL                 FT_RESTSETS( [ <aOldSets> ] )
aOldSets            FT_SAVESETS()
<lOldState>         FT_SETCENTURY( [ <lNewSetState> ] )
cString             GETENV(<cEnvironmentVariable>)
nKbytes             MEMORY(<nExp>)
lError              NETERR([<lNewError>])
cWorkstationName    NETNAME()
cOsName             OS()
CurrentSetting      SET(<nSpecifier>, [<expNewSetting>], [<lOpenMode>])

Description

Function FT_LINKED() 

 FT_LINKED( <cString> ) --> lResult

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.

<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."

Example :

  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

Function FT_RESTSETS() 

 FT_RESTSETS( [ <aOldSets> ] ) --> NIL

This function "restores" the SET Settings, i.e., it sets them to the values in the array aOldSets. The following SETs are not currently supported: FILTER, FORMAT, FUNCTION, INDEX, KEYS, MODE, ORDER, PROCEDURE, RELATION, TYPEAHEAD

Returns :

NIL

See also : FT_SAVESETS() FT_SETCENTURY()

Example :

 FT_RESTSETS(aOldSets)

Function FT_SAVESETS() 

 FT_SAVESETS() --> aOldSets

This function saves the SET Settings, i.e., it copies them into an array, aOldSets. The following SETs are not currently supported: FILTER, FORMAT, FUNCTION, INDEX, KEYS, MODE, ORDER, PROCEDURE, RELATION, TYPEAHEAD

Returns :

An array containing the values of the supported SETs.

See also : FT_RESTSETS() FT_SETCENTURY()

Example :

 aOldSets := FT_SAVESETS()

Function FT_SETCENTURY() 

 FT_SETCENTURY( [ <lNewSetState> ] ) --> <lOldState>

This function returns the state (ON/OFF, TRUE/FALSE) of the CENTURY and optionally sets it ON or OFF.

Returns :

The state of the CENTURY setting upon entry to the routine

Example :

 lOldState := FT_SETCENTURY()     // Get current CENTURY Setting
 
 lOldState := FT_SETCENTURY(.T.)  // Get the current CENTURY Setting
 // and turn it on (set it to TRUE)
 
 lOldState := FT_SETCENTURY(.F.)  // Get the current CENTURY Setting
 // and turn it off (set it to FALSE)

PrevHomeNext
LOGICALUpCODB-QUERY