Specification of package Tgx.Ios.File_Ios.Udp_Socket_Ios

 ========================================================================= --
 ===                                                                   === --
 ===                 Top Graph'X CORBA Implementation                  === --
 ===                                                                   === --
 ===                 Copyright (c) 2002, Top Graph'X.                  === --
 ===                                                                   === --
 ===                     --- Copyright Notice ---                      === --
 ===                                                                   === --
 ===    This software is protected as an unpublished work under the    === --
 ===     Copyright Act of 1976.  All rights reserved.  Top Graph'X.    === --
 ===                                                                   === --
 ========================================================================= --
 04/02/02 : JM : Création
with Tgx.System_Ios ;
use  Tgx.System_Ios ;
package Tgx.Ios.File_Ios.Udp_Socket_Ios is
   
   Multicast_Emission_Error : exception ;
   
   type Socket_Protocol is (No_Proto, Tcp, Udp) ;

   type Socket_Multicast_Reception is new File_Datagram_Reception  with
   record
      Host     : String_Pointer ;
      Udp_Port : Port ;
      Family   : Socket_Address_Family ;
      Protocol : Socket_Protocol := Udp ;
      Multicast: String_Pointer ;
   end record ;
   type Socket_Multicast_Reception_Access is access all Socket_Multicast_Reception'class ;

   procedure Open (This : access Socket_Multicast_Reception ) ;

   procedure Close (This : access Socket_Multicast_Reception ) ;

   function Ip_Name (Host_Name : in String) return String ;

    Returns the URL indicating the sending client
   function Url (Client   : access Socket_Multicast_Reception)
      return Standard.String ;

    Directly derived from Raw Datagram Emission
   type Socket_Multicast_Emission is new Io_Datagram_Emission  with
   record
      Host          : String_Pointer ;
      Udp_Port      : Port ;
      Family        : Socket_Address_Family ;
      Protocol      : Socket_Protocol := Udp ;
      Multicast     : String_Pointer ;
      Internet_Addr : Internet_Address ;
      Fd            : Tgx.System_Ios.Handle := Invalid_File ;
    end record ;
   type Socket_Multicast_Emission_Access is access all Socket_Multicast_Emission'class ;

   procedure Open (This : access Socket_Multicast_Emission ) ;

   procedure Close (This : access Socket_Multicast_Emission ) ;

   procedure Write ( This   : access Socket_Multicast_Emission ;
                     Buffer : in System.Address ;
                     Number : in Natural ) ;
   
   procedure Get_Recv_Buffer ( S    : in Integer_32 ;
                               Size : in out Integer_32 ;
                               Ok   : out boolean);
   
   procedure Set_Recv_Buffer ( S    : in Integer_32 ;
                               Size : in Integer_32 ;
                               Ok   : out boolean);
      
   procedure Get_Send_Buffer ( S    : in Integer_32 ;
                               Size : in out Integer_32 ;
                               Ok   : out boolean);
   
   procedure Set_Send_Buffer ( S    : in Integer_32 ;
                               Size : in Integer_32 ;
                               Ok   : out boolean);
  
   procedure Get_Multicast_Ttl ( S   : in Integer_32 ;
                                 Ttl : in out Byte ;
                                 Ok  : out boolean);
   
   procedure Set_Multicast_Ttl ( S   : in Integer_32 ;
                                 Ttl : in Byte ;
                                 Ok  : out boolean);
   
    Returns the URL indicating the sending client
   function Url (Client   : access Socket_Multicast_Emission)
      return Standard.String ;

end Tgx.Ios.File_Ios.Udp_Socket_Ios ;