r2corba 1.4.1

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

data/lib/corba/common/Any.rb

@@ -0,0 +1,91 @@
+#--------------------------------------------------------------------
+# Any.rb - Common definitions for CORBA Any 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
+    class Any
+
+      def Any.typecode_for_value(val)
+        case val
+          when CORBA::Any
+            return val._tc
+          when ::NilClass
+            return CORBA._tc_null
+          when ::Bignum
+            return CORBA._tc_longlong
+          when ::Integer
+            return CORBA._tc_long
+          when ::Float
+            return CORBA._tc_double
+          when ::TrueClass, ::FalseClass
+            return CORBA._tc_boolean
+          when ::String
+            return CORBA._tc_string
+          else
+            if val.class.respond_to?(:_tc)
+              begin
+                tc = val.class._tc
+                if tc.is_a? CORBA::TypeCode
+                  return tc
+                end
+              rescue
+              end
+            else
+              if val.is_a? CORBA::Object
+                return CORBA._tc_Object
+              elsif val.is_a? CORBA::TypeCode
+                return CORBA._tc_TypeCode
+              end
+            end
+        end
+        return nil
+      end
+
+      def Any.value_for_any(any)
+        case any
+          when CORBA::Any
+            return any._value
+          else
+            return any
+        end
+      end
+
+      def Any.to_any(o, tc=nil)
+        if tc.nil?
+          tc = self.typecode_for_value(o)
+          if tc.is_a?(CORBA::TypeCode)
+            return new(o, tc)
+          end
+          raise CORBA::MARSHAL.new('missing TypeCode',0,CORBA::COMPLETED_NO)
+        end
+        return new(o, tc)
+      end
+
+      def _tc
+        @__tc
+      end
+      def _value
+        @__value
+      end
+
+      private_class_method :new
+
+      protected
+
+      def initialize(o, tc)
+        @__tc = tc
+        @__value = o
+      end
+
+    end # Any
+  end # CORBA
+end # R2CORBA

data/lib/corba/common/IDL.rb

@@ -0,0 +1,104 @@
+#--------------------------------------------------------------------
+# IDL.rb - inline IDL loading 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
+#--------------------------------------------------------------------
+
+# hardwire RIDL to embedded state for Ruby language mapping
+module IDL
+  @@embedded = true
+  @@be_name = :ruby
+end
+
+begin
+  require 'rubygems'
+rescue LoadError
+  # ignore error, RIDL may be installed locally not as gem
+end
+require 'ridl/ridl'
+
+module R2CORBA
+
+  module CORBA
+
+    module IDL
+      CLIENT_STUB = 1.freeze
+      SERVANT_INTF = 2.freeze
+
+      @@loaded_idls = {}
+
+      def IDL.implement(idlfile, params = {}, genbits = CLIENT_STUB)
+        idlreg = @@loaded_idls[idlfile]
+        if idlreg.nil? || ((idlreg & genbits) != genbits)
+          idlreg ||= 0
+          if block_given?
+            @@loaded_idls[idlfile] = idlreg | genbits
+            yield
+          else
+            params[:includepaths] ||= $:
+            fp = find_include(idlfile, params[:includepaths])
+            begin
+              f = File.open(fp, 'r')
+              params.store(:stubs_only, !gen_servant_intf?(idlreg, genbits))
+              params.store(:client_stubs, gen_client_stubs?(idlreg, genbits))
+              ## check for forced stub generation
+              genbits |= CLIENT_STUB if params[:client_stubs]
+              @@loaded_idls[idlfile] = (idlreg | genbits)
+              ::IDL::RIDL.eval(f, params)
+            ensure
+              f.close
+            end
+          end
+        end
+      end
+      private
+      def IDL.find_include(fname, paths)
+        fpath = if File.file?(fname) && File.readable?(fname)
+          fname
+        else
+          fp = paths.find do |p|
+            f = p + "/" + fname
+            File.file?(f) && File.readable?(f)
+          end
+          fp += '/' + fname if !fp.nil?
+          fp
+        end
+        if not fpath.nil?
+          return fpath
+        end
+        raise "Cannot open IDL file '#{fname}'"
+      end
+
+      def IDL.gen_servant_intf?(idlreg, genbits)
+        if (genbits & SERVANT_INTF) == SERVANT_INTF
+          (idlreg & SERVANT_INTF) != SERVANT_INTF
+        else
+          false
+        end
+      end
+
+      def IDL.gen_client_stubs?(idlreg, genbits)
+        if (idlreg & CLIENT_STUB) == CLIENT_STUB
+          false
+        else
+          if (genbits & CLIENT_STUB) == CLIENT_STUB
+            true
+          else
+            ## if servant intf need to be generated we *require* client stubs too
+            gen_servant_intf?(idlreg, genbits)
+          end
+        end
+      end
+
+    end
+
+  end
+
+end