Natools

Check-in [9f0aaf857d]
Login
☰Home Timeline Branches Tags Tickets Wiki Login

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

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 2014-03-28 20:20:44
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

Changes to src/natools-s_expressions-parsers.adb.

︙
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