1 with Ada.Containers.Vectors;
5 type String is limited null record;
6 type String_Access is access all String;
7 pragma Atomic (String_Access);
9 type Reference is record
13 package Reference_Vectors is
14 new Ada.Containers.Vectors (Natural, Reference);
16 type Reader is tagged limited record
17 Current_Reference : Reference;
18 Reference_Stack : Reference_Vectors.Vector;
21 procedure Next (Self : in out Reader'Class);