[ruby-dev:9869] Re: $0 handling on NT

なかだです。

At Thu, 25 May 2000 23:05:05 +0900,
Katsuyuki Komatsu <[e-mail]> wrote:
> 対策として、
>     1)  basenameにdosishな対処を入れる
>     2)  $0の'\'を'/'に変換する
> が考えられます。
> 2)がいいかなと思うのですが、どうでしょう？

  $0 以外でも dosish なパスを分解したいことはあると思うので、1) の方が
いいんじゃないでしょうか。

  それと、Windows で(DOS では少なかったような気がする)日本語のファイル
名をつける人って結構いるんですが、2byte 目に '\' を含むパス名ってどう
したもんでしょうかねぇ。SJIS 決めうちってわけにはいかないし。


--- current/file.c	Sun May 14 23:19:21 2000
+++ build/file.c	Fri May 26 09:16:05 2000
@@ -1316,4 +1316,19 @@ rmext(p, e)
 }
 
+#ifdef DOSISH
+static char* lastsep(path)
+    char *path;
+{
+    char *last = NULL;
+    while (*path) {
+	if (isdirsep(*path))
+	    last = path;
+    }
+    return last;
+}
+#else
+#define lastsep(path) strrchr((path), '/')
+#endif
+
 static VALUE
 rb_file_s_basename(argc, argv)
@@ -1329,5 +1344,5 @@ rb_file_s_basename(argc, argv)
     }
     name = STR2CSTR(fname);
-    p = strrchr(name, '/');
+    p = lastsep(name);
     if (!p) {
 	if (!NIL_P(fext)) {
@@ -1355,5 +1370,5 @@ rb_file_s_dirname(obj, fname)
 
     name = STR2CSTR(fname);
-    p = strrchr(name, '/');
+    p = lastsep(name);
     if (!p) {
 	return rb_str_new2(".");
@@ -1982,5 +1997,5 @@ path_check_1(path)
 	    return 0;
 	}
-	s = strrchr(path, '/');
+	s = lastsep(path);
 	if (p) *p = '/';
 	if (!s || s == path) return 1;


-- 
そうだ 強気に ちょっと インチキに☆彡
    中田 "Bugるくらいがちょうどいいかも;-)" 伸悦