r2corba 1.5.1-x64-mingw32 → 1.6.1-x64-mingw32

data/lib/corba/common/Typecode.rb

@@ -8,7 +8,6 @@
 # included with this program.
 #
 # Copyright (c) Remedy IT Expertise BV
-# Chamber of commerce Rotterdam nr.276339, The Netherlands
 #--------------------------------------------------------------------
 require 'monitor'
 
@@ -16,7 +15,7 @@ module R2CORBA
   module CORBA
     class TypeCode
       def initialize
-        raise RuntimeError, 'not allowed'
+        raise 'not allowed'
       end
 
       @@wrapper_klass = Class.new(CORBA::TypeCode) do
@@ -50,6 +49,7 @@ module R2CORBA
           @name_types = {}
           super
         end
+
         def []=(id, tc)
           synchronize do
             @id_types[id] = tc
@@ -58,6 +58,7 @@ module R2CORBA
             @name_types[tc.name] = types_for_name_
           end
         end
+
         def [](id)
           tc = nil
           synchronize do
@@ -65,6 +66,7 @@ module R2CORBA
           end
           tc
         end
+
         def types_for_name(name)
           tcs = nil
           synchronize do
@@ -93,10 +95,10 @@ module R2CORBA
       end
 
       def TypeCode.from_native(ntc)
-        if [TK_NULL,TK_VOID,TK_ANY,TK_BOOLEAN,TK_SHORT,TK_LONG,TK_USHORT,
-            TK_WCHAR,TK_ULONG,TK_LONGLONG,TK_ULONGLONG,TK_OCTET,
-            TK_FLOAT,TK_DOUBLE,TK_LONGDOUBLE,TK_CHAR,
-            TK_TYPECODE,TK_PRINCIPAL].include?(native_kind(ntc))
+        if [TK_NULL, TK_VOID, TK_ANY, TK_BOOLEAN, TK_SHORT, TK_LONG, TK_USHORT,
+            TK_WCHAR, TK_ULONG, TK_LONGLONG, TK_ULONGLONG, TK_OCTET,
+            TK_FLOAT, TK_DOUBLE, TK_LONGDOUBLE, TK_CHAR,
+            TK_TYPECODE, TK_PRINCIPAL].include?(native_kind(ntc))
           ## primitive typecode; wrap it
           return TypeCode._wrap_native(ntc)
         else
@@ -158,9 +160,9 @@ module R2CORBA
               rtc = TypeCode::Valuetype.new(ntc)
             end
           when TK_NATIVE
-            raise CORBA::NO_IMPLEMENT.new('typecode #{native_kind(ntc)} not supported',0,CORBA::COMPLETED_NO)
+            raise CORBA::NO_IMPLEMENT.new('typecode #{native_kind(ntc)} not supported', 0, CORBA::COMPLETED_NO)
           else
-            raise CORBA::MARSHAL.new("unknown kind [#{native_kind(ntc)}]",0,CORBA::COMPLETED_NO)
+            raise CORBA::MARSHAL.new("unknown kind [#{native_kind(ntc)}]", 0, CORBA::COMPLETED_NO)
           end
           return rtc
         end
@@ -185,7 +187,7 @@ module R2CORBA
       end
 
       def equal?(tc)
-        raise ArgumentError, "expected CORBA::TypeCode" unless tc.is_a?(CORBA::TypeCode)
+        raise ArgumentError, 'expected CORBA::TypeCode' unless tc.is_a?(CORBA::TypeCode)
         begin
           self.tc_.equal(tc.tc_)
         rescue ::NativeException
@@ -194,7 +196,7 @@ module R2CORBA
       end
 
       def equivalent?(tc)
-        raise ArgumentError, "expected CORBA::TypeCode" unless tc.is_a?(CORBA::TypeCode)
+        raise ArgumentError, 'expected CORBA::TypeCode' unless tc.is_a?(CORBA::TypeCode)
         begin
           self.tc_.equivalent(tc.tc_)
         rescue ::NativeException
@@ -310,9 +312,9 @@ module R2CORBA
       def get_type
         @type ||= case self.kind
           when TK_SHORT, TK_LONG, TK_USHORT, TK_ULONG
-            ::Fixnum
+            FIXNUM_KLASS
           when TK_LONGLONG, TK_ULONGLONG
-            ::Bignum
+            BIGNUM_KLASS
           when TK_FLOAT, TK_DOUBLE
             ::Float
           when TK_LONGDOUBLE
