[ruby-dev:14118] Re: DOSISH file.c

なかだです。

At Thu, 26 Jul 2001 11:31:46 +0900,
U.Nakamura <[e-mail]> wrote:
> こんにちは、なかむら(う)＠帰省中です。
> 最新のfile.cへのパッチです。
> 最新のfile.cからの差分に(たぶん)なっています。
> 
> 1. \対応(オリジナルはCheng氏)
> 2. マルチバイト対応(1のため必須) 不完全かも...
> 3. ドライブ文字対応
> 4. [ruby-dev:14075]

  あと、0x5cで終るpath elementを削らないようにするのと、ドライ
ブレターなしの絶対パスもdnameを見るようにするのも。それから
strrdirsep()のドライブレターのチェックは意味ありませんでしたね。
[ruby-dev:14097]へのパッチです。

  しかし、マルチバイトを考慮していないループにマルチバイト対応
を突っ込むのは、どうもやっぱりゴチャゴチャしてきてしまうので、
できれば二つめのパッチみたいにしたいところですが。

> File.joinへのパッチは含んでいませんが、必要ではあると思います。

  これはexpand_pathが落ち着いたら次に。


--- file.c	2001/07/26 02:00:08	1.63.0.1
+++ file.c	2001/07/26 09:47:19	1.63.0.2
@@ -1357,7 +1357,4 @@ strrdirsep(path)
 {
     char *last = NULL;
-#ifdef DOSISH
-    if (has_drive_letter(path)) path += 2;
-#endif
     while (*path) {
 	if (isdirsep(*path)) {
@@ -1415,10 +1412,7 @@ rb_file_s_expand_path(argc, argv)
 	    s++;
 #endif
-	    while (*s && !isdirsep(*s)) {
-		for (t = CharNext(s); s != t; s++) {
-		    *p++ = *s;
-		}
-		if (p >= bend) goto toolong;
-	    }
+	    for (t = s; *s && !isdirsep(*s); s = CharNext(s));
+	    if (p + (s - t) >= bend) goto toolong;
+	    while (t < s) *p++ = *t++;
 	    *p = '\0';
 #ifdef HAVE_PWD_H
@@ -1441,8 +1435,8 @@ rb_file_s_expand_path(argc, argv)
 	    /* specified drive letter, and full path */
 	    /* skip drive letter */
-	    while (*s && !isdirsep(*s)) {
-		*p++ = *s++;
-		if (p >= bend) goto toolong;
-	    }
+	    if (p + 2 >= bend) goto toolong;
+	    *p++ = *s++;
+	    *p++ = *s++;
+	    s++;
 	}
 	else {
@@ -1462,34 +1456,13 @@ rb_file_s_expand_path(argc, argv)
 		strcpy(buf, RSTRING(dname)->ptr);
 		p = &buf[strlen(buf)];
-		s += 2;
 	    }
 	    else {
 		getcwdofdrv(*s, buf, MAXPATHLEN);
-		s += 2;
-
-		tainted = 1;
-		p = &buf[strlen(buf)];
-		if (*s) {
-		    /* need to append '/' before appending the rest of the path */
-		    if (!isdirsep(*(p - 1))) *p++ = '/';
-		    while (*s && !isdirsep(*s)) {
-			*p++ = *s++;
-			if (p >= bend) goto toolong;
-		    }
+		for (p = buf; *p && p < bend; p = CharNext(p)) {
+		    if (isdirsep(*p)) *p = '/';
 		}
+		tainted = 1;
 	    }
-	}
-    }
-#endif
-#if defined DOSISH && ! defined(__CYGWIN__)
-    else if (isdirsep(*s) && !is_absolute_path(s)) {
-	/* specified full path, but not drive letter */
-	/* we need to get the drive letter */
-	tainted = 1;
-	getcwd(buf, MAXPATHLEN);
-	p = &buf[2];
-	while (*s && !isdirsep(*s)) {
-	    *p++ = *s++;
-	    if (p >= bend) goto toolong;
+	    s += 2;
 	}
     }
@@ -1505,7 +1478,35 @@ rb_file_s_expand_path(argc, argv)
 	    tainted = 1;
 	    getcwd(buf, MAXPATHLEN);
+#if defined DOSISH
+	    for (p = buf; *p && p < bend; p = CharNext(p)) {
+		if (isdirsep(*p)) *p = '/';
+	    }
+#endif
+	}
+#if defined DOSISH && ! defined(__CYGWIN__)
+	if (isdirsep(*s)) {
+	    /* specified full path, but not drive letter */
+	    p = &buf[2];
+	    if (!has_drive_letter(buf)) {
+		/* UNC */
+		while (*p && !isdirsep(*p)) p = CharNext(p);/* skip host name */
+		if (*p) {
+		    ++p;
+		    while (*p && !isdirsep(*p)) p = CharNext(p); /* skip share name */
+		}
+	    }
+	}
+	else
+#endif
+	{
+	    for (p = buf; isdirsep(*p); ++p);
+	    if (*p) {
+		do {
+		    while (*p && !isdirsep(*p)) p = CharNext(p);
+		    for (t = p; isdirsep(*p); ++p);
+		} while (*p);
+		p = t;
+	    }
 	}
