[ruby-dev:1601] Re: IO#putc/Kernel#putc/Kernel#putchar

前田です。

In message "[ruby-dev:1600] Re: IO#putc/Kernel#putc/Kernel#putchar"
Shugo Maeda <[e-mail]> wrote:

||まつもとさんがおっしゃるようにメソッド単位でのfinalを考えていました。
|
|試しに実装してみました。
(snip)
|他にも問題があるかもしれませんが、とりあえず動いているようです。

やはり問題がありました。
このパッチへのパッチを付けます。

あと、Stringなどでnewを再定義できなくすると、継承した時に
initializeを呼ぶこともできなくなってしまいますね。

eval.cで、

void
rb_initialize(argc, argv, recv)
    int argc;
    VALUE *argv, recv;
{
    PUSH_ITER(iterator_p()?ITER_PRE:ITER_NOT);
    rb_funcall2(recv, init, argc, argv);
    POP_ITER();
}

としてString::newなどでもinitializeを呼ぶようにするとか...。

-- 
前田 修吾

--- class.c.orig	Fri Mar  6 17:20:47 1998
+++ class.c	Fri Mar  6 17:29:58 1998
@@ -285,7 +285,7 @@
     NODE *body;
     VALUE ary;
 {
-    if (!body->nd_noex) {
+    if ((body->nd_noex & NOEX_PRIVATE) == 0) {
 	VALUE name = str_new2(rb_id2name(key));
 
 	if (!ary_includes(ary, name)) {
@@ -312,7 +312,7 @@
 	ary_push(ary, Qnil);
 	ary_push(ary, str_new2(rb_id2name(key)));
     }
-    else if (body->nd_noex) {
+    else if (body->nd_noex & NOEX_PRIVATE) {
 	VALUE name = str_new2(rb_id2name(key));
 
 	if (!ary_includes(ary, name)) {
--- eval.c.orig	Fri Mar  6 17:20:37 1998
+++ eval.c	Fri Mar  6 17:25:31 1998
@@ -4144,6 +4144,14 @@
 }
 
 static VALUE
+top_final(argc, argv)
+    int argc;
+    VALUE *argv;
+{
+    return mod_final(argc, argv, cObject);
+}
+
+static VALUE
 mod_modfunc(argc, argv, module)
     int argc;
     VALUE *argv;
@@ -4409,6 +4417,7 @@
     rb_define_singleton_method(TopSelf, "include", top_include, -1);
     rb_define_singleton_method(TopSelf, "public", top_public, -1);
     rb_define_singleton_method(TopSelf, "private", top_private, -1);
+    rb_define_singleton_method(TopSelf, "final", top_final, -1);
 
     rb_define_method(mKernel, "extend", obj_extend, -1);