r2corba 1.4.1

data/mkrf_conf_srcgem.rb

@@ -0,0 +1,186 @@
+#--------------------------------------------------------------------
+# mkrf_conf_srcgem.rb - Rakefile generator src gem installation
+#
+# 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
+#--------------------------------------------------------------------
+
+# generate Rakefile with appropriate default task (all actual task in rakelib)
+File.open('Rakefile', 'w') do |f|
+  f.puts <<EOF__
+#--------------------------------------------------------------------
+# Rakefile - build file for srcgem installation
+#
+# 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
+#--------------------------------------------------------------------
+
+task :default => 'r2corba:gem:srcbuild'
+EOF__
+end
+
+require 'optparse'
+
+if defined?(JRUBY_VERSION)
+
+  usage_text =<<-__EOT
+Make sure you have provided a JACORB_HOME definition pointing at a valid JacORB installation
+with all required .jar files located at JACORB_HOME\lib. You can do this either by setting
+the JACORB_HOME environment variable or by providing the --jacorb-home buildflag to the
+'gem install' command.
+Checkout the documentation at http://osportal.remedy.nl/projects/r2corba
+for more information.
+__EOT
+
+  jacorb_home = ENV['JACORB_HOME']
+
+  opts = OptionParser.new
+  opts.on('--jacorb-home=path',
+          'the path to the root directory of JacORB')  {|v| jacorb_home = v}
+  opts.parse!(ARGV)
+
+  # check for proper JacORB installation
+  if jacorb_home
+    jar_files = Dir.glob(File.join(jacorb_home, 'lib', 'jacorb.jar'))+
+                Dir.glob(File.join(jacorb_home, 'lib', 'jacorb-services.jar')) +
+                Dir.glob(File.join(jacorb_home, 'lib', 'slf4j*.jar')) +
+                Dir.glob(File.join(jacorb_home, 'lib', 'antlr*.jar'))
+    if jar_files.size == 5
+      # run configure with appropriate settings
+      puts "Valid JacORB installation found.\n"+
+           "Running 'ruby -S rake -- configure --without-jacorb --jacorb-home=#{jacorb_home}'"
+      unless system("ruby -S rake -- configure --without-jacorb --jacorb-home=#{jacorb_home}")
+        puts 'Failed to configure R2CORBA'
+        exit(1)
+      end
+      exit(0)
+    end
+    puts 'JACORB_HOME defined but cannot find a valid JacORB installation.'
+    puts usage_text
+    exit(1)
+  end
+  puts 'No JACORB_HOME defined. Missing JacORB installation.'
+  puts usage_text
+  exit(1)
+
+else
+
+  require 'rbconfig'
+  if defined? ::RbConfig
+    RB_CONFIG = ::RbConfig
+  else
+    RB_CONFIG = ::Config
+  end unless defined? RB_CONFIG
+  RB_CONFIG::MAKEFILE_CONFIG['TRY_LINK'] = "$(CXX) #{RB_CONFIG::MAKEFILE_CONFIG['OUTFLAG']}conftest#{$EXEEXT} $(INCFLAGS) $(CPPFLAGS) " \
+      "$(CFLAGS) $(src) $(LIBPATH) $(LDFLAGS) $(ARCH_FLAG) $(LOCAL_LIBS) $(LIBS)"
+  require 'mkmf'
+  if defined?(MakeMakefile)
+    MakeMakefile::COMMON_HEADERS.clear
+  elsif defined?(COMMON_HEADERS)
+    COMMON_HEADERS.slice!(/./)
+  end
+
+  usage_txt =<<-__EOT
+Please define a valid ACE/TAO build environment either by defining the ACE_ROOT and (optionally)
+the TAO_ROOT (defaults to ACE_ROOT/TAO) and MPC_ROOT (defaults to ACE_ROOT/MPC) environment
+variabled OR by providing the --aceroot and (optionally) --taoroot and --mpcroot build flags to
+the 'gem install' command.
+Alternatively you can have the r2corba gem install the taosource gem for you and use that for
+the ACE/TAO build environment by *not* providing the --without-taogem build flag to the 'gem install'
+command.
+Checkout the documentation at http://osportal.remedy.nl/projects/r2corba for more information.
+__EOT
+
+  install_taosource_gem = true
+  ace_root = ENV['ACE_ROOT']
+  tao_root = ENV['TAO_ROOT']
+  mpc_root = ENV['MPC_ROOT']
+
+  opts = OptionParser.new
+  opts.on('--aceroot=path',
+          'the path to the root directory of ACE')  {|v| ace_root = v}
+  opts.on('--taoroot=path',
+          'the path to the root directory of TAO')  {|v| tao_root = v}
+  opts.on('--mpcroot=path',
+          'the path to the root directory of MPC')  {|v| mpc_root = v}
+  opts.on('--without-taogem',
+          'do not use the taosource gem')  {|v| install_taosource_gem = false }
+  opts.parse!(ARGV)
+
+  # Check if we should use the taogem to install a private ACE/TAO version?
+  if install_taosource_gem
+
+    # install taosource gem as a dependent gem
+    require 'rubygems'
+    require 'rubygems/command.rb'
+    require 'rubygems/dependency_installer.rb'
+    begin
+      Gem::Command.build_args = ARGV
+    rescue NoMethodError
+    end
+    Gem.sources << ENV['R2CORBA_GEM_SOURCE'] unless ENV['R2CORBA_GEM_SOURCE'].to_s.empty?
+    puts "Gem sources: #{Gem.sources.to_a}"
+    inst = Gem::DependencyInstaller.new
+    begin
+      inst.install "taosource", ">= 6.1.8"
+    rescue
+      $stderr.puts 'Failed to install taosource gem.'
+      exit(1)
+    end
+
+    # initialize root paths by loading this
+    require 'taosource/rootpaths'
+    ext_dir = File.expand_path('ext')
+    # run configure with appropriate settings
+    puts "Running 'rake -- configure --aceroot=#{ENV['ACE_ROOT']} --taoroot=#{ENV['TAO_ROOT']} --mpcroot=#{ENV['MPC_ROOT']} --aceinstdir=#{ext_dir}'"
+    unless system("rake -- configure --aceroot=#{ENV['ACE_ROOT']} --taoroot=#{ENV['TAO_ROOT']} --mpcroot=#{ENV['MPC_ROOT']} --aceinstdir=#{ext_dir}")
+      $stderr.puts 'Failed to configure R2CORBA'
+      exit(1)
+    end
+
+  elsif ace_root  # OR is there an ACE/TAO version installed which we should reuse?
+
+    # check for a valid MPC environment
+    mpc_root ||= File.join(ace_root, 'MPC')
+    unless mpc_root && File.directory?(mpc_root) && File.file?(File.join(ace_root, 'bin', 'mwc.pl'))
+      puts 'ACE_ROOT defined but cannot find a valid MPC environment!'
+      puts usage_txt
+      exit(1)
+    end
+
+    # check for valid TAO dev environment
+    tao_root ||= File.join(ace_root, 'TAO')
+    unless have_library('TAO', 'int a=0; CORBA::ORB_init(a, 0)', ['tao/corba.h'], "-x c++ -I#{ace_root} -I#{tao_root} -L#{File.join(ace_root, 'lib')} -lACE")
+      puts 'ACE_ROOT defined but cannot link TAO libary!'
+      puts usage_txt
+      exit(1)
+    end
+
+    # run configure with appropriate settings
+    puts "Running 'rake -- configure --without-tao --aceroot=#{ace_root} --taoroot=#{tao_root} --mpcroot=#{mpc_root}'"
+    unless system("rake -- configure --without-tao --aceroot=#{ace_root} --taoroot=#{tao_root} --mpcroot=#{mpc_root}")
+      puts 'Failed to configure R2CORBA'
+      exit(1)
+    end
+
+  else
+
+    puts 'Missing ACE/TAO build environment.'
+    puts usage_txt
+    exit(1)
+
+  end
+
+end

