なかだです。

At Wed, 7 Jan 2004 21:57:13 +0900,
H.Yamamoto wrote:
> 山本です。なかださんのコードで気になった点が3つあります。
> (_WIN32のコードだとコンパイルで無限ループしたので、_WIN32の部分は削除してコンパイルしました。)

_WIN32と非_WIN32で相似にしたつもりなのですが、「コンパイルで無
限ループ」というのはどういう意味でしょうか。

> // 1
> E:\ruby-dev\ruby-1.8.1>miniruby -Ks -e "puts Dir.glob('s:/script/**/*/*/')"
> s:/script/sample/aya/cscript/
> s:/script/sample/aya/error/
> s:/script/sample/aya/vs Perl/
> s:/script/sample/aya/
> s:/script/sample/tcp/
> s:/script/test/class/
> s:/script/test/file/
> s:/script/project/java/
> s:/script/project/wwwc/
> s:/script/project/bcb/
> 
> は、上からマッチしません。これは意図された動作でしょうか?

直しました。

> // 2
> 
> ALLOC_BUF()ですが、malloc と free は狭いスコープで完結していたほうが保守しやすいと思います。
> (途中で return や break が入ることを考えると、特に)
> 速度が大きく違うならと思って計測しましたが、速度に違いはありませんでした。

差は出ませんでしたか。じゃやめましょう。

> // 3
> 
> status = glob_helper が非0を返す場合に中断していないようです。
> こっちが正しい動作なのかもしれませんが・・・

見落としてました。


Index: dir.c =================================================================== RCS file: /cvs/ruby/src/ruby/dir.c,v retrieving revision 1.95 diff -u -2 -p -r1.95 dir.c --- dir.c 7 Jan 2004 13:28:15 -0000 1.95 +++ dir.c 7 Jan 2004 14:53:47 -0000 @@ -72,4 +72,5 @@ char *strchr _((char*,char)); #define FNM_DOTMATCH 0x04 #define FNM_CASEFOLD 0x08 +#define GLOB_POSTORDER 0x0100 #define FNM_NOMATCH 1 @@ -1002,4 +1003,5 @@ glob_helper(path, sub, separator, flags, int recursive = 0; int magical = 1; + int n1, mlen; struct d_link { @@ -1050,4 +1052,12 @@ glob_helper(path, sub, separator, flags, } + n1 = p - path; + + mlen = strlen(m); + if (!magical && !(flags & GLOB_POSTORDER)) { + status = glob_helper(path, p, separator, flags, func, arg); + if (status) return status; + } + if (path == p) { dirp = do_opendir("."); @@ -1064,27 +1074,23 @@ glob_helper(path, sub, separator, flags, for (dp = readdir(dirp); dp != NULL; dp = readdir(dirp)) { - const int n1 = p - path; const int n2 = n1 + NAMLEN(dp); - const int ok = 0; - const int ln = 1; - const int no = 2; - int is_dir = -1; /* not checked yet */ -#ifdef _WIN32 - is_dir = dp->d_isdir ? (dp->d_isrep ? ln : ok) : no; -#endif + enum {unknown = -1, dir, symlnk, nodir} dirtype = unknown; + if (recursive && strcmp(".", dp->d_name) != 0 && strcmp("..", dp->d_name) != 0) { + dirtype = nodir; buf = ALLOC_N(char, n2+4+strlen(p)+1); memcpy(buf, path, n1); strcpy(buf+n1, dp->d_name); #ifndef _WIN32 - is_dir = no; if (do_lstat(buf, &st) == 0) { if (S_ISDIR(st.st_mode)) - is_dir = ok; + dirtype = dir; else if (S_ISLNK(st.st_mode) && do_stat(buf, &st) == 0 && S_ISDIR(st.st_mode)) - is_dir = ln; + dirtype = symlnk; } +#else + if (dp->d_isdir) dirtype = (dp->d_isrep ? symlnk : dir); #endif - if (is_dir == ok) { + if (dirtype == dir && (flags & GLOB_POSTORDER)) { strcpy(buf+n2, "/**/"); strcpy(buf+n2+4, p); @@ -1092,19 +1098,26 @@ glob_helper(path, sub, separator, flags, } free(buf); - if (status) break; } - if (is_dir == no && *m == '/') { + if (dirtype == nodir && *m == '/') { continue; } if (magical && do_fnmatch(p, m, dp->d_name, flags) == 0) { - buf = ALLOC_N(char, n2+1+1); - memcpy(buf, path, n1); - strcpy(buf+n1, dp->d_name); - if (*m == '\0') { + if (mlen == 0 || mlen == 1 && (dirtype == dir || dirtype == symlnk)) { + buf = ALLOC_N(char, n2+mlen+1); + memcpy(buf, path, n1); + strcpy(buf+n1, dp->d_name); + strcpy(buf+n2, m); status = glob_call_func(func, buf, arg); + free(buf); + if (status) break; } - else if (m[1] == '\0' && (is_dir == ok || is_dir == ln)) { /* *m == '/' */ - strcpy(buf+n2, "/"); - status = glob_call_func(func, buf, arg); + else if (!(flags & GLOB_POSTORDER)) { + buf = ALLOC_N(char, n2+mlen+1); + memcpy(buf, path, n1); + strcpy(buf+n1, dp->d_name); + strcpy(buf+n2, m); + status = glob_helper(buf, buf+n2+1, 1, flags, func, arg); + free(buf); + if (status) break; } else { @@ -1115,4 +1128,12 @@ glob_helper(path, sub, separator, flags, tail = &tmp->next; } + } + if (dirtype == dir && !(flags & GLOB_POSTORDER)) { + buf = ALLOC_N(char, n2+4+strlen(p)+1); + memcpy(buf, path, n1); + strcpy(buf+n1, dp->d_name); + strcpy(buf+n2, "/**/"); + strcpy(buf+n2+4, p); + status = glob_helper(buf, buf+n2+1, 1, flags, func, arg); free(buf); if (status) break; @@ -1124,7 +1145,6 @@ glob_helper(path, sub, separator, flags, while (link) { if (status == 0) { - const int n1 = p - path; const int n2 = n1 + strlen(link->name); - buf = ALLOC_N(char, n2+strlen(m)+1); + buf = ALLOC_N(char, n2+mlen+1); memcpy(buf, path, n1); strcpy(buf+n1, link->name); @@ -1139,5 +1159,5 @@ glob_helper(path, sub, separator, flags, } - if (!magical) { + if (!status && !magical && (flags & GLOB_POSTORDER)) { status = glob_helper(path, p, separator, flags, func, arg); } @@ -1531,3 +1551,5 @@ Init_Dir() rb_file_const("FNM_DOTMATCH", INT2FIX(FNM_DOTMATCH)); rb_file_const("FNM_CASEFOLD", INT2FIX(FNM_CASEFOLD)); + + rb_define_const(rb_cDir, "GLOB_POSTORDER", INT2FIX(GLOB_POSTORDER)); }
-- --- 僕の前にBugはない。 --- 僕の後ろにBugはできる。 中田 伸悦