diff options
author | Yukihiro Matsumoto <matz@ruby-lang.org> | 1995-01-10 00:58:20 +0900 |
---|---|---|
committer | Takashi Kokubun <takashikkbn@gmail.com> | 2019-08-17 22:09:31 +0900 |
commit | 5d828b25d4ae30a000c054a724ac248dadbb97b3 (patch) | |
tree | 080fc6e3b41b9c59cf5def77ae619a82e7e252db /object.c | |
parent | bd0c733b77b561f4d12daccebf06a7c71917000b (diff) |
version 0.64v0_64
https://cache.ruby-lang.org/pub/ruby/1.0/ruby-0.64.tar.gz
Tue Jan 10 00:58:20 1995 Yukihiro Matsumoto (matz@dyna)
* eval.c: レシーバと引数は常にiterではない.
* cons.c(aref,aset): negative offset対応.
Mon Jan 9 14:40:39 1995 Yukihiro Matsumoto (matz@ix-02)
* parse.y: foo{..}の形式において,fooをローカル変数やクラス名では
なく,引数なしの関数型メソッド呼び出しとみなすようにした.
* list.c -> cons.c: 名称変更(クラス名も).
* list.c: a::b::c::nilをリスト(a b c)とみなすlisp形式から,a::b::c
をリスト(a b c)とみなすruby形式に変更.[], []=, eachもそれに会わ
せた仕様とする.
* list.c: consペアとしての機能を強調.仕様変更.
Sat Jan 7 01:26:26 1995 Yukihiro Matsumoto (matz@dyna)
* eval.c: 自己代入の不具合修正.
* eval.c(masign): 多重代入が配列もリストもとれるようにした.
* list.c: assocを2要素の配列からList(CONSペア)に変更した.
Fri Jan 6 13:42:12 1995 Yukihiro Matsumoto (matz@ix-02)
* parse.y: a[b]+=cやa.b+=cなどの自己代入形式で,aやbを2度評価しな
くなった.
* eval.c: iterator設定のバグフィックス.
* list.c: Listクラスを新設.
Thu Jan 5 13:55:00 1995 Yukihiro Matsumoto (matz@ix-02)
* parse.y: SCOPEのメモリリークをなくした.
* eval.c: built-inメソッドへの引数の引き渡し方を変更して,配列の生
成数を減らした.
* re.c: match-dataを毎回生成することをやめた.`$~'をアクセスした時
にon-demandで生成する.
* string.c etc: 不必要なmemmoveをmemcpyに置換.
* parse.y: =~, !~は副作用があるのでコンパイル時に展開できない.
Tue Jan 3 02:04:36 1995 Yukihiro Matsumoto (matz@dyna)
* eval.c: rest引数のbug fix.
* eval.c,gc.c: scopeをオブジェクトにした.
* eval.c: envとscopeの扱いを変更した.
Wed Dec 28 09:46:57 1994 Yukihiro Matsumoto (matz@ix-02)
* parse.y: evalでローカル変数が追加された場合に対応した.
* parse.y: 演算子を含むaliasのbug fix.
Tue Dec 27 16:45:20 1994 Yukihiro Matsumoto (matz@ix-02)
* parse.y: def A Bをalias A Bに変更.
* eval.c: alias関係のbug修正.nodeをオブジェクト化した時にenbugし
たようだ.
* signal.c: システムコールの再定義を止めた.
* io.c(select): write/exceptのフラグ設定にバグ.
* Makefile.in: static link用オプションをMake変数として独立させた.
Diffstat (limited to 'object.c')
-rw-r--r-- | object.c | 48 |
1 files changed, 32 insertions, 16 deletions
@@ -3,7 +3,7 @@ object.c - $Author: matz $ - $Date: 1994/12/20 05:01:01 $ + $Date: 1995/01/10 10:42:44 $ created at: Thu Jul 15 12:01:24 JST 1993 Copyright (C) 1994 Yukihiro Matsumoto @@ -26,7 +26,6 @@ VALUE C_Data; struct st_table *new_idhash(); VALUE Fsprintf(); -VALUE Fdefined(); VALUE obj_responds_to(); VALUE obj_alloc(); @@ -47,11 +46,18 @@ P_false(obj) return FALSE; } +VALUE +rb_equal(obj1, obj2) + VALUE obj1, obj2; +{ + return rb_funcall(obj1, eq, 1, obj2); +} + static VALUE -Fkrn_equal(obj, other) - VALUE obj, other; +Fkrn_equal(obj1, obj2) + VALUE obj1, obj2; { - if (obj == other) return TRUE; + if (obj1 == obj2) return TRUE; return FALSE; } @@ -73,7 +79,7 @@ static VALUE Fkrn_noteq(obj, other) VALUE obj, other; { - if (rb_funcall(obj, eq, 1, other)) { + if (rb_equal(obj, other)) { return FALSE; } return TRUE; @@ -271,8 +277,10 @@ obj_alloc(class) } static VALUE -Fcls_new(class, args) - VALUE class, args; +Fcls_new(argc, argv, class) + int argc; + VALUE *argv; + VALUE class; { return obj_alloc(class); } @@ -285,12 +293,14 @@ Fcls_to_s(class) } static VALUE -Fcls_attr(class, args) - VALUE class, args; +Fcls_attr(argc, argv, class) + int argc; + VALUE *argv; + VALUE class; { VALUE name, pub; - rb_scan_args(args, "11", &name, &pub); + rb_scan_args(argc, argv, "11", &name, &pub); Check_Type(name, T_STRING); rb_define_attr(class, RSTRING(name)->ptr, pub); return Qnil; @@ -351,7 +361,8 @@ Fdata_class(data) return C_Data; } -static VALUE boot_defclass(name, super) +static +VALUE boot_defclass(name, super) char *name; VALUE super; { @@ -361,6 +372,11 @@ static VALUE boot_defclass(name, super) return (VALUE)obj; } +Fdo() +{ + return rb_yield(Qnil); +} + VALUE TopSelf; VALUE TRUE = 1; @@ -423,11 +439,11 @@ Init_Object() rb_define_method(C_Kernel, "to_s", Fkrn_to_s, 0); rb_define_method(C_Kernel, "_inspect", Fkrn_inspect, 0); - rb_define_private_method(C_Kernel, "defined", Fdefined, 1); - rb_define_private_method(C_Kernel, "sprintf", Fsprintf, -1); rb_define_alias(C_Kernel, "format", "sprintf"); + rb_define_private_method(C_Kernel, "do", Fdo, 0); + rb_define_method(C_Object, "_inspect", Fobj_inspect, 0); rb_define_method(C_Object, "responds_to", obj_responds_to, 1); @@ -437,11 +453,11 @@ Init_Object() rb_define_method(C_Module, "to_s", Fcls_to_s, 0); rb_define_method(C_Module, "clone", Fcant_clone, 0); - rb_define_private_method(C_Module, "attr", Fcls_attr, -2); + rb_define_private_method(C_Module, "attr", Fcls_attr, -1); rb_define_method(C_Module, "export", Fcls_export, -1); rb_define_method(C_Module, "unexport", Fcls_unexport, -1); - rb_define_method(C_Class, "new", Fcls_new, -2); + rb_define_method(C_Class, "new", Fcls_new, -1); C_Nil = rb_define_class("Nil", C_Kernel); rb_define_method(C_Nil, "to_s", Fnil_to_s, 0); |