@@ -322,7 +324,7 @@ module R2CORBA
           when TK_CHAR, TK_STRING
             ::String
           when TK_WCHAR, TK_OCTET
-            ::Fixnum
+            FIXNUM_KLASS
           when TK_VOID, TK_NULL
             ::NilClass
           when TK_ANY
@@ -343,7 +345,7 @@ module R2CORBA
         when TK_ANY
           return CORBA::Any === val ? val : Any.to_any(val)
         when TK_BOOLEAN
-          return val if ((val.is_a? TrueClass) || (val.is_a? FalseClass))
+          return val if (val.is_a? TrueClass) || (val.is_a? FalseClass)
         when TK_SHORT
           return val.to_int if val.respond_to?(:to_int) && ShortRange === val.to_int
         when TK_LONG
@@ -368,7 +370,7 @@ module R2CORBA
             return val.respond_to?(:to_str) ? val.to_str : val.to_int.chr
           end
         else
-          return val if (val.nil? || val.is_a?(self.get_type))
+          return val if val.nil? || val.is_a?(self.get_type)
         end
         raise CORBA::MARSHAL.new(
           "value does not match type: value = #{val}, value type == #{val.class.name}, type == #{get_type.name}",
@@ -391,26 +393,31 @@ module R2CORBA
       class Recursive < CORBA::TypeCode
 
         def initialize(id)
-          raise RuntimeError, 'overload required'
+          raise 'overload required'
         end
 
         def recursed_tc
           @recursive_tc ||= TypeCode.typecode_for_id(self.id)
           @recursive_tc || ::CORBA::TypeCode.new(TK_NULL)
         end
+
         def resolved_tc
           recursed_tc.resolved_tc
         end
+
         def is_recursive_tc?
           true
         end
+
         def get_type
           @recursive_tc ||= TypeCode.typecode_for_id(self.id)
           if @recursive_tc.nil? then nil; else @recursive_tc.get_type; end
         end
+
         def validate(val)
           recursed_tc.validate(val)
         end
+
         def needs_conversion(val)
           recursed_tc.needs_conversion(val)
         end
@@ -419,7 +426,7 @@ module R2CORBA
       class String < CORBA::TypeCode
 
         def initialize(*args)
-          raise RuntimeError, 'overload required'
+          raise 'overload required'
         end
 
         def get_type
@@ -432,7 +439,7 @@ module R2CORBA
           val = ::String === val ? val : val.to_str
           raise ::CORBA::MARSHAL.new(
             "string size exceeds bound: #{self.length.to_s}",
-            1, ::CORBA::COMPLETED_NO) unless (self.length==0 || val.size<=self.length)
+            1, ::CORBA::COMPLETED_NO) unless self.length == 0 || val.size <= self.length
           val
         end
 
@@ -444,7 +451,7 @@ module R2CORBA
       class WString < CORBA::TypeCode
 
         def initialize(*args)
-          raise RuntimeError, 'overload required'
+          raise 'overload required'
         end
 
         def get_type
@@ -465,9 +472,9 @@ module R2CORBA
           end
           raise ::CORBA::MARSHAL.new(
             "widestring size exceeds bound: #{self.length.to_s}",
-            1, ::CORBA::COMPLETED_NO) unless (self.length==0 || val.size<=self.length)
+            1, ::CORBA::COMPLETED_NO) unless self.length == 0 || val.size <= self.length
           raise ::CORBA::MARSHAL.new(
-            "invalid widestring element(s)",
+            'invalid widestring element(s)',
             1, ::CORBA::COMPLETED_NO) if val.any? { |el| !(UShortRange === (el.respond_to?(:to_int) ? el.to_int : el)) }
           val.any? { |el| !(::Integer === el) } ? val.collect { |el| el.to_int } : val
         end
@@ -490,7 +497,7 @@ module R2CORBA
       class Fixed < CORBA::TypeCode
 
         def initialize(*args)
-          raise RuntimeError, 'overload required'
+          raise 'overload required'
         end
 
         def get_type
@@ -500,7 +507,7 @@ module R2CORBA
         def validate(val)
           return val if val.nil?
           super(val) unless ::BigDecimal === val || val.respond_to?(:to_str)
-          val = ::BigDecimal === val ? val : BigDecimal.new(val.to_str)
+          val = ::BigDecimal === val ? val : BigDecimal(val.to_str)
           val
         end
 
@@ -512,7 +519,7 @@ module R2CORBA
       class Sequence < CORBA::TypeCode
 
         def initialize(*args)
