Specification of package Rtcorba

 ==================================================== --
 ===  Code automatically generated by IDL to Ada  === --
 ===  compiler OrbAda-idl2ada                     === --
 ===  Copyright Top Graph'X  1997-2001            === --
 ==================================================== --
 From IDL file RTCORBA.idl
with Corba_Ios ;
with Corba.Iop ;
with Corba.Object ;
with Corba.Sequences ;
with Corba.AbstractBase ;
package RTCORBA is

   type NativePriority is new Corba.Short;

   type Priority is new Corba.Short;

   Tgx_minPriority : constant  :=  0 ;
   minPriority : constant Priority := Tgx_minPriority ;

   Tgx_maxPriority : constant  :=  32767 ;
   maxPriority : constant Priority := Tgx_maxPriority ;


   type ThreadpoolId is new Corba.Unsigned_Long;

   type ThreadpoolLane is
   record
      lane_priority : Priority;
      static_threads : Corba.Unsigned_Long;
      dynamic_threads : Corba.Unsigned_Long;
      kept_threads : Corba.Unsigned_Long := 0 ;
   end record;

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

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

   package Idl_Sequence_ThreadpoolLane is new Corba.Sequences.Unbounded (
      ThreadpoolLane);

   type ThreadpoolLanes is new Idl_Sequence_ThreadpoolLane.Sequence ;
   Null_ThreadpoolLanes : constant ThreadpoolLanes :=
      ThreadpoolLanes (Idl_Sequence_ThreadpoolLane.Null_Sequence) ;

   Tgx_PRIORITY_MODEL_POLICY_TYPE : constant  :=  40 ;
   PRIORITY_MODEL_POLICY_TYPE : constant CORBA.PolicyType := 
      Tgx_PRIORITY_MODEL_POLICY_TYPE ;

   type PriorityModel is ( CLIENT_PROPAGATED, SERVER_DECLARED);
   for PriorityModel'size use 32 ;

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

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

   Tgx_THREADPOOL_POLICY_TYPE : constant  :=  41 ;
   THREADPOOL_POLICY_TYPE : constant CORBA.PolicyType := 
      Tgx_THREADPOOL_POLICY_TYPE ;


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

   type Protocol is
   record
      protocol_type : Corba.IOP.Profile_Id;
      orb_protocol_properties : ProtocolProperties_Forward;
      transport_protocol_properties : ProtocolProperties_Forward;
   end record;

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

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

   package Idl_Sequence_Protocol is new Corba.Sequences.Unbounded (Protocol);

   type ProtocolList is new Idl_Sequence_Protocol.Sequence ;
   Null_ProtocolList : constant ProtocolList :=
      ProtocolList (Idl_Sequence_Protocol.Null_Sequence) ;

   Tgx_SERVER_PROTOCOL_POLICY_TYPE : constant  :=  42 ;
   SERVER_PROTOCOL_POLICY_TYPE : constant CORBA.PolicyType := 
      Tgx_SERVER_PROTOCOL_POLICY_TYPE ;

   Tgx_CLIENT_PROTOCOL_POLICY_TYPE : constant  :=  43 ;
   CLIENT_PROTOCOL_POLICY_TYPE : constant CORBA.PolicyType := 
      Tgx_CLIENT_PROTOCOL_POLICY_TYPE ;

   Tgx_PRIVATE_CONNECTION_POLICY_TYPE : constant  :=  44 ;
   PRIVATE_CONNECTION_POLICY_TYPE : constant CORBA.PolicyType := 
      Tgx_PRIVATE_CONNECTION_POLICY_TYPE ;

   type PriorityBand is
   record
      low : Priority;
      high : Priority;
   end record;

   for PriorityBand use
   record
      low at 0 range 0 .. 15 ;
      high at 0 range 16 .. 31 ;
   end record ;

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

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

   package Idl_Sequence_PriorityBand is new Corba.Sequences.Unbounded (
      PriorityBand);

   type PriorityBands is new Idl_Sequence_PriorityBand.Sequence ;
   Null_PriorityBands : constant PriorityBands :=
      PriorityBands (Idl_Sequence_PriorityBand.Null_Sequence) ;

   Tgx_PRIORITY_BANDED_CONNECTION_POLICY_TYPE : constant  :=  45 ;
   PRIORITY_BANDED_CONNECTION_POLICY_TYPE : constant CORBA.PolicyType := 
      Tgx_PRIORITY_BANDED_CONNECTION_POLICY_TYPE ;

end RTCORBA;