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

なかだです。

At Tue, 16 Oct 2001 11:36:11 +0900,
[e-mail] (Yukihiro Matsumoto) wrote:
> ですねえ。元々変数のaliasはEnglish.rbのための付録のようなも
> のなのであんまり注意を払っていませんでした。本物のaliasにし
> た方が良いとは思いますが、その手間が正当化できるかどうは不明
> です。
> 
> 中田さんのパッチ[ruby-dev:14932]はどのような動作を目指したも
> のなのでしょうか？

　単純に他のglobal_entryにdelegateするだけのものです。しかし、
val_getter以外のときにもオーバーヘッドが増えてしまうのはうれし
くないので、こうしてみました。


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/16 04:10:24
@@ -314,4 +314,7 @@ static void  var_setter();
 static void  var_marker();
 
+static VALUE alias_getter();
+static void  alias_setter();
+
 struct global_entry*
 rb_global_entry(id)
@@ -424,4 +427,42 @@ readonly_setter(val, id, var)
 
 static int
+alias_fixup(entry1, entry2)
+    struct global_entry *entry1, *entry2;
+{
+    if (entry2->getter != val_getter) return 0;
+    entry1->data   = &entry2->data;
+    entry1->getter = var_getter;
+    if (entry2->setter == val_setter)
+	entry1->setter = var_setter;
+    else
+	entry1->setter = entry2->setter;
+    return 1;
+}
+
+static VALUE
+alias_getter(id, data, entry)
+    ID id;
+    void *data;
+    struct global_entry *entry;
+{
+    struct global_entry *entry2 = data;
+    VALUE val = (*entry2->getter)(id, entry2->data, entry2);
+    alias_fixup(entry, entry2);
+    return val;
+}
+
+static void
+alias_setter(val, id, data, entry)
+    VALUE val;
+    ID id;
+    void *data;
+    struct global_entry *entry;
+{
+    struct global_entry *entry2 = data;
+    (*entry2->setter)(val, id, entry2->data, entry2);
+    alias_fixup(entry, entry2);
+}
+
+static int
 mark_global_entry(key, entry)
     ID key;
@@ -606,4 +647,5 @@ rb_f_untrace_var(argc, argv)
     return Qnil;
 }
+
 VALUE
 rb_gvar_get(entry)
@@ -685,4 +727,6 @@ rb_gvar_defined(entry)
     struct global_entry *entry;
 {
+    if (entry->getter == alias_getter && !alias_fixup(entry, entry->data))
+	entry = entry->data;
     if (entry->getter == undef_getter) return Qfalse;
     return Qtrue;
@@ -728,8 +772,15 @@ 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) {
+	entry1->data   = entry2;
+	entry1->getter = alias_getter;
+	entry1->setter = alias_setter;
+    }
+    else if (!alias_fixup(entry1, entry2)) {
+	entry1->data   = entry2->data;
+	entry1->getter = entry2->getter;
+	entry1->setter = entry2->setter;
+    }
+    entry1->marker = undef_marker;
 }
 


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