ruby-oci8 1.0.2

data/ext/oci8/ocinumber.c

@@ -0,0 +1,117 @@
+/*
+  ocinumber.c - part of ruby-oci8
+  copy from ocinumber.c in ruby-oci8 0.2.
+*/
+
+#include "oci8.h"
+#include <orl.h>
+
+/* use for local call */
+#define oci_lc(rv) do { \
+    sword __rv = (rv); \
+    if (__rv != OCI_SUCCESS) { \
+        oci8_raise(errhp, __rv, NULL); \
+    } \
+} while(0)
+
+#define NUMBER_FORMAT1_STR "FM9999999999999999999999990.9999999999999999999999999999999999999"
+#define NUMBER_FORMAT1 (OraText*)NUMBER_FORMAT1_STR
+#define NUMBER_FORMAT1_LEN (sizeof(NUMBER_FORMAT1_STR) - 1)
+#define NUMBER_FORMAT2_STR "FM99999999999999999999999999999999999990.999999999999999999999999"
+#define NUMBER_FORMAT2 (OraText*)NUMBER_FORMAT2_STR
+#define NUMBER_FORMAT2_LEN (sizeof(NUMBER_FORMAT2_STR) - 1)
+#define NUMBER_FORMAT2_DECIMAL                              (sizeof("999999999999999999999999") - 1)
+#define NUMBER_FORMAT_INT_STR "FM99999999999999999999999999999999999990"
+#define NUMBER_FORMAT_INT (OraText*)NUMBER_FORMAT_INT_STR
+#define NUMBER_FORMAT_INT_LEN (sizeof(NUMBER_FORMAT_INT_STR) - 1)
+
+#ifndef StringValue
+#define StringValue(s) ((s) = (TYPE(s) == T_STRING) ? (s) : rb_str_to_str(s))
+#endif
+
+/* fill C structure (OCINumber) from a string. */
+static void set_oci_number_from_str(OCINumber *result, VALUE str, VALUE fmt, VALUE nls_params, OCIError *errhp)
+{
+    oratext *fmt_ptr;
+    oratext *nls_params_ptr;
+    ub4 fmt_len;
+    ub4 nls_params_len;
+
+    StringValue(str);
+    /* set from string. */
+    if (NIL_P(fmt)) {
+        int i, cnt = 0;
+        for (i = RSTRING_LEN(str) - 1; i >= 0; i--) {
+            if (RSTRING_PTR(str)[i] != ' ')
+                cnt++;
+            if (RSTRING_PTR(str)[i] == '.') {
+                i = RSTRING_LEN(str) - i;
+                break;
+            }
+        }
+        if (i == -1)
+            cnt = 0;
+        if (cnt <= NUMBER_FORMAT2_DECIMAL) {
+            fmt_ptr = NUMBER_FORMAT2;
+            fmt_len = NUMBER_FORMAT2_LEN;
+        } else {
+            fmt_ptr = NUMBER_FORMAT1;
+            fmt_len = NUMBER_FORMAT1_LEN;
+        }
+    } else {
+        StringValue(fmt);
+        fmt_ptr = RSTRING_ORATEXT(fmt);
+        fmt_len = RSTRING_LEN(fmt);
+    }
+    if (NIL_P(nls_params)) {
+        nls_params_ptr = NULL;
+        nls_params_len = 0;
+    } else {
+        StringValue(nls_params);
+        nls_params_ptr = RSTRING_ORATEXT(nls_params);
+        nls_params_len = RSTRING_LEN(nls_params);
+    }
+    oci_lc(OCINumberFromText(errhp,
+                             RSTRING_ORATEXT(str), RSTRING_LEN(str),
+                             fmt_ptr, fmt_len, nls_params_ptr, nls_params_len,
+                             result));
+}
+
+/* fill C structure (OCINumber) from a numeric object. */
+/* 1 - success, 0 - error */
+static int set_oci_number_from_num(OCINumber *result, VALUE num, OCIError *errhp)
+{
+    signed long sl;
+    double dbl;
+
+    if (!RTEST(rb_obj_is_kind_of(num, rb_cNumeric)))
+        rb_raise(rb_eTypeError, "expect Numeric but %s", rb_class2name(CLASS_OF(num)));
+    switch (rb_type(num)) {
+    case T_FIXNUM:
+        /* set from long. */
+        sl = NUM2LONG(num);
+        oci_lc(OCINumberFromInt(errhp, &sl, sizeof(sl), OCI_NUMBER_SIGNED, result));
+        return 1;
+    case T_FLOAT:
+        /* set from double. */
+        dbl = NUM2DBL(num);
+        oci_lc(OCINumberFromReal(errhp, &dbl, sizeof(dbl), result));
+        return 1;
+    case T_BIGNUM:
+        /* change via string. */
+        num = rb_big2str(num, 10);
+        set_oci_number_from_str(result, num, Qnil, Qnil, errhp);
+        return 1;
+    }
+    if (RTEST(rb_obj_is_instance_of(num, cOraNumber))) {
+        /* OCI::Number */
+        oci_lc(OCINumberAssign(errhp, DATA_PTR(num), result));
+        return 1;
+    }
+    return 0;
+}
+
+int set_oci_vnumber(ora_vnumber_t *result, VALUE num, OCIError *errhp)
+{
+    return set_oci_number_from_num((OCINumber*)result, num, errhp);
+}

