Specification of package Cosnaming.Namingcontext

 ==================================================== --
 ===  Code automatically generated by IDL to Ada  === --
 ===  compiler OrbAda-idl2ada                     === --
 ===  Copyright Top Graph'X  1997-2005            === --
 ==================================================== --
 From IDL file /home/Jean/CVS/OrbAda/Idl/Idl/CosNaming.idl
with Corba_Ios ;
with Corba.Object ;
with Ada.Exceptions ;
with Bindingiterator_Forward ;
pragma Elaborate_All (Corba.Object) ;
package CosNaming.NamingContext is

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


   ------------------------------
    Methods of this interface  --
   ------------------------------

   type NotFoundReason is
     ( missing_node, not_context, not_object);
   for NotFoundReason'size use 32 ;

   procedure Iop_Read
      ( Stream : access Corba_Ios.Iop_Stream_Type;
        Tgx_Item   : out NotFoundReason);

   procedure Iop_Write
      ( Stream : access Corba_Ios.Iop_Stream_Type;
        Tgx_Item   : in NotFoundReason);

   NotFound : exception;

   type NotFound_Members is new Corba.Idl_Exception_Members with 
   record
      why : NotFoundReason;
      rest_of_name : CosNaming.Name;
   end record;

   NotFound_Id : constant Corba.RepositoryId := Corba.To_Unbounded_String
   ("IDL:omg.org/CosNaming/NamingContext/NotFound:1.0") ;

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

   procedure Iop_Read
      ( Stream : access Corba_Ios.Iop_Stream_Type ;
        Tgx_Item   : out NotFound_Members) ;

   procedure Iop_Write
      ( Stream : access Corba_Ios.Iop_Stream_Type ;
        Tgx_Item   : in NotFound_Members) ;

   CannotProceed : exception;

   type CannotProceed_Members is new Corba.Idl_Exception_Members with 
   record
      cxt : Ref;
      rest_of_name : CosNaming.Name;
   end record;

   CannotProceed_Id : constant Corba.RepositoryId := Corba.To_Unbounded_String
   ("IDL:omg.org/CosNaming/NamingContext/CannotProceed:1.0") ;

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

   procedure Iop_Read
      ( Stream : access Corba_Ios.Iop_Stream_Type ;
        Tgx_Item   : out CannotProceed_Members) ;

   procedure Iop_Write
      ( Stream : access Corba_Ios.Iop_Stream_Type ;
        Tgx_Item   : in CannotProceed_Members) ;

   InvalidName : exception;
   type InvalidName_Members is new Corba.Idl_Exception_Members with null record;

   InvalidName_Id : constant Corba.RepositoryId := Corba.To_Unbounded_String
   ("IDL:omg.org/CosNaming/NamingContext/InvalidName:1.0") ;

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

   procedure Iop_Read
      ( Stream : access Corba_Ios.Iop_Stream_Type ;
        Tgx_Item   : out InvalidName_Members) ;

   procedure Iop_Write
      ( Stream : access Corba_Ios.Iop_Stream_Type ;
        Tgx_Item   : in InvalidName_Members) ;

   AlreadyBound : exception;
   type AlreadyBound_Members is new Corba.Idl_Exception_Members with null
      record;

   AlreadyBound_Id : constant Corba.RepositoryId := Corba.To_Unbounded_String
   ("IDL:omg.org/CosNaming/NamingContext/AlreadyBound:1.0") ;

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

   procedure Iop_Read
      ( Stream : access Corba_Ios.Iop_Stream_Type ;
        Tgx_Item   : out AlreadyBound_Members) ;

   procedure Iop_Write
      ( Stream : access Corba_Ios.Iop_Stream_Type ;
        Tgx_Item   : in AlreadyBound_Members) ;

   NotEmpty : exception;
   type NotEmpty_Members is new Corba.Idl_Exception_Members with null record;

   NotEmpty_Id : constant Corba.RepositoryId := Corba.To_Unbounded_String
   ("IDL:omg.org/CosNaming/NamingContext/NotEmpty:1.0") ;

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

   procedure Iop_Read
      ( Stream : access Corba_Ios.Iop_Stream_Type ;
        Tgx_Item   : out NotEmpty_Members) ;

   procedure Iop_Write
      ( Stream : access Corba_Ios.Iop_Stream_Type ;
        Tgx_Item   : in NotEmpty_Members) ;

   procedure bind
      (Self : in Ref;
       n : in CosNaming.Name;
       obj : in Corba.Object.Ref) ;

   procedure rebind
      (Self : in Ref;
       n : in CosNaming.Name;
       obj : in Corba.Object.Ref) ;

   procedure bind_context
      (Self : in Ref;
       n : in CosNaming.Name;
       nc : in Ref'class) ;

   procedure rebind_context
      (Self : in Ref;
       n : in CosNaming.Name;
       nc : in Ref'class) ;

   function resolve
      (Self : in Ref;
       n : in CosNaming.Name)
      return Corba.Object.Ref ;

   procedure unbind
      (Self : in Ref;
       n : in CosNaming.Name) ;

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

   function bind_new_context
      (Self : in Ref;
       n : in CosNaming.Name)
      return Ref'class ;

   procedure destroy
      (Self : in Ref) ;

   procedure list
      (Self : in Ref;
       how_many : in Corba.Unsigned_Long;
       bl : out CosNaming.BindingList;
       bi : out BindingIterator_Forward.Ref) ;

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

   Tgx_Service_Name : Corba.ObjectId := Corba.To_Corba_String
      ("NameService") ;

   NamingContext_R_Id : constant Corba.RepositoryId :=
      Corba.To_Corba_String ("IDL:omg.org/CosNaming/NamingContext:1.0") ;
private
    Collocated calls profiles and callers

   type Tgx_bind_Ptr is access procedure
      (Self : in Ref;
       n : in CosNaming.Name;
       obj : in Corba.Object.Ref);

   Tgx_bind_Caller : Tgx_bind_Ptr ;

   type Tgx_rebind_Ptr is access procedure
      (Self : in Ref;
       n : in CosNaming.Name;
       obj : in Corba.Object.Ref);

   Tgx_rebind_Caller : Tgx_rebind_Ptr ;

   type Tgx_bind_context_Ptr is access procedure
      (Self : in Ref;
       n : in CosNaming.Name;
       nc : in Ref'class);

   Tgx_bind_context_Caller : Tgx_bind_context_Ptr ;

   type Tgx_rebind_context_Ptr is access procedure
      (Self : in Ref;
       n : in CosNaming.Name;
       nc : in Ref'class);

   Tgx_rebind_context_Caller : Tgx_rebind_context_Ptr ;

   type Tgx_resolve_Ptr is access function
      (Self : in Ref;
       n : in CosNaming.Name)
      return Corba.Object.Ref;

   Tgx_resolve_Caller : Tgx_resolve_Ptr ;

   type Tgx_unbind_Ptr is access procedure
      (Self : in Ref;
       n : in CosNaming.Name);

   Tgx_unbind_Caller : Tgx_unbind_Ptr ;

   type Tgx_new_context_Ptr is access function
      (Self : in Ref)
      return Ref'class;

   Tgx_new_context_Caller : Tgx_new_context_Ptr ;

   type Tgx_bind_new_context_Ptr is access function
      (Self : in Ref;
       n : in CosNaming.Name)
      return Ref'class;

   Tgx_bind_new_context_Caller : Tgx_bind_new_context_Ptr ;

   type Tgx_destroy_Ptr is access procedure
      (Self : in Ref);

   Tgx_destroy_Caller : Tgx_destroy_Ptr ;

   type Tgx_list_Ptr is access procedure
      (Self : in Ref;
       how_many : in Corba.Unsigned_Long;
       bl : out CosNaming.BindingList;
       bi : out BindingIterator_Forward.Ref);

   Tgx_list_Caller : Tgx_list_Ptr ;
end CosNaming.NamingContext;