[ruby-dev:6063] [PATCH] io_write

五十嵐です。

IOクラスを継承したクラスで定義した write メソッドを利用するように、
以下のパッチをあてて貰えないでしょうか？
Ruby 1.2.3へのパッチです。

getsなどではgetcを連続して呼ぶため、大きく速度が低下しましたが、
writeはそのような状況は少なく、速度低下はそれほどないと思います。

--- io.c.orig	Sat Mar  6 23:11:09 1999
+++ io.c	Sat Mar  6 23:22:38 1999
@@ -198,7 +198,7 @@
 io_addstr(io, str)
     VALUE io, str;
 {
-    io_write(io, str);
+    rb_funcall(io, id_write, 1, str);
     return io;
 }
 
@@ -1496,27 +1496,27 @@
     }
     for (i=0; i<argc; i++) {
 	if (!NIL_P(OFS) && i>0) {
-	    io_write(out, OFS);
+	    rb_funcall(out, id_write, 1, OFS);
 	}
 	switch (TYPE(argv[i])) {
 	  case T_NIL:
-	    io_write(out, str_new2("nil"));
+	    rb_funcall(out, id_write, 1, str_new2("nil"));
 	    break;
 	  case T_ARRAY:
 	    for (j=0; j<RARRAY(argv[i])->len; j++) {
 		if (!NIL_P(OFS) && j>0) {
-		    io_write(out, OFS);
+		    rb_funcall(out, id_write, 1, OFS);
 		}
-		io_write(out, RARRAY(argv[i])->ptr[j]);
+		rb_funcall(out, id_write, 1, RARRAY(argv[i])->ptr[j]);
 	    }
 	    break;
 	  default:
-	    io_write(out, argv[i]);
+	    rb_funcall(out, id_write, 1, argv[i]);
 	    break;
 	}
     }
     if (!NIL_P(ORS)) {
-	io_write(out, ORS);
+       rb_funcall(out, id_write, 1, ORS);
     }
 
     return Qnil;
@@ -1571,7 +1571,7 @@
 
     /* if no argument given, print newline. */
     if (argc == 0) {
-	io_write(out, RS_default);
+	rb_funcall(out, id_write, 1, RS_default);
 	return Qnil;
     }
     for (i=0; i<argc; i++) {
@@ -1589,9 +1589,9 @@
 	    break;
 	}
 	line = obj_as_string(line);
-	io_write(out, line);
+	rb_funcall(out, id_write, 1, line);
 	if (RSTRING(line)->ptr[RSTRING(line)->len-1] != '\n') {
-	    io_write(out, RS_default);
+	    rb_funcall(out, id_write, 1, RS_default);
 	}
     }
 
@@ -1611,8 +1611,8 @@
 rb_p(obj)			/* for debug print within C code */
     VALUE obj;
 {
-    io_write(rb_defout, rb_inspect(obj));
-    io_write(rb_defout, RS_default);
+    rb_funcall(rb_defout, id_write, 1, rb_inspect(obj));
+    rb_funcall(rb_defout, id_write, 1, RS_default);
 }
 
 static VALUE
@@ -1640,7 +1640,7 @@
 	out = rb_defout;
     }
 
-    io_write(out, self);
+    rb_funcall(out, id_write, 1, self);
 
     return Qnil;
 }

-- 
五十嵐 晃([e-mail])