summaryrefslogtreecommitdiff
path: root/struct.c
diff options
context:
space:
mode:
authorYukihiro Matsumoto <matz@ruby-lang.org>1995-01-10 00:58:20 +0900
committerTakashi Kokubun <takashikkbn@gmail.com>2019-08-17 22:09:31 +0900
commit5d828b25d4ae30a000c054a724ac248dadbb97b3 (patch)
tree080fc6e3b41b9c59cf5def77ae619a82e7e252db /struct.c
parentbd0c733b77b561f4d12daccebf06a7c71917000b (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 'struct.c')
-rw-r--r--struct.c25
1 files changed, 12 insertions, 13 deletions
diff --git a/struct.c b/struct.c
index 6f69d0c..819b352 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);