type Evaluator is new Limited_Object with private;
type A_Evaluator is access all Evaluator'Class;
function Create_Evaluator return A_Evaluator;
procedure Evaluate
( | this | : not null access Evaluator'Class; |
expression | : String; | |
resolver | : A_Symbol_Resolver; | |
result | : in out A_Value ); |