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

data/lib/corba/cbase/post_require.rb

@@ -1,14 +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.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

@@ -1,28 +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" }
+#--------------------------------------------------------------------
+# 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

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

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

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