Specification of package Corba.Implementation_Repository

 ==================================================== --
 ===  Code automatically generated by IDL to Ada  === --
 ===  compiler OrbAda-idl2ada                     === --
 ===  Copyright Top Graph'X  1997-2000            === --
 ==================================================== --
with Corba_Ios ;
with Corba.Object ;
with Corba.Sequences ;
with Corba.Implementationdef ;
pragma Elaborate_All (Corba.Object) ;
package CORBA.Implementation_Repository is

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


   use CORBA.ImplementationDef ;
   package Idl_Sequence_ImplementationDef is new Corba.Sequences.Unbounded (
      CORBA.ImplementationDef.Ref);

   type Implementations is new Idl_Sequence_ImplementationDef.Sequence ;
   Null_Implementations : constant Implementations :=
      Implementations (Idl_Sequence_ImplementationDef.Null_Sequence) ;

   procedure Register
      ( Self : in Ref;
        Name : in CORBA.ObjectId;
        Server : in Corba.String;
        Host : in Corba.String;
        Activation : in CORBA.ImplementationDef.Activation_Policy;
        Root_Interface : in CORBA.RepositoryId;
        Implementation : out CORBA.ImplementationDef.Ref) ;

   procedure Server_Is_Ready
      ( Self : in Ref;
        Name : in CORBA.ObjectId;
        Root_Ref : in Corba.Object.Ref) ;

   procedure Server_Terminated
      ( Self : in Ref;
        Name : in CORBA.ObjectId;
        Root_Ref : in Corba.Object.Ref) ;

   procedure Get_Implementation
      ( Self : in Ref;
        Name : in CORBA.ObjectId;
        Server : in Corba.String;
        Host : in Corba.String;
        Implementation : out CORBA.ImplementationDef.Ref) ;

   procedure Get_Implementations
      ( Self : in Ref;
        Implements : in Corba.Object.Ref;
        Impl_List : out Implementations) ;

   procedure Get_All_Implementations
      ( Self : in Ref;
        Impl_List : out Implementations) ;

   procedure Remove
      ( Self : in Ref;
        Implementation : in out CORBA.ImplementationDef.Ref) ;

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

   Tgx_Service_Name : Corba.ObjectId := Corba.To_Unbounded_String
      ("ImplementationRepository") ;

   Implementation_Repository_R_Id : constant Corba.RepositoryId :=
      Corba.To_Unbounded_String ("IDL:CORBA/Implementation_Repository:1.0") ;
private
    Collocated calls profiles and callers

   type Tgx_Register_Ptr is access procedure
      ( Self : in Ref;
        Name : in CORBA.ObjectId;
        Server : in Corba.String;
        Host : in Corba.String;
        Activation : in CORBA.ImplementationDef.Activation_Policy;
        Root_Interface : in CORBA.RepositoryId;
        Implementation : out CORBA.ImplementationDef.Ref);

   Tgx_Register_Caller : Tgx_Register_Ptr ;

   type Tgx_Server_Is_Ready_Ptr is access procedure
      ( Self : in Ref;
        Name : in CORBA.ObjectId;
        Root_Ref : in Corba.Object.Ref);

   Tgx_Server_Is_Ready_Caller : Tgx_Server_Is_Ready_Ptr ;

   type Tgx_Server_Terminated_Ptr is access procedure
      ( Self : in Ref;
        Name : in CORBA.ObjectId;
        Root_Ref : in Corba.Object.Ref);

   Tgx_Server_Terminated_Caller : Tgx_Server_Terminated_Ptr ;

   type Tgx_Get_Implementation_Ptr is access procedure
      ( Self : in Ref;
        Name : in CORBA.ObjectId;
        Server : in Corba.String;
        Host : in Corba.String;
        Implementation : out CORBA.ImplementationDef.Ref);

   Tgx_Get_Implementation_Caller : Tgx_Get_Implementation_Ptr ;

   type Tgx_Get_Implementations_Ptr is access procedure
      ( Self : in Ref;
        Implements : in Corba.Object.Ref;
        Impl_List : out Implementations);

   Tgx_Get_Implementations_Caller : Tgx_Get_Implementations_Ptr ;

   type Tgx_Get_All_Implementations_Ptr is access procedure
      ( Self : in Ref;
        Impl_List : out Implementations);

   Tgx_Get_All_Implementations_Caller : Tgx_Get_All_Implementations_Ptr ;

   type Tgx_Remove_Ptr is access procedure
      ( Self : in Ref;
        Implementation : in out CORBA.ImplementationDef.Ref);

   Tgx_Remove_Caller : Tgx_Remove_Ptr ;
end CORBA.Implementation_Repository;