Natools

Differences From Artifact [caee50ade0]:

• File src/natools-s_expressions-generic_caches.ads — part of check-in [a23e614377] at 2014-02-09 20:52:36 on branch trunk — s_expressions-generic_caches: new package for simnple memory container of S-expression (user: nat, size: 5403) [annotate] [blame] [check-ins using]

To Artifact [d6fece5551]:

• File src/natools-s_expressions-generic_caches.ads — part of check-in [eade42f305] at 2014-02-25 19:45:37 on branch trunk — s_expressions-generic_caches: fix exception in empty Cursor assignment (though I don't understand what was wrong) (user: nat, size: 5390) [annotate] [blame] [check-ins using]

128
129
130
131
132
133
134
135
136
137
138
139
140

   type Reference is new Printers.Printer with record
      Exp : Trees.Reference;
   end record;


   type Cursor is new Descriptor with record
      Exp : Trees.Reference := Trees.Create (Create_Tree'Access);
      Position : Node_Access := null;
      Opening : Boolean := False;
   end record;

end Natools.S_Expressions.Generic_Caches;

|

128
129
130
131
132
133
134
135
136
137
138
139
140

   type Reference is new Printers.Printer with record
      Exp : Trees.Reference;
   end record;


   type Cursor is new Descriptor with record
      Exp : Trees.Reference := Trees.Null_Reference;
      Position : Node_Access := null;
      Opening : Boolean := False;
   end record;

end Natools.S_Expressions.Generic_Caches;