Natools

Differences From Artifact [3cf81ddf53]:

• File src/natools-s_expressions-file_readers.adb — part of check-in [68274aec88] at 2014-04-09 19:34:26 on branch trunk — s_expressions-file_readers: new package to encapsulate file reading as a S-expression or as an atom (user: nat, size: 5583) [annotate] [blame] [check-ins using]

To Artifact [ca56f3defe]:

• File src/natools-s_expressions-file_readers.adb — part of check-in [a61c83ef7e] at 2014-06-09 19:01:19 on branch trunk — s_expressions-file_readers: reset parser state in Rewind (user: nat, size: 5603) [annotate] [blame] [check-ins using]

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)