Re: New to Ada..need some help regarding Binary Conversion??

[romans_paula@hotmail.com (Paula)]

sk <noname@myob.com> wrote in message news:<mailman.1034704382.5852.comp.lang.ada@ada.eu.org>...
> Hi,
> 
> Pipes ? 
> 
> -----------------------
>  Test file (hello-txt)
> -----------------------
> Hello (contents of piped test file).
> 
> ------------
>  Ada source 
> ------------
> with Ada.Text_Io;
> 
> procedure Print_Pipe is
> 
>     package TIO renames Ada.Text_Io;
> 
>     Char : Character;
> 
> begin
>     loop
>         -- Explicit mention of "Standard_Input" and
>         -- "Standard_Output" to document ...
> 
>         exit when TIO.End_Of_File (TIO.Standard_Input);
> 
>         TIO.Get (TIO.Standard_Input, Char);
> 
>         TIO.Put (TIO.Standard_Output, Char);
> 
>     end loop;
> 
> end Print_Pipe;
> 
> --------------------------
> -- Command line (Linux) --
> --------------------------
> 
> $ cat hello-txt | print_pipe 
> Hello (contents of piped test file).
> 
> 
> For your particular criteria (16-bit data), define
> your 16-bit data type, use Ada.Text_Io.Text_Streams
> to convert Standard_Input to a stream (or use the 
> Interfaces.C.Streams <<check package name>> directly)
> and do 'Reads or 'Inputs on the stream
> 
>    ...
>    type My_16_Bits is mod 2**16;
> 
> 
>    My_16 : My_16_Bits;
>    ...
> 
>    In_Stream := Stream (TIO.Standard_Input);
> 
>    ...
> 
>    My_Value := My_16_Bits'Read (In_Stream);
>    
>    ...


Hmmm, ok....this looks more promising. I'll try it. Thanks ;-)

Paula