Specification of package Corba.Transport.Miop

 ========================================================================= --
 ===                                                                   === --
 ===                 Top Graph'X CORBA Implementation                  === --
 ===                                                                   === --
 ===                 Copyright (c) 2001, 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.    === --
 ===                                                                   === --
 ========================================================================= --

 modif{0} : JM 16/01/02 : creation a partir de Corba.Transport.Tcp

with Tgx.System_Ios ;
package Corba.Transport.Miop is
                                                
   Minor_String : constant Standard.String :=  "VMCID_Bad_Port_Number            " ;
   subtype T_Minor_Image is Standard.String (1 .. Minor_String'length) ;
   type T_Minor_Image_Table is array (Corba.Unsigned_Long range <>) of  T_Minor_Image ;

   Name : Protocol_Name := "MUD" ;
   Id   : constant := 0 ;

   type Object is new Corba.Transport.Connection_Less with null record ;
   type Object_Ptr is access all Object'class ;

    To get the IP address string of a host name
   function Ip_Name (Host_Name : in Standard.String) return Standard.String ;

    Build the URL from host and port
   function Url ( Host_Name : in Standard.String ;
                  Port      : in Tgx.System_Ios.Port ) return Standard.String ;

   ------------------------
    Configuration values --
   ------------------------

    Time To Live (Number of networks to pass through)
   procedure Set_Multicast_Ttl (Ttl : in Octet) ;  Default 1

    Receive buffer size
   procedure Set_Recv_Buf_Size (P_Size : in Unsigned_Long) ;  OS Default

    Max size of a message before fragmentation occurs
   procedure Set_Mtu (P_Mtu : in Natural) ;   Default 1400
   
    Delay before an incomplete message becomes obsolete
   procedure Set_Peremption_Delay (P_Delay : in Duration) ;   Default 10.0

   
    Create a data connection corresponding to the given URL
   function Connection ( Self : access Object ;
                         Url  : in Standard.String)
      return Tgx.Ios.Io_Connection_Access ;

    Build the transport IOR profile header for the given URL
    It is aligned on a four-bytes boundary and contains only the transport
    information (e.g. host name and TCP port number for IIOP profile)
   function Get_Profile_Header
      ( Self   : access Object ;
        Url    : in Standard.String )
      return Corba_Ios.Stream_Element_Array ;

    Extract the URL from the IOR stream
    Index is aligned on a four-bytes boundary and points at the beginning
    of the transport information
    (e.g.Multicast name and Group port number for IIOP profile)
    Index is updated to the last byte index of the transport information
   function Get_Url ( Self   : access Object ;
                      Swap   : in Boolean ;  Indicate the need to swap bytes
                      Data   : in Corba_Ios.Stream_Element_Array ;
                      Index  : access Corba_Ios.Stream_Element_Offset)
      return Standard.String ;

    Create a server connection corresponding to the given URL
   function Create_Receiver ( Self : access Object ;
                              Url  : in Standard.String)
      return Tgx.Ios.Io_Connection_Access ;

end Corba.Transport.Miop ;