Create stream library for Stream_Reader clients

[blancolioni]

Create a stream reader wrapper around the stream reader client

with System.Storage_Elements;
with Rose.Interfaces.Stream_Reader.Client;

package Rose.Streams is

   type File_Type is limited private;

   procedure Open 
     (File   : in out File_Type;
      Reader : Rose.Interfaces.Stream_Reader.Client.Stream_Reader_Client);

   procedure Close (File : in out File_Type);

   procedure Read
     (File   : in out File_Type;
      Buffer : System.Address;
      Length : System.Storage_Elements.Storage_Count);

   generic
      type Element_Type is private;
   package Generic_Reader is
      procedure Read
        (File    : in out File_Type;
         Element : out Element_Type);
   end Generic_Reader;

private

   --  ...

end Rose.Streams;