Re: Using fwrite in Ada

[Georg Bauhaus <bauhaus@futureapps.de>]

Makhno wrote:

> Does anybody have any idea as to how I get binary data onto stdout?

Use Streams and the 'Write and 'Read attributes of the type used
for binary data.

Here is a possible output part, it gets binary data onto stdout.
For the input part, use the 'read attribute where the text uses
the 'write attribute.


with Ada.Text_IO.Text_Streams;

procedure binio is

   use Ada.Text_IO;

   type Byte is mod 2**8;
   for Byte'size use 8;  -- just to make sure

   type Binary_Data is array(Natural range <>) of Byte;
     -- the type used for storing binary data internally

   stuff: Binary_Data(1..10);

   destination: Text_Streams.Stream_Access;

begin
   destination := Text_Streams.Stream (standard_output);
   Binary_Data'write(destination, stuff);
end binio;

If you just want to write integers, records (structs) etc.
to standard_output, use the 'Write attributes of the respective
types. That's what they are for. (No need to "cast" something.)