summaryrefslogtreecommitdiff
path: root/variable.c
diff options
context:
space:
mode:
authorYukihiro Matsumoto <matz@ruby-lang.org>1994-12-19 12:01:10 +0900
committerTakashi Kokubun <takashikkbn@gmail.com>2019-08-17 22:09:31 +0900
commitb3f9ba5a3720de81a9a14d9d906509f81abeef7a (patch)
treeb5203ba2322aeb4ba05df7ddeb4d17369bd3e63a /variable.c
parent00e36aa09f54925c2f9c30524b48f4f54a9adb23 (diff)
version 0.62v0_62
https://cache.ruby-lang.org/pub/ruby/1.0/ruby-0.62.tar.gz Mon Dec 19 12:01:10 1994 Yukihiro Matsumoto (matz@ix-02) * parse.y(cond): 条件式に代入式が置かれた場合,`-v'オプションで警 告が出るように. * parse.y(**): 冪乗演算子`**'の優先順位を単項演算子より高くした. * parse.y(and,or): 優先順位の低い演算子`and', `or'. * 0.62 released. * eval.c: 不必要になったPUSH_ENV, POP_ENVを減らした. * env.h: ENVIONからselfをはずした.PUSH_ENVはsuperの準備のためだけ に用いることにした. * eval.c: 下記のオブジェクト化で遅くなった実行速度をもとに戻した. Mon Dec 17 23:01:10 1994 Yukihiro Matsumoto (matz@ix-02) * eval.c: env.{argv,argc}とscope.local_varsのオブジェクト化. * eval.c: 1スコープ内で複数Blockを生成したときのバグを修正. Fri Dec 16 15:52:06 1994 Yukihiro Matsumoto (matz@ix-02) * parse.y: `&&'と`||'の両辺はいつでも条件式とした. Thu Dec 15 00:16:04 1994 Yukihiro Matsumoto (matz@dyna) * eval.c(Block): Blockオブジェクトを実現. * node.h: NODE_QLISTはなくなった. * eval.c(rb_call): 引数への代入を名前で一つずつ代入するのをやめて, 一度にコピーするようにした. * eval.c(rb_call): rubyで記述されたメソッドへの引数渡しをinline化. * eval.c: イテレータ判定処理の全面書き換え.不適切なイテレータ呼び 出しをなくした.例えば「[foo(),bar()]{i|baz(i)}」でfooもbarもイ テレータとして呼び出され*ない*. * eval.c(rb_call): SCOPE処理をinline化.メソッド呼び出しの若干の高 速化. Wed Dec 14 18:09:33 1994 Yukihiro Matsumoto (matz@ix-02) * node.h: nodeもオブジェクトにする.よってGCで回収される.
Diffstat (limited to 'variable.c')
-rw-r--r--variable.c23
1 files changed, 17 insertions, 6 deletions
diff --git a/variable.c b/variable.c
index ae3163de19..aa01b31921 100644
--- a/variable.c
+++ b/variable.c
@@ -3,7 +3,7 @@
variable.c -
$Author: matz $
- $Date: 1994/11/01 08:28:42 $
+ $Date: 1994/12/19 08:30:16 $
created at: Tue Apr 19 23:55:15 JST 1994
************************************************/
@@ -55,9 +55,10 @@ struct global_entry {
} v;
VALUE (*get_hook)();
VALUE (*set_hook)();
+ void *data;
};
-static
+static
mark_global_entry(key, entry)
ID key;
struct global_entry *entry;
@@ -73,9 +74,13 @@ mark_global_entry(key, entry)
default:
break;
}
+ if (entry->data) {
+ gc_mark_maybe(entry->data);
+ }
return ST_CONTINUE;
}
+void
gc_mark_global_tbl()
{
st_foreach(global_tbl, mark_global_entry, 0);
@@ -99,11 +104,12 @@ rb_global_entry(id)
}
void
-rb_define_variable(name, var, get_hook, set_hook)
+rb_define_variable(name, var, get_hook, set_hook, data)
char *name;
VALUE *var;
VALUE (*get_hook)();
VALUE (*set_hook)();
+ void *data;
{
struct global_entry *entry;
ID id;
@@ -123,13 +129,15 @@ rb_define_variable(name, var, get_hook, set_hook)
entry->v.var = var;
entry->get_hook = get_hook;
entry->set_hook = set_hook;
+ entry->data = data;
}
void
-rb_define_varhook(name, get_hook, set_hook)
+rb_define_varhook(name, get_hook, set_hook, data)
char *name;
VALUE (*get_hook)();
VALUE (*set_hook)();
+ void *data;
{
struct global_entry *entry;
ID id;
@@ -154,6 +162,9 @@ rb_define_varhook(name, get_hook, set_hook)
entry->v.val = Qnil;
entry->get_hook = get_hook;
entry->set_hook = set_hook;
+ if (data) {
+ entry->data = data;
+ }
}
VALUE
@@ -183,7 +194,7 @@ rb_gvar_get(entry)
VALUE val;
if (entry->get_hook)
- val = (*entry->get_hook)(entry->id);
+ val = (*entry->get_hook)(entry->id, entry->data);
switch (entry->mode) {
case GLOBAL_VAL:
return entry->v.val;
@@ -258,7 +269,7 @@ rb_gvar_set(entry, val)
VALUE val;
{
if (entry->set_hook)
- (*entry->set_hook)(val, entry->id);
+ (*entry->set_hook)(val, entry->id, entry->data);
if (entry->mode == GLOBAL_VAR) {
if (entry->v.var == Qnil) {