[ruby-dev:20723] [PATCH] extmk.rb & mkmf.rb

なかだです。

ext/extmk.rbとlib/mkmf.rbに対するパッチです。

(1) http://jarp.jin.gr.jp/diary/200307b.html#200307162 でも指摘
    されているように、ファイルが増減したりdependが変更されたと
    きにはMakefileを作り直す必要がある

(2) $INSTALLFILESはglobbingしているので、extconff.rb実行時に存
    ないmake後に作られるファイルは指定できない

(3) fileutils.rbを使うようにしてみた

(4) DLDFLAGSに$LDFLAGSは不要 [ruby-dev:20512]


Index: lib/mkmf.rb
===================================================================
RCS file: /cvs/ruby/src/ruby/lib/mkmf.rb,v
retrieving revision 1.135
diff -u -2 -p -r1.135 mkmf.rb
--- lib/mkmf.rb	3 Jul 2003 11:07:55 -0000	1.135
+++ lib/mkmf.rb	17 Jul 2003 01:14:04 -0000
@@ -3,4 +3,5 @@
 
 require 'rbconfig'
+require 'fileutils'
 require 'shellwords'
 
@@ -106,23 +107,11 @@ end
 
 def rm_f(*files)
-  targets = []
-  for file in files
-    targets.concat Dir[file]
-  end
-  if not targets.empty?
-    File::chmod(0777, *targets)
-    File::unlink(*targets)
-  end
+  FileUtils.rm_f(Dir[files.join("\0")])
 end
 
-def older(target, *files)
-  mtime = proc do |f|
-    Time === f ? f : f.respond_to?(:mtime) ? f.mtime : File.mtime(f) rescue nil
-  end
-  t = mtime[target] or return true
-  for f in files
-    return true if t < (mtime[f] or next)
-  end
-  false
+def modified?(target, times)
+  (t = File.mtime(target)) rescue return nil
+  Array === times or times = [times]
+  t if times.all? {|n| n <= t}
 end
 
@@ -340,4 +321,5 @@ def install_files(mfile, ifiles, map = n
       len = srcdir.size
     end
+    f = nil
     Dir.glob(files) do |f|
       f[0..len] = "" if len
@@ -348,4 +330,10 @@ def install_files(mfile, ifiles, map = n
       path[d] << f
     end
+    unless len or f
+      d = File.dirname(files)
+      d.sub!(prefix, "") if prefix
+      d = (d.empty? || d == ".") ? dir : File.join(dir, d)
+      path[d] << files
+    end
   end
   dirs
@@ -371,7 +359,8 @@ def checking_for(m)
   m = "checking for #{m}... "
   message m
-  Logging::message "#{f}#{m}\n"
+  Logging::message "#{f}#{m}--------------------\n"
   r = yield
-  message(r ? "yes\n" : "no\n")
+  message(a = r ? "yes\n" : "no\n")
+  Logging::message "-------------------- #{a}\n"
   r
 end
@@ -571,5 +560,5 @@ CFLAGS   = #{CONFIG['CCDLFLAGS'] unless 
 CPPFLAGS = -I. -I$(topdir) -I$(hdrdir) -I$(srcdir) #{$defs.join(" ")} #{$CPPFLAGS}
 CXXFLAGS = $(CFLAGS) #{CONFIG['CXXFLAGS']}
-DLDFLAGS = #$LDFLAGS #{CONFIG['DLDFLAGS']} #$DLDFLAGS
+DLDFLAGS = #{CONFIG['DLDFLAGS']} #$DLDFLAGS
 LDSHARED = #{CONFIG['LDSHARED']}
 AR = #{CONFIG['AR']}
Index: ext/extmk.rb
===================================================================
RCS file: /cvs/ruby/src/ruby/ext/extmk.rb,v
retrieving revision 1.34
diff -u -2 -p -r1.34 extmk.rb
--- ext/extmk.rb	24 Apr 2003 10:49:57 -0000	1.34
+++ ext/extmk.rb	17 Jul 2003 02:17:00 -0000
@@ -74,5 +74,7 @@ def extmake(target)
     unless $ignore
       if $static ||
-	older("./Makefile", *MTIMES + %W"#{$srcdir}/makefile.rb #{$srcdir}/extconf.rb")
+	 !(t = modified?("./Makefile", MTIMES)) ||
+	 %W<#{$srcdir}/makefile.rb #{$srcdir}/extconf.rb
+	    #{$srcdir}/depend #{$srcdir}/MANIFEST>.any? {|f| modified?(f, [t])}
       then
 	$defs = []
@@ -245,5 +247,5 @@ if $extlist.size > 0
 
   src = "void Init_ext() {\n#$extinit}\n"
-  if older("extinit.c", *MTIMES) || IO.read("extinit.c") != src
+  if !modified?("extinit.c", MTIMES) || IO.read("extinit.c") != src
     open("extinit.c", "w") {|f| f.print src}
   end
@@ -269,4 +271,7 @@ rubies = []
 
 Dir.chdir ".."
+if $extlist.size > 0
+  rm_f(Config::CONFIG["LIBRUBY_SO"])
+end
 puts "making #{rubies.join(', ')}"
 $stdout.flush


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