Specification of package Corba.Portableserver.Poa

 ========================================================================= --
 ===                                                                   === --
 ===                 Top Graph'X CORBA Implementation                  === --
 ===                                                                   === --
 ===                 Copyright (c) 2000, 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.    === --
 ===                                                                   === --
 ========================================================================= --
with System ;
with Corba.Object ;
with Corba.Policy ;
with Corba.AbstractBase ;
with Ada.Exceptions ;
with Corba.Portableserver.Poamanager ;
with Corba.Portableserver.Threadpolicy ;
with Corba.Portableserver.Lifespanpolicy ;
with Corba.Portableserver.Iduniquenesspolicy ;
with Corba.Portableserver.Idassignmentpolicy ;
with Corba.Portableserver.Implicitactivationpolicy ;
with Corba.Portableserver.Servantretentionpolicy ;
with Corba.Portableserver.Requestprocessingpolicy ;
with Corba.PortableServer.Priority_Mode_Policy ;
with Corba.PortableServer.Protocol_Policy ;
with Corba.PortableServer.Thread_Count_Policy ;
with Corba.PortableServer.Tcp_Mode_Policy ;
with Corba.PortableServer.Tcp_Port_Policy ;
with Corba.Portableserver.Adapteractivator ;
with Corba.Portableserver.Servantmanager ;
package Corba.PortableServer.POA is

   subtype Ref is Poa_Ref;

   AdapterAlreadyExists : exception;
   type AdapterAlreadyExists_Members is new Corba.Idl_Exception_Members with
      null record;

   AdapterAlreadyExists_Id : constant Corba.RepositoryId :=
      Corba.To_Unbounded_String
      ("IDL:omg.org/PortableServer/POA/AdapterAlreadyExists:1.0") ;

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

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

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

   AdapterNonExistent : exception;
   type AdapterNonExistent_Members is new Corba.Idl_Exception_Members with
      null record;

   AdapterNonExistent_Id : constant Corba.RepositoryId :=
      Corba.To_Unbounded_String
      ("IDL:omg.org/PortableServer/POA/AdapterNonExistent:1.0") ;

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

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

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

   InvalidPolicy : exception;
   type InvalidPolicy_Members is new Corba.Idl_Exception_Members with 
   record
      Index : Corba.Unsigned_Short;
   end record;

   InvalidPolicy_Id : constant Corba.RepositoryId := Corba.To_Unbounded_String
      ("IDL:omg.org/PortableServer/POA/InvalidPolicy:1.0") ;

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

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

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

   NoServant : exception;
   type NoServant_Members is new Corba.Idl_Exception_Members with null record;

   NoServant_Id : constant Corba.RepositoryId := Corba.To_Unbounded_String
      ("IDL:omg.org/PortableServer/POA/NoServant:1.0") ;

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

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

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

   ObjectAlreadyActive : exception;
   type ObjectAlreadyActive_Members is new Corba.Idl_Exception_Members with
      null record;

   ObjectAlreadyActive_Id : constant Corba.RepositoryId :=
      Corba.To_Unbounded_String
      ("IDL:omg.org/PortableServer/POA/ObjectAlreadyActive:1.0") ;

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

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

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

   ObjectNotActive : exception;
   type ObjectNotActive_Members is new Corba.Idl_Exception_Members with null
      record;

   ObjectNotActive_Id : constant Corba.RepositoryId := Corba.To_Unbounded_String
   ("IDL:omg.org/PortableServer/POA/ObjectNotActive:1.0") ;

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

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

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

   ServantAlreadyActive : exception;
   type ServantAlreadyActive_Members is new Corba.Idl_Exception_Members with
      null record;

   ServantAlreadyActive_Id : constant Corba.RepositoryId :=
      Corba.To_Unbounded_String
      ("IDL:omg.org/PortableServer/POA/ServantAlreadyActive:1.0") ;

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

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

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

   ServantNotActive : exception;
   type ServantNotActive_Members is new Corba.Idl_Exception_Members
      with null record;

   ServantNotActive_Id : constant Corba.RepositoryId :=
      Corba.To_Unbounded_String
      ("IDL:omg.org/PortableServer/POA/ServantNotActive:1.0") ;

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

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

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

   WrongAdapter : exception;
   type WrongAdapter_Members is new Corba.Idl_Exception_Members
      with null record;

   WrongAdapter_Id : constant Corba.RepositoryId := Corba.To_Unbounded_String
      ("IDL:omg.org/PortableServer/POA/WrongAdapter:1.0") ;

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

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

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

   WrongPolicy : exception;
   type WrongPolicy_Members is new Corba.Idl_Exception_Members with null record;

   WrongPolicy_Id : constant Corba.RepositoryId := Corba.To_Unbounded_String
      ("IDL:omg.org/PortableServer/POA/WrongPolicy:1.0") ;

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

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

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

   function Create_POA
      ( Self : in Ref;
        Adapter_Name : in Standard.String;
        A_POAManager : in PortableServer.POAManager.Ref;
        Policies : in Corba.Policy.PolicyList) return Ref'class ;

   function Find_POA
      ( Self : in Ref;
        Adapter_Name : in Standard.String;
        Activate_It : in Corba.Boolean) return Ref'class ;

   procedure Destroy
      ( Self : in Ref;
        Etherealize_Objects : in Corba.Boolean;
        Wait_For_Completion : in Corba.Boolean) ;

   function Create_Thread_Policy
      ( Self : in Ref;
        Value : in Corba.PortableServer.ThreadPolicyValue)
      return Corba.PortableServer.ThreadPolicy.Ref ;

   function Create_Lifespan_Policy
      ( Self : in Ref;
        Value : in Corba.PortableServer.LifespanPolicyValue)
      return Corba.PortableServer.LifespanPolicy.Ref ;

   function Create_Id_Uniqueness_Policy
      ( Self : in Ref;
        Value : in Corba.PortableServer.IdUniquenessPolicyValue)
      return Corba.PortableServer.IdUniquenessPolicy.Ref ;

   function Create_Id_Assignment_Policy
      ( Self : in Ref;
        Value : in Corba.PortableServer.IdAssignmentPolicyValue)
      return Corba.PortableServer.IdAssignmentPolicy.Ref ;

   function Create_Implicit_Activation_Policy
      ( Self : in Ref;
        Value : in Corba.PortableServer.ImplicitActivationPolicyValue)
      return Corba.PortableServer.ImplicitActivationPolicy.Ref ;

   function Create_Servant_Retention_Policy
      ( Self : in Ref;
        Value : in Corba.PortableServer.ServantRetentionPolicyValue)
      return Corba.PortableServer.ServantRetentionPolicy.Ref ;

   function Create_Request_Processing_Policy
      ( Self : in Ref;
        Value : in Corba.PortableServer.RequestProcessingPolicyValue)
      return Corba.PortableServer.RequestProcessingPolicy.Ref ;

   function Create_Priority_Mode_Policy
      ( Self : in Ref;
        Value : in Corba.PortableServer.Priority_Mode_Policy_Value)
      return Corba.PortableServer.Priority_Mode_Policy.Ref ;

   function Create_Thread_Count_Policy
      ( Self : in Ref;
        Value : in Corba.PortableServer.Thread_Counter)
      return Corba.PortableServer.Thread_Count_Policy.Ref ;

   function Create_Tcp_Mode_Policy
      ( Self : in Ref;
        Value : in Corba.PortableServer.TCP_Mode_Policy_Value)
      return Corba.PortableServer.Tcp_Mode_Policy.Ref ;

   function Create_Tcp_Port_Policy
      ( Self : in Ref;
        Value : in Corba.Unsigned_Short)
      return Corba.PortableServer.Tcp_Port_Policy.Ref ;

   function Create_Protocol_Policy
      ( Self : in Ref;
        Value : in Corba.String)
      return Corba.PortableServer.Protocol_Policy.Ref ;

   function Get_The_Name
      (Self : in Ref) return Standard.String;

   function Get_The_Parent
      (Self : in Ref) return Ref'class;

   function Get_The_Children
      (Self : in Ref) return Corba.PortableServer.POAList;

   function Get_The_POAManager
      (Self : in Ref) return Corba.PortableServer.POAManager.Ref;

   function Get_The_Activator
      (Self : in Ref) return Corba.PortableServer.AdapterActivator.Ref;

   procedure Set_the_activator
      (Self : in out Ref;
       To   : in Corba.PortableServer.AdapterActivator.Ref);

   procedure Get_Servant_Manager
      ( Self : in Ref ;
        Imgr : in out Corba.PortableServer.ServantManager.Ref'class) ;

   procedure Set_Servant_Manager
      ( Self : in Ref;
        Imgr : in Corba.PortableServer.ServantManager.Ref'class) ;

   function Get_Servant ( Self : in Ref) return Servant ;

   procedure Set_Servant
      ( Self      : in Ref;
        P_Servant : in Servant) ;

   function Activate_Object
      ( Self      : in Ref;
        P_Servant : in Servant) return Corba.PortableServer.ObjectId ;

   procedure Activate_Object_With_Id
      ( Self      : in Ref;
        Id        : in Corba.PortableServer.ObjectId;
        P_Servant : in Servant) ;

   procedure Deactivate_Object
      ( Self : in Ref;
        Oid  : in Corba.PortableServer.ObjectId) ;

   function Create_Reference
      ( Self : in Ref;
        Intf : in Corba.RepositoryId) return Corba.Object.Ref ;

   TGX: procedural version is simpler to use and faster
   procedure Create_Reference
      ( Self   : in Ref;
        Intf   : in Corba.RepositoryId ;
        Result : in out Corba.Object.Ref'class) ;

   function Create_Reference_With_Id
      ( Self : in Ref;
        Oid  : in Corba.PortableServer.ObjectId;
        Intf : in Corba.RepositoryId) return Corba.Object.Ref ;

   TGX: procedural version is simpler to use and faster
   procedure Create_Reference_With_Id
      ( Self   : in Ref;
        Oid    : in Corba.PortableServer.ObjectId;
        Intf   : in Corba.RepositoryId ;
        Result : in out Corba.Object.Ref'class) ;

   function Servant_To_Id
      ( Self      : in Ref;
        P_Servant : in Servant) return Corba.PortableServer.ObjectId ;

   function Servant_To_Reference
      ( Self      : in Ref;
        P_Servant : in Servant) return Corba.Object.Ref ;

   TGX: procedural version is simpler to use and faster
   procedure Servant_To_Reference
      ( Self      : in Ref;
        P_Servant : in Servant ;
        Result    : in out Corba.Object.Ref'class) ;

   function Reference_To_Servant
      ( Self      : in Ref;
        Reference : in Corba.Object.Ref'class) return Servant ;

   function Reference_To_Id
      ( Self      : in Ref;
        Reference : in Corba.Object.Ref'class)
      return Corba.PortableServer.ObjectId ;

   function Id_To_Servant
      ( Self : in Ref;
        Oid  : in Corba.PortableServer.ObjectId) return Servant ;

   function Id_To_Reference
      ( Self : in Ref;
        Oid  : in Corba.PortableServer.ObjectId) return Corba.Object.Ref ;

   TGX: procedural version is simpler to use and faster
   procedure Id_To_Reference
      ( Self   : in Ref;
        Oid    : in Corba.PortableServer.ObjectId ;
        Result : in out Corba.Object.Ref'class) ;

   function Get_Priority
      ( Self :in Ref) return System.Priority ;

   procedure Set_Priority
      ( Self     : in Ref;
        Priority : in System.Priority) ;

   --------------------
    Methods for MIOP --
   --------------------

   function create_id_for_reference
      ( Self : in Ref;
        the_ref : in Corba.Object.Ref)
      return Corba.PortableServer.ObjectId ;

   function reference_to_ids
      ( Self : in Ref;
        the_ref : in Corba.Object.Ref)
      return Corba.PortableServer.IDs ;

   procedure associate_reference_with_id
      ( Self : in Ref;
        ref : in Corba.Object.Ref;
        oid : in Corba.PortableServer.ObjectId) ;

   procedure disassociate_reference_with_id
      ( Self : in Ref;
        ref : in Corba.Object.Ref;
        oid : in Corba.PortableServer.ObjectId) ;

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

end Corba.PortableServer.POA;