Specification of package Corba.Portableserver.Poamanager

 ========================================================================= --
 ===                                                                   === --
 ===                 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 Corba.AbstractBase ;
with Ada.Exceptions ;
package Corba.PortableServer.POAManager is

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

   AdapterInactive : exception;
   type AdapterInactive_Members is new Corba.Idl_Exception_Members with null
      record;

   AdapterInactive_Id : constant Corba.RepositoryId := Corba.To_Unbounded_String
   ("IDL:omg.org/PortableServer/POAManager/AdapterInactive:1.0") ;

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

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

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

   type State is ( Holding, Active, Discarding, Inactive);

   procedure activate ( Self : in Ref) ;

   procedure hold_requests
      ( Self : in Ref;
        wait_for_completion : in Corba.Boolean) ;

   procedure discard_requests
      ( Self : in Ref;
        wait_for_completion : in Corba.Boolean) ;

   procedure deactivate
      ( Self : in Ref;
        etherealize_objects : in Corba.Boolean;
        wait_for_completion : in Corba.Boolean) ;

   function get_state ( Self : in Ref) return State ;

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

end Corba.PortableServer.POAManager;