pragma Style_Checks ("NM32766");
pragma Wide_Character_Encoding (Brackets);
pragma Warnings (Off, "use of an anonymous access type allocator");

---------------------------------------------------
--  This file has been generated automatically from
--  /pbulk/work/net/ada-polyorb/work/PolyORB-25.0/idls/cos/naming/CosNaming.idl
--  by IAC (IDL to Ada Compiler) 25.0w (rev. unknown).
---------------------------------------------------
--  NOTE: If you modify this file by hand, your
--  changes will be lost when you re-run the
--  IDL to Ada compiler.
---------------------------------------------------

with CosNaming.NamingContext;
with PolyORB.Std;
with CORBA;
pragma Elaborate_All (CORBA);
with Ada.Exceptions;
with CORBA.Object;

package CosNaming.NamingContextExt is

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

   Repository_Id : constant PolyORB.Std.String :=
     "IDL:omg.org/CosNaming/NamingContextExt:1.0";

   type StringName is
     new CORBA.String;

   StringName_Repository_Id : constant PolyORB.Std.String :=
     "IDL:omg.org/CosNaming/NamingContextExt/StringName:1.0";

   type Address is
     new CORBA.String;

   Address_Repository_Id : constant PolyORB.Std.String :=
     "IDL:omg.org/CosNaming/NamingContextExt/Address:1.0";

   type URLString is
     new CORBA.String;

   URLString_Repository_Id : constant PolyORB.Std.String :=
     "IDL:omg.org/CosNaming/NamingContextExt/URLString:1.0";

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

   to_string_Repository_Id : constant PolyORB.Std.String :=
     "IDL:omg.org/CosNaming/NamingContextExt/to_string:1.0";

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

   to_name_Repository_Id : constant PolyORB.Std.String :=
     "IDL:omg.org/CosNaming/NamingContextExt/to_name:1.0";

   InvalidAddress : exception;

   type InvalidAddress_Members is
     new CORBA.Idl_Exception_Members with null record;

   InvalidAddress_Repository_Id : constant PolyORB.Std.String :=
     "IDL:omg.org/CosNaming/NamingContextExt/InvalidAddress:1.0";

   procedure Get_Members
     (From : Ada.Exceptions.Exception_Occurrence;
      To : out CosNaming.NamingContextExt.InvalidAddress_Members);

   function to_url
     (Self : Ref;
      addr : CosNaming.NamingContextExt.Address;
      sn : CosNaming.NamingContextExt.StringName)
     return CosNaming.NamingContextExt.URLString;

   to_url_Repository_Id : constant PolyORB.Std.String :=
     "IDL:omg.org/CosNaming/NamingContextExt/to_url:1.0";

   function resolve_str
     (Self : Ref;
      sn : CosNaming.NamingContextExt.StringName)
     return CORBA.Object.Ref;

   resolve_str_Repository_Id : constant PolyORB.Std.String :=
     "IDL:omg.org/CosNaming/NamingContextExt/resolve_str:1.0";

   --  NotFoundReason : inherited from CosNaming.NamingContext

   subtype NotFoundReason is
     CosNaming.NamingContext.NotFoundReason;

   --  NotFound : inherited from CosNaming.NamingContext

   NotFound : exception
     renames CosNaming.NamingContext.NotFound;

   subtype NotFound_Members is
     CosNaming.NamingContext.NotFound_Members;

   procedure Get_Members
     (From : Ada.Exceptions.Exception_Occurrence;
      To : out CosNaming.NamingContextExt.NotFound_Members);

   --  CannotProceed : inherited from CosNaming.NamingContext

   CannotProceed : exception
     renames CosNaming.NamingContext.CannotProceed;

   subtype CannotProceed_Members is
     CosNaming.NamingContext.CannotProceed_Members;

   procedure Get_Members
     (From : Ada.Exceptions.Exception_Occurrence;
      To : out CosNaming.NamingContextExt.CannotProceed_Members);

   --  InvalidName : inherited from CosNaming.NamingContext

   InvalidName : exception
     renames CosNaming.NamingContext.InvalidName;

   subtype InvalidName_Members is
     CosNaming.NamingContext.InvalidName_Members;

   procedure Get_Members
     (From : Ada.Exceptions.Exception_Occurrence;
      To : out CosNaming.NamingContextExt.InvalidName_Members);

   --  AlreadyBound : inherited from CosNaming.NamingContext

   AlreadyBound : exception
     renames CosNaming.NamingContext.AlreadyBound;

   subtype AlreadyBound_Members is
     CosNaming.NamingContext.AlreadyBound_Members;

   procedure Get_Members
     (From : Ada.Exceptions.Exception_Occurrence;
      To : out CosNaming.NamingContextExt.AlreadyBound_Members);

   --  NotEmpty : inherited from CosNaming.NamingContext

   NotEmpty : exception
     renames CosNaming.NamingContext.NotEmpty;

   subtype NotEmpty_Members is
     CosNaming.NamingContext.NotEmpty_Members;

   procedure Get_Members
     (From : Ada.Exceptions.Exception_Occurrence;
      To : out CosNaming.NamingContextExt.NotEmpty_Members);

   function Is_A
     (Self : Ref;
      Logical_Type_Id : PolyORB.Std.String)
     return CORBA.Boolean;

private
   function Is_A
     (Logical_Type_Id : PolyORB.Std.String)
     return CORBA.Boolean;

end CosNaming.NamingContextExt;
