Re: stream_tools 1.0.1

["Randy Brukardt" <randy@rrsoftware.com>]

"Per Sandberg" <per.s.sandberg@bahnhof.se> wrote in message 
news:5524cdd3$0$14715$862e30e2@ngroups.net...
> First release of stream-tools
>
> https://github.com/persan/a-stream-tools/releases/tag/1.0.1
>
> They provides a small set of utility streams.

For what it's worth, there was/is a proposal to include what you called a 
"memory stream" in Ada 202x. There's been one in Claw since it was created, 
and I hear that it comes up frequently enough that it probably should be 
standard.

The Claw version (Claw.Marshalling.Buffer_Type) uses a discriminanted type 
so that the dangerous use of 'Address isn't necessary. It expands the buffer 
when necessary, but I would expect that would get dropped from a Standard 
version. And probably the names would get changed. But here's the spec:

package Claw.Marshalling is

  type Buffer_Type(Initial_Length : Ada.Streams.Stream_Element_Count)
  is new Ada.Streams.Root_Stream_Type with private;

  procedure Read(
    Stream : in out Buffer_Type;
    Item   :    out Ada.Streams.Stream_Element_Array;
    Last   :    out Ada.Streams.Stream_Element_Offset);

  procedure Write(
    Stream : in out Buffer_Type;
    Item   : in     Ada.Streams.Stream_Element_Array);

  function Length(Stream : in Buffer_Type)
      return Ada.Streams.Stream_Element_Count;
        -- Return the total length of data written into the buffer.

  procedure Clear(Stream : in out Buffer_Type);
        -- Empty the buffer.

private
....