Overview
| Comment: | s_expressions-interpreters: add a null command constant that does nothing |
|---|---|
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
c3bac18f66a45c5a48ef17d708072939 |
| User & Date: | nat on 2014-04-15 20:16:25 |
| Other Links: | manifest | tags |
Context
|
2014-05-08
| ||
| 18:36 | Move atom comparison function from Natools.S_Expressions.Interpreters to Natools.S_Expressions check-in: 6f257a4f4d user: nat tags: trunk | |
|
2014-04-15
| ||
| 20:16 | s_expressions-interpreters: add a null command constant that does nothing check-in: c3bac18f66 user: nat tags: trunk | |
|
2014-04-14
| ||
| 21:29 | s_expressions-encodings: add a test for the user-defined base-64 charset check-in: 6236ad7b60 user: nat tags: trunk | |
Changes
Modified src/natools-s_expressions-interpreters.ads from [5caad76e31] to [44d867d725].
| ︙ | ︙ | |||
54 55 56 57 58 59 60 61 62 63 64 65 66 67 |
(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 Interpreter is new Command with private;
procedure Add_Command
(Self : in out Interpreter;
Name : in Atom;
Cmd : in Command'Class);
| > > > > > | 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);
|
| ︙ | ︙ |