Natools

Diff
Login

Differences From Artifact [e5d33e0334]:

To Artifact [d3a8d580f5]:


118
119
120
121
122
123
124
125

126
127
128
129
130
131
118
119
120
121
122
123
124

125
126
127
128
129
130
131







-
+






      Buffer       : Atom_Buffers.Atom_Buffer;
      Level        : Natural := 0;
      Lock_Stack : Lockable.Lock_Stack;
      Locked : Boolean := False;
   end record;

   type Stream_Parser (Input : access Ada.Streams.Root_Stream_Type'Class) is
     new Parser with null record;
     limited new Parser with null record;

   overriding procedure Read_More
     (Self : in out Stream_Parser;
      Buffer : out Atom_Buffers.Atom_Buffer);

end Natools.S_Expressions.Parsers;