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: |
a14e9a88da7f2f9d1f1c48bed5651c95 |
| User & Date: | nat 2014-03-28 20:25:38 |
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
Changes to src/natools-s_expressions-parsers.adb.
| ︙ | ︙ | |||
100 101 102 103 104 105 106 |
overriding procedure Next
(Self : in out Parser;
Event : out Events.Event)
is
O : Octet;
begin
if Self.Locked then
| | | 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
|
| ︙ | ︙ |