-          raise RuntimeError, 'overload required'
+          raise 'overload required'
         end
 
         def get_type
@@ -539,7 +546,7 @@ module R2CORBA
           end
           raise ::CORBA::MARSHAL.new(
             "sequence size exceeds bound: #{self.length.to_s}",
-            1, ::CORBA::COMPLETED_NO) unless (self.length==0 || val.size<=self.length)
+            1, ::CORBA::COMPLETED_NO) unless self.length == 0 || val.size <= self.length
           if ::Array === val
             if val.any? { |e| self.content_type.needs_conversion(e) }
               val.collect { |e| self.content_type.validate(e) }
@@ -560,8 +567,8 @@ module R2CORBA
         end
 
         def inspect
-          "#{self.class.name}: "+
-              "length=#{if self.length.nil? then ""; else  self.length.to_s; end}; "+
+          "#{self.class.name}: " +
+              "length=#{if self.length.nil? then ""; else  self.length.to_s; end}; " +
               "content=#{self.content_type.inspect}"
         end
       end
@@ -569,7 +576,7 @@ module R2CORBA
       class Array < CORBA::TypeCode
 
         def initialize(*args)
-          raise RuntimeError, 'overload required'
+          raise 'overload required'
         end
 
         def get_type
@@ -581,10 +588,10 @@ module R2CORBA
           super(val)
           raise ::CORBA::MARSHAL.new(
             "array size exceeds bound: #{self.length.to_s}",
-            1, ::CORBA::COMPLETED_NO) unless val.nil? || val.size<=self.length
+            1, ::CORBA::COMPLETED_NO) unless val.nil? || val.size <= self.length
           raise ::CORBA::MARSHAL.new(
             "array size too small: #{self.length.to_s}",
-            1, ::CORBA::COMPLETED_NO) unless val.nil? || val.size>=self.length
+            1, ::CORBA::COMPLETED_NO) unless val.nil? || val.size >= self.length
           val.any? { |e| self.content_type.needs_conversion(e) } ? val.collect { |e| self.content_type.validate(e) } : val.each { |e| self.content_type.validate(e) }
         end
 
@@ -602,12 +609,13 @@ module R2CORBA
 
       class Alias < IdentifiedTypeCode
         def initialize(*args)
-          raise RuntimeError, 'overload required'
+          raise 'overload required'
         end
 
         def get_type
           @type || self.content_type.get_type
         end
+
         def validate(val)
           self.content_type.validate(val)
         end
@@ -624,8 +632,9 @@ module R2CORBA
       class Valuetype < IdentifiedTypeCode
         attr_reader :members
         def initialize(*args)
-          raise RuntimeError, 'overload required'
+          raise 'overload required'
         end
+
         def add_member(name, tc, access)
           raise ArgumentError, 'expected CORBA::TypeCode' unless tc.is_a?(CORBA::TypeCode)
           @members << [name, tc, access]
