Re: Text_IO from a stream

Dmitry A. Kazakov:

> You can always wrap a File_Type in your own stream object.

Do you mean something like:

 type Text_Stream_Type is new Ada.Streams.Root_Stream_Type with record
   virtual_file : Ada.Text_IO.File_Type;
 end record;

?
At the end of the day, what I'd really like is
  function File(stream: access Ada.Streams.Root_Stream_Type 'Class)
return Ada.Text_IO.File_Type;
so that I can do read ASCII data from any stream:
  f:= File(my_stream);
  -- f is as if open in In_File mode
  Get_Line(f, a_string, length);
  Get(f, an_integer); -- not binary, but 123_456
  Get(f, a_float);    -- not binary, but -123.456e78

I guess it would be difficult... But maybe I'm wrong ?
Gautier