[ruby-dev:10907] attr_tester

おもいつきで書いてみました、気に入ったら採用してやってください。
--
       yashi

Index: eval.c
===================================================================
RCS file: /home/cvs/ruby/eval.c,v
retrieving revision 1.103
diff -u -u -r1.103 eval.c
--- eval.c      2000/09/12 06:41:23     1.103
+++ eval.c      2000/09/13 01:30:48
@@ -485,6 +485,12 @@
        rb_add_method(klass, id, NEW_ATTRSET(attriv), noex);
        rb_funcall(klass, added, 1, ID2SYM(id));
     }
+    sprintf(buf, "%s?", name);
+    id = rb_intern(buf);
+    if (!read && !write) {
+        rb_add_method(klass, id, NEW_IVAR(attriv), noex);
+        rb_funcall(klass, added, 1, ID2SYM(id));
+    }
 }
 
 extern int ruby_in_compile;

Index: object.c
===================================================================
RCS file: /home/cvs/ruby/object.c,v
retrieving revision 1.27
diff -u -u -r1.27 object.c
--- object.c    2000/09/12 05:37:24     1.27
+++ object.c    2000/09/13 01:30:52
@@ -763,6 +763,20 @@
 }
 
 static VALUE
+rb_mod_attr_tester(argc, argv, klass)
+    int argc;
+    VALUE *argv;
+    VALUE klass;
+{
+    int i;
+
+    for (i=0; i<argc; i++) {
+       rb_attr(klass, rb_to_id(argv[i]), 0, 0, Qtrue);
+    }
+    return Qnil;
+}
+
+static VALUE
 rb_mod_const_get(mod, name)
     VALUE mod, name;
 {
@@ -1162,6 +1176,7 @@
     rb_define_private_method(rb_cModule, "attr_reader", rb_mod_attr_reader, -1);
     rb_define_private_method(rb_cModule, "attr_writer", rb_mod_attr_writer, -1);
     rb_define_private_method(rb_cModule, "attr_accessor", rb_mod_attr_accessor, -1);
+    rb_define_private_method(rb_cModule, "attr_tester", rb_mod_attr_tester, -1);
 
     rb_define_singleton_method(rb_cModule, "new", rb_module_s_new, 0);
     rb_define_method(rb_cModule, "initialize", rb_mod_initialize, -1);