reap 5.10.10 → 6.0.0

data/lib/reap/taskutils.rb

@@ -0,0 +1,122 @@
+require 'fileutils'
+
+# Extensions to time to allow comparisons
+# with an early time class. This was borrowed from Rake.
+# --
+# TODO Ultimately this might be able to be replaced
+# by -Infinity (see Infinity class in development folder).
+#++
+
+class Time
+  require 'singleton'
+
+  # EarlyTime is a fake timestamp that occurs _before_
+  # any other time value.
+  class Earlier
+    include Comparable
+    include Singleton
+
+    def <=>(other)
+      -1
+    end
+
+    def to_s
+      "<EARLY TIME>"
+    end
+  end
+
+  EARLY = Earlier.instance
+
+  alias_method :rake_original_time_compare, :<=>
+
+  def <=>(other)
+    if Earlier === other
+      - other.<=>(self)
+    else
+      rake_original_time_compare(other)
+    end
+  end
+end
+
+# Reap module holds the TaskUtils.
+
+module Reap
+
+  # Support module for task development.
+
+  module TaskUtils
+
+    # Useful for populating a class.
+    # Maybe this should have a different name --perhaps
+    # just use Facets #set_with.
+
+    def initialize( data={} )
+      data.each do |k,v|
+        send( "#{k}=", v ) if respond_to?("#{k}=")
+      end
+    end
+
+    # OpenCascade interface to teh ProjectInfo file.
+
+    def master
+      @taskutils_master ||= ProjectInfo.instance.to_opencascade
+    end
+
+    # If +name+ is a hash this will split the name => preq parameter
+    # into [name, preq], otherwise it just return +name+.
+    # Teh hash is expected to have only one element.
+
+    def preq_from_name( name )
+      if Hash === name
+        #a = [name.keys, name.values].flatten
+        return *(name.to_a.flatten)
+      else
+        name
+      end
+    end
+
+    # Output and then shellout a command. Doesn't actually
+    # shellout if $PRETEND is set.
+
+    def sh( arg )
+      tell arg
+      system arg unless $PRETEND
+    end
+
+    # Convenience method for puts. Using this instead of
+    # puts may help beautify or redirect output in
+    # future versions.
+
+    def tell( statement )
+      puts statement
+    end
+
+    # Conveniene method to get simple console reply.
+
+    def ask( question, answers=nil )
+      print "#{question}"
+      print " [#{answers}] " if answers
+      until inp = $stdin.gets[0,1] ; sleep 1 ; end ; puts
+      inp
+    end
+
+    # Makes sure there is a setup.rb file in the
+    # project directory.
+
+    def provide_setup_rb( trunk='.' )
+      setup_rb_file = File.join( trunk, 'setup.rb' )
+      return true if File.exists?( setup_rb_file )
+      if dir = Gem.gempath('reap')
+        src = File.join( dir, 'data', 'reap', 'setup.rb' )
+      else
+        src = File.join( Config::CONFIG['datadir'], 'reap', 'setup.rb' )
+      end
+      if File.exists?( src )
+        FileUtils.cp( src, trunk )
+        true
+      end
+    end
+
+  end
+
+end

data/sample/ProjectInfo

@@ -0,0 +1,96 @@
+--- %YAML:1.0
+
+version  : 1.0.0
+status   : 'beta'
+
+title    : Reap-Sample
+name     : reap
+author   : Thomas Sawyer
+created  : '2006-06-01'
+email    : &email transfire@gmail.com
+homepage : "http://reap.rubyforge.org"
+
+summary  : The Flexible Ruby Project Management Assistant
+
+description: >
+  Reap comprises a set of tasks commonly needed by Ruby package
+  developers/deployers, such as testing, packaging, releasing, etc.
+  You can also use Reap to create your own custom tasks.
+  Reap utilizes a YAML configuration file to harvest common project
+  information, significantly simplifying these chores.
+
+rubyforge:
+  project  : reap
+  username : transami
+
+#install: !!installer
+#  template: |
+#    bin  bin       *     .
+#    lib  lib/reap  **/*  $name/$version
+
+#package: !!package
+#  distribute   : [ tar.bz2, gem ]
+#  dependencies : [ facets ]
+#  executables  : [ reap, rubytest ]
+#  dir: release
+#  exclude:
+#    - dist
+#    - web
+#    - doc/dev
+#    - doc/scrap
+
+#release: !!release
+#  host       : rubyforge.org
+#  username   : transami
+#  project    : reap
+#  groupid    : 811
+#  package    : Reap
+#  dir        : release
+
+#publish: !!publish
+#  target   : rubyforge
+#  type     : web
+#  host     : rubyforge.org
+#  username : transami
+#  dir      : web
+
+#rdoc: !!rdoc
+#  dir: 'web/doc/api'
+#  main: README
+
+ann: !!announce
+  to       : transfire@gmail.com  # ruby-talk@ruby-lang.org
+  from     : *email
+  domain   : unit.rubyforge.org
+  server   : smtp.gmail.com
+  port     : 587
+  account  : *email # transfire@gmail.com
+  type     : login  # cram_md5, plain
+  security : tls    # ~, tls, ssl (not working yet)
+  #file     : notes/LATEST    # which file contains announcement
+  memo     :
+    Congragulations! You've given Reap a try! Go ahead and
+    announce it the world!
+  slogan   : REAP THE REWARDS!
+  links    : []
+
+doap: !!doap
+
+loc: !!linecount
+  include: '*'
+
+# perm: !!perm
+#   filemod: 644
+#   dirmod: 755
+#   user: trans
+#   group: users
+
+demo: !!demo
+  desc: Give a task an alternate description.
+  message: Hello Baby!
+
+# mytask: !!custom
+#   desc: This is a test of a cutom task.
+#   task:
+#     puts "Hello Moto!"
+

