From mboxrd@z Thu Jan  1 00:00:00 1970
X-Spam-Checker-Version: SpamAssassin 3.4.4 (2020-01-24) on polar.synack.me
X-Spam-Level: 
X-Spam-Status: No, score=-1.9 required=5.0 tests=BAYES_00 autolearn=ham
	autolearn_force=no version=3.4.4
X-Google-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: 103376,68bb77cd3b37dc26,start
X-Google-Attributes: gid103376,public
X-Google-ArrivalTime: 2003-06-12 13:35:31 PST
Path: 
 archiver1.google.com!news1.google.com!newsfeed.stanford.edu!postnews1.google.com!not-for-mail
From: johnd@faac.com (John Dibbs)
Newsgroups: comp.lang.ada
Subject: Florist Socket Help
Date: 12 Jun 2003 13:35:31 -0700
Organization: http://groups.google.com/
Message-ID: <a2e525d7.0306121235.1937ac27@posting.google.com>
NNTP-Posting-Host: 63.215.160.66
Content-Type: text/plain; charset=ISO-8859-1
Content-Transfer-Encoding: 8bit
X-Trace: posting.google.com 1055450131 9172 127.0.0.1 (12 Jun 2003 20:35:31
 GMT)
X-Complaints-To: groups-abuse@google.com
NNTP-Posting-Date: 12 Jun 2003 20:35:31 GMT
Xref: archiver1.google.com comp.lang.ada:39064
Date: 2003-06-12T20:35:31+00:00
List-Id: <comp.lang.ada>

Thanks in advance.

Trying create a UDP broadcast sock using florist
In C

int sock;
int one=1;
struct hostent *host;
struct sockaddr_in name;

sock = socket(AF_INET, SOCK_DGRAM,0);
setsockopt(sock,SOL_SOCKET,SOL_BROADCAST, &one, sizeof(one));
host = gethostbyname("255.255.255.255");
bcopy((char *)host->h_addr, (char *)&name.sin_addr, host->h_length);
name.sin_port = 4321;

In Ada
function pdu_io_open_write(
   UDP_Send_Port   : in    STD.Integer_32_Type) return STD.Integer_32_Type
is
   package  PS    renames Posix.Sockets;
   package  PSI   renames Posix.Sockets.Internet;

   -- SSock_Name : Internet_Socket_Address declared in package body

   Send_Socket : Posix.IO.File_Descriptor;
   Socket_Info : PS.Socket_Address_Info_List;
 begin

   Send_Socket := PS.Create(
                     PSI.Internet_Protocol,
                     PS.Datagram_Socket, 0);

   PS.Set_Socket_Broadcast(Send_Socket, PS.Enabled);

   PS.Get_Socket_Address_Info("255.255.255.255", "", Socket_Info);

   PSI.Set_Internet_Port(SSock_Name,
                     Posix.Host_To_Network_Byte_Order(UDP_Send_Port));
   ?????????????????
   how do I get the data from info_list to sin_addr?

   PSI.Set_Internet_Port(SSock_Name,
                  Posix.Host_To_Network_Byte_Order(UDP_Send_Port));

 
   return (0);

end pdu_io_open_write;