type Array_Stream is new Root_Zipstream_Type with private;
type A_Array_Stream is access all Array_Stream'Class;
procedure Delete is new Ada.Unchecked_Deallocation
( | Stream_Element_Array, A_SEA ); |
procedure Set
( | Str | : in out Array_Stream; |
Buf | : in out A_SEA ); |
procedure Close
( | Str | : in out Array_Stream ); |
procedure Delete
( | Str | : in out A_Array_Stream ); |