FUNCTION
Declares a function along with its formal parameters.
Syntax
[STATIC] [UTILITY] FUNCTION <funcName>( [<params,...>] )
[FIELD <fieldName,...> [IN <aliasName>]]
[MEMVAR <var_Dynamic,...>]
[LOCAL <var_Local> [:= <expression>] ,... ]
[STATIC <var_Static> [:= <expression>] ,... ]
<Statements>
RETURN <retVal>
Arguments
FUNCTION <funcName>( [<params,...>] )
This is the symbolic name of the declared function. It must begin with a letter or underscore followed by digits, letters or underscores.
The symbolic name can contain up to 63 characters. Optionally, the names of parameters <params,...> accepted by the function can be specified as a comma separated list. These function parameters have LOCAL scope within the function.
When the function is declared as STATIC FUNCTION, it is only visible within the PRG file that contains the function declaration and cannot be invoked from elsewhere.
UTILITY
The UTILITY attribute indicates that the declared function should not be used as startup code even if it is the first declared function in the PRG source file.
FIELD <fieldName>
An optional list of field variables to use within the FUNCTION can be declared with the FIELD statement.
MEMVAR <var_Dynamic>
If dynamic memory variables, i.e. PRIVATE or PUBLIC variables, are used in the function, they are declared with the MEMVAR statement.
LOCAL <var_Local> [:= <expression>]
Local variables are declared and optionally initialized using the LOCAL statement.
STATIC <var_Static> [:= <expression>]
Static variables are declared and optionally initialized using the STATIC statement.
RETURN <retVal>
The RETURN statement terminates a function and branches control back to the calling routine, returning the value <retVal> to it. Description
The FUNCTION statement declares a function along with an optional list of parameters accepted by the function. Statements programmed in the function body form a self-contained part of a program that is executed when a function is called. Thus, tasks of a program can be split into several functions, each of which performs a sub-task when invoked.
The body of a function ends with the next FUNCTION, PROCEDURE or CLASS declaration, or at the end of file, which implies that function declarations cannot be nested.
The execution of a function ends when a RETURN statement is encountered in the function body, which must return a value <retVal> to the calling routine. This value is mandatory for functions and can be of any data type. The RETURN value is the only difference between functions and procedures.
When a function is declared with the STATIC modifier, its visibility is restricted to the PRG file that contains the STATIC FUNCTION declaration. The names of STATIC functions are resolved by the compiler and do not exist at runtime of a program. The names of non-STATIC functions, also referred to as public functions, are resolved by the linker and do exist at runtime. Thus, public functions can be accessed by the Macro operator (&) while STATIC functions cannot.
It is possible to declare STATIC functions with the same symbolic name in different PRG files. A name conflict to a public function with the same name declared in another PRG file does not arise. However, the symbolic names of public functions, procedures or classes must always be unique.
When a function is invoked with values being passed to it, they are assigned to the formal parameters declared with <params,...>. All variables declared in this list are LOCAL variables and their visibility is restricted to the statements programmed in the function body.
The number of values passed to a function does not need to match the number of parameters declared. When fewer values are passed, the corresponding parameters are initialized with NIL. When more values are passed, the additional values are not asssigned to parameters but can be retrieved using function HB_AParams().
Undefined parameter list
a function can be declared with an undefined parameter list using the ellipsis sign (...) as a placeholder for the parameter list. A function declared in such way can receive an unknown number of parameters.
Examples
// The example shows two functions used to calculate the number of
// days for a month.
PROCEDURE Main
? DaysOfMonth( StoD( "20000201" ) ) // Result: 29
? DaysOfMonth( StoD( "20010201" ) ) // Result: 28
? DaysOfMonth( StoD( "20040201" ) ) // Result: 29
? DaysOfMonth( StoD( "20050301" ) ) // Result: 31
? DaysOfMonth( StoD( "20051101" ) ) // Result: 30
RETURN
FUNCTION DaysOfMonth( dDate )
LOCAL nMonth
IF Valtype( dDate ) <> "D"
dDate := Date()
ENDIF
nMonth := Month( dDate )
IF nMonth == 2
RETURN IIf( IsLeapYear( dDate ), 29, 28 )
ELSEIF nMonth $ {4,6,9,11}
RETURN 30
ENDIF
RETURN 31
STATIC FUNCTION IsLeapYear( dDate )
LOCAL nYear := Year( dDate )
RETURN ( nYear % 4 == 0 ) .OR. ( nYear % 400 == 0 )
// The example demonstrates how an unknown number of command line
// arguments passed to an xHarbour application can be processed.
PROCEDURE Main( ... )
LOCAL aArg := HB_AParams()
LOCAL cArg
FOR EACH cArg IN aArg
DO CASE
CASE Upper( cArg ) IN ("-H/H-?/?")
? "Help requested"
CASE .NOT. cArg[1] IN ( "-/" )
?? " argument:", cArg
CASE Upper( cArg ) IN ("-X/X")
? "Execution requested"
OTHERWISE
? "Unknown:", cArg
ENDCASE
NEXT
RETURN
