r2corba 1.4.1-x86-mingw32

data/lib/corba/jbase/exception.rb

@@ -0,0 +1,106 @@
+#--------------------------------------------------------------------
+# exception.rb - Java/JacORB specific 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
+#--------------------------------------------------------------------
+
+# import all java CORBA exceptions into the R2CORBA::CORBA namespace
+module R2CORBA
+  module CORBA
+    class Exception
+      def self.native2r(jex)
+        if ::NativeException === jex
+          if jex.cause.is_a? Native::SystemException
+            SystemException._raise(jex)
+          elsif jex.cause.is_a? Native::UserException
+            UserException._raise(jex)
+          else
+            raise CORBA::InternalError.new(jex)
+          end
+        else
+          raise jex
+        end
+      end
+    end
+
+    class UserException
+      def self._raise(jex)
+        STDERR.puts "#{jex}\n#{jex.backtrace.join("\n")}" if $VERBOSE and (NativeException === jex)
+        if (NativeException === jex and jex.cause.is_a?(Native::UnknownUserException)) or jex.is_a?(Native::UnknownUserException)
+          java_ex = jex.is_a?(Native::UnknownUserException) ? jex : jex.cause
+          ex = Any.from_java(java_ex.except)
+          ex.set_backtrace(jex.backtrace) if NativeException === jex
+          raise ex
+        elsif (NativeException === jex and jex.cause.is_a?(Native::UserException)) or jex.is_a?(Native::UserException)
+          java_ex = jex.is_a?(Native::UserException) ? jex : jex.cause
+          exname = java_ex.class.name.split('::').last
+          tcs = CORBA::TypeCode.typecodes_for_name(exname) || []
+          extc = tcs.detect {|tc| tc.is_a?(TypeCode::Except) && tc.is_compatible?(java_ex)}
+          if extc
+            ex = extc.from_java(java_ex)
+            ex.set_backtrace(jex.backtrace) if NativeException === jex
+            raise ex
+          end
+        end
+        raise CORBA::UNKNOWN.new("#{jex}", 0, CORBA::COMPLETED_MAYBE)
+      end
+    end
+
+    class InternalError
+      def initialize(jex)
+        @ex_ = jex
+        super(@ex_.message)
+        self.set_backtrace(@ex_.backtrace)
+      end
+    end
+
+    class SystemException
+      def self._raise(jex)
+        raise ArgumentError unless (NativeException === jex and jex.cause.is_a?(Native::SystemException)) or jex.is_a?(Native::SystemException)
+        java_ex = jex.is_a?(Native::SystemException) ? jex : jex.cause
+        exname = java_ex.class.name.split('::').last
+        exklass = CORBA.const_get(exname.to_sym)
+        unless exklass
+          # define hitherto unknown CORBA system exception
+          CORBA.define_system_exception(exname)
+          CORBA.const_get(exname.to_sym) || InternalError
+        end
+        raise exklass.new(jex)
+      end
+      def initialize(*args)
+        if (NativeException === args.first and args.first.cause.is_a? Native::SystemException) or args.first.is_a?(Native::SystemException)
+          java_ex = args.first.is_a?(Native::SystemException) ? args.first : args.first.cause
+          super(java_ex.getMessage)
+          @minor = java_ex.minor
+          @completed = java_ex.completed.value
+          self.set_backtrace(args.first.backtrace) if NativeException === args.first
+        else
+          super(args.shift.to_s)
+          @minor, @completed = (args + [0,0][args.size..2])
+        end
+      end
+    end
+  end # CORBA
+end # R2CORBA
+
+# extend Ruby wrapper for Native java exceptions
+class NativeException
+  alias method_missing_corba_backup method_missing
+  def method_missing(method, *args)
+    if self.cause.is_a?(R2CORBA::CORBA::Native::SystemException) and args.empty?
+        return self.cause.minor if method == :minor
+        return self.cause.completed.value if method == :completed
+        return self.cause.getMessage if method == :reason
+    elsif self.cause.is_a? R2CORBA::CORBA::Native::UserException
+        return self.cause.send(method, *args)
+    end
+    self.method_missing_corba_backup
+  end
+end

data/lib/corba/jbase/poa.rb

