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 CORBA.Object;
with PolyORB.Std;
with CORBA;
pragma Elaborate_All (CORBA);

package CosNaming.BindingIterator is

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

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

   procedure next_one
     (Self : Ref;
      b : out CosNaming.Binding;
      Returns : out CORBA.Boolean);

   next_one_Repository_Id : constant PolyORB.Std.String :=
     "IDL:omg.org/CosNaming/BindingIterator/next_one:1.0";

   procedure next_n
     (Self : Ref;
      how_many : CORBA.Unsigned_Long;
      bl : out CosNaming.BindingList;
      Returns : out CORBA.Boolean);

   next_n_Repository_Id : constant PolyORB.Std.String :=
     "IDL:omg.org/CosNaming/BindingIterator/next_n:1.0";

   procedure destroy
     (Self : Ref);

   destroy_Repository_Id : constant PolyORB.Std.String :=
     "IDL:omg.org/CosNaming/BindingIterator/destroy:1.0";

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

   package Convert_Forward is
     new CosNaming.BindingIterator_Forward.Convert
        (Ref);

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

end CosNaming.BindingIterator;
