4 with Ada.Containers.Ordered_Sets;
5 with Ada.Strings.Unbounded;
10 Name : Ada.Strings.Unbounded.Unbounded_String;
13 function "<" (Left : Rec; Right : Rec) return Boolean;
15 package My_Ordered_Sets is new Ada.Containers.Ordered_Sets (Rec);
17 protected type Data is
20 Set : My_Ordered_Sets.Set;
23 function "<" (Left : Rec; Right : Rec) return Boolean is
28 protected body Data is
30 procedure Dummy (Position : My_Ordered_Sets.Cursor) is
35 Set.Iterate (Dummy'Access);