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, 23 insertions, 5 deletions

diff --git a/enum.c b/enum.c
index c6866b425f..5eaef855f1 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("<=>");
 }