Overview
| Comment: | s_expressions-file_readers: reset parser state in Rewind |
|---|---|
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
a61c83ef7ed881f0f82ce8a7281576ed |
| User & Date: | nat on 2014-06-09 19:01:19 |
| Other Links: | manifest | tags |
Context
|
2014-06-14
| ||
| 15:18 | s_expressions-printers-pretty: export procedure Newline to allow clients to freely insert newlines (e.g. at the end of files) check-in: 737b8974b4 user: nat tags: trunk | |
|
2014-06-09
| ||
| 19:01 | s_expressions-file_readers: reset parser state in Rewind check-in: a61c83ef7e user: nat tags: trunk | |
|
2014-06-08
| ||
| 19:08 |
s_expressions-printers-pretty: add valid default values to Parameter objects
This ensures that default Parameters objects are valid, and therefore that pretty printers without explicit parameter initialization are valid (and canonical) too. check-in: 89b2db0d6d user: nat tags: trunk | |
Changes
Modified src/natools-s_expressions-file_readers.adb from [3cf81ddf53] to [ca56f3defe].
| ︙ | ︙ | |||
50 51 52 53 54 55 56 57 58 59 60 61 62 63 |
Object.Rewind;
end Set_Filename;
procedure Rewind (Object : in out S_Reader) is
begin
Stream_IO.Set_Index (Object.Holder.File, 1);
Object.Next;
end Rewind;
overriding procedure Read_More
(Object : in out S_Reader;
Buffer : out Atom_Buffers.Atom_Buffer)
| > | 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 |
Object.Rewind;
end Set_Filename;
procedure Rewind (Object : in out S_Reader) is
begin
Stream_IO.Set_Index (Object.Holder.File, 1);
Object.Reset;
Object.Next;
end Rewind;
overriding procedure Read_More
(Object : in out S_Reader;
Buffer : out Atom_Buffers.Atom_Buffer)
|
| ︙ | ︙ |