ruby--ruby/instruby.rb

#!./miniruby

load "./rbconfig.rb"
include RbConfig

srcdir = File.dirname(__FILE__)
$:.unshift File.expand_path("lib", srcdir)
require 'fileutils'
require 'shellwords'
require 'optparse'
require 'optparse/shellwords'
require 'tempfile'

STDOUT.sync = true
File.umask(0)

def parse_args()
  $mantype = 'doc'
  $destdir = nil
  $extout = nil
  $make = 'make'
  $mflags = []
  $install = []
  $installed_list = nil
  $dryrun = false
  opt = OptionParser.new
  opt.on('-n') {$dryrun = true}
  opt.on('--dest-dir=DIR') {|dir| $destdir = dir}
  opt.on('--extout=DIR') {|dir| $extout = (dir unless dir.empty?)}
  opt.on('--make=COMMAND') {|make| $make = make}
  opt.on('--mantype=MAN') {|man| $mantype = man}
  opt.on('--make-flags=FLAGS', '--mflags', Shellwords) do |v|
    if arg = v.first
      arg.insert(0, '-') if /\A[^-][^=]*\Z/ =~ arg
    end
    $mflags.concat(v)
  end
  opt.on('-i', '--install=TYPE',
         [:local, :bin, :lib, :man, :ext, :"ext-arch", :"ext-comm"]) do |ins|
    $install << ins
  end
  opt.on('--installed-list [FILENAME]') {|name| $installed_list = name}
  opt.parse! rescue abort [$!.message, opt].join("\n")

  $make, *rest = Shellwords.shellwords($make)
  $mflags.unshift(*rest) unless rest.empty?

  def $mflags.set?(flag)
    grep(/\A-(?!-).*#{'%s' % flag}/i) { return true }
    false
  end
  def $mflags.defined?(var)
    grep(/\A#{var}=(.*)/) {return $1}
    false
  end

  if $mflags.set?(?n)
    $dryrun = true
  else
    $mflags << '-n' if $dryrun
  end

  $destdir ||= $mflags.defined?("DESTDIR")
  $extout ||= $mflags.defined?("EXTOUT")

  $continue = $mflags.set?(?k)

  if $installed_list ||= $mflags.defined?('INSTALLED_LIST')
    Config.expand($installed_list, Config::CONFIG)
    $installed_list = open($installed_list, "ab")
    $installed_list.sync = true
  end
end

parse_args()

include FileUtils::Verbose
include FileUtils::NoWrite if $dryrun
@fileutils_output = STDOUT
@fileutils_label = ''

def install?(*types)
  yield if $install.empty? or !($install & types).empty?
end

def install(src, dest, options = {})
  options[:preserve] = true
  super
  if $installed_list
    dest = File.join(dest, File.basename(src)) if $made_dirs[dest]
    $installed_list.puts dest
  end
end

def ln_sf(src, dest)
  super
  $installed_list.puts dest if $installed_list
end

$made_dirs = {}
def makedirs(dirs)
  dirs = fu_list(dirs)
  dirs.reject! do |dir|
    $made_dirs.fetch(dir) do
      $made_dirs[dir] = true
      File.directory?(dir)
    end
  end
  super(dirs, :mode => 0755, :verbose => true) unless dirs.empty?
end

def with_destdir(dir)
  return dir if !$destdir or $destdir.empty?
  dir = dir.sub(/\A\w:/, '') if File::PATH_SEPARATOR == ';'
  $destdir + dir
end

exeext = CONFIG["EXEEXT"]

ruby_install_name = CONFIG["ruby_install_name"]
rubyw_install_name = CONFIG["rubyw_install_name"]

version = CONFIG["ruby_version"]
bindir = with_destdir(CONFIG["bindir"])
libdir = with_destdir(CONFIG["libdir"])
rubylibdir = with_destdir(CONFIG["rubylibdir"])
archlibdir = with_destdir(CONFIG["archdir"])
sitelibdir = with_destdir(CONFIG["sitelibdir"])
sitearchlibdir = with_destdir(CONFIG["sitearchdir"])
mandir = with_destdir(File.join(CONFIG["mandir"], "man"))
configure_args = Shellwords.shellwords(CONFIG["configure_args"])
enable_shared = CONFIG["ENABLE_SHARED"] == 'yes'
dll = CONFIG["LIBRUBY_SO"]
lib = CONFIG["LIBRUBY"]
arc = CONFIG["LIBRUBY_A"]

makedirs [bindir, libdir, rubylibdir, archlibdir, sitelibdir, sitearchlibdir]

install?(:local, :arch, :bin) do
  ruby_bin = File.join(bindir, ruby_install_name)

  install ruby_install_name+exeext, ruby_bin+exeext, :mode => 0755
  if File.exist?(ruby_install_name+exeext+".manifest")
    install ruby_install_name+exeext+".manifest", bindir, :mode => 0644
  end
  if rubyw_install_name and !rubyw_install_name.empty?
    install rubyw_install_name+exeext, bindir, :mode => 0755
    if File.exist?(rubyw_install_name+exeext+".manifest")
      install rubyw_install_name+exeext+".manifest", bindir, :mode => 0644
    end
  end
  if enable_shared and dll != lib
    install dll, bindir, :mode => 0755
    if File.exist?(dll+".manifest")
      install dll+".manifest", bindir, :mode => 0644
    end
  end
  install lib, libdir, :mode => 0755 unless lib == arc
  install arc, libdir, :mode => 0644
  install "config.h", archlibdir, :mode => 0644
  install "rbconfig.rb", archlibdir, :mode => 0644
  if CONFIG["ARCHFILE"]
    for file in CONFIG["ARCHFILE"].split
      install file, archlibdir, :mode => 0644
    end
  end

  if dll == lib and dll != arc
    for link in CONFIG["LIBRUBY_ALIASES"].split
      ln_sf(dll, File.join(libdir, link))
    end
  end
end

if $extout
  RbConfig.expand(extout = "#$extout")
  if noinst = CONFIG["no_install_files"] and noinst.empty?
    noinst = nil
  end
  dest = rubylibdir
  subpath = nil
  copy = proc do |s|
    d = dest + s[subpath]
    if File.directory?(s)
      makedirs(d)
    else
      install s, d
    end
  end
  install?(:ext, :arch, :'ext-arch') do
    subpath = extout.size..-1
    Dir.glob("#{extout}/#{CONFIG['arch']}/**/*", File::FNM_DOTMATCH) do |src|
      unless /\A\.{1,2}\z/ =~ (base = File.basename(src)) or
          (noinst and File.fnmatch?(noinst, File.basename(src)))
        copy[src]
      end
    end
  end
  install?(:ext, :comm, :'ext-comm') do
    src = "#{extout}/common"
    subpath = src.size..-1
    Dir.glob("#{src}/**/*", &copy)
  end
end

Dir.chdir srcdir

install?(:local, :arch, :lib) do
  ruby_shebang = File.join(CONFIG["bindir"], ruby_install_name)
  if File::ALT_SEPARATOR
    ruby_bin_dosish = ruby_shebang.tr(File::SEPARATOR, File::ALT_SEPARATOR)
  end
  for src in Dir["bin/*"]
    next unless File.file?(src)
    next if /\/[.#]|(\.(old|bak|orig|rej|diff|patch|core)|~|\/core)$/i =~ src

    name = ruby_install_name.sub(/ruby/, File.basename(src))
    dest = File.join(bindir, name)

    install src, dest, :mode => 0755

    next if $dryrun

    shebang = ''
    body = ''
    open(dest, "r+") { |f|
      shebang = f.gets
      body = f.read

      if shebang.sub!(/^\#!.*?ruby\b/) {"#!" + ruby_shebang}
        f.rewind
        f.print shebang, body
        f.truncate(f.pos)
      end
    }

    if ruby_bin_dosish
      batfile = File.join(CONFIG["bindir"], name + ".bat")
        open(with_destdir(batfile), "wb") { |b|
          b.print((<<EOH+shebang+body+<<EOF).gsub(/$/, "\r"))
@echo off
if not "%~d0" == "~d0" goto WinNT
#{ruby_bin_dosish} -x "#{batfile}" %1 %2 %3 %4 %5 %6 %7 %8 %9
goto endofruby
:WinNT
"%~dp0#{ruby_install_name}" -x "%~f0" %*
goto endofruby
EOH
__END__
:endofruby
EOF
      }
    end
  end

  for f in Dir["lib/**/*{.rb,help-message}"]
    dir = File.dirname(f).sub!(/\Alib/, rubylibdir) || rubylibdir
    makedirs dir
    install f, dir, :mode => 0644
  end
  end

  install?(:local, :arch, :bin) do
  for f in Dir["*.h"]
    install f, archlibdir, :mode => 0644
  end

  if RUBY_PLATFORM =~ /mswin32|mingw|bccwin32/
    makedirs File.join(archlibdir, "win32")
    install "win32/win32.h", File.join(archlibdir, "win32"), :mode => 0644
  end
end

install?(:local, :comm, :man) do
  for mdoc in Dir["*.[1-9]"]
    next unless File.file?(mdoc) and open(mdoc){|fh| fh.read(1) == '.'}

    section = mdoc[-1,1]

    destdir = mandir + section
    destfile = File.join(destdir, mdoc.sub(/ruby/, ruby_install_name))

    makedirs destdir

    if $mantype == "doc"
      install mdoc, destfile, :mode => 0644
    else
      require 'mdoc2man.rb'

      w = Tempfile.open(mdoc)

      open(mdoc) { |r|
        Mdoc2Man.mdoc2man(r, w)
      }

      w.close

      install w.path, destfile, :mode => 0644
    end
  end
end

# vi:set sw=2: