r2corba 1.6.1-x64-mingw-ucrt

data/test/Multiple_Servant_Interfaces/server.rb

@@ -0,0 +1,101 @@
+#--------------------------------------------------------------------
+#
+# 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
+#--------------------------------------------------------------------
+
+require 'optparse'
+
+OPTIONS = {
+  :use_implement => false,
+  :orb_debuglevel => 0,
+  :iorfile => 'server.ior'
+}
+
+ARGV.options do |opts|
+    script_name = File.basename($0)
+    opts.banner = "Usage: ruby #{script_name} [options]"
+
+    opts.separator ''
+
+    opts.on('--o IORFILE',
+            'Set IOR filename.',
+            "Default: 'server.ior'") { |v| OPTIONS[:iorfile] = v }
+    opts.on('--d LVL',
+            'Set ORBDebugLevel value.',
+            'Default: 0') { |v| OPTIONS[:orb_debuglevel] = v }
+    opts.on('--use-implement',
+            'Load IDL through CORBA.implement() instead of precompiled code.',
+            'Default: off') { |v| OPTIONS[:use_implement] = v }
+
+    opts.separator ''
+
+    opts.on('-h', '--help',
+            'Show this help message.') { puts opts; exit }
+
+    opts.parse!
+end
+
+if OPTIONS[:use_implement]
+  require 'corba/poa'
+  CORBA.implement('Test.idl', OPTIONS, CORBA::IDL::SERVANT_INTF)
+else
+  require 'TestS.rb'
+end
+
+class MyHello < PortableServer::Servant
+  include POA::Test::Hello
+  include POA::Test::Hello_2
+
+  def initialize(orb)
+    @orb = orb
+  end
+
+  def get_string()
+    'Hello there!'
+  end
+
+  def get_string_2()
+    'Hello there! (2nd edition)'
+  end
+
+  def shutdown()
+    @orb.shutdown()
+  end
+end # of servant MyHello
+
+orb = CORBA.ORB_init(['-ORBDebugLevel', OPTIONS[:orb_debuglevel]], 'myORB')
+
+obj = orb.resolve_initial_references('RootPOA')
+
+root_poa = PortableServer::POA._narrow(obj)
+
+poa_man = root_poa.the_POAManager
+
+poa_man.activate
+
+hello_srv = MyHello.new(orb)
+
+hello_obj = hello_srv._this()
+
+hello_ior = orb.object_to_string(hello_obj)
+
+open(OPTIONS[:iorfile], 'w') { |io|
+  io.write hello_ior
+}
+
+Signal.trap('INT') do
+  puts 'SIGINT - shutting down ORB...'
+  orb.shutdown()
+end
+
+if Signal.list.has_key?('USR2')
+  Signal.trap('USR2', 'EXIT')
+end
+
+orb.run

data/test/Nil/Test.idl

@@ -0,0 +1,26 @@
+/*--------------------------------------------------------------------
+ * 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
+ *--------------------------------------------------------------------*/
+
+/// Put the interfaces in a module, to avoid global namespace pollution
+module Test
+{
+  /// A very simple interface
+  interface Hello
+  {
+    /// Return a simple string
+    string get_string ();
+
+    /// A method to shutdown the ORB
+    /**
+     * This method is used to simplify the test shutdown process
+     */
+    oneway void shutdown ();
+  };
+};

data/test/Nil/run_test.rb

@@ -0,0 +1,51 @@
+#--------------------------------------------------------------------
+#
+# 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
+#--------------------------------------------------------------------
+
+OPTIONS = {
+  :debug_opt => '',
+  :use_implement => '--use-implement'
+}
+
+require 'optparse'
+
+ARGV.options do |opts|
+    script_name = File.basename($0)
+    opts.banner = "Usage: ruby #{script_name} [options]"
+
+    opts.separator ''
+
+    opts.on('-d',
+            'Run with debugging output.',
+            'Default: false') { OPTIONS[:debug_opt] = '--d 10' }
+    opts.on('--use-stubs',
+            'Use stubs generated by RIDL.',
+            'Default: false (uses embedded IDL)') { OPTIONS[:use_implement] = '' }
+
+    opts.separator ''
+
+    opts.on('-h', '--help',
+            'Show this help message.') { puts opts; exit }
+
+    opts.parse!
+end
+
+require 'lib/test.rb'
+include TestUtil
+
+clt = Test.new
+
+if !clt.run('test.rb', "#{OPTIONS[:debug_opt]} #{OPTIONS[:use_implement]}")
+  exit(255)
+end
+
+exrc = clt.wait(400)
+
+exit(exrc)

data/test/Nil/test.rb

@@ -0,0 +1,80 @@
+#--------------------------------------------------------------------
+#
+# 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
+#--------------------------------------------------------------------
+
+require 'optparse'
+require 'lib/assert.rb'
+include TestUtil::Assertions
+
+OPTIONS = {
+  :use_implement => false,
+  :orb_debuglevel => 0,
+  :ior => 'foo'
+}
+
+ARGV.options do |opts|
+    script_name = File.basename($0)
+    opts.banner = "Usage: ruby #{script_name} [options]"
+
+    opts.separator ''
+
+    opts.on('--k IOR',
+            'Set IOR.',
+            "Default: 'corbaname::foo'") { |v| OPTIONS[:ior] = v }
+    opts.on('--d LVL',
+            'Set ORBDebugLevel value.',
+            'Default: 0') { |v| OPTIONS[:orb_debuglevel] = v }
+    opts.on('--use-implement',
+            'Load IDL through CORBA.implement() instead of precompiled code.',
+            'Default: off') { |v| OPTIONS[:use_implement] = v }
+
+    opts.separator ''
+
+    opts.on('-h', '--help',
+            'Show this help message.') { puts opts; exit }
+
+    opts.parse!
+end
+
+if OPTIONS[:use_implement]
+  require 'corba/poa'
+  CORBA.implement('Test.idl', OPTIONS, CORBA::IDL::SERVANT_INTF)
+else
+  require 'TestS.rb'
+end
+
+orb = CORBA.ORB_init(['-ORBDebugLevel', OPTIONS[:orb_debuglevel]], 'myORB')
+
+begin
+  begin
+    tmp = orb.string_to_object(OPTIONS[:ior])
+
+    assert 'No Nil object reference returned on invalid IOR', CORBA.is_nil(tmp)
+
+    assert 'No Nil object returned on invalid IOR', tmp.nil?
+  rescue CORBA::INV_OBJREF
+    tmp = nil
+  end
+
+  assert 'No Nil object reference returned on #_narrow of nil', CORBA.is_nil(Test::Hello._narrow(tmp))
+
+  assert 'No Nil object returned on #_narrow of nil', Test::Hello._narrow(tmp).nil?
+
+  o = orb.resolve_initial_references('RootPOA')
+
+  rootpoa = PortableServer::POA._narrow(o)
+
+  assert_not 'Failed to resolve RootPOA', CORBA.is_nil(rootpoa) || !rootpoa.is_a?(PortableServer::POA)
+
+  assert 'Not nil returned for RootPOA.the_parent', CORBA.is_nil(rootpoa.the_parent) && rootpoa.the_parent.nil?
+
+ensure
+  orb.destroy()
+end

data/test/OBV/AbstractInterface/client.rb

