[ruby-dev:14924] Re: alias $gvar

なかだです。

At Sun, 14 Oct 2001 22:15:47 +0900,
Koji Arai <[e-mail]> wrote:
> などとしてるから、なるほど挙動は納得できるのですが、ユーザ見
> えはなんとも奇妙です。
> 
> マニュアルの記述で困ってるのですが、この挙動は将来に渡って仕
> 様ですか？

　仕様としてはヘンな感じ。

　うーん、気に入らないけど。


Index: variable.c
===================================================================
RCS file: /cvs/ruby/src/ruby/variable.c,v
retrieving revision 1.47
diff -u -2 -p -r1.47 variable.c
--- variable.c	2001/10/03 07:19:11	1.47
+++ variable.c	2001/10/14 15:27:50
@@ -728,8 +728,19 @@ rb_alias_variable(name1, name2)
     entry2 = rb_global_entry(name2);
 
-    entry1->data   = entry2->data;
-    entry1->getter = entry2->getter;
-    entry1->setter = entry2->setter;
-    entry1->marker = entry2->marker;
+    if (entry2->getter == undef_getter) {
+	(*entry2->setter)(Qnil, entry2->id, entry2->data, entry2);
+    }
+    if (entry2->getter == val_getter) {
+	entry1->data   = &entry2->data;
+	entry1->getter = var_getter;
+	entry1->setter = var_setter;
+	entry1->marker = var_marker;
+    }
+    else {
+	entry1->data   = entry2->data;
+	entry1->getter = entry2->getter;
+	entry1->setter = entry2->setter;
+	entry1->marker = entry2->marker;
+    }
 }
 


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