[ruby-dev:13854] Re: DOSISH file.c changes

なかだです。

At Fri, 13 Jul 2001 23:46:26 +0900,
U.Nakamura <[e-mail]> wrote:
> c:hogeみたいのがabsoluteなpathじゃないというのは正しいように
> 私は思うのですが、どうでしょう?

  正しいとは思うのですが、でも単なるrelativeなpathともいえない
のでは。ドライブレターの厄介なところは、シンタックスとして他の
パスの部分と異質なために単純にprefixをつけることはできないとい
うのと、階層的にはパスの上位にあるのに途中のパスを省略できると
いうのがあるのではないかと。

> 道理でパッチがあたらんわけだ。
> # 自分の環境がおかしいと思い込んでました

  変更されてない行の先頭に入っているはずの空白が抜けてるようで
す。

> さて、なかださんのパッチですが、コンパイル通らないです。
> getdrivecurdir()の引数の数と、driveという引数があるのに同じ
> 名前のローカル変数があるのがまずいです。
> で、これを回避しても、File.dirname('d:hoge')で落ちます。うー
> ん。

  あー、すいません。全然テストもしてなかったもんで。

> で、いずれのパッチでも言えることですが、File.dirname('c:/hoge')
> が'c:/'を返すので(これはわざとですけど)、
>   File.join(File.dirname('c:/hoge'), File.basename('c:/hoge'))
> が'c://hoge'になります。むーんむーん。

File.dirname('c:/hoge')	# => c:
File.dirname('c:hoge')	# => c:.

のようにするということも考えられますが、これはDOSISHな環境に限
らず、

File.join(*File.split('/hoge')) != '/hoge'

なので、File.joinの方も余分なセパレータを入れないようにしたほう
がいいかも知れません。とくにWindows上では意味が全く違ってしまう
ので。なんか以前作ったパッチがあったので一応参考までに付けとき
ますが、たぶん今のソースには当たらないかも。DOSISHな環境は考え
てないですし。


diff -ru2p dist/file.c build/file.c
--- dist/file.c	Mon Jan 17 23:10:09 2000
+++ build/file.c	Mon Jan 24 17:32:39 2000
@@ -1385,8 +1385,37 @@ static VALUE separator;
 
 static VALUE
+rb_file_join(args, str)
+    VALUE args, str;
+{
+    int i;
+    for (i = 0; i < RARRAY(args)->len; ++i) {
+	VALUE arg = RARRAY(args)->ptr[i];
+	if (TYPE(arg) == T_ARRAY) {
+	    if (rb_inspecting_p(arg))
+		rb_raise(rb_eArgError, "recusive reference while File.join");
+	    str = rb_protect_inspect(rb_file_join, arg, str);
+	}
+	else if (NIL_P(str)) {
+	    str = rb_str_dup(arg);
+	}
+	else {
+	    if (TYPE(arg) != T_STRING) arg = rb_str_to_str(arg);
+	    if (!(RSTRING(str)->len > 0 && isdirsep(RSTRING(str)->ptr[RSTRING(str)->len - 1])) &&
+		!(RSTRING(arg)->len > 0 && isdirsep(RSTRING(arg)->ptr[0])))
+		str = rb_str_concat(str, separator);
+	    str = rb_str_concat(str, arg);
+	}
+    }
+    return str;
+}
+
+static VALUE
 rb_file_s_join(obj, args)
     VALUE obj, args;
 {
-    return rb_ary_join(args, separator);
+    obj = rb_str_new(0, MAXPATHLEN);
+    RARRAY(obj)->len = 0;
+    obj = rb_file_join(args, obj);
+    return rb_str_resize(obj, RSTRING(obj)->len);
 }
 


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