@@ -0,0 +1,178 @@
+#--------------------------------------------------------------------
+#
+# 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
+#--------------------------------------------------------------------
+
+require 'optparse'
+require 'lib/assert.rb'
+include TestUtil::Assertions
+
+TEST_ALL = 0
+TEST_STATE = 1
+TEST_OPERATION = 2
+TEST_EXCEPTION = 3
+
+OPTIONS = {
+  :use_implement => false,
+  :orb_debuglevel => 0,
+  :iorfile => 'file://server.ior',
+  :test => TEST_ALL
+}
+
+ARGV.options do |opts|
+    script_name = File.basename($0)
+    opts.banner = "Usage: ruby #{script_name} [options]"
+
+    opts.separator ''
+
+    opts.on('--k IORFILE',
+            'Set IOR.',
+            "Default: 'file://server.ior'") { |v| OPTIONS[:iorfile] = v }
+    opts.on('--d LVL',
+            'Set ORBDebugLevel value.',
+            'Default: 0') { |v| OPTIONS[:orb_debuglevel] = v }
+    opts.on('--use-implement',
+            'Load IDL through CORBA.implement() instead of precompiled code.',
+            'Default: off') { |v| OPTIONS[:use_implement] = v }
+
+    opts.separator ''
+
+    opts.on('-h', '--help',
+            'Show this help message.') { puts opts; exit }
+
+    opts.parse!
+end
+
+if OPTIONS[:use_implement]
+  require 'corba'
+  CORBA.implement('test.idl', OPTIONS)
+else
+  require 'testC'
+end
+
+def dump_node(node, indent)
+  return if node.nil?
+
+  if $VERBOSE
+    STDERR.print ' ' * indent
+
+    if node.is_a?(StringNode)
+      STDERR.puts("#{node} <StringNode> #{node.name}")
+    else
+      STDERR.puts("#{node} <BaseNode> #{node.name}")
+    end
+  end
+
+  dump_node(node.left, indent + 1)
+  dump_node(node.right, indent + 1)
+end
+
+def dump_tree(tc)
+  if $VERBOSE
+    STDERR.puts "start tree dump #{tc}"
+  end
+
+  dump_node(tc.root, 1)
+
+  if $VERBOSE
+    STDERR.puts "end tree dump #{tc}"
+  end
+end
+
+def test_state(abs)
+  raise CORBA::BAD_PARAM.new unless abs.is_a?(TreeController)
+  dump_tree(abs)
+end
+
+def test_operation(abs)
+  retval = abs.base_op('base_op')
+  if $VERBOSE
+    STDERR.puts retval
+  end
+
+  concrete = Foo::_narrow(abs)
+
+  retval = concrete.foo_op('foo_op')
+  if $VERBOSE
+    STDERR.puts retval
+  end
+
+  retval = concrete.base_op('base_op')
+  if $VERBOSE
+    STDERR.puts retval
+  end
+end
+
+def test_exception(abs)
+  begin
+    retval = abs.base_op('bad_name')
+    if $VERBOSE
+      STDERR.puts retval
+    end
+  rescue BadInput => ex
+    if $VERBOSE
+      STDERR.puts ex.to_s
+    end
+  end
+end
+
+orb = CORBA.ORB_init(['-ORBDebugLevel', OPTIONS[:orb_debuglevel]], 'myORB')
+
+begin
+  obj = orb.string_to_object(OPTIONS[:iorfile])
+
+  assert_not 'Object reference is nil.', CORBA::is_nil(obj)
+
+  passer = Passer._narrow(obj)
+
+  if OPTIONS[:test] == TEST_STATE || OPTIONS[:test] == TEST_ALL
+    # make sure valuetype factories are registered
+    BaseNodeFactory.get_factory(orb)
+    StringNodeFactory.get_factory(orb)
+    TreeControllerFactory.get_factory(orb)
+
+    package = passer.pass_state()
+    if CORBA::is_nil(package)
+      STDERR.puts "ERROR: passer.pass_state returned nil 'out' arg (#{package})"
+    end
+
+    test_state(package)
+  end
+
+  if OPTIONS[:test] != TEST_STATE
+    package = passer.pass_ops()
+    if CORBA::is_nil(package)
+      STDERR.puts "ERROR: passer.pass_ops returned nil 'out' arg (#{package})"
+    end
+  end
+
+  if OPTIONS[:test] == TEST_OPERATION || OPTIONS[:test] == TEST_ALL
+    test_operation(package)
+  end
+
+  if OPTIONS[:test] == TEST_EXCEPTION || OPTIONS[:test] == TEST_ALL
+    test_exception(package)
+  end
+
+  if OPTIONS[:test] == TEST_ALL
+    package = passer.pass_nil()
+    unless CORBA::is_nil(package)
+      STDERR.puts "ERROR: passer.pass_state did NOT return nil 'out' arg (#{package})"
+    end
+  end
+
+  # shutdown passer service
+
+  passer.shutdown()
+
+ensure
+
+  orb.destroy()
+
+end

data/test/OBV/AbstractInterface/run_test.rb

@@ -0,0 +1,68 @@
+#--------------------------------------------------------------------
+#
+# 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
+#--------------------------------------------------------------------
+
+OPTIONS = {
+  :debug_opt => '',
+  :use_implement => '--use-implement'
+}
+
+require 'optparse'
+
+ARGV.options do |opts|
+    script_name = File.basename($0)
+    opts.banner = "Usage: ruby #{script_name} [options]"
+
+    opts.separator ''
+
+    opts.on('-d',
+            'Run with debugging output.',
+            'Default: false') { OPTIONS[:debug_opt] = '--d 10' }
+    opts.on('--use-stubs',
+            'Use stubs generated by RIDL.',
+            'Default: false (uses embedded IDL)') { OPTIONS[:use_implement] = '' }
+
+    opts.separator ''
+
+    opts.on('-h', '--help',
+            'Show this help message.') { puts opts; exit }
+
+    opts.parse!
+end
+
+require 'lib/test.rb'
+include TestUtil
+
+ior_file = 'server.ior'
+
+TestUtil.remove_file(ior_file)
+
+srv = Test.new
+
+exit(255) if !srv.run('server.rb', "--o #{ior_file} #{OPTIONS[:debug_opt]} #{OPTIONS[:use_implement]}")
+
+TestUtil.wait_for_file(ior_file, 400)
+
+clt = Test.new
+
+if !clt.run('client.rb', "--k file://#{ior_file} #{OPTIONS[:debug_opt]} #{OPTIONS[:use_implement]}")
+  srv.kill(100)
+  exit(255)
+end
+
+exrc = clt.wait(400)
+
+if exrc == 0
+  srv.wait(400)
+else
+  srv.wait_term(400)
+end
+
+exit(exrc)

data/test/OBV/AbstractInterface/server.rb

