Re: reading from a pipe

[Eryndlia Mavourneen <eryndlia@gmail.com>]

On Wednesday, February 27, 2013 11:36:32 AM UTC-6, milouz wrote:
> Hi,
> 
> 
> 
> I'd like to know how to read some bytes from a pipe or some other non-regular file such as device. I had a look at streams_io, direct_io, etc. but was not able to code something working.
> 
> 
> 
> How do we do that in Ada ?

The following is a partial solution to the question, but gives the general idea:

-------------------------------

   with Ada.Text_IO, Ada.Text_IO.Text_Streams;
   use  Ada.Text_IO, Ada.Text_IO.Text_Streams;
   procedure Write_It is
      type My_Record_Type is ...;
      The_Record : My_Record_Type;
      Cmd_Stream : Text_Streams.Stream_Access := Stream (Standard_Output);
   begin
      My_Record_Type'Write (Cmd_Stream, The_Record);
   end Write_It;

--------------------------------

   with Ada.Text_IO, Ada.Text_IO.Text_Streams;
   use  Ada.Text_IO, Ada.Text_IO.Text_Streams;
   procedure Read_It is
      type My_Record_Type is ...;
      The_Record : My_Record_Type;
      Cmd_Stream : Text_Streams.Stream_Access := Stream (Standard_Input);
   begin
      My_Record_Type'Read (Cmd_Stream, The_Record);
   end Read_It;

--------------------------------

Build as two processes and invoke within .exe directory as:

   $ ./write_it | ./read_it

--------------------------------

  -- Eryndlia