Hi
How to determine in Clipper program that a specified by a user function (for example through GET command) exists?
I.e. a user inputs a macro expression containing function name &SomeUDF and there is a need to determine does exist a function with name SomeUDF() or does not.
Vladimir Grigoriev
FiveTech Support Forums
FiveWin / Harbour / xBase community
Board index FiveWin for CA-Clipper How to determine a function existance
Vladimir,
You may use Type( "FunctionName()" ) or better, Type( cExpression )
Antonio
Yesterday I tested a simple code and got the following results.
UI UI UE UE U U UE
The last result "UE" destroys all concept to use TYPE( cExp ).
Vladimir Grigoriev
Yesterday I tested a simple code and got the following results.
PROCEDURE MAIN()
? TYPE( "DEFINED()" ), TYPE( "2 + DEFINED()" )
? TYPE( "DEFINED() + ABS()" ), TYPE( "ABS()" )
? TYPE( "UNDEFINED()" ), TYPE( "2 + UNDEFINED()" )
? TYPE( "ABS() + UNDEFINED()" )
RETURN
FUNCTION DEFINED()
RETURN ( NIL )UI UI UE UE U U UE
The last result "UE" destroys all concept to use TYPE( cExp ).
Vladimir Grigoriev
Vladimir,
It looks ok to me, as there is an undefined function in the expression.
And you consider that TYPE( "ABS()" ) and ? TYPE( "ABS() + UNDEFINED()" ) both return "UE" is correct?
Vladimir Grigoriev
Type() return the type of an expression by evaluate the expression.
You want to know if a function is linked in your executable ?
In this case, you can use Error system to intercept the error
returned if you do something like this :
function Test()
local cFunction := "MyFunc"
begin sequence
&(cFunction)()
end
When a function is not present in the exe, the error number
is always the same...
Regards,
Badara Thiam
http://www.icim.fr
http://www.icim.fr
I did not test but can be a such situation that BEGIN SEQUENCE will intercept an error which occured inside MyFunc() and wil be difficult to distinguish if the error is generated by the absence of the function or by the function itself?
Vladimir,
You may also modify Clipper errorsys and check for "undefined function" error.
This is an idea! It need to be tested.