@@ -0,0 +1,149 @@
+#--------------------------------------------------------------------
+#
+# 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
+#--------------------------------------------------------------------
+
+require 'optparse'
+
+OPTIONS = {
+  :use_implement => false,
+  :orb_debuglevel => 0,
+  :iorfile => 'server.ior'
+}
+
+ARGV.options do |opts|
+    script_name = File.basename($0)
+    opts.banner = "Usage: ruby #{script_name} [options]"
+
+    opts.separator ''
+
+    opts.on('--o IORFILE',
+            'Set IOR filename.',
+            "Default: 'server.ior'") { |v| OPTIONS[:iorfile] = v }
+    opts.on('--d LVL',
+            'Set ORBDebugLevel value.',
+            'Default: 0') { |v| OPTIONS[:orb_debuglevel] = v }
+    opts.on('--use-implement',
+            'Load IDL through CORBA.implement() instead of precompiled code.',
+            'Default: off') { |v| OPTIONS[:use_implement] = v }
+
+    opts.separator ''
+
+    opts.on('-h', '--help',
+            'Show this help message.') { puts opts; exit }
+
+    opts.parse!
+end
+
+if OPTIONS[:use_implement]
+  require 'corba/poa'
+  CORBA.implement('test.idl', OPTIONS, CORBA::IDL::SERVANT_INTF)
+else
+  require 'testS'
+end
+
+class Foo_i < POA::Foo
+  def base_op (inarg)
+    if inarg == 'base_op'
+      return 'good'
+    end
+    raise BadInput.new('expected "base_op"')
+  end
+
+  def foo_op (inarg)
+    if inarg == 'foo_op'
+      return 'good'
+    end
+    raise BadInput.new('expected "foo_op"')
+  end
+end
+
+class Passer_i < POA::Passer
+  def initialize(orb, poa)
+    @orb = orb
+    @poa = poa
+  end
+
+  def pass_ops ()
+    foo = Foo_i.new
+
+    objid = @poa.activate_object(foo)
+
+    object = @poa.id_to_reference(objid)
+
+    [Foo::_narrow(object)]
+  end
+
+  def pass_state ()
+    tc = TreeController.new
+
+    # Create the root node.
+    sn = StringNode.new
+    sn.name = 'RootNode'
+    tc.root = sn
+
+    # Create the left leaf.
+    l_dummy = StringNode.new
+    l_dummy.name = 'LeftNode'
+    sn.left = l_dummy
+
+    # Create the right leaf.
+    r_dummy = StringNode.new
+    r_dummy.name = 'RightNode'
+    sn.right = r_dummy
+
+    [tc]
+  end
+
+  def pass_nil ()
+    [nil]
+  end
+
+  def shutdown ()
+    @orb.shutdown()
+  end
+end # of servant Passer_i
+
+orb = CORBA.ORB_init(['-ORBDebugLevel', OPTIONS[:orb_debuglevel]], 'myORB')
+
+# make sure valuetype factories are registered
+BaseNodeFactory.get_factory(orb)
+StringNodeFactory.get_factory(orb)
+TreeControllerFactory.get_factory(orb)
+
+obj = orb.resolve_initial_references('RootPOA')
+
+root_poa = PortableServer::POA._narrow(obj)
+
+poa_man = root_poa.the_POAManager
+
+poa_man.activate
+
+passer = Passer_i.new(orb, root_poa)
+
+obj = passer._this()
+
+ior = orb.object_to_string(obj)
+
+open(OPTIONS[:iorfile], 'w') { |io|
+  io.write ior
+}
+
+Signal.trap('INT') do
+  puts 'SIGINT - shutting down ORB...'
+  orb.shutdown()
+end
+
+if Signal.list.has_key?('USR2')
+  Signal.trap('USR2', 'EXIT')
+end
+
+orb.run
+
+exit 0

data/test/OBV/AbstractInterface/test.idl

@@ -0,0 +1,52 @@
+/*--------------------------------------------------------------------
+ * 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
+ *--------------------------------------------------------------------*/
+
+exception BadInput
+{
+  string message;
+};
+
+abstract interface base
+{
+  string base_op (in string inarg)
+    raises (BadInput);
+};
+
+interface foo : base
+{
+  string foo_op (in string inarg)
+    raises (BadInput);
+};
+
+interface passer
+{
+  void pass_ops (out base outarg);
+  void pass_state (out base outarg);
+  void pass_nil (out base outarg);
+  oneway void shutdown ();
+};
+
+valuetype BaseNode
+{
+  public BaseNode left;
+  public BaseNode right;
+};
+
+valuetype StringNode : BaseNode
+{
+  public string name;
+};
+
+valuetype TreeController supports base
+{
+  public BaseNode root;
+};
+
+