Specification of package Corba.Nvlist

 ========================================================================= --
 ===                                                                   === --
 ===                 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 Ada.Finalization ;
package Corba.Nvlist is
   type Object is private;
   I Status add_item ( 
   I     in Identifier item_name, // name of item
   I     in TypeCode item_type, // item datatype
   I in void *value, // item value
   I in long value_len, // length of item value
   I in Flags item_flags // item flags
   I );
   procedure Add_Item ( Self       : in out Object;
                        Item_Name  : in Identifier;
                        Item       : in Any;
                        Item_Flags : in Flags;
                        Result     : out Status);

   procedure Add_Item ( Self   : in out Object;
                        Item   : in Namedvalue;
                        Result : out Status);
   I Status free ( );  -- unneeded
   I Status free_memory ( ); -- unneeded
   I Status get_count ( 
   I     out long count     // number of entries in the list
   I );
   procedure Get_Count ( Self   : in Object;
                         Count  : out Corba.Long;
                         Result : out Status);
   I };

   procedure Create_List ( Count    : in Corba.Long;
                           New_List : out Corba.Nvlist.Object) ;

private
   type NamedValue_Array is array (Positive range <>) of Corba.NamedValue ;
   type NamedValue_Table (Length : Natural) is
   record
      Ref_Count : Natural := 1 ;
      Values    : NamedValue_Array (1 .. Length) ;
   end record ;

   type NamedValue_List is access all NamedValue_Table ;
   type Object is new Ada.Finalization.Controlled with
   record
      Used : Natural ;
      List : NamedValue_List ;
   end record ;
   procedure Adjust (Object : in out Corba.Nvlist.Object) ;
   procedure Finalize (Object : in out Corba.Nvlist.Object) ;
end Corba.Nvlist;