[ruby-dev:15994] subdir in mkmf.rb

なかだです。

rough/digestをコンパイルして気づいたのですが、digestや
gnome-rubyのようにディレクトリを分割しているライブラリに対する
サポートが、今のlib/mkmf.rbにはありません。こういう仕組みが必要
じゃないかと思うんですが。

試しに、digest/extconf.rbをサブディレクトリを辿るコードを追加し
てみました。


Index: extconf.rb
===================================================================
RCS file: /cvs/ruby/src/rough/ext/digest/extconf.rb,v
retrieving revision 1.6
diff -u -2 -p -r1.6 extconf.rb
--- extconf.rb	2001/07/13 15:38:27	1.6
+++ extconf.rb	2002/02/17 16:50:13
@@ -2,4 +2,71 @@
 
 require "mkmf"
+require "ftools"
 
+$have_funcs ||= {}
+%w[rb_cvar_declare rb_cvar_set].each do |f|
+  $have_funcs.key?(f) or $have_funcs[f] = have_func(f, "ruby.h")
+end
+
+$have_headers ||= {}
+%w[sys/cdefs.h inttypes.h unistd.h].each do |h|
+  $have_headers.key?(h) or $have_headers[h] = have_header(h)
+end
+
+$have_funcs["rb_cvar_declare"] or $have_funcs["rb_cvar_set"] or exit 1
+
 create_makefile("digest")
+
+case srcdir = File.dirname($0)
+when '.'
+  $TOPDIR = $SRCDIR = nil
+when '/'
+  $TOPDIR = $SRCDIR = srcdir.freeze
+when /\A\//
+  $TOPDIR = $SRCDIR = (srcdir<<'/').freeze
+else
+  $SRCDIR = (srcdir<<'/').freeze
+  $TOPDIR = ($SRCDIR if File::ALT_SEPARATOR == '\\' and /\A[a-z]:/i =~ srcdir)
+end
+subext = Dir.glob("#{$SRCDIR}*/extconf.rb")
+subext.collect! do |ext|
+  dir = File.dirname(ext)
+  dir[$SRCDIR] = '' if $SRCDIR
+  dir
+end
+
+$extconf = $0
+alias $0 $extconf
+pwd = Dir.pwd
+subext.each do |dir|
+  File.makedirs(dir)
+  begin
+    Dir.chdir(dir)
+    if !$SRCDIR
+      ext = 'extconf.rb'
+    elsif !$TOPDIR
+      ext = "../#{$SRCDIR}#{dir}/extconf.rb"
+    else
+      ext = "#{$TOPDIR}#{dir}/extconf.rb"
+    end
+    $0 = ext
+    puts "loading #{$0}"
+    load(ext)
+  ensure
+    Dir.chdir(pwd)
+  end
+end
+
+open("Makefile", "a") do |mf|
+  mf.print("\nSUBDIRS = ", subext.join(" "), "\n")
+  %w[all clean distclean install site-install].each do |target|
+    mf.print("\n#{target}: ", subext.collect {|dir| dir+"/"+target}.join(" "), "\n")
+    subext.each do |ext|
+      mf.print("#{ext}/#{target}:")
+      mf.print(/\w+clean$/ =~ target ? "\n\t" : "; ")
+      mf.print("cd #{ext}; $(MAKE) #{target}\n")
+      mf.print("\t-rmdir -p #{ext}\n") if /\w+clean$/ =~ target
+    end
+  end
+  mf.print("\ntest: test.rb $(DLLIB); $(RUBY) $<\n")
+end


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