45
46
47
48
49
50
51
52
53
54
55
56
57
58
|
procedure Update
(Interpreter : in out Interpreters.Interpreter;
Param : in out Parameters;
Expression : in out Lockable.Descriptor'Class);
-- Update parameters using Interpreter (wrapper around its Execute)
---------------------
-- Building Blocks --
---------------------
procedure Add_Char_Encoding_Commands
(Interpreter : in out Interpreters.Interpreter);
|
>
>
>
>
>
|
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
|
procedure Update
(Interpreter : in out Interpreters.Interpreter;
Param : in out Parameters;
Expression : in out Lockable.Descriptor'Class);
-- Update parameters using Interpreter (wrapper around its Execute)
procedure Print
(Output : in out Printers.Printer'Class;
Param : in Parameters);
-- Output parameters to S-expression printer
---------------------
-- Building Blocks --
---------------------
procedure Add_Char_Encoding_Commands
(Interpreter : in out Interpreters.Interpreter);
|