ruby-mp3info 0.6.16 → 0.7

data/test/test_ruby-mp3info.rb

@@ -1,5 +1,5 @@
-#!/usr/bin/env ruby1.9
-# coding:utf-8
+#!/usr/bin/env ruby
+# encoding: utf-8
 
 $:.unshift("lib/")
 
@@ -10,7 +10,7 @@ require "tempfile"
 require "zlib"
 require "yaml"
 
-system("which id3v2 > /dev/null") || raise("id3v2 not found")
+GOT_ID3V2 = system("which id3v2 > /dev/null")
 
 class Mp3InfoTest < Test::Unit::TestCase
 
@@ -36,20 +36,7 @@ class Mp3InfoTest < Test::Unit::TestCase
     "genre" => 233
   }
 
-  FIXTURES = YAML::load_file( File.join(File.dirname(__FILE__), "fixtures.yml") )
-
   def setup
-    # Command to create a gzip'ed dummy MP3
-    # $ dd if=/dev/zero bs=1024 count=15 | \
-    #   lame --quiet --preset cbr 128 -r -s 44.1 --bitwidth 16 - - | \
-    #   ruby -rbase64 -rzlib -ryaml -e 'print(Zlib::Deflate.deflate($stdin.read)'
-    # vbr:
-    # $ dd if=/dev/zero of=#{tempfile.path} bs=1024 count=30000 |
-    #     system("lame -h -v -b 112 -r -s 44.1 --bitwidth 16 - /tmp/vbr.mp3
-    @valid_mp3, @valid_mp3_2_2, @vbr_mp3 = %w{empty_mp3 2_2_tagged vbr}.collect do |fixture_key|
-      Zlib::Inflate.inflate(FIXTURES[fixture_key])
-    end
-                  
     @tag = {
       "title" => "title",
       "artist" => "artist",
@@ -60,7 +47,7 @@ class Mp3InfoTest < Test::Unit::TestCase
       "genre_s" => "Blues",
       "tracknum" => 36
     }
-    File.open(TEMP_FILE, "w") { |f| f.write(@valid_mp3) }
+    load_fixture_to_temp_file("empty_mp3")
   end
 
   def teardown
@@ -94,7 +81,7 @@ class Mp3InfoTest < Test::Unit::TestCase
   end
   
   def test_vbr_mp3_length
-    File.open(TEMP_FILE, "w") { |f| f.write(@vbr_mp3) }
+    load_fixture_to_temp_file("vbr")
 
     Mp3Info.open(TEMP_FILE) do |info|
       assert(info.vbr)
@@ -145,8 +132,7 @@ class Mp3InfoTest < Test::Unit::TestCase
 
   def id3_test(tag_str, valid_tag)
     tag = "TAG" + tag_str
-    File.open(TEMP_FILE, "w") do |f|
-      f.write(@valid_mp3)
+    File.open(TEMP_FILE, "a") do |f|
       f.write(tag)
     end
     assert(Mp3Info.hastag1?(TEMP_FILE))
@@ -156,7 +142,7 @@ class Mp3InfoTest < Test::Unit::TestCase
   end
 
   def test_removetag2
-    w = write_tag2_to_temp_file({"TIT2" => "sdfqdsf"})
+    w = write_tag2_to_temp_file("TIT2" => "sdfqdsf")
 
     assert( Mp3Info.hastag2?(TEMP_FILE) )
     Mp3Info.removetag2(TEMP_FILE)
@@ -200,7 +186,7 @@ class Mp3InfoTest < Test::Unit::TestCase
 
   def test_id3v2_version
     written_tag = write_tag2_to_temp_file(DUMMY_TAG2)
-    assert_equal( "2.#{ID3v2::WRITE_VERSION}.0", written_tag.version )
+    assert_equal( "2.3.0", written_tag.version )
   end
 
   def test_id3v2_methods
@@ -214,38 +200,42 @@ class Mp3InfoTest < Test::Unit::TestCase
   end
 
   def test_id3v2_basic
-    w = write_tag2_to_temp_file(DUMMY_TAG2)
-    assert_equal(DUMMY_TAG2, w)
-    id3v2_prog_test(DUMMY_TAG2, w)
+    written_tag = write_tag2_to_temp_file(DUMMY_TAG2)
+    assert_equal(DUMMY_TAG2, written_tag)
+    id3v2_prog_test(DUMMY_TAG2, written_tag)
   end
 
   #test the tag with the "id3v2" program
   def id3v2_prog_test(tag, written_tag)
-    return if RUBY_PLATFORM =~ /win32/
-    return if `which id3v2`.empty?
+    return unless GOT_ID3V2
     start = false
     id3v2_output = {}
-    `id3v2 -l #{TEMP_FILE}`.split(/\n/).each do |line|
+=begin
+    id3v2 tag info for test/test_mp3info.mp3:
+      COMM (Comments): (~)[ENG]: 
+      test/test_mp3info.mp3: No ID3v1 tag
+=end
+    raw_output = `id3v2 -l #{TEMP_FILE}`
+    raw_output.split(/\n/).each do |line|
       if line =~ /^id3v2 tag info/
         start = true 
 	next    
       end
       next unless start
