mirror of
https://github.com/ruby/ruby.git
synced 2022-11-09 12:17:21 -05:00
e2d384d628
empty path, just ignore. * dir.c: remove <sys/parm.h> inclusion. * compar.c (cmp_eq,cmp_gt,cmp_ge,cmp_lt,cmp_le): check using rb_cmpint(). * error.c (init_syserr): remove sys_nerr dependency. * numeric.c (num_cmp): added to satisfy Comparable assumption. * eval.c (rb_add_method): "initialize" should be public if it is a singleton method. * regex.c (re_match): avoid dereferencing if size == 0. (ruby-bugs-ja:PR#360) * time.c (time_cmp): should return nil if an operand is not a number nor time. (ruby-bugs-ja:PR#359) * file.c (rb_stat_cmp): should return nil if an operand is not File::Stat. git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@3076 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
111 lines
2.1 KiB
C
111 lines
2.1 KiB
C
/**********************************************************************
|
|
|
|
compar.c -
|
|
|
|
$Author$
|
|
$Date$
|
|
created at: Thu Aug 26 14:39:48 JST 1993
|
|
|
|
Copyright (C) 1993-2002 Yukihiro Matsumoto
|
|
|
|
**********************************************************************/
|
|
|
|
#include "ruby.h"
|
|
|
|
VALUE rb_mComparable;
|
|
|
|
static ID cmp;
|
|
|
|
int
|
|
rb_cmpint(val)
|
|
VALUE val;
|
|
{
|
|
if (FIXNUM_P(val)) return FIX2INT(val);
|
|
if (TYPE(val) == T_BIGNUM) {
|
|
if (RBIGNUM(val)->sign) return 1;
|
|
return -1;
|
|
}
|
|
if (RTEST(rb_funcall(val, '>', 1, INT2FIX(0)))) return 1;
|
|
if (RTEST(rb_funcall(val, '<', 1, INT2FIX(0)))) return -1;
|
|
return 0;
|
|
}
|
|
|
|
static VALUE
|
|
cmp_equal(x, y)
|
|
VALUE x, y;
|
|
{
|
|
int c;
|
|
|
|
if (x == y) return Qtrue;
|
|
c = rb_funcall(x, cmp, 1, y);
|
|
if (NIL_P(c)) return Qfalse;
|
|
if (c == INT2FIX(0)) return Qtrue;
|
|
if (rb_cmpint(c) == 0) return Qtrue;
|
|
return Qfalse;
|
|
}
|
|
|
|
static VALUE
|
|
cmp_gt(x, y)
|
|
VALUE x, y;
|
|
{
|
|
VALUE c = rb_funcall(x, cmp, 1, y);
|
|
|
|
if (NIL_P(c)) return Qfalse;
|
|
if (rb_cmpint(c) > 0) return Qtrue;
|
|
return Qfalse;
|
|
}
|
|
|
|
static VALUE
|
|
cmp_ge(x, y)
|
|
VALUE x, y;
|
|
{
|
|
VALUE c = rb_funcall(x, cmp, 1, y);
|
|
|
|
if (NIL_P(c)) return Qfalse;
|
|
if (rb_cmpint(c) >= 0) return Qtrue;
|
|
return Qfalse;
|
|
}
|
|
|
|
static VALUE
|
|
cmp_lt(x, y)
|
|
VALUE x, y;
|
|
{
|
|
VALUE c = rb_funcall(x, cmp, 1, y);
|
|
|
|
if (rb_cmpint(c) < 0) return Qtrue;
|
|
return Qfalse;
|
|
}
|
|
|
|
static VALUE
|
|
cmp_le(x, y)
|
|
VALUE x, y;
|
|
{
|
|
VALUE c = rb_funcall(x, cmp, 1, y);
|
|
|
|
if (NIL_P(c)) return Qfalse;
|
|
if (rb_cmpint(c) <= 0) return Qtrue;
|
|
return Qfalse;
|
|
}
|
|
|
|
static VALUE
|
|
cmp_between(x, min, max)
|
|
VALUE x, min, max;
|
|
{
|
|
if (cmp_lt(x, min)) return Qfalse;
|
|
if (cmp_gt(x, max)) 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("<=>");
|
|
}
|