[ruby-dev:12377] Re: File::fnmatch? (was: Re: Dir::fnmatch?)

At Tue, 6 Mar 2001 13:56:28 +0900,
matz wrote:
> まだ以下のことについて考えたいです。
> 
> メソッド名
> 
>         fnmatch, fnmatch?, namematch?, pathmatch?

　FNM_PATHNAME を付けない限り path 全体についてマッチするのでは
ないので、 dir とか path は付けない方がよいと思います。

　また ? を付けないと、(Regexp#match() からの類推で)マッチ結果を
返すような印象を与えるおそれがあるので、真偽値を返すことを明示
する意味で ? は付けた方がいいと思います。

　はじめの提案の際、 glob という語を入れてはどうかというご意見が
出ましたが、 glob という言葉はまとまりという意味ですから、個別に
マッチするかどうかテストするイメージには合致しないと思います。
ある条件のまとまりをパターンで指定する、というニュアンスで使う
のが一般的です。(glob(3), Dir::glob) まあ、 glob パターンという
言い回しも一般的になっていますけどね。

　さらに wildcard という語も出ましたが、 wildcard とは * や ? の
ことですから、これもやはり違うと思います。「マッチのパターンには
*, ? のようなワイルドカードや [...] によるキャラクタセットが使え
ます」というのが正しい用法だと思います。

　というわけで私には fnmatch? か namematch? が妥当だと思えるの
ですが、どちらも捨てがたいですねー。UNIX の fnmatch(3) が広く
知られている一方、 File クラスに入れるなら fn- などと妙な略し方を
しなくても、 namematch? と分かりやすくできるし。

　どちらか一つ、ということなら前者かなーと思いますが。

> マクロ名
> 
>         FNM_NOESCAPEなどをどうするか。intern.hに含めるのはま
>         ずい気がします(fnmatch.hと衝突するから)。

　確かにそうでした。

> 関数名
> 
>         rb_fnmatchにするの？
> 
> 個人的には今回のパッチでfile.cに加えられた変更はdir.cに追加
> でも良いかなって思ってます。そうすれば、externにする必要がな
> いので、衝突などの心配をしなくて済みますし。

　Static ではなくインターフェースを公開する場合は衝突を避ける
ために rb_ を付ける必要がありましたが、 dir.c に収めてよいのなら
問題ありませんね。

　ということで、パッチはまた単純になりました。どうでしょう？

> 欠点はFileの実装がio.c, file.c, dir.cに分散しちゃうことでしょ
> うね。ま、いいか。

　構造化プログラミング言語でオブジェクト指向言語を実装している
わけなので、そこは仕方のない妥協かも。 ;>

-- 
                     /
                    /__  __            Akinori.org / MUSHA.org
                   / )  )  ) )  /     FreeBSD.org / Ruby-lang.org
Akinori MUSHA aka / (_ /  ( (__(  @ iDaemons.org / and.or.jp

"We're only at home when we're on the run, on the wing, on the fly"

Index: dir.c
===================================================================
RCS file: /mirror/ruby/src/ruby/dir.c,v
retrieving revision 1.33
diff -u -r1.33 dir.c
--- dir.c	2001/02/28 06:30:03	1.33
+++ dir.c	2001/03/06 08:34:43
@@ -872,6 +872,29 @@
     return rb_ensure(rb_Array, dir, dir_close, dir);
 }
 
+static VALUE
+file_s_fnmatch(argc, argv, obj)
+    int argc;
+    VALUE *argv;
+    VALUE obj;
+{
+    VALUE pattern, string;
+    VALUE flags;
+    int f;
+
+    if (rb_scan_args(argc, argv, "21", &pattern, &string, &flags) == 3) {
+	f = NUM2INT(flags);
+    }
+    else {
+	f = 0;
+    }
+
+    if (fnmatch(RSTRING(pattern)->ptr, RSTRING(string)->ptr, f) == 0)
+	return Qtrue;
+
+    return Qfalse;
+}
+
 void
 Init_Dir()
 {
@@ -905,4 +928,12 @@
 
     rb_define_singleton_method(rb_cDir,"glob", dir_s_glob, 1);
     rb_define_singleton_method(rb_cDir,"[]", dir_s_glob, 1);
+
+    rb_define_singleton_method(rb_cFile,"fnmatch?", file_s_fnmatch, -1);
+    rb_define_singleton_method(rb_cFile,"namematch?", file_s_fnmatch, -1);
+
+    rb_define_const(rb_cFile, "FNM_NOESCAPE", INT2FIX(FNM_NOESCAPE));
+    rb_define_const(rb_cFile, "FNM_PATHNAME", INT2FIX(FNM_PATHNAME));
+    rb_define_const(rb_cFile, "FNM_PERIOD", INT2FIX(FNM_PERIOD));
+    rb_define_const(rb_cFile, "FNM_NOCASE", INT2FIX(FNM_NOCASE));
 }