@@ -0,0 +1,229 @@
+#--------------------------------------------------------------------
+# poa.rb - Java/JacORB R2CORBA POA 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
+#--------------------------------------------------------------------
+
+module R2CORBA
+  module PortableServer
+    module Native
+      include_package 'org.omg.PortableServer'
+    end
+  end
+end
+
+require 'corba/common/Servant.rb'
+require 'corba/idl/POAC.rb'
+require 'corba/jbase/Servant.rb'
+require 'corba/jbase/ServerRequest.rb'
+
+module R2CORBA
+  module PortableServer
+    def self.string_to_ObjectId(s)
+      raise CORBA::NO_IMPLEMENT
+    end
+
+    def self.ObjectId_to_string(oid)
+      raise CORBA::NO_IMPLEMENT
+    end
+
+    module POA
+      def destroy(etherealize_objects, wait_for_completion)
+        begin
+          self.objref_.destroy(etherealize_objects!=false, wait_for_completion!=false)
+        rescue ::NativeException
+          CORBA::Exception.native2r($!)
+        end
+      end #of operation destroy
+
+      def the_name()
+        begin
+          self.objref_.the_name()
+        rescue ::NativeException
+          CORBA::Exception.native2r($!)
+        end
+      end #of attribute get_the_name
+
+      def the_POAManager()
+        begin
+          PortableServer::POAManager._narrow(CORBA::Object._wrap_native(self.objref_.the_POAManager()))
+        rescue ::NativeException
+          CORBA::Exception.native2r($!)
+        end
+      end #of attribute get_the_POAManager
+
+      def the_parent()
+        begin
+          PortableServer::POA._narrow(CORBA::Object._wrap_native(self.objref_.the_parent()))
+        rescue ::NativeException
+          CORBA::Exception.native2r($!)
+        end
+      end #of attribute get_the_parent
+
+      def the_children()
+        begin
+          self.objref_.the_children().collect {|c| PortableServer::POA._narrow(CORBA::Object._wrap_native(c)) }
+        rescue ::NativeException
+          CORBA::Exception.native2r($!)
+        end
+      end #of attribute get_the_children
+
+      def activate_object(p_servant)
+        begin
+          String.from_java_bytes(self.objref_.activate_object(p_servant.srvref_))
+        rescue ::NativeException
+          CORBA::Exception.native2r($!)
+        end
+      end #of operation activate_object
+
+      def activate_object_with_id(r_id, p_servant)
+        begin
+          self.objref_.activate_object_with_id(r_id.to_s.to_java_bytes, p_servant.srvref_)
+        rescue ::NativeException
+          CORBA::Exception.native2r($!)
+        end
+      end #of operation activate_object_with_id
+
+      def deactivate_object(oid)
+        begin
+          self.objref_.deactivate_object(oid.to_s.to_java_bytes)
+        rescue ::NativeException
+          CORBA::Exception.native2r($!)
+        end
+      end #of operation deactivate_object
+
+      def create_reference(intf)
+        begin
+          CORBA::Object._wrap_native(self.objref_.create_reference(intf.to_s))
+        rescue ::NativeException
+          CORBA::Exception.native2r($!)
+        end
+      end #of operation create_reference
+
+      def create_reference_with_id(oid, intf)
+        begin
+          CORBA::Object._wrap_native(self.objref_.create_reference_with_id(oid.to_s.to_java_bytes, intf.to_s))
+        rescue ::NativeException
+          CORBA::Exception.native2r($!)
+        end
+      end #of operation create_reference_with_id
+
+      def servant_to_id(p_servant)
+        begin
+          String.from_java_bytes(self.objref_.servant_to_id(p_servant.srvref_))
+        rescue ::NativeException
+          CORBA::Exception.native2r($!)
+        end
+      end #of operation servant_to_id
+
+      def servant_to_reference(p_servant)
+        begin
+          CORBA::Object._wrap_native(self.objref_.servant_to_reference(p_servant.srvref_))
+        rescue ::NativeException
+          CORBA::Exception.native2r($!)
+        end
+      end #of operation servant_to_reference
+
+      def reference_to_servant(reference)
+        begin
+          self.objref_.reference_to_servant(reference.objref_).rbServant
+        rescue ::NativeException
+          CORBA::Exception.native2r($!)
+        end
+      end #of operation reference_to_servant
+
+      def reference_to_id(reference)
+        begin
+          String.from_java_bytes(self.objref_.reference_to_id(reference.objref_))
+        rescue ::NativeException
+          CORBA::Exception.native2r($!)
+        end
+      end #of operation reference_to_id
+
+      def id_to_servant(oid)
+        begin
+          self.objref_.id_to_servant(oid.to_s.to_java_bytes).rbServant
+        rescue ::NativeException
+          CORBA::Exception.native2r($!)
+        end
+      end #of operation id_to_servant
+
+      def id_to_reference(oid)
+        begin
+          CORBA::Object._wrap_native(self.objref_.id_to_reference(oid.to_s.to_java_bytes))
+        rescue ::NativeException
+          CORBA::Exception.native2r($!)
+        end
+      end #of operation id_to_reference
+
+      def create_POA(adapter_name, a_POAManager, policies)
+        raise CORBA::BAD_PARAM.new('expected POAManager', 0, CORBA::COMPLETED_NO) unless a_POAManager.is_a?(PortableServer::POAManager)
+        CORBA::PolicyList._tc.validate(policies) unless policies.nil? || policies.empty?
+        jpolicies = CORBA::Native::Reflect::Array.newInstance(CORBA::Native::Policy.java_class, policies.nil? ? 0 : policies.size)
+        policies.each_with_index {|p,i| jpolicies[i] = p.objref_ } unless policies.nil?
+        begin
+          PortableServer::POA._narrow(CORBA::Object._wrap_native(self.objref_.create_POA(adapter_name, a_POAManager.objref_, jpolicies)))
+        rescue ::NativeException
+          CORBA::Exception.native2r($!)
+        end
+      end #of operation create_POA
+
+      def find_POA(adapter_name, activate_it)
+        begin
+          PortableServer::POA._narrow(CORBA::Object._wrap_native(self.objref_.find_POA(adapter_name, activate_it)))
+        rescue ::NativeException
+          CORBA::Exception.native2r($!)
+        end
+      end #of operation find_POA
+    end # POA
+
+    module POAManager
+      def activate()
+        begin
+          self.objref_.activate()
+        rescue ::NativeException
+          CORBA::Exception.native2r($!)
+        end
+      end # activate
+
+      def hold_requests(wait_for_completion)
+        begin
+          self.objref_.hold_requests(wait_for_completion)
+        rescue ::NativeException
+          CORBA::Exception.native2r($!)
+        end
+      end # hold_requests
+
+      def discard_requests(wait_for_completion)
+        begin
+          self.objref_.discard_requests(wait_for_completion)
+        rescue ::NativeException
+          CORBA::Exception.native2r($!)
+        end
+      end # discard_requests
+
+      def deactivate(etherealize_objects, wait_for_completion)
+        begin
+          self.objref_.deactivate(etherealize_objects, wait_for_completion)
+        rescue ::NativeException
+          CORBA::Exception.native2r($!)
+        end
+      end # deactivate
+
+      def get_state()
+        begin
+          self.objref_.get_state().value()
+        rescue ::NativeException
+          CORBA::Exception.native2r($!)
+        end
+      end # get_state
+    end # POAManager
+  end
+end

