blob: ba2d675cb05e762b8cededdcb3dd519720c82e19 [file] [log] [blame]
generic
type C is private;
type S is array (Positive range <>) of C;
with function Encode (Val : S) return String;
procedure Encode_String1_Pkg (Val : S);