-      k, v = /^(.{4}) \(.+\): (.+)$/.match(line)[1,2]
-      case k
-	#COMM (Comments): ()[spa]: fmg
-        when "COMM"
-	  v.sub!(/\(\)\[.{3}\]: (.+)/, '\1')
+      if match = /^(.{4}) \(.+\): (.+)$/.match(line)
+        k, v = match[1, 2]
+        case k
+          #COMM (Comments): ()[spa]: fmg
+          when "COMM"
+            v.sub!(/\(\)\[.{3}\]: (.+)/, '\1')
+        end
+        id3v2_output[k] = v
       end
-      id3v2_output[k] = v
     end
 
     assert_equal( id3v2_output, written_tag, "id3v2 program output doesn't match")
   end
 
-  def test_id3v2_trash
-  end
-
   def test_id3v2_complex
     tag = {}
     #ID3v2::TAGS.keys.each do |k|
@@ -262,16 +252,13 @@ class Mp3InfoTest < Test::Unit::TestCase
     assert_equal(tag, write_tag2_to_temp_file(tag))
   end
 
-  def test_infinite_loop_on_seek_to_v2_end
-    
-  end
-
   def test_leading_char_gets_chopped
     tag2 = DUMMY_TAG2.dup
     tag2["WOAR"] = "http://foo.bar"
     w = write_tag2_to_temp_file(tag2)
     assert_equal("http://foo.bar", w["WOAR"])
 
+    return unless GOT_ID3V2
     system(%(id3v2 --WOAR "http://foo.bar" "#{TEMP_FILE}"))
 
     Mp3Info.open(TEMP_FILE) do |mp3|
@@ -280,7 +267,7 @@ class Mp3InfoTest < Test::Unit::TestCase
   end
 
   def test_reading2_2_tags
-    File.open(TEMP_FILE, "w") { |f| f.write(@valid_mp3_2_2) }
+    load_fixture_to_temp_file("2_2_tagged")
 
     Mp3Info.open(TEMP_FILE) do |mp3|
       assert_equal "2.2.0", mp3.tag2.version
@@ -313,7 +300,8 @@ class Mp3InfoTest < Test::Unit::TestCase
   end
 
   def test_writing_universal_tag_from_2_2_tags
-    File.open(TEMP_FILE, "w") { |f| f.write(@valid_mp3_2_2) }
+    load_fixture_to_temp_file("2_2_tagged")
+
     Mp3Info.open(TEMP_FILE) do |mp3|
       mp3.tag.artist = "toto"
       mp3.tag.comments = "comments"
@@ -352,7 +340,7 @@ class Mp3InfoTest < Test::Unit::TestCase
       Mp3Info.open(fn) do |mp3|
         mp3.tag.title = fn
         mp3.flush
-        if RUBY_VERSION < "1.9.0"
+        if RUBY_VERSION[0..2] == "1.8"
           assert_equal fn, mp3.tag.title
         else
           assert_equal fn, mp3.tag.title.force_encoding("utf-8")
@@ -363,58 +351,6 @@ class Mp3InfoTest < Test::Unit::TestCase
     end
   end
 
-  def test_validity_of_id3v2_options
-    info = Mp3Info.new(TEMP_FILE)
-    expected_hash = { :lang => "ENG", :encoding => "iso-8859-1" }
-    assert_equal( expected_hash, info.tag2.options)
-
-    assert_raises(ArgumentError) do
-      Mp3Info.new(TEMP_FILE, :encoding => "bad encoding")
-    end
-  end
-
-  def test_encoding_read
-    Mp3Info.open(TEMP_FILE) do |mp3|
-      mp3.tag2['TEST'] = "all\xe9"
-    end
-
-    Mp3Info.open(TEMP_FILE, :encoding => "utf-8") do |mp3|
-      assert_equal "allé", mp3.tag2['TEST']
-    end
-
-    Mp3Info.open(TEMP_FILE, :encoding => "iso-8859-1") do |mp3|
-      if RUBY_VERSION < "1.9.0"
-        assert_equal "all\xe9", mp3.tag2['TEST']
-      else
-        assert_equal "all\xe9".force_encoding("binary"), mp3.tag2['TEST']
-      end
-    end
-  end
-
-  def test_encoding_write
-    Mp3Info.open(TEMP_FILE, :encoding => 'utf-8') do |mp3|
-      mp3.tag2['TEST'] = "all\xc3\xa9"
-    end
-
-    Mp3Info.open(TEMP_FILE, :encoding => "iso-8859-1") do |mp3|
-      if RUBY_VERSION < "1.9.0"
-        assert_equal "all\xe9", mp3.tag2['TEST']
-      else
-        assert_equal "all\xe9".force_encoding("iso-8859-1"), mp3.tag2['TEST']
-      end
-    end
-  end
-
-=begin
-  def test_should_raises_exception_when_writing_badly_encoded_frames
-    assert_raises(Iconv::Failure) do 
-      Mp3Info.open(TEMP_FILE, :encoding => 'utf-8') do |mp3|
-	mp3.tag2['TEST'] = "all\xc3"
-      end
-    end
-  end
-=end
-
   def test_audio_content
     require "digest/md5"
 