data/sample/Rakefile

@@ -0,0 +1,9 @@
+require 'reap/rake'
+
+desc "I call it what I will"
+
+info :info
+
+demo( :d2 ) do |t|
+  t.message = "Hey There!"
+end

data/sample/Reapfile

@@ -0,0 +1,11 @@
+
+desc "I call it what I will"
+
+demo :d2 do |t|
+  t.message = "Hey There!"
+end
+
+file 'notes/doap.xml' => 'ProjectInfo' do
+  puts "not a thing"
+end
+

data/sample/task/demo.rb

@@ -0,0 +1,15 @@
+
+module Tasks
+
+  def demo( name, &data )
+
+    desc "Demonstrate a custom task" unless desc
+
+    task name do
+      data = data.to_openobject
+      puts data.message
+    end
+
+  end
+
+end

data/setup.rb

@@ -1,5 +1,3 @@
-#!/usr/bin/env ruby
-
 #
 # setup.rb
 #
@@ -10,21 +8,50 @@
 # the GNU LGPL, Lesser General Public License version 2.1.
 #
 
-unless Enumerable.method_defined?(:map)   # Ruby 1.4.6
-  module Enumerable
-    alias map collect
-  end
+#############################
+# Forked from version 3.2.1 #
+#                           #
+#                    -trans #
+#############################
+
+# CHANGE No longer need to support 1.4.6 or 1.6 versions of Ruby.
+
+# unless Enumerable.method_defined?(:map)   # Ruby 1.4.6
+#   module Enumerable
+#     alias map collect
+#   end
+# end
+
+# unless File.respond_to?(:read)   # Ruby 1.6
+#   def File.read(fname)
+#     open(fname) {|f|
+#       return f.read
+#     }
+#   end
+# end
+
+# This is hack!
+# This is needed to install within an abitrary root dir.
+# B/c setup.rb has become spegetti code, I was forced to do this hack.
+# Setup.rb shuld be re-writ. I would use package.rb instead but
+# it lacks hooks and extension compilation. But we'll keep
+# an eye on that one for the future.  -trans.
+
+$setup_install_root = nil
+ARGV.each{ |a|
+  if md = /--root=(.*)/.match( a )
+    $setup_install_root = md[1]
+  end
+}
+if $setup_install_root
+  ARGV.delete("--root=#{$setup_install_root}")
+  $setup_install_root = File.expand_path($setup_install_root)
+  puts "(root=#{$setup_install_root})"
 end
 
-unless File.respond_to?(:read)   # Ruby 1.6
-  def File.read(fname)
-    open(fname) {|f|
-      return f.read
-    }
-  end
-end
+# Windows?
 
-unless Errno.const_defined?(:ENOTEMPTY)   # Windows?
+unless Errno.const_defined?(:ENOTEMPTY)
   module Errno
     class ENOTEMPTY
       # We do not raise this exception, implementation is not needed.
@@ -57,25 +84,16 @@ class ConfigTable
     @config_opt = nil
     @verbose = true
     @no_harm = false
-    @libsrc_pattern = '*.rb'
   end
 
   attr_accessor :install_prefix
   attr_accessor :config_opt
 
-  attr_writer :verbose
-
-  def verbose?
-    @verbose
-  end
-
-  attr_writer :no_harm
-
-  def no_harm?
-    @no_harm
-  end
+  def verbose=(x) @verbose = x end
+  def verbose?()  @verbose     end
 
-  attr_accessor :libsrc_pattern
+  def no_harm=(x) @no_harm = x end
+  def no_harm?()  @no_harm     end
 
   def [](key)
     lookup(key).resolve(self)
