summaryrefslogtreecommitdiff
path: root/enum.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 /enum.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 'enum.c')
-rw-r--r--enum.c28
1 files changed, 23 insertions, 5 deletions
diff --git a/enum.c b/enum.c
index c6866b4..5eaef85 100644
--- a/enum.c
+++ b/enum.c
@@ -3,7 +3,7 @@
enum.c -
$Author: matz $
- $Date: 1994/12/06 09:29:56 $
+ $Date: 1995/01/10 10:42:29 $
created at: Fri Oct 1 15:15:19 JST 1993
Copyright (C) 1994 Yukihiro Matsumoto
@@ -13,7 +13,7 @@
#include "ruby.h"
VALUE M_Enumerable;
-static ID id_each, id_match, id_equal, id_cmp;
+static ID id_each, id_match, id_cmp;
void
rb_each(obj)
@@ -235,7 +235,7 @@ enum_index(item, iv)
VALUE item;
struct i_v_pair *iv;
{
- if (rb_funcall(item, id_equal, 1, iv->v)) {
+ if (rb_equal(item, 1, iv->v)) {
iv->found = 1;
rb_break();
}
@@ -263,7 +263,7 @@ enum_includes(item, iv)
VALUE item;
struct i_v_pair *iv;
{
- if (rb_funcall(item, id_equal, 1, iv->v)) {
+ if (rb_equal(item, iv->v)) {
iv->i = 1;
rb_break();
}
@@ -282,6 +282,24 @@ Fenum_includes(obj, val)
return FALSE;
}
+static void
+enum_length(i, length)
+ VALUE i;
+ int *length;
+{
+ (*length)++;
+}
+
+static VALUE
+Fenum_length(obj)
+ VALUE obj;
+{
+ int length = 0;
+
+ rb_iterate(rb_each, obj, enum_length, &length);
+ return INT2FIX(length);
+}
+
Init_Enumerable()
{
M_Enumerable = rb_define_module("Enumerable");
@@ -297,9 +315,9 @@ Init_Enumerable()
rb_define_method(M_Enumerable,"max", Fenum_max, 0);
rb_define_method(M_Enumerable,"index", Fenum_index, 1);
rb_define_method(M_Enumerable,"includes", Fenum_includes, 1);
+ rb_define_method(M_Enumerable,"length", Fenum_length, 0);
id_each = rb_intern("each");
id_match = rb_intern("=~");
- id_equal = rb_intern("==");
id_cmp = rb_intern("<=>");
}