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

[sk <noname@myob.com>]

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);
   
   ...

-- 
-------------------------------------
-- Merge vertically for real address
-------------------------------------
s n p @ t . o
 k i e k c c m
-------------------------------------