r2corba 1.4.1-universal-java-1.7

data/lib/corba/idl/TAO_Ext.pidl

@@ -0,0 +1,46 @@
+// -*- IDL -*-
+// $Id$
+
+#ifndef R2TAO_TAO_EXT_IDL
+#define R2TAO_TAO_EXT_IDL
+
+#include "TimeBase.pidl"
+
+#pragma prefix "tao"
+
+module TAO
+{
+  const CORBA::PolicyType CONNECTION_TIMEOUT_POLICY_TYPE = 0x54410008;
+
+  local interface ConnectionTimeoutPolicy : CORBA::Policy {
+    readonly attribute TimeBase::TimeT relative_expiry;
+  };
+
+  //
+  // Buffering constraint.
+  //
+  typedef unsigned short BufferingConstraintMode;
+  const BufferingConstraintMode BUFFER_FLUSH         = 0x00;
+
+  // Note that timeout, message_count, and message_bytes can be or'd.
+  const BufferingConstraintMode BUFFER_TIMEOUT       = 0x01;
+  const BufferingConstraintMode BUFFER_MESSAGE_COUNT = 0x02;
+  const BufferingConstraintMode BUFFER_MESSAGE_BYTES = 0x04;
+
+  struct BufferingConstraint
+  {
+    BufferingConstraintMode mode;
+    TimeBase::TimeT timeout;
+    unsigned long message_count;
+    unsigned long message_bytes;
+  };
+
+  const CORBA::PolicyType BUFFERING_CONSTRAINT_POLICY_TYPE = 0x54410001;
+
+  local interface BufferingConstraintPolicy : CORBA::Policy
+    {
+      readonly attribute BufferingConstraint buffering_constraint;
+    };
+};
+
+#endif /* TAO_TAO_EXT_IDL */

data/lib/corba/idl/r2c_orb.rb

