Specification of package Messaging

 ==================================================== --
 ===  Code automatically generated by IDL to Ada  === --
 ===  compiler OrbAda-idl2ada                     === --
 ===  Copyright Top Graph'X  1997-2001            === --
 ==================================================== --
with Corba_Ios ;
with Corba.Object ;
with Corba.Sequences ;
with Corba.Iop ;

with Corba.Idl_Sequence_Octet ;
package Messaging is

   type RebindMode is new Corba.Short;

   Tgx_TRANSPARENT : constant  :=  0 ;
   TRANSPARENT : constant RebindMode := Tgx_TRANSPARENT ;

   Tgx_NO_REBIND : constant  :=  1 ;
   NO_REBIND : constant RebindMode := Tgx_NO_REBIND ;

   Tgx_NO_RECONNECT : constant  :=  2 ;
   NO_RECONNECT : constant RebindMode := Tgx_NO_RECONNECT ;

   type SyncScope is new Corba.Short;

   Tgx_SYNC_NONE : constant  :=  0 ;
   SYNC_NONE : constant SyncScope := Tgx_SYNC_NONE ;

   Tgx_SYNC_WITH_TRANSPORT : constant  :=  1 ;
   SYNC_WITH_TRANSPORT : constant SyncScope := Tgx_SYNC_WITH_TRANSPORT ;

   Tgx_SYNC_WITH_SERVER : constant  :=  2 ;
   SYNC_WITH_SERVER : constant SyncScope := Tgx_SYNC_WITH_SERVER ;

   Tgx_SYNC_WITH_TARGET : constant  :=  3 ;
   SYNC_WITH_TARGET : constant SyncScope := Tgx_SYNC_WITH_TARGET ;

   type RoutingType is new Corba.Short;

   Tgx_ROUTE_NONE : constant  :=  0 ;
   ROUTE_NONE : constant RoutingType := Tgx_ROUTE_NONE ;

   Tgx_ROUTE_FORWARD : constant  :=  1 ;
   ROUTE_FORWARD : constant RoutingType := Tgx_ROUTE_FORWARD ;

   Tgx_ROUTE_STORE_AND_FORWARD : constant  :=  2 ;
   ROUTE_STORE_AND_FORWARD : constant RoutingType := 
      Tgx_ROUTE_STORE_AND_FORWARD ;

   type Priority is new Corba.Short;

   type Ordering is new Corba.Unsigned_Short;

   Tgx_ORDER_ANY : constant  :=  1 ;
   ORDER_ANY : constant Ordering := Tgx_ORDER_ANY ;

   Tgx_ORDER_TEMPORAL : constant  :=  2 ;
   ORDER_TEMPORAL : constant Ordering := Tgx_ORDER_TEMPORAL ;

   Tgx_ORDER_PRIORITY : constant  :=  4 ;
   ORDER_PRIORITY : constant Ordering := Tgx_ORDER_PRIORITY ;

   Tgx_ORDER_DEADLINE : constant  :=  8 ;
   ORDER_DEADLINE : constant Ordering := Tgx_ORDER_DEADLINE ;

   Tgx_REBIND_POLICY_TYPE : constant  :=  23 ;
   REBIND_POLICY_TYPE : constant CORBA.PolicyType := Tgx_REBIND_POLICY_TYPE ;

   Tgx_SYNC_SCOPE_POLICY_TYPE : constant  :=  24 ;
   SYNC_SCOPE_POLICY_TYPE : constant CORBA.PolicyType := 
      Tgx_SYNC_SCOPE_POLICY_TYPE ;

   Tgx_REQUEST_PRIORITY_POLICY_TYPE : constant  :=  25 ;
   REQUEST_PRIORITY_POLICY_TYPE : constant CORBA.PolicyType := 
      Tgx_REQUEST_PRIORITY_POLICY_TYPE ;

   type PriorityRange is
   record
      min : Priority;
      max : Priority;
   end record;

   for PriorityRange use
   record
      min at 0 range 0 .. 15 ;
      max at 0 range 16 .. 31 ;
   end record ;

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

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

   Tgx_REPLY_PRIORITY_POLICY_TYPE : constant  :=  26 ;
   REPLY_PRIORITY_POLICY_TYPE : constant CORBA.PolicyType := 
      Tgx_REPLY_PRIORITY_POLICY_TYPE ;

   Tgx_REQUEST_START_TIME_POLICY_TYPE : constant  :=  27 ;
   REQUEST_START_TIME_POLICY_TYPE : constant CORBA.PolicyType := 
      Tgx_REQUEST_START_TIME_POLICY_TYPE ;

   Tgx_REQUEST_END_TIME_POLICY_TYPE : constant  :=  28 ;
   REQUEST_END_TIME_POLICY_TYPE : constant CORBA.PolicyType := 
      Tgx_REQUEST_END_TIME_POLICY_TYPE ;

   Tgx_REPLY_START_TIME_POLICY_TYPE : constant  :=  29 ;
   REPLY_START_TIME_POLICY_TYPE : constant CORBA.PolicyType := 
      Tgx_REPLY_START_TIME_POLICY_TYPE ;

   Tgx_REPLY_END_TIME_POLICY_TYPE : constant  :=  30 ;
   REPLY_END_TIME_POLICY_TYPE : constant CORBA.PolicyType := 
      Tgx_REPLY_END_TIME_POLICY_TYPE ;

   Tgx_RELATIVE_REQ_TIMEOUT_POLICY_TYPE : constant  :=  31 ;
   RELATIVE_REQ_TIMEOUT_POLICY_TYPE : constant CORBA.PolicyType := 
      Tgx_RELATIVE_REQ_TIMEOUT_POLICY_TYPE ;

   Tgx_RELATIVE_RT_TIMEOUT_POLICY_TYPE : constant  :=  32 ;
   RELATIVE_RT_TIMEOUT_POLICY_TYPE : constant CORBA.PolicyType := 
      Tgx_RELATIVE_RT_TIMEOUT_POLICY_TYPE ;

   Tgx_ROUTING_POLICY_TYPE : constant  :=  33 ;
   ROUTING_POLICY_TYPE : constant CORBA.PolicyType := Tgx_ROUTING_POLICY_TYPE ;

   type RoutingTypeRange is
   record
      min : RoutingType;
      max : RoutingType;
   end record;

   for RoutingTypeRange use
   record
      min at 0 range 0 .. 15 ;
      max at 0 range 16 .. 31 ;
   end record ;

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

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

   Tgx_MAX_HOPS_POLICY_TYPE : constant  :=  34 ;
   MAX_HOPS_POLICY_TYPE : constant CORBA.PolicyType := 
      Tgx_MAX_HOPS_POLICY_TYPE ;

   Tgx_QUEUE_ORDER_POLICY_TYPE : constant  :=  35 ;
   QUEUE_ORDER_POLICY_TYPE : constant CORBA.PolicyType := 
      Tgx_QUEUE_ORDER_POLICY_TYPE ;

   package Idl_Sequence_Octet renames Corba.Idl_Sequence_Octet ;

   type PolicyValue_pvalue_Sequence is new Idl_Sequence_Octet.Sequence ;
   Null_PolicyValue_pvalue : constant PolicyValue_pvalue_Sequence :=
      PolicyValue_pvalue_Sequence (Idl_Sequence_Octet.Null_Sequence) ;

   type PolicyValue is
   record
      ptype : CORBA.PolicyType;
      pvalue : PolicyValue_pvalue_Sequence;
   end record;

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

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

   package Idl_Sequence_PolicyValue is new Corba.Sequences.Unbounded
      (PolicyValue);

   type PolicyValueSeq is new Idl_Sequence_PolicyValue.Sequence ;
   Null_PolicyValueSeq : constant PolicyValueSeq :=
      PolicyValueSeq (Idl_Sequence_PolicyValue.Null_Sequence) ;

   Tgx_TAG_POLICIES : constant  :=  2 ;
   TAG_POLICIES : constant CORBA.IOP.Component_Id := Tgx_TAG_POLICIES ;

   Tgx_INVOCATION_POLICIES : constant  :=  7 ;
   INVOCATION_POLICIES : constant CORBA.IOP.Service_Id := 
      Tgx_INVOCATION_POLICIES ;

    This procedure initializes the Messaging environment
    It must be called before Corba.Orb.Orb_Init
    Sync_None_Tasks indicates the number of tasks handling the SyncNone oneway calls
    Sync_None_Priority indicates the priority of the tasks handling the SyncNone oneway calls
    Poll_Priority indicates the priority of the tasks handling the synchronous deferred replies
    Async_Priority indicates the priority of the tasks handling the asynchronous replies
    Async_Min_Tasks indicates the number of tasks pre-allocated for handling the asynchronous replies
    Async_Max_Tasks indicates the number of tasks which are allowed to persist for handling the asynchronous replies
    Async_Peak_Tasks indicates the limit number of tasks for handling the asynchronous replies, to support peaks of asynchronous demand. When the demand decreases, the extra tasks are deleted to obtain Async_Max_Tasks running tasks.
    Async_Stack_Size indicates the stack size of the tasks handling the asynchronous replies
   procedure Configure ( Sync_None_Tasks    : in Natural ;
                         Sync_None_Priority : in Priority ;
                         Poll_Priority      : in Priority ;
                         Async_Priority     : in Priority ;
                         Async_Min_Tasks    : in Natural := 0 ;
                         Async_Max_Tasks    : in Natural := 0 ;
                         Async_Peak_Tasks   : in Natural := 0 ;
                         Async_Stack_Size   : in Natural := 65_536) ;
end Messaging;