data/rakelib/bin.rake

@@ -0,0 +1,80 @@
+#--------------------------------------------------------------------
+# bin.rake - build file
+#
+# 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__), 'bin.rb')
+
+directory 'bin'
+
+file File.join('bin', 'ridlc') => ['bin'] do |t|
+  File.open(t.name, 'w') { |f| f.puts R2CORBA::Bin.ridlc }
+  File.chmod(0755, t.name)
+end
+
+CLOBBER.include File.join('bin', 'ridlc')
+
+file File.join('bin', 'rins') => ['bin'] do |t|
+  File.open(t.name, 'w') { |f| f.puts R2CORBA::Bin.rins }
+  File.chmod(0755, t.name)
+end
+
+CLOBBER.include File.join('bin', 'rins')
+
+file File.join('bin', 'r2corba') => ['bin'] do |t|
+  File.open(t.name, 'w') { |f| f.puts R2CORBA::Bin.r2corba }
+  File.chmod(0755, t.name)
+end
+
+CLOBBER.include File.join('bin', 'r2corba')
+
+namespace :r2corba do
+  #desc 'Generate R2CORBA executor scripts'
+  namespace :bin do
+    task :build => ['r2corba:bin:check', 'r2corba:bin:files']
+
+    task :check do
+      R2CORBA::Bin.binaries.each do |bin|
+        if File.exists?(File.join('bin', bin))
+          content = IO.read(File.join('bin', bin))
+          rm_f(File.join('bin', bin)) unless content == R2CORBA::Bin.__send__(bin.gsub('.','_').to_sym)
+        end
+      end
+    end
+
+    task :files => [File.join('bin', 'ridlc'), File.join('bin', 'rins'), File.join('bin', 'r2corba')]
+  end
+end
+
+if R2CORBA::Config.is_win32 || defined?(JRUBY_VERSION)
+
+  file File.join('bin', 'ridlc.bat') => ['bin'] do |t|
+    File.open(t.name, 'w') { |f| f.puts R2CORBA::Bin.ridlc_bat }
+  end
+  Rake::Task['r2corba:bin:files'].enhance [File.join('bin', 'ridlc.bat')]
+
+  CLOBBER.include File.join('bin', 'ridlc.bat')
+
+  file File.join('bin', 'rins.bat') => ['bin'] do |t|
+    File.open(t.name, 'w') { |f| f.puts R2CORBA::Bin.rins_bat }
+  end
+  Rake::Task['r2corba:bin:files'].enhance [File.join('bin', 'rins.bat')]
+
+  CLOBBER.include File.join('bin', 'rins.bat')
+
+  file File.join('bin', 'r2corba.bat') => ['bin'] do |t|
+    File.open(t.name, 'w') { |f| f.puts R2CORBA::Bin.r2corba_bat }
+  end
+  Rake::Task['r2corba:bin:files'].enhance [File.join('bin', 'r2corba.bat')]
+
+  CLOBBER.include File.join('bin', 'r2corba.bat')
+
+end