data/lib/corba/jbase/policies.rb

@@ -0,0 +1,300 @@
+#--------------------------------------------------------------------
+# policies.rb - Java/JacORB R2CORBA Policy support 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
+#--------------------------------------------------------------------
+
+module R2CORBA
+
+  module CORBA
+
+    module ORB
+      def create_policy(type, val)
+        raise CORBA::BAD_PARAM.new('Any expected',0,CORBA::COMPLETED_NO) unless CORBA::Any === val
+        begin
+          Policy._wrap_native(self.orb_.create_policy(type.to_i, val.to_java(self.orb_)))
+        rescue ::NativeException
+          CORBA::Exception.native2r($!)
+        end
+      end
+    end # ORB
+
+    module Object
+      def _get_policy(policy_type)
+        raise CORBA::INV_OBJREF.new if self._is_nil?()
+        begin
+          pol = Policy._wrap_native(self.objref_._get_policy(policy_type))
+        rescue ::NativeException
+          CORBA::Exception.native2r($!)
+        end
+        raise CORBA::INV_POLICY if CORBA.is_nil(pol) # provide spec compliance
+      end
+
+      def _get_policy_overrides(ts)
+        raise CORBA::INV_OBJREF.new if self._is_nil?()
+        ## currently JacORB does not support #_get_policy_overrides so we emulate it in that case
+        unless self.objref_.respond_to?(:_get_policy_overrides)
+          begin
+            ts.collect { |pt| Policy._wrap_native(self.objref_._get_policy(pt)) }.compact
+          rescue ::NativeException
+            CORBA::Exception.native2r($!)
+          end
+        else
+          begin
+            jpolicies = self.objref_._get_policy_overrides(ts.to_java(:int))
+          rescue ::NativeException
+            CORBA::Exception.native2r($!)
+          end
+          jpolicies.collect {|jpol| Policy._wrap_native(jpol) }
+        end
+      end #of operation get_policy_overrides
+
+      def _set_policy_overrides(policies, set_add)
+        raise CORBA::INV_OBJREF.new if self._is_nil?()
+        jpolicies = CORBA::Native::Reflect::Array.newInstance(CORBA::Native::Policy.java_class, policies.size)
+        policies.each_with_index {|e,i| jpolicies[i] = e.objref_ }
+        begin
+          obj = self.objref_._set_policy_override(jpolicies, Native::SetOverrideType.from_int(set_add))
+        rescue ::NativeException
+          CORBA::Exception.native2r($!)
+        end
+        CORBA::Object._wrap_native(obj)
+      end
+
+      ## Currently unsupported by JacORB
+#      def _validate_connection(inconsistent_policies)
+#        raise CORBA::INV_OBJREF.new if self._is_nil?()
+#        jpollist = CORBA::Native::PolicyListHolder.new
+#        ret = self.objref_._validate_connection(jpollist) rescue CORBA::Exception.native2r($!)
+#        jpollist.value.each {|jpol| inconsistent_policies << Policy._wrap_native(jpol) }
+#        ret
+#      end
+    end # Object
+
+    module Policy
+      def self._wrap_native(jpol)
+        raise ArgumentError, 'Expected org.omg.CORBA.Policy' unless jpol.nil? || jpol.is_a?(Native::Policy)
+        Policy._narrow(CORBA::Object._wrap_native(jpol))
+      end
+
+      #-------------------  "Policy Operations"
+
+      def policy_type()
+        begin
+          self.objref_.policy_type()
+        rescue ::NativeException
+          CORBA::Exception.native2r($!)
+        end
+      end #of attribute get_policy_type
+
+      def copy()
+        begin
+          Policy._wrap_native(self.objref_.copy())
+        rescue ::NativeException
+          CORBA::Exception.native2r($!)
+        end
+      end #of operation copy
+
+      def destroy()
+        begin
+          self.objref_.destroy()
+        rescue ::NativeException
+          CORBA::Exception.native2r($!)
+        end
+        @objref_ = nil
+      end #of operation destroy
+    end # Policy
+
+    module PolicyManager
+      #-------------------  "PolicyManager Operations"
+
+      def get_policy_overrides(ts)
+        begin
+          jpolicies = self.objref_.get_policy_overrides(ts.to_java(:int))
+        rescue ::NativeException
+          CORBA::Exception.native2r($!)
+        end
+        jpolicies.collect {|jpol| Policy._wrap_native(jpol) }
+      end #of operation get_policy_overrides
+
+      def set_policy_overrides(policies, set_add)
+        jpolicies = CORBA::Native::Reflect::Array.newInstance(CORBA::Native::Policy.java_class, policies.size)
+        policies.each_with_index {|e,i| jpolicies[i] = e.objref_ }
+        begin
+          self.objref_.set_policy_overrides(jpolicies, Native::SetOverrideType.from_int(set_add))
+        rescue ::NativeException
+          CORBA::Exception.native2r($!)
+        end
+      end #of operation set_policy_overrides
+    end # Policy
+
+  end # CORBA
+
+  module PortableServer
+
+    module POA
+      def create_thread_policy(value)
+        begin
+          PortableServer::ThreadPolicy._narrow(
+            CORBA::Object._wrap_native(
+                self.objref_.create_thread_policy(PortableServer::Native::ThreadPolicyValue.from_int(value))))
+        rescue ::NativeException
+          CORBA::Exception.native2r($!)
+        end
+      end #of operation create_thread_policy
+
+      def create_lifespan_policy(value)
+        begin
+          PortableServer::LifespanPolicy._narrow(
+            CORBA::Object._wrap_native(
+                self.objref_.create_lifespan_policy(PortableServer::Native::LifespanPolicyValue.from_int(value))))
+        rescue ::NativeException
+          CORBA::Exception.native2r($!)
+        end
+      end #of operation create_lifespan_policy
+
+      def create_id_uniqueness_policy(value)
+        begin
+          PortableServer::IdUniquenessPolicy._narrow(
+            CORBA::Object._wrap_native(
+                self.objref_.create_id_uniqueness_policy(PortableServer::Native::IdUniquenessPolicyValue.from_int(value))))
+        rescue ::NativeException
+          CORBA::Exception.native2r($!)
+        end
+      end #of operation create_id_uniqueness_policy
+
+      def create_id_assignment_policy(value)
+        begin
+          PortableServer::IdAssignmentPolicy._narrow(
+            CORBA::Object._wrap_native(
+                self.objref_.create_id_assignment_policy(PortableServer::Native::IdAssignmentPolicyValue.from_int(value))))
+        rescue ::NativeException
+          CORBA::Exception.native2r($!)
+        end
+      end #of operation create_id_assignment_policy
+
+      def create_implicit_activation_policy(value)
+        begin
+          PortableServer::ImplicitActivationPolicy._narrow(
+            CORBA::Object._wrap_native(
+                self.objref_.create_implicit_activation_policy(PortableServer::Native::ImplicitActivationPolicyValue.from_int(value))))
+        rescue ::NativeException
+          CORBA::Exception.native2r($!)
+        end
+      end #of operation create_implicit_activation_policy
+
+      def create_servant_retention_policy(value)
+        begin
+          PortableServer::ServantRetentionPolicy._narrow(
+            CORBA::Object._wrap_native(
+                self.objref_.create_servant_retention_policy(PortableServer::Native::ServantRetentionPolicyValue.from_int(value))))
+        rescue ::NativeException
+          CORBA::Exception.native2r($!)
+        end
+      end #of operation create_servant_retention_policy
+
+      def create_request_processing_policy(value)
+        begin
+          PortableServer::RequestProcessingPolicy._narrow(
+            CORBA::Object._wrap_native(
+                self.objref_.create_request_processing_policy(PortableServer::Native::RequestProcessingPolicyValue.from_int(value))))
+        rescue ::NativeException
+          CORBA::Exception.native2r($!)
+        end
+      end #of operation create_request_processing_policy
+    end # POA
+
+    module ThreadPolicy  ## interface
+      def value()
+        begin
+          self.objref_.value().value()
+        rescue ::NativeException
+          CORBA::Exception.native2r($!)
+        end
+      end #of attribute get_value
+    end #of interface ThreadPolicy
+
+    module LifespanPolicy  ## interface
+      def value()
+        begin
+          self.objref_.value().value()
+        rescue ::NativeException
+          CORBA::Exception.native2r($!)
+        end
+      end #of attribute get_value
+    end #of interface LifespanPolicy
+
+    module IdUniquenessPolicy  ## interface
+      def value()
+        begin
+          self.objref_.value().value()
+        rescue ::NativeException
+          CORBA::Exception.native2r($!)
+        end
+      end #of attribute get_value
+    end #of interface IdUniquenessPolicy
+
+    module IdAssignmentPolicy  ## interface
+      def value()
+        begin
+          self.objref_.value().value()
+        rescue ::NativeException
+          CORBA::Exception.native2r($!)
+        end
+      end #of attribute get_value
+    end #of interface IdAssignmentPolicy
+
+    module ImplicitActivationPolicy  ## interface
+      def value()
+        begin
+          self.objref_.value().value()
+        rescue ::NativeException
+          CORBA::Exception.native2r($!)
+        end
+      end #of attribute get_value
+    end #of interface ImplicitActivationPolicy
+
+    module ServantRetentionPolicy  ## interface
+      def value()
+        begin
+          self.objref_.value().value()
+        rescue ::NativeException
+          CORBA::Exception.native2r($!)
+        end
+      end #of attribute get_value
+    end #of interface RequestProcessingPolicy
+
+    module RequestProcessingPolicy  ## interface
+      def value()
+        begin
+          self.objref_.value().value()
+        rescue ::NativeException
+          CORBA::Exception.native2r($!)
+        end
+      end #of attribute get_value
+    end #of interface RequestProcessingPolicy
+
+  end # PortableServer
+
+  module BiDirPolicy
+
+    module BidirectionalPolicy  ## interface
+      def value()
+        begin
+          self.objref_.value().value()
+        rescue ::NativeException
+          CORBA::Exception.native2r($!)
+        end
+      end #of attribute get_value
+    end #of interface BidirectionalPolicy
+
+  end # BiDirPolicy
+
+end # R2CORBA

data/lib/corba/jbase/post_require.rb

@@ -0,0 +1,14 @@
+#--------------------------------------------------------------------
+# require.rb - R2CORBA loader finalizer
+#
+# 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/jbase/IORMap'