diff --git a/ChangeLog b/ChangeLog index 8124f3bad9..2d502c60b1 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,22 @@ +Wed Feb 20 13:08:52 2008 Nobuyoshi Nakada + + * instruby.rb (parse_args): added --dir-mode, --script-mode and + --cmd-type options. [ruby-dev:33816] + + * instruby.rb (parse_args): added bin-arch and bin-comm to install + type, for compiled files and script files. + + * instruby.rb (parse_args): deal with make style command line macros, + and count as long syle options if prefixed with INSTALL_. + + * instruby.rb (makedirs): use $dir_mode. [ruby-dev:33805] + + * instruby.rb (open_for_install): set file mode, which is now + permission mode instead of access mode. + + * instruby.rb (bin-comm): installs scripts with replacing shebang + lines. + Wed Feb 20 10:04:22 2008 NAKAMURA Usaku * io.c (open_key_args): set arg->io even if no options passed. diff --git a/instruby.rb b/instruby.rb index 39c68681a4..3b24ca6eee 100755 --- a/instruby.rb +++ b/instruby.rb @@ -14,7 +14,7 @@ require 'tempfile' STDOUT.sync = true File.umask(0) -def parse_args() +def parse_args(argv = ARGV) $mantype = 'doc' $destdir = nil $extout = nil @@ -26,6 +26,10 @@ def parse_args() $rdocdir = nil $data_mode = 0644 $prog_mode = 0755 + $dir_mode = nil + $script_mode = nil + $cmdtype = ('bat' if File::ALT_SEPARATOR == '\\') + mflags = [] opt = OptionParser.new opt.on('-n') {$dryrun = true} opt.on('--dest-dir=DIR') {|dir| $destdir = dir} @@ -39,7 +43,7 @@ def parse_args() $mflags.concat(v) end opt.on('-i', '--install=TYPE', - [:local, :bin, :lib, :man, :ext, :"ext-arch", :"ext-comm", :rdoc]) do |ins| + [:local, :bin, :"bin-arch", :"bin-comm", :lib, :man, :ext, :"ext-arch", :"ext-comm", :rdoc]) do |ins| $install << ins end opt.on('--data-mode=OCTAL-MODE', OptionParser::OctalInteger) do |mode| @@ -48,20 +52,39 @@ def parse_args() opt.on('--prog-mode=OCTAL-MODE', OptionParser::OctalInteger) do |mode| $prog_mode = mode end + opt.on('--dir-mode=OCTAL-MODE', OptionParser::OctalInteger) do |mode| + $dir_mode = mode + end + opt.on('--script-mode=OCTAL-MODE', OptionParser::OctalInteger) do |mode| + $script_mode = mode + end opt.on('--installed-list [FILENAME]') {|name| $installed_list = name} opt.on('--rdoc-output [DIR]') {|dir| $rdocdir = dir} + opt.on('--cmd-type=TYPE', %w[bat cmd plain]) {|cmd| $cmdtype = (cmd unless cmd == 'plain')} - opt.parse! rescue abort [$!.message, opt].join("\n") + opt.order!(argv) do |v| + case v + when /\AINSTALL[-_]([-\w]+)=(.*)/ + argv.unshift("--#{$1.tr('_', '-')}=#{$2}") + when /\A\w[-\w+]*=\z/ + mflags << v + when /\A\w[-\w+]*\z/ + $install << v.intern + else + raise OptionParser::InvalidArgument, v + end + end rescue abort [$!.message, opt].join("\n") $make, *rest = Shellwords.shellwords($make) $mflags.unshift(*rest) unless rest.empty? + $mflags.unshift(*mflags) def $mflags.set?(flag) grep(/\A-(?!-).*#{'%s' % flag}/i) { return true } false end def $mflags.defined?(var) - grep(/\A#{var}=(.*)/) {return $1} + grep(/\A#{var}=(.*)/) {return block_given? ? yield($1) : $1} false end @@ -85,6 +108,9 @@ def parse_args() end $rdocdir ||= $mflags.defined?('RDOCOUT') + + $dir_mode ||= $prog_mode | 0700 + $script_mode ||= $prog_mode end parse_args() @@ -127,7 +153,7 @@ def makedirs(dirs) File.directory?(realdir) end end.compact! - super(dirs, :mode => $prog_mode) unless dirs.empty? + super(dirs, :mode => $dir_mode) unless dirs.empty? end def install_recursive(srcdir, dest, options = {}) @@ -159,9 +185,10 @@ end def open_for_install(path, mode, &block) unless $dryrun - open(with_destdir(path), mode, &block) + open(realpath = with_destdir(path), "wb", mode, &block) + File.chmod(mode, realpath) end - $installed_list.puts path if /^w/ =~ mode and $installed_list + $installed_list.puts path if $installed_list end def with_destdir(dir) @@ -194,7 +221,7 @@ dll = CONFIG["LIBRUBY_SO"] lib = CONFIG["LIBRUBY"] arc = CONFIG["LIBRUBY_A"] -install?(:local, :arch, :bin) do +install?(:local, :arch, :bin, :'bin-arch') do puts "installing binary commands" makedirs [bindir, libdir, archlibdir] @@ -256,47 +283,41 @@ install?(:rdoc) do end end -install?(:local, :comm, :bin) do +install?(:local, :comm, :bin, :'bin-comm') do puts "installing command scripts" Dir.chdir srcdir makedirs [bindir, rubylibdir] ruby_shebang = File.join(bindir, ruby_install_name) - if File::ALT_SEPARATOR - ruby_bin_dosish = ruby_shebang.tr(File::SEPARATOR, File::ALT_SEPARATOR) + if $cmdtype + ruby_bin = ruby_shebang.tr(File::SEPARATOR, File::ALT_SEPARATOR) end for src in Dir["bin/*"] next unless File.file?(src) next if /\/[.#]|(\.(old|bak|orig|rej|diff|patch|core)|~|\/core)$/i =~ src name = ruby_install_name.sub(/ruby/, File.basename(src)) - dest = File.join(bindir, name) - - install src, dest, :mode => $prog_mode - - next if $dryrun shebang = '' body = '' - open_for_install(dest, "r+") { |f| + open(src, "rb") do |f| shebang = f.gets body = f.read + end + shebang.sub!(/^\#!.*?ruby\b/) {"#!" + ruby_shebang} + shebang.sub!(/\r$/, '') + body.gsub!(/\r$/, '') - if shebang.sub!(/^\#!.*?ruby\b/) {"#!" + ruby_shebang} - f.rewind - f.print shebang, body - f.truncate(f.pos) - end - } - - if ruby_bin_dosish - batfile = File.join(bindir, name + ".bat") - open_for_install(batfile, "wb") {|b| - b.print((<