111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
|
-- Execute a single command with arguments
private
type Exception_Command is new Command with null record;
function Less_Than (Left, Right : Atom) return Boolean;
|
<
<
|
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
|
-- Execute a single command with arguments
private
type Exception_Command is new Command with null record;
package Command_Maps is new Ada.Containers.Indefinite_Ordered_Maps
(Atom, Command'Class, Less_Than);
type Interpreter is new Command with record
Commands : Command_Maps.Map;
Max_Length : Count := 0;
Fallback_Name : Atom_Buffers.Atom_Refs.Reference;
end record;
end Natools.S_Expressions.Interpreters;
|