3 with Ada
.Containers
.Indefinite_Holders
;
8 type Str
(<>) is private;
10 type Str
is array (Positive range <>) of Character;
14 type Str2
(<>) is private;
16 type str2
is new inner
.Str
;
19 type Str3
is new Inner
.str
;
21 package Str_Holders
is new Ada
.Containers
.Indefinite_Holders
22 (Inner
.Str
, Inner
."=");
24 package Str2_Holders
is new Ada
.Containers
.Indefinite_Holders
25 (Inner2
.Str2
, Inner2
."=");
27 package Str3_Holders
is new Ada
.Containers
.Indefinite_Holders