Eval
(Available in 00 TS Base(Base) - TS_Base_0_Traverse)
Source
METHOD Eval( uItem AS USUAL, aReUse AS ARRAY, aSelfReference AS ARRAY ) AS LOGIC ; ...
...PASCAL CLASS TS_Traverse
LOCAL cValType AS STRING
LOCAL lEval AS LOGIC
lEval:=TRUE
cValType:=TS_AccessType( USUAL( _CAST, uItem ) )
DO CASE
CASE cValType=="A"
lEval:=SELF:EvalArray( uItem, aReUse, aSelfReference )
CASE cValType=="B"
SELF:EvalCodeBlock( uItem )
CASE cValType=="C"
SELF:EvalString( uItem )
CASE cValType=="D"
SELF:EvalDate( uItem )
CASE cValType=="L"
SELF:Logics+=1U