39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
|
Command_Not_Found : exception;
type Command is interface;
procedure Execute
(Self : in out Command;
State : in out Shared_State;
Context : in Shared_Context;
Name : in Atom)
is null;
-- Execute a single argumentless command
procedure Execute
(Self : in out Command;
State : in out Shared_State;
Context : in Shared_Context;
Cmd : in out Lockable.Descriptor'Class)
is null;
-- Execute a single command with arguments
|
|
|
|
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
|
Command_Not_Found : exception;
type Command is interface;
procedure Execute
(Self : in Command;
State : in out Shared_State;
Context : in Shared_Context;
Name : in Atom)
is null;
-- Execute a single argumentless command
procedure Execute
(Self : in Command;
State : in out Shared_State;
Context : in Shared_Context;
Cmd : in out Lockable.Descriptor'Class)
is null;
-- Execute a single command with arguments
|
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
|
procedure Set_Fallback
(Self : in out Interpreter;
Name : in Atom);
procedure Reset_Fallback (Self : in out Interpreter);
not overriding procedure Execute
(Self : in out Interpreter;
Expression : in out Lockable.Descriptor'Class;
State : in out Shared_State;
Context : in Shared_Context);
-- Execute an expression, raising Command_Not_Found on unknown commands
not overriding procedure Execute
(Self : in out Interpreter;
Fallback : in out Command'Class;
Expression : in out Lockable.Descriptor'Class;
State : in out Shared_State;
Context : in Shared_Context);
-- Execute an expression with temporary fallback for unknown commands
overriding procedure Execute
(Self : in out Interpreter;
State : in out Shared_State;
Context : in Shared_Context;
Name : in Atom);
-- Execute a single argumentless command
overriding procedure Execute
(Self : in out Interpreter;
State : in out Shared_State;
Context : in Shared_Context;
Cmd : in out Lockable.Descriptor'Class);
-- Execute a single command with arguments
private
|
|
|
|
|
|
|
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
|
procedure Set_Fallback
(Self : in out Interpreter;
Name : in Atom);
procedure Reset_Fallback (Self : in out Interpreter);
not overriding procedure Execute
(Self : in Interpreter;
Expression : in out Lockable.Descriptor'Class;
State : in out Shared_State;
Context : in Shared_Context);
-- Execute an expression, raising Command_Not_Found on unknown commands
not overriding procedure Execute
(Self : in Interpreter;
Fallback : in Command'Class;
Expression : in out Lockable.Descriptor'Class;
State : in out Shared_State;
Context : in Shared_Context);
-- Execute an expression with temporary fallback for unknown commands
overriding procedure Execute
(Self : in Interpreter;
State : in out Shared_State;
Context : in Shared_Context;
Name : in Atom);
-- Execute a single argumentless command
overriding procedure Execute
(Self : in Interpreter;
State : in out Shared_State;
Context : in Shared_Context;
Cmd : in out Lockable.Descriptor'Class);
-- Execute a single command with arguments
private
|