Specification of package Cosnaming

 ==================================================== --
 ===  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 Corba.Sequences ;
package CosNaming is

   type Istring is new Corba.String;

   type NameComponent is
   record
      id : Istring;
      kind : Istring;
   end record;

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

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

   package Idl_Sequence_NameComponent is new Corba.Sequences.Unbounded (
      NameComponent);

   type Name is new Idl_Sequence_NameComponent.Sequence ;
   Null_Name : constant Name :=
      Name (Idl_Sequence_NameComponent.Null_Sequence) ;

   type BindingType is
     ( nobject, ncontext);
   for BindingType'size use 32 ;

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

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

   type Binding is
   record
      binding_name : Name;
      binding_type : BindingType;
   end record;

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

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

   package Idl_Sequence_Binding is new Corba.Sequences.Unbounded (Binding);

   type BindingList is new Idl_Sequence_Binding.Sequence ;
   Null_BindingList : constant BindingList :=
      BindingList (Idl_Sequence_Binding.Null_Sequence) ;

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