@@ -0,0 +1,572 @@
+# -*- Ruby -*-
+#
+# ****  Code generated by the R2CORBA IDL Compiler ****
+# R2CORBA has been developed by:
+#        Remedy IT
+#        Nijkerk, GLD
+#        The Netherlands
+#        http://www.remedy.nl  http://www.theaceorb.nl
+#
+
+module R2CORBA
+
+  CORBA.implement('orb.idl', {}, CORBA::IDL::CLIENT_STUB) {
+
+  module CORBA
+
+    class AnySeq < Array
+      def AnySeq._tc
+        @@tc_AnySeq ||= CORBA::TypeCode::Alias.new('IDL:omg.org/CORBA/AnySeq:1.0', 'AnySeq',
+          CORBA::TypeCode::Sequence.new(CORBA._tc_any), self)
+      end
+    end # typedef AnySeq
+    class BooleanSeq < Array
+      def BooleanSeq._tc
+        @@tc_BooleanSeq ||= CORBA::TypeCode::Alias.new('IDL:omg.org/CORBA/BooleanSeq:1.0', 'BooleanSeq',
+          CORBA::TypeCode::Sequence.new(CORBA._tc_boolean), self)
+      end
+    end # typedef BooleanSeq
+    class CharSeq < String
+      def CharSeq._tc
+        @@tc_CharSeq ||= CORBA::TypeCode::Alias.new('IDL:omg.org/CORBA/CharSeq:1.0', 'CharSeq',
+          CORBA::TypeCode::Sequence.new(CORBA._tc_char), self)
+      end
+    end # typedef CharSeq
+    class DoubleSeq < Array
+      def DoubleSeq._tc
+        @@tc_DoubleSeq ||= CORBA::TypeCode::Alias.new('IDL:omg.org/CORBA/DoubleSeq:1.0', 'DoubleSeq',
+          CORBA::TypeCode::Sequence.new(CORBA._tc_double), self)
+      end
+    end # typedef DoubleSeq
+    class FloatSeq < Array
+      def FloatSeq._tc
+        @@tc_FloatSeq ||= CORBA::TypeCode::Alias.new('IDL:omg.org/CORBA/FloatSeq:1.0', 'FloatSeq',
+          CORBA::TypeCode::Sequence.new(CORBA._tc_float), self)
+      end
+    end # typedef FloatSeq
+    class LongSeq < Array
+      def LongSeq._tc
+        @@tc_LongSeq ||= CORBA::TypeCode::Alias.new('IDL:omg.org/CORBA/LongSeq:1.0', 'LongSeq',
+          CORBA::TypeCode::Sequence.new(CORBA._tc_long), self)
+      end
+    end # typedef LongSeq
+    class LongLongSeq < Array
+      def LongLongSeq._tc
+        @@tc_LongLongSeq ||= CORBA::TypeCode::Alias.new('IDL:omg.org/CORBA/LongLongSeq:1.0', 'LongLongSeq',
+          CORBA::TypeCode::Sequence.new(CORBA._tc_longlong), self)
+      end
+    end # typedef LongLongSeq
+    class ShortSeq < Array
+      def ShortSeq._tc
+        @@tc_ShortSeq ||= CORBA::TypeCode::Alias.new('IDL:omg.org/CORBA/ShortSeq:1.0', 'ShortSeq',
+          CORBA::TypeCode::Sequence.new(CORBA._tc_short), self)
+      end
+    end # typedef ShortSeq
+    class ULongSeq < Array
+      def ULongSeq._tc
+        @@tc_ULongSeq ||= CORBA::TypeCode::Alias.new('IDL:omg.org/CORBA/ULongSeq:1.0', 'ULongSeq',
+          CORBA::TypeCode::Sequence.new(CORBA._tc_ulong), self)
+      end
+    end # typedef ULongSeq
+    class ULongLongSeq < Array
+      def ULongLongSeq._tc
+        @@tc_ULongLongSeq ||= CORBA::TypeCode::Alias.new('IDL:omg.org/CORBA/ULongLongSeq:1.0', 'ULongLongSeq',
+          CORBA::TypeCode::Sequence.new(CORBA._tc_ulonglong), self)
+      end
+    end # typedef ULongLongSeq
+    class UShortSeq < Array
+      def UShortSeq._tc
+        @@tc_UShortSeq ||= CORBA::TypeCode::Alias.new('IDL:omg.org/CORBA/UShortSeq:1.0', 'UShortSeq',
+          CORBA::TypeCode::Sequence.new(CORBA._tc_ushort), self)
+      end
+    end # typedef UShortSeq
+    class WCharSeq < Array
+      def WCharSeq._tc
+        @@tc_WCharSeq ||= CORBA::TypeCode::Alias.new('IDL:omg.org/CORBA/WCharSeq:1.0', 'WCharSeq',
+          CORBA::TypeCode::Sequence.new(CORBA._tc_wchar), self)
+      end
+    end # typedef WCharSeq
+    class StringSeq < Array
+      def StringSeq._tc
+        @@tc_StringSeq ||= CORBA::TypeCode::Alias.new('IDL:omg.org/CORBA/StringSeq:1.0', 'StringSeq',
+          CORBA::TypeCode::Sequence.new(CORBA._tc_string), self)
+      end
+    end # typedef StringSeq
+    class WStringSeq < Array
+      def WStringSeq._tc
+        @@tc_WStringSeq ||= CORBA::TypeCode::Alias.new('IDL:omg.org/CORBA/WStringSeq:1.0', 'WStringSeq',
+          CORBA::TypeCode::Sequence.new(CORBA._tc_wstring), self)
+      end
+    end # typedef WStringSeq
+    class OctetSeq < String
+      def OctetSeq._tc
+        @@tc_OctetSeq ||= CORBA::TypeCode::Alias.new('IDL:omg.org/CORBA/OctetSeq:1.0', 'OctetSeq',
+          CORBA::TypeCode::Sequence.new(CORBA._tc_octet), self)
+      end
+    end # typedef OctetSeq
+    class PolicyType < CORBA::_tc_ulong.get_type
+      def PolicyType._tc; @@tc_PolicyType ||= CORBA::TypeCode::Alias.new('IDL:omg.org/CORBA/PolicyType:1.0', 'PolicyType', CORBA::_tc_ulong, self); end
+    end # typedef PolicyType
+
+    module Policy  ## interface
+
+      Id = 'IDL:omg.org/CORBA/Policy:1.0'.freeze
+      Ids = [ Id ].freeze
+
+      def Policy._tc; @@tc_Policy ||= CORBA::TypeCode::ObjectRef.new(Id, 'Policy', self); end
+      self._tc  # register typecode
+
+      def Policy._narrow(obj)
+        return nil if CORBA.is_nil(obj)
+        return CORBA::Stub.create_stub(obj)._narrow!(self)
+      end
+
+      def Policy._duplicate(obj)
+        return nil if CORBA.is_nil(obj)
+        return CORBA::Stub.create_stub(super(obj))._narrow!(self)
+      end
+
+      def _interface_repository_id
+        CORBA::Policy::Id
+      end
+
+
+      def policy_type()
+        raise ::CORBA::NO_IMPLEMENT unless self.respond_to?(:_invoke, true)
+        _ret = self._invoke('_get_policy_type', {
+          :result_type => CORBA::PolicyType._tc})
+        _ret
+      end #of attribute policy_type getter
+
+      def copy()
+        raise ::CORBA::NO_IMPLEMENT unless self.respond_to?(:_invoke, true)
+        _ret = self._invoke('copy', {
+          :result_type => CORBA::Policy._tc})
+        _ret
+      end #of operation copy
+
+      def destroy()
+        raise ::CORBA::NO_IMPLEMENT unless self.respond_to?(:_invoke, true)
+        _ret = self._invoke('destroy', {
+          :result_type => CORBA._tc_void})
+        _ret
+      end #of operation destroy
+    end #of interface Policy
+
+    class PolicyList < Array
+      def PolicyList._tc
+        @@tc_PolicyList ||= CORBA::TypeCode::Alias.new('IDL:omg.org/CORBA/PolicyList:1.0', 'PolicyList',
+          CORBA::TypeCode::Sequence.new(CORBA::Policy._tc), self)
+      end
+    end # typedef PolicyList
+    class PolicyTypeSeq < Array
+      def PolicyTypeSeq._tc
+        @@tc_PolicyTypeSeq ||= CORBA::TypeCode::Alias.new('IDL:omg.org/CORBA/PolicyTypeSeq:1.0', 'PolicyTypeSeq',
+          CORBA::TypeCode::Sequence.new(CORBA::PolicyType._tc), self)
+      end
+    end # typedef PolicyTypeSeq
+
+    class InvalidPolicies < CORBA::UserException
+
+      def InvalidPolicies._tc
+        @@tc_InvalidPolicies ||= CORBA::TypeCode::Except.new('IDL:omg.org/CORBA/InvalidPolicies:1.0'.freeze, 'InvalidPolicies',
+           [['indices', CORBA::UShortSeq._tc]], self)
+      end
+      self._tc  # register typecode
+      attr_accessor :indices
+      def initialize(*param_)
+        @indices = param_.shift
+      end
+
+    end #of exception InvalidPolicies
+
+    module DomainManager  ## interface
+
+      Id = 'IDL:omg.org/CORBA/DomainManager:1.0'.freeze
+      Ids = [ Id ].freeze
+
+      def DomainManager._tc; @@tc_DomainManager ||= CORBA::TypeCode::ObjectRef.new(Id, 'DomainManager', self); end
+      self._tc  # register typecode
+
+      def DomainManager._narrow(obj)
+        return nil if CORBA.is_nil(obj)
+        return CORBA::Stub.create_stub(obj)._unchecked_narrow!(self)
+      end
+
+      def DomainManager._duplicate(obj)
+        obj
+      end
+
+      def _interface_repository_id
+        CORBA::DomainManager::Id
+      end
+
+
+      def get_domain_policy(policy_type)
+        raise ::CORBA::NO_IMPLEMENT.new(
+                 'unimplemented operation on local interface',
+                 1, ::CORBA::COMPLETED_NO)
+      end #of operation get_domain_policy
+    end #of interface DomainManager
+
+    module InterfaceDef; end  ## interface forward
+
+    module ConstructionPolicy  ## interface
+
+      include CORBA::Policy
+
+      Id = 'IDL:omg.org/CORBA/ConstructionPolicy:1.0'.freeze
+      Ids = [ Id,
+              CORBA::Policy::Id ].freeze
+
+      def ConstructionPolicy._tc; @@tc_ConstructionPolicy ||= CORBA::TypeCode::ObjectRef.new(Id, 'ConstructionPolicy', self); end
+      self._tc  # register typecode
+
+      def ConstructionPolicy._narrow(obj)
+        return nil if CORBA.is_nil(obj)
+        return CORBA::Stub.create_stub(obj)._narrow!(self)
+      end
+
+      def ConstructionPolicy._duplicate(obj)
+        return nil if CORBA.is_nil(obj)
+        return CORBA::Stub.create_stub(super(obj))._narrow!(self)
+      end
+
+      def _interface_repository_id
+        CORBA::ConstructionPolicy::Id
+      end
+
+
+      def make_domain_manager(object_type, constr_policy)
+        raise ::CORBA::NO_IMPLEMENT unless self.respond_to?(:_invoke, true)
+        object_type = (CORBA::TypeCode.typecode_for_id('IDL:omg.org/CORBA/InterfaceDef:1.0') || CORBA::TypeCode::ObjectRef.new('IDL:omg.org/CORBA/InterfaceDef:1.0', 'InterfaceDef', CORBA::InterfaceDef)).validate(object_type)
+        constr_policy = CORBA._tc_boolean.validate(constr_policy)
+        _ret = self._invoke('make_domain_manager', {
+          :arg_list => [
+            ['object_type', CORBA::ARG_IN, (CORBA::TypeCode.typecode_for_id('IDL:omg.org/CORBA/InterfaceDef:1.0') || CORBA::TypeCode::ObjectRef.new('IDL:omg.org/CORBA/InterfaceDef:1.0', 'InterfaceDef', CORBA::InterfaceDef)), object_type],
+            ['constr_policy', CORBA::ARG_IN, CORBA._tc_boolean, constr_policy]],
+          :result_type => CORBA._tc_void})
+        _ret
+      end #of operation make_domain_manager
+    end #of interface ConstructionPolicy
+
+    class DomainManagersList < Array
+      def DomainManagersList._tc
+        @@tc_DomainManagersList ||= CORBA::TypeCode::Alias.new('IDL:omg.org/CORBA/DomainManagersList:1.0', 'DomainManagersList',
+          CORBA::TypeCode::Sequence.new(CORBA::DomainManager._tc), self)
+      end
+    end # typedef DomainManagersList
+    class PolicyErrorCode < CORBA::_tc_short.get_type
+      def PolicyErrorCode._tc; @@tc_PolicyErrorCode ||= CORBA::TypeCode::Alias.new('IDL:omg.org/CORBA/PolicyErrorCode:1.0', 'PolicyErrorCode', CORBA::_tc_short, self); end
+    end # typedef PolicyErrorCode
+    BAD_POLICY = 0
+    UNSUPPORTED_POLICY = 1
+    BAD_POLICY_TYPE = 2
+    BAD_POLICY_VALUE = 3
+    UNSUPPORTED_POLICY_VALUE = 4
+
+    class PolicyError < CORBA::UserException
+
+      def PolicyError._tc
+        @@tc_PolicyError ||= CORBA::TypeCode::Except.new('IDL:omg.org/CORBA/PolicyError:1.0'.freeze, 'PolicyError',
+           [['reason', CORBA::PolicyErrorCode._tc]], self)
+      end
+      self._tc  # register typecode
+      attr_accessor :reason
+      def initialize(*param_)
+        @reason = param_.shift
+      end
+
+    end #of exception PolicyError
+    class SetOverrideType < ::Fixnum
+      def SetOverrideType._tc
+        @@tc_SetOverrideType ||= CORBA::TypeCode::Enum.new('IDL:omg.org/CORBA/SetOverrideType:1.0'.freeze, 'SetOverrideType', [
+            'SET_OVERRIDE',
+            'ADD_OVERRIDE'])
+      end
+      self._tc  # register typecode
+    end # enum SetOverrideType
+    SET_OVERRIDE = 0
+    ADD_OVERRIDE = 1
+
+    module PolicyManager  ## interface
+
+      Id = 'IDL:omg.org/CORBA/PolicyManager:1.0'.freeze
+      Ids = [ Id ].freeze
+
+      def PolicyManager._tc; @@tc_PolicyManager ||= CORBA::TypeCode::ObjectRef.new(Id, 'PolicyManager', self); end
+      self._tc  # register typecode
+
+      def PolicyManager._narrow(obj)
+        return nil if CORBA.is_nil(obj)
+        return CORBA::Stub.create_stub(obj)._unchecked_narrow!(self)
+      end
+
+      def PolicyManager._duplicate(obj)
+        obj
+      end
+
+      def _interface_repository_id
+        CORBA::PolicyManager::Id
+      end
+
+
+      def get_policy_overrides(ts)
+        raise ::CORBA::NO_IMPLEMENT.new(
+                 'unimplemented operation on local interface',
+                 1, ::CORBA::COMPLETED_NO)
+      end #of operation get_policy_overrides
+
+      def set_policy_overrides(policies, set_add)
+        raise ::CORBA::NO_IMPLEMENT.new(
+                 'unimplemented operation on local interface',
+                 1, ::CORBA::COMPLETED_NO)
+      end #of operation set_policy_overrides
+    end #of interface PolicyManager
+
+
+    module Current  ## interface
+
+      Id = 'IDL:omg.org/CORBA/Current:1.0'.freeze
+      Ids = [ Id ].freeze
+
+      def Current._tc; @@tc_Current ||= CORBA::TypeCode::ObjectRef.new(Id, 'Current', self); end
+      self._tc  # register typecode
+
+      def Current._narrow(obj)
+        return nil if CORBA.is_nil(obj)
+        return CORBA::Stub.create_stub(obj)._unchecked_narrow!(self)
+      end
+
+      def Current._duplicate(obj)
+        obj
+      end
+
+      def _interface_repository_id
+        CORBA::Current::Id
+      end
+
+    end #of interface Current
+
+
+    module PolicyCurrent  ## interface
+
+      include CORBA::PolicyManager
+      include CORBA::Current
+
+      Id = 'IDL:omg.org/CORBA/PolicyCurrent:1.0'.freeze
+      Ids = [ Id,
+              CORBA::PolicyManager::Id,
+              CORBA::Current::Id ].freeze
+
+      def PolicyCurrent._tc; @@tc_PolicyCurrent ||= CORBA::TypeCode::ObjectRef.new(Id, 'PolicyCurrent', self); end
+      self._tc  # register typecode
+
+      def PolicyCurrent._narrow(obj)
+        return nil if CORBA.is_nil(obj)
+        return CORBA::Stub.create_stub(obj)._unchecked_narrow!(self)
+      end
+
+      def PolicyCurrent._duplicate(obj)
+        obj
+      end
+
+      def _interface_repository_id
+        CORBA::PolicyCurrent::Id
+      end
+
+    end #of interface PolicyCurrent
+
+    class ServiceType < CORBA::_tc_ushort.get_type
+      def ServiceType._tc; @@tc_ServiceType ||= CORBA::TypeCode::Alias.new('IDL:omg.org/CORBA/ServiceType:1.0', 'ServiceType', CORBA::_tc_ushort, self); end
+    end # typedef ServiceType
+    class ServiceOption < CORBA::_tc_ulong.get_type
+      def ServiceOption._tc; @@tc_ServiceOption ||= CORBA::TypeCode::Alias.new('IDL:omg.org/CORBA/ServiceOption:1.0', 'ServiceOption', CORBA::_tc_ulong, self); end
+    end # typedef ServiceOption
+    class ServiceDetailType < CORBA::_tc_ulong.get_type
+      def ServiceDetailType._tc; @@tc_ServiceDetailType ||= CORBA::TypeCode::Alias.new('IDL:omg.org/CORBA/ServiceDetailType:1.0', 'ServiceDetailType', CORBA::_tc_ulong, self); end
+    end # typedef ServiceDetailType
+    class ServiceDetailData < CORBA::OctetSeq
+      def ServiceDetailData._tc; @@tc_ServiceDetailData ||= CORBA::TypeCode::Alias.new('IDL:omg.org/CORBA/ServiceDetailData:1.0', 'ServiceDetailData',CORBA::OctetSeq._tc, self); end
+    end # typedef ServiceDetailData
+    class ServiceOptionSeq < Array
+      def ServiceOptionSeq._tc
+        @@tc_ServiceOptionSeq ||= CORBA::TypeCode::Alias.new('IDL:omg.org/CORBA/ServiceOptionSeq:1.0', 'ServiceOptionSeq',
+          CORBA::TypeCode::Sequence.new(CORBA::ServiceOption._tc), self)
+      end
+    end # typedef ServiceOptionSeq
+    Security = 1
+
+    class ServiceDetail < CORBA::Portable::Struct
+
+      def ServiceDetail._tc
+        @@tc_ServiceDetail ||= CORBA::TypeCode::Struct.new('IDL:omg.org/CORBA/ServiceDetail:1.0'.freeze, 'ServiceDetail',
+           [['service_detail_type', CORBA::ServiceDetailType._tc],
+            ['service_detail', CORBA::ServiceDetailData._tc]], self)
+      end
+      self._tc  # register typecode
+      attr_accessor :service_detail_type
+      attr_accessor :service_detail
+      def initialize(*param_)
+        @service_detail_type = param_.shift
+        @service_detail = param_.shift
+      end
+
+    end #of struct ServiceDetail
+    class ServiceDetailSeq < Array
+      def ServiceDetailSeq._tc
+        @@tc_ServiceDetailSeq ||= CORBA::TypeCode::Alias.new('IDL:omg.org/CORBA/ServiceDetailSeq:1.0', 'ServiceDetailSeq',
+          CORBA::TypeCode::Sequence.new(CORBA::ServiceDetail._tc), self)
+      end
+    end # typedef ServiceDetailSeq
+
+    class ServiceInformation < CORBA::Portable::Struct
+
+      def ServiceInformation._tc
+        @@tc_ServiceInformation ||= CORBA::TypeCode::Struct.new('IDL:omg.org/CORBA/ServiceInformation:1.0'.freeze, 'ServiceInformation',
+           [['service_options', CORBA::ServiceOptionSeq._tc],
+            ['service_details', CORBA::ServiceDetailSeq._tc]], self)
+      end
+      self._tc  # register typecode
+      attr_accessor :service_options
+      attr_accessor :service_details
+      def initialize(*param_)
+        @service_options = param_.shift
+        @service_details = param_.shift
+      end
+
+    end #of struct ServiceInformation
+    class ORBid < String
+      def ORBid._tc; @@tc_ORBid ||= CORBA::TypeCode::Alias.new('IDL:omg.org/CORBA/ORBid:1.0', 'ORBid', CORBA::_tc_string, self); end
+    end # typedef ORBid
+    class Flags < CORBA::_tc_ulong.get_type
+      def Flags._tc; @@tc_Flags ||= CORBA::TypeCode::Alias.new('IDL:omg.org/CORBA/Flags:1.0', 'Flags', CORBA::_tc_ulong, self); end
+    end # typedef Flags
+    class Identifier < String
+      def Identifier._tc; @@tc_Identifier ||= CORBA::TypeCode::Alias.new('IDL:omg.org/CORBA/Identifier:1.0', 'Identifier', CORBA::_tc_string, self); end
+    end # typedef Identifier
+    class RepositoryId < String
+      def RepositoryId._tc; @@tc_RepositoryId ||= CORBA::TypeCode::Alias.new('IDL:omg.org/CORBA/RepositoryId:1.0', 'RepositoryId', CORBA::_tc_string, self); end
+    end # typedef RepositoryId
+    class TypeCode; end  ## interface forward
+    class TCKind < ::Fixnum
+      def TCKind._tc
+        @@tc_TCKind ||= CORBA::TypeCode::Enum.new('IDL:omg.org/CORBA/TCKind:1.0'.freeze, 'TCKind', [
+            'Tk_null',
+            'Tk_void',
+            'Tk_short',
+            'Tk_long',
+            'Tk_ushort',
+            'Tk_ulong',
+            'Tk_float',
+            'Tk_double',
+            'Tk_boolean',
+            'Tk_char',
+            'Tk_octet',
+            'Tk_any',
+            'Tk_TypeCode',
+            'Tk_Principal',
+            'Tk_objref',
+            'Tk_struct',
+            'Tk_union',
+            'Tk_enum',
+            'Tk_string',
+            'Tk_sequence',
+            'Tk_array',
+            'Tk_alias',
+            'Tk_except',
+            'Tk_longlong',
+            'Tk_ulonglong',
+            'Tk_longdouble',
+            'Tk_wchar',
+            'Tk_wstring',
+            'Tk_fixed',
+            'Tk_value',
+            'Tk_value_box',
+            'Tk_native',
+            'Tk_abstract_interface',
+            'Tk_local_interface',
+            'Tk_component',
+            'Tk_home',
+            'Tk_event'])
+      end
+      self._tc  # register typecode
+    end # enum TCKind
+    Tk_null = 0
+    Tk_void = 1
+    Tk_short = 2
+    Tk_long = 3
+    Tk_ushort = 4
+    Tk_ulong = 5
+    Tk_float = 6
+    Tk_double = 7
+    Tk_boolean = 8
+    Tk_char = 9
+    Tk_octet = 10
+    Tk_any = 11
+    Tk_TypeCode = 12
+    Tk_Principal = 13
+    Tk_objref = 14
+    Tk_struct = 15
+    Tk_union = 16
+    Tk_enum = 17
+    Tk_string = 18
+    Tk_sequence = 19
+    Tk_array = 20
+    Tk_alias = 21
+    Tk_except = 22
+    Tk_longlong = 23
+    Tk_ulonglong = 24
+    Tk_longdouble = 25
+    Tk_wchar = 26
+    Tk_wstring = 27
+    Tk_fixed = 28
+    Tk_value = 29
+    Tk_value_box = 30
+    Tk_native = 31
+    Tk_abstract_interface = 32
+    Tk_local_interface = 33
+    Tk_component = 34
+    Tk_home = 35
+    Tk_event = 36
+
+    class WrongTransaction < CORBA::UserException
+
+      def WrongTransaction._tc
+        @@tc_WrongTransaction ||= CORBA::TypeCode::Except.new('IDL:omg.org/CORBA/WrongTransaction:1.0'.freeze, 'WrongTransaction', self)
+      end
+      self._tc  # register typecode
+    end #of exception WrongTransaction
+    module ORB
+
+
+      class InvalidName < CORBA::UserException
+
+        def InvalidName._tc
+          @@tc_InvalidName ||= CORBA::TypeCode::Except.new('IDL:omg.org/CORBA/ORB/InvalidName:1.0'.freeze, 'InvalidName', self)
+        end
+        self._tc  # register typecode
+      end #of exception InvalidName
+    end #of module ORB
+
+    class ExceptionList; end  ## 'native' type
+    class NamedValue; end  ## 'native' type
+    class Exception_type < ::Fixnum
+      def Exception_type._tc
+        @@tc_Exception_type ||= CORBA::TypeCode::Enum.new('IDL:omg.org/CORBA/exception_type:1.0'.freeze, 'Exception_type', [
+            'NO_EXCEPTION',
+            'USER_EXCEPTION',
+            'SYSTEM_EXCEPTION'])
+      end
+      self._tc  # register typecode
+    end # enum Exception_type
+    NO_EXCEPTION = 0
+    USER_EXCEPTION = 1
+    SYSTEM_EXCEPTION = 2
+    class ValueFactory; end  ## 'native' type
+  end #of module CORBA
+
+  } ## end of 'orb.idl'
+end #of module R2CORBA
+
+# -*- END -*-

data/lib/corba/idl/require.rb

@@ -0,0 +1,20 @@
+#--------------------------------------------------------------------
+# require.rb - R2CORBA loader
+#
+# Author: Martin Corino
+#
+# This program is free software; you can redistribute it and/or
+# modify it under the terms of the R2CORBA LICENSE which is
+# included with this program.
+#
+# Copyright (c) Remedy IT Expertise BV
+# Chamber of commerce Rotterdam nr.276339, The Netherlands
+#--------------------------------------------------------------------
+
+require 'corba/idl/IDL.rb'
+require 'corba/idl/r2c_orb.rb'
+
+## fake Ruby into believing 'orb.rb' has already been loaded
+## which is what the IDL compiler will generate for
+## '#include "orb.idl"'
+$" << 'orb.rb'