48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
|
end Invalid_Commands;
function Test_Interpreter return Test_Interpreters.Interpreter is
Template : Recorder;
begin
return Inter : Test_Interpreters.Interpreter do
Inter.Add_Command (To_Atom ("cmd"), Template);
Inter.Add_Command (To_Atom ("command"), Template);
end return;
end Test_Interpreter;
----------------------
-- Recorder Command --
|
|
|
|
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
|
end Invalid_Commands;
function Test_Interpreter return Test_Interpreters.Interpreter is
Template : Recorder;
begin
return Inter : Test_Interpreters.Interpreter do
Inter.Add ("cmd", Template);
Inter.Add ("command", Template);
end return;
end Test_Interpreter;
----------------------
-- Recorder Command --
|