Specification of package Corba.Implementationdef

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

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


   type Activation_Policy is
     ( Shared_Server, Unshared_Server, Server_Per_Method, Persistent_Server);
   for Activation_Policy'size use 32 ;

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

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

   function Get_Active
      (Self : in Ref) return Corba.Boolean;

   procedure Set_Active
      (Self : in Ref;
       To : in Corba.Boolean);

   function Get_Running
      (Self : in Ref) return Corba.Boolean;

   function Get_Name
      (Self : in Ref) return CORBA.ObjectId;

   function Get_Server
      (Self : in Ref) return Corba.String;

   function Get_Host
      (Self : in Ref) return Corba.String;

   function Get_Activation
      (Self : in Ref) return Activation_Policy;

   function Get_Root_Type_Id
      (Self : in Ref) return CORBA.RepositoryId;

   function Get_Root_Interface
      (Self : in Ref) return Corba.Object.Ref;

   function Get_Root_Object
      (Self : in Ref) return Corba.Object.Ref;

   procedure Set_Root_Object
      (Self : in Ref;
       To : in Corba.Object.Ref);

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

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

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

   type Tgx_Get_Active_Ptr is access function
      (Self : in Ref) return Corba.Boolean;

   Tgx_Get_Active_Caller : Tgx_Get_Active_Ptr ;

   type Tgx_Set_Active_Ptr is access procedure
      (Self : in Ref;
       To : in Corba.Boolean);

   Tgx_Set_Active_Caller : Tgx_Set_Active_Ptr ;

   type Tgx_Get_Running_Ptr is access function
      (Self : in Ref) return Corba.Boolean;

   Tgx_Get_Running_Caller : Tgx_Get_Running_Ptr ;

   type Tgx_Get_Name_Ptr is access function
      (Self : in Ref) return CORBA.ObjectId;

   Tgx_Get_Name_Caller : Tgx_Get_Name_Ptr ;

   type Tgx_Get_Server_Ptr is access function
      (Self : in Ref) return Corba.String;

   Tgx_Get_Server_Caller : Tgx_Get_Server_Ptr ;

   type Tgx_Get_Host_Ptr is access function
      (Self : in Ref) return Corba.String;

   Tgx_Get_Host_Caller : Tgx_Get_Host_Ptr ;

   type Tgx_Get_Activation_Ptr is access function
      (Self : in Ref) return Activation_Policy;

   Tgx_Get_Activation_Caller : Tgx_Get_Activation_Ptr ;

   type Tgx_Get_Root_Type_Id_Ptr is access function
      (Self : in Ref) return CORBA.RepositoryId;

   Tgx_Get_Root_Type_Id_Caller : Tgx_Get_Root_Type_Id_Ptr ;

   type Tgx_Get_Root_Interface_Ptr is access function
      (Self : in Ref) return Corba.Object.Ref;

   Tgx_Get_Root_Interface_Caller : Tgx_Get_Root_Interface_Ptr ;

   type Tgx_Get_Root_Object_Ptr is access function
      (Self : in Ref) return Corba.Object.Ref;

   Tgx_Get_Root_Object_Caller : Tgx_Get_Root_Object_Ptr ;

   type Tgx_Set_Root_Object_Ptr is access procedure
      (Self : in Ref;
       To : in Corba.Object.Ref);

   Tgx_Set_Root_Object_Caller : Tgx_Set_Root_Object_Ptr ;
end CORBA.ImplementationDef;