From 0d684beafb4258da9606b1e3b4448511b709a2e2 Mon Sep 17 00:00:00 2001
From: matz <matz@b2dd03c8-39d4-4d8f-98ff-823fe69b080e>
Date: Fri, 29 Oct 1999 09:25:48 +0000
Subject: 19991029

git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@556 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
---
 array.c | 20 ++++++++++++++++++++
 1 file changed, 20 insertions(+)

(limited to 'array.c')

diff --git a/array.c b/array.c
index 0615da7551..2cc9a07c89 100644
--- a/array.c
+++ b/array.c
@@ -934,6 +934,25 @@ rb_ary_sort(ary)
     return ary;
 }
 
+static VALUE
+rb_ary_collect(ary)
+    VALUE ary;
+{
+    long len, i;
+    VALUE collect;
+
+    if (!rb_iterator_p()) {
+	return rb_ary_dup(ary);
+    }
+
+    len = RARRAY(ary)->len;
+    collect = rb_ary_new2(len);
+    for (i=0; i<len; i++) {
+	rb_ary_push(collect, rb_yield(RARRAY(ary)->ptr[i]));
+    }
+    return collect;
+}
+
 VALUE
 rb_ary_delete(ary, item)
     VALUE ary;
@@ -1494,6 +1513,7 @@ Init_Array()
     rb_define_method(rb_cArray, "reverse!", rb_ary_reverse, 0);
     rb_define_method(rb_cArray, "sort", rb_ary_sort, 0);
     rb_define_method(rb_cArray, "sort!", rb_ary_sort_bang, 0);
+    rb_define_method(rb_cArray, "collect", rb_ary_collect, 0);
     rb_define_method(rb_cArray, "delete", rb_ary_delete, 1);
     rb_define_method(rb_cArray, "delete_at", rb_ary_delete_at, 1);
     rb_define_method(rb_cArray, "delete_if", rb_ary_delete_if, 0);
-- 
cgit v1.2.3