r2corba 1.4.1-x86-mingw32 → 1.5.1-x86-mingw32

data/lib/corba/common/Union.rb

@@ -1,56 +1,56 @@
-#--------------------------------------------------------------------
-# Union.rb - Definition of CORBA Union class as baseclass for all
-#             IDL defined unions
-#
-# 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
-#--------------------------------------------------------------------
-
-module R2CORBA
-  module CORBA
-    module Portable
-      class Union
-        def initialize
-          @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)
-          raise ::CORBA::BAD_PARAM.new(
-            "discriminator value (#{val.to_s}) outside current member for union #{self.class._tc.name}",
-            1, ::CORBA::COMPLETED_NO) unless @discriminator.nil? || m_cur == m_new
-          disc_ = @discriminator
-          @discriminator = val
-          disc_
-        end
-        def _value
-          @value
-        end
-        protected
-        def _set_value(ix, val)
-          oldval = @value
-          @discriminator = self.class._tc.member_label(ix)
-          @value = val
-          oldval
-        end
-      end
-    end
-  end
+#--------------------------------------------------------------------
+# Union.rb - Definition of CORBA Union class as baseclass for all
+#             IDL defined unions
+#
+# 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
+#--------------------------------------------------------------------
+
+module R2CORBA
+  module CORBA
+    module Portable
+      class Union
+        def initialize
+          @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)
+          raise ::CORBA::BAD_PARAM.new(
+            "discriminator value (#{val.to_s}) outside current member for union #{self.class._tc.name}",
+            1, ::CORBA::COMPLETED_NO) unless @discriminator.nil? || m_cur == m_new
+          disc_ = @discriminator
+          @discriminator = val
+          disc_
+        end
+        def _value
+          @value
+        end
+        protected
+        def _set_value(ix, val)
+          oldval = @value
+          @discriminator = self.class._tc.member_label(ix)
+          @value = val
+          oldval
+        end
+      end
+    end
+  end
 end

data/lib/corba/common/Values.rb

@@ -1,92 +1,92 @@
-#--------------------------------------------------------------------
-# Values.rb - Definition of CORBA Valuetype base classes for all
-#             IDL defined valuetypes
-#
-# 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
-#--------------------------------------------------------------------
-
-module R2CORBA
-  module CORBA
-    module AbstractBase
-      Id = 'IDL:omg.org/CORBA/AbstractBase:1.0'.freeze
-      Ids = [Id].freeze
-    end
-
-    module AbstractValueBase
-    end
-
-    module ValueBase
-      def do_marshal(os)
-        self.marshal(os)
-      end
-
-      def do_unmarshal(is)
-        self.unmarshal(is)
-      end
-    end
-
-    class ValueFactory
-    end
-
-    module Portable
-      module BoxedValueBase
-      end
-
-      module CustomValueBase
-        def marshal(os)
-          raise CORBA::NO_IMPLEMENT
-        end
-        def unmarshal(is)
-          raise CORBA::NO_IMPLEMENT
-        end
-      end
-
-      class ValueFactoryBase < CORBA::ValueFactory
-        def _create_default
-          raise CORBA::NO_IMPLEMENT
-        end
-
-        def value_id
-          self.class.value_id # derived classes define this
-        end
-
-        def self.register_factory(orb)
-          orb.register_value_factory(self.value_id, self.new)
-        end
-
-        def self.get_factory(orb)
-          f = orb.lookup_value_factory(self.value_id)
-          self.register_factory(orb) if f.nil?
-          f || orb.lookup_value_factory(self.value_id)
-        end
-
-        def self.unregister_factory(orb)
-          orb.unregister_value_factory(self.value_id)
-        end
-      end
-    end # Portable
-
-    VM_NONE = 0
-    VM_CUSTOM = 1
-    VM_ABSTRACT = 2
-    VM_TRUNCATABLE = 3
-
-    VT_MODIFIERS = {
-      :none => VM_NONE,
-      :abstract => VM_ABSTRACT,
-      :truncatable => VM_TRUNCATABLE,
-      :custom => VM_CUSTOM
-    }.freeze
-
-    PRIVATE_MEMBER = 0
-    PUBLIC_MEMBER = 1
-
-  end # CORBA
+#--------------------------------------------------------------------
+# Values.rb - Definition of CORBA Valuetype base classes for all
+#             IDL defined valuetypes
+#
+# 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
+#--------------------------------------------------------------------
+
+module R2CORBA
+  module CORBA
+    module AbstractBase
+      Id = 'IDL:omg.org/CORBA/AbstractBase:1.0'.freeze
+      Ids = [Id].freeze
+    end
+
+    module AbstractValueBase
+    end
+
+    module ValueBase
+      def do_marshal(os)
+        self.marshal(os)
+      end
+
+      def do_unmarshal(is)
+        self.unmarshal(is)
+      end
+    end
+
+    class ValueFactory
+    end
+
+    module Portable
+      module BoxedValueBase
+      end
+
+      module CustomValueBase
+        def marshal(os)
+          raise CORBA::NO_IMPLEMENT
+        end
+        def unmarshal(is)
+          raise CORBA::NO_IMPLEMENT
+        end
+      end
+
+      class ValueFactoryBase < CORBA::ValueFactory
+        def _create_default
+          raise CORBA::NO_IMPLEMENT
+        end
+
+        def value_id
+          self.class.value_id # derived classes define this
+        end
+
+        def self.register_factory(orb)
+          orb.register_value_factory(self.value_id, self.new)
+        end
+
+        def self.get_factory(orb)
+          f = orb.lookup_value_factory(self.value_id)
+          self.register_factory(orb) if f.nil?
+          f || orb.lookup_value_factory(self.value_id)
+        end
+
+        def self.unregister_factory(orb)
+          orb.unregister_value_factory(self.value_id)
+        end
+      end
+    end # Portable
+
+    VM_NONE = 0
+    VM_CUSTOM = 1
+    VM_ABSTRACT = 2
+    VM_TRUNCATABLE = 3
+
+    VT_MODIFIERS = {
+      :none => VM_NONE,
+      :abstract => VM_ABSTRACT,
+      :truncatable => VM_TRUNCATABLE,
+      :custom => VM_CUSTOM
+    }.freeze
+
+    PRIVATE_MEMBER = 0
+    PUBLIC_MEMBER = 1
+
+  end # CORBA
 end # R2CORBA

