package Scripting.Scripts is
type Script is new Limited_Object with private;
type A_Script is access all Script'Class;
procedure Evaluate
( | this | : access Script; |
context | : not null A_Eval_Context ); |
procedure Set_Statements
( | this | : not null access Script'Class; |
statements | : in out Statement_Lists.List ); |