Specification of package Corba.Context

 ========================================================================= --
 ===                                                                   === --
 ===                 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.Nvlist;
with Ada.Finalization ;
package Corba.Context is
   type Object is tagged private;

   I Status set_one_value ( 
   I     in Identifier prop_name,   // property name to add
   I     in string value      // property value to add
   I );
   procedure Set_One_Value (Self : in out Object;
                             Prop_Name : in Identifier;
                             Value : in Corba.String;
                             Result : out Status);
   I Status set_values ( 
   I     in NVList values       // property values to be changed
   I );
   procedure Set_Values ( Self : access Object;
                          Values : in Corba.Nvlist.Object;
                          Result : out Status);
   I Status get_values ( 
   I     in Identifier start_scope, // search scope
   I     in Flags op_flags,    // operation flags
   I     in Identifier prop_name,   // name of property( s) to retrieve
   I     out NVList values     // requested property( s)
   I );
   procedure Get_Values (Self : in out Object;
                          Start_Scope : in Identifier;
                          Op_Flags : in Flags;
                          Prop_Name : in Identifier;
                          Values : out Corba.Nvlist.Object;
                          Result : out Status);
   I Status delete_values ( 
   I     in Identifier prop_name    // name of property( s) to delete
   I );
   procedure Delete_Values (Self : in out Object;
                             Prop_Name : in Identifier;
                             Result : out Status);
   I Status create_child ( 
   I     in Identifier ctx_name,    // name of context object
   I     out Context child_ctx    // newly created context object
   I );
   procedure Create_Child (Self : in out Object;
                            Ctx_Name : in Identifier;
                            Child_Ctx : out Object;
                            Result : out Status);
   I Status delete ( 
   I     in Flags del_flags    // flags controlling deletion
   I );
   I     };
   TGX: Delete do nothing to avoid dangling references
   TGX: the memory will be automatically deallocated when
   RGX: the object is no longer referenced
   procedure Delete (Self : in out Object;
                      Del_Flags : in Flags;
                      Result : out Status);

   TGX: Add a procedure to easily build a context for a request
   procedure Get_Values ( Self        : in Object;
                          Start_Scope : in Identifier;
                          Op_Flags    : in Flags;
                          Prop_Name   : in Identifier;
                          Values      : in out Object) ;

   procedure Iop_Read
      ( Stream : access Corba_Ios.Iop_Stream_Type ;
        Item   : out Object ) ;

   procedure Iop_Write
      ( Stream : access Corba_Ios.Iop_Stream_Type ;
        Item   : in Object ) ;
private
   type Context_Body ;
   type Context_Body_Access is access all Context_Body ;

   type Object is new Ada.Finalization.Controlled with
   record
      Own : Context_Body_Access ;
   end record ;

   procedure Adjust (Self : in out Object) ;

   procedure Finalize (Self : in out Object) ;
end Corba.Context;