[ruby-dev:12550] Re: シンボリックリンクを含むパスを渡した時の Dir.glob() の動作

なかだです。

At Sat, 17 Mar 2001 11:18:25 +0900,
[e-mail] (Yukihiro Matsumoto) wrote:
> |  File.glob()に渡すパス名の一部がシンボリックリンクになっている時に、
> |ファイル名が展開されません。
> 
> **はシンボリックリンクをたどってはいけないんですが、*はシン
> ボリックリンクをたどるべきですよね。
> 
> |  以下のパッチでどうでしょうか？
> 
> これだとたぶんやりすぎで、シンボリックリンクでディレクトリが
> 再帰してるときに**で無限ループに入っちゃうような気がします。

  たぶんもう一ヶ所 stat() に戻さないと symlink/* みたいのが通り
ません。
  それと -v を付けると山のように warning が出ます。


Index: dir.c
===================================================================
RCS file: /cvs/ruby/src/ruby/dir.c,v
retrieving revision 1.35
diff -u -2 -p -r1.35 dir.c
--- dir.c	2001/03/16 08:30:09	1.35
+++ dir.c	2001/03/18 16:54:28
@@ -70,4 +70,5 @@ char *strchr _((char*,char));
 #define FNM_PERIOD	0x04
 #define FNM_NOCASE	0x08
+#define FNM_NOWARN	0x10
 
 #define FNM_NOMATCH	1
@@ -612,5 +613,5 @@ remove_backslashes(p)
 
 
-void
+int
 rb_glob_helper(path, flag, func, arg)
     char *path;
@@ -621,4 +622,5 @@ rb_glob_helper(path, flag, func, arg)
     struct stat st;
     char *p, *m;
+    int found = Qfalse;
 
     if (!has_magic(path, 0)) {
@@ -626,11 +628,12 @@ rb_glob_helper(path, flag, func, arg)
 	if (rb_sys_stat(path, &st) == 0) {
 	    (*func)(path, arg);
+	    return Qtrue;
 	}
-	else {
+	else if (!(flag & FNM_NOWARN)) {
 	    /* In case stat error is other than ENOENT and
 	       we may want to know what is wrong. */
 	    rb_sys_warning(path);
 	}
-	return;
+	return Qfalse;
     }
 
@@ -655,5 +658,5 @@ rb_glob_helper(path, flag, func, arg)
 
 	    magic = extract_elem(p);
-	    if (lstat(dir, &st) < 0) {
+	    if (stat(dir, &st) < 0) {
 	        rb_sys_warning(dir);
 	        free(base);
@@ -665,5 +668,6 @@ rb_glob_helper(path, flag, func, arg)
 		    buf = ALLOC_N(char, strlen(base)+strlen(m)+3);
 		    sprintf(buf, "%s%s", base, *base ? m : m+1);
-		    rb_glob_helper(buf, flag, func, arg);
+		    if (rb_glob_helper(buf, flag|FNM_NOWARN, func, arg))
+			found = Qtrue;
 		    free(buf);
 		}
@@ -691,5 +695,5 @@ rb_glob_helper(path, flag, func, arg)
 			continue;
 		    buf = ALLOC_N(char, strlen(base)+NAMLEN(dp)+strlen(m)+6);
-		    sprintf(buf, "%s%s%s/", base, (BASE)?"/":"", dp->d_name);
+		    sprintf(buf, "%s%s%s", base, (BASE)?"/":"", dp->d_name);
 		    if (lstat(buf, &st) < 0) {
 		        rb_sys_warning(buf);
@@ -697,7 +701,8 @@ rb_glob_helper(path, flag, func, arg)
 		    }
 		    if (S_ISDIR(st.st_mode)) {
-		        strcat(buf, "**");
+		        strcat(buf, "/**");
 			strcat(buf, m);
-			rb_glob_helper(buf, flag, func, arg);
+			if (rb_glob_helper(buf, flag|FNM_NOWARN, func, arg))
+			    found = Qtrue;
 		    }
 		    free(buf);
@@ -710,4 +715,5 @@ rb_glob_helper(path, flag, func, arg)
 			(*func)(buf, arg);
 			free(buf);
+			found = Qtrue;
 			continue;
 		    }
@@ -722,5 +728,5 @@ rb_glob_helper(path, flag, func, arg)
 	    free(magic);
 	    while (link) {
-		if (lstat(link->path, &st) == 0) {
+		if (stat(link->path, &st) == 0) {
 		    if (S_ISDIR(st.st_mode)) {
 			int len = strlen(link->path);
@@ -729,5 +735,6 @@ rb_glob_helper(path, flag, func, arg)
 
 			sprintf(t, "%s%s", link->path, m);
-			rb_glob_helper(t, flag, func, arg);
+			if (rb_glob_helper(t, flag|FNM_NOWARN, func, arg))
+			    found = Qtrue;
 			free(t);
 		    }
@@ -741,7 +748,13 @@ rb_glob_helper(path, flag, func, arg)
 		}
 	    }
+	    break;
 	}
 	p = m;
     }
+    if (!(found || (flag & FNM_NOWARN))) {
+	errno = ENOENT;
+	rb_sys_warning(path);
+    }
+    return found;
 }
 


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