data/rakelib/bin.rb

@@ -0,0 +1,146 @@
+#--------------------------------------------------------------------
+# bin.rb - build file
+#
+# 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__), 'config.rb')
+
+module R2CORBA
+
+  module Bin
+
+    def self.ridlc
+      <<_SH_TXT
+#!#{(`which env`).strip} #{R2CORBA::RB_CONFIG['ruby_install_name']}
+#---------------------------------
+# This file is generated
+#---------------------------------
+ENV['RIDL_BE_SELECT'] = 'ruby'
+unless defined? Gem
+  require 'rubygems' rescue nil
+end
+require 'ridl/ridl'
+
+IDL.run
+_SH_TXT
+    end
+
+    def self.ridlc_bat
+      <<_BAT_TXT
+@echo off
+if not "%~f0" == "~f0" goto WinNT
+#{R2CORBA::RB_CONFIG['ruby_install_name']} -Sx "%0" %1 %2 %3 %4 %5 %6 %7 %8 %9
+goto endofruby
+:WinNT
+if not exist "%~d0%~p0#{R2CORBA::RB_CONFIG['ruby_install_name']}" goto rubyfrompath
+if exist "%~d0%~p0#{R2CORBA::RB_CONFIG['ruby_install_name']}" "%~d0%~p0#{R2CORBA::RB_CONFIG['ruby_install_name']}" -x "%~f0" %*
+goto endofruby
+:rubyfrompath
+#{R2CORBA::RB_CONFIG['ruby_install_name']} -x "%~f0" %*
+goto endofruby
+#!/bin/#{R2CORBA::RB_CONFIG['ruby_install_name']}
+#
+ENV['RIDL_BE_SELECT'] = 'ruby'
+unless defined? Gem
+  require 'rubygems' rescue nil
+end
+require 'ridl/ridl'
+
+IDL.run
+
+__END__
+:endofruby
+_BAT_TXT
+    end
+
+    def self.rins_bat
+      <<_BAT_TXT
+@echo off
+if not "%~f0" == "~f0" goto WinNT
+#{R2CORBA::RB_CONFIG['ruby_install_name']} -Sx "%0" %1 %2 %3 %4 %5 %6 %7 %8 %9
+goto endofruby
+:WinNT
+if not exist "%~d0%~p0#{R2CORBA::RB_CONFIG['ruby_install_name']}" goto rubyfrompath
+if exist "%~d0%~p0#{R2CORBA::RB_CONFIG['ruby_install_name']}" "%~d0%~p0#{R2CORBA::RB_CONFIG['ruby_install_name']}" -x "%~f0" %*
+goto endofruby
+:rubyfrompath
+#{R2CORBA::RB_CONFIG['ruby_install_name']} -x "%~f0" %*
+goto endofruby
+#!/bin/#{R2CORBA::RB_CONFIG['ruby_install_name']}
+#
+require 'corba/svcs/ins/ins'
+
+INS.run
+
+__END__
+:endofruby
+_BAT_TXT
+    end
+
+    def self.rins
+      <<_SH_TXT
+#!#{(`which env`).strip} #{R2CORBA::RB_CONFIG['ruby_install_name']}
+#---------------------------------
+# This file is generated
+#---------------------------------
+require 'corba/svcs/ins/ins'
+
+INS.run
+_SH_TXT
+    end
+
+    def self.r2corba
+      <<_SH_TXT
+#!#{(`which env`).strip} #{R2CORBA::RB_CONFIG['ruby_install_name']}
+#---------------------------------
+# This file is generated
+#---------------------------------
+unless defined? Gem
+  require 'rubygems' rescue nil
+end
+require 'corba/cmds/base'
+_SH_TXT
+    end
+
+    def self.r2corba_bat
+      <<_BAT_TXT
+@echo off
+if not "%~f0" == "~f0" goto WinNT
+#{R2CORBA::RB_CONFIG['ruby_install_name']} -Sx "%0" %1 %2 %3 %4 %5 %6 %7 %8 %9
+goto endofruby
+:WinNT
+if not exist "%~d0%~p0#{R2CORBA::RB_CONFIG['ruby_install_name']}" goto rubyfrompath
+if exist "%~d0%~p0#{R2CORBA::RB_CONFIG['ruby_install_name']}" "%~d0%~p0#{R2CORBA::RB_CONFIG['ruby_install_name']}" -x "%~f0" %*
+goto endofruby
+:rubyfrompath
+#{R2CORBA::RB_CONFIG['ruby_install_name']} -x "%~f0" %*
+goto endofruby
+#!/bin/#{R2CORBA::RB_CONFIG['ruby_install_name']}
+#
+unless defined? Gem
+  require 'rubygems' rescue nil
+end
+require 'corba/cmds/base'
+
+__END__
+:endofruby
+_BAT_TXT
+    end
+
+    def self.binaries
+      l = %w{ridlc rins r2corba}
+      l.concat %w{ridlc.bat rins.bat r2corba.bat} if R2CORBA::Config.is_win32 || defined?(JRUBY_VERSION)
+      l
+    end
+
+  end # Bin
+
+end # R2CORBA

