Natools

Check-in [9f0aaf857d]
Login
☰Home Timeline Files Branches Tags Tickets Wiki Login
Overview
Comment:s_expressions-parsers: return End_Of_Input on locked objects, to behave like genuine S-expression end
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: 9f0aaf857d7fb7c8ecafbbe1e0ad8e48068d8c6b
User & Date: nat on 2014-03-28 20:20:44
Other Links: manifest | tags
Context
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
2014-03-27
21:24
s_expressions-parsers-tests: adapt the test suite to the new Parsers packet check-in: b02835bdfa user: nat tags: trunk
Changes
Hide Diffs Side-by-Side Diffs Ignore Whitespace Patch

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

︙
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
︙

This page was generated in about 0.004s by Fossil 2.23 [47362306a7] 2023-11-01 18:56:47