r2corba 1.6.1-x64-mingw-ucrt

data/lib/corba/common/Union.rb

@@ -0,0 +1,60 @@
+#--------------------------------------------------------------------
+# 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
+#--------------------------------------------------------------------
+
+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

@@ -0,0 +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
+#--------------------------------------------------------------------
+
+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

@@ -0,0 +1,21 @@
+#--------------------------------------------------------------------
+# 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
+#--------------------------------------------------------------------
+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

@@ -0,0 +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
+#--------------------------------------------------------------------
+
+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

data/lib/corba/common/require.rb

@@ -0,0 +1,34 @@
+#--------------------------------------------------------------------
+# 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
+#--------------------------------------------------------------------
+
+module R2CORBA
+
+  # from Ruby 2.4 Fixnum and Bignum are deprecated
+  FIXNUM_KLASS = (1.class == ::Integer ? ::Integer : ::Fixnum)
+  BIGNUM_KLASS = (1.class == ::Integer ? ::Integer : ::Bignum)
+
+end
+
+[ 'version',
+  'const',
+  'IDL',
+  'exception',
+  'Stub',
+  'Struct',
+  'Union',
+  'Typecode',
+  'Values',
+  'Any',
+  'Object',
+  'ORB',
+  'Request'
+].each { |f| require "corba/common/#{f}.rb" }

data/lib/corba/common/version.rb

@@ -0,0 +1,21 @@
+#--------------------------------------------------------------------
+# version.rb - R2CORBA version 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
+#--------------------------------------------------------------------
+
+module R2CORBA
+
+  R2CORBA_MAJOR = 1
+  R2CORBA_MINOR = 6
+  R2CORBA_RELEASE = 1
+
+  R2CORBA_VERSION = "#{R2CORBA_MAJOR}.#{R2CORBA_MINOR}.#{R2CORBA_RELEASE}".freeze
+
+end

data/lib/corba/idl/BiDirPolicyC.rb

@@ -0,0 +1,62 @@
+# -*- Ruby -*-
+#
+# ****  Code generated by the R2CORBA IDL Compiler ****
+# R2CORBA has been developed by:
+#        Remedy IT Expertise BV
+#        The Netherlands
+#        https://www.remedy.nl
+#
+
+module R2CORBA
+
+  CORBA.implement('BiDirPolicy.pidl', {}, CORBA::IDL::CLIENT_STUB) {
+
+  module BiDirPolicy
+
+    class BidirectionalPolicyValue < CORBA::_tc_ushort.get_type
+      def BidirectionalPolicyValue._tc; @@tc_BidirectionalPolicyValue ||= CORBA::TypeCode::Alias.new('IDL:omg.org/BiDirPolicy/BidirectionalPolicyValue:1.0', 'BidirectionalPolicyValue', CORBA::_tc_ushort, self); end
+    end # typedef BidirectionalPolicyValue
+    NORMAL = 0
+    BOTH = 1
+    BIDIRECTIONAL_POLICY_TYPE = 37
+
+    module BidirectionalPolicy  ## interface
+
+      include CORBA::Policy
+
+      Id = 'IDL:omg.org/BiDirPolicy/BidirectionalPolicy:1.0'.freeze
+      Ids = [ Id,
+              CORBA::Policy::Id ].freeze
+
+      def BidirectionalPolicy._tc; @@tc_BidirectionalPolicy ||= CORBA::TypeCode::ObjectRef.new(Id, 'BidirectionalPolicy', self); end
+      self._tc  # register typecode
+
+      def BidirectionalPolicy._narrow(obj)
+        return nil if CORBA.is_nil(obj)
+        return CORBA::Stub.create_stub(obj)._narrow!(self)
+      end
+
+      def BidirectionalPolicy._duplicate(obj)
+        return nil if CORBA.is_nil(obj)
+        return CORBA::Stub.create_stub(super(obj))._narrow!(self)
+      end
+
+      def _interface_repository_id
+        BiDirPolicy::BidirectionalPolicy::Id
+      end
+
+
+      def value()
+        raise ::CORBA::NO_IMPLEMENT unless self.respond_to?(:_invoke, true)
+        _ret = self._invoke('_get_value', {
+          :result_type => BiDirPolicy::BidirectionalPolicyValue._tc})
+        _ret
+      end #of attribute value getter
+    end #of interface BidirectionalPolicy
+
+  end #of module BiDirPolicy
+
+  } ## end of 'BiDirPolicy.pidl'
+end #of module R2CORBA
+
+# -*- END -*-