Specification of package Names_Library

 ========================================================================= --
 ===                                                                   === --
 ===                 Top Graph'X CORBA Implementation                  === --
 ===                                                                   === --
 ===                 Copyright (c) 1996, Top Graph'X.                  === --
 ===                                                                   === --
 ===                     --- Copyright Notice ---                      === --
 ===                                                                   === --
 ===    This software is protected as an unpublished work under the    === --
 ===     Copyright Act of 1976.  All rights reserved.  Top Graph'X.    === --
 ===                                                                   === --
 ========================================================================= --
with Corba;
with CosNaming;
package Names_Library is
   
   subtype LNameComponent is CosNaming.NameComponent;
   
   subtype LName is CosNaming.Name;
   
   NotSet      : exception;
   NoComponent : exception;
   OverFlow    : exception;
   InvalidName : exception;
       
   function  Get_Id (Self : in LNameComponent) return Corba.String;
   procedure Set_Id (Self : in out LNameComponent;
                     I    : in Corba.String);
       
   function  Get_Kind (Self : in LNameComponent) return Corba.String;
   procedure Set_Kind (Self : in out LNameComponent;
                       K    : in Corba.String);
   
    No destroy because NameComponent is a controlled type
   
   procedure Insert_Component (Self : in out LName;
                               I    : in Corba.Unsigned_Long;
                               N    : in LNameComponent);
   function  Insert_Component (Self : in LName;
                               I    : in Corba.Unsigned_Long;
                               N    : in LNameComponent) return LName;
   
   function Get_Component (Self : in LName;
                           I    : in Corba.Unsigned_Long) return LNameComponent;
   
   procedure Delete_Component (Self : in out LName;
                               I    : in Corba.Unsigned_Long);
   function  Delete_Component (Self : in LName;
                               I    : in Corba.Unsigned_Long) return LName;
   
   function Equal (Self : in LName;
                   Ln   : in LName) return Boolean;
   function "=" (Self : in LName;
                 Ln   : in LName) return Boolean renames Equal;
   
   function Less_Than (Self : in LName;
                       Ln   : in LName) return Boolean;
   function "<" (Self : in LName;
                 Ln   : in LName) return Boolean renames Less_Than;
   
   function  To_Idl_Form (Self : in LName) return CosNaming.Name;
   function  From_Idl_Form (N    : in CosNaming.Name) return LName;
   procedure From_Idl_Form (Self : in out LName;
                            N    : in CosNaming.Name);
   
   
   function Create_LName return LName;
   function Create_LNameComponent return LNameComponent;
   
end Names_Library;