Re: Fill string with multiple lines from standard_input

["SteveD" <nospam_steved94@attbi.com>]

"Vincent Smeets" <No@Spam.org> wrote in message
news:ajebhb$ndl$01$1@news.t-online.com...
> Is the a nice Ada95 way to do this?
>
Try this:

with Ada.Text_Io.Text_Streams;
with Ada.Streams;
procedure TestRead is

  in_stream   : Ada.Text_Io.Text_Streams.Stream_Access;
  out_stream  : Ada.Text_Io.Text_Streams.Stream_Access;
  input_chars : Ada.Streams.Stream_Element_Array( 1 .. 1024 );
  last        : Ada.Streams.Stream_Element_Offset;
begin
  in_stream := Ada.Text_Io.Text_Streams.Stream( Ada.Text_Io.Current_Input );
  out_stream := Ada.Text_Io.Text_Streams.Stream(
Ada.Text_Io.Current_Output );
  Ada.Streams.Read( in_Stream.ALL, input_chars, last );
  Ada.Streams.Write( out_Stream.ALL, input_chars(1 .. last ) );
end TestRead;

BTW: There is nothing that says a stream element will correspond to a
character, but in practice I think it will be.

SteveD