Specification of package Rtcorba.Rtorb

 ==================================================== --
 ===  Code automatically generated by IDL to Ada  === --
 ===  compiler OrbAda-idl2ada                     === --
 ===  Copyright Top Graph'X  1997-2001            === --
 ==================================================== --
 From IDL file RTCORBA.idl
with Ada.Exceptions ;

with Corba_Ios ;
with Corba.Abstractbase ;

 with Rtcorba.Mutex ;
with Rtcorba.Prioritymodelpolicy ;
with Rtcorba.Threadpoolpolicy ;
with Rtcorba.Prioritybandedconnectionpolicy ;
with Rtcorba.Serverprotocolpolicy ;
with Rtcorba.Clientprotocolpolicy ;
with Rtcorba.Privateconnectionpolicy ;
with Rtcorba.Tcpprotocolproperties ;

with RTCORBA.PriorityMapping ;
package RTCORBA.RTORB is

   type Ref is new Corba.AbstractBase.Ref with null record;


   ---------------------------------------
    Types and methods of this interface --
   ---------------------------------------

    Not meaningful in Ada (use of protected types)
    function create_mutex
       ( Self : in Ref)
       return RTCORBA.Mutex.Ref ;

    procedure destroy_mutex
       ( Self : in Ref;
         the_mutex : in RTCORBA.Mutex.Ref) ;

   InvalidThreadpool : exception;
   type InvalidThreadpool_Members is new Corba.Idl_Exception_Members with null
      record;

   InvalidThreadpool_Id : constant Corba.RepositoryId := Corba.
      To_Unbounded_String
   ("IDL:omg.org/RTCORBA/RTORB/InvalidThreadpool:1.0") ;

   procedure Get_Members (X  : in Ada.Exceptions.Exception_Occurrence ;
                          To : out InvalidThreadpool_Members) ;

   procedure Iop_Read
      ( Stream : access Corba_Ios.Iop_Stream_Type ;
        Item   : out InvalidThreadpool_Members) ;

   procedure Iop_Write
      ( Stream : access Corba_Ios.Iop_Stream_Type ;
        Item   : in InvalidThreadpool_Members) ;

   function Is_Nil ( Self : in Ref) return Boolean ;

   function create_threadpool
      ( Self : in Ref;
        stacksize : in Corba.Unsigned_Long;
        static_threads : in Corba.Unsigned_Long;
        dynamic_threads : in Corba.Unsigned_Long;
        default_priority : in RTCORBA.Priority;
        allow_request_buffering : in Corba.Boolean;
        max_buffered_requests : in Corba.Unsigned_Long;
        max_request_buffer_size : in Corba.Unsigned_Long)
      return RTCORBA.ThreadpoolId ;

   function create_threadpool_with_lanes
      ( Self : in Ref;
        stacksize : in Corba.Unsigned_Long;
        lanes : in RTCORBA.ThreadpoolLanes;
        allow_borrowing : in Corba.Boolean;
        allow_request_buffering : in Corba.Boolean;
        max_buffered_requests : in Corba.Unsigned_Long;
        max_request_buffer_size : in Corba.Unsigned_Long)
      return RTCORBA.ThreadpoolId ;

   procedure destroy_threadpool
      ( Self : in Ref;
        threadpool : in RTCORBA.ThreadpoolId) ;

   function create_priority_model_policy
      ( Self : in Ref;
        priority_model : in RTCORBA.PriorityModel;
        server_priority : in RTCORBA.Priority)
      return RTCORBA.PriorityModelPolicy.Ref ;

   function create_threadpool_policy
      ( Self : in Ref;
        threadpool : in RTCORBA.ThreadpoolId)
      return RTCORBA.ThreadpoolPolicy.Ref ;

   function create_priority_banded_connection_policy
      ( Self : in Ref;
        priority_bands : in RTCORBA.PriorityBands)
      return RTCORBA.PriorityBandedConnectionPolicy.Ref ;

   function create_server_protocol_policy
      ( Self : in Ref;
        protocols : in RTCORBA.ProtocolList)
      return RTCORBA.ServerProtocolPolicy.Ref ;

   function create_client_protocol_policy
      ( Self : in Ref;
        protocols : in RTCORBA.ProtocolList)
      return RTCORBA.ClientProtocolPolicy.Ref ;

   function create_private_connection_policy
      ( Self : in Ref)
      return RTCORBA.PrivateConnectionPolicy.Ref ;

   function create_tcp_protocol_properties
      ( Self : in Ref;
        send_buffer_size : in Corba.Long;
        recv_buffer_size : in Corba.Long;
        keep_alive : in Corba.Boolean;
        dont_route : in Corba.Boolean;
        no_delay : in Corba.Boolean)
      return RTCORBA.TCPProtocolProperties.Ref ;

   function Get_Priority_Mapping return RTCORBA.PriorityMapping.Object_Ptr ;
   procedure Set_Priority_Mapping
      (Map : in RTCORBA.PriorityMapping.Object_Ptr) ;
   procedure Reset_Default_Priority_Mapping ;

   procedure To_Native ( CORBA_Priority : in RTCORBA.Priority ;
                         Native_Priority: out RTCORBA.NativePriority ;
                         Returns : out CORBA.Boolean ) ;
   procedure To_CORBA ( Native_Priority: in RTCORBA.NativePriority ;
                        CORBA_Priority : out RTCORBA.Priority ;
                        Returns : out CORBA.Boolean ) ;

   Null_Ref : constant Ref := (Corba.AbstractBase.Null_Ref with null record);

   RTORB_R_Id : constant Corba.RepositoryId :=
      Corba.To_Unbounded_String ("IDL:omg.org/RTCORBA/RTORB:1.0") ;
end RTCORBA.RTORB;