[ruby-dev:13393] Re: clearerr(3)

　IO#clearerr を導入する場合、 error? (ferror() 相当) も一緒が
いいでしょうね。(添付)

　ところで、 IO#eof? は stdio の feof() そのものではなく、状態を
変化させるんですね。EOF フラグがセットされていない場合は getc()
して EOF が返るかどうかを調べています。ということは、もし EOF
フラグがクリアされていても、実際にバッファが空で読めない場合は
フラグに関係なく真が返り EOF フラグも再びセットされます。

　その辺を含め、どのメソッドが自動で clearerr するかという情報は
ちゃんとドキュメントする必要がありますね。

-- 
                     /
                    /__  __            Akinori.org / MUSHA.org
                   / )  )  ) )  /     FreeBSD.org / Ruby-lang.org
Akinori MUSHA aka / (_ /  ( (__(  @ iDaemons.org / and.or.jp

"Freeze this moment a little bit longer, make each impression
  a little bit stronger..  Experience slips away -- Time stand still"

Index: io.c
===================================================================
RCS file: /src/ruby/io.c,v
retrieving revision 1.85
diff -u -r1.85 io.c
--- io.c	2001/05/16 09:05:50	1.85
+++ io.c	2001/05/29 05:33:21
@@ -409,6 +409,28 @@
 }
 
 static VALUE
+rb_io_error(io)
+     VALUE io;
+{
+    OpenFile *fptr;
+
+    GetOpenFile(io, fptr);
+    return ferror(fptr->f) ? Qtrue : Qfalse;
+}
+
+static VALUE
+rb_io_clearerr(io)
+     VALUE io;
+{
+    OpenFile *fptr;
+
+    GetOpenFile(io, fptr);
+    clearerr(fptr->f);
+
+    return Qnil;
+}
+
+static VALUE
 rb_io_sync(io)
     VALUE io;
 {
@@ -3353,6 +3375,32 @@
 }
 
 static VALUE
+argf_error(io)
+     VALUE io;
+{
+    if (!next_argv()) {
+	rb_raise(rb_eArgError, "no stream to check error indicator");
+    }
+    if (TYPE(current_file) != T_FILE) {
+	return argf_forward();
+    }
+    return rb_io_error(current_file);
+}
+
+static VALUE
+argf_clearerr(io)
+     VALUE io;
+{
+    if (!next_argv()) {
+	rb_raise(rb_eArgError, "no stream to clear error indicator");
+    }
+    if (TYPE(current_file) != T_FILE) {
+	return argf_forward();
+    }
+    return rb_io_clearerr(current_file);
+}
+
+static VALUE
 argf_each_line(argc, argv)
     int argc;
     VALUE *argv;
@@ -3537,6 +3585,8 @@
     rb_define_method(rb_cIO, "pos=", rb_io_set_pos, 1);
     rb_define_method(rb_cIO, "eof", rb_io_eof, 0);
     rb_define_method(rb_cIO, "eof?", rb_io_eof, 0);
+    rb_define_method(rb_cIO, "error?", rb_io_error, 0);
+    rb_define_method(rb_cIO, "clearerr", rb_io_clearerr, 0);
 
     rb_define_method(rb_cIO, "close", rb_io_close_m, 0);
     rb_define_method(rb_cIO, "closed?", rb_io_closed, 0);
@@ -3592,6 +3642,8 @@
     rb_define_singleton_method(argf, "pos=", argf_set_pos, 1);
     rb_define_singleton_method(argf, "eof", argf_eof, 0);
     rb_define_singleton_method(argf, "eof?", argf_eof, 0);
+    rb_define_singleton_method(argf, "error?", argf_error, 0);
+    rb_define_singleton_method(argf, "clearerr", argf_clearerr, 0);
     rb_define_singleton_method(argf, "binmode", argf_binmode, 0);
 
     rb_define_singleton_method(argf, "to_s", argf_filename, 0);