From ba06b1a81f81e089849c7c877eba7b1d3618b126 Mon Sep 17 00:00:00 2001
From: matz <matz@b2dd03c8-39d4-4d8f-98ff-823fe69b080e>
Date: Tue, 7 Apr 1998 08:34:10 +0000
Subject: dynamic (nested) local variables

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

(limited to 'array.c')

diff --git a/array.c b/array.c
index 02f0af36f9..5093163986 100644
--- a/array.c
+++ b/array.c
@@ -1060,6 +1060,27 @@ ary_includes(ary, item)
     return FALSE;
 }
 
+VALUE
+ary_cmp(ary, ary2)
+    VALUE ary;
+    VALUE ary2;
+{
+    int i, len;
+
+    Check_Type(ary2, T_ARRAY);
+    len = RARRAY(ary)->len;
+    if (len > RARRAY(ary2)->len) {
+	len = RARRAY(ary2)->len;
+    }
+    for (i=0; i<len; i++) {
+	VALUE v = rb_funcall(RARRAY(ary)->ptr[i],cmp,1,RARRAY(ary2)->ptr[i]);
+	if (v != INT2FIX(0)) {
+	    return v;
+	}
+    }
+    return INT2FIX(0);
+}
+
 static VALUE
 ary_diff(ary1, ary2)
     VALUE ary1, ary2;
@@ -1261,6 +1282,7 @@ Init_Array()
     rb_define_method(cArray, "fill", ary_fill, -1);
     rb_define_method(cArray, "include?", ary_includes, 1);
     rb_define_method(cArray, "===", ary_includes, 1);
+    rb_define_method(cArray, "<=>", ary_cmp, 1);
 
     rb_define_method(cArray, "assoc", ary_assoc, 1);
     rb_define_method(cArray, "rassoc", ary_rassoc, 1);
-- 
cgit v1.2.3