65 lines
1.7 KiB
Plaintext
65 lines
1.7 KiB
Plaintext
/*
|
|
* $Id$
|
|
*/
|
|
|
|
/*
|
|
* The following parts are Copyright of the individual authors.
|
|
* www - http://www.harbour-project.org
|
|
*
|
|
* Copyright 2000 Luiz Rafael Culik <culik@sl.conex.net>
|
|
* Documentation for: EVAL()
|
|
*
|
|
* See doc/license.txt for licensing terms.
|
|
*
|
|
*/
|
|
|
|
/* $DOC$
|
|
* $FUNCNAME$
|
|
* EVAL()
|
|
* $CATEGORY$
|
|
* Code Block
|
|
* $ONELINER$
|
|
* Evaluate a code block
|
|
* $SYNTAX$
|
|
* EVAL( <bBlock> [, <xVal> [,...]]) --> xExpression
|
|
* $ARGUMENTS$
|
|
* <bBlock> Code block expression to be evaluated
|
|
*
|
|
* <xVal> Argument to be passed to the code block expression
|
|
*
|
|
* <xVal...> Argument list to be passed to the code block expression
|
|
* $RETURNS$
|
|
* <xExpression> The result of the evaluated code block
|
|
* $DESCRIPTION$
|
|
* This function evaluates the code bloc expressed as <bBlock> and
|
|
* returns its evaluated value.If their are multiple expressions within
|
|
* the code block,the last expression will be value of this function.
|
|
*
|
|
* If the code block requires parameters to be passed to it,they are
|
|
* specified in the parameter list <xVal> and following.Each parameter
|
|
* is separated by a comma within the expression list.
|
|
* $EXAMPLES$
|
|
* FUNC MAIN
|
|
* LOCAL sbBlock := {|| NIL }
|
|
* ? Eval( 1 )
|
|
* ? Eval( @sbBlock )
|
|
*
|
|
* ? Eval( {|p1| p1 },"A","B")
|
|
* ? Eval( {|p1,p2| p1+p2 },"A","B")
|
|
* ? Eval( {|p1,p2,p3| p1 },"A","B")
|
|
* Return Nil
|
|
* $TESTS$
|
|
* See examples
|
|
* $STATUS$
|
|
* R
|
|
* $COMPLIANCE$
|
|
* This function is Ca Clipper compliant
|
|
* $PLATFORMS$
|
|
* All
|
|
* $FILES$
|
|
* Library is vm
|
|
* $SEEALSO$
|
|
* AEVAL(),DBEVAL()
|
|
* $END$
|
|
*/
|