-	p = &buf[strlen(buf)];
-	while (p > buf && strrdirsep(buf) == p - 1) p--;
     }
     else {
@@ -1530,6 +1531,9 @@ rb_file_s_expand_path(argc, argv)
 		    if (*(s+1) == '\0' || isdirsep(*(s+1))) {
 			/* We must go back to the parent */
-			if (isdirsep(*p) && p > buf) p--;
-			while (p > buf && !isdirsep(*p)) p--;
+			*p = '\0';
+			if (!(t = strrdirsep(buf)))
+			    *p = '/';
+			else
+			    p = t;
 		    }
 		    else {

--- file.c	2001/07/26 09:47:19	1.63.0.2
+++ file.c	2001/07/26 10:03:00	1.63.0.3
@@ -1519,13 +1519,14 @@ rb_file_s_expand_path(argc, argv)
     }
     *p = '/';
+    t = s;
 
-    for ( ; *s; s++) {
+    while (*s) {
 	switch (*s) {
 	  case '.':
-	    if (!isdirsep(*p)) {
-		*++p = '.';
-	    }
-	    else if (*(s+1)) {
-		switch (*++s) {
+	    if (t == s++) {
+		switch (*s) {
+		  case '\0':
+		    t = s;
+		    break;
 		  case '.':
 		    if (*(s+1) == '\0' || isdirsep(*(s+1))) {
@@ -1536,9 +1537,5 @@ rb_file_s_expand_path(argc, argv)
 			else
 			    p = t;
-		    }
-		    else {
-			*++p = '.';
-			*++p = *s;
-			if (p >= bend) goto toolong;
+			t = ++s;
 		    }
 		    break;
@@ -1547,9 +1544,6 @@ rb_file_s_expand_path(argc, argv)
 		  case '\\':
 #endif
-		    *(p + 1) = '\0';
-		    if (strrdirsep(buf) != p) *++p = '/';
+		    t = ++s;
 		    break;
-		  default:
-		    *++p = '.'; *++p = *s; break;
 		}
 	    }
@@ -1559,21 +1553,27 @@ rb_file_s_expand_path(argc, argv)
 	  case '\\':
 #endif
-	    *(p + 1) = '\0';
-	    if (strrdirsep(buf) != p) *++p = '/';
+	    if (s > t) {
+		if (p + (s - t) >= bend) goto toolong;
+		do {*++p = *t++;} while (s > t);
+		*++p = '/';
+	    }
+	    t = ++s;
 	    break;
 	  default:
-	    for (t = CharNext(s); s != t; s++) {
-		*++p = *s;
-	    }
-	    s--;
-	    if (p >= bend) goto toolong;
+	    s = CharNext(s);
+	    break;
 	}
     }
 
-    /* Place a \0 at end. If path ends with a "/", delete it */
-    *(p + 1) = '\0';
-    if (p == buf || strrdirsep(buf) != p) p++;
+    if (s > t) {
+	if (p + (s - t) >= bend) goto toolong;
+	++p;
+	do {*p++ = *t++;} while (s > t);
+    }
+    else if (p == buf) {
+	p++;
+    }
 #if defined(DOSISH)
-    if (has_drive_letter(buf) && isdirsep(buf[2])) {
+    else if (has_drive_letter(buf) && isdirsep(buf[2])) {
 	/* root directory needs a trailing backslash,
 	   otherwise it mean the current directory of the drive */
@@ -1581,7 +1581,6 @@ rb_file_s_expand_path(argc, argv)
     }
 #endif
-    *p = '\0';
 
-    fname = rb_str_new2(buf);
+    fname = rb_str_new(buf, p - buf);
     if (tainted) OBJ_TAINT(fname);
     return fname;


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