Natools

Check-in [a61c83ef7e]
Login
Overview
Comment:s_expressions-file_readers: reset parser state in Rewind
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: a61c83ef7ed881f0f82ce8a7281576ed8792e9f2
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
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)