data/lib/corba/common/const.rb

@@ -1,22 +1,22 @@
-#--------------------------------------------------------------------
-# const.rb - Common constants
-#
-# 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
-#--------------------------------------------------------------------
-module R2CORBA
-  module CORBA
-    BIG_ENDIAN, LTL_ENDIAN = 0,1
-    ENDIAN = ("Ruby".unpack("i")[0] == 2036495698)? LTL_ENDIAN: BIG_ENDIAN
-
-    ARG_IN = 1
-    ARG_OUT = 2
-    ARG_INOUT = 3
-  end
-end
+#--------------------------------------------------------------------
+# const.rb - Common constants
+#
+# 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
+#--------------------------------------------------------------------
+module R2CORBA
+  module CORBA
+    BIG_ENDIAN, LTL_ENDIAN = 0,1
+    ENDIAN = ("Ruby".unpack("i")[0] == 2036495698)? LTL_ENDIAN: BIG_ENDIAN
+
+    ARG_IN = 1
+    ARG_OUT = 2
+    ARG_INOUT = 3
+  end
+end

data/lib/corba/common/exception.rb

@@ -1,68 +1,68 @@
-#--------------------------------------------------------------------
-# exception.rb - Common CORBA Exception definitions
-#
-# 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
-#--------------------------------------------------------------------
-
-module R2CORBA
-  module CORBA
-    COMPLETED_YES, COMPLETED_NO, COMPLETED_MAYBE = (0..2).to_a
-    COMPLETED_TXT = ["YES", "NO", "MAYBE"].freeze
-    class Exception < StandardError
-    end
-
-    class UserException < CORBA::Exception
-    end
-
-    class InternalError < StandardError
-    end
-
-    class SystemException < CORBA::Exception
-      private_class_method :new
-      attr_accessor :minor, :completed
-      def reason
-        self.message
-      end
-      def to_s
-        "CORBA::#{self.class::Name}(#{super}) [minor=#{@minor};completed=#{COMPLETED_TXT[@completed.to_i]}]"
-      end
-    end
-
-    def CORBA.define_system_exception(name)
-      self.module_eval %Q^
-        class #{name} < SystemException
-          public_class_method :new
-          def initialize(*args)
-            super(*args)
-          end
-          Id = "IDL:omg.org/CORBA/#{name}:1.0"
-          Name = "#{name}"
-          def self._tc
-            @@tc_ ||= TypeCode::SysExcept.new(self::Id, self::Name)
-          end
-        end
-      ^
-    end
-
-    # SystemException derivatives
-    [
-      'UNKNOWN', 'BAD_PARAM', 'NO_MEMORY', 'IMP_LIMIT', 'COMM_FAILURE', 'INV_OBJREF',
-      'OBJECT_NOT_EXIST', 'NO_PERMISSION', 'INTERNAL', 'MARSHAL', 'INITIALIZE', 'NO_IMPLEMENT',
-      'BAD_TYPECODE', 'BAD_OPERATION', 'NO_RESOURCES', 'NO_RESPONSE', 'PERSIST_STORE',
-      'BAD_INV_ORDER', 'TRANSIENT', 'FREE_MEM', 'INV_IDENT', 'INV_FLAG', 'INTF_REPOS', 'BAD_CONTEXT',
-      'OBJ_ADAPTER', 'DATA_CONVERSION', 'INV_POLICY', 'REBIND', 'TIMEOUT',
-      'TRANSACTION_UNAVAILABLE', 'TRANSACTION_MODE', 'TRANSACTION_REQUIRED', 'TRANSACTION_ROLLEDBACK',
-      'INVALID_TRANSACTION', 'CODESET_INCOMPATIBLE', 'BAD_QOS', 'INVALID_ACTIVITY',
-      'ACTIVITY_COMPLETED', 'ACTIVITY_REQUIRED', 'THREAD_CANCELLED'
-    ].each do |s|
-      define_system_exception(s)
-    end
-  end # CORBA
-end # R2CORBA
+#--------------------------------------------------------------------
+# exception.rb - Common CORBA Exception definitions
+#
+# 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
+#--------------------------------------------------------------------
+
+module R2CORBA
+  module CORBA
+    COMPLETED_YES, COMPLETED_NO, COMPLETED_MAYBE = (0..2).to_a
+    COMPLETED_TXT = ["YES", "NO", "MAYBE"].freeze
+    class Exception < StandardError
+    end
+
+    class UserException < CORBA::Exception
+    end
+
+    class InternalError < StandardError
+    end
+
+    class SystemException < CORBA::Exception
+      private_class_method :new
+      attr_accessor :minor, :completed
+      def reason
+        self.message
+      end
+      def to_s
+        "CORBA::#{self.class::Name}(#{super}) [minor=#{@minor};completed=#{COMPLETED_TXT[@completed.to_i]}]"
+      end
+    end
+
+    def CORBA.define_system_exception(name)
+      self.module_eval %Q^
+        class #{name} < SystemException
+          public_class_method :new
+          def initialize(*args)
+            super(*args)
+          end
+          Id = "IDL:omg.org/CORBA/#{name}:1.0"
+          Name = "#{name}"
+          def self._tc
+            @@tc_ ||= TypeCode::SysExcept.new(self::Id, self::Name)
+          end
+        end
+      ^
+    end
+
+    # SystemException derivatives
+    [
+      'UNKNOWN', 'BAD_PARAM', 'NO_MEMORY', 'IMP_LIMIT', 'COMM_FAILURE', 'INV_OBJREF',
+      'OBJECT_NOT_EXIST', 'NO_PERMISSION', 'INTERNAL', 'MARSHAL', 'INITIALIZE', 'NO_IMPLEMENT',
+      'BAD_TYPECODE', 'BAD_OPERATION', 'NO_RESOURCES', 'NO_RESPONSE', 'PERSIST_STORE',
+      'BAD_INV_ORDER', 'TRANSIENT', 'FREE_MEM', 'INV_IDENT', 'INV_FLAG', 'INTF_REPOS', 'BAD_CONTEXT',
+      'OBJ_ADAPTER', 'DATA_CONVERSION', 'INV_POLICY', 'REBIND', 'TIMEOUT',
+      'TRANSACTION_UNAVAILABLE', 'TRANSACTION_MODE', 'TRANSACTION_REQUIRED', 'TRANSACTION_ROLLEDBACK',
+      'INVALID_TRANSACTION', 'CODESET_INCOMPATIBLE', 'BAD_QOS', 'INVALID_ACTIVITY',
+      'ACTIVITY_COMPLETED', 'ACTIVITY_REQUIRED', 'THREAD_CANCELLED'
+    ].each do |s|
+      define_system_exception(s)
+    end
+  end # CORBA
+end # R2CORBA