Re: Text_IO from a stream

[Gautier <gautier@fakeaddress.nil>]

Dmitry A. Kazakov:
> But a stream has no defined formatting and is unrelated to ASCII.

Still, you can read the stream through Character'Read(s,c).

 > Then the idea of parsing stream looks problematic. If you have in the stream a
> sequence "  +  -", what Get should do after discovering '-'?

Exactly the same behaviour as when parsing an ill-formatted text.
Reading a text file (or supposedly so) indirectly via a stream and Stream_IO 
would have the same result that via Ada.Text_IO.

> Anyway, it is quite simple to do. You can do
> 
>    type Formatted_Stream (Source : access Root_Stream_Type'Class) is
>       tagged limited private;
>    function Get (Stream : access Formatted_Stream) return Integer;
>    ...
> 
> The implementation of Formatted_Stream will use Source for all its I/O. So
> you could hang it on any existing stream.

Fine, seems I need to rewrite a Text_IO for streams. I hoped for a ready-made 
solution...
Well, I think I'll switch to a binary format...
______________________________________________________________
Gautier         -- http://www.mysunrise.ch/users/gdm/index.htm
Ada programming -- http://www.mysunrise.ch/users/gdm/gsoft.htm

NB: For a direct answer, e-mail address on the Web site!