Specification of package Messaging.Exceptionholder.Helper

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

   Tc_ExceptionHolder : constant Corba.Typecode.Object :=
      Corba.Typecode.Convert_To_Tc
       (( 29, 0, 0, 0, 178, 0, 0, 0, 1, 0, 0, 0, 34, 0, 0, 0, 73, 68, 76, 58,
          77, 101, 115, 115, 97, 103, 105, 110, 103, 47, 69, 120, 99, 101,
          112, 116, 105, 111, 110, 72, 111, 108, 100, 101, 114, 58, 49, 46,
          48, 0, 0, 0, 16, 0, 0, 0, 69, 120, 99, 101, 112, 116, 105, 111, 110,
          72, 111, 108, 100, 101, 114, 0, 0, 0, 0, 0, 0, 0, 0, 0, 3, 0, 0, 0,
          20, 0, 0, 0, 105, 115, 95, 115, 121, 115, 116, 101, 109, 95, 101,
          120, 99, 101, 112, 116, 105, 111, 110, 0, 8, 0, 0, 0, 0, 0, 0, 0,
          11, 0, 0, 0, 98, 121, 116, 101, 95, 111, 114, 100, 101, 114, 0, 0, 8,
          0, 0, 0, 0, 0, 0, 0, 20, 0, 0, 0, 109, 97, 114, 115, 104, 97, 108,
          101, 100, 95, 101, 120, 99, 101, 112, 116, 105, 111, 110, 0, 19, 0, 0
         , 0, 12, 0, 0, 0, 1, 0, 0, 0, 10, 0, 0, 0, 0, 0, 0, 0, 0, 0));

   package ExceptionHolder_To_Any is new Corba.Any_Conversion
      (Item_Type => ExceptionHolder.Value_Ref, Code => Tc_ExceptionHolder) ;

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

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

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

end Messaging.ExceptionHolder.Helper;

List of definition uses