37
38
39
40
41
42
43
44
45
46
47
48
49
50
|
Name : in Atom;
Cmd : in Command'Class) is
begin
Self.Commands.Insert (Name, Cmd);
Self.Max_Length := Count'Max (Self.Max_Length, Name'Length);
end Add_Command;
procedure Set_Fallback
(Self : in out Interpreter;
Name : in Atom)
is
function Create return Atom;
|
>
>
>
>
>
>
>
>
>
>
>
>
|
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
|
Name : in Atom;
Cmd : in Command'Class) is
begin
Self.Commands.Insert (Name, Cmd);
Self.Max_Length := Count'Max (Self.Max_Length, Name'Length);
end Add_Command;
function Has_Command (Self : Interpreter; Name : Atom) return Boolean is
begin
return Self.Commands.Contains (Name);
end Has_Command;
function Is_Empty (Self : Interpreter) return Boolean is
begin
return Self.Commands.Is_Empty;
end Is_Empty;
procedure Set_Fallback
(Self : in out Interpreter;
Name : in Atom)
is
function Create return Atom;
|