1 files changed, 0 insertions, 118 deletions
diff --git a/compar.c b/compar.c
deleted file mode 100644
index 86494e27c5..0000000000
--- a/compar.c
+++ /dev/null
@@ -1,118 +0,0 @@
-/**********************************************************************
-
-  compar.c -
-
-  $Author$
-  $Date$
-  created at: Thu Aug 26 14:39:48 JST 1993
-
-  Copyright (C) 1993-2001 Yukihiro Matsumoto
-
-**********************************************************************/
-
-#include "ruby.h"
-
-VALUE rb_mComparable;
-
-static ID cmp;
-
-static VALUE
-cmp_eq(a)
-    VALUE *a;
-{
-    VALUE c = rb_funcall(a[0], cmp, 1, a[1]);
-    int t = NUM2INT(c);
-
-    if (t == 0) return Qtrue;
-    return Qfalse;
-}
-
-static VALUE
-cmp_failed()
-{
-    return Qfalse;
-}
-
-static VALUE
-cmp_equal(x, y)
-    VALUE x, y;
-{
-    VALUE a[2];
-
-    if (x == y) return Qtrue;
-
-    a[0] = x; a[1] = y;
-    return rb_rescue(cmp_eq, (VALUE)a, cmp_failed, 0);
-}
-
-static VALUE
-cmp_gt(x, y)
-    VALUE x, y;
-{
-    VALUE c = rb_funcall(x, cmp, 1, y);
-    int t = NUM2INT(c);
-
-    if (t > 0) return Qtrue;
-    return Qfalse;
-}
-
-static VALUE
-cmp_ge(x, y)
-    VALUE x, y;
-{
-    VALUE c = rb_funcall(x, cmp, 1, y);
-    int t = NUM2INT(c);
-
-    if (t >= 0) return Qtrue;
-    return Qfalse;
-}
-
-static VALUE
-cmp_lt(x, y)
-    VALUE x, y;
-{
-    VALUE c = rb_funcall(x, cmp, 1, y);
-    int t = NUM2INT(c);
-
-    if (t < 0) return Qtrue;
-    return Qfalse;
-}
-
-static VALUE
-cmp_le(x, y)
-    VALUE x, y;
-{
-    VALUE c = rb_funcall(x, cmp, 1, y);
-    int t = NUM2INT(c);
-
-    if (t <= 0) return Qtrue;
-    return Qfalse;
-}
-
-static VALUE
-cmp_between(x, min, max)
-    VALUE x, min, max;
-{
-    VALUE c = rb_funcall(x, cmp, 1, min);
-    long t = NUM2LONG(c);
-    if (t < 0) return Qfalse;
-
-    c = rb_funcall(x, cmp, 1, max);
-    t = NUM2LONG(c);
-    if (t > 0) return Qfalse;
-    return Qtrue;
-}
-
-void
-Init_Comparable()
-{
-    rb_mComparable = rb_define_module("Comparable");
-    rb_define_method(rb_mComparable, "==", cmp_equal, 1);
-    rb_define_method(rb_mComparable, ">", cmp_gt, 1);
-    rb_define_method(rb_mComparable, ">=", cmp_ge, 1);
-    rb_define_method(rb_mComparable, "<", cmp_lt, 1);
-    rb_define_method(rb_mComparable, "<=", cmp_le, 1);
-    rb_define_method(rb_mComparable, "between?", cmp_between, 2);
-
-    cmp = rb_intern("<=>");
-}