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

data/README

@@ -1,62 +1,62 @@
-
-* What is Ruby2CORBA
-
-Ruby2CORBA (R2CORBA) is a CORBA mapping implementation for the Ruby
-programming language (see http://www.ruby-lang.org).
-Instead of going for a complete native Ruby mapping implementing a native
-Ruby ORB, R2CORBA aims at providing CORBA functionality through a Ruby
-extension using the DII and DSI interfaces of an existing CORBA ORB 
-implementation.
-There are currently two flavors of this extension available:
-	o an MRI Ruby extension written in Ruby and C/C++ using TAO 
-	  (The ACE ORB; see http://www.cs.wustl.edu/~schmidt/TAO.html).
-	o a JRuby extension written in Ruby and Java using JacORB 
-	  (http://www.jacorb.org/index.html).
-A native Ruby implementation of an OMG IDL compiler supplements this
-extension and provides powerful features like direct inclusion of IDL
-language modules into your Ruby programs without the need of explicit, 
-separate stub generation.
-
-Both flavors of R2CORBA fully implement the official OMG Ruby CORBA 
-Language Mapping (RCLM) specification which can be downloaded here:
-http://www.omg.org/spec/RCLM.
-
-* How to get R2CORBA
-
-Execute
-
-gem install r2corba
-
-to install R2CORBA as a gem.
-
-or
-
-Go to https://osportal.remedy.nl/projects/r2corba/files to
-download the latest source package and build your own.
-
-or
-
-Go to https://osportal.remedy.nl/projects/r2corba/wiki and read how
-to checkout the latest source code from the version repository.
-
-* How to compile and install
-
-See the file INSTALL
-
-* Copying/License
-
-See the file LICENSE
-
-* Acknowledgments
-
-See the file THANKS
-
-* The author(s)
-
-R2CORBA has been created by staff of Remedy IT.
-(http://www.remedy.nl | http://www.theaceorb.nl)
-
-Feel free to send comments and bug reports to:
-
-   r2corba@remedy.nl
-
+
+* What is Ruby2CORBA
+
+Ruby2CORBA (R2CORBA) is a CORBA mapping implementation for the Ruby
+programming language (see http://www.ruby-lang.org).
+Instead of going for a complete native Ruby mapping implementing a native
+Ruby ORB, R2CORBA aims at providing CORBA functionality through a Ruby
+extension using the DII and DSI interfaces of an existing CORBA ORB 
+implementation.
+There are currently two flavors of this extension available:
+	o an MRI Ruby extension written in Ruby and C/C++ using TAO 
+	  (The ACE ORB; see http://www.cs.wustl.edu/~schmidt/TAO.html).
+	o a JRuby extension written in Ruby and Java using JacORB 
+	  (http://www.jacorb.org/index.html).
+A native Ruby implementation of an OMG IDL compiler supplements this
+extension and provides powerful features like direct inclusion of IDL
+language modules into your Ruby programs without the need of explicit, 
+separate stub generation.
+
+Both flavors of R2CORBA fully implement the official OMG Ruby CORBA 
+Language Mapping (RCLM) specification which can be downloaded here:
+http://www.omg.org/spec/RCLM.
+
+* How to get R2CORBA
+
+Execute
+
+gem install r2corba
+
+to install R2CORBA as a gem.
+
+or
+
+Go to https://osportal.remedy.nl/projects/r2corba/files to
+download the latest source package and build your own.
+
+or
+
+Go to https://osportal.remedy.nl/projects/r2corba/wiki and read how
+to checkout the latest source code from the version repository.
+
+* How to compile and install
+
+See the file INSTALL
+
+* Copying/License
+
+See the file LICENSE
+
+* Acknowledgments
+
+See the file THANKS
+
+* The author(s)
+
+R2CORBA has been created by staff of Remedy IT.
+(http://www.remedy.nl | http://www.theaceorb.nl)
+
+Feel free to send comments and bug reports to:
+
+   r2corba@remedy.nl
+

data/THANKS

@@ -1,52 +1,54 @@
-
-Our thanks go to:
-
-* Yukihiro Matsumoto, aka “Matz”, for creating the wonderfully
-  powerful and elegant programming language named Ruby.
-  With him we also thank all those who have contributed to the
-  Ruby programming tool and have made Ruby what it is today.
-
-* Charles Oliver Nutter, aka "headius", and the other people of
-  the JRuby core development team for bringing that wonderful
-  programming language that Matz created to Java.
-
-* Prof. Douglas Schmidt for (and all his collaborators) for creating
-  a high-quality OpenSource CORBA compliant ORB. The high level of
-  OS abstraction and multiplatform compatibility of this software
-  make it an ideal ingredient for a Ruby CORBA implementation.
-
-* The people of the JacORB development team (a.o. Gerald Brose and 
-  Andre Spiegel) and all their collaborators for creating a high-
-  performance, multi threaded and spec compliant ORB for the
-  Java environment.
-
-* Minero Aoki for creating the original 'setup.rb' install script.
-
-* Daisuke Kanda for his initial work on CORBA bindings for Ruby from
-  2001 (incl. RINN and Ruby-Orbit) which has helped us in many ways
-  to create R2CORBA.
-
-* Paul Brannan of Automated Trading Desk, LLC for his insightfull
-  comments on the first release of the Ruby CORBA language mapping.
-
-* Renato Lucindo and Eider Oliveira for their remarks and fixes for
-  the IDL compiler.
-
-* Ragnar Dahlen for his tests and comments.
-
-* William Otte for his patches for the Mac OSX port.
-
-* David MacMahon for his comments and tests, especially with regard to 
-  omniORBpy interoperability.
-
-* David MacMahon for his Multi_Threading/Threads test.
-
-* Joel Hahn for reporting the union implicit default bug and
-  providing partial patches.
-
-* Karsten Richter for reporting a bug in union implicit default
-  handling and providing a partial patch and regression test.
-  
-* Grant Birchmeier for reporting the RIDL logger bug (triggered
-  by an unknown pragma)
- 
+
+Our thanks go to:
+
+* Yukihiro Matsumoto, aka “Matz”, for creating the wonderfully
+  powerful and elegant programming language named Ruby.
+  With him we also thank all those who have contributed to the
+  Ruby programming tool and have made Ruby what it is today.
+
+* Charles Oliver Nutter, aka "headius", and the other people of
+  the JRuby core development team for bringing that wonderful
+  programming language that Matz created to Java.
+
+* Prof. Douglas Schmidt for (and all his collaborators) for creating
+  a high-quality OpenSource CORBA compliant ORB. The high level of
+  OS abstraction and multiplatform compatibility of this software
+  make it an ideal ingredient for a Ruby CORBA implementation.
+
+* The people of the JacORB development team (a.o. Gerald Brose and 
+  Andre Spiegel) and all their collaborators for creating a high-
+  performance, multi threaded and spec compliant ORB for the
+  Java environment.
+
+* Minero Aoki for creating the original 'setup.rb' install script.
+
+* Daisuke Kanda for his initial work on CORBA bindings for Ruby from
+  2001 (incl. RINN and Ruby-Orbit) which has helped us in many ways
+  to create R2CORBA.
+
+* Paul Brannan of Automated Trading Desk, LLC for his insightfull
+  comments on the first release of the Ruby CORBA language mapping.
+
+* Renato Lucindo and Eider Oliveira for their remarks and fixes for
+  the IDL compiler.
+
+* Ragnar Dahlen for his tests and comments.
+
+* William Otte for his patches for the Mac OSX port.
+
+* David MacMahon for his comments and tests, especially with regard to 
+  omniORBpy interoperability.
+
+* David MacMahon for his Multi_Threading/Threads test.
+
+* Joel Hahn for reporting the union implicit default bug and
+  providing partial patches.
+
+* Karsten Richter for reporting a bug in union implicit default
+  handling and providing a partial patch and regression test.
+  
+* Grant Birchmeier for reporting the RIDL logger bug (triggered
+  by an unknown pragma)
+
+* Andrey Mramornov for reporting and testing the R2CORBA build
+  problems on Ubuntu.

data/bin/r2corba

@@ -1,4 +1,4 @@
-#!/bin/env ruby
+#!/bin/ruby
 #---------------------------------
 # This file is generated
 #---------------------------------

data/bin/ridlc

@@ -1,4 +1,4 @@
-#!/bin/env ruby
+#!/bin/ruby
 #---------------------------------
 # This file is generated
 #---------------------------------

data/bin/rins

@@ -1,4 +1,4 @@
-#!/bin/env ruby
+#!/bin/ruby
 #---------------------------------
 # This file is generated
 #---------------------------------

data/lib/corba.rb

@@ -1,16 +1,16 @@
-#--------------------------------------------------------------------
-# corba.rb -
-#
-# 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/require.rb"
-
-include R2CORBA
+#--------------------------------------------------------------------
+# corba.rb -
+#
+# 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/require.rb"
+
+include R2CORBA

data/lib/corba/cbase/IORMap.rb

@@ -1,33 +1,33 @@
-#--------------------------------------------------------------------
-# iormap.rb - C++/TAO IORMap 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
-#--------------------------------------------------------------------
-require 'corba/idl/IORTableC'
-
-module R2CORBA
-  class IORMap
-    def initialize(orb)
-      obj = orb.resolve_initial_references('IORTable')
-      @iortbl = IORTable::Table._narrow(obj)
-    end
-
-    def map_ior(object_key, ior)
-      @iortbl.rebind(object_key, ior)
-    end
-
-    def unmap_ior(object_key)
-      begin
-        @iortbl.unbind(object_key)
-      rescue IORTable::NotFound
-      end
-    end
-  end
-end
+#--------------------------------------------------------------------
+# iormap.rb - C++/TAO IORMap 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
+#--------------------------------------------------------------------
+require 'corba/idl/IORTableC'
+
+module R2CORBA
+  class IORMap
+    def initialize(orb)
+      obj = orb.resolve_initial_references('IORTable')
+      @iortbl = IORTable::Table._narrow(obj)
+    end
+
+    def map_ior(object_key, ior)
+      @iortbl.rebind(object_key, ior)
+    end
+
+    def unmap_ior(object_key)
+      begin
+        @iortbl.unbind(object_key)
+      rescue IORTable::NotFound
+      end
+    end
+  end
+end

data/lib/corba/cbase/ORB.rb

@@ -1,231 +1,237 @@
-#--------------------------------------------------------------------
-# ORB.rb - C++/TAO CORBA ORB 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
-#--------------------------------------------------------------------
-require 'monitor'
-
-module R2CORBA
-  module CORBA
-
-    module ORB
-
-      @@_default_args = []
-      unless R2CORBA::TAO::RUBY_THREAD_SUPPORT
-        # to prevent problems with "green threads" model of Ruby <=1.8.x run TAO
-        # without nested upcalls; preventing thread reuse and re-entrancy
-        @@_default_args << '-ORBSvcConfDirective'
-        @@_default_args << 'static Client_Strategy_Factory "-ORBClientConnectionHandler MT_NOUPCALL"'
-      end
-
-        ## init() or init(arg1, arg2, arg3[, ...]) or init(orb_id, prop = {}) or init(argv, orb_id, prop={}) or init(argv, prop={})
-      def self.init(*args)
-        n_orb = if args.empty? && @@_default_args.empty?
-          @@cached_orb = CORBA::Native::ORB.init
-        else
-          argv = []
-          orb_id = nil
-          prop = nil
-          a1, a2, a3 = args
-          if Array === a1
-            raise ArgumentError, "Incorrect nr. of arguments; #{args.size}" if args.size>3
-            argv = a1
-            orb_id = (Hash === a2 ? nil : a2)
-            prop = (Hash === a2 ? a2 : a3)
-          elsif args.size == 1 || Hash === a2
-            raise ArgumentError, "Incorrect nr. of arguments; #{args.size}" if args.size>2
-            orb_id = a1
-            prop = a2
-          else
-            argv = args
-          end
-          raise ArgumentError, "Invalid argument #{prop.class}; expected Hash" unless prop.nil? || Hash === prop
-          unless prop.nil?()
-            prop.inject(argv) {|a,(k,v)| a << k; a << v; a}
-          end
-          @@cached_orb = CORBA::Native::ORB.init(argv.collect {|a| a.to_s }.concat(@@_default_args), orb_id.nil?() ? nil : orb_id.to_s)
-        end
-        unless n_orb.nil?() || @@vf_queue.empty?()
-          @@vf_queue.process_all { |vfklass| vfklass._check_factory }
-        end
-        @@wrapper_klass.new(n_orb)
-      end
-
-=begin
-// Thread related operations
-=end
-
-      # ret [boolean, <time left>] if !timeout.nil? else boolean
-      def work_pending(timeout = nil)
-        begin
-          self.orb_.work_pending(timeout)
-        rescue ::NativeException
-          CORBA::Exception.native2r($!)
-        end
-      end
-
-      # ret <time left> if !timeout.nil? else void
-      def perform_work(timeout = nil)
-        begin
-          self.orb_.perform_work(timeout)
-        rescue ::NativeException
-          CORBA::Exception.native2r($!)
-        end
-      end
-
-      # safe to run in thread; even in pre-1.9 MRI Ruby
-      # ret <time left> if !timeout.nil? else void
-      def run(timeout = nil)
-        if R2CORBA::TAO::RUBY_THREAD_SUPPORT
-          begin
-            self.orb_.run(timeout)
-          rescue ::NativeException
-            CORBA::Exception.native2r($!)
-          end
-        else
-          @running ||= true
-          raise CORBA::BAD_INV_ORDER.new('ORB has been shutdown', 0, CORBA::COMPLETED_NO) if @shutdown
-          while (timeout.nil? or timeout>0) and !@shutdown
-            to = timeout || 0.05
-            f, to = self.work_pending(to)
-            timeout = to unless timeout.nil?
-            if f and !@shutdown and (timeout.nil? or timeout>0)
-              to = timeout || 0.05
-              to = self.perform_work(to)
-              timeout = to unless timeout.nil?
-            end
-            Thread.pass unless @shutdown
-          end
-        end
-      end
-
-      unless R2CORBA::TAO::RUBY_THREAD_SUPPORT
-        # starts blocking ORB event loop in MRI Ruby 1.8, i.e. no thread support
-        # ret <time left> if !timeout.nil? else void
-        def run_blocked(timeout = nil)
-          begin
-            self.orb_.run(timeout)
-          rescue ::NativeException
-            CORBA::Exception.native2r($!)
-          end
-        end
-      end
-
-      # boolean wait_for_completion
-      # ret void
-      def shutdown(wait_for_completion = false)
-        if R2CORBA::TAO::RUBY_THREAD_SUPPORT or !@running
-          begin
-            self.orb_.shutdown(wait_for_completion)
-          rescue ::NativeException
-            CORBA::Exception.native2r($!)
-          end
-        else
-          @shutdown = true
-        end
-      end
-
-      ## custom
-      @@vf_queue = (Class.new(Monitor) do
-        def initialize
-          @q_ = []
-          super
-        end
-        def push(vfklass)
-          synchronize do
-            @q_ << vfklass
-          end
-        end
-        def process_all(&block)
-          synchronize do
-            @q_.each { |vf| block.call(vf) }
-            @q_.clear
-          end
-        end
-        def empty?()
-          f = false
-          synchronize do
-            f = @q_.empty?
-          end
-          f
-        end
-      end).new
-
-      def self._check_value_factory(vfklass)
-        if @@cached_orb.nil?
-          @@vf_queue.push(vfklass)
-        else
-          vfklass._check_factory
-        end
-      end
-
-      # custom R2CORBA extension : IORMap
-
-      def ior_map
-        @iormap ||= R2CORBA::IORMap.new(self)
-      end
-
-    end # ORB
-
-=begin
- Signal trapping
-=end
-   private
-     @@sigreg = {}
-     def CORBA.signal_numbers
-      ( [1, # HUP
-         2, # INT
-         3, # QUIT
-         5, # TRAP
-         6, # ABRT
-         10, # USR1
-         12, # USR2
-         13, # SIGPIPE
-         14, # ALRM
-         15, # TERM
-         17, # CHLD
-         18, # CONT
-         19, # STOP
-         23, # URG
-         30, # PWR
-         31  # SYS
-        ]) & Signal.list.values
-     end
-
-     def CORBA.handled_signals
-       @@sigreg.clear
-       sigs = self.signal_numbers.collect do |signum|
-         sigcmd = Signal.trap(signum, 'DEFAULT')
-         Signal.trap(signum, sigcmd)
-         @@sigreg[signum] = sigcmd
-         if sigcmd.respond_to?(:call) or ['IGNORE','SIG_IGN','EXIT'].include?(sigcmd.to_s)
-           signum
-         else
-           nil
-         end
-       end.compact
-       sigs
-     end
-
-     def CORBA.handle_signal(signum)
-       if @@sigreg.has_key?(signum)
-         if @@sigreg[signum].respond_to?(:call)
-           if @@sigreg[signum].respond_to?(:parameters) && @@sigreg[signum].parameters.size>0
-             @@sigreg[signum].call(signum)
-           else
-             @@sigreg[signum].call
-           end
-         elsif @@sigreg[signum].to_s == 'EXIT'
-           Kernel.exit!(signum)
-         end
-       end
-     end
-  end # CORBA
-end # R2CORBA
+#--------------------------------------------------------------------
+# ORB.rb - C++/TAO CORBA ORB 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
+#--------------------------------------------------------------------
+require 'monitor'
+
+module R2CORBA
+  module CORBA
+
+    module ORB
+
+      class << self
+        protected
+        def _singleton_orb_init
+          CORBA::Native::ORB.init
+        end
+      end
+
+      @@_default_args = []
+      unless R2CORBA::TAO::RUBY_THREAD_SUPPORT
+        # to prevent problems with "green threads" model of Ruby <=1.8.x run TAO
+        # without nested upcalls; preventing thread reuse and re-entrancy
+        @@_default_args << '-ORBSvcConfDirective'
+        @@_default_args << 'static Client_Strategy_Factory "-ORBClientConnectionHandler MT_NOUPCALL"'
+      end
+
+        ## init() or init(arg1, arg2, arg3[, ...]) or init(orb_id, prop = {}) or init(argv, orb_id, prop={}) or init(argv, prop={})
+      def self.init(*args)
+        n_orb = if args.empty? && @@_default_args.empty?
+          _singleton_orb_init
+        else
+          argv = []
+          orb_id = nil
+          prop = nil
+          a1, a2, a3 = args
+          if Array === a1
+            raise ArgumentError, "Incorrect nr. of arguments; #{args.size}" if args.size>3
+            argv = a1
+            orb_id = (Hash === a2 ? nil : a2)
+            prop = (Hash === a2 ? a2 : a3)
+          elsif args.size == 1 || Hash === a2
+            raise ArgumentError, "Incorrect nr. of arguments; #{args.size}" if args.size>2
+            orb_id = a1
+            prop = a2
+          else
+            argv = args
+          end
+          raise ArgumentError, "Invalid argument #{prop.class}; expected Hash" unless prop.nil? || Hash === prop
+          unless prop.nil?()
+            prop.inject(argv) {|a,(k,v)| a << k; a << v; a}
+          end
+          @@cached_orb = CORBA::Native::ORB.init(argv.collect {|a| a.to_s }.concat(@@_default_args), orb_id.nil?() ? nil : orb_id.to_s)
+        end
+        unless n_orb.nil?() || @@vf_queue.empty?()
+          @@vf_queue.process_all { |vfklass| vfklass._check_factory }
+        end
+        @@wrapper_klass.new(n_orb)
+      end
+
+=begin
+// Thread related operations
+=end
+
+      # ret [boolean, <time left>] if !timeout.nil? else boolean
+      def work_pending(timeout = nil)
+        begin
+          self.orb_.work_pending(timeout)
+        rescue ::NativeException
+          CORBA::Exception.native2r($!)
+        end
+      end
+
+      # ret <time left> if !timeout.nil? else void
+      def perform_work(timeout = nil)
+        begin
+          self.orb_.perform_work(timeout)
+        rescue ::NativeException
+          CORBA::Exception.native2r($!)
+        end
+      end
+
+      # safe to run in thread; even in pre-1.9 MRI Ruby
+      # ret <time left> if !timeout.nil? else void
+      def run(timeout = nil)
+        if R2CORBA::TAO::RUBY_THREAD_SUPPORT
+          begin
+            self.orb_.run(timeout)
+          rescue ::NativeException
+            CORBA::Exception.native2r($!)
+          end
+        else
+          @running ||= true
+          raise CORBA::BAD_INV_ORDER.new('ORB has been shutdown', 0, CORBA::COMPLETED_NO) if @shutdown
+          while (timeout.nil? or timeout>0) and !@shutdown
+            to = timeout || 0.05
+            f, to = self.work_pending(to)
+            timeout = to unless timeout.nil?
+            if f and !@shutdown and (timeout.nil? or timeout>0)
+              to = timeout || 0.05
+              to = self.perform_work(to)
+              timeout = to unless timeout.nil?
+            end
+            Thread.pass unless @shutdown
+          end
+        end
+      end
+
+      unless R2CORBA::TAO::RUBY_THREAD_SUPPORT
+        # starts blocking ORB event loop in MRI Ruby 1.8, i.e. no thread support
+        # ret <time left> if !timeout.nil? else void
+        def run_blocked(timeout = nil)
+          begin
+            self.orb_.run(timeout)
+          rescue ::NativeException
+            CORBA::Exception.native2r($!)
+          end
+        end
+      end
+
+      # boolean wait_for_completion
+      # ret void
+      def shutdown(wait_for_completion = false)
+        if R2CORBA::TAO::RUBY_THREAD_SUPPORT or !@running
+          begin
+            self.orb_.shutdown(wait_for_completion)
+          rescue ::NativeException
+            CORBA::Exception.native2r($!)
+          end
+        else
+          @shutdown = true
+        end
+      end
+
+      ## custom
+      @@vf_queue = (Class.new(Monitor) do
+        def initialize
+          @q_ = []
+          super
+        end
+        def push(vfklass)
+          synchronize do
+            @q_ << vfklass
+          end
+        end
+        def process_all(&block)
+          synchronize do
+            @q_.each { |vf| block.call(vf) }
+            @q_.clear
+          end
+        end
+        def empty?()
+          f = false
+          synchronize do
+            f = @q_.empty?
+          end
+          f
+        end
+      end).new
+
+      def self._check_value_factory(vfklass)
+        if @@cached_orb.nil?
+          @@vf_queue.push(vfklass)
+        else
+          vfklass._check_factory
+        end
+      end
+
+      # custom R2CORBA extension : IORMap
+
+      def ior_map
+        @iormap ||= R2CORBA::IORMap.new(self)
+      end
+
+    end # ORB
+
+=begin
+ Signal trapping
+=end
+   private
+     @@sigreg = {}
+     def CORBA.signal_numbers
+      ( [1, # HUP
+         2, # INT
+         3, # QUIT
+         5, # TRAP
+         6, # ABRT
+         10, # USR1
+         12, # USR2
+         13, # SIGPIPE
+         14, # ALRM
+         15, # TERM
+         17, # CHLD
+         18, # CONT
+         23, # URG
+         30, # PWR
+         31  # SYS
+        ]) & Signal.list.values
+     end
+
+     def CORBA.handled_signals
+       @@sigreg.clear
+       sigs = self.signal_numbers.collect do |signum|
+         sigcmd = Signal.trap(signum, 'DEFAULT')
+         Signal.trap(signum, sigcmd)
+         @@sigreg[signum] = sigcmd
+         if sigcmd.respond_to?(:call) or ['IGNORE','SIG_IGN','EXIT'].include?(sigcmd.to_s)
+           signum
+         else
+           nil
+         end
+       end.compact
+       sigs
+     end
+
+     def CORBA.handle_signal(signum)
+       if @@sigreg.has_key?(signum)
+         if @@sigreg[signum].respond_to?(:call)
+           if @@sigreg[signum].respond_to?(:parameters) && @@sigreg[signum].parameters.size>0
+             @@sigreg[signum].call(signum)
+           else
+             @@sigreg[signum].call
+           end
+         elsif @@sigreg[signum].to_s == 'EXIT'
+           Kernel.exit!(signum)
+         end
+       end
+     end
+  end # CORBA
+end # R2CORBA