Specification of generic package Corba.Any_Conversion

 ========================================================================= --
 ===                                                                   === --
 ===                 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_Ios ;
generic
    Item_Type should only contain Corba elementary types or
    types build from Corba elementary types
   type Item_Type is private ;
    Typecode to put or verify
   Code : in Corba.Typecode.Object ;
   with procedure Iop_Read ( Stream : access Corba_Ios.Iop_Stream_Type ;
                             Item   : out Item_Type ) is <> ;
   with procedure Iop_Write ( Stream : access Corba_Ios.Iop_Stream_Type ;
                              Item   : in Item_Type ) is <> ;
package Corba.Any_Conversion is
   procedure To_Any ( Item   : in Item_Type ;
                      Result : in out Any) ;
   function To_Any (Item : in Item_Type) return Any ;
    Type_Of (From) must be Code else Badkind will be raised.
   procedure From_Any ( From   : in Any ;
                        Result : in out Item_Type) ;
   function From_Any (From : in Any) return Item_Type ;
end Corba.Any_Conversion ;

List of definition uses