[ruby-dev:27477] Re: --without-hoge

なかだです。

At Wed, 19 Oct 2005 23:45:49 +0900,
U.Nakamura wrote in [ruby-dev:27457]:
> | |「全部のextensionを外す」を作るとすると、きっと --without-ext
> | |が欲しくて、そうすると --with-ext=EXTENSION(s) とか --without
> | |-ext=EXTENSION(s) とかも欲しくなりますよねえ。
> | |--with(out)-EXTENTION と両方用意すればいいのかな。
> | 
> | 通常、--without-* は --with-*=no で実装されているので --with
> | を用意すれば --without は定義しなくても良いと思ったのですが。
> 
> まあ、今 mkmf.rb はそうなってないので。
> # それはきっとなかださんが考えてくれるに違いない

arg_configでは、--with-extentionsを--with-extに省略するといった
ことはできないので、--with-extentionはダメというあたりがいささ
か残念なところですが。

というか、なぜかnmakeではENV["CONFIGURE_ARGS"]が伝わってないよ
うな気が。


Index: ext/extmk.rb
===================================================================
RCS file: /cvs/ruby/src/ruby/ext/extmk.rb,v
retrieving revision 1.82
diff -U2 -p -r1.82 extmk.rb
--- ext/extmk.rb	16 Oct 2005 13:17:30 -0000	1.82
+++ ext/extmk.rb	21 Oct 2005 11:14:52 -0000
@@ -355,8 +355,23 @@ if $extension
   exts |= $extension.select {|d| File.directory?("#{ext_prefix}/#{d}")}
 else
+  withes, withouts = %w[--with --without].collect {|w|
+    if not (w = %w[-extensions -ext].collect {|opt|arg_config(w+opt)}).any?
+      proc {false}
+    elsif (w = w.grep(String)).empty?
+      proc {true}
+    else
+      w.collect {|opt| opt.split(/,/)}.flatten.method(:any?)
+    end
+  }
+  cond = proc {|ext|
+    cond1 = proc {|n| File.fnmatch(n, ext, File::FNM_PATHNAME)}
+    withes.call(&cond1) or !withouts.call(&cond1)
+  }
   exts |= Dir.glob("#{ext_prefix}/*/**/extconf.rb").collect {|d|
     d = File.dirname(d)
     d.slice!(0, ext_prefix.length + 1)
     d
+  }.find_all {|ext|
+    with_config(ext, &cond)
   }.sort
 end
Index: lib/mkmf.rb
===================================================================
RCS file: /cvs/ruby/src/ruby/lib/mkmf.rb,v
retrieving revision 1.232
diff -U2 -p -r1.232 mkmf.rb
--- lib/mkmf.rb	20 Oct 2005 00:42:43 -0000	1.232
+++ lib/mkmf.rb	20 Oct 2005 01:55:14 -0000
@@ -794,9 +794,23 @@ def arg_config(config, *defaults, &block
 end
 
-def with_config(config, *defaults, &block)
-  unless /^--with[-_]/ =~ config
-    config = '--with-' + config
+def with_config(config, *defaults)
+  config = config.sub(/^--with[-_]/, '')
+  val = arg_config("--with-"+config) do
+    if arg_config("--without-"+config)
+      false
+    elsif block_given?
+      yield(config, *defaults)
+    else
+      break *defaults
+    end
+  end
+  case val
+  when "yes"
+    true
+  when "no"
+    false
+  else
+    val
   end
-  arg_config(config, *defaults, &block)
 end
 


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