@@ -654,7 +663,7 @@ module R2CORBA
           tc.members.each do |nm_, tc_, access_|
             value_type::Intf.module_eval(%Q{attr_accessor :#{nm_}})
             value_type::Intf.__send__(:private, nm_.intern)
-            value_type::Intf.__send__(:private, (nm_+'=').intern)
+            value_type::Intf.__send__(:private, (nm_ + '=').intern)
           end
           value_type
         end
@@ -669,7 +678,7 @@ module R2CORBA
           if needs_conversion(val)
             vorg = val
             val = vorg.class.new
-            @members.each { |name, tc| val.__send__((name+'=').intern, tc.validate(vorg.__send__(name.intern))) }
+            @members.each { |name, tc| val.__send__((name + '=').intern, tc.validate(vorg.__send__(name.intern))) }
           else
             @members.each { |name, tc| tc.validate(val.__send__(name.intern)) }
           end
@@ -678,24 +687,26 @@ module R2CORBA
 
         def needs_conversion(val)
           return false if val.nil?
-          @members.any? { |name,tc| tc.needs_conversion(val.__send__(name.intern)) }
+          @members.any? { |name, tc| tc.needs_conversion(val.__send__(name.intern)) }
         end
 
         def member_count
           @members.size
         end
+
         def member_name(index)
-          raise ::CORBA::TypeCode::Bounds.new if (index<0) || (index>=@members.size)
+          raise ::CORBA::TypeCode::Bounds.new if (index < 0) || (index >= @members.size)
           @members[index][0]
         end
+
         def member_type(index)
-          raise ::CORBA::TypeCode::Bounds.new if (index<0) || (index>=@members.size)
+          raise ::CORBA::TypeCode::Bounds.new if (index < 0) || (index >= @members.size)
           @members[index][1]
         end
 
         def inspect
           s = "#{self.class.name}: #{name} - #{id}\n"
-          @members.each { |n, t| s += "  #{n} = "+t.inspect+"\n" }
+          @members.each { |n, t| s += "  #{n} = " + t.inspect + "\n" }
           s
         end
       end # Valuetype
@@ -705,7 +716,7 @@ module R2CORBA
 
       class Valuebox < IdentifiedTypeCode
         def initialize(*args)
-          raise RuntimeError, 'overload required'
+          raise 'overload required'
         end
 
         def Valuebox.define_type(tc)
@@ -751,7 +762,7 @@ module R2CORBA
 
       class ObjectRef < IdentifiedTypeCode
         def initialize(*args)
-          raise RuntimeError, 'overload required'
+          raise 'overload required'
         end
 
         def get_type
@@ -761,7 +772,7 @@ module R2CORBA
 
       class AbstractInterface < IdentifiedTypeCode
         def initialize(*args)
-          raise RuntimeError, 'overload required'
+          raise 'overload required'
         end
 
         def get_type
@@ -772,8 +783,9 @@ module R2CORBA
       class Struct < IdentifiedTypeCode
         attr_reader :members
         def initialize(*args)
-          raise RuntimeError, 'overload required'
+          raise 'overload required'
         end
+
         def add_member(name, tc)
           raise ArgumentError, 'expected CORBA::TypeCode' unless tc.is_a?(CORBA::TypeCode)
           @members << [name, tc]
@@ -786,7 +798,7 @@ module R2CORBA
                 @@tc_#{tc.name} ||= TypeCode.typecode_for_id('#{tc.id}')
               end
               def initialize(*param_)
-                #{tc.members.collect {|n,t| "@#{n}"}.join(', ')} = param_
+                #{tc.members.collect {|n, t| "@#{n}"}.join(', ')} = param_
               end
             end
             #{tc.name}
@@ -808,7 +820,7 @@ module R2CORBA
           if needs_conversion(val)
             vorg = val
             val = vorg.class.new
-            @members.each { |name, tc| val.__send__((name+'=').intern, tc.validate(vorg.__send__(name.intern))) }
+            @members.each { |name, tc| val.__send__((name + '=').intern, tc.validate(vorg.__send__(name.intern))) }
           else
             @members.each { |name, tc| tc.validate(val.__send__(name.intern)) }
           end
@@ -816,24 +828,26 @@ module R2CORBA
         end
 
         def needs_conversion(val)
-          @members.any? { |name,tc| tc.needs_conversion(val.__send__(name.intern)) }
+          @members.any? { |name, tc| tc.needs_conversion(val.__send__(name.intern)) }
         end
 
         def member_count
           @members.size
         end
+
         def member_name(index)
-          raise ::CORBA::TypeCode::Bounds.new if (index<0) || (index>=@members.size)
+          raise ::CORBA::TypeCode::Bounds.new if (index < 0) || (index >= @members.size)
           @members[index][0]
         end
+
         def member_type(index)
-          raise ::CORBA::TypeCode::Bounds.new if (index<0) || (index>=@members.size)
+          raise ::CORBA::TypeCode::Bounds.new if (index < 0) || (index >= @members.size)
           @members[index][1]
         end
 
         def inspect
           s = "#{self.class.name}: #{name} - #{id}\n"
-          @members.each { |n, t| s += "  #{n} = "+t.inspect+"\n" }
+          @members.each { |n, t| s += "  #{n} = " + t.inspect + "\n" }
           s
         end
       end # Struct
@@ -861,7 +875,7 @@ module R2CORBA
                 @@tc_#{tc.name} ||= TypeCode.typecode_for_id('#{tc.id}')
               end
               def initialize(*param_)
-                #{tc.members.collect {|n,t| "@#{n}"}.join(',')} = param_
+                #{tc.members.collect {|n, t| "@#{n}"}.join(',')} = param_
               end
             end
             #{tc.name}
@@ -882,18 +896,22 @@ module R2CORBA
         attr_reader :switchtype
         attr_reader :implicit_default
         def initialize(*args)
-          raise RuntimeError, 'overload required'
+          raise 'overload required'
         end
+
         # because creating the native tc involves creating Any's we postpone until actually needed
         def tc_
-          raise RuntimeError, 'overload required'
+          raise 'overload required'
         end
+
         def id
           @id
         end
+
         def name
           @name
         end
+
         def add_member(label, name, tc)
           raise ArgumentError, 'expected CORBA::TypeCode' unless tc.is_a?(CORBA::TypeCode)
           @switchtype.validate(label) unless label == :default
@@ -936,14 +954,14 @@ module R2CORBA
           return val if val.nil?
           super(val)
           @switchtype.validate(val._disc) unless val._disc == :default
-          #raise CORBA::MARSHAL.new(
+          # raise CORBA::MARSHAL.new(
           #  "invalid discriminator value (#{val._disc.to_s}) for union #{name}",
           #  1, CORBA::COMPLETED_NO) unless @labels.has_key?(val._disc)
           if @labels.has_key?(val._disc)  # no need to check for implicit defaults
             if needs_conversion(val)
               vorg = val
               val = vorg.class.new
-              val.__send__((@members[@labels[vorg._disc]][1]+'=').intern,
+              val.__send__((@members[@labels[vorg._disc]][1] + '=').intern,
                             @members[@labels[vorg._disc]][2].validate(vorg._value))
             else
               @members[@labels[val._disc]][2].validate(val._value)
@@ -959,28 +977,33 @@ module R2CORBA
         def member_count
           @members.size
         end
+
         def member_name(index)
-          raise CORBA::TypeCode::Bounds.new if (index<0) || (index>=@members.size)
+          raise CORBA::TypeCode::Bounds.new if (index < 0) || (index >= @members.size)
           @members[index][1]
         end
+
         def member_type(index)
-          raise CORBA::TypeCode::Bounds.new if (index<0) || (index>=@members.size)
+          raise CORBA::TypeCode::Bounds.new if (index < 0) || (index >= @members.size)
           @members[index][2]
         end
+
         def member_label(index)
-          raise CORBA::TypeCode::Bounds.new if (index<0) || (index>=@members.size)
+          raise CORBA::TypeCode::Bounds.new if (index < 0) || (index >= @members.size)
           @members[index][0]
         end
+
         def discriminator_type
           @switchtype
         end
+
         def default_index
           if @labels.has_key? :default then @labels[:default]; else -1; end
         end
 
         def label_index(val)
           val = @switchtype.validate(val) unless val == :default
-          #raise CORBA::MARSHAL.new(
+          # raise CORBA::MARSHAL.new(
           #  "invalid discriminator value (#{val}) for union #{name}",
           #  1, CORBA::COMPLETED_NO) unless val == :default || @labels.has_key?(val) || @labels.has_key?(:default)
           if val == :default then @labels[:default]; elsif @labels.has_key?(val) then @labels[val] else nil end
@@ -993,7 +1016,7 @@ module R2CORBA
 
         def inspect
           s = "#{self.class.name}: #{name} - #{id}\n"
-          @members.each { |l, n, t| s += "  case #{l.to_s}: #{n} = "+t.inspect+"\n" }
+          @members.each { |l, n, t| s += "  case #{l.to_s}: #{n} = " + t.inspect + "\n" }
           s
         end
       end # Union
@@ -1001,8 +1024,9 @@ module R2CORBA
       class Enum < IdentifiedTypeCode
         attr_reader :members
         def initialize(*args)
-          raise RuntimeError, 'overload required'
+          raise 'overload required'
         end
+
         def get_type
           ::Integer
         end
@@ -1022,8 +1046,9 @@ module R2CORBA
         def member_count
           @members.size
         end
+
         def member_name(index)
-          raise CORBA::TypeCode::Bounds.new if (index<0) || (index>=@members.size)
+          raise CORBA::TypeCode::Bounds.new if (index < 0) || (index >= @members.size)
           @members[index]
         end
       end # Enum
@@ -1041,7 +1066,7 @@ module R2CORBA
       end
 
       def TypeCode.get_primitive_tc(kind)
-        raise RuntimeError, 'overload required'
+        raise 'overload required'
       end
 
       private
@@ -1094,24 +1119,25 @@ module R2CORBA
     end
 
     def CORBA._tc_CCMObject
-      @@tc_CCMObject ||= TypeCode::Component.new("IDL:omg.org/CORBA/CCMObject:1.0", "CCMObject", CORBA::Object).freeze
+      @@tc_CCMObject ||= TypeCode::Component.new('IDL:omg.org/CORBA/CCMObject:1.0', 'CCMObject', CORBA::Object).freeze
     end
 
     def CORBA._tc_CCHome
-      @@tc_CCHome ||= TypeCode::Home.new("IDL:omg.org/CORBA/CCHome:1.0", "CCHome", CORBA::Object).freeze
+      @@tc_CCHome ||= TypeCode::Home.new('IDL:omg.org/CORBA/CCHome:1.0', 'CCHome', CORBA::Object).freeze
     end
 
     # define system exception related typecode constants
 
     def CORBA._tc_CompletionStatus
-      @@tc_CompletionStatus ||= TypeCode::Enum.new("IDL:omg.org/CORBA/CompletionStatus:1.0", "CompletionStatus",
+      @@tc_CompletionStatus ||= TypeCode::Enum.new('IDL:omg.org/CORBA/CompletionStatus:1.0', 'CompletionStatus',
                                                    CORBA::COMPLETED_TXT.collect {|t| "COMPLETED_#{t}"})
     end
 
     class LongDouble
       def to_d(precision)
-        BigDecimal.new(self.to_s(precision))
+        BigDecimal(self.to_s(precision))
       end
+
       def LongDouble._tc
         CORBA._tc_longdouble
       end

data/lib/corba/common/Union.rb

@@ -9,7 +9,6 @@
 # included with this program.
 #
 # Copyright (c) Remedy IT Expertise BV
-# Chamber of commerce Rotterdam nr.276339, The Netherlands
 #--------------------------------------------------------------------
 
 module R2CORBA
@@ -20,16 +19,20 @@ module R2CORBA
           @discriminator = nil
           @value = nil
         end
+
         def _is_at_default?
           @discriminator == :default
         end
+
         def _value_tc
           ix = self.class._tc.label_index(@discriminator)
           self.class._tc.member_type(ix)
         end
+
         def _disc
           @discriminator
         end
+
         def _disc=(val)
           m_cur = self.class._tc.label_member(@discriminator) unless @discriminator.nil?
           m_new = self.class._tc.label_member(val)
@@ -40,6 +43,7 @@ module R2CORBA
           @discriminator = val
           disc_
         end
+
         def _value
           @value
         end
@@ -53,4 +57,4 @@ module R2CORBA
       end
     end
   end
-end
+end

data/lib/corba/common/Values.rb

@@ -9,7 +9,6 @@
 # included with this program.
 #
 # Copyright (c) Remedy IT Expertise BV
-# Chamber of commerce Rotterdam nr.276339, The Netherlands
 #--------------------------------------------------------------------
 
 module R2CORBA
@@ -43,6 +42,7 @@ module R2CORBA
         def marshal(os)
           raise CORBA::NO_IMPLEMENT
         end
+
         def unmarshal(is)
           raise CORBA::NO_IMPLEMENT
         end
@@ -89,4 +89,4 @@ module R2CORBA
     PUBLIC_MEMBER = 1
 
   end # CORBA
-end # R2CORBA
+end # R2CORBA

data/lib/corba/common/const.rb

@@ -8,12 +8,11 @@
 # included with this program.
 #
 # Copyright (c) Remedy IT Expertise BV
-# Chamber of commerce Rotterdam nr.276339, The Netherlands
 #--------------------------------------------------------------------
 module R2CORBA
   module CORBA
-    BIG_ENDIAN, LTL_ENDIAN = 0,1
-    ENDIAN = ("Ruby".unpack("i")[0] == 2036495698)? LTL_ENDIAN: BIG_ENDIAN
+    BIG_ENDIAN, LTL_ENDIAN = 0, 1
+    ENDIAN = ('Ruby'.unpack('i')[0] == 2036495698) ? LTL_ENDIAN : BIG_ENDIAN
 
     ARG_IN = 1
     ARG_OUT = 2

data/lib/corba/common/exception.rb

@@ -8,13 +8,12 @@
 # included with this program.
 #
 # Copyright (c) Remedy IT Expertise BV
-# Chamber of commerce Rotterdam nr.276339, The Netherlands
 #--------------------------------------------------------------------
 
 module R2CORBA
   module CORBA
     COMPLETED_YES, COMPLETED_NO, COMPLETED_MAYBE = (0..2).to_a
-    COMPLETED_TXT = ["YES", "NO", "MAYBE"].freeze
+    COMPLETED_TXT = ['YES', 'NO', 'MAYBE'].freeze
     class Exception < StandardError
     end
 
@@ -30,6 +29,7 @@ module R2CORBA
       def reason
         self.message
       end
+
       def to_s
         "CORBA::#{self.class::Name}(#{super}) [minor=#{@minor};completed=#{COMPLETED_TXT[@completed.to_i]}]"
       end