type A_Buffer_Stream is access all Buffer_Stream'Class;
procedure Open_Stream
( | buffer | : in out A_SEA; |
stream | : out A_Buffer_Stream ); |
function Stream
( | buffer | : not null A_SEA ) return A_Buffer_Stream; |
procedure Close
( | stream | : in out A_Buffer_Stream ); |