r2corba 1.5.1-universal-java

data/lib/corba/cbase/Values.rb

@@ -0,0 +1,129 @@
+#--------------------------------------------------------------------
+# Values.rb - C++/Value CORBA Value and ValueBox support
+#
+# 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 AbstractValueBase
+      def self.included(mod)
+        mod.module_eval do
+          def self.===(obj)
+            obj.kind_of?(self)
+          end
+        end
+      end
+    end
+    module ValueBase
+      def self.included(mod)
+        mod.module_eval do
+          include CORBA::AbstractValueBase unless self.include?(CORBA::AbstractValueBase)
+
+          alias :org_kind_of? :kind_of?
+          def kind_of?(mod)
+            if mod < CORBA::AbstractValueBase && mod.const_defined?(:Intf)
+              org_kind_of?(mod::Intf)
+              #super(mod::Intf)   ## problematic with Ruby 1.9.2 (known bug)
+            else
+              org_kind_of?(mod)
+              #super              ## problematic with Ruby 1.9.2 (known bug)
+            end
+          end
+          alias :is_a? :kind_of?
+        end
+      end
+
+      def _marshal_with(os, &block)
+        self.pre_marshal(os)
+        self.instance_eval(&block)
+        self.post_marshal(os)
+      end
+
+      def _unmarshal_with(is, &block)
+        self.pre_unmarshal(is)
+        self.instance_eval(&block)
+        self.post_unmarshal(is)
+      end
+    end # ValueBase
+
+    module Portable
+      class ValueFactoryBase
+
+        def self.inherited(value_factory_base)
+          # value_factory_base is the <valuetype>Factory base class
+          # generated from IDL
+          value_factory_base.module_eval do
+            def self.value_id
+              self::VALUE_ID
+            end
+          end
+        end
+
+        def self._check_factory
+          f = self._lookup_value_factory(self.value_id)
+          self._register_value_factory(self.value_id(), self.new) if f.nil?
+        end
+
+      end # ValueFactoryBase
+
+      module CustomValueBase
+        def self.included(mod)
+          mod.module_eval do
+            include CORBA::ValueBase unless self.include?(CORBA::ValueBase)
+
+            def do_marshal(os)
+              self.pre_marshal(os)
+              self.marshal(os)
+              self.post_marshal(os)
+            end
+
+            def do_unmarshal(is)
+              self.pre_unmarshal(is)
+              self.unmarshal(is)
+              self.post_unmarshal(is)
+            end
+          end
+        end
+      end # CustomValueBase
+
+      module BoxedValueBase
+        class FactoryBase < CORBA::Portable::ValueFactoryBase
+          ## generic factory base
+        end
+        def self.included(mod)
+          mod.module_eval do
+            include CORBA::ValueBase unless self.include?(CORBA::ValueBase)
+
+            def marshal(os)
+              os.write_member(self.class._tc.content_type.resolved_tc, self.value)
+            end
+
+            def unmarshal(is)
+              self.value = is.read_member(self.class._tc.content_type.resolved_tc)
+            end
+
+            self.const_set(:Factory, Class.new(CORBA::Portable::BoxedValueBase::FactoryBase))
+            self::Factory.class_eval(%Q{
+              def self.value_id
+                #{self.name}::TRUNCATABLE_IDS.first
+              end
+
+              def _create_default
+                #{self.name}.new
+              end
+            })
+          end
+        end
+      end
+
+    end # Portable
+  end # CORBA
+end # R2CORBA

data/lib/corba/cbase/exception.rb

@@ -0,0 +1,66 @@
+#--------------------------------------------------------------------
+# exception.rb - C++/TAO ORB 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(nex)
+        raise nex
+      end
+    end
+
+    class InternalError
+      def initialize(ex_or_str)
+        if ex_or_str.is_a?(String)
+          super(ex_or_str)
+        else
+          @ex_ = ex_or_str
+          super(@ex_.message)
+          self.set_backtrace(@ex_.backtrace)
+        end
+      end
+    end
+
+    class SystemException
+      def SystemException._raise(id, reason, minor, completed)
+        name = id.to_s.split(':')[1]
+        exklass = name.split('/').last
+        exklass = CORBA.const_defined?(exklass) ? CORBA.const_get(exklass) : nil
+        if exklass.nil? || !(CORBA::SystemException > exklass)
+          Kernel.raise InternalError,
+                "Unknown SystemException raised: " +
+                id.to_s+' ['+reason.to_s+']'
+        else
+          Kernel.raise exklass.new(reason,minor,completed)
+        end
+      end
+      def initialize(reason="", minor=0, completed=nil)
+        super(reason)
+        @minor = minor
+        @completed = completed
+        @ids = [self.class::Id]
+      end
+      attr_accessor :ids
+      def _ids; @ids; end
+      def _interface_repository_id
+        self.class::Id
+      end
+    end
+
+  end # CORBA
+end # R2CORBA
+
+# NativeException mockup for JRuby compatibility
+NativeException = Exception

data/lib/corba/cbase/poa.rb

@@ -0,0 +1,23 @@
+#--------------------------------------------------------------------
+# poa.rb - C++/TAO 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
+#--------------------------------------------------------------------
+
+require 'corba/common/Servant.rb'
+require 'corba/idl/POAC.rb'
+require 'corba/idl/IORTableC'
+
+begin
+  require RUBY_PLATFORM =~ /mingw32/ ? "librpoaw" : "librpoa"
+rescue LoadError
+  $stderr.puts $!.to_s if $VERBOSE
+  raise
+end

