Re: Fill string with multiple lines from standard_input

["Vincent Smeets" <No@Spam.org>]

Hallo,

I have tested your streams and it didn't work! (Win2000 GNAT 3.13p)

I have a file of 253283 bytes (3310 lines with <CR><LF>). I start my program
with:
    prog <file
and I read 249873 bytes in my buffer. That is exactly 3310 bytes less than
the input file. There is probably some input processing that will leave out
the <CR>. How can I also read the <CR>?

I think that Stream_IO won't do any input processing, but with Stream_IO, I
can only read from a file, not from Standard_Input!

Thanks for any help.

"SteveD" <nospam_steved94@attbi.com> wrote in message
news:bnE69.29717$Zl2.6800@sccrnsc02...
>
> "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
>
>
>