Differences From Artifact [089b8c8cea]:

• File src/natools-s_expressions-parsers.ads — part of check-in [dffc102c0d] at 2014-01-10 22:49:00 on branch trunk — s_expressions-parsers: new package containing an event-base S-expression parser (user: nat size: 5158)

To Artifact [90e8bf6ef8]:

• File src/natools-s_expressions-parsers.ads — part of check-in [edac345527] at 2014-01-21 20:16:26 on branch trunk — s_expressions-parsers: fix parsing of nested subexpressions (user: nat size: 5125)

108
109
110
111
112
113
114
115
116
117
118
119
120
121
122

108
109
110
111
112
113
114

115
116
117
118
119
120
121

-

      end case;
   end record;

   type Parser is tagged record
      Internal     : State_Data;
      Pending      : Events.Event := Events.End_Of_Input;
      Override     : Atom_Buffers.Atom_Buffer;
      Override_Pos : Count := 0;
      Latest       : Events.Event := Events.Error;
      Buffer       : Atom_Buffers.Atom_Buffer;
      Level        : Natural := 0;
   end record;

   type Subparser
     (Backend : access Parser;