12 lines
260 B
Ada
12 lines
260 B
Ada
|
with H3.Arrays;
|
||
|
|
|
||
|
|
generic
|
||
|
|
type Item_Type is private; -- any limited definite type
|
||
|
|
G_Terminator_Length: System_Zero_Or_One := 0;
|
||
|
|
G_Terminator_Value: Item_Type;
|
||
|
|
package H3.Strings is
|
||
|
|
|
||
|
|
package P is new H3.Arrays(Item_Type, G_Terminator_Length);
|
||
|
|
|
||
|
|
end H3.Cords;
|