data/rakelib/build.rake

@@ -0,0 +1,87 @@
+#--------------------------------------------------------------------
+# build.rake - build file
+#
+# 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__), 'config.rb')
+
+namespace :r2corba do
+  task :build_bin => [R2CORBA::BUILD_CFG]
+
+  #desc 'Compile R2CORBA base IDL files'
+  task :build_idl => [R2CORBA::BUILD_CFG]
+
+  task :build => [R2CORBA::BUILD_CFG] # everything handled in dependecies
+end
+
+unless defined?(JRUBY_VERSION)
+  Rake::Task['r2corba:build'].enhance ['r2corba:ext:build']
+end
+Rake::Task['r2corba:build'].enhance ['r2corba:bin:build', 'r2corba:build_idl']
+
+desc 'Build R2CORBA'
+task :build => 'r2corba:build'
+
+## compile base IDL
+
+r2c_idlc_root = File.join('lib','corba','idl')
+
+orb_pidlc = File.join('lib', 'ridlbe','ruby','orb.pidlc')
+file orb_pidlc => [R2CORBA::BUILD_CFG] do |t|
+  sh("#{R2CORBA::Config.ridlc} --preprocess --output #{t.name} --stdidl orb.idl")
+end
+Rake::Task['r2corba:build_idl'].enhance [orb_pidlc]
+CLOBBER.include orb_pidlc
+
+file File.join(r2c_idlc_root,'r2c_orb.rb') => [R2CORBA::BUILD_CFG, orb_pidlc] do |t|
+  cmd = R2CORBA::Config.ridlc
+  cmd << " --ignore-pidl --output #{t.name} --namespace=R2CORBA --stdidl" <<
+         " --stubs-only --expand-includes --search-includepath --no-libinit --interface-as-class=TypeCode orb.idl"
+  sh(cmd)
+end
+Rake::Task['r2corba:build_idl'].enhance [File.join(r2c_idlc_root,'r2c_orb.rb')]
+CLOBBER.include File.join(r2c_idlc_root,'r2c_orb.rb')
+
+[ ['POA', 'PortableServer.pidl'],
+  ['Messaging', 'Messaging.pidl'],
+  ['BiDirPolicy', 'BiDirPolicy.pidl'],
+].each do |stub, pidl|
+  file File.join(r2c_idlc_root,stub+'C.rb') => [R2CORBA::BUILD_CFG, orb_pidlc] do |t|
+    cmd = R2CORBA::Config.ridlc
+    cmd << " --output #{t.name} --namespace=R2CORBA --stdidl --stubs-only --expand-includes --search-includepath --no-libinit #{pidl}"
+    sh(cmd)
+  end
+  Rake::Task['r2corba:build_idl'].enhance [File.join(r2c_idlc_root,stub+'C.rb')]
+  CLOBBER.include File.join(r2c_idlc_root,stub+'C.rb')
+end
+
+unless defined?(JRUBY_VERSION)
+  r2tao_root = File.join('lib','corba','cbase')
+  tao_root = get_config('taoroot')
+  [ 'TAO_Ext', 'IORTable' ].each do |stub|
+    file File.join(r2c_idlc_root,stub+'C.rb') => [R2CORBA::BUILD_CFG, orb_pidlc] do |t|
+      cmd = R2CORBA::Config.ridlc
+      cmd << " --output #{t.name} --namespace=R2CORBA --stdidl --stubs-only --expand-includes -I#{tao_root}" <<
+          " --search-includepath --no-libinit #{File.join(r2c_idlc_root, stub+'.pidl')}"
+      sh(cmd)
+    end
+    Rake::Task['r2corba:build_idl'].enhance [File.join(r2c_idlc_root,stub+'C.rb')]
+    CLOBBER.include File.join(r2c_idlc_root,stub+'C.rb')
+  end
+end
+
+file File.join(r2c_idlc_root, 'CosNamingC.rb') => [R2CORBA::BUILD_CFG, orb_pidlc] do |t|
+  cmd = R2CORBA::Config.ridlc
+  cmd << " -o #{r2c_idlc_root} --stdidl --expand-includes --search-includepath CosNaming.idl"
+  sh(cmd)
+end
+Rake::Task['r2corba:build_idl'].enhance [File.join(r2c_idlc_root,'CosNamingC.rb')]
+CLOBBER.include File.join(r2c_idlc_root,'CosNamingC.rb')