data/ext/oci8/oraconf.rb

@@ -0,0 +1,1026 @@
+require 'mkmf'
+
+unless defined? macro_defined?
+  # ruby 1.6 doesn't have 'macro_defined?'.
+  def macro_defined?(macro, src, opt="")
+    try_cpp(src + <<"SRC", opt)
+#ifndef #{macro}
+# error
+#endif
+SRC
+  end
+end
+
+module Logging
+  unless Logging.respond_to?(:open)
+    # emulate Logging::open of ruby 1.6.8 or later.
+
+    if $log.nil? # ruby 1.6.2 doesn't have $log.
+      $log = open('mkmf.log', 'w')
+    end
+    def Logging::open
+      begin
+        $stderr.reopen($log)
+        $stdout.reopen($log)
+        yield
+      ensure
+        $stderr.reopen($orgerr)
+        $stdout.reopen($orgout)
+      end
+    end
+  end
+end # module Logging
+
+module MiniRegistry
+  class MiniRegistryError < StandardError
+    attr_reader :api_name
+    attr_reader :code
+    def initialize(api_name, code)
+      @api_name = api_name
+      @code = code
+    end
+  end
+  if RUBY_PLATFORM =~ /mswin32|cygwin|mingw32|bccwin32/
+    # Windows
+    require 'Win32API' # raise LoadError when UNIX.
+
+    # I looked in Win32Module by MoonWolf <URL:http://www.moonwolf.com/ruby/>,
+    # copy the minimum code and reorganize it.
+    ERROR_SUCCESS = 0
+    ERROR_FILE_NOT_FOUND = 2
+
+    HKEY_LOCAL_MACHINE = 0x80000002
+    RegOpenKeyExA = Win32API.new('advapi32', 'RegOpenKeyExA', 'LPLLP', 'L')
+    RegQueryValueExA = Win32API.new('advapi32','RegQueryValueExA','LPPPPP','L')
+    RegCloseKey = Win32API.new('advapi32', 'RegCloseKey', 'L', 'L')
+
+    def get_reg_value(root, subkey, name)
+      result = [0].pack('L')
+      code = RegOpenKeyExA.call(root, subkey, 0, 0x20019, result)
+      if code != ERROR_SUCCESS
+        raise MiniRegistryError.new("Win32::RegOpenKeyExA", code)
+      end
+      hkey = result.unpack('L')[0]
+      begin
+        lpcbData = [0].pack('L')
+        code = RegQueryValueExA.call(hkey, name, nil, nil, nil, lpcbData)
+        if code == ERROR_FILE_NOT_FOUND
+          return nil
+        elsif code != ERROR_SUCCESS
+          raise MiniRegistryError.new("Win32::RegQueryValueExA",code)
+        end
+        len = lpcbData.unpack('L')[0]
+        lpType = "\0\0\0\0"
+        lpData = "\0"*len
+        lpcbData = [len].pack('L')
+        code = RegQueryValueExA.call(hkey, name, nil, lpType, lpData, lpcbData)
+        if code != ERROR_SUCCESS
+          raise MiniRegistryError.new("Win32::RegQueryValueExA",code)
+        end
+        lpData.unpack('Z*')[0]
+      ensure
+        RegCloseKey.call(hkey)
+      end
+    end
+    def get_local_registry(subkey, name)
+      get_reg_value(HKEY_LOCAL_MACHINE, subkey, name)
+    end
+  else
+    # UNIX
+    def get_local_registry(subkey, name)
+      nil
+    end
+  end
+end # module MiniRegistry
+
+# minimal implementation to read information of a shared object.
+class MiniSOReader
+  attr_reader :file_format
+  attr_reader :cpu
+  attr_reader :endian
+  attr_reader :bits
+
+  def initialize(filename)
+    f = open(filename, 'rb')
+    begin
+      case file_header = f.read(2)
+      when "\177E"
+        # Linux, Solaris and HP-UX(64-bit)
+        read_elf(f) if f.read(2) == 'LF'
+      when "MZ"
+        # Windows
+        read_pe(f)
+      else
+        # HP-UX(32-bit), AIX, Mac OS X and Tru64
+        raise format("unknown file header: %02x %02x", file_header[0], file_header[1])
+      end
+    ensure
+      f.close
+    end
+  end
+
+  private
+  # ELF format
+  def read_elf(f)
+    # 0-3 "\177ELF"
+    @file_format = :elf
+    # 4
+    case f.read(1).unpack('C')[0]
+    when 1
+      @bits = 32
+    when 2
+      @bits = 64
+    else
+      raise 'Invalid ELF class'
+    end
+    # 5
+    case f.read(1).unpack('C')[0]
+    when 1
+      @endian = :little
+      pack_type_short = 'v'
+    when 2
+      @endian = :big
+      pack_type_short = 'n'
+    else
+      raise 'Invalid ELF byte order'
+    end
+    # 6
+    raise 'Invalid ELF header version' if f.read(1) != "\x01"
+    # 16-17
+    f.seek(16, IO::SEEK_SET)
+    raise 'Invalid ELF filetype' if f.read(2).unpack(pack_type_short)[0] != 3
+    # 18-19
+    case archtype = f.read(2).unpack(pack_type_short)[0]
+    when 2
+      @cpu = :sparc
+    when 3
+      @cpu = :i386
+    when 15
+      @cpu = :parisc
+    when 20
+      @cpu = :ppc
+    when 21
+      @cpu = :ppc64
+    when 22
+      @cpu = :s390
+    when 43
+      @cpu = :sparcv9
+    when 50
+      @cpu = :ia64
+    when 62
+      @cpu = :x86_64
+    else
+      raise "Invalid ELF archtype: #{archtype}"
+    end
+  end
+
+  # PE/COFF format
+  def read_pe(f)
+    # 0-1 "MZ"
+    @file_format = :pe
+    # 60-63
+    f.seek(60, IO::SEEK_SET)
+    pe_offset = f.read(4).unpack('V')[0]
+    # read PE signature
+    f.seek(pe_offset)
+    raise 'invalid pe format' if f.read(4) != "PE\000\000"
+    # read COFF header
+    case machine = f.read(2).unpack('v')[0]
+    when 0x014c
+      @cpu = :i386
+      @endian = :little
+      @bits = 32
+    when 0x0200
+      @cpu = :ia64
+      @endian = :little
+      @bits = 64
+    when 0x8664
+      @cpu = :x86_64
+      @endian = :little
+      @bits = 64
+    else
+      raise "Invalid coff machine: #{machine}"
+    end
+  end
+end
+
+class OraConf
+  include MiniRegistry
+
+  attr_reader :cc_is_gcc
+  attr_reader :version
+  attr_reader :cflags
+  attr_reader :libs
+
+  def initialize
+    raise 'use OraConf.get instead'
+  end
+
+  def self.get
+    original_CFLAGS = $CFLAGS
+    original_defs = $defs
+    ic_dir = nil
+    begin
+      # check Oracle instant client
+      if with_config('instant-client')
+        puts <<EOS
+=======================================================
+
+  '--with-instant-client' is an obsolete option. ignore it.
+
+=======================================================
+EOS
+      end
+      ic_dir = check_ic_dir
+      if ic_dir
+        OraConfIC.new(ic_dir)
+      else
+        OraConfFC.new()
+      end
+    rescue
+      case ENV['LANG']
+      when /^ja/
+        lang = 'ja'
+      else
+        lang = 'en'
+      end
+      print <<EOS
+---------------------------------------------------
+error messages:
+#{$!.to_str}
+---------------------------------------------------
+See:
+ * http://ruby-oci8.rubyforge.org/#{lang}/HowToInstall.html
+ * http://ruby-oci8.rubyforge.org/#{lang}/ReportInstallProblem.html
+
+EOS
+      exc = RuntimeError.new
+      exc.set_backtrace($!.backtrace)
+      raise exc
+    ensure
+      $CFLAGS = original_CFLAGS
+      $defs = original_defs
+    end
+  end
+
+  def self.ld_envs
+    @@ld_envs
+  end
+
+  private
+
+  def self.check_ic_dir
+    print "checking for load library path... "
+    STDOUT.flush
+
+    # get library load path names
+    oci_basename = 'libclntsh'
+    oci_glob_postfix = '.[0-9]*'
+    ocidata_basename = ['libociei', 'libociicus']
+    @@ld_envs = %w[LD_LIBRARY_PATH]
+    so_ext = 'so'
+    check_proc = nil
+    case RUBY_PLATFORM
+    when /mswin32|cygwin|mingw32|bccwin32/
+      oci_basename = 'oci'
+      oci_glob_postfix = ''
+      ocidata_basename = ['oraociei11', 'oraociicus11', 'oraociei10', 'oraociicus10']
+      @@ld_envs = %w[PATH]
+      so_ext = 'dll'
+    when /i.86-linux/
+      check_proc = Proc.new do |file|
+        so = MiniSOReader.new(file)
+        if so.cpu == :i386
+          true
+        else
+          puts "  skip: #{file} is for #{so.cpu} cpu."
+          false
+        end
+      end
+    when /ia64-linux/
+      check_proc = Proc.new do |file|
+        so = MiniSOReader.new(file)
+        if so.cpu == :ia64
+          true
+        else
+          puts "  skip: #{file} is for #{so.cpu} cpu."
+          false
+        end
+      end
+    when /x86_64-linux/
+      check_proc = Proc.new do |file|
+        so = MiniSOReader.new(file)
+        if so.cpu == :x86_64
+          true
+        else
+          puts "  skip: #{file} is for #{so.cpu} cpu."
+          false
+        end
+      end
+    when /solaris/
+      if [0].pack('l!').length == 8
+        @@ld_envs = %w[LD_LIBRARY_PATH_64 LD_LIBRARY_PATH]
+      else
+        @@ld_envs = %w[LD_LIBRARY_PATH_32 LD_LIBRARY_PATH]
+      end
+    when /aix/
+      oci_glob_postfix = ''
+      @@ld_envs = %w[LIBPATH]
+      so_ext = 'a'
+    when /hppa.*-hpux/
+      if [0].pack('l!').length == 4
+        @@ld_envs = %w[SHLIB_PATH]
+      end
+      so_ext = 'sl'
+    when /darwin/
+      @@ld_envs = %w[DYLD_LIBRARY_PATH]
+      so_ext = 'dylib'
+    end
+
+    glob_name = "#{oci_basename}.#{so_ext}#{oci_glob_postfix}"
+    ld_path = nil
+    file = nil
+    @@ld_envs.collect do |env|
+      puts "(#{env})... "
+      ENV[env] && ENV[env].split(File::PATH_SEPARATOR)
+    end.flatten.each do |path|
+      next if path.nil? or path == ''
+      path.gsub!(/\\/, '/') if /mswin32|cygwin|mingw32|bccwin32/ =~ RUBY_PLATFORM
+      files = Dir.glob(File.join(path, glob_name))
+      next if files.empty?
+      STDOUT.flush
+      next if (check_proc && !check_proc.call(files[0]))
+      file = files[0]
+      ld_path = path
+      break
+    end
+
+    if ld_path.nil? and RUBY_PLATFORM =~ /linux/
+      open("|/sbin/ldconfig -p") do |f|
+        print "(ld.so.conf)... "
+        STDOUT.flush
+        while line = f.gets
+          if line =~ /libclntsh\.so\..* => (\/.*)\/libclntsh\.so\.(.*)/
+            file = "#$1/libclntsh.so.#$2"
+            path = $1
+            next if (check_proc && !check_proc.call(file))
+            ld_path = path
+            break
+          end
+        end
+      end
+    end
+
+    if ld_path
+      ocidata_basename.each do |basename|
+        if File.exist?(File.join(ld_path, "#{basename}.#{so_ext}"))
+          puts "  found: #{file} looks like an instant client."
+          return ld_path
+        end
+      end
+      puts "  found: #{file} looks like a full client."
+    else
+      puts "  not found"
+    end
+    nil
+  end
+
+  def init
+    check_cc()
+    @cc_is_gcc = check_cc_is_gcc()
+    @lp64 = check_lp64()
+    check_ruby_header()
+  end
+
+  def check_cc
+    print "checking for cc... "
+    STDOUT.flush
+    if try_run("int main() { return 0; }")
+      puts "ok"
+    else
+      puts "ng"
+      raise "C compiler doesn't work correctly."
+    end
+  end # check_cc
+
+  def check_cc_is_gcc
+    # bcc defines __GNUC__. why??
+    return false if RUBY_PLATFORM =~ /bccwin32/
+
+    print "checking for gcc... "
+    STDOUT.flush
+    if macro_defined?("__GNUC__", "")
+      print "yes\n"
+      return true
+    else
+      print "no\n"
+      return false
+    end
+  end # check_cc_is_gcc
+
+  def check_lp64
+    print "checking for LP64... "
+    STDOUT.flush
+    if try_run("int main() { return sizeof(long) == 8 ? 0 : 1; }")
+      puts "yes"
+      true
+    else
+      puts "no"
+      false
+    end
+  end # check_lp64
+
+  def check_ruby_header
+    print "checking for ruby header... "
+    STDOUT.flush
+    unless File.exist?("#{Config::CONFIG['archdir']}/ruby.h")
+      puts "ng"
+      if RUBY_PLATFORM =~ /darwin/ and File.exist?("#{Config::CONFIG['archdir']}/../universal-darwin8.0/ruby.h")
+        raise <<EOS
+#{Config::CONFIG['archdir']}/ruby.h doesn't exist.
+Run the following commands to fix the problem.
+
+  cd #{Config::CONFIG['archdir']}
+  sudo ln -s ../universal-darwin8.0/* ./
+EOS
+      else
+        raise <<EOS
+#{Config::CONFIG['archdir']}/ruby.h doesn't exist.
+Install the ruby development library.
+EOS
+      end
+    end
+    if RUBY_PLATFORM =~ /linux/ and not File.exist?("/usr/include/sys/types.h")
+      raise <<EOS
+Do you install glibc-devel(redhat) or libc6-dev(debian)?
+You need /usr/include/sys/types.h to compile ruby-oci8.
+EOS
+    end
+    puts "ok"
+  end # check_ruby_header
+
+  def try_link_oci
+    original_libs = $libs
+    begin
+      $libs += " -L#{CONFIG['libdir']} " + @libs
+      have_func("OCIInitialize", "oci.h")
+    ensure
+      $libs = original_libs
+    end
+  end
+
+  if RUBY_PLATFORM =~ /mswin32|cygwin|mingw32|bccwin32/ # when Windows
+
+    def get_libs(base_dir = oci_base_dir)
+      case RUBY_PLATFORM
+      when /cygwin/
+        open("OCI.def", "w") do |f|
+          f.puts("EXPORTS")
+          open("|nm #{base_dir}/LIB/MSVC/OCI.LIB") do |r|
+            while line = r.gets
+              f.puts($') if line =~ / T _/
+            end
+          end
+        end
+        command = "dlltool -d OCI.def -D OCI.DLL -l libOCI.a"
+        print("Running: '#{command}' ...")
+        STDOUT.flush
+        system(command)
+        puts("done")
+        "-L. -lOCI"
+      when /bccwin32/
+        # replace '/' to '\\' because bcc linker misunderstands
+        # 'C:/foo/bar/OCI.LIB' as unknown option.
+        lib = "#{base_dir}/LIB/BORLAND/OCI.LIB"
+        return lib.tr('/', '\\') if File.exist?(lib)
+        raise <<EOS
+#{lib} does not exist.
+
+Your Oracle may not support Borland C++.
+If you want to run this module, run the following command at your own risk.
+  cd #{base_dir.tr('/', '\\')}\\LIB
+  mkdir Borland
+  cd Borland
+  coff2omf ..\\MSVC\\OCI.LIB OCI.LIB
+EOS
+        exit 1
+      else
+        "\"#{base_dir}/LIB/MSVC/OCI.LIB\""
+      end
+    end
+
+  end
+end
+
+# OraConf for Full Client
+class OraConfFC < OraConf
+  def initialize
+    init
+
+    @oracle_home = get_home()
+    if RUBY_PLATFORM =~ /freebsd/ && @oracle_home == '/usr/local/oracle8-client'
+      @version = '817'
+    else
+      @version = get_version()
+    end
+    @cflags = get_cflags()
+    $CFLAGS += @cflags
+
+    if !@lp64 && File.exist?("#{@oracle_home}/lib32")
+      # ruby - 32bit
+      # oracle - 64bit
+      use_lib32 = true
+    else
+      use_lib32 = false
+    end
+
+    # default
+    if @version.to_i >= 900
+      if use_lib32
+        lib_dir = "#{@oracle_home}/lib32"
+      else
+        lib_dir = "#{@oracle_home}/lib"
+      end
+      case RUBY_PLATFORM
+      when /solaris/
+        @libs = " -L#{lib_dir} -R#{lib_dir} -lclntsh"
+      when /linux/
+        @libs = " -L#{lib_dir} -Wl,-rpath,#{lib_dir} -lclntsh"
+      else
+        @libs = " -L#{lib_dir} -lclntsh"
+      end
+      return if try_link_oci()
+    end
+
+    # get from demo_rdbms.mk
+    if use_lib32
+      if File.exist?("#{@oracle_home}/rdbms/demo/demo_rdbms32.mk")
+        @libs = get_libs('32', '')
+      else
+        @libs = get_libs('', '32')
+      end
+    else
+      @libs = get_libs()
+    end
+    return if try_link_oci()
+
+    raise 'cannot compile OCI'
+  end
+
+  private
+
+  def get_version
+    print("Get the version of Oracle from SQL*Plus... ")
+    STDOUT.flush
+    version = nil
+    dev_null = RUBY_PLATFORM =~ /mswin32|mingw32|bccwin32/ ? "nul" : "/dev/null"
+    if File.exist?("#{@oracle_home}/bin/plus80.exe")
+      sqlplus = "plus80.exe"
+    else
+      sqlplus = "sqlplus"
+    end
+    Logging::open do
+      open("|#{@oracle_home}/bin/#{sqlplus} < #{dev_null}") do |f|
+        while line = f.gets
+          print line
+          if line =~ /(\d+)\.(\d)\.(\d)/
+            version = $1 + $2 + $3
+            break
+          end
+        end
+      end
+    end
+    if version.nil?
+      raise 'cannot get Oracle version from sqlplus'
+    end
+    puts version
+    version
+  end # get_version
+
+  if RUBY_PLATFORM =~ /mswin32|cygwin|mingw32|bccwin32/ # when Windows
+
+    def is_valid_home?(oracle_home)
+      return false if oracle_home.nil?
+      sqlplus = "#{oracle_home}/bin/sqlplus.exe"
+      print("checking for ORACLE_HOME(#{oracle_home})... ")
+      STDOUT.flush
+      if File.exist?(sqlplus)
+        puts("yes")
+        true
+      else
+        puts("no")
+        false
+      end
+    end
+
+    def get_home()
+      oracle_home = ENV['ORACLE_HOME']
+      if oracle_home.nil?
+        struct = Struct.new("OracleHome", :name, :path)
+        oracle_homes = []
+        begin
+          last_home = get_local_registry("SOFTWARE\\ORACLE\\ALL_HOMES", 'LAST_HOME')
+          0.upto last_home.to_i do |id|
+             oracle_homes << "HOME#{id}"
+          end
+        rescue MiniRegistryError
+        end
+        oracle_homes << "KEY_XE"
+        oracle_homes << "KEY_XEClient"
+        oracle_homes.collect! do |home|
+          begin
+            name = get_local_registry("SOFTWARE\\ORACLE\\#{home}", 'ORACLE_HOME_NAME')
+            path = get_local_registry("SOFTWARE\\ORACLE\\#{home}", 'ORACLE_HOME')
+            path.chomp!("\\")
+            struct.new(name, path) if is_valid_home?(path)
+          rescue MiniRegistryError
+            nil
+          end
+        end
+        oracle_homes.compact!
+        if oracle_homes.empty?
+          raise <<EOS
+Set the environment variable ORACLE_HOME if Oracle Full Client.
+Append the path of Oracle client libraries to #{OraConf.ld_envs[0]} if Oracle Instant Client.
+EOS
+        end
+        if oracle_homes.length == 1
+          oracle_home = oracle_homes[0].path
+        else
+          default_path = ''
+          if RUBY_PLATFORM =~ /cygwin/
+             path_sep = ':'
+             dir_sep = '/'
+          else
+             path_sep = ';'
+             dir_sep = '\\'
+          end
+          ENV['PATH'].split(path_sep).each do |path|
+            path.chomp!(dir_sep)
+            if File.exist?("#{path}/OCI.DLL")
+              default_path = path
+              break
+            end
+          end
+          puts "---------------------------------------------------"
+          puts "Multiple Oracle Homes are found."
+          printf "   %-15s : %s\n", "[NAME]", "[PATH]"
+          oracle_homes.each do |home|
+            if RUBY_PLATFORM =~ /cygwin/
+              path = `cygpath -u '#{home.path}'`.chomp!
+            else
+              path = home.path
+            end
+            if default_path.downcase == "#{path.downcase}#{dir_sep}bin"
+              oracle_home = home
+            end
+            printf "   %-15s : %s\n", home.name, home.path
+          end
+          if oracle_home.nil?
+            puts "default oracle home is not found."
+            puts "---------------------------------------------------"
+            raise 'Cannot get ORACLE_HOME. Please set the environment valiable ORACLE_HOME.'
+          else
+            printf "use %s\n", oracle_home.name
+            puts "run ohsel.exe to use another oracle home."
+            puts "---------------------------------------------------"
+            oracle_home = oracle_home.path
+          end
+        end
+      end
+      if RUBY_PLATFORM =~ /cygwin/
+        oracle_home = oracle_home.sub(/^([a-zA-Z]):/, "/cygdrive/\\1")
+      end
+      oracle_home.gsub(/\\/, '/')
+    end
+
+    def oci_base_dir
+      case @version
+      when /80./
+        "#{@oracle_home}/OCI80"
+      else
+        "#{@oracle_home}/OCI"
+      end
+    end
+
+    def get_cflags
+      unless File.exist?("#{oci_base_dir}/INCLUDE/OCI.H")
+        raise "'#{oci_base_dir}/INCLUDE/OCI.H' does not exists. Please install 'Oracle Call Interface'."
+      end
+      if RUBY_PLATFORM =~ /cygwin/
+        " \"-I#{oci_base_dir}/INCLUDE\" -D_int64=\"long long\""
+      else
+        " \"-I#{oci_base_dir}/INCLUDE\""
+      end
+    end
+
+  else # when UNIX
+
+    def get_home
+      oracle_home = ENV['ORACLE_HOME']
+      if oracle_home.nil?
+        raise <<EOS
+Set the environment variable ORACLE_HOME if Oracle Full Client.
+Append the path of Oracle client libraries to #{OraConf.ld_envs[0]} if Oracle Instant Client.
+EOS
+      end
+      oracle_home
+    end
+
+    def get_cflags
+      cflags = ''
+      ok = false
+      original_CFLAGS = $CFLAGS
+      begin
+        for i in ["rdbms/public", "rdbms/demo", "network/public", "plsql/public"]
+          cflags += " -I#{@oracle_home}/#{i}"
+          $CFLAGS += " -I#{@oracle_home}/#{i}"
+          print("try #{cflags}\n");
+          if have_header("oci.h")
+            ok = true
+            break
+          end
+        end
+        unless ok
+          if @version.to_i >= 1000
+            oci_h = "#{@oracle_home}/rdbms/public/oci.h"
+          else
+            oci_h = "#{@oracle_home}/rdbms/demo/oci.h"
+          end
+          unless File.exist?(oci_h)
+            raise "'#{oci_h}' does not exists. Install 'Oracle Call Interface' component."
+          end
+          raise 'Cannot get proper cflags.'
+        end
+        cflags
+      ensure
+        $CFLAGS = original_CFLAGS
+      end
+    end # get_cflags
+
+    def get_libs(postfix1 = '', postfix2 = "")
+      print("Running make for $ORACLE_HOME/rdbms/demo/demo_rdbms#{postfix1}.mk (build#{postfix2}) ...")
+      STDOUT.flush
+
+      make_opt = "CC='echo MARKER' EXE=/dev/null ECHODO=echo ECHO=echo GENCLNTSH='echo genclntsh'"
+      if @cc_is_gcc && /solaris/ =~ RUBY_PLATFORM
+        # suggested by Brian Candler.
+        make_opt += " KPIC_OPTION= NOKPIC_CCFLAGS#{postfix2}="
+      end
+
+      command = "|make -f #{@oracle_home}/rdbms/demo/demo_rdbms#{postfix1}.mk build#{postfix2} #{make_opt}"
+      marker = /^\s*MARKER/
+      echo = /^\s*echo/
+      libs = nil
+      Logging::open do
+        puts command
+        open(command, "r") do |f|
+          while line = f.gets
+            puts line
+            line.chomp!
+            line = $' while line =~ echo
+            if line =~ marker
+              # found a line where a compiler runs.
+              libs = $'
+              libs.gsub!(/-o\s+\/dev\/null/, "")
+              libs.gsub!(/-o\s+build/, "")
+            end
+          end
+        end
+      end
+      raise 'Cannot get proper libs.' if libs.nil?
+      print("OK\n")
+
+      case RUBY_PLATFORM
+      when /hpux/
+        if @cc_is_gcc
+          # strip +DA2.0W, +DS2.0, -Wl,+s, -Wl,+n
+          libs.gsub!(/\+DA\S+(\s)*/, "")
+          libs.gsub!(/\+DS\S+(\s)*/, "")
+          libs.gsub!(/-Wl,\+[sn](\s)*/, "")
+        end
+        libs.gsub!(/ -Wl,/, " ")
+      when /aix/
+        if @cc_is_gcc
+          # strip -bI:/xxx
+          libs.gsub!(/(-bI:\S+)/, '')
+        end
+      end
+
+      # remove object files from libs.
+      objs = []
+      libs.gsub!(/\S+\.o\b/) do |obj|
+        objs << obj
+        ""
+      end
+      # change object files to an archive file to work around.
+      if objs.length > 0
+        Logging::open do
+          puts "change object files to an archive file."
+          command = Config::CONFIG["AR"] + " cru oracle_objs.a " + objs.join(" ")
+          puts command
+          system(command)
+          libs = "oracle_objs.a " + libs
+        end
+      end
+      libs
+    end # get_libs
+  end
+end
+
+# OraConf for Instant Client
+class OraConfIC < OraConf
+  def initialize(ic_dir)
+    init
+
+    if ic_dir =~ /^\/usr\/lib(?:64)?\/oracle\/(\d+\.\d+\.\d+\.\d+)\/client(64)?\/lib(?:64)?/
+      # rpm package
+      #   official x86 rpms:
+      #    library: /usr/lib/oracle/X.X.X.X/client/lib/
+      #    include: /usr/include/oracle/X.X.X.X/client/
+      #
+      #   official x86_64 rpms:
+      #    library: /usr/lib/oracle/X.X.X.X/client64/lib/
+      #    include: /usr/include/oracle/X.X.X.X/client64/
+      #
+      #   third-party x86_64 rpms(*1):
+      #    library: /usr/lib64/oracle/X.X.X.X/client/lib/
+      #          or /usr/lib64/oracle/X.X.X.X/client/lib64/
+      #    include: /usr/include/oracle/X.X.X.X/client/
+      #
+      #   *1 These had been used before Oracle released official x86_64 rpms.
+      #
+      lib_dir = ic_dir
+      inc_dir = "/usr/include/oracle/#{$1}/client#{$2}"
+    else
+      # zip package
+      lib_dir = ic_dir
+      inc_dir = "#{ic_dir}/sdk/include"
+    end
+
+    if RUBY_PLATFORM =~ /mswin32|cygwin|mingw32|bccwin32/ # when Windows
+      unless File.exist?("#{ic_dir}/sdk/lib/msvc/oci.lib")
+        raise <<EOS
+Could not compile with Oracle instant client.
+#{ic_dir}/sdk/lib/msvc/oci.lib could not be found.
+EOS
+        raise 'failed'
+      end
+      @cflags = " \"-I#{inc_dir}\""
+      @cflags += " -D_int64=\"long long\"" if RUBY_PLATFORM =~ /cygwin/
+      @libs = get_libs("#{ic_dir}/sdk")
+      ld_path = nil
+    else
+      @cflags = " -I#{inc_dir}"
+      # set ld_path and so_ext
+      case RUBY_PLATFORM
+      when /aix/
+        ld_path = 'LIBPATH'
+        so_ext = 'a'
+      when /hppa.*-hpux/
+        if @lp64
+          ld_path = 'LD_LIBRARY_PATH'
+        else
+          ld_path = 'SHLIB_PATH'
+        end
+        so_ext = 'sl'
+      when /darwin/
+        ld_path = 'DYLD_LIBRARY_PATH'
+        so_ext = 'dylib'
+      else
+        ld_path = 'LD_LIBRARY_PATH'
+        so_ext = 'so'
+      end
+      # check Oracle client library.
+      unless File.exist?("#{lib_dir}/libclntsh.#{so_ext}")
+        files = Dir.glob("#{lib_dir}/libclntsh.#{so_ext}.*")
+        if files.empty?
+          raise <<EOS
+Could not compile with Oracle instant client.
+'#{lib_dir}/libclntsh.#{so_ext}' could not be found.
+Did you install instantclient-basic?
+EOS
+        else
+          file = File.basename(files.sort[-1])
+          raise <<EOS
+Could not compile with Oracle instant client.
+#{lib_dir}/libclntsh.#{so_ext} could not be found.
+You may need to make a symbolic link.
+   cd #{lib_dir}
+   ln -s #{file} libclntsh.#{so_ext}
+EOS
+        end
+        raise 'failed'
+      end
+      @libs = " -L#{lib_dir} -lclntsh "
+    end
+    unless File.exist?("#{inc_dir}/oci.h")
+          raise <<EOS
+'#{inc_dir}/oci.h' does not exist.
+Install 'Instant Client SDK'.
+EOS
+    end
+    $CFLAGS += @cflags
+    if try_link_oci()
+      major = try_constant("OCI_MAJOR_VERSION", "oci.h")
+      minor = try_constant("OCI_MINOR_VERSION", "oci.h")
+      if major and minor
+        @version = format('%d%d0', major, minor)
+      else
+        # 10.1.0 doesn't have OCI_MAJOR_VERSION and OCI_MINOR_VERSION in oci.h.
+        @version = "1010"
+      end
+      return
+    end
+
+    if RUBY_PLATFORM =~ /darwin/
+      is_intelmac = ([1].pack('s') == "\001\000")
+      arch_ppc_error = false
+      arch_i386_error = false
+      open('mkmf.log', 'r') do |f|
+        while line = f.gets
+          # universal-darwin8.0 (Mac OS X 10.4?)
+          if line.include? 'cputype (18, architecture ppc) does not match cputype (7)'
+            # try to link an i386 library but the instant client is ppc.
+            arch_i386_error = true
+          end
+          if line.include? 'cputype (7, architecture i386) does not match cputype (18)'
+            # try to link a ppc library but the instant client is i386.
+            arch_ppc_error = true
+          end
+          if line.include? '/libclntsh.dylib load command 8 unknown cmd field'
+            raise <<EOS
+Intel mac instant client is for Mac OS X 10.5.
+It doesn't work on Mac OS X 10.4 or before.
+
+You have three workarounds.
+  1. Compile ruby as ppc binary and use it with ppc instant client.
+  2. Use JRuby and JDBC
+  3. Use a third-party ODBC driver and ruby-odbc.
+EOS
+            # '
+          end
+          # universal-darwin9.0 (Mac OS X 10.5?)
+          if line.include? 'Undefined symbols for architecture i386:'
+            # try to link an i386 library but the instant client is ppc.
+            arch_i386_error = true
+          end
+          if line.include? 'Undefined symbols for architecture ppc:'
+            # try to link a ppc library but the instant client is i386.
+            arch_ppc_error = true
+          end
+
+          if arch_i386_error
+            if is_intelmac
+              # intel mac and '-arch i386' error
+              raise <<EOS
+Could not compile with Oracle instant client.
+Use intel mac instant client.
+EOS
+            else
+              # ppc mac and '-arch i386' error
+              raise <<EOS
+Could not compile with Oracle instant client.
+You may need to set a environment variable:
+    RC_ARCHS=ppc
+    export RC_ARCHS
+If it does not fix the problem, delete all '-arch i386'
+in '#{Config::CONFIG['archdir']}/rbconfig.rb'.
+EOS
+            end
+          end
+
+          if arch_ppc_error
+            if is_intelmac
+              # intel mac and '-arch ppc' error
+              raise <<EOS
+Could not compile with Oracle instant client.
+You may need to set a environment variable:
+    RC_ARCHS=i386
+    export RC_ARCHS
+If it does not fix the problem, delete all '-arch ppc'
+in '#{Config::CONFIG['archdir']}/rbconfig.rb'.
+EOS
+            else
+              # ppc mac and '-arch ppc' error
+              raise <<EOS
+Could not compile with Oracle instant client.
+Use ppc instant client.
+EOS
+            end
+          end
+        end
+      end
+    end
+
+    unless ld_path.nil?
+      raise <<EOS
+Could not compile with Oracle instant client.
+You may need to set a environment variable:
+    #{ld_path}=#{lib_dir}
+    export #{ld_path}
+EOS
+    end
+    raise 'failed'
+  end
+end