Re: Question about Streams and UDP sockets using GNAT.Sockets

["lekktu@gmail.com" <lekktu@gmail.com>]

Thanks, Dmitry and Alex.

> I've workarounded this in past versions of GNAT using a direct call to the
> Write procedure in Ada.Streams, though you must use a Stream_Element_Array
> instead of a String.

I've been able to make it work with:

----------------------------------------------------------------------

   use Ada.Streams;

   type Message is new String;

   procedure Message_Write
      (Stream : not null access Root_Stream_Type'Class;
       Item   : in              Message);

   for Message'Write use Message_Write;

   procedure Message_Write
      (Stream : not null access Root_Stream_Type'Class;
       Item   : in              Message)
   is
      subtype Message_Array is Stream_Element_Array (1 .. Item'Length);
      function To_SEA is new
         Ada.Unchecked_Conversion (Message, Message_Array);
   begin
      Write (Stream.all, To_SEA (Item));
   end Message_Write;

----------------------------------------------------------------------

Is there any simpler (or more correct) way, or that's about it?

Thanks,
              Juanma