data/rakelib/config.rake

@@ -0,0 +1,52 @@
+#--------------------------------------------------------------------
+# config.rake - build file
+#
+# 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__), 'config.rb')
+
+namespace :r2corba do
+  task :configure  do
+    R2CORBA::Config.define
+    R2CORBA::Config.check
+    R2CORBA::Config.save
+    # find out if more tasks were specified to run after configure
+    while ARGV.shift.to_s =~ /^(r2corba:)?configure$/ do; end
+    # if so start a new rake process to run these
+    unless ARGV.empty?
+      # restarting ensures correct loading of config and the tasks that depend on that
+      exec('rake', *ARGV)
+    end
+  end
+
+  namespace :config do
+    task :show do
+      R2CORBA::CFGKEYS.each do |ck|
+        puts "%20s => %s" % [ck, get_config(ck)]
+      end
+    end
+  end
+end
+
+desc 'Configure R2CORBA build settings (calling with "-- --help" provides usage information).'
+task :configure => 'r2corba:configure'
+
+desc 'Show current R2CORBA build settings'
+task :show => 'r2corba:config:show'
+
+file R2CORBA::BUILD_CFG do
+  unless File.file?(R2CORBA::BUILD_CFG)
+    STDERR.puts "Build configuration missing! First run 'rake r2corba::configure'."
+    exit(1)
+  end
+end
+
+CLOBBER.include R2CORBA::BUILD_CFG