Natools

Check-in [a14e9a88da]
Login
Overview
Comment:s_expressions-parsers: fix typo
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: a14e9a88da7f2f9d1f1c48bed5651c95a1b2846f
User & Date: nat on 2014-03-28 20:25:38
Other Links: manifest | tags
Context
2014-03-29
17:02
s_expressions-parsers-tests: add tests to complete coverage of the new parser check-in: a5c83aef9c user: nat tags: trunk
2014-03-28
20:25
s_expressions-parsers: fix typo check-in: a14e9a88da user: nat tags: trunk
20:20
s_expressions-parsers: return End_Of_Input on locked objects, to behave like genuine S-expression end check-in: 9f0aaf857d user: nat tags: trunk
Changes

Modified src/natools-s_expressions-parsers.adb from [cea1ca4044] to [81bb40d722].

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







-
+







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

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