@@ -441,7 +377,7 @@ class Mp3InfoTest < Test::Unit::TestCase
   end
 
   def test_audio_content_problematic
-    File.open(TEMP_FILE, "w") { |f| f.write(FIXTURES["audio_content_fixture"]) }
+    load_fixture_to_temp_file("audio_content_fixture", false)
     Mp3Info.open(TEMP_FILE) do |mp3|
       expected_pos = 150
       audio_content_pos, audio_content_size = mp3.audio_content
@@ -452,9 +388,7 @@ class Mp3InfoTest < Test::Unit::TestCase
 
   def test_headerless_vbr_file
     mp3_length = 3
-    # this will generate a 15 sec mp3 file (44100hz*16bit*2channels) = 60/4 = 15
-    system("dd if=/dev/urandom bs=44100 count=#{mp3_length*4}  2>/dev/null | \
-            lame -v -m s --vbr-new --preset 128 -r -s 44.1 --bitwidth 16 - -  > #{TEMP_FILE} 2>/dev/null")
+    load_fixture_to_temp_file("small_vbr_mp3")
 
     Mp3Info.open(TEMP_FILE) do |mp3|
       assert mp3.vbr
@@ -555,6 +489,29 @@ class Mp3InfoTest < Test::Unit::TestCase
     io
   end
 
+  FIXTURES = YAML::load_file( File.join(File.dirname(__FILE__), "fixtures.yml") )
+
+  def load_fixture_to_temp_file(fixture_key, zlibed = true)
+    # Command to create a gzip'ed dummy MP3
+    # $ dd if=/dev/zero bs=1024 count=15 | \
+    #   lame --quiet --preset cbr 128 -r -s 44.1 --bitwidth 16 - - | \
+    #   ruby -rbase64 -rzlib -ryaml -e 'print(Zlib::Deflate.deflate($stdin.read)'
+    # vbr:
+    # $ dd if=/dev/zero of=#{tempfile.path} bs=1024 count=30000 |
+    #     system("lame -h -v -b 112 -r -s 44.1 --bitwidth 16 - /tmp/vbr.mp3
+    #
+    # this will generate a #{mp3_length} sec mp3 file (44100hz*16bit*2channels) = 60/4 = 15
+    # system("dd if=/dev/urandom bs=44100 count=#{mp3_length*4}  2>/dev/null | \
+    #        lame -v -m s --vbr-new --preset 128 -r -s 44.1 --bitwidth 16 - -  > #{TEMP_FILE} 2>/dev/null")
+    content = FIXTURES[fixture_key]
+    if zlibed
+      content = Zlib::Inflate.inflate(content)
+    end
+
+    File.open(TEMP_FILE, "w") do |f| 
+      f.write(content)
+    end
+  end
 =begin
 
   def test_encoder

metadata

@@ -1,94 +1,86 @@
---- !ruby/object:Gem::Specification 
+--- !ruby/object:Gem::Specification
 name: ruby-mp3info
-version: !ruby/object:Gem::Version 
-  hash: 39
+version: !ruby/object:Gem::Version
+  version: '0.7'
   prerelease: 
-  segments: 
-  - 0
-  - 6
-  - 16
-  version: 0.6.16
 platform: ruby
-authors: 
+authors:
 - Guillaume Pierronnet
 autorequire: 
 bindir: bin
 cert_chain: []
-
-date: 2011-11-10 00:00:00 Z
-dependencies: 
-- !ruby/object:Gem::Dependency 
-  name: hoe
+date: 2012-03-02 00:00:00.000000000 +01:00
+default_executable: 
+dependencies:
+- !ruby/object:Gem::Dependency
+  name: rdoc
+  requirement: &79955210 !ruby/object:Gem::Requirement
+    none: false
+    requirements:
+    - - ~>
+      - !ruby/object:Gem::Version
+        version: '3.10'
+  type: :development
   prerelease: false
-  requirement: &id001 !ruby/object:Gem::Requirement 
+  version_requirements: *79955210
+- !ruby/object:Gem::Dependency
+  name: hoe
+  requirement: &79954780 !ruby/object:Gem::Requirement
     none: false
-    requirements: 
+    requirements:
     - - ~>
-      - !ruby/object:Gem::Version 
-        hash: 23
-        segments: 
-        - 2
-        - 10
-        version: "2.10"
+      - !ruby/object:Gem::Version
+        version: '2.12'
   type: :development
-  version_requirements: *id001
-description: |-
-  ruby-mp3info read low-level informations and manipulate tags on
-  mp3 files.
-email: 
-- moumar@rubyforge.org
-executables: []
+  prerelease: false
+  version_requirements: *79954780
+description: ! 'ruby-mp3info read low-level informations and manipulate tags on
 
