Re: Binary and XML serialization of types

[hanslad@gmail.com]

> 
> 
> In that case you can use the implementations from Simple Components.
> 
> 


Hello,
I am sorry for the late reply on this. Y\Thank you for all the answers. 
I have looked briefly into Simple Components, and I am impressed by all the funtionalty you have implemented there.

One question: You have implemented the litle endian Unsigned_16 Get like this:

 procedure Get
             (  Data    : in out Stream_Element_Array;
                Pointer : in out Stream_Element_Offset;
                Value   : out Unsigned_16
             )  is
   begin
      if (  Pointer < Data'First
         or else
            (  Pointer > Data'Last
            and then
               Pointer > Data'Last + 1
         )  )
      then
         Raise_Exception
         (  Layout_Error'Identity,
            "Pointer is out of bounds"
         );
      elsif Pointer + 1 > Data'Last then
         Raise_Exception (End_Error'Identity, "End of data");
      end if;
      Value :=
         (  Shift_Left (Unsigned_16 (Data (Pointer + 1)), 8)
         or             Unsigned_16 (Data (Pointer))
         );
      Pointer := Pointer + 2;
   end Get;

Is it assumed that the system is little endian. How will this work on a big endian system?

Regards,

HP