Natools

Check-in [a14e9a88da]
Login

Check-in [a14e9a88da]

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

Overview
Comment:s_expressions-parsers: fix typo
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: a14e9a88da7f2f9d1f1c48bed5651c95a1b2846f
User & Date: nat 2014-03-28 20:25:38.200
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
Unified Diff 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

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

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









|








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 := Events.End_Of_Input;
         return;
      end if;

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