Specification of package Corba.Custommarshal.Helper

 ==================================================== --
 ===  Code automatically generated by IDL to Ada  === --
 ===  compiler OrbAda-idl2ada                     === --
 ===  Copyright Top Graph'X  1997-2001            === --
 ==================================================== --
 From IDL file ../orb.idl
with Corba.Any_Conversion ;
package CORBA.CustomMarshal.Helper is

   Tc_CustomMarshal : constant Corba.Typecode.Object :=
      Corba.Typecode.Convert_To_Tc
       (( 29, 0, 0, 0, 72, 0, 0, 0, 1, 0, 0, 0, 36, 0, 0, 0, 73, 68, 76, 58,
          111, 109, 103, 46, 111, 114, 103, 47, 67, 79, 82, 66, 65, 47, 67,
          117, 115, 116, 111, 109, 77, 97, 114, 115, 104, 97, 108, 58, 49, 46,
          48, 0, 14, 0, 0, 0, 67, 117, 115, 116, 111, 109, 77, 97, 114, 115,
          104, 97, 108, 0, 2, 0, 0, 0, 0, 0, 0, 0, 0, 0));

   package CustomMarshal_To_Any is new Corba.Any_Conversion
      (Item_Type => CustomMarshal.Value_Ref,
       Code      => Tc_CustomMarshal) ;

   function To_Any (From : in Value_Ref) return Corba.Any renames
      CustomMarshal_To_Any.To_Any ;

   function To_Value_Ref (From : in Corba.Any) return Value_Ref renames
      CustomMarshal_To_Any.From_Any ;

   function To_CustomMarshal
      (Self : in Corba.Value.Base'class) return Value_Ref ;

end CORBA.CustomMarshal.Helper;

List of definition uses