Specification of package Cosnaming.Namingcontextext

 ==================================================== --
 ===  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 Cosnaming.Namingcontext ;
pragma Elaborate_All (Corba.Object) ;
package CosNaming.NamingContextExt is

   type Ref is new CosNaming.NamingContext.Ref with null record;


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

   type StringName is new Corba.String;

   type Address is new Corba.String;

   type URLString is new Corba.String;

   function to_string
      (Self : in Ref;
       n : in CosNaming.Name)
      return StringName ;

   function to_name
      (Self : in Ref;
       sn : in StringName)
      return CosNaming.Name ;

   InvalidAddress : exception;
   type InvalidAddress_Members is new Corba.Idl_Exception_Members with null
      record;

   InvalidAddress_Id : constant Corba.RepositoryId := Corba.To_Unbounded_String
   ("IDL:omg.org/CosNaming/NamingContextExt/InvalidAddress:1.0") ;

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

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

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

   function to_url
      (Self : in Ref;
       addr : in Address;
       sn : in StringName)
      return URLString ;

   function resolve_str
      (Self : in Ref;
       n : in StringName)
      return Corba.Object.Ref ;

   Null_Ref : constant Ref := (CosNaming.NamingContext
      .Null_Ref with null record);

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

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

   type Tgx_to_string_Ptr is access function
      (Self : in Ref;
       n : in CosNaming.Name)
      return StringName;

   Tgx_to_string_Caller : Tgx_to_string_Ptr ;

   type Tgx_to_name_Ptr is access function
      (Self : in Ref;
       sn : in StringName)
      return CosNaming.Name;

   Tgx_to_name_Caller : Tgx_to_name_Ptr ;

   type Tgx_to_url_Ptr is access function
      (Self : in Ref;
       addr : in Address;
       sn : in StringName)
      return URLString;

   Tgx_to_url_Caller : Tgx_to_url_Ptr ;

   type Tgx_resolve_str_Ptr is access function
      (Self : in Ref;
       n : in StringName)
      return Corba.Object.Ref;

   Tgx_resolve_str_Caller : Tgx_resolve_str_Ptr ;
end CosNaming.NamingContextExt;