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

なかだです。

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

  ちょっと作り直してみました。check_pathname()とchompdirsep()
rb_str_buf_append_path()を使ってるので、[ruby-dev:13978]の
file.cへのパッチのCHUNK 2が必要です。


Index: file.c
===================================================================
RCS file: /cvs/ruby/src/ruby/file.c,v
retrieving revision 1.61
diff -u -2 -p -r1.61 file.c
--- file.c	2001/07/18 05:55:20	1.61
+++ file.c	2001/07/20 04:14:37
@@ -1525,8 +1623,59 @@ static VALUE separator;
 
 static VALUE
+file_inspect_join(ary, result)
+    VALUE ary, *result;
+{
+    VALUE path = result[0];
+    int ofs = (int)result[1];
+    long i;
+
+    for (i = 0; i < RARRAY(ary)->len; ++i) {
+	VALUE arg = RARRAY(ary)->ptr[i];
+	switch (TYPE(arg)) {
+	  default:
+	    arg = rb_obj_as_string(arg);
+	  case T_STRING:
+	    check_pathname(arg);
+	    {
+		char *ptr;
+
+		if (!path) {
+		    result[0] = path = rb_str_buf_new(MAXPATHLEN);
+		}
+		if (ofs < 0) {
+		    rb_str_buf_append(path, arg);
+		    ptr = RSTRING(path)->ptr;
+		}
+		else {
+		    ptr = RSTRING(path)->ptr
+			+ rb_str_buf_append_path(path, arg, ofs);
+		}
+		result[1] = (VALUE)(ofs = chompdirsep(ptr) - ptr);
+		OBJ_INFECT(path, arg);
+	    }
+	    break;
+	  case T_ARRAY:
+	    if (rb_inspecting_p(arg)) {
+		rb_raise(rb_eArgError, "recusive reference while File.join");
+	    }
+	    rb_protect_inspect(file_inspect_join, arg, (VALUE)result);
+	    break;
+	}
+    }
+    return result[0];
+}
+
+static VALUE
 rb_file_s_join(klass, args)
     VALUE klass, args;
 {
-    return rb_ary_join(args, separator);
+    VALUE result[2];
+
+    result[0] = 0;
+    result[1] = -1;
+    rb_protect_inspect(file_inspect_join, args, (VALUE)result);
+
+    if (!result[0]) return rb_str_new(0, 0);
+    return result[0];
 }
 


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