Specification of package Corba.Implementationdef.Helper

 ==================================================== --
 ===  Code automatically generated by IDL to Ada  === --
 ===  compiler OrbAda-idl2ada                     === --
 ===  Copyright Top Graph'X  1997-2000            === --
 ==================================================== --
with Corba.Object.Ref_To_Any_Conversion ;
package CORBA.ImplementationDef.Helper is

   Tc_ImplementationDef : constant Corba.Typecode.Object :=
      Corba.Typecode.Convert_To_Tc
       (( 14, 0, 0, 0, 62, 0, 0, 0, 1, 0, 0, 0, 32, 0, 0, 0, 73, 68, 76, 58,
          67, 79, 82, 66, 65, 47, 73, 109, 112, 108, 101, 109, 101, 110, 116,
          97, 116, 105, 111, 110, 68, 101, 102, 58, 49, 46, 48, 0, 18, 0, 0, 0,
          73, 109, 112, 108, 101, 109, 101, 110, 116, 97, 116, 105, 111, 110,
          68, 101, 102, 0));

   package ImplementationDef_To_Any is new Corba.Object.Ref_To_Any_Conversion
      (Ref => ImplementationDef.Ref, Code => Tc_ImplementationDef) ;

   function To_Any (From : in Ref) return Corba.Any renames
      ImplementationDef_To_Any.Ref_To_Any ;

   function To_Ref (From : in Corba.Any) return Ref renames
      ImplementationDef_To_Any.Any_To_Ref ;

   function To_ImplementationDef (Self : in Corba.Object.Ref'class) return Ref ;

   Tc_Activation_Policy : constant Corba.Typecode.Object :=
      Corba.Typecode.Convert_to_Tc
       (( 17, 0, 0, 0, 174, 0, 0, 0, 1, 79, 82, 66, 50, 0, 0, 0, 73, 68, 76,
          58, 67, 79, 82, 66, 65, 47, 73, 109, 112, 108, 101, 109, 101, 110,
          116, 97, 116, 105, 111, 110, 68, 101, 102, 47, 65, 99, 116, 105,
          118, 97, 116, 105, 111, 110, 95, 80, 111, 108, 105, 99, 121, 58, 49,
          46, 48, 0, 112, 108, 18, 0, 0, 0, 65, 99, 116, 105, 118, 97, 116,
          105, 111, 110, 95, 80, 111, 108, 105, 99, 121, 0, 0, 0, 4, 0, 0, 0,
          14, 0, 0, 0, 83, 104, 97, 114, 101, 100, 95, 83, 101, 114, 118, 101,
          114, 0, 0, 0, 16, 0, 0, 0, 85, 110, 115, 104, 97, 114, 101, 100, 95,
          83, 101, 114, 118, 101, 114, 0, 18, 0, 0, 0, 83, 101, 114, 118, 101,
          114, 95, 80, 101, 114, 95, 77, 101, 116, 104, 111, 100, 0, 0, 0, 18,
          0, 0, 0, 80, 101, 114, 115, 105, 115, 116, 101, 110, 116, 95, 83,
          101, 114, 118, 101, 114, 0));
end CORBA.ImplementationDef.Helper;

List of definition uses