Differences From Artifact [5caad76e31]:

• File src/natools-s_expressions-interpreters.ads — part of check-in [2ee5aec7e2] at 2014-03-15 20:20:48 on branch trunk — s_expressions-interpreters: add inspection functions Has_Command and Is_Empty (user: nat size: 4737)

To Artifact [44d867d725]:

• File src/natools-s_expressions-interpreters.ads — part of check-in [c3bac18f66] at 2014-04-15 20:16:25 on branch trunk — s_expressions-interpreters: add a null command constant that does nothing (user: nat size: 4854)

54
55
56
57
58
59
60





61
62
63
64
65
66
67

54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72

+
+
+
+
+

     (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


   type Null_Command is new Command with null record;

   Do_Nothing : Null_Command := Null_Command'(null record);


   type Interpreter is new Command with private;

   procedure Add_Command
     (Self : in out Interpreter;
      Name : in Atom;
      Cmd : in Command'Class);