data/lib/corba/cbase/policies.rb

@@ -0,0 +1,78 @@
+#--------------------------------------------------------------------
+# policies.rb - C++/TAO 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
+#--------------------------------------------------------------------
+require 'corba/idl/TAO_ExtC'
+
+begin
+  require RUBY_PLATFORM =~ /mingw32/ ? "librpolw" : "librpol"
+rescue LoadError
+  $stderr.puts $!.to_s if $VERBOSE
+  raise
+end
+
+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
+          self.orb_.create_policy(type.to_i, val)
+        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 = 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 _set_policy_overrides(policies, set_add)
+        raise CORBA::INV_OBJREF.new if self._is_nil?()
+        begin
+          CORBA::Object._wrap_native(self.objref_._set_policy_overrides(policies, set_add))
+        rescue ::NativeException
+          CORBA::Exception.native2r($!)
+        end
+      end
+
+      def _get_policy_overrides(types)
+        raise CORBA::INV_OBJREF.new if self._is_nil?()
+        begin
+          self.objref_._get_policy_overrides(types)
+        rescue ::NativeException
+          CORBA::Exception.native2r($!)
+        end
+      end
+
+      def _validate_connection(inconsistent_policies)
+        raise CORBA::INV_OBJREF.new if self._is_nil?()
+        begin
+          self.objref_._validate_connection(inconsistent_policies)
+        rescue ::NativeException
+          CORBA::Exception.native2r($!)
+        end
+      end
+    end # Object
+
+  end # CORBA
+
+end # R2CORBA

data/lib/corba/cbase/post_require.rb

@@ -0,0 +1,14 @@
+#--------------------------------------------------------------------
+# require.rb - C++/TAO 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/cbase/IORMap'

data/lib/corba/cbase/require.rb

@@ -0,0 +1,28 @@
+#--------------------------------------------------------------------
+# require.rb - C++/TAO 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
+#--------------------------------------------------------------------
+
+begin
+  require RUBY_PLATFORM =~ /mingw32/ ? "libr2taow" : "libr2tao"
+rescue LoadError
+  $stderr.puts $!.to_s if $VERBOSE
+  raise
+end
+
+[ 'exception',
+  'ORB',
+  'Request',
+  'Typecode',
+  'Stub',
+  'Values',
+  'Streams'
+].each { |f| require "corba/cbase/#{f}.rb" }

data/lib/corba/cmds/base.rb

@@ -0,0 +1,85 @@
+#--------------------------------------------------------------------
+# base.rb - R2CORBA base command handler
+#
+# 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 'optparse'
+
+module R2CORBA
+  module Commands
+
+    @@commands = Hash.new do |hash, key|
+      $stderr.puts "Unknown command #{key} specified."
+      exit(1)
+    end
+
+    @@options = {
+      :verbose => false
+    }
+
+    def self.register(cmdid, cmdhandler)
+      @@commands[cmdid.to_s] = cmdhandler
+    end
+
+    def self.describe_all
+      puts 'R2CORBA commands:'
+      puts "\tlist\t\tlist all r2corba commands"
+      @@commands.each do |id, cmd|
+        desc = cmd.description.split('\n')
+        puts "\t#{id}\t\t#{desc.join('\t\t\t')}"
+      end
+    end
+
+    def self.run(cmdid)
+      @@commands[cmdid.to_s].run
+    end
+
+    def self.options
+      @@options
+    end
+
+    def self.parse_args(args)
+      opts = OptionParser.new
+      opts.banner = "Usage: r2corba [global options] command [command options]\n\n" +
+          "    command\t\tSpecifies R2CORBA command to execute.\n"+
+          "           \t\tDefault = list :== list commands\n"
+      opts.separator ''
+      opts.on('-v', '--verbose',
+              'Show verbose output') { |v| ::R2CORBA::Commands.options[:verbose] = true }
+      opts.on('-h', '--help',
+               'Show this message.') { |v| puts opts; exit(0) }
+      opts.parse!(args)
+    end
+  end
+end
+
+Dir[File.join(File.dirname(__FILE__), '*.rb')].each do |file|
+  require file unless File.basename(file) == File.basename(__FILE__)
+end
+
+# extract global options and command
+args = []
+while cmd = ARGV.shift
+  if cmd.start_with? '-'
+    args << cmd
+    cmd = nil
+  else
+    break
+  end
+end
+
+R2CORBA::Commands.parse_args(args)
+
+if cmd && cmd.downcase != 'list'
+  R2CORBA::Commands.run(cmd)
+else
+  R2CORBA::Commands.describe_all
+end

data/lib/corba/cmds/test.rb

@@ -0,0 +1,30 @@
+#--------------------------------------------------------------------
+# test.rb - R2CORBA unit tester command
+#
+# 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 File.join(File.dirname(__FILE__), '..', '..', '..', 'test', 'test_runner.rb')
+
+module R2CORBA
+  module Commands
+    class Test
+      def description
+        'Run R2CORBA regression tests.'
+      end
+
+      def run
+        TestFinder.run ARGV
+      end
+    end
+
+    self.register('test', Test.new)
+  end
+end