@@ -119,9 +137,7 @@ class ConfigTable
     end
   end
 
-  def savefile
-    '.config'
-  end
+  def savefile() '.config' end
 
   def load_savefile
     begin
@@ -144,124 +160,126 @@ class ConfigTable
   end
 
   def load_standard_entries
-    standard_entries(@rbconfig).each do |ent|
+    #standard_entries(@rbconfig).each do |ent|
+    standard_entries.each do |ent|
       add ent
     end
   end
 
-  def standard_entries(rbconfig)
-    c = rbconfig
+  def standard_entries #(rbconfig)
+    rbconfig = @rbconfig
 
-    rubypath = c['bindir'] + '/' + c['ruby_install_name']
+    rubypath = File.join(rbconfig['bindir'], rbconfig['ruby_install_name'] + rbconfig['EXEEXT'])
 
-    major = c['MAJOR'].to_i
-    minor = c['MINOR'].to_i
-    teeny = c['TEENY'].to_i
+    major = rbconfig['MAJOR'].to_i
+    minor = rbconfig['MINOR'].to_i
+    teeny = rbconfig['TEENY'].to_i
     version = "#{major}.#{minor}"
 
-    # ruby ver. >= 1.4.4?
-    newpath_p = ((major >= 2) or
-                 ((major == 1) and
-                  ((minor >= 5) or
-                   ((minor == 4) and (teeny >= 4)))))
+# CHANGE Do not need to support these old versions any more.
+
+#     # ruby ver. >= 1.4.4?
+#     newpath_p = ((major >= 2) or
+#                  ((major == 1) and
+#                   ((minor >= 5) or
+#                    ((minor == 4) and (teeny >= 4)))))
 
-    if c['rubylibdir']
+    #if c['rubylibdir']
       # V > 1.6.3
