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変数として独立させた．

1 files changed, 12 insertions, 13 deletions

diff --git a/struct.c b/struct.c
index 6f69d0cf02..819b3526da 100644
--- a/struct.c
+++ b/struct.c
@@ -3,7 +3,7 @@
   struct.c -
 
   $Author: matz $
-  $Date: 1994/12/06 09:30:26 $
+  $Date: 1995/01/10 10:43:02 $
   created at: Tue Mar 22 18:44:30 JST 1994
 
 ************************************************/
@@ -97,28 +97,27 @@ struct_new(name, va_alist)
     return st;
 }
 
-#define ASSOC_KEY(a) RARRAY(a)->ptr[0]
-#define ASSOC_VAL(a) RARRAY(a)->ptr[1]
+#define ASSOC_KEY(a) RCONS(a)->car
+#define ASSOC_VAL(a) RCONS(a)->cdr
 
 static VALUE
-Sstruct_new(class, args)
-    VALUE class, args;
+Sstruct_new(argc, argv, class)
+    int argc;
+    VALUE *argv;
+    VALUE class;
 {
     VALUE name, st;
     struct RArray *tbl;
     int i, max;
 
-    rb_scan_args(args, "1*", &name, &tbl);
+    rb_scan_args(argc, argv, "1*", &name, &tbl);
     Check_Type(name, T_STRING);
 
     st = struct_alloc(class, RSTRING(name)->ptr);
     for (i=0, max=tbl->len; i<max; i++) {
 	VALUE assoc = tbl->ptr[i];
 
-	Check_Type(assoc, T_ARRAY);
-	if (RARRAY(assoc)->len != 2) {
-	    Fail("args must be pairs");
-	}
+	Check_Type(assoc, T_CONS);
 	Check_Type(ASSOC_KEY(assoc), T_STRING);
 	struct_add(st, RSTRING(ASSOC_KEY(assoc))->ptr, ASSOC_VAL(assoc));
     }
@@ -183,7 +182,7 @@ Fstruct_to_s(s)
 {
     char *buf;
 
-    buf = (char*)alloca(strlen(s->name) + sizeof(HDR) + 1);
+    buf = ALLOCA_N(char, strlen(s->name)+sizeof(HDR)+1);
     sprintf(buf, "%s%s", HDR, s->name);
     return str_new2(buf);
 }
@@ -238,7 +237,7 @@ Fstruct_clone(s)
     CLONESETUP(st, s);
     st->len = s->len;
     st->tbl = ALLOC_N(struct kv_pair, s->len);
-    memcpy(st->tbl, s->tbl, sizeof(struct kv_pair) * st->len);
+    MEMCPY(st->tbl, s->tbl, struct kv_pair, st->len);
     RBASIC(st)->class = single_class_clone(RBASIC(s)->class);
     return (VALUE)st;
 }
@@ -248,7 +247,7 @@ Init_Struct()
     C_Struct = rb_define_class("Struct", C_Object);
     rb_include_module(C_Struct, M_Enumerable);
 
-    rb_define_single_method(C_Struct, "new", Sstruct_new, -2);
+    rb_define_single_method(C_Struct, "new", Sstruct_new, -1);
     rb_define_method(C_Struct, "clone", Fstruct_clone, 0);
 
     rb_define_method(C_Struct, "to_s", Fstruct_to_s, 0);