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);