-      libruby         = "#{c['prefix']}/lib/ruby"
-      librubyver      = c['rubylibdir']
-      librubyverarch  = c['archdir']
-      siteruby        = c['sitedir']
-      siterubyver     = c['sitelibdir']
-      siterubyverarch = c['sitearchdir']
-    elsif newpath_p
-      # 1.4.4 <= V <= 1.6.3
-      libruby         = "#{c['prefix']}/lib/ruby"
-      librubyver      = "#{c['prefix']}/lib/ruby/#{version}"
-      librubyverarch  = "#{c['prefix']}/lib/ruby/#{version}/#{c['arch']}"
-      siteruby        = c['sitedir']
-      siterubyver     = "$siteruby/#{version}"
-      siterubyverarch = "$siterubyver/#{c['arch']}"
-    else
-      # V < 1.4.4
-      libruby         = "#{c['prefix']}/lib/ruby"
-      librubyver      = "#{c['prefix']}/lib/ruby/#{version}"
-      librubyverarch  = "#{c['prefix']}/lib/ruby/#{version}/#{c['arch']}"
-      siteruby        = "#{c['prefix']}/lib/ruby/#{version}/site_ruby"
-      siterubyver     = siteruby
-      siterubyverarch = "$siterubyver/#{c['arch']}"
-    end
+
+      root            = '/'
+      prefix          = rbconfig['prefix']
+
+      libruby         = "#{prefix}/lib/ruby"
+      librubyver      = rbconfig['rubylibdir']
+      librubyverarch  = rbconfig['archdir']
+      siteruby        = rbconfig['sitedir']
+      siterubyver     = rbconfig['sitelibdir']
+      siterubyverarch = rbconfig['sitearchdir']
+
+      bindir          = paramize(rbconfig['bindir'])
+      libdir          = paramize(rbconfig['libdir'])
+      datadir         = paramize(rbconfig['datadir'])
+      mandir          = paramize(rbconfig['mandir'])
+      sysconfdir      = paramize(rbconfig['sysconfdir'])
+      localstatedir   = paramize(rbconfig['localstatedir'])
+
+#     elsif newpath_p
+#       # 1.4.4 <= V <= 1.6.3
+#       libruby         = "#{c['prefix']}/lib/ruby"
+#       librubyver      = "#{c['prefix']}/lib/ruby/#{version}"
+#       librubyverarch  = "#{c['prefix']}/lib/ruby/#{version}/#{c['arch']}"
+#       siteruby        = c['sitedir']
+#       siterubyver     = "$siteruby/#{version}"
+#       siterubyverarch = "$siterubyver/#{c['arch']}"
+#     else
+#       # V < 1.4.4
+#       libruby         = "#{c['prefix']}/lib/ruby"
+#       librubyver      = "#{c['prefix']}/lib/ruby/#{version}"
+#       librubyverarch  = "#{c['prefix']}/lib/ruby/#{version}/#{c['arch']}"
+#       siteruby        = "#{c['prefix']}/lib/ruby/#{version}/site_ruby"
+#       siterubyver     = siteruby
+#       siterubyverarch = "$siterubyver/#{c['arch']}"
+#     end
+
     parameterize = lambda {|path|
-      path.sub(/\A#{Regexp.quote(c['prefix'])}/, '$prefix')
+      path.sub(/\A#{Regexp.quote(rbconfig['prefix'])}/, '$prefix')
     }
 
-    if arg = c['configure_args'].split.detect {|arg| /--with-make-prog=/ =~ arg }
+    if arg = rbconfig['configure_args'].split.detect {|arg| /--with-make-prog=/ =~ arg }
       makeprog = arg.sub(/'/, '').split(/=/, 2)[1]
     else
       makeprog = 'make'
     end
 
+    installdir_lambda = lambda {|val, table|
+      case val
+      when 'std'
+        table['rbdir'] = '$librubyver'
+        table['sodir'] = '$librubyverarch'
+      when 'site'
+        table['rbdir'] = '$siterubyver'
+        table['sodir'] = '$siterubyverarch'
+      when 'home'
+        setup_rb_error '$HOME was not set' unless ENV['HOME']
+        table['prefix'] = ENV['HOME']
+        table['rbdir'] = '$libdir/ruby'
+        table['sodir'] = '$libdir/ruby'
+      end
+    }
+
     [
-      ExecItem.new('installdirs', 'std/site/home',
-                   'std: install under libruby; site: install under site_ruby; home: install under $HOME')\
-          {|val, table|
-            case val
-            when 'std'
-              table['rbdir'] = '$librubyver'
-              table['sodir'] = '$librubyverarch'
-            when 'site'
-              table['rbdir'] = '$siterubyver'
-              table['sodir'] = '$siterubyverarch'
-            when 'home'
-              setup_rb_error '$HOME was not set' unless ENV['HOME']
-              table['prefix'] = ENV['HOME']
-              table['rbdir'] = '$libdir/ruby'
-              table['sodir'] = '$libdir/ruby'
-            end
-          },
-      PathItem.new('prefix', 'path', c['prefix'],
-                   'path prefix of target environment'),
-      PathItem.new('bindir', 'path', parameterize.call(c['bindir']),
-                   'the directory for commands'),
-      PathItem.new('libdir', 'path', parameterize.call(c['libdir']),
-                   'the directory for libraries'),
-      PathItem.new('datadir', 'path', parameterize.call(c['datadir']),
-                   'the directory for shared data'),
-      PathItem.new('mandir', 'path', parameterize.call(c['mandir']),
-                   'the directory for man pages'),
-      PathItem.new('sysconfdir', 'path', parameterize.call(c['sysconfdir']),
-                   'the directory for system configuration files'),
-      PathItem.new('localstatedir', 'path', parameterize.call(c['localstatedir']),
-                   'the directory for local state data'),
-      PathItem.new('libruby', 'path', libruby,
-                   'the directory for ruby libraries'),
-      PathItem.new('librubyver', 'path', librubyver,
-                   'the directory for standard ruby libraries'),
-      PathItem.new('librubyverarch', 'path', librubyverarch,
-                   'the directory for standard ruby extensions'),
-      PathItem.new('siteruby', 'path', siteruby,
-          'the directory for version-independent aux ruby libraries'),
-      PathItem.new('siterubyver', 'path', siterubyver,
-                   'the directory for aux ruby libraries'),
-      PathItem.new('siterubyverarch', 'path', siterubyverarch,
-                   'the directory for aux ruby binaries'),
-      PathItem.new('rbdir', 'path', '$siterubyver',
-                   'the directory for ruby scripts'),
-      PathItem.new('sodir', 'path', '$siterubyverarch',
-                   'the directory for ruby extentions'),
-      PathItem.new('rubypath', 'path', rubypath,
-                   'the path to set to #! line'),
-      ProgramItem.new('rubyprog', 'name', rubypath,
-                      'the ruby program using for installation'),
-      ProgramItem.new('makeprog', 'name', makeprog,
-                      'the make program to compile ruby extentions'),
-      SelectItem.new('shebang', 'all/ruby/never', 'ruby',
-                     'shebang line (#!) editing mode'),
-      BoolItem.new('without-ext', 'yes/no', 'no',
-                   'does not compile/install ruby extentions')
+      ExecItem.new('installdirs', 'std/site/home', 'install under libruby, site_ruby or $HOME respectively', &installdir_lambda),
+      PathItem.new('root',            'path', root,               'root destination directory'),
+      PathItem.new('prefix',          'path', prefix,             'path prefix of target environment'),
+      PathItem.new('bindir',          'path', bindir,             'the directory for commands'),
+      PathItem.new('libdir',          'path', libdir,             'the directory for libraries'),
+      PathItem.new('datadir',         'path', datadir,            'the directory for shared data'),
+      PathItem.new('mandir',          'path', mandir,             'the directory for man pages'),
+      PathItem.new('sysconfdir',      'path', sysconfdir,         'the directory for system configuration files'),
+      PathItem.new('localstatedir',   'path', localstatedir,      'the directory for local state data'),
+      PathItem.new('libruby',         'path', libruby,            'the directory for ruby libraries'),
+      PathItem.new('librubyver',      'path', librubyver,         'the directory for standard ruby libraries'),
+      PathItem.new('librubyverarch',  'path', librubyverarch,     'the directory for standard ruby extensions'),
+      PathItem.new('siteruby',        'path', siteruby,           'the directory for version-independent aux ruby libraries'),
+      PathItem.new('siterubyver',     'path', siterubyver,        'the directory for aux ruby libraries'),
+      PathItem.new('siterubyverarch', 'path', siterubyverarch,    'the directory for aux ruby binaries'),
+      PathItem.new('rbdir',           'path', '$siterubyver',     'the directory for ruby scripts'),
+      PathItem.new('sodir',           'path', '$siterubyverarch', 'the directory for ruby extentions'),
+      PathItem.new('rubypath',        'path', rubypath,           'the path to set to #! line'),
+      ProgramItem.new('rubyprog',     'name', rubypath,           'the ruby program using for installation'),
+      ProgramItem.new('makeprog',     'name', makeprog,           'the make program to compile ruby extentions'),
+      SelectItem.new('shebang',       'all/ruby/never', 'ruby',   'shebang line (#!) editing mode'),
+      BoolItem.new('without-ext',     'yes/no',         'no',     'does not compile/install ruby extentions')
     ]
   end
   private :standard_entries
 
+  def paramize( path )
+    path.sub(/\A#{Regexp.quote(@rbconfig['prefix'])}/, '$prefix')
+  end
+  private :paramize
+
   def load_multipackage_entries
     multipackage_entries().each do |ent|
       add ent
@@ -270,10 +288,8 @@ class ConfigTable
 
   def multipackage_entries
     [
-      PackageSelectionItem.new('with', 'name,name...', '', 'ALL',
-                               'package names that you want to install'),
-      PackageSelectionItem.new('without', 'name,name...', '', 'NONE',
-                               'package names that you do not want to install')
+      PackageSelectionItem.new('with',    'name,name...', '', 'ALL',  'package names that you want to install'),
+      PackageSelectionItem.new('without', 'name,name...', '', 'NONE', 'package names that you do not want to install')
     ]
   end
   private :multipackage_entries
@@ -338,13 +354,8 @@ class ConfigTable
       "--#{@name}=#{@template}"
     end
 
-    def value?
-      true
-    end
-
-    def value
-      @value
-    end
+    def value? ; true   ; end
+    def value  ; @value ; end
 
     def resolve(table)
       @value.gsub(%r<\$([^/]+)>) { table[$1] }
@@ -363,9 +374,7 @@ class ConfigTable
   end
 
   class BoolItem < Item
-    def config_type
-      'bool'
-    end
+    def config_type() 'bool' end
 
     def help_opt
       "--#{@name}"
@@ -375,20 +384,19 @@ class ConfigTable
 
     def check(val)
       return 'yes' unless val
-      unless /\A(y(es)?|n(o)?|t(rue)?|f(alse))\z/i =~ val
+      case val
+      when /\Ay(es)?\z/i, /\At(rue)?\z/i then 'yes'
+      when /\An(o)?\z/i, /\Af(alse)\z/i  then 'no'
+      else
         setup_rb_error "config: --#{@name} accepts only yes/no for argument"
       end
-      (/\Ay(es)?|\At(rue)/i =~ value) ? 'yes' : 'no'
     end
   end
 
   class PathItem < Item
-    def config_type
-      'path'
-    end
+    def config_type()  'path'  end
 
     private
-
     def check(path)
       setup_rb_error "config: --#{@name} requires argument"  unless path
       path[0,1] == '$' ? path : File.expand_path(path)
@@ -396,9 +404,7 @@ class ConfigTable
   end
 
   class ProgramItem < Item
-    def config_type
-      'program'
-    end
+    def config_type()  'program'  end
   end
 
   class SelectItem < Item
@@ -407,12 +413,9 @@ class ConfigTable
       @ok = selection.split('/')
     end
 
-    def config_type
-      'select'
-    end
+    def config_type()  'select'  end
 
     private
-
     def check(val)
       unless @ok.include?(val.strip)
         setup_rb_error "config: use --#{@name}=#{@template} (#{val})"
@@ -474,7 +477,7 @@ class ConfigTable
   end
 
   class MetaConfigEnvironment
-    def intiailize(config, installer)
+    def initialize(config, installer)
       @config = config
       @installer = installer
     end
@@ -539,7 +542,9 @@ end   # class ConfigTable
 module FileOperations
 
   def mkdir_p(dirname, prefix = nil)
-    dirname = prefix + File.expand_path(dirname) if prefix
+    dirname = File.join(prefix, File.expand_path(dirname)) if prefix
+    dirname = File.join( $setup_install_root, dirname ) if $setup_install_root
+
     $stderr.puts "mkdir -p #{dirname}" if verbose?
     return if no_harm?
 
@@ -623,11 +628,15 @@ module FileOperations
   end
 
   def install(from, dest, mode, prefix = nil)
+
+    realdest = prefix ? File.join(prefix, File.expand_path(dest)) : dest
+    realdest = File.join($setup_install_root, File.expand_path(realdest)) if $setup_install_root
+
     $stderr.puts "install #{from} #{dest}" if verbose?
     return if no_harm?
 
-    realdest = prefix ? prefix + File.expand_path(dest) : dest
     realdest = File.join(realdest, File.basename(from)) if File.dir?(realdest)
+
     str = File.binread(from)
     if diff?(str, realdest)
       verbose_off {
@@ -638,6 +647,10 @@ module FileOperations
       }
       File.chmod mode, realdest
 
+      # Do not make InstalledFiles entry if to alternate root.
+      # This prevents problem with root permissions on this file.
+      return true unless $setup_install_root
+
       File.open("#{objdir_root()}/InstalledFiles", 'a') {|f|
         if prefix
           f.puts realdest.sub(prefix, '')
@@ -662,7 +675,7 @@ module FileOperations
   def ruby(*args)
     command config('rubyprog'), *args
   end
-  
+
   def make(task = nil)
     command(*[config('makeprog'), task].compact)
   end
@@ -702,33 +715,14 @@ module HookScriptAPI
     @config[key] = val
   end
 
-  #
   # srcdir/objdir (works only in the package directory)
-  #
 
-  def curr_srcdir
-    "#{srcdir_root()}/#{relpath()}"
-  end
-
-  def curr_objdir
-    "#{objdir_root()}/#{relpath()}"
-  end
-
-  def srcfile(path)
-    "#{curr_srcdir()}/#{path}"
-  end
-
-  def srcexist?(path)
-    File.exist?(srcfile(path))
-  end
-
-  def srcdirectory?(path)
-    File.dir?(srcfile(path))
-  end
-  
-  def srcfile?(path)
-    File.file?(srcfile(path))
-  end
+  def curr_srcdir()        "#{srcdir_root()}/#{relpath()}"  end
+  def curr_objdir()        "#{objdir_root()}/#{relpath()}"  end
+  def srcfile(path)        "#{curr_srcdir()}/#{path}"       end
+  def srcexist?(path)      File.exist?(srcfile(path))       end
+  def srcdirectory?(path)  File.dir?(srcfile(path))         end
+  def srcfile?(path)       File.file?(srcfile(path))        end
 
   def srcentries(path = '.')
     Dir.open("#{curr_srcdir()}/#{path}") {|d|
@@ -753,7 +747,7 @@ end
 
 class ToplevelInstaller
 
-  Version   = '3.4.0'
+  Version   = '3.4.1'
   Copyright = 'Copyright (c) 2000-2005 Minero Aoki'
 
   TASKS = [
@@ -767,8 +761,8 @@ class ToplevelInstaller
     [ 'distclean',"does `make distclean' for each extention" ]
   ]
 
-  def ToplevelInstaller.invoke
-    config = ConfigTable.new(load_rbconfig())
+  def self.invoke
+    config = ConfigTable.new(load_rbconfig)
     config.load_standard_entries
     config.load_multipackage_entries if multipackage?
     config.fixup
@@ -776,11 +770,11 @@ class ToplevelInstaller
     klass.new(File.dirname($0), config).invoke
   end
 
-  def ToplevelInstaller.multipackage?
+  def self.multipackage?
     File.dir?(File.dirname($0) + '/packages')
   end
 
-  def ToplevelInstaller.load_rbconfig
+  def self.load_rbconfig
     if arg = ARGV.detect {|arg| /\A--rbconfig=/ =~ arg }
       ARGV.delete(arg)
       load File.expand_path(arg.split(/=/, 2)[1])
@@ -791,6 +785,7 @@ class ToplevelInstaller
     ::Config::CONFIG
   end
 
+
   def initialize(ardir_root, config)
     @ardir = File.expand_path(ardir_root)
     @config = config
@@ -829,7 +824,7 @@ class ToplevelInstaller
       __send__ "exec_#{task}"
     end
   end
-  
+
   def run_metaconfigs
     @config.load_script "#{@ardir}/metaconfig"
   end
@@ -842,17 +837,9 @@ class ToplevelInstaller
   # Hook Script API bases
   #
 
-  def srcdir_root
-    @ardir
-  end
-
-  def objdir_root
-    '.'
-  end
-
-  def relpath
-    '.'
-  end
+  def srcdir_root()  @ardir  end
+  def objdir_root()  '.'     end
+  def relpath()      '.'     end
 
   #
   # Option Parsing
@@ -894,6 +881,7 @@ class ToplevelInstaller
 
   def parsearg_no_options
     unless ARGV.empty?
+      task = caller(0).first.slice(%r<`parsearg_(\w+)'>, 1)
       setup_rb_error "#{task}: unknown options: #{ARGV.join(' ')}"
     end
   end
@@ -981,6 +969,7 @@ class ToplevelInstaller
     out.puts
     out.puts 'Options for INSTALL:'
     out.printf fmt, '--no-harm', 'only display what to do if given', 'off'
+    out.printf fmt, '--root=path',  'install root directory (effects all paths)', '/'
     out.printf fmt, '--prefix=path',  'install path prefix', ''
     out.puts
   end
@@ -1175,21 +1164,15 @@ class Installer
     "#<#{self.class} #{File.basename(@srcdir)}>"
   end
 
+  def noop(rel) ; end
+
   #
   # Hook Script API base methods
   #
 
-  def srcdir_root
-    @srcdir
-  end
-
-  def objdir_root
-    @objdir
-  end
-
-  def relpath
-    @currdir
-  end
+  def srcdir_root()  @srcdir  end
+  def objdir_root()  @objdir  end
+  def relpath()      @currdir end
 
   #
   # Config Access
@@ -1222,29 +1205,21 @@ class Installer
     exec_task_traverse 'config'
   end
 
-  def config_dir_bin(rel)
-  end
-
-  def config_dir_lib(rel)
-  end
-
-  def config_dir_man(rel)
-  end
+  alias config_dir_bin noop
+  alias config_dir_lib noop
 
   def config_dir_ext(rel)
     extconf if extdir?(curr_srcdir())
   end
 
+  alias config_dir_data noop
+  alias config_dir_conf noop
+  alias config_dir_man noop
+
   def extconf
     ruby "#{curr_srcdir()}/extconf.rb", *@config.config_opt
   end
 
-  def config_dir_data(rel)
-  end
-
-  def config_dir_conf(rel)
-  end
-
   #
   # TASK setup
   #
@@ -1255,43 +1230,89 @@ class Installer
 
   def setup_dir_bin(rel)
     files_of(curr_srcdir()).each do |fname|
-      adjust_shebang "#{curr_srcdir()}/#{fname}"
+      update_shebang_line "#{curr_srcdir()}/#{fname}"
     end
   end
 
-  def adjust_shebang(path)
+  alias setup_dir_lib noop
+
+  def setup_dir_ext(rel)
+    make if extdir?(curr_srcdir())
+  end
+
+  alias setup_dir_data noop
+  alias setup_dir_conf noop
+  alias setup_dir_man noop
+
+  def update_shebang_line(path)
     return if no_harm?
+    return if config('shebang') == 'never'
+    old = Shebang.load(path)
+    if old
+      $stderr.puts "warning: #{path}: Shebang line includes too many args.  It is not portable and your program may not work." if old.args.size > 1
+      new = new_shebang(old)
+      return if new.to_s == old.to_s
+    else
+      return unless config('shebang') == 'all'
+      new = Shebang.new(config('rubypath'))
+    end
+    $stderr.puts "updating shebang: #{File.basename(path)}" if verbose?
+    open_atomic_writer(path) {|output|
+      File.open(path, 'rb') {|f|
+        f.gets if old   # discard
+        output.puts new.to_s
+        output.print f.read
+      }
+    }
+  end
+
+  def new_shebang(old)
+    if /\Aruby/ =~ File.basename(old.cmd)
+      Shebang.new(config('rubypath'), old.args)
+    elsif File.basename(old.cmd) == 'env' and old.args.first == 'ruby'
+      Shebang.new(config('rubypath'), old.args[1..-1])
+    else
+      return old unless config('shebang') == 'all'
+      Shebang.new(config('rubypath'))
+    end
+  end
+
+  def open_atomic_writer(path, &block)
     tmpfile = File.basename(path) + '.tmp'
     begin
-      File.open(path, 'rb') {|r|
-        first = r.gets
-        return unless File.basename(first.sub(/\A\#!/, '').split[0].to_s) == 'ruby'
-        $stderr.puts "adjusting shebang: #{File.basename(path)}" if verbose?
-        File.open(tmpfile, 'wb') {|w|
-          w.print first.sub(/\A\#!\s*\S+/, '#! ' + config('rubypath'))
-          w.write r.read
-        }
-      }
-      move_file tmpfile, File.basename(path)
+      File.open(tmpfile, 'wb', &block)
+      File.rename tmpfile, File.basename(path)
     ensure
       File.unlink tmpfile if File.exist?(tmpfile)
     end
   end
 
-  def setup_dir_lib(rel)
-  end
+  class Shebang
+    def Shebang.load(path)
+      line = nil
+      File.open(path) {|f|
+        line = f.gets
+      }
+      return nil unless /\A#!/ =~ line
+      parse(line)
+    end
 
-  def setup_dir_man(rel)
-  end
+    def Shebang.parse(line)
+      cmd, *args = *line.strip.sub(/\A\#!/, '').split(' ')
+      new(cmd, args)
+    end
 
-  def setup_dir_ext(rel)
-    make if extdir?(curr_srcdir())
-  end
+    def initialize(cmd, args = [])
+      @cmd = cmd
+      @args = args
+    end
 
-  def setup_dir_data(rel)
-  end
+    attr_reader :cmd
+    attr_reader :args
 
-  def setup_dir_conf(rel)
+    def to_s
+      "#! #{@cmd}" + (@args.empty? ? '' : " #{@args.join(' ')}")
+    end
   end
 
   #
@@ -1308,7 +1329,7 @@ class Installer
   end
 
   def install_dir_lib(rel)
-    install_files rubyscripts(), "#{config('rbdir')}/#{rel}", 0644
+    install_files libfiles(), "#{config('rbdir')}/#{rel}", 0644
   end
 
   def install_dir_ext(rel)
@@ -1334,13 +1355,14 @@ class Installer
 
   def install_files(list, dest, mode)
     mkdir_p dest, @config.install_prefix
+    #mkdir_p dest, offset_dir
     list.each do |fname|
       install fname, dest, mode, @config.install_prefix
     end
   end
 
-  def rubyscripts
-    glob_select(@config.libsrc_pattern, targetfiles())
+  def libfiles
+    glob_reject(%w(*.y *.output), targetfiles())
   end
 
   def rubyextentions(dir)
@@ -1418,7 +1440,11 @@ class Installer
       return
     end
     $stderr.puts 'Running tests...' if verbose?
-    require 'test/unit'
+    begin
+      require 'test/unit'
+    rescue LoadError
+      setup_rb_error 'test/unit cannot loaded.  You need Ruby 1.8 or later to invoke this task.'
+    end
     runner = Test::Unit::AutoRunner.new(true)
     runner.to_run << TESTDIR
     runner.run
@@ -1434,23 +1460,17 @@ class Installer
     rm_f 'InstalledFiles'
   end
 
-  def clean_dir_bin(rel)
-  end
-
-  def clean_dir_lib(rel)
-  end
+  alias clean_dir_bin noop
+  alias clean_dir_lib noop
+  alias clean_dir_data noop
+  alias clean_dir_conf noop
+  alias clean_dir_man noop
 
   def clean_dir_ext(rel)
     return unless extdir?(curr_srcdir())
     make 'clean' if File.file?('Makefile')
   end
 
-  def clean_dir_data(rel)
-  end
-
-  def clean_dir_conf(rel)
-  end
-
   #
   # TASK distclean
   #
@@ -1461,31 +1481,26 @@ class Installer
     rm_f 'InstalledFiles'
   end
 
-  def distclean_dir_bin(rel)
-  end
-
-  def distclean_dir_lib(rel)
-  end
+  alias distclean_dir_bin noop
+  alias distclean_dir_lib noop
 
   def distclean_dir_ext(rel)
     return unless extdir?(curr_srcdir())
     make 'distclean' if File.file?('Makefile')
   end
 
-  def distclean_dir_data(rel)
-  end
-
-  def distclean_dir_conf(rel)
-  end
+  alias distclean_dir_data noop
+  alias distclean_dir_conf noop
+  alias distclean_dir_man noop
 
   #
-  # lib
+  # Traversing
   #
 
   def exec_task_traverse(task)
     run_hook "pre-#{task}"
     FILETYPES.each do |type|
-      if config('without-ext') == 'yes' and type == 'ext'
+      if type == 'ext' and config('without-ext') == 'yes'
         $stderr.puts 'skipping ext/* by user option' if verbose?
         next
       end