Differences From Artifact [c491bede79]:

• File src/natools-s_expressions-parsers.adb — part of check-in [bdd6a2a904] at 2014-03-25 19:09:46 on branch trunk — s_expressions-parsers: redesign the whole package around an abstract type with user-provided data source (user: nat size: 19617)

To Artifact [cea1ca4044]:

• File src/natools-s_expressions-parsers.adb — part of check-in [9f0aaf857d] at 2014-03-28 20:20:44 on branch trunk — s_expressions-parsers: return End_Of_Input on locked objects, to behave like genuine S-expression end (user: nat size: 19640)

100
101
102
103
104
105
106
107


108
109
110
111
112
113
114

100
101
102
103
104
105
106

107
108
109
110
111
112
113
114
115

-
+
+

   overriding procedure Next
     (Self : in out Parser;
      Event : out Events.Event)
   is
      O : Octet;
   begin
      if Self.Locked then
         raise Constraint_Error;
         Event := Evnets.End_Of_Input;
         return;
      end if;

      Self.Latest := Events.Error;
      loop
         --  Process pending events

         if Self.Next_Event /= Events.End_Of_Input then