[ruby-dev:15873] Re: syscall

なかだです。

At Sun, 10 Feb 2002 00:17:32 +0900,
Tanaka Akira <[e-mail]> wrote:
> > > とりあえずroughに入れてみるのはどうでしょうか？
> > 
> > うーんと、どうすればいいんでしたっけ。
> 
> patch を単体で cvs にいれても面白くない気がしますが。

mksyscall.rbとsyscall.rbのインストーラということでは。とりあえ
ず、こんなのでもなんとかなるかもしれません。

$ ruby mksyscall.rb --site-install

> やるんなら branch では?

もちろん、それでもいいんですが。


--- mksyscall.rb.old	Thu Feb  7 11:31:08 2002
+++ mksyscall.rb	Sun Feb 10 01:28:17 2002
@@ -2,4 +2,5 @@
 
 require 'mkmf'
+require 'getoptlong'
 
 class Syscall < Hash
@@ -87,8 +88,38 @@ SRC
 end
 
-case ARGV.size
-when 0, 1
-else
-  STDERR.print "usage: #{$0} [output]\n"
+destdir = nil
+output = nil
+default = 'syscall.rb'
+HELP = <<HELP
+usage: #{File.basename($0)} [options] [output file]
+  --destdir=DESTDIR, -dDESTDIR  prefix to output.
+  --install                     install to standard library.
+  --site-install                install to site-local library.
+  --help, -h                    show this message
+HELP
+begin
+  GetoptLong.new(['--destdir', '-d', GetoptLong::REQUIRED_ARGUMENT],
+		 ['--install', GetoptLong::OPTIONAL_ARGUMENT],
+		 ['--site-install', GetoptLong::OPTIONAL_ARGUMENT],
+		 ['--help', '-h', GetoptLong::NO_ARGUMENT]).each do |opt, arg|
+    case opt
+    when '--destdir'
+      destdir = arg.chomp("/")
+    when '--install'
+      output = File.join(Config::CONFIG['archdir'], arg)
+    when '--site-install'
+      output = File.join(Config::CONFIG['sitearchdir'], arg)
+    when '--help'
+      print HELP
+      exit
+    end
+  end
+rescue StandardError
+  exit 1
+end
+
+output ||= ARGV.shift
+unless ARGV.empty?
+  STDERR.print HELP
   exit 1
 end
@@ -101,5 +132,9 @@ rescue NotImplementedError
 end
 
-if output = ARGV.shift
+if output
+  output = File.join(destdir, output) if destdir
+  output = File.join(output, default) if output[-1] == ?/ or File.directory?(output)
+  require 'ftools'
+  File.makedirs(File.dirname(output))
   open(output, "w") {|f| syscalls.write_to(f)}
 else


-- 
--- 僕の前にBugはない。
--- 僕の後ろにBugはできる。
    中田 伸悦