2001-08-06 10:33 UTC+0300 Chen Kedem <niki@actcom.co.il>
This commit is contained in:
@@ -1,3 +1,14 @@
|
||||
2001-08-06 10:33 UTC+0300 Chen Kedem <niki@actcom.co.il>
|
||||
* doc/funclist.txt
|
||||
! Fix excessive use of global replace forcing 'n' or 'N' into 'S'
|
||||
|
||||
* doc/en/macro.txt
|
||||
- Remove "<file[.prg]>" from line #19 (Copy & Paste mistake)
|
||||
* Small formating
|
||||
|
||||
* doc/en/var.txt
|
||||
+ doc for __ISMV()
|
||||
|
||||
2001-08-05 18:00 GMT -3 Luiz RafaelCulik<culik@sl.conex.net>
|
||||
* doc/en/compiler.txt
|
||||
* Updated provided by Fergus McDonald
|
||||
|
||||
@@ -14,11 +14,11 @@
|
||||
* <b>Invoking the macro compiler: </b> </par>
|
||||
* ============================== </par>
|
||||
*
|
||||
* &variable </par>
|
||||
* or </par>
|
||||
* &( expression ) <file[.prg]> </par>
|
||||
* or </par>
|
||||
* &variable.text </par>
|
||||
* &variable </par>
|
||||
* or </par>
|
||||
* &( expression ) </par>
|
||||
* or </par>
|
||||
* &variable.text </par>
|
||||
*
|
||||
* $END$
|
||||
*/
|
||||
@@ -31,20 +31,21 @@
|
||||
* $ONELINER$
|
||||
* Enable/disable the macro compiler runtime features.
|
||||
* $SYNTAX$
|
||||
* HB_SETMACRO(<nOption> [, <lOnOff>]) --> <lOldSetting>
|
||||
* HB_SETMACRO( <nOption>, [<lOnOff>] ) --> <lOldSetting>
|
||||
* $ARGUMENTS$
|
||||
* <nOption> A constant defined in set.ch.
|
||||
<lOnOff> .T. to enable or .F. to disable a feature
|
||||
* <nOption> One of the HB_SM_* constants defined in set.ch.
|
||||
*
|
||||
* <lOnOff> .T. to enable or .F. to disable a feature
|
||||
* $RETURNS$
|
||||
* <lOldSetting> The old state of requested feature.
|
||||
* HB_SETMACRO() return the old state of requested feature.
|
||||
* $DESCRIPTION$
|
||||
* This function enables or disables some features of the macro
|
||||
* This function enables or disables some features of the macro
|
||||
* compiler. The Harbour is extending the macro features compared
|
||||
* to an original set available in Clipper. Enabling/disabling
|
||||
* some of them allows to keep strict Clipper compatibility.
|
||||
*
|
||||
* Available features are:
|
||||
* <b>HB_SM_HARBOUR</b> - enables harbour extensions:
|
||||
* <b>HB_SM_HARBOUR</b> - enables harbour extensions:
|
||||
* operators: ++, --, +=, -=, *=, /=, ^=
|
||||
* objects: assigments to an instance variable
|
||||
* <b>HB_SM_XBASE</b> - enables other xbase dialects extensions:
|
||||
@@ -69,9 +70,10 @@
|
||||
* $PLATFORMS$
|
||||
* All
|
||||
* $FILES$
|
||||
* Header file is set.ch
|
||||
* Library is macro
|
||||
* $SEEALSO$
|
||||
*
|
||||
*
|
||||
* $END$
|
||||
*/
|
||||
|
||||
|
||||
@@ -15,6 +15,9 @@
|
||||
* Copyright 1999 Chen Kedem <niki@actcom.co.il>
|
||||
* Documentation for: FIELDBLOCK(), FIELDWBLOCK()
|
||||
*
|
||||
* Copyright 2001 Chen Kedem <niki@actcom.co.il>
|
||||
* Documentation for: __ISMV()
|
||||
*
|
||||
* See doc/license.txt for licensing terms.
|
||||
*
|
||||
*/
|
||||
@@ -31,17 +34,17 @@
|
||||
* $ARGUMENTS$
|
||||
* <variable_name> = either a string that contains the variable's name or
|
||||
* an one-dimensional array of strings with variable names
|
||||
* No skeleton are allowed here.
|
||||
* No skeleton are allowed here.
|
||||
* $RETURNS$
|
||||
* Nothing
|
||||
* Nothing
|
||||
* $DESCRIPTION$
|
||||
* This function can be called either by the harbour compiler or by user.
|
||||
* The compiler always passes the item of IT_SYMBOL type that stores the
|
||||
* name of variable.
|
||||
* name of variable.
|
||||
* If a variable with the same name exists already then the new
|
||||
* variable is not created - the previous value remains unchanged.
|
||||
* variable is not created - the previous value remains unchanged.
|
||||
* If it is first variable with this name then the variable is
|
||||
* initialized with .T. value.
|
||||
* initialized with .T. value.
|
||||
* $EXAMPLES$
|
||||
* None Avaliable
|
||||
* </fixed>
|
||||
@@ -68,23 +71,23 @@
|
||||
* $ARGUMENTS$
|
||||
* <variable_name> = either a string that contains the variable's name or
|
||||
* an one-dimensional array of strings with variable names
|
||||
* No skeleton are allowed here.
|
||||
* No skeleton are allowed here.
|
||||
* $RETURNS$
|
||||
* Nothing
|
||||
* Nothing
|
||||
* $DESCRIPTION$
|
||||
* This function can be called either by the harbour compiler or by user.
|
||||
* The compiler always passes the item of IT_SYMBOL type that stores the
|
||||
* name of variable.
|
||||
* name of variable.
|
||||
* If a variable with the same name exists already then the value of old
|
||||
* variable is hidden until the new variable is released. The new variable
|
||||
* is always initialized to NIL value.
|
||||
* is always initialized to NIL value.
|
||||
* $EXAMPLES$
|
||||
* None Avaliable
|
||||
* </fixed>
|
||||
* $STATUS$
|
||||
* R
|
||||
* $COMPLIANCE$
|
||||
* This function is a Harbour extension
|
||||
* This function is a Harbour extension
|
||||
* $FILES$
|
||||
* Library is vm
|
||||
* $END$
|
||||
@@ -102,21 +105,21 @@
|
||||
* $ARGUMENTS$
|
||||
* <variable_name> = either a string that contains the variable's name or
|
||||
* an one-dimensional array of strings with variable names
|
||||
* No skeleton are allowed here.
|
||||
* No skeleton are allowed here.
|
||||
* $RETURNS$
|
||||
* Nothing
|
||||
* Nothing
|
||||
* $DESCRIPTION$
|
||||
* This function releases values stored in memory variable. It shouldn't
|
||||
* be called directly, rather it should be placed into RELEASE command.
|
||||
* be called directly, rather it should be placed into RELEASE command.
|
||||
* If the released variable is a PRIVATE variable then previously hidden
|
||||
* variable with the same name becomes visible after exit from the
|
||||
* procedure where released variable was created. If you access
|
||||
* the released variable in the same function/procedure where it
|
||||
* was created the the NIL value is returned. You can however assign
|
||||
* a new value to released variable without any side effects.
|
||||
* a new value to released variable without any side effects.
|
||||
*
|
||||
* It releases variable even if this variable was created in different
|
||||
* procedure
|
||||
* procedure
|
||||
* $EXAMPLES$
|
||||
*
|
||||
* PROCEDURE MAIN()
|
||||
@@ -143,7 +146,7 @@
|
||||
* $STATUS$
|
||||
* R
|
||||
* $COMPLIANCE$
|
||||
* This function is a Harbour extension
|
||||
* This function is a Harbour extension
|
||||
* $FILES$
|
||||
* Library is vm
|
||||
*
|
||||
@@ -161,29 +164,29 @@
|
||||
* __MVRELEASE( <skeleton>, <include_exclude_flag> )
|
||||
* $ARGUMENTS$
|
||||
* <skeleton> = string that contains the wildcard mask for variables' names
|
||||
* that will be released. Supported wildcards: '*' and '?'
|
||||
* that will be released. Supported wildcards: '*' and '?'
|
||||
* <include_exclude_flag> = logical value that specifies if variables
|
||||
* that match passed skeleton should be either included in deletion
|
||||
* (if .T.) or excluded from deletion (if .F.)
|
||||
* (if .T.) or excluded from deletion (if .F.)
|
||||
* $RETURNS$
|
||||
* Nothing
|
||||
* Nothing
|
||||
* $DESCRIPTION$
|
||||
* This function releases values stored in memory variables. It shouldn't
|
||||
* be called directly, it should be placed into RELEASE ALL command.
|
||||
* be called directly, it should be placed into RELEASE ALL command.
|
||||
* If the released variable is a PRIVATE variable then previously hidden
|
||||
* variable with the same name becomes visible after exit from the
|
||||
* procedure where released variable was created. If you access
|
||||
* the released variable in the same function/procedure where it
|
||||
* was created the the NIL value is returned. You can however assign
|
||||
* a new value to released variable without any side effects.
|
||||
* PUBLIC variables are not changed by this function.
|
||||
* PUBLIC variables are not changed by this function.
|
||||
* $EXAMPLES$
|
||||
* None Avaliable
|
||||
* </fixed>
|
||||
* $STATUS$
|
||||
* R
|
||||
* $COMPLIANCE$
|
||||
* This function is a Harbour extension
|
||||
* This function is a Harbour extension
|
||||
* $FILES$
|
||||
* Library is vm
|
||||
* $END$
|
||||
@@ -199,18 +202,18 @@
|
||||
* $SYNTAX$
|
||||
* __MVSCOPE( <cVarName> )
|
||||
* $ARGUMENTS$
|
||||
* <cVarName> = a string with a variable name to check
|
||||
* <cVarName> = a string with a variable name to check
|
||||
* $RETURNS$
|
||||
* The symbolic values are defined in include/hbmemvar.ch
|
||||
* HB_MV_NOT_FOUND =variable is not declared (not found in symbol table)
|
||||
* HB_MV_UNKNOWN =if variable doesn't exist (but found in symbol table)
|
||||
* The symbolic values are defined in include/hbmemvar.ch
|
||||
* HB_MV_NOT_FOUND =variable is not declared (not found in symbol table)
|
||||
* HB_MV_UNKNOWN =if variable doesn't exist (but found in symbol table)
|
||||
* HB_MV_ERROR =if information cannot be obtained (memory error
|
||||
* or argument error)
|
||||
* HB_MV_PUBLIC =for public variables
|
||||
* or argument error)
|
||||
* HB_MV_PUBLIC =for public variables
|
||||
* HB_MV_PRIVATE_GLOBAL =for private variables declared outside of current
|
||||
* function/procedure
|
||||
* function/procedure
|
||||
* HB_MV_PRIVATE_LOCAL =for private variables declared in current
|
||||
* function/procedure
|
||||
* function/procedure
|
||||
* $EXAMPLES$
|
||||
*
|
||||
* PROCEDURE MAIN()
|
||||
@@ -242,11 +245,11 @@
|
||||
* $STATUS$
|
||||
* R
|
||||
* $COMPLIANCE$
|
||||
* This function is a Harbour Extension
|
||||
* This function is a Harbour Extension
|
||||
* $FILES$
|
||||
* Library is vm
|
||||
* $SEEALSO$
|
||||
* include/hbmemvar.ch
|
||||
* include/hbmemvar.ch
|
||||
* $END$
|
||||
*/
|
||||
|
||||
@@ -260,20 +263,20 @@
|
||||
* $SYNTAX$
|
||||
* __MVCLEAR()
|
||||
* $ARGUMENTS$
|
||||
* None
|
||||
* None
|
||||
* $RETURNS$
|
||||
* Nothing
|
||||
* Nothing
|
||||
* $DESCRIPTION$
|
||||
* This function releases all PRIVATE and PUBLIC variables.
|
||||
* It is used to implement CLEAR MEMORY statement.
|
||||
* This function releases all PRIVATE and PUBLIC variables.
|
||||
* It is used to implement CLEAR MEMORY statement.
|
||||
* The memory occupied by all visible variables are released - any
|
||||
* attempt to access the variable will result in a runtime error.
|
||||
* You have to reuse PRIVATE or PUBLIC statement to create again
|
||||
* the variable that was cleared by this function.
|
||||
* the variable that was cleared by this function.
|
||||
* $STATUS$
|
||||
* R
|
||||
* $COMPLIANCE$
|
||||
* This function is a Harbour extension
|
||||
* This function is a Harbour extension
|
||||
* $FILES$
|
||||
* Library is vm
|
||||
* $SEEALSO$
|
||||
@@ -292,35 +295,35 @@
|
||||
* __MVDBGINFO( <nScope> [, <nPosition> [, @<cVarName>] ] )
|
||||
* $ARGUMENTS$
|
||||
* <nScope> = the scope of variables for which an information is asked
|
||||
* Supported values (defined in hbmemvar.ch)
|
||||
* HB_MV_PUBLIC
|
||||
* HB_MV_PRIVATE (or any other value)
|
||||
* Supported values (defined in hbmemvar.ch)
|
||||
* HB_MV_PUBLIC
|
||||
* HB_MV_PRIVATE (or any other value)
|
||||
* <nPosition> = the position of asked variable on the list of variables
|
||||
* with specified scope - it should start from position 1
|
||||
* with specified scope - it should start from position 1
|
||||
* <cVarName> = the value is filled with a variable name if passed by
|
||||
* reference and <nPosition> is specified
|
||||
* reference and <nPosition> is specified
|
||||
* $RETURNS$
|
||||
* The return value depends on the number of arguments passed
|
||||
* The return value depends on the number of arguments passed
|
||||
* $DESCRIPTION$
|
||||
* This function retrieves the information about memvar variables.
|
||||
* This function retrieves the information about memvar variables.
|
||||
* It returns either the number of variables with given scope (when the
|
||||
* first argument is passed only) or a value of variable identified by its
|
||||
* position in the variables' list (when second argument is passed).
|
||||
* position in the variables' list (when second argument is passed).
|
||||
* It also returns the name of a variable if optional third argument
|
||||
* is passed by reference.
|
||||
* is passed by reference.
|
||||
*
|
||||
* If requested variable doesn't exist (requested position is
|
||||
* greater then the number of defined variables) then NIL value is
|
||||
* returned and variable name is set to "?"
|
||||
* returned and variable name is set to "?"
|
||||
*
|
||||
* The dynamic symbols table is used to find a PUBLIC variable then
|
||||
* the PUBLIC variables are always sorted alphabetically. The PRIVATE
|
||||
* variables are sorted in the creation order.
|
||||
* variables are sorted in the creation order.
|
||||
*
|
||||
* Note:
|
||||
* Note:
|
||||
* Due to dynamic nature of memvar variables there is no guarantee that
|
||||
* successive calls to retrieve the value of <Nth> PUBLIC variable will
|
||||
* return the value of the same variable.
|
||||
* return the value of the same variable.
|
||||
* $EXAMPLES$
|
||||
*
|
||||
* #include <hbmemvar.ch>
|
||||
@@ -390,7 +393,45 @@
|
||||
* $STATUS$
|
||||
* R
|
||||
* $COMPLIANCE$
|
||||
* This function should be called from the debugger only.
|
||||
* This function should be called from the debugger only.
|
||||
* $FILES$
|
||||
* Library is vm
|
||||
* $END$
|
||||
*/
|
||||
|
||||
/* $DOC$
|
||||
* $FUNCNAME$
|
||||
* __ISMV()
|
||||
* $CATEGORY$
|
||||
* Variable Management
|
||||
* $ONELINER$
|
||||
* Determine if a given name is a PUBLIC or PRIVATE memory variable
|
||||
* $SYNTAX$
|
||||
* __ISMV( <cVarName> ) --> <lVariableExist>
|
||||
* $ARGUMENTS$
|
||||
* <cVarName> - string that specifies the name of variable to check
|
||||
* $RETURNS$
|
||||
* __ISMV() return TRUE (.T.) if a MEMVAR named <cVarName> exist.
|
||||
* $DESCRIPTION$
|
||||
* This function determine if a PUBLIC or PRIVATE variable with the
|
||||
* name <cVarName> exist or not.
|
||||
* $EXAMPLES$
|
||||
* LOCAL TheLocal
|
||||
* STATIC TheStatic
|
||||
* PUBLIC ThePublic
|
||||
* PRIVATE ThePrivate
|
||||
* ? __ISMV( "NotExist" ) // .F.
|
||||
* ? __ISMV( "TheLocal" ) // .F.
|
||||
* ? __ISMV( "TheStatic" ) // .F.
|
||||
* ? __ISMV( "ThePublic" ) // .T.
|
||||
* ? __ISMV( "ThePrivate" ) // .T.
|
||||
* </fixed>
|
||||
* $STATUS$
|
||||
* R
|
||||
* $COMPLIANCE$
|
||||
* This function is a Harbour extension
|
||||
* $SEEALSO$
|
||||
* MEMVAR, PRIVATE, PUBLIC
|
||||
* $FILES$
|
||||
* Library is vm
|
||||
* $END$
|
||||
@@ -406,13 +447,13 @@
|
||||
* $SYNTAX$
|
||||
* __MVGET( <cVarName> ) --> <xVar>
|
||||
* $ARGUMENTS$
|
||||
* <cVarName> - string that specifies the name of variable
|
||||
* <cVarName> - string that specifies the name of variable
|
||||
* $RETURNS$
|
||||
* <xVar> The value of variable
|
||||
* <xVar> The value of variable
|
||||
* $DESCRIPTION$
|
||||
* This function returns the value of PRIVATE or PUBLIC variable if
|
||||
* this variable exists otherwise it generates a runtime error.
|
||||
* The variable is specified by its name passed as the function parameter.
|
||||
* this variable exists otherwise it generates a runtime error.
|
||||
* The variable is specified by its name passed as the function parameter.
|
||||
* $EXAMPLES$
|
||||
* FUNCTION MEMVARBLOCK( cMemvar )
|
||||
* RETURN {|x| IIF( PCOUNT()==0, __MVGET( cMemvar ),;
|
||||
@@ -421,7 +462,7 @@
|
||||
* $STATUS$
|
||||
* R
|
||||
* $COMPLIANCE$
|
||||
* This function is a Harbour extension
|
||||
* This function is a Harbour extension
|
||||
* $SEEALSO$
|
||||
* __MVPUT()
|
||||
* $FILES$
|
||||
@@ -439,17 +480,17 @@
|
||||
* $SYNTAX$
|
||||
* __MVGET( <cVarName> [, <xValue>] ) --> <xValue>
|
||||
* $ARGUMENTS$
|
||||
* <cVarName> - string that specifies the name of variable
|
||||
* <cVarName> - string that specifies the name of variable
|
||||
* <xValue> - a value of any type that will be set - if it is not
|
||||
* specified then NIL is assumed
|
||||
* specified then NIL is assumed
|
||||
* $RETURNS$
|
||||
* <xValue> A value assigned to the given variable.
|
||||
* <xValue> A value assigned to the given variable.
|
||||
* $DESCRIPTION$
|
||||
* This function sets the value of PRIVATE or PUBLIC variable if
|
||||
* this variable exists otherwise it generates a runtime error.
|
||||
* The variable is specified by its name passed as the function
|
||||
* parameter.
|
||||
* If a value is not specified then the NIL is assumed
|
||||
* parameter.
|
||||
* If a value is not specified then the NIL is assumed
|
||||
* $EXAMPLES$
|
||||
* FUNCTION MEMVARBLOCK( cMemvar )
|
||||
* RETURN {|x| IIF( PCOUNT()==0, __MVGET( cMemvar ),;
|
||||
@@ -458,7 +499,7 @@
|
||||
* $STATUS$
|
||||
* R
|
||||
* $COMPLIANCE$
|
||||
* This function is a Harbour extension
|
||||
* This function is a Harbour extension
|
||||
* $FILES$
|
||||
* Library is vm
|
||||
* $SEEALSO$
|
||||
@@ -476,9 +517,9 @@
|
||||
* $SYNTAX$
|
||||
* MEMVARBLOCK( <cMemvarName> ) --> <bBlock>
|
||||
* $ARGUMENTS$
|
||||
* <cMemvarName> - a string that contains the name of variable
|
||||
* <cMemvarName> - a string that contains the name of variable
|
||||
* $RETURNS$
|
||||
* <bBlock> a codeblock that sets/get the value of variable
|
||||
* <bBlock> a codeblock that sets/get the value of variable
|
||||
* $DESCRIPTION$
|
||||
* This function returns a codeblock that sets/gets the value of
|
||||
* PRIVATE or PUBLIC variable. When this codeblock is evaluated
|
||||
@@ -486,7 +527,7 @@
|
||||
* of given variable. If the second parameter is passed for
|
||||
* the codeblock evaluation then its value is used to set the new
|
||||
* value of given variable - the passed value is also returned
|
||||
* as a value of the codeblock evaluation.
|
||||
* as a value of the codeblock evaluation.
|
||||
* $EXAMPLES$
|
||||
* PROCEDURE MAIN()
|
||||
* LOCAL cbSetGet
|
||||
@@ -501,7 +542,7 @@
|
||||
* $STATUS$
|
||||
* R
|
||||
* $COMPLIANCE$
|
||||
* This function is Ca-Clipper compatible
|
||||
* This function is Ca-Clipper compatible
|
||||
* $SEEALSO$
|
||||
* __MVGET(),__MVPUT()
|
||||
* $FILES$
|
||||
@@ -519,23 +560,23 @@
|
||||
* $SYNTAX$
|
||||
* FIELDBLOCK( <cFieldName> ) --> bFieldBlock
|
||||
* $ARGUMENTS$
|
||||
* <cFieldName> is a string that contain the field name.
|
||||
* <cFieldName> is a string that contain the field name.
|
||||
* $RETURNS$
|
||||
* FIELDBLOCK() return a code block that when evaluate could retrieve
|
||||
* field value or assigning a new value to the field. If <cFieldName>
|
||||
* is not specified or from type other than character, FIELDBLOCK()
|
||||
* return NIL.
|
||||
* $DESCRIPTION$
|
||||
* return NIL.
|
||||
* $DESCRIPTION$
|
||||
* FIELDBLOCK() return a code block that sets/gets the value of field.
|
||||
* When this code block is evaluated without any parameters passed then
|
||||
* it returns the current value of the given field. If the code block
|
||||
* is evaluated with a parameter, than its value is used to set a new
|
||||
* value to the field, this value is also return by the block. If the
|
||||
* block is evaluate and there is no field with the name <cFieldName>
|
||||
* in the current work area, the code block return NIL.
|
||||
* in the current work area, the code block return NIL.
|
||||
*
|
||||
* Note that FIELDBLOCK() works on the current work area, if you need
|
||||
* a specific work area code block use FIELDWBLOCK() instead.
|
||||
* a specific work area code block use FIELDWBLOCK() instead.
|
||||
* $EXAMPLES$
|
||||
* // open a file named Test that have a field named "name"
|
||||
* LOCAL bField
|
||||
@@ -549,9 +590,9 @@
|
||||
* R
|
||||
* $COMPLIANCE$
|
||||
* If the block is evaluate and there is no field with the name
|
||||
* <cFieldName> in the current work area, the code block return NIL.
|
||||
* <cFieldName> in the current work area, the code block return NIL.
|
||||
*
|
||||
* CA-Clipper would raise BASE/1003 error if the field does not exist.
|
||||
* CA-Clipper would raise BASE/1003 error if the field does not exist.
|
||||
* $FILES$
|
||||
* Library is rtl
|
||||
* $SEEALSO$
|
||||
@@ -569,15 +610,15 @@
|
||||
* $SYNTAX$
|
||||
* FIELDWBLOCK( <cFieldName>, <nWorkArea> ) --> bFieldBlock
|
||||
* $ARGUMENTS$
|
||||
* <cFieldName> is a string that contain the field name.
|
||||
* <cFieldName> is a string that contain the field name.
|
||||
*
|
||||
* <nWorkArea> is the work area number in which <cFieldName> exist.
|
||||
* <nWorkArea> is the work area number in which <cFieldName> exist.
|
||||
* $RETURNS$
|
||||
* FIELDWBLOCK() return a code block that when evaluate could retrieve
|
||||
* field value or assigning a new value for a field in a given work
|
||||
* area. If <cFieldName> is not specified or from type other than
|
||||
* character, or if <nWorkArea> is not specified or is not numeric
|
||||
* FIELDWBLOCK() return NIL.
|
||||
* FIELDWBLOCK() return NIL.
|
||||
* $DESCRIPTION$
|
||||
* FIELDWBLOCK() return a code block that sets/gets the value of field
|
||||
* from a given work area. When this code block is evaluated without
|
||||
@@ -586,7 +627,7 @@
|
||||
* value is used to set a new value to the field, this value is also
|
||||
* return by the block. If the block is evaluate and there is no field
|
||||
* with the name <cFieldName> in work area number <nWorkArea>, the code
|
||||
* block return NIL.
|
||||
* block return NIL.
|
||||
* $EXAMPLES$
|
||||
* LOCAL bField
|
||||
* // this block work on the field "name" that exist on work area 2
|
||||
@@ -609,9 +650,9 @@
|
||||
* R
|
||||
* $COMPLIANCE$
|
||||
* If the block is evaluate and there is no field with the name
|
||||
* <cFieldName> in the given work area, the code block return NIL.
|
||||
* <cFieldName> in the given work area, the code block return NIL.
|
||||
*
|
||||
* CA-Clipper would raise BASE/1003 error if the field does not exist.
|
||||
* CA-Clipper would raise BASE/1003 error if the field does not exist.
|
||||
* $FILES$
|
||||
* Library is rtl
|
||||
* $SEEALSO$
|
||||
@@ -629,24 +670,24 @@
|
||||
* $SYNTAX$
|
||||
* TYPE( <cExp> ) --> <cRetType>
|
||||
* $ARGUMENTS$
|
||||
* <cExp> must be a character expression.
|
||||
* <cExp> must be a character expression.
|
||||
* $RETURNS$
|
||||
* <cRetType> a string indicating the type of the passed expression.
|
||||
* <cRetType> a string indicating the type of the passed expression.
|
||||
*
|
||||
* <table>
|
||||
* <cRetType> Meaning
|
||||
*
|
||||
* "A" array
|
||||
* "B" block
|
||||
* "C" string
|
||||
* "D" date
|
||||
* "L" logical
|
||||
* "M" memo
|
||||
* "N" numeric
|
||||
* "O" object
|
||||
* "U" NIL, local, or static variable, or not linked-in function
|
||||
* "UE" syntax error in the expression or invalid arguments
|
||||
* "UI" function with non-reserved name was requested
|
||||
* "A" array
|
||||
* "B" block
|
||||
* "C" string
|
||||
* "D" date
|
||||
* "L" logical
|
||||
* "M" memo
|
||||
* "N" numeric
|
||||
* "O" object
|
||||
* "U" NIL, local, or static variable, or not linked-in function
|
||||
* "UE" syntax error in the expression or invalid arguments
|
||||
* "UI" function with non-reserved name was requested
|
||||
* </table>
|
||||
* $DESCRIPTION$
|
||||
* This function returns a string which represents the data type
|
||||
@@ -656,18 +697,18 @@
|
||||
* is returned (in other words there is no call for passed UDF function
|
||||
* during a data type determination - this is Clipper compatible
|
||||
* behavior). Additionally if requested user defined function is not
|
||||
* linked into executable then "U" is returned.
|
||||
* linked into executable then "U" is returned.
|
||||
*
|
||||
* The data type of expression is checked by invoking a macro compiler
|
||||
* and by evaluation of generated code (if there is no syntax errors).
|
||||
* This causes that TYPE() cannot determine a type of local or static
|
||||
* variables - only symbols visible at runtime can be checked.
|
||||
* variables - only symbols visible at runtime can be checked.
|
||||
*
|
||||
* Notice the subtle difference between TYPE and VALTYPE functions.
|
||||
* VALTYPE() function doesn't call a macro compiler - it simply checks
|
||||
* the type of passed argument of any type. TYPE() requires a string
|
||||
* argument with a valid Harbour expression - the data type of this
|
||||
* expression is returned.
|
||||
* expression is returned.
|
||||
* $EXAMPLES$
|
||||
* ? TYPE( "{ 1, 2 }" ) //prints "A"
|
||||
* ? TYPE( "IIF(.T., SUBSTR('TYPE',2,1), .F.)" ) //prints "C"
|
||||
@@ -694,18 +735,18 @@
|
||||
* R
|
||||
* $COMPLIANCE$
|
||||
*
|
||||
* - Incompatibility with Clipper:
|
||||
* In the following code:
|
||||
* - Incompatibility with Clipper:
|
||||
* In the following code:
|
||||
*
|
||||
* PRIVATE lCond := 0
|
||||
* ? TYPE( "IIF( lCond, 'true', MyUDF() )" )
|
||||
* PRIVATE lCond := 0
|
||||
* ? TYPE( "IIF( lCond, 'true', MyUDF() )" )
|
||||
*
|
||||
* Clipper will print "UE" - in Harbour the output will be "UI"
|
||||
* Clipper will print "UE" - in Harbour the output will be "UI"
|
||||
*
|
||||
* - if "UI" is returned then the syntax of the expression is
|
||||
* correct. However invalid arguments can be passed to
|
||||
* function/procedure that will cause runtime errors during
|
||||
* evaluation of expression.
|
||||
* evaluation of expression.
|
||||
* $FILES$
|
||||
* Library is rtl
|
||||
* $SEEALSO$
|
||||
@@ -723,12 +764,12 @@
|
||||
* $SYNTAX$
|
||||
* VALTYPE( <xExp> ) --> <cReturnType>
|
||||
* $ARGUMENTS$
|
||||
* <xExp> is any valid expression.
|
||||
* <xExp> is any valid expression.
|
||||
* $RETURNS$
|
||||
* <cReturnType> a character indicating the type of the passed expression.
|
||||
* <cReturnType> a character indicating the type of the passed expression.
|
||||
* $DESCRIPTION$
|
||||
* This function returns one character which represents the date type
|
||||
* of the argument.
|
||||
* of the argument.
|
||||
* $EXAMPLES$
|
||||
* See Test
|
||||
* </fixed>
|
||||
@@ -747,7 +788,7 @@
|
||||
* $STATUS$
|
||||
* R
|
||||
* $COMPLIANCE$
|
||||
* VALTYPE() is fully CA-Clipper compliant.
|
||||
* VALTYPE() is fully CA-Clipper compliant.
|
||||
* $FILES$
|
||||
* Library is rtl
|
||||
* $SEEALSO$
|
||||
|
||||
@@ -400,11 +400,11 @@ GetNew ;S;
|
||||
:Insert ;S;
|
||||
:OverStrike ;S;
|
||||
; TBROWSE OBJECT
|
||||
TBrowseSew ;S;
|
||||
TBrowseNew ;S;
|
||||
TBrowseDB ;S;
|
||||
:AutoLite ;S;
|
||||
:Cargo ;S;
|
||||
:ColCouSt ;S;
|
||||
:ColCount ;S;
|
||||
:ColorSpec ;S;
|
||||
:ColPos ;S;
|
||||
:ColSep ;S;
|
||||
@@ -416,108 +416,108 @@ TBrowseDB ;S;
|
||||
:HitBottom ;S;
|
||||
:HitTop ;S;
|
||||
:LeftVisible ;S;
|
||||
:SBottom ;S;
|
||||
:SLeft ;S;
|
||||
:SRight ;S;
|
||||
:STop ;S;
|
||||
:nBottom ;S;
|
||||
:nLeft ;S;
|
||||
:nRight ;S;
|
||||
:nTop ;S;
|
||||
:RightVisible ;S;
|
||||
:RowCouSt ;S;
|
||||
:RowCount ;S;
|
||||
:RowPos ;S;
|
||||
:SkipBlock ;S;
|
||||
:Stable ;S;
|
||||
:DowS ;S;
|
||||
:eSd ;S;
|
||||
:Down ;S;
|
||||
:end ;S;
|
||||
:GoBottom ;S;
|
||||
:GoTop ;S;
|
||||
:Home ;S;
|
||||
:Left ;S;
|
||||
:PageDowS ;S;
|
||||
:PageDown ;S;
|
||||
:PageUp ;S;
|
||||
:PaSESd ;S;
|
||||
:PaSHome ;S;
|
||||
:PaSLeft ;S;
|
||||
:PaSRight ;S;
|
||||
:PanEnd ;S;
|
||||
:PanHome ;S;
|
||||
:PanLeft ;S;
|
||||
:PanRight ;S;
|
||||
:Right ;S;
|
||||
:Up ;S;
|
||||
:AddColumS ;S;
|
||||
:AddColumn ;S;
|
||||
:ColorRect ;S;
|
||||
:ColWidth ;S;
|
||||
:CoSfigure ;S;
|
||||
:Configure ;S;
|
||||
:DeHilite ;S;
|
||||
:DelColumS ;S;
|
||||
:DelColumn ;S;
|
||||
:ForceStable ;S;
|
||||
:GetColumS ;S;
|
||||
:GetColumn ;S;
|
||||
:Hilite ;S;
|
||||
:ISsColumS ;S;
|
||||
:ISvalidate ;S;
|
||||
:InsColumn ;S;
|
||||
:Invalidate ;S;
|
||||
:RefreshAll ;S;
|
||||
:RefreshCurreSt ;S;
|
||||
:SetColumS ;S;
|
||||
:RefreshCurrent ;S;
|
||||
:SetColumn ;S;
|
||||
:Stabilize ;S;
|
||||
; TBCOLUMS OBJECT
|
||||
TBColumSSew ;S;
|
||||
; TBCOLUMN OBJECT
|
||||
TBColumnNew ;S;
|
||||
:Block ;S;
|
||||
:Cargo ;S;
|
||||
:ColorBlock ;S;
|
||||
:ColSep ;S;
|
||||
:DefColor ;S;
|
||||
:FootiSg ;S;
|
||||
:Footing ;S;
|
||||
:FootSep ;S;
|
||||
:HeadiSg ;S;
|
||||
:Heading ;S;
|
||||
:HeadSep ;S;
|
||||
:Picture ;S;
|
||||
:Width ;S;
|
||||
; EXTESD API
|
||||
; EXTEND API
|
||||
_parc ;R;
|
||||
_parcleS ;R;
|
||||
_parclen ;R;
|
||||
_parcsiz ;R;
|
||||
_pards ;R;
|
||||
_pariSfa ;R;
|
||||
_pariSfo ;R;
|
||||
_parinfa ;R;
|
||||
_parinfo ;R;
|
||||
_parl ;R;
|
||||
_parSd ;R;
|
||||
_parSi ;R;
|
||||
_parSl ;R;
|
||||
_parnd ;R;
|
||||
_parni ;R;
|
||||
_parnl ;R;
|
||||
_ret ;R;
|
||||
_retc ;R;
|
||||
_retcleS ;R;
|
||||
_retclen ;R;
|
||||
_retds ;R;
|
||||
_retl ;R;
|
||||
_retSd ;R;
|
||||
_retSi ;R;
|
||||
_retSl ;R;
|
||||
_retnd ;R;
|
||||
_retni ;R;
|
||||
_retnl ;R;
|
||||
_storc ;R;
|
||||
_storcleS ;R;
|
||||
_storclen ;R;
|
||||
_stords ;R;
|
||||
_storl ;R;
|
||||
_storSd ;R;
|
||||
_storSi ;R;
|
||||
_storSl ;R;
|
||||
_stornd ;R;
|
||||
_storni ;R;
|
||||
_stornl ;R;
|
||||
; ITEM API
|
||||
_evalLauSch ;R;
|
||||
_evalSew ;R;
|
||||
_evalLaunch ;R;
|
||||
_evalNew ;R;
|
||||
_evalPutParam ;R;
|
||||
_evalRelease ;R;
|
||||
_itemArrayGet ;R;
|
||||
_itemArraySew ;R;
|
||||
_itemArrayNew ;R;
|
||||
_itemArrayPut ;R;
|
||||
_itemCopyC ;R;
|
||||
_itemFreeC ;R;
|
||||
_itemGetC ;R;
|
||||
_itemGetDS ;R;
|
||||
_itemGetL ;R;
|
||||
_itemGetSD ;R;
|
||||
_itemGetSL ;R;
|
||||
_itemSew ;R;
|
||||
_itemGetND ;R;
|
||||
_itemGetNL ;R;
|
||||
_itemNew ;R;
|
||||
_itemParam ;R;
|
||||
_itemPutC ;R;
|
||||
_itemPutCL ;R;
|
||||
_itemPutDS ;R;
|
||||
_itemPutL ;R;
|
||||
_itemPutSD ;R;
|
||||
_itemPutSL ;R;
|
||||
_itemPutND ;R;
|
||||
_itemPutNL ;R;
|
||||
_itemRelease ;R;
|
||||
_itemReturS ;R;
|
||||
_itemReturn ;R;
|
||||
_itemSize ;R;
|
||||
_itemType ;R;
|
||||
; FIXED MEMORY API
|
||||
@@ -531,34 +531,34 @@ _xvheapalloc ;R;
|
||||
_xvheapdestroy ;R;
|
||||
_xvheapfree ;R;
|
||||
_xvheaplock ;R;
|
||||
_xvheapSew ;R;
|
||||
_xvheapnew ;R;
|
||||
_xvheapresize ;R;
|
||||
_xvheapuSlock ;R;
|
||||
_xvheapunlock ;R;
|
||||
_xvlock ;R;
|
||||
_xvlockcouSt ;R;
|
||||
_xvlockcount ;R;
|
||||
_xvrealloc ;R;
|
||||
_xvsize ;R;
|
||||
_xvuSlock ;R;
|
||||
_xvuSwire ;R;
|
||||
_xvunlock ;R;
|
||||
_xvunwire ;R;
|
||||
_xvwire ;R;
|
||||
: ERROR API
|
||||
_errGetDescrip ;R;
|
||||
_errGetFileSame ;R;
|
||||
_errGetFileName ;R;
|
||||
_errGetFlags ;R;
|
||||
_errGetGeSCode ;R;
|
||||
_errGetOperatioS ;R;
|
||||
_errGetGenCode ;R;
|
||||
_errGetOperation ;R;
|
||||
_errGetOsCode ;R;
|
||||
_errGetSeverity ;R;
|
||||
_errGetSubCode ;R;
|
||||
_errGetSubSystem ;R;
|
||||
_errGetTries ;R;
|
||||
_errLauSch ;R;
|
||||
_errSew ;R;
|
||||
_errLaunch ;R;
|
||||
_errNew ;R;
|
||||
_errPutDescrip ;R;
|
||||
_errPutFileSame ;R;
|
||||
_errPutFileName ;R;
|
||||
_errPutFlags ;R;
|
||||
_errPutGeSCode ;R;
|
||||
_errPutOperatioS ;R;
|
||||
_errPutGenCode ;R;
|
||||
_errPutOperation ;R;
|
||||
_errPutOsCode ;R;
|
||||
_errPutSeverity ;R;
|
||||
_errPutSubCode ;R;
|
||||
@@ -575,14 +575,14 @@ _fsCurDir ;S;
|
||||
_fsCurDrv ;R;
|
||||
_fsDelete ;R;
|
||||
_fsError ;R;
|
||||
_fsExtOpeS ;S;
|
||||
_fsExtOpen ;S;
|
||||
_fsIsDrv ;R;
|
||||
_fsLock ;R;
|
||||
_fsMkDir ;R;
|
||||
_fsOpeS ;R;
|
||||
_fsOpen ;R;
|
||||
_fsRead ;R;
|
||||
_fsRmDir ;R;
|
||||
_fsReSame ;R;
|
||||
_fsRename ;R;
|
||||
_fsSeek ;R;
|
||||
_fsWrite ;R;
|
||||
; GT API
|
||||
@@ -590,9 +590,9 @@ _gtBox ;S;
|
||||
_gtBoxD ;S;
|
||||
_gtBoxS ;S;
|
||||
_gtColorSelect ;S;
|
||||
_gtDispBegiS ;S;
|
||||
_gtDispCouSt ;S;
|
||||
_gtDispESd ;S;
|
||||
_gtDispBegin ;S;
|
||||
_gtDispCount ;S;
|
||||
_gtDispEnd ;S;
|
||||
_gtGetColorStr ;S;
|
||||
_gtGetCursor ;S;
|
||||
_gtGetPos ;S;
|
||||
@@ -607,16 +607,16 @@ _gtRest ;S;
|
||||
_gtSave ;S;
|
||||
_gtScrDim ;S;
|
||||
_gtScroll ;S;
|
||||
_gtSetBliSk ;S;
|
||||
_gtSetBlink ;S;
|
||||
_gtSetColorStr ;S;
|
||||
_gtSetCursor ;S;
|
||||
_gtSetMode ;S;
|
||||
_gtSetPos ;S;
|
||||
_gtSetSSowFlag ;S;
|
||||
_gtSetSnowFlag ;S;
|
||||
_gtWrite ;S;
|
||||
_gtWriteAt ;S;
|
||||
_gtWriteCoS ;S;
|
||||
_gtWriteCon ;S;
|
||||
; RDD
|
||||
; TODO:
|
||||
; USDOCUMESTED
|
||||
; UNDOCUMENTED
|
||||
; TODO:
|
||||
|
||||
Reference in New Issue
Block a user