Re: Byte streams

[tmoran@acm.org]

> type AnotherStructure is record
>     a : Integer;
>     b : Integer;
>     c : Integer;
> end Record;
>
> toByteStream is new Unchecked_Conversion
>     (source => AnotherStructure, Target => ByteStream);
>
> however ByteStream is unconstrained...
>
> Any suggestions?

   1) Either use, or look at the source code of, one or more of the
      multiple Ada socket implementations available on the internet.

   2) Assuming Integer is 4 bytes,
      subtype External_AnotherStructure is Bytestream(1 .. 12);
      toByteStream is new Unchecked_Conversion
          (source => AnotherStructure, Target => External_AnotherStructure);

   3) If you send AnotherStructure a lot, and assuming Integer is 4 bytes,
      procedure send_AnotherStructure (data : AnotherStructure;
                                       numBytes : Integer => 12);
      pragma import (C, send_AnotherStructure, "sendBytes");