+  mp3 files.'
+email:
+- guillaume.pierronnet@gmail.com
+executables: []
 extensions: []
-
-extra_rdoc_files: 
+extra_rdoc_files:
 - History.txt
 - Manifest.txt
 - README.txt
-files: 
+files:
 - History.txt
 - Manifest.txt
 - README.txt
 - Rakefile
-- install.rb
 - lib/mp3info.rb
 - lib/mp3info/extension_modules.rb
 - lib/mp3info/id3v2.rb
 - test/test_ruby-mp3info.rb
 - .gemtest
+has_rdoc: true
 homepage: http://github.com/moumar/ruby-mp3info
 licenses: []
-
 post_install_message: 
-rdoc_options: 
+rdoc_options:
 - --main
 - README.txt
-require_paths: 
+require_paths:
 - lib
-required_ruby_version: !ruby/object:Gem::Requirement 
+required_ruby_version: !ruby/object:Gem::Requirement
   none: false
-  requirements: 
-  - - ">="
-    - !ruby/object:Gem::Version 
-      hash: 3
-      segments: 
-      - 0
-      version: "0"
-required_rubygems_version: !ruby/object:Gem::Requirement 
+  requirements:
+  - - ! '>='
+    - !ruby/object:Gem::Version
+      version: '0'
+required_rubygems_version: !ruby/object:Gem::Requirement
   none: false
-  requirements: 
-  - - ">="
-    - !ruby/object:Gem::Version 
-      hash: 3
-      segments: 
-      - 0
-      version: "0"
+  requirements:
+  - - ! '>='
+    - !ruby/object:Gem::Version
+      version: '0'
 requirements: []
-
 rubyforge_project: ruby-mp3info
-rubygems_version: 1.8.10
+rubygems_version: 1.6.2
 signing_key: 
 specification_version: 3
 summary: ruby-mp3info read low-level informations and manipulate tags on mp3 files.
-test_files: 
+test_files:
 - test/test_ruby-mp3info.rb

data/install.rb

@@ -1,1022 +0,0 @@
-#
-# This file is automatically generated. DO NOT MODIFY!
-#
-# install.rb
-#
-#   Copyright (c) 2000-2002 Minero Aoki <aamine@loveruby.net>
-#
-#   This program is free software.
-#   You can distribute/modify this program under the terms of
-#   the GNU Lesser General Public License version 2.
-#
-
-### begin compat.rb
-
-unless Enumerable.instance_methods.include? 'inject'
-module Enumerable
-  def inject( result )
-    each do |i|
-      result = yield(result, i)
-    end
-    result
-  end
-end
-end
-
-def File.read_all( fname )
-  File.open(fname, 'rb') {|f| return f.read }
-end
-
-def File.write( fname, str )
-  File.open(fname, 'wb') {|f| f.write str }
-end
-
-### end compat.rb
-### begin config.rb
-
-if i = ARGV.index(/\A--rbconfig=/)
-  file = $'
-  ARGV.delete_at(i)
-  require file
-else
-  require 'rbconfig'
-end
-
-
-class ConfigTable
-
-  c = ::Config::CONFIG
-
-  rubypath = c['bindir'] + '/' + c['ruby_install_name']
-
-  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)))))
-  
-  re = Regexp.new('\A' + Regexp.quote(c['prefix']))
-  subprefix = lambda {|path|
-      re === path and path.sub(re, '$prefix')
-  }
-
-  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
-
-  DESCRIPTER = [
-    [ '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', [ 'make',
-                     'name',
-                     'the make program to compile ruby extentions' ] ],
-    [ 'without-ext', [ 'no',
-                       'yes/no',
-                       'does not compile/install ruby extentions' ] ]
-  ]
-
-  SAVE_FILE = 'config.save'
-
-  def ConfigTable.each_name( &block )
-    keys().each(&block)
-  end
-
-  def ConfigTable.keys
-    DESCRIPTER.collect {|k,*dummy| k }
-  end
-
-  def ConfigTable.each_definition( &block )
-    DESCRIPTER.each(&block)
-  end
-
-  def ConfigTable.get_entry( name )
-    name, ent = DESCRIPTER.assoc(name)
-    ent
-  end
-
-  def ConfigTable.get_entry!( name )
-    get_entry(name) or raise ArgumentError, "no such config: #{name}"
-  end
-
-  def ConfigTable.add_entry( name, vals )
-    ConfigTable::DESCRIPTER.push [name,vals]
-  end
-
-  def ConfigTable.remove_entry( name )
-    get_entry name or raise ArgumentError, "no such config: #{name}"
-    DESCRIPTER.delete_if {|n,arr| n == name }
-  end
-
-  def ConfigTable.config_key?( name )
-    get_entry(name) ? true : false
-  end
-
-  def ConfigTable.bool_config?( name )
-    ent = get_entry(name) or return false
-    ent[1] == 'yes/no'
-  end
-
-  def ConfigTable.value_config?( name )
-    ent = get_entry(name) or return false
-    ent[1] != 'yes/no'
-  end
-
-  def ConfigTable.path_config?( name )
-    ent = get_entry(name) or return false
-    ent[1] == 'path'
-  end
-
-
-  class << self
-
-    alias newobj new
-
-    def new
-      c = newobj()
-      c.__send__ :init
-      c
-    end
-
-    def load
-      c = newobj()
-      raise InstallError, "#{File.basename $0} config first"\
-                                      unless File.file? SAVE_FILE
-      File.foreach(SAVE_FILE) do |line|
-        k, v = line.split(/=/, 2)
-        c.instance_eval {
-            @table[k] = v.strip
-        }
-      end
-      c
-    end
-  
-  end
-
-  def initialize
-    @table = {}
-  end
-
-  def init
-    DESCRIPTER.each do |k, (default, vname, desc, default2)|
-      @table[k] = default
-    end
-  end
-  private :init
-
-  def save
-    File.open(SAVE_FILE, 'w') {|f|
-        @table.each do |k, v|
-          f.printf "%s=%s\n", k, v if v
-        end
-    }
-  end
-
-  def []=( k, v )
-    ConfigTable.config_key? k or raise InstallError, "unknown config option #{k}"
-    if ConfigTable.path_config? k
-      @table[k] = (v[0,1] != '$') ? File.expand_path(v) : v
-    else
-      @table[k] = v
-    end
-  end
-    
-  def []( key )
-    @table[key] or return nil
-    @table[key].gsub(%r<\$([^/]+)>) { self[$1] }
-  end
-
-  def set_raw( key, val )
-    @table[key] = val
-  end
-
-  def get_raw( key )
-    @table[key]
-  end
-
-end
-
-
-class MetaConfigEnvironment
-
-  def self.eval_file( file )
-    return unless File.file? file
-    new.instance_eval File.read_all(file), file, 1
-  end
-
-  private
-
-  def config_names
-    ConfigTable.keys
-  end
-
-  def config?( name )
-    ConfigTable.config_key? name
-  end
-
-  def bool_config?( name )
-    ConfigTable.bool_config? name
-  end
-
-  def value_config?( name )
-    ConfigTable.value_config? name
-  end
-
-  def path_config?( name )
-    ConfigTable.path_config? name
-  end
-
-  def add_config( name, argname, default, desc )
-    ConfigTable.add_entry name,[default,argname,desc]
-  end
-
-  def add_path_config( name, default, desc )
-    add_config name, 'path', default, desc
-  end
-
-  def add_bool_config( name, default, desc )
-    add_config name, 'yes/no', default ? 'yes' : 'no', desc
-  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
-    end
-  end
-
-  def remove_config( name )
-    ent = ConfigTable.get_entry(name)
-    ConfigTable.remove_entry name
-    ent
-  end
-
-end
-
-### end config.rb
-### begin fileop.rb
-
-module FileOperations
-
-  def mkdir_p( dname, prefix = nil )
-    dname = prefix + dname if prefix
-    $stderr.puts "mkdir -p #{dname}" if verbose?
-    return if no_harm?
-
-    # does not check '/'... it's too abnormal case
-    dirs = dname.split(%r<(?=/)>)
-    if /\A[a-z]:\z/i === dirs[0]
-      disk = dirs.shift
-      dirs[0] = disk + dirs[0]
-    end
-    dirs.each_index do |idx|
-      path = dirs[0..idx].join('')
-      Dir.mkdir path unless dir? path
-    end
-  end
-
-  def rm_f( fname )
-    $stderr.puts "rm -f #{fname}" if verbose?
-    return if no_harm?
-
-    if File.exist? fname or File.symlink? fname
-      File.chmod 0777, fname
-      File.unlink fname
-    end
-  end
-
-  def rm_rf( dn )
-    $stderr.puts "rm -rf #{dn}" if verbose?
-    return if no_harm?
-
-    Dir.chdir dn
-    Dir.foreach('.') do |fn|
-      next if fn == '.'
-      next if fn == '..'
-      if dir? fn
-        verbose_off {
-            rm_rf fn
-        }
-      else
-        verbose_off {
-            rm_f fn
-        }
-      end
-    end
-    Dir.chdir '..'
-    Dir.rmdir dn
-  end
-
-  def mv( src, dest )
-    rm_f dest
-    begin
-      File.link src, dest
-    rescue
-      File.write dest, File.read_all(src)
-      File.chmod File.stat(src).mode, dest
-    end
-    rm_f src
-  end
-
-  def install( from, dest, mode, prefix = nil )
-    $stderr.puts "install #{from} #{dest}" if verbose?
-    return if no_harm?
-
-    realdest = prefix + dest if prefix
-    if dir? realdest
-      realdest += '/' + File.basename(from)
-    end
-    str = File.read_all(from)
-    if diff? str, realdest
-      verbose_off {
-          rm_f realdest if File.exist? realdest
-      }
-      File.write realdest, str
-      File.chmod mode, realdest
-
-      File.open(objdir + '/InstalledFiles', 'a') {|f| f.puts realdest }
-    end
-  end
-
-  def diff?( orig, targ )
-    return true unless File.exist? targ
-    orig != File.read_all(targ)
-  end
-
-  def command( str )
-    $stderr.puts str if verbose?
-    system str or raise RuntimeError, "'system #{str}' failed"
-  end
-
-  def ruby( str )
-    command config('ruby-prog') + ' ' + str
-  end
-
-  def dir?( dname )
-    # for corrupted windows stat()
-    File.directory?((dname[-1,1] == '/') ? dname : dname + '/')
-  end
-
-  def all_files( dname )
-    Dir.open(dname) {|d|
-        return d.find_all {|n| File.file? "#{dname}/#{n}" }
-    }
-  end
-
-  def all_dirs( dname )
-    Dir.open(dname) {|d|
-        return d.find_all {|n| dir? "#{dname}/#{n}" } - %w(. ..)
-    }
-  end
-
-end
-
-### end fileop.rb
-### begin base.rb
-
-class InstallError < StandardError; end
-
-
-class Installer
-
-  Version   = '3.1.3'
-  Copyright = 'Copyright (c) 2000-2002 Minero Aoki'
-
-
-  @toplevel = nil
-
-  def self.declear_toplevel_installer( inst )
-    @toplevel and
-        raise ArgumentError, 'more than one toplevel installer decleared'
-    @toplevel = inst
-  end
-
-  def self.toplevel_installer
-    @toplevel
-  end
-
-
-  FILETYPES = %w( bin lib ext data )
-
-  include FileOperations
-
-  def initialize( config, opt, srcroot, objroot )
-    @config = config
-    @options = opt
-    @srcdir = File.expand_path(srcroot)
-    @objdir = File.expand_path(objroot)
-    @currdir = '.'
-  end
-
-  def inspect
-    "#<#{self.class} #{__id__}>"
-  end
-
-  #
-  # configs/options
-  #
-
-  def get_config( key )
-    @config[key]
-  end
-
-  alias config get_config
-
-  def set_config( key, val )
-    @config[key] = val
-  end
-
-  def no_harm?
-    @options['no-harm']
-  end
-
-  def verbose?
-    @options['verbose']
-  end
-
-  def verbose_off
-    save, @options['verbose'] = @options['verbose'], false
-    yield
-    @options['verbose'] = save
-  end
-
-  #
-  # srcdir/objdir
-  #
-
-  attr_reader :srcdir
-  alias srcdir_root srcdir
-  alias package_root srcdir
-
-  def curr_srcdir
-    "#{@srcdir}/#{@currdir}"
-  end
-
-  attr_reader :objdir
-  alias objdir_root objdir
-
-  def curr_objdir
-    "#{@objdir}/#{@currdir}"
-  end
-
-  def srcfile( path )
-    curr_srcdir + '/' + path
-  end
-
-  def srcexist?( path )
-    File.exist? srcfile(path)
-  end
-
-  def srcdirectory?( path )
-    dir? srcfile(path)
-  end
-  
-  def srcfile?( path )
-    File.file? srcfile(path)
-  end
-
-  def srcentries( path = '.' )
-    Dir.open(curr_srcdir + '/' + path) {|d|
-        return d.to_a - %w(. ..) - hookfilenames
-    }
-  end
-
-  def srcfiles( path = '.' )
-    srcentries(path).find_all {|fname|
-        File.file? File.join(curr_srcdir, path, fname)
-    }
-  end
-
-  def srcdirectories( path = '.' )
-    srcentries(path).find_all {|fname|
-        dir? File.join(curr_srcdir, path, fname)
-    }
-  end
-
-  def dive_into( rel )
-    return unless dir? "#{@srcdir}/#{rel}"
-
-    dir = File.basename(rel)
-    Dir.mkdir dir unless dir? dir
-    save = Dir.pwd
-    Dir.chdir dir
-    $stderr.puts '---> ' + rel if verbose?
-    @currdir = rel
-    yield
-    Dir.chdir save
-    $stderr.puts '<--- ' + rel if verbose?
-    @currdir = File.dirname(rel)
-  end
-
-  #
-  # config
-  #
-
-  def exec_config
-    exec_task_traverse 'config'
-  end
-
-  def config_dir_bin( rel )
-  end
-
-  def config_dir_lib( rel )
-  end
-
-  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
-
-  def config_dir_data( rel )
-  end
-
-  #
-  # setup
-  #
-
-  def exec_setup
-    exec_task_traverse 'setup'
-  end
-
-  def setup_dir_bin( relpath )
-    all_files(curr_srcdir).each do |fname|
-      add_rubypath "#{curr_srcdir}/#{fname}"
-    end
-  end
-
-  SHEBANG_RE = /\A\#!\s*\S*ruby\S*/
-
-  def add_rubypath( path )
-    $stderr.puts %Q<set #! line to "\#!#{config('ruby-path')}" for #{path} ...> if verbose?
-    return if no_harm?
-
-    tmpfile = File.basename(path) + '.tmp'
-    begin
-      File.open(path) {|r|
-      File.open(tmpfile, 'w') {|w|
-          first = r.gets
-          return unless SHEBANG_RE === first   # reject '/usr/bin/env ruby'
-
-          w.print first.sub(SHEBANG_RE, '#!' + config('ruby-path'))
-          w.write r.read
-      } }
-      mv tmpfile, File.basename(path)
-    ensure
-      rm_f tmpfile if File.exist? tmpfile
-    end
-  end
-
-  def setup_dir_lib( relpath )
-  end
-
-  def setup_dir_ext( relpath )
-    make if extdir?(curr_srcdir)
-  end
-
-  def make
-    command config('make-prog')
-  end
-
-  def setup_dir_data( relpath )
-  end
-
-  #
-  # install
-  #
-
-  def exec_install
-    exec_task_traverse 'install'
-  end
-
-  def install_dir_bin( rel )
-    install_files targfiles, config('bin-dir') + '/' + rel, 0755
-  end
-
-  def install_dir_lib( rel )
-    install_files targfiles, config('rb-dir') + '/' + rel, 0644
-  end
-
-  def install_dir_ext( rel )
-    install_dir_ext_main File.dirname(rel) if extdir?(curr_srcdir)
-  end
-
-  def install_dir_ext_main( rel )
-    install_files allext('.'), config('so-dir') + '/' + rel, 0555
-  end
-
-  def install_dir_data( rel )
-    install_files targfiles, config('data-dir') + '/' + rel, 0644
-  end
-
-  def install_files( list, dest, mode )
-    mkdir_p dest, @options['install-prefix']
-    list.each do |fname|
-      install fname, dest, mode, @options['install-prefix']
-    end
-  end
-  
-  def targfiles
-    (targfilenames() - hookfilenames()).collect {|fname|
-        File.exist?(fname) ? fname : File.join(curr_srcdir(), fname)
-    }
-  end
-
-  def targfilenames
-    [ curr_srcdir(), '.' ].inject([]) {|ret, dir|
-        ret | all_files(dir)
-    }
-  end
-
-  def hookfilenames
-    %w( pre-%s post-%s pre-%s.rb post-%s.rb ).collect {|fmt|
-        %w( config setup install clean ).collect {|t| sprintf fmt, t }
-    }.flatten
-  end
-
-  def allext( dir )
-    _allext(dir) or raise InstallError,
-        "no extention exists: Have you done 'ruby #{$0} setup' ?"
-  end
-
-  DLEXT = /\.#{ ::Config::CONFIG['DLEXT'] }\z/
-
-  def _allext( dir )
-    Dir.open(dir) {|d|
-        return d.find_all {|fname| DLEXT === fname }
-    }
-  end
-
-  #
-  # clean
-  #
-
-  def exec_clean
-    exec_task_traverse 'clean'
-    rm_f 'config.save'
-    rm_f 'InstalledFiles'
-  end
-
-  def clean_dir_bin( rel )
-  end
-
-  def clean_dir_lib( rel )
-  end
-
-  def clean_dir_ext( rel )
-    clean
-  end
-  
-  def clean
-    command config('make-prog') + ' clean' if File.file? 'Makefile'
-  end
-
-  def clean_dir_data( rel )
-  end
-
-  #
-  # lib
-  #
-
-  def exec_task_traverse( task )
-    run_hook 'pre-' + task
-    FILETYPES.each do |type|
-      if config('without-ext') == 'yes' and type == 'ext'
-        $stderr.puts 'skipping ext/* by user option' if verbose?
-        next
-      end
-      traverse task, type, task + '_dir_' + type
-    end
-    run_hook 'post-' + task
-  end
-
-  def traverse( task, rel, mid )
-    dive_into(rel) {
-        run_hook 'pre-' + task
-        __send__ mid, rel.sub(%r_\A.*?(?:/|\z)_, '')
-        all_dirs(curr_srcdir).each do |d|
-          traverse task, rel + '/' + d, mid
-        end
-        run_hook 'post-' + task
-    }
-  end
-
-  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
-
-    env = self.dup
-    begin
-      env.instance_eval File.read_all(fname), fname, 1
-    rescue
-      raise InstallError, "hook #{fname} failed:\n" + $!.message
-    end
-    true
-  end
-
-  def extdir?( dir )
-    File.exist? dir + '/MANIFEST'
-  end
-
-end
-
-### end base.rb
-### begin toplevel.rb
-
-class ToplevelInstaller < Installer
-
-  TASKS = [
-    [ 'config',   'saves your configurations' ],
-    [ 'show',     'shows current configuration' ],
-    [ 'setup',    'compiles extention or else' ],
-    [ 'install',  'installs files' ],
-    [ 'clean',    "does `make clean' for each extention" ]
-  ]
-
-
-  def initialize( root )
-    super nil, {'verbose' => true}, root, '.'
-    Installer.declear_toplevel_installer self
-  end
-
-
-  def execute
-    run_metaconfigs
-
-    case task = parsearg_global()
-    when 'config'
-      @config = ConfigTable.new
-    else
-      @config = ConfigTable.load
-    end
-    parsearg_TASK task
-
-    exectask task
-  end
-
-
-  def run_metaconfigs
-    MetaConfigEnvironment.eval_file "#{srcdir_root()}/#{metaconfig()}"
-  end
-
-  def metaconfig
-    'metaconfig'
-  end
-
-
-  def exectask( task )
-    if task == 'show'
-      exec_show
-    else
-      try task
-    end
-  end
-
-  def try( task )
-    $stderr.printf "#{File.basename $0}: entering %s phase...\n", task if verbose?
-    begin
-      __send__ 'exec_' + task
-    rescue
-      $stderr.printf "%s failed\n", task
-      raise
-    end
-    $stderr.printf "#{File.basename $0}: %s done.\n", task if verbose?
-  end
-
-  #
-  # processing arguments
-  #
-
-  def parsearg_global
-    task_re = /\A(?:#{TASKS.collect {|i| i[0] }.join '|'})\z/
-
-    while arg = ARGV.shift
-      case arg
-      when /\A\w+\z/
-        task_re === arg or raise InstallError, "wrong task: #{arg}"
-        return arg
-
-      when '-q', '--quiet'
-        @options['verbose'] = false
-
-      when       '--verbose'
-        @options['verbose'] = true
-
-      when '-h', '--help'
-        print_usage $stdout
-        exit 0
-
-      when '-v', '--version'
-        puts "#{File.basename $0} version #{Version}"
-        exit 0
-      
-      when '--copyright'
-        puts Copyright
-        exit 0
-
-      else
-        raise InstallError, "unknown global option '#{arg}'"
-      end
-    end
-
-    raise InstallError, "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)
-"
-  end
-
-
-  def parsearg_TASK( task )
-    mid = "parsearg_#{task}"
-    if respond_to? mid, true
-      __send__ mid
-    else
-      ARGV.empty? or
-          raise InstallError, "#{task}:  unknown options: #{ARGV.join ' '}"
-    end
-  end
-
-  def parsearg_config
-    re = /\A--(#{ConfigTable.keys.join '|'})(?:=(.*))?\z/
-    @options['config-opt'] = []
-
-    while i = ARGV.shift
-      if /\A--?\z/ === i
-        @options['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)
-          /\A(y(es)?|n(o)?|t(rue)?|f(alse))\z/i === value or raise InstallError, "config: --#{name} allows only yes/no for argument"
-          value = (/\Ay(es)?|\At(rue)/i === value) ? 'yes' : 'no'
-        end
-      else
-        ConfigTable.bool_config?(name) or raise InstallError, "config: --#{name} requires argument"
-        value = 'yes'
-      end
-      @config[name] = value
-    end
-  end
-
-  def parsearg_install
-    @options['no-harm'] = false
-    @options['install-prefix'] = ''
-    while a = ARGV.shift
-      case a
-      when /\A--no-harm\z/
-        @options['no-harm'] = true
-      when /\A--prefix=(.*)\z/
-        path = $1
-        path = File.expand_path(path) unless path[0,1] == '/'
-        @options['install-prefix'] = path
-      else
-        raise InstallError, "install: unknown option #{a}"
-      end
-    end
-  end
-
-
-  def print_usage( out )
-    out.puts 'Typical Installation Procedure:'
-    out.puts "  $ ruby #{File.basename $0} config"
-    out.puts "  $ ruby #{File.basename $0} setup"
-    out.puts "  # ruby #{File.basename $0} install (may require root privilege)"
-    out.puts
-    out.puts 'Detailed Usage:'
-    out.puts "  ruby #{File.basename $0} <global option>"
-    out.puts "  ruby #{File.basename $0} [<global options>] <task> [<task options>]"
-
-    fmt = "  %-20s %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, '   --copyright',  'print copyright and quit'
-
-    out.puts
-    out.puts 'Tasks:'
-    TASKS.each do |name, desc|
-      out.printf "  %-10s  %s\n", name, desc
-    end
-
-    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
-    end
-    out.printf "  %-20s %s [%s]\n",
-        '--rbconfig=path', 'your 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
-  end
-
-  #
-  # config
-  #
-
-  def exec_config
-    super
-    @config.save
-  end
-
-  #
-  # show
-  #
-
-  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
-    end
-  end
-
-end
-
-### end toplevel.rb
-
-if $0 == __FILE__
-  begin
-    installer = ToplevelInstaller.new(File.dirname($0))
-    installer.execute
-  rescue
-    raise if $DEBUG
-    $stderr.puts $!.message
-    $stderr.puts "Try 'ruby #{$0} --help' for detailed usage."
-    exit 1
-  end
-end