cgialt 0.0.2 → 1.0.0

data/lib/cgialt/fcgi.rb

@@ -1,7 +1,7 @@
 ##
-## $Rev: 33 $
-## $Release: 0.0.2 $
-## copyright(c) 2007 kuwata-lab.com all rights reserved.
+## $Rev$
+## $Release: 1.0.0 $
+## copyright(c) 2007-2008 kuwata-lab.com all rights reserved.
 ##
 
 =begin

data/lib/cgialt/fcgi/cgi_helper.rb

@@ -1,7 +1,7 @@
 ##
-## $Rev: 33 $
-## $Release: 0.0.2 $
-## copyright(c) 2007 kuwata-lab.com all rights reserved.
+## $Rev$
+## $Release: 1.0.0 $
+## copyright(c) 2007-2008 kuwata-lab.com all rights reserved.
 ##
 
 =begin
@@ -33,7 +33,7 @@ class FCGI
         $stderr = request.err
         #ENV.clear
         #ENV.update(request.env)
-        $CGI_ENV = request.env
+        $CGI_ENV = request.env       # TODO: remove dependency on $CGI_ENV
         yield CGI.new(arg)
         request.finish
       end

data/lib/cgialt/fcgi/core.rb

@@ -1,7 +1,7 @@
 ##
-## $Rev: 33 $
-## $Release: 0.0.2 $
-## copyright(c) 2007 kuwata-lab.com all rights reserved.
+## $Rev$
+## $Release: 1.0.0 $
+## copyright(c) 2007-2008 kuwata-lab.com all rights reserved.
 ##
 
 =begin
@@ -109,7 +109,7 @@ fcgi.rb    Copyright (C) 2004 Minero Aoki
           exit 0 if graceful
         end
       end
-      
+
       def session
         sock, addr = *@server.accept
         return unless sock
@@ -126,17 +126,15 @@ fcgi.rb    Copyright (C) 2004 Minero Aoki
       def next_request(sock)
         while rec = sock.read_record
           if rec.management_record?
-            case rec.type
-            when FCGI_GET_VALUES
+            if rec.type == FCGI_GET_VALUES
               sock.send_record handle_GET_VALUES(rec)
             else
               sock.send_record UnknownTypeRecord.new(rec.request_id, rec.type)
             end
           else
-            case rec.type
-            when FCGI_BEGIN_REQUEST
+            if (rec_type = rec.type) == FCGI_BEGIN_REQUEST
               @buffers[rec.request_id] = RecordBuffer.new(rec)
-            when FCGI_ABORT_REQUEST
+            elsif rec_type == FCGI_ABORT_REQUEST
               raise "got ABORT_REQUEST"   # FIXME
             else
               buf = @buffers[rec.request_id]   or next # inactive request
@@ -196,12 +194,13 @@ fcgi.rb    Copyright (C) 2004 Minero Aoki
         Record.class_for(type).parse(reqid, read_record_body(clen, padlen))
       end
 
-      def read_record_body(clen, padlen)
-        buf = ''
-        while buf.length < clen
-          buf << @socket.read([1024, clen - buf.length].min)
-        end
-        @socket.read padlen if padlen
+      def read_record_body(content_len, padding_len)
+        #*buf = ''
+        #*while buf.length < content_len
+        #*  buf << @socket.read([1024, content_len - buf.length].min)
+        #*end
+        buf = @socket.read(content_len)
+        @socket.read padding_len if padding_len
         buf
       end
       private :read_record_body
@@ -324,8 +323,7 @@ fcgi.rb    Copyright (C) 2004 Minero Aoki
         ::FCGI::ProtocolVersion
       end
 
-      attr_reader :type
-      attr_reader :request_id
+      attr_reader :type, :request_id
 
       def management_record?
         @request_id == FCGI_NULL_REQUEST_ID
@@ -333,16 +331,21 @@ fcgi.rb    Copyright (C) 2004 Minero Aoki
 
       def serialize
         body = make_body()
-        padlen = body.length % 8
-        header = make_header(body.length, padlen)
-        header + body + "\000" * padlen
+        padding_length = body.length % 8
+        header = make_header(body.length, padding_length)
+        "#{header}#{body}#{'\000' * padding_length}"
       end
 
       private
 
-      def make_header(clen, padlen)
-        [version(), @type, @request_id, clen, padlen, 0].pack(HEADER_FORMAT)
+      def make_header(content_length, pading_length)
+        [::FCGI::ProtocolVersion, @type, @request_id, content_length, padding_length, 0].pack(HEADER_FORMAT)
+      end
+
+      def make_body
+        raise NotImplementedError.new("#{self.class.name}#make_body(): not implemented.")
       end
+
     end
 
     class BeginRequestRecord < Record
@@ -351,7 +354,7 @@ fcgi.rb    Copyright (C) 2004 Minero Aoki
       # uint8_t  reserved[5];
       BODY_FORMAT = 'nCC5'
 
-      def BeginRequestRecord.parse(id, body)
+      def self.parse(id, body)
         role, flags, *reserved = *body.unpack(BODY_FORMAT)
         new(id, role, flags)
       end
@@ -364,14 +367,14 @@ fcgi.rb    Copyright (C) 2004 Minero Aoki
 
       attr_reader :role
       attr_reader :flags
-      
+
       def make_body
         [@role, @flags, 0, 0, 0, 0, 0].pack(BODY_FORMAT)
       end
     end
 
     class AbortRequestRecord < Record
-      def AbortRequestRecord.parse(id, body)
+      def self.parse(id, body)
         new(id)
       end
 
@@ -386,7 +389,7 @@ fcgi.rb    Copyright (C) 2004 Minero Aoki
       # uint8_t  reserved[3];
       BODY_FORMAT = 'NCC3'
 
-      def self::parse(id, body)
+      def self.parse(id, body)
         appstatus, protostatus, *reserved = *body.unpack(BODY_FORMAT)
         new(id, appstatus, protostatus)
       end
@@ -412,14 +415,14 @@ fcgi.rb    Copyright (C) 2004 Minero Aoki
       # uint8_t reserved[7];
       BODY_FORMAT = 'CC7'
 
-      def self::parse(id, body)
+      def self.parse(id, body)
         type, *reserved = *body.unpack(BODY_FORMAT)
         new(id, type)
       end
 
-      def initialize(id, t)
+      def initialize(id, type)
         super FCGI_UNKNOWN_TYPE, id
-        @unknown_type = t
+        @unknown_type = type
       end
 
       attr_reader :unknown_type
@@ -439,28 +442,32 @@ fcgi.rb    Copyright (C) 2004 Minero Aoki
       def self::parse_values(buf)
         result = {}
         until buf.empty?
-          name, value = *read_pair(buf)
+          #*name, value = *read_pair(buf)
+          #*result[name] = value
+          name_len = read_length(buf)
+          value_len = read_length(buf)
+          name = buf.slice!(0, name_len)
+          value = buf.slice!(0, value_len)
           result[name] = value
         end
         result
       end
-      
+
       def self::read_pair(buf)
-        nlen = read_length(buf)
-        vlen = read_length(buf)
-        return buf.slice!(0, nlen), buf.slice!(0, vlen)
+        name_len = read_length(buf)
+        value_len = read_length(buf)
+        return buf.slice!(0, name_len), buf.slice!(0, value_len)
       end
-      
+
+      MASK = ((1<<31) - 1)
       def self::read_length(buf)
-        if buf[0] >> 7 == 0
-        then buf.slice!(0,1)[0]
-        else buf.slice!(0,4).unpack('N')[0] & ((1<<31) - 1)
-        end
+        buf[0] >> 7 == 0 ? buf.slice!(0,1)[0] \
+                         : buf.slice!(0,4).unpack('N')[0] & MASK
       end
 
       def initialize(type, id, values)
         super type, id
-        @values = values
+        @values = values   # Hash
       end
 
       attr_reader :values
@@ -470,19 +477,13 @@ fcgi.rb    Copyright (C) 2004 Minero Aoki
       def make_body
         buf = ''
         @values.each do |name, value|
-          buf << serialize_length(name.length)
-          buf << serialize_length(value.length)
-          buf << name
-          buf << value
+          buf << "#{serialize_length(name.length)}#{serialize_length(value.length)}#{name}#{value}"
         end
         buf
       end
 
       def serialize_length(len)
-        if len < 0x80
-        then len.chr
-        else [len | (1<<31)].pack('N')
-        end
+        len < 128 ? len.chr : [len | (1<<31)].pack('N')
       end
     end
 
@@ -507,7 +508,7 @@ fcgi.rb    Copyright (C) 2004 Minero Aoki
         new(id, body)
       end
 
-      def initialize(type, id, flagment)
+      def initialize(type, id, flagment)   # abstract
         super type, id
         @flagment = flagment
       end
@@ -558,4 +559,3 @@ fcgi.rb    Copyright (C) 2004 Minero Aoki
     end
 
   end # FCGI class
-

data/lib/cgialt/util.rb

@@ -1,3 +1,9 @@
+##
+## $Rev$
+## $Release: 1.0.0 $
+## copyright(c) 2007-2008 kuwata-lab.com all rights reserved.
+##
+
 ##
 ## Copyright (C) 2000  Network Applied Communication Laboratory, Inc.
 ##
@@ -41,39 +47,71 @@ class CGI
   # Unescape a string that has been HTML-escaped
   #   CGI::unescapeHTML("Usage: foo "bar" <baz>")
   #      # => "Usage: foo \"bar\" <baz>"
-  def CGI::unescapeHTML(string)
-    string.gsub(/&(amp|quot|gt|lt|\#[0-9]+|\#x[0-9A-Fa-f]+);/n) do
-      match = $1.dup
-      case match
-      when 'amp'                 then '&'
-      when 'quot'                then '"'
-      when 'gt'                  then '>'
-      when 'lt'                  then '<'
-      when /\A#0*(\d+)\z/n       then
-        if Integer($1) < 256
-          Integer($1).chr
-        else
-          if Integer($1) < 65536 and ($KCODE[0] == ?u or $KCODE[0] == ?U)
-            [Integer($1)].pack("U")
-          else
-            "&##{$1};"
-          end
+  def self.unescapeHTML(string)
+    table = UNESCAPE_ENTITIES
+    if "".respond_to?(:encoding)              # Ruby1.9
+      utf8_p = true       # really?
+    else
+      utf8_p = $KCODE[0] == ?u || $KCODE[0] == ?U
+    end
+    return string.gsub(/&#?[a-zA-F0-9]+;/n) do
+      match = $&
+      key = match[1..-2]
+      if (s = table[key])
+        s
+      elsif key =~ /\A#0*(\d+)\z/n
+        if   (v = Integer($1)) < 256 ;  v.chr
+        elsif v < 65536 && utf8_p    ;  [v].pack("U")
+        else                         ;  match
         end
-      when /\A#x([0-9a-f]+)\z/ni then
-        if $1.hex < 256
-          $1.hex.chr
-        else
-          if $1.hex < 65536 and ($KCODE[0] == ?u or $KCODE[0] == ?U)
-            [$1.hex].pack("U")
-          else
-            "&#x#{$1};"
-          end
+      elsif key =~ /\A#x([0-9a-f]+)\z/ni
+        if   (v = $1.hex) < 256      ;  v.chr
+        elsif v < 65536 && utf8_p    ;  [v].pack("U")
+        else                         ;  match
         end
       else
-        "&#{match};"
+        match
       end
     end
   end
+  UNESCAPE_ENTITIES = {
+    'amp'=>'&', 'lt'=>'<', 'gt'=>'>', 'quot'=>'"',
+  }
+  #*** original
+  #*def CGI::unescapeHTML(string)
+  #*  string.gsub(/&(amp|quot|gt|lt|\#[0-9]+|\#x[0-9A-Fa-f]+);/n) do
+  #*    match = $1.dup
+  #*    case match
+  #*    when 'amp'                 then '&'
+  #*    when 'quot'                then '"'
+  #*    when 'gt'                  then '>'
+  #*    when 'lt'                  then '<'
+  #*    when /\A#0*(\d+)\z/n       then
+  #*      if Integer($1) < 256
+  #*        Integer($1).chr
+  #*      else
+  #*        if Integer($1) < 65536 and ($KCODE[0] == ?u or $KCODE[0] == ?U)
+  #*          [Integer($1)].pack("U")
+  #*        else
+  #*          "&##{$1};"
+  #*        end
+  #*      end
+  #*    when /\A#x([0-9a-f]+)\z/ni then
+  #*      if $1.hex < 256
+  #*        $1.hex.chr
+  #*      else
+  #*        if $1.hex < 65536 and ($KCODE[0] == ?u or $KCODE[0] == ?U)
+  #*          [$1.hex].pack("U")
+  #*        else
+  #*          "&#x#{$1};"
+  #*        end
+  #*      end
+  #*    else
+  #*      "&#{match};"
+  #*    end
+  #*  end
+  #*end
+  #*** /original
 
 
   # Escape only the tags of certain HTML elements in +string+.
@@ -133,6 +171,12 @@ class CGI
                 t.hour, t.min, t.sec)
   end
 
+  # Abbreviated day-of-week names specified by RFC 822
+  RFC822_DAYS = %w[ Sun Mon Tue Wed Thu Fri Sat ]
+
+  # Abbreviated month names specified by RFC 822
+  RFC822_MONTHS = %w[ Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec ]
+
 
   # Prettify (indent) an HTML string.
   #

data/setup.rb

@@ -1,70 +1,20 @@
 #
 # setup.rb
 #
-# Copyright (c) 2000-2004 Minero Aoki
+# Copyright (c) 2000-2005 Minero Aoki
 #
 # This program is free software.
 # You can distribute/modify this program under the terms of
-# the GNU Lesser General Public License version 2.1.
+# the GNU LGPL, Lesser General Public License version 2.1.
 #
 
-#
-# For backward compatibility
-#
-
-unless Enumerable.method_defined?(:map)
+unless Enumerable.method_defined?(:map)   # Ruby 1.4.6
   module Enumerable
     alias map collect
   end
 end
 
-unless Enumerable.method_defined?(:detect)
-  module Enumerable
-    alias detect find
-  end
-end
-
-unless Enumerable.method_defined?(:select)
-  module Enumerable
-    alias select find_all
-  end
-end
-
-unless Enumerable.method_defined?(:reject)
-  module Enumerable
-    def reject
-      result = []
-      each do |i|
-        result.push i unless yield(i)
-      end
-      result
-    end
-  end
-end
-
-unless Enumerable.method_defined?(:inject)
-  module Enumerable
-    def inject(result)
-      each do |i|
-        result = yield(result, i)
-      end
-      result
-    end
-  end
-end
-
-unless Enumerable.method_defined?(:any?)
-  module Enumerable
-    def any?
-      each do |i|
-        return true if yield(i)
-      end
-      false
-    end
-  end
-end
-
-unless File.respond_to?(:read)
+unless File.respond_to?(:read)   # Ruby 1.6
   def File.read(fname)
     open(fname) {|f|
       return f.read
@@ -72,9 +22,13 @@ unless File.respond_to?(:read)
   end
 end
 
-#
-# Application independent utilities
-#
+unless Errno.const_defined?(:ENOTEMPTY)   # Windows?
+  module Errno
+    class ENOTEMPTY
+      # We do not raise this exception, implementation is not needed.
+    end
+  end
+end
 
 def File.binread(fname)
   open(fname, 'rb') {|f|
@@ -82,311 +36,512 @@ def File.binread(fname)
   }
 end
 
-# for corrupted windows stat(2)
+# for corrupted Windows' stat(2)
 def File.dir?(path)
   File.directory?((path[-1,1] == '/') ? path : path + '/')
 end
 
-#
-# Config
-#
-
-if arg = ARGV.detect{|arg| /\A--rbconfig=/ =~ arg }
-  ARGV.delete(arg)
-  require arg.split(/=/, 2)[1]
-  $".push 'rbconfig.rb'
-else
-  require 'rbconfig'
-end
-
-def multipackage_install?
-  FileTest.directory?(File.dirname($0) + '/packages')
-end
-
 
 class ConfigTable
 
-  c = ::Config::CONFIG
+  include Enumerable
 
-  rubypath = c['bindir'] + '/' + c['ruby_install_name']
+  def initialize(rbconfig)
+    @rbconfig = rbconfig
+    @items = []
+    @table = {}
+    # options
+    @install_prefix = nil
+    @config_opt = nil
+    @verbose = true
+    @no_harm = false
+  end
 
-  major = c['MAJOR'].to_i
-  minor = c['MINOR'].to_i
-  teeny = c['TEENY'].to_i
-  version = "#{major}.#{minor}"
+  attr_accessor :install_prefix
+  attr_accessor :config_opt
 
-  # ruby ver. >= 1.4.4?
-  newpath_p = ((major >= 2) or
-               ((major == 1) and
-                ((minor >= 5) or
-                 ((minor == 4) and (teeny >= 4)))))
-  
-  subprefix = lambda {|path|
-    path.sub(/\A#{Regexp.quote(c['prefix'])}/o, '$prefix')
-  }
+  attr_writer :verbose
 
-  if c['rubylibdir']
-    # V < 1.6.3
-    stdruby    = subprefix.call(c['rubylibdir'])
-    siteruby   = subprefix.call(c['sitedir'])
-    versite    = subprefix.call(c['sitelibdir'])
-    sodir      = subprefix.call(c['sitearchdir'])
-  elsif newpath_p
-    # 1.4.4 <= V <= 1.6.3
-    stdruby    = "$prefix/lib/ruby/#{version}"
-    siteruby   = subprefix.call(c['sitedir'])
-    versite    = siteruby + '/' + version
-    sodir      = "$site-ruby/#{c['arch']}"
-  else
-    # V < 1.4.4
-    stdruby    = "$prefix/lib/ruby/#{version}"
-    siteruby   = "$prefix/lib/ruby/#{version}/site_ruby"
-    versite    = siteruby
-    sodir      = "$site-ruby/#{c['arch']}"
-  end
-
-  if arg = c['configure_args'].split.detect {|arg| /--with-make-prog=/ =~ arg }
-    makeprog = arg.sub(/'/, '').split(/=/, 2)[1]
-  else
-    makeprog = 'make'
-  end
-
-  common_descripters = [
-    [ 'prefix',    [ c['prefix'],
-                     'path',
-                     'path prefix of target environment' ] ],
-    [ 'std-ruby',  [ stdruby,
-                     'path',
-                     'the directory for standard ruby libraries' ] ],
-    [ 'site-ruby-common', [ siteruby,
-                     'path',
-                     'the directory for version-independent non-standard ruby libraries' ] ],
-    [ 'site-ruby', [ versite,
-                     'path',
-                     'the directory for non-standard ruby libraries' ] ],
-    [ 'bin-dir',   [ '$prefix/bin',
-                     'path',
-                     'the directory for commands' ] ],
-    [ 'rb-dir',    [ '$site-ruby',
-                     'path',
-                     'the directory for ruby scripts' ] ],
-    [ 'so-dir',    [ sodir,
-                     'path',
-                     'the directory for ruby extentions' ] ],
-    [ 'data-dir',  [ '$prefix/share',
-                     'path',
-                     'the directory for shared data' ] ],
-    [ 'ruby-path', [ rubypath,
-                     'path',
-                     'path to set to #! line' ] ],
-    [ 'ruby-prog', [ rubypath,
-                     'name',
-                     'the ruby program using for installation' ] ],
-    [ 'make-prog', [ makeprog,
-                     'name',
-                     'the make program to compile ruby extentions' ] ],
-    [ 'without-ext', [ 'no',
-                       'yes/no',
-                       'does not compile/install ruby extentions' ] ]
-  ]
-  multipackage_descripters = [
-    [ 'with',      [ '',
-                     'name,name...',
-                     'package names that you want to install',
-                     'ALL' ] ],
-    [ 'without',   [ '',
-                     'name,name...',
-                     'package names that you do not want to install',
-                     'NONE' ] ]
-  ]
-  if multipackage_install?
-    DESCRIPTER = common_descripters + multipackage_descripters
-  else
-    DESCRIPTER = common_descripters
+  def verbose?
+    @verbose
   end
 
-  SAVE_FILE = 'config.save'
+  attr_writer :no_harm
 
-  def ConfigTable.each_name(&block)
-    keys().each(&block)
+  def no_harm?
+    @no_harm
   end
 
-  def ConfigTable.keys
-    DESCRIPTER.map {|name, *dummy| name }
+  def [](key)
+    lookup(key).resolve(self)
   end
 
-  def ConfigTable.each_definition(&block)
-    DESCRIPTER.each(&block)
+  def []=(key, val)
+    lookup(key).set val
   end
 
-  def ConfigTable.get_entry(name)
-    name, ent = DESCRIPTER.assoc(name)
-    ent
+  def names
+    @items.map {|i| i.name }
   end
 
-  def ConfigTable.get_entry!(name)
-    get_entry(name) or raise ArgumentError, "no such config: #{name}"
+  def each(&block)
+    @items.each(&block)
   end
 
-  def ConfigTable.add_entry(name, vals)
-    ConfigTable::DESCRIPTER.push [name,vals]
+  def key?(name)
+    @table.key?(name)
   end
 
-  def ConfigTable.remove_entry(name)
-    get_entry(name) or raise ArgumentError, "no such config: #{name}"
-    DESCRIPTER.delete_if {|n, arr| n == name }
+  def lookup(name)
+    @table[name] or setup_rb_error "no such config item: #{name}"
   end
 
-  def ConfigTable.config_key?(name)
-    get_entry(name) ? true : false
+  def add(item)
+    @items.push item
+    @table[item.name] = item
   end
 
-  def ConfigTable.bool_config?(name)
-    ent = get_entry(name) or return false
-    ent[1] == 'yes/no'
+  def remove(name)
+    item = lookup(name)
+    @items.delete_if {|i| i.name == name }
+    @table.delete_if {|name, i| i.name == name }
+    item
   end
 
-  def ConfigTable.value_config?(name)
-    ent = get_entry(name) or return false
-    ent[1] != 'yes/no'
+  def load_script(path, inst = nil)
+    if File.file?(path)
+      MetaConfigEnvironment.new(self, inst).instance_eval File.read(path), path
+    end
   end
 
-  def ConfigTable.path_config?(name)
-    ent = get_entry(name) or return false
-    ent[1] == 'path'
+  def savefile
+    '.config'
   end
 
-
-  class << self
-    alias newobj new
+  def load_savefile
+    begin
+      File.foreach(savefile()) do |line|
+        k, v = *line.split(/=/, 2)
+        self[k] = v.strip
+      end
+    rescue Errno::ENOENT
+      setup_rb_error $!.message + "\n#{File.basename($0)} config first"
+    end
   end
 
-  def ConfigTable.new
-    c = newobj()
-    c.initialize_from_table
-    c
+  def save
+    @items.each {|i| i.value }
+    File.open(savefile(), 'w') {|f|
+      @items.each do |i|
+        f.printf "%s=%s\n", i.name, i.value if i.value? and i.value
+      end
+    }
   end
 
-  def ConfigTable.load
-    c = newobj()
-    c.initialize_from_file
-    c
+  def load_standard_entries
+    standard_entries(@rbconfig).each do |ent|
+      add ent
+    end
   end
 
-  def initialize_from_table
-    @table = {}
-    DESCRIPTER.each do |k, (default, vname, desc, default2)|
-      @table[k] = default
+  def standard_entries(rbconfig)
+    c = rbconfig
+
+    rubypath = File.join(c['bindir'], c['ruby_install_name'] + c['EXEEXT'])
+
+    major = c['MAJOR'].to_i
+    minor = c['MINOR'].to_i
+    teeny = c['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)))))
+
+    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
-  end
+    parameterize = lambda {|path|
+      path.sub(/\A#{Regexp.quote(c['prefix'])}/, '$prefix')
+    }
 
-  def initialize_from_file
-    raise InstallError, "#{File.basename $0} config first"\
-        unless File.file?(SAVE_FILE)
-    @table = {}
-    File.foreach(SAVE_FILE) do |line|
-      k, v = line.split(/=/, 2)
-      @table[k] = v.strip
+    if arg = c['configure_args'].split.detect {|arg| /--with-make-prog=/ =~ arg }
+      makeprog = arg.sub(/'/, '').split(/=/, 2)[1]
+    else
+      makeprog = 'make'
     end
-  end
 
-  def save
-    File.open(SAVE_FILE, 'w') {|f|
-      @table.each do |k, v|
-        f.printf "%s=%s\n", k, v if v
-      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')
+    ]
+  end
+  private :standard_entries
+
+  def load_multipackage_entries
+    multipackage_entries().each do |ent|
+      add ent
+    end
   end
 
-  def []=(k, v)
-    raise InstallError, "unknown config option #{k}"\
-        unless ConfigTable.config_key?(k)
-    @table[k] = v
+  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')
+    ]
+  end
+  private :multipackage_entries
+
+  ALIASES = {
+    'std-ruby'         => 'librubyver',
+    'stdruby'          => 'librubyver',
+    'rubylibdir'       => 'librubyver',
+    'archdir'          => 'librubyverarch',
+    'site-ruby-common' => 'siteruby',     # For backward compatibility
+    'site-ruby'        => 'siterubyver',  # For backward compatibility
+    'bin-dir'          => 'bindir',
+    'bin-dir'          => 'bindir',
+    'rb-dir'           => 'rbdir',
+    'so-dir'           => 'sodir',
+    'data-dir'         => 'datadir',
+    'ruby-path'        => 'rubypath',
+    'ruby-prog'        => 'rubyprog',
+    'ruby'             => 'rubyprog',
+    'make-prog'        => 'makeprog',
+    'make'             => 'makeprog'
+  }
+
+  def fixup
+    ALIASES.each do |ali, name|
+      @table[ali] = @table[name]
+    end
+    @items.freeze
+    @table.freeze
+    @options_re = /\A--(#{@table.keys.join('|')})(?:=(.*))?\z/
   end
-    
-  def [](key)
-    return nil unless @table[key]
-    @table[key].gsub(%r<\$([^/]+)>) { self[$1] }
+
+  def parse_opt(opt)
+    m = @options_re.match(opt) or setup_rb_error "config: unknown option #{opt}"
+    m.to_a[1,2]
   end
 
-  def set_raw(key, val)
-    @table[key] = val
+  def dllext
+    @rbconfig['DLEXT']
   end
 
-  def get_raw(key)
-    @table[key]
+  def value_config?(name)
+    lookup(name).value?
   end
 
-end
+  class Item
+    def initialize(name, template, default, desc)
+      @name = name.freeze
+      @template = template
+      @value = default
+      @default = default
+      @description = desc
+    end
 
+    attr_reader :name
+    attr_reader :description
 
-module MetaConfigAPI
+    attr_accessor :default
+    alias help_default default
 
-  def eval_file_ifexist(fname)
-    instance_eval File.read(fname), fname, 1 if File.file?(fname)
-  end
+    def help_opt
+      "--#{@name}=#{@template}"
+    end
 
-  def config_names
-    ConfigTable.keys
-  end
+    def value?
+      true
+    end
 
-  def config?(name)
-    ConfigTable.config_key?(name)
-  end
+    def value
+      @value
+    end
+
+    def resolve(table)
+      @value.gsub(%r<\$([^/]+)>) { table[$1] }
+    end
 
-  def bool_config?(name)
-    ConfigTable.bool_config?(name)
+    def set(val)
+      @value = check(val)
+    end
+
+    private
+
+    def check(val)
+      setup_rb_error "config: --#{name} requires argument" unless val
+      val
+    end
   end
 
-  def value_config?(name)
-    ConfigTable.value_config?(name)
+  class BoolItem < Item
+    def config_type
+      'bool'
+    end
+
+    def help_opt
+      "--#{@name}"
+    end
+
+    private
+
+    def check(val)
+      return 'yes' unless 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
+    end
   end
 
-  def path_config?(name)
-    ConfigTable.path_config?(name)
+  class PathItem < Item
+    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)
+    end
   end
 
-  def add_config(name, argname, default, desc)
-    ConfigTable.add_entry name,[default,argname,desc]
+  class ProgramItem < Item
+    def config_type
+      'program'
+    end
   end
 
-  def add_path_config(name, default, desc)
-    add_config name, 'path', default, desc
+  class SelectItem < Item
+    def initialize(name, selection, default, desc)
+      super
+      @ok = selection.split('/')
+    end
+
+    def config_type
+      'select'
+    end
+
+    private
+
+    def check(val)
+      unless @ok.include?(val.strip)
+        setup_rb_error "config: use --#{@name}=#{@template} (#{val})"
+      end
+      val.strip
+    end
   end
 
-  def add_bool_config(name, default, desc)
-    add_config name, 'yes/no', default ? 'yes' : 'no', desc
+  class ExecItem < Item
+    def initialize(name, selection, desc, &block)
+      super name, selection, nil, desc
+      @ok = selection.split('/')
+      @action = block
+    end
+
+    def config_type
+      'exec'
+    end
+
+    def value?
+      false
+    end
+
+    def resolve(table)
+      setup_rb_error "$#{name()} wrongly used as option value"
+    end
+
+    undef set
+
+    def evaluate(val, table)
+      v = val.strip.downcase
+      unless @ok.include?(v)
+        setup_rb_error "invalid option --#{@name}=#{val} (use #{@template})"
+      end
+      @action.call v, table
+    end
   end
 
-  def set_config_default(name, default)
-    if bool_config?(name)
-      ConfigTable.get_entry!(name)[0] = (default ? 'yes' : 'no')
-    else
-      ConfigTable.get_entry!(name)[0] = default
+  class PackageSelectionItem < Item
+    def initialize(name, template, default, help_default, desc)
+      super name, template, default, desc
+      @help_default = help_default
+    end
+
+    attr_reader :help_default
+
+    def config_type
+      'package'
+    end
+
+    private
+
+    def check(val)
+      unless File.dir?("packages/#{val}")
+        setup_rb_error "config: no such package: #{val}"
+      end
+      val
     end
   end
 
-  def remove_config(name)
-    ent = ConfigTable.get_entry(name)
-    ConfigTable.remove_entry name
-    ent
+  class MetaConfigEnvironment
+    def initialize(config, installer)
+      @config = config
+      @installer = installer
+    end
+
+    def config_names
+      @config.names
+    end
+
+    def config?(name)
+      @config.key?(name)
+    end
+
+    def bool_config?(name)
+      @config.lookup(name).config_type == 'bool'
+    end
+
+    def path_config?(name)
+      @config.lookup(name).config_type == 'path'
+    end
+
+    def value_config?(name)
+      @config.lookup(name).config_type != 'exec'
+    end
+
+    def add_config(item)
+      @config.add item
+    end
+
+    def add_bool_config(name, default, desc)
+      @config.add BoolItem.new(name, 'yes/no', default ? 'yes' : 'no', desc)
+    end
+
+    def add_path_config(name, default, desc)
+      @config.add PathItem.new(name, 'path', default, desc)
+    end
+
+    def set_config_default(name, default)
+      @config.lookup(name).default = default
+    end
+
+    def remove_config(name)
+      @config.remove(name)
+    end
+
+    # For only multipackage
+    def packages
+      raise '[setup.rb fatal] multi-package metaconfig API packages() called for single-package; contact application package vendor' unless @installer
+      @installer.packages
+    end
+
+    # For only multipackage
+    def declare_packages(list)
+      raise '[setup.rb fatal] multi-package metaconfig API declare_packages() called for single-package; contact application package vendor' unless @installer
+      @installer.packages = list
+    end
   end
 
-end
+end   # class ConfigTable
 
-#
-# File Operations
-#
 
+# This module requires: #verbose?, #no_harm?
 module FileOperations
 
   def mkdir_p(dirname, prefix = nil)
-    dirname = prefix + dirname if prefix
+    dirname = prefix + File.expand_path(dirname) if prefix
     $stderr.puts "mkdir -p #{dirname}" if verbose?
     return if no_harm?
 
-    # does not check '/'... it's too abnormal case
-    dirs = dirname.split(%r<(?=/)>)
+    # Does not check '/', it's too abnormal.
+    dirs = File.expand_path(dirname).split(%r<(?=/)>)
     if /\A[a-z]:\z/i =~ dirs[0]
       disk = dirs.shift
       dirs[0] = disk + dirs[0]
@@ -397,54 +552,78 @@ module FileOperations
     end
   end
 
-  def rm_f(fname)
-    $stderr.puts "rm -f #{fname}" if verbose?
+  def rm_f(path)
+    $stderr.puts "rm -f #{path}" if verbose?
     return if no_harm?
-
-    if File.exist?(fname) or File.symlink?(fname)
-      File.chmod 0777, fname
-      File.unlink fname
-    end
+    force_remove_file path
   end
 
-  def rm_rf(dn)
-    $stderr.puts "rm -rf #{dn}" if verbose?
+  def rm_rf(path)
+    $stderr.puts "rm -rf #{path}" if verbose?
     return if no_harm?
+    remove_tree path
+  end
+
+  def remove_tree(path)
+    if File.symlink?(path)
+      remove_file path
+    elsif File.dir?(path)
+      remove_tree0 path
+    else
+      force_remove_file path
+    end
+  end
 
-    Dir.chdir dn
-    Dir.foreach('.') do |fn|
-      next if fn == '.'
-      next if fn == '..'
-      if File.dir?(fn)
-        verbose_off {
-          rm_rf fn
-        }
+  def remove_tree0(path)
+    Dir.foreach(path) do |ent|
+      next if ent == '.'
+      next if ent == '..'
+      entpath = "#{path}/#{ent}"
+      if File.symlink?(entpath)
+        remove_file entpath
+      elsif File.dir?(entpath)
+        remove_tree0 entpath
       else
-        verbose_off {
-          rm_f fn
-        }
+        force_remove_file entpath
       end
     end
-    Dir.chdir '..'
-    Dir.rmdir dn
+    begin
+      Dir.rmdir path
+    rescue Errno::ENOTEMPTY
+      # directory may not be empty
+    end
   end
 
   def move_file(src, dest)
-    File.unlink dest if File.exist?(dest)
+    force_remove_file dest
     begin
       File.rename src, dest
     rescue
-      File.open(dest, 'wb') {|f| f.write File.binread(src) }
+      File.open(dest, 'wb') {|f|
+        f.write File.binread(src)
+      }
       File.chmod File.stat(src).mode, dest
       File.unlink src
     end
   end
 
+  def force_remove_file(path)
+    begin
+      remove_file path
+    rescue
+    end
+  end
+
+  def remove_file(path)
+    File.chmod 0777, path
+    File.unlink path
+  end
+
   def install(from, dest, mode, prefix = nil)
     $stderr.puts "install #{from} #{dest}" if verbose?
     return if no_harm?
 
-    realdest = prefix + dest if prefix
+    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)
@@ -471,68 +650,42 @@ module FileOperations
     new_content != File.binread(path)
   end
 
-  def command(str)
-    $stderr.puts str if verbose?
-    system str or raise RuntimeError, "'system #{str}' failed"
+  def command(*args)
+    $stderr.puts args.join(' ') if verbose?
+    system(*args) or raise RuntimeError,
+        "system(#{args.map{|a| a.inspect }.join(' ')}) failed"
   end
 
-  def ruby(str)
-    command config('ruby-prog') + ' ' + str
+  def ruby(*args)
+    command config('rubyprog'), *args
   end
   
-  def make(task = '')
-    command config('make-prog') + ' ' + task
+  def make(task = nil)
+    command(*[config('makeprog'), task].compact)
   end
 
   def extdir?(dir)
-    File.exist?(dir + '/MANIFEST')
+    File.exist?("#{dir}/MANIFEST") or File.exist?("#{dir}/extconf.rb")
   end
 
-  def all_files_in(dirname)
-    Dir.open(dirname) {|d|
-      return d.select {|ent| File.file?("#{dirname}/#{ent}") }
+  def files_of(dir)
+    Dir.open(dir) {|d|
+      return d.select {|ent| File.file?("#{dir}/#{ent}") }
     }
   end
 
-  REJECT_DIRS = %w(
-    CVS SCCS RCS CVS.adm
-  )
+  DIR_REJECT = %w( . .. CVS SCCS RCS CVS.adm .svn )
 
-  def all_dirs_in(dirname)
-    Dir.open(dirname) {|d|
-      return d.select {|n| File.dir?("#{dirname}/#{n}") } - %w(. ..) - REJECT_DIRS
+  def directories_of(dir)
+    Dir.open(dir) {|d|
+      return d.select {|ent| File.dir?("#{dir}/#{ent}") } - DIR_REJECT
     }
   end
 
 end
 
-#
-# Main Installer
-#
-
-class InstallError < StandardError; end
-
-
-module HookUtils
-
-  def run_hook(name)
-    try_run_hook "#{curr_srcdir()}/#{name}" or
-    try_run_hook "#{curr_srcdir()}/#{name}.rb"
-  end
-
-  def try_run_hook(fname)
-    return false unless File.file?(fname)
-    begin
-      instance_eval File.read(fname), fname, 1
-    rescue
-      raise InstallError, "hook #{fname} failed:\n" + $!.message
-    end
-    true
-  end
-
-end
-
 
+# This module requires: #srcdir_root, #objdir_root, #relpath
 module HookScriptAPI
 
   def get_config(key)
@@ -541,6 +694,7 @@ module HookScriptAPI
 
   alias config get_config
 
+  # obsolete: use metaconfig to change configuration
   def set_config(key, val)
     @config[key] = val
   end
@@ -549,10 +703,6 @@ module HookScriptAPI
   # srcdir/objdir (works only in the package directory)
   #
 
-  #abstract srcdir_root
-  #abstract objdir_root
-  #abstract relpath
-
   def curr_srcdir
     "#{srcdir_root()}/#{relpath()}"
   end
@@ -574,7 +724,7 @@ module HookScriptAPI
   end
   
   def srcfile?(path)
-    File.file? srcfile(path)
+    File.file?(srcfile(path))
   end
 
   def srcentries(path = '.')
@@ -600,35 +750,53 @@ end
 
 class ToplevelInstaller
 
-  Version   = '3.2.4'
-  Copyright = 'Copyright (c) 2000-2004 Minero Aoki'
+  Version   = '3.4.1'
+  Copyright = 'Copyright (c) 2000-2005 Minero Aoki'
 
   TASKS = [
+    [ 'all',      'do config, setup, then install' ],
     [ 'config',   'saves your configurations' ],
     [ 'show',     'shows current configuration' ],
     [ 'setup',    'compiles ruby extentions and others' ],
     [ 'install',  'installs files' ],
+    [ 'test',     'run all tests in test/' ],
     [ 'clean',    "does `make clean' for each extention" ],
     [ 'distclean',"does `make distclean' for each extention" ]
   ]
 
   def ToplevelInstaller.invoke
-    instance().invoke
+    config = ConfigTable.new(load_rbconfig())
+    config.load_standard_entries
+    config.load_multipackage_entries if multipackage?
+    config.fixup
+    klass = (multipackage?() ? ToplevelInstallerMulti : ToplevelInstaller)
+    klass.new(File.dirname($0), config).invoke
   end
 
-  @singleton = nil
-
-  def ToplevelInstaller.instance
-    @singleton ||= new(File.dirname($0))
-    @singleton
+  def ToplevelInstaller.multipackage?
+    File.dir?(File.dirname($0) + '/packages')
   end
 
-  include MetaConfigAPI
+  def ToplevelInstaller.load_rbconfig
+    if arg = ARGV.detect {|arg| /\A--rbconfig=/ =~ arg }
+      ARGV.delete(arg)
+      load File.expand_path(arg.split(/=/, 2)[1])
+      $".push 'rbconfig.rb'
+    else
+      require 'rbconfig'
+    end
+    ::Config::CONFIG
+  end
 
-  def initialize(ardir_root)
-    @config = nil
-    @options = { 'verbose' => true }
+  def initialize(ardir_root, config)
     @ardir = File.expand_path(ardir_root)
+    @config = config
+    # cache
+    @valid_task_re = nil
+  end
+
+  def config(key)
+    @config[key]
   end
 
   def inspect
@@ -637,33 +805,34 @@ class ToplevelInstaller
 
   def invoke
     run_metaconfigs
-    task = parsearg_global()
-    @config = load_config(task)
-    __send__ "parsearg_#{task}"
-    init_installers
-    __send__ "exec_#{task}"
-  end
-
-  def run_metaconfigs
-    eval_file_ifexist "#{@ardir}/metaconfig"
-  end
-
-  def load_config(task)
-    case task
-    when 'config'
-      ConfigTable.new
-    when 'clean', 'distclean'
-      if File.exist?('config.save')
-      then ConfigTable.load
-      else ConfigTable.new
-      end
+    case task = parsearg_global()
+    when nil, 'all'
+      parsearg_config
+      init_installers
+      exec_config
+      exec_setup
+      exec_install
     else
-      ConfigTable.load
+      case task
+      when 'config', 'test'
+        ;
+      when 'clean', 'distclean'
+        @config.load_savefile if File.exist?(@config.savefile)
+      else
+        @config.load_savefile
+      end
+      __send__ "parsearg_#{task}"
+      init_installers
+      __send__ "exec_#{task}"
     end
   end
+  
+  def run_metaconfigs
+    @config.load_script "#{@ardir}/metaconfig"
+  end
 
   def init_installers
-    @installer = Installer.new(@config, @options, @ardir, File.expand_path('.'))
+    @installer = Installer.new(@config, @ardir, File.expand_path('.'))
   end
 
   #
@@ -687,96 +856,91 @@ class ToplevelInstaller
   #
 
   def parsearg_global
-    valid_task = /\A(?:#{TASKS.map {|task,desc| task }.join '|'})\z/
-
     while arg = ARGV.shift
       case arg
       when /\A\w+\z/
-        raise InstallError, "invalid task: #{arg}" unless valid_task =~ arg
+        setup_rb_error "invalid task: #{arg}" unless valid_task?(arg)
         return arg
-
       when '-q', '--quiet'
-        @options['verbose'] = false
-
-      when       '--verbose'
-        @options['verbose'] = true
-
-      when '-h', '--help'
+        @config.verbose = false
+      when '--verbose'
+        @config.verbose = true
+      when '--help'
         print_usage $stdout
         exit 0
-
-      when '-v', '--version'
+      when '--version'
         puts "#{File.basename($0)} version #{Version}"
         exit 0
-      
       when '--copyright'
         puts Copyright
         exit 0
-
       else
-        raise InstallError, "unknown global option '#{arg}'"
+        setup_rb_error "unknown global option '#{arg}'"
       end
     end
+    nil
+  end
 
-    raise InstallError, <<EOS
-No task or global option given.
-Typical installation procedure is:
-    $ ruby #{File.basename($0)} config
-    $ ruby #{File.basename($0)} setup
-    # ruby #{File.basename($0)} install  (may require root privilege)
-EOS
+  def valid_task?(t)
+    valid_task_re() =~ t
   end
 
+  def valid_task_re
+    @valid_task_re ||= /\A(?:#{TASKS.map {|task,desc| task }.join('|')})\z/
+  end
 
   def parsearg_no_options
-    raise InstallError, "#{task}:  unknown options: #{ARGV.join ' '}"\
-        unless ARGV.empty?
+    unless ARGV.empty?
+      task = caller(0).first.slice(%r<`parsearg_(\w+)'>, 1)
+      setup_rb_error "#{task}: unknown options: #{ARGV.join(' ')}"
+    end
   end
 
   alias parsearg_show       parsearg_no_options
   alias parsearg_setup      parsearg_no_options
+  alias parsearg_test       parsearg_no_options
   alias parsearg_clean      parsearg_no_options
   alias parsearg_distclean  parsearg_no_options
 
   def parsearg_config
-    re = /\A--(#{ConfigTable.keys.join '|'})(?:=(.*))?\z/
-    @options['config-opt'] = []
-
+    evalopt = []
+    set = []
+    @config.config_opt = []
     while i = ARGV.shift
       if /\A--?\z/ =~ i
-        @options['config-opt'] = ARGV.dup
+        @config.config_opt = ARGV.dup
         break
       end
-      m = re.match(i) or raise InstallError, "config: unknown option #{i}"
-      name, value = m.to_a[1,2]
-      if value
-        if ConfigTable.bool_config?(name)
-          raise InstallError, "config: --#{name} allows only yes/no for argument"\
-              unless /\A(y(es)?|n(o)?|t(rue)?|f(alse))\z/i =~ value
-          value = (/\Ay(es)?|\At(rue)/i =~ value) ? 'yes' : 'no'
-        end
+      name, value = *@config.parse_opt(i)
+      if @config.value_config?(name)
+        @config[name] = value
       else
-        raise InstallError, "config: --#{name} requires argument"\
-            unless ConfigTable.bool_config?(name)
-        value = 'yes'
+        evalopt.push [name, value]
       end
-      @config[name] = value
+      set.push name
+    end
+    evalopt.each do |name, value|
+      @config.lookup(name).evaluate value, @config
+    end
+    # Check if configuration is valid
+    set.each do |n|
+      @config[n] if @config.value_config?(n)
     end
   end
 
   def parsearg_install
-    @options['no-harm'] = false
-    @options['install-prefix'] = ''
+    @config.no_harm = false
+    @config.install_prefix = ''
     while a = ARGV.shift
       case a
-      when /\A--no-harm\z/
-        @options['no-harm'] = true
-      when /\A--prefix=(.*)\z/
-        path = $1
+      when '--no-harm'
+        @config.no_harm = true
+      when /\A--prefix=/
+        path = a.split(/=/, 2)[1]
         path = File.expand_path(path) unless path[0,1] == '/'
-        @options['install-prefix'] = path
+        @config.install_prefix = path
       else
-        raise InstallError, "install: unknown option #{a}"
+        setup_rb_error "install: unknown option #{a}"
       end
     end
   end
@@ -791,39 +955,31 @@ EOS
     out.puts "  ruby #{File.basename $0} <global option>"
     out.puts "  ruby #{File.basename $0} [<global options>] <task> [<task options>]"
 
-    fmt = "  %-20s %s\n"
+    fmt = "  %-24s %s\n"
     out.puts
     out.puts 'Global options:'
     out.printf fmt, '-q,--quiet',   'suppress message outputs'
     out.printf fmt, '   --verbose', 'output messages verbosely'
-    out.printf fmt, '-h,--help',    'print this message'
-    out.printf fmt, '-v,--version', 'print version and quit'
+    out.printf fmt, '   --help',    'print this message'
+    out.printf fmt, '   --version', 'print version and quit'
     out.printf fmt, '   --copyright',  'print copyright and quit'
-
     out.puts
     out.puts 'Tasks:'
     TASKS.each do |name, desc|
-      out.printf "  %-10s  %s\n", name, desc
+      out.printf fmt, name, desc
     end
 
+    fmt = "  %-24s %s [%s]\n"
     out.puts
-    out.puts 'Options for config:'
-    ConfigTable.each_definition do |name, (default, arg, desc, default2)|
-      out.printf "  %-20s %s [%s]\n",
-                 '--'+ name + (ConfigTable.bool_config?(name) ? '' : '='+arg),
-                 desc,
-                 default2 || default
+    out.puts 'Options for CONFIG or ALL:'
+    @config.each do |item|
+      out.printf fmt, item.help_opt, item.description, item.help_default
     end
-    out.printf "  %-20s %s [%s]\n",
-        '--rbconfig=path', 'your rbconfig.rb to load', "running ruby's"
-
+    out.printf fmt, '--rbconfig=path', 'rbconfig.rb to load',"running ruby's"
     out.puts
-    out.puts 'Options for install:'
-    out.printf "  %-20s %s [%s]\n",
-        '--no-harm', 'only display what to do if given', 'off'
-    out.printf "  %-20s %s [%s]\n",
-        '--prefix',  'install path prefix', '$prefix'
-
+    out.puts 'Options for INSTALL:'
+    out.printf fmt, '--no-harm', 'only display what to do if given', 'off'
+    out.printf fmt, '--prefix=path',  'install path prefix', ''
     out.puts
   end
 
@@ -844,13 +1000,13 @@ EOS
     @installer.exec_install
   end
 
+  def exec_test
+    @installer.exec_test
+  end
+
   def exec_show
-    ConfigTable.each_name do |k|
-      v = @config.get_raw(k)
-      if not v or v.empty?
-        v = '(not specified)'
-      end
-      printf "%-10s %s\n", k, v
+    @config.each do |i|
+      printf "%-20s %s\n", i.name, i.value if i.value?
     end
   end
 
@@ -862,36 +1018,45 @@ EOS
     @installer.exec_distclean
   end
 
-end
+end   # class ToplevelInstaller
 
 
 class ToplevelInstallerMulti < ToplevelInstaller
 
-  include HookUtils
-  include HookScriptAPI
   include FileOperations
 
-  def initialize(ardir)
+  def initialize(ardir_root, config)
     super
-    @packages = all_dirs_in("#{@ardir}/packages")
+    @packages = directories_of("#{@ardir}/packages")
     raise 'no package exists' if @packages.empty?
+    @root_installer = Installer.new(@config, @ardir, File.expand_path('.'))
   end
 
   def run_metaconfigs
-    eval_file_ifexist "#{@ardir}/metaconfig"
+    @config.load_script "#{@ardir}/metaconfig", self
     @packages.each do |name|
-      eval_file_ifexist "#{@ardir}/packages/#{name}/metaconfig"
+      @config.load_script "#{@ardir}/packages/#{name}/metaconfig"
     end
   end
 
+  attr_reader :packages
+
+  def packages=(list)
+    raise 'package list is empty' if list.empty?
+    list.each do |name|
+      raise "directory packages/#{name} does not exist"\
+              unless File.dir?("#{@ardir}/packages/#{name}")
+    end
+    @packages = list
+  end
+
   def init_installers
     @installers = {}
     @packages.each do |pack|
-      @installers[pack] = Installer.new(@config, @options,
+      @installers[pack] = Installer.new(@config,
                                        "#{@ardir}/packages/#{pack}",
                                        "packages/#{pack}")
     end
-
     with    = extract_selection(config('with'))
     without = extract_selection(config('without'))
     @selected = @installers.keys.select {|name|
@@ -903,8 +1068,7 @@ class ToplevelInstallerMulti < ToplevelInstaller
   def extract_selection(list)
     a = list.split(/,/)
     a.each do |name|
-      raise InstallError, "no such package: #{name}" \
-              unless @installers.key?(name)
+      setup_rb_error "no such package: #{name}"  unless @installers.key?(name)
     end
     a
   end
@@ -916,21 +1080,6 @@ class ToplevelInstallerMulti < ToplevelInstaller
     f.puts
   end
 
-  #
-  # multi-package metaconfig API
-  #
-
-  attr_reader :packages
-
-  def declare_packages(list)
-    raise 'package list is empty' if list.empty?
-    list.each do |name|
-      raise "directory packages/#{name} does not exist"\
-              unless File.dir?("#{@ardir}/packages/#{name}")
-    end
-    @packages = list
-  end
-
   #
   # Task Handlers
   #
@@ -954,15 +1103,21 @@ class ToplevelInstallerMulti < ToplevelInstaller
     run_hook 'post-install'
   end
 
+  def exec_test
+    run_hook 'pre-test'
+    each_selected_installers {|inst| inst.exec_test }
+    run_hook 'post-test'
+  end
+
   def exec_clean
-    rm_f 'config.save'
+    rm_f @config.savefile
     run_hook 'pre-clean'
     each_selected_installers {|inst| inst.exec_clean }
     run_hook 'post-clean'
   end
 
   def exec_distclean
-    rm_f 'config.save'
+    rm_f @config.savefile
     run_hook 'pre-distclean'
     each_selected_installers {|inst| inst.exec_distclean }
     run_hook 'post-distclean'
@@ -975,7 +1130,7 @@ class ToplevelInstallerMulti < ToplevelInstaller
   def each_selected_installers
     Dir.mkdir 'packages' unless File.dir?('packages')
     @selected.each do |pack|
-      $stderr.puts "Processing the package `#{pack}' ..." if @options['verbose']
+      $stderr.puts "Processing the package `#{pack}' ..." if verbose?
       Dir.mkdir "packages/#{pack}" unless File.dir?("packages/#{pack}")
       Dir.chdir "packages/#{pack}"
       yield @installers[pack]
@@ -983,28 +1138,32 @@ class ToplevelInstallerMulti < ToplevelInstaller
     end
   end
 
+  def run_hook(id)
+    @root_installer.run_hook id
+  end
+
+  # module FileOperations requires this
   def verbose?
-    @options['verbose']
+    @config.verbose?
   end
 
+  # module FileOperations requires this
   def no_harm?
-    @options['no-harm']
+    @config.no_harm?
   end
 
-end
+end   # class ToplevelInstallerMulti
 
 
 class Installer
 
-  FILETYPES = %w( bin lib ext data )
+  FILETYPES = %w( bin lib ext data conf man )
 
-  include HookScriptAPI
-  include HookUtils
   include FileOperations
+  include HookScriptAPI
 
-  def initialize(config, opt, srcroot, objroot)
+  def initialize(config, srcroot, objroot)
     @config = config
-    @options = opt
     @srcdir = File.expand_path(srcroot)
     @objdir = File.expand_path(objroot)
     @currdir = '.'
@@ -1014,8 +1173,11 @@ class Installer
     "#<#{self.class} #{File.basename(@srcdir)}>"
   end
 
+  def noop(rel)
+  end
+
   #
-  # Hook Script API bases
+  # Hook Script API base methods
   #
 
   def srcdir_root
@@ -1031,23 +1193,25 @@ class Installer
   end
 
   #
-  # configs/options
+  # Config Access
   #
 
-  def no_harm?
-    @options['no-harm']
+  # module FileOperations requires this
+  def verbose?
+    @config.verbose?
   end
 
-  def verbose?
-    @options['verbose']
+  # module FileOperations requires this
+  def no_harm?
+    @config.no_harm?
   end
 
   def verbose_off
     begin
-      save, @options['verbose'] = @options['verbose'], false
+      save, @config.verbose = @config.verbose?, false
       yield
     ensure
-      @options['verbose'] = save
+      @config.verbose = save
     end
   end
 
@@ -1059,22 +1223,19 @@ class Installer
     exec_task_traverse 'config'
   end
 
-  def config_dir_bin(rel)
-  end
-
-  def config_dir_lib(rel)
-  end
+  alias config_dir_bin noop
+  alias config_dir_lib noop
 
   def config_dir_ext(rel)
     extconf if extdir?(curr_srcdir())
   end
 
-  def extconf
-    opt = @options['config-opt'].join(' ')
-    command "#{config('ruby-prog')} #{curr_srcdir()}/extconf.rb #{opt}"
-  end
+  alias config_dir_data noop
+  alias config_dir_conf noop
+  alias config_dir_man noop
 
-  def config_dir_data(rel)
+  def extconf
+    ruby "#{curr_srcdir()}/extconf.rb", *@config.config_opt
   end
 
   #
@@ -1086,46 +1247,90 @@ class Installer
   end
 
   def setup_dir_bin(rel)
-    all_files_in(curr_srcdir()).each do |fname|
-      adjust_shebang "#{curr_srcdir()}/#{fname}"
+    files_of(curr_srcdir()).each do |fname|
+      update_shebang_line "#{curr_srcdir()}/#{fname}"
     end
   end
 
-  # modify: #!/usr/bin/ruby
-  # modify: #! /usr/bin/ruby
-  # modify: #!ruby
-  # not modify: #!/usr/bin/env ruby
-  SHEBANG_RE = /\A\#!\s*\S*ruby\S*/
+  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 adjust_shebang(path)
+  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|
-        File.open(tmpfile, 'wb') {|w|
-          first = r.gets
-          return unless SHEBANG_RE =~ first
-
-          $stderr.puts "adjusting shebang: #{File.basename path}" if verbose?
-          w.print first.sub(SHEBANG_RE, '#!' + config('ruby-path'))
-          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_ext(rel)
-    make if extdir?(curr_srcdir())
-  end
+    def Shebang.parse(line)
+      cmd, *args = *line.strip.sub(/\A\#!/, '').split(' ')
+      new(cmd, args)
+    end
+
+    def initialize(cmd, args = [])
+      @cmd = cmd
+      @args = args
+    end
+
+    attr_reader :cmd
+    attr_reader :args
 
-  def setup_dir_data(rel)
+    def to_s
+      "#! #{@cmd}" + (@args.empty? ? '' : " #{@args.join(' ')}")
+    end
   end
 
   #
@@ -1133,67 +1338,82 @@ class Installer
   #
 
   def exec_install
+    rm_f 'InstalledFiles'
     exec_task_traverse 'install'
   end
 
   def install_dir_bin(rel)
-    install_files collect_filenames_auto(), "#{config('bin-dir')}/#{rel}", 0755
+    install_files targetfiles(), "#{config('bindir')}/#{rel}", 0755
   end
 
   def install_dir_lib(rel)
-    install_files ruby_scripts(), "#{config('rb-dir')}/#{rel}", 0644
+    install_files libfiles(), "#{config('rbdir')}/#{rel}", 0644
   end
 
   def install_dir_ext(rel)
     return unless extdir?(curr_srcdir())
-    install_files ruby_extentions('.'),
-                  "#{config('so-dir')}/#{File.dirname(rel)}",
+    install_files rubyextentions('.'),
+                  "#{config('sodir')}/#{File.dirname(rel)}",
                   0555
   end
 
   def install_dir_data(rel)
-    install_files collect_filenames_auto(), "#{config('data-dir')}/#{rel}", 0644
+    install_files targetfiles(), "#{config('datadir')}/#{rel}", 0644
+  end
+
+  def install_dir_conf(rel)
+    # FIXME: should not remove current config files
+    # (rename previous file to .old/.org)
+    install_files targetfiles(), "#{config('sysconfdir')}/#{rel}", 0644
+  end
+
+  def install_dir_man(rel)
+    install_files targetfiles(), "#{config('mandir')}/#{rel}", 0644
   end
 
   def install_files(list, dest, mode)
-    mkdir_p dest, @options['install-prefix']
+    mkdir_p dest, @config.install_prefix
     list.each do |fname|
-      install fname, dest, mode, @options['install-prefix']
+      install fname, dest, mode, @config.install_prefix
     end
   end
 
-  def ruby_scripts
-    collect_filenames_auto().select {|n| /\.rb\z/ =~ n }
+  def libfiles
+    glob_reject(%w(*.y *.output), targetfiles())
   end
-  
+
+  def rubyextentions(dir)
+    ents = glob_select("*.#{@config.dllext}", targetfiles())
+    if ents.empty?
+      setup_rb_error "no ruby extention exists: 'ruby #{$0} setup' first"
+    end
+    ents
+  end
+
+  def targetfiles
+    mapdir(existfiles() - hookfiles())
+  end
+
+  def mapdir(ents)
+    ents.map {|ent|
+      if File.exist?(ent)
+      then ent                         # objdir
+      else "#{curr_srcdir()}/#{ent}"   # srcdir
+      end
+    }
+  end
+
   # picked up many entries from cvs-1.11.1/src/ignore.c
-  reject_patterns = %w( 
+  JUNK_FILES = %w( 
     core RCSLOG tags TAGS .make.state
     .nse_depinfo #* .#* cvslog.* ,* .del-* *.olb
     *~ *.old *.bak *.BAK *.orig *.rej _$* *$
 
     *.org *.in .*
   )
-  mapping = {
-    '.' => '\.',
-    '$' => '\$',
-    '#' => '\#',
-    '*' => '.*'
-  }
-  REJECT_PATTERNS = Regexp.new('\A(?:' +
-                               reject_patterns.map {|pat|
-                                 pat.gsub(/[\.\$\#\*]/) {|ch| mapping[ch] }
-                               }.join('|') +
-                               ')\z')
-
-  def collect_filenames_auto
-    mapdir((existfiles() - hookfiles()).reject {|fname|
-             REJECT_PATTERNS =~ fname
-           })
-  end
 
   def existfiles
-    all_files_in(curr_srcdir()) | all_files_in('.')
+    glob_reject(JUNK_FILES, (files_of(curr_srcdir()) | files_of('.')))
   end
 
   def hookfiles
@@ -1202,27 +1422,49 @@ class Installer
     }.flatten
   end
 
-  def mapdir(filelist)
-    filelist.map {|fname|
-      if File.exist?(fname)   # objdir
-        fname
-      else                    # srcdir
-        File.join(curr_srcdir(), fname)
-      end
-    }
+  def glob_select(pat, ents)
+    re = globs2re([pat])
+    ents.select {|ent| re =~ ent }
   end
 
-  def ruby_extentions(dir)
-    _ruby_extentions(dir) or
-        raise InstallError, "no ruby extention exists: 'ruby #{$0} setup' first"
+  def glob_reject(pats, ents)
+    re = globs2re(pats)
+    ents.reject {|ent| re =~ ent }
   end
 
-  DLEXT = /\.#{ ::Config::CONFIG['DLEXT'] }\z/
+  GLOB2REGEX = {
+    '.' => '\.',
+    '$' => '\$',
+    '#' => '\#',
+    '*' => '.*'
+  }
 
-  def _ruby_extentions(dir)
-    Dir.open(dir) {|d|
-      return d.select {|fname| DLEXT =~ fname }
-    }
+  def globs2re(pats)
+    /\A(?:#{
+      pats.map {|pat| pat.gsub(/[\.\$\#\*]/) {|ch| GLOB2REGEX[ch] } }.join('|')
+    })\z/
+  end
+
+  #
+  # TASK test
+  #
+
+  TESTDIR = 'test'
+
+  def exec_test
+    unless File.directory?('test')
+      $stderr.puts 'no test in this package' if verbose?
+      return
+    end
+    $stderr.puts 'Running tests...' if verbose?
+    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
   end
 
   #
@@ -1231,53 +1473,51 @@ class Installer
 
   def exec_clean
     exec_task_traverse 'clean'
-    rm_f 'config.save'
+    rm_f @config.savefile
     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
-
   #
   # TASK distclean
   #
 
   def exec_distclean
     exec_task_traverse 'distclean'
-    rm_f 'config.save'
+    rm_f @config.savefile
     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
 
+  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
@@ -1290,7 +1530,7 @@ class Installer
     dive_into(rel) {
       run_hook "pre-#{task}"
       __send__ mid, rel.sub(%r[\A.*?(?:/|\z)], '')
-      all_dirs_in(curr_srcdir()).each do |d|
+      directories_of(curr_srcdir()).each do |d|
         traverse task, "#{rel}/#{d}", mid
       end
       run_hook "post-#{task}"
@@ -1312,17 +1552,31 @@ class Installer
     @currdir = File.dirname(rel)
   end
 
-end
+  def run_hook(id)
+    path = [ "#{curr_srcdir()}/#{id}",
+             "#{curr_srcdir()}/#{id}.rb" ].detect {|cand| File.file?(cand) }
+    return unless path
+    begin
+      instance_eval File.read(path), path, 1
+    rescue
+      raise if $DEBUG
+      setup_rb_error "hook #{path} failed:\n" + $!.message
+    end
+  end
+
+end   # class Installer
 
 
+class SetupError < StandardError; end
+
+def setup_rb_error(msg)
+  raise SetupError, msg
+end
+
 if $0 == __FILE__
   begin
-    if multipackage_install?
-      ToplevelInstallerMulti.invoke
-    else
-      ToplevelInstaller.invoke
-    end
-  rescue
+    ToplevelInstaller.invoke
+  rescue SetupError
     raise if $DEBUG
     $stderr.puts $!.message
     $stderr.puts "Try 'ruby #{$0} --help' for detailed usage."