Specification of package Corba.Abstractbase

 ========================================================================= --
 ===                                                                   === --
 ===                 Top Graph'X CORBA Implementation                  === --
 ===                                                                   === --
 ===                 Copyright (c) 2000, 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 ;
with Corba.Impl ;
with Corba_Ios ;
with Corba.Iop ;
package Corba.AbstractBase is


   type Ref is new Corba.Impl.Controller with
   record
      Location : Corba.Iop.Impl_Location := Corba.Iop.Local ;
      IOP      : Corba.Iop.IOR_Info_Ptr ;  access to "by reference" information if any
   end record;
   pragma Finalize_Storage_Only (Ref) ;

    =============================================================== --
    The following primitives are reserved by the implementation to
    ensure the "Controlled" behavior
    They must not be directly called by the application code
   procedure Initialize (The_Ref : in out Ref);

   procedure Adjust (The_Ref : in out Ref);

   procedure Finalize (The_Ref : in out Ref);

    End of "Controlled" primitives
    =============================================================== --

   function Is_Nil (Self : in Ref) return Boolean;

   function Is_Null (Self : in Ref) return Boolean renames Is_Nil;

   TGX: Duplicate is to be replaced by assignment

   procedure Release (Self : in out Ref) ;  Equivalent to: Self := Null_Ref ;

   function Object_Of (Self : in Ref) return Corba.Impl.Object_Ptr;

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

   procedure Iop_Write
      ( Stream : access Corba_Ios.Iop_Stream_Type ;
        Item   : in Ref ) ;

   Null_Ref : constant Ref := ( Ada.Finalization.Controlled with
                                Ptr      => null,
                                Location => Corba.Iop.Local,
                                IOP      => null) ;

end Corba.AbstractBase;

List of definition uses