2000-05-01 13:42:38 +04:00
|
|
|
/**********************************************************************
|
1998-01-16 15:13:05 +03:00
|
|
|
|
|
|
|
compar.c -
|
|
|
|
|
|
|
|
$Author$
|
|
|
|
created at: Thu Aug 26 14:39:48 JST 1993
|
|
|
|
|
* encoding.c: provide basic features for M17N.
* parse.y: encoding aware parsing.
* parse.y (pragma_encoding): encoding specification pragma.
* parse.y (rb_intern3): encoding specified symbols.
* string.c (rb_str_length): length based on characters.
for older behavior, bytesize method added.
* string.c (rb_str_index_m): index based on characters. rindex as
well.
* string.c (succ_char): encoding aware succeeding string.
* string.c (rb_str_reverse): reverse based on characters.
* string.c (rb_str_inspect): encoding aware string description.
* string.c (rb_str_upcase_bang): encoding aware case conversion.
downcase, capitalize, swapcase as well.
* string.c (rb_str_tr_bang): tr based on characters. delete,
squeeze, tr_s, count as well.
* string.c (rb_str_split_m): split based on characters.
* string.c (rb_str_each_line): encoding aware each_line.
* string.c (rb_str_each_char): added. iteration based on
characters.
* string.c (rb_str_strip_bang): encoding aware whitespace
stripping. lstrip, rstrip as well.
* string.c (rb_str_justify): encoding aware justifying (ljust,
rjust, center).
* string.c (str_encoding): get encoding attribute from a string.
* re.c (rb_reg_initialize): encoding aware regular expression
* sprintf.c (rb_str_format): formatting (i.e. length count) based
on characters.
* io.c (rb_io_getc): getc to return one-character string.
for older behavior, getbyte method added.
* ext/stringio/stringio.c (strio_getc): ditto.
* io.c (rb_io_ungetc): allow pushing arbitrary string at the
current reading point.
* ext/stringio/stringio.c (strio_ungetc): ditto.
* ext/strscan/strscan.c: encoding support.
git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@13261 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
2007-08-25 07:29:39 +04:00
|
|
|
Copyright (C) 1993-2007 Yukihiro Matsumoto
|
1998-01-16 15:13:05 +03:00
|
|
|
|
2000-05-01 13:42:38 +04:00
|
|
|
**********************************************************************/
|
1998-01-16 15:13:05 +03:00
|
|
|
|
2016-08-11 10:20:36 +03:00
|
|
|
#include "id.h"
|
2019-10-15 16:32:10 +03:00
|
|
|
#include "internal.h"
|
2019-12-04 11:16:30 +03:00
|
|
|
#include "internal/compar.h"
|
|
|
|
#include "internal/error.h"
|
|
|
|
#include "internal/vm.h"
|
|
|
|
#include "ruby/ruby.h"
|
1998-01-16 15:13:05 +03:00
|
|
|
|
1999-01-20 07:59:39 +03:00
|
|
|
VALUE rb_mComparable;
|
1998-01-16 15:13:05 +03:00
|
|
|
|
2016-08-11 10:20:36 +03:00
|
|
|
static VALUE
|
|
|
|
rb_cmp(VALUE x, VALUE y)
|
|
|
|
{
|
|
|
|
return rb_funcallv(x, idCmp, 1, &y);
|
|
|
|
}
|
1998-01-16 15:13:05 +03:00
|
|
|
|
2003-05-08 07:56:12 +04:00
|
|
|
void
|
* array.c: moved to ANSI function style from K&R function style.
(used protoize on windows, so still K&R remains on #ifdef part of
other platforms. And `foo _((boo))' stuff is still there)
[ruby-dev:26975]
* bignum.c, class.c, compar.c, dir.c, dln.c, dmyext.c, enum.c,
enumerator.c, error.c, eval.c, file.c, gc.c, hash.c, inits.c,
io.c, main.c, marshal.c, math.c, numeric.c, object.c, pack.c,
prec.c, process.c, random.c, range.c, re.c, regcomp.c, regenc.c,
regerror.c, regexec.c, regparse.c, regparse.h, ruby.c, signal.c,
sprintf.c, st.c, string.c, struct.c, time.c, util.h, variable.c,
version.c: ditto.
git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@9126 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
2005-09-12 14:44:21 +04:00
|
|
|
rb_cmperr(VALUE x, VALUE y)
|
2003-05-02 13:20:21 +04:00
|
|
|
{
|
2014-08-19 08:59:44 +04:00
|
|
|
VALUE classname;
|
2003-05-08 07:56:12 +04:00
|
|
|
|
2015-01-13 15:07:04 +03:00
|
|
|
if (SPECIAL_CONST_P(y) || BUILTIN_TYPE(y) == T_FLOAT) {
|
2014-08-19 08:59:44 +04:00
|
|
|
classname = rb_inspect(y);
|
2003-05-08 07:56:12 +04:00
|
|
|
}
|
|
|
|
else {
|
2014-08-21 08:39:32 +04:00
|
|
|
classname = rb_obj_class(y);
|
2003-05-08 07:56:12 +04:00
|
|
|
}
|
2014-08-19 08:59:44 +04:00
|
|
|
rb_raise(rb_eArgError, "comparison of %"PRIsVALUE" with %"PRIsVALUE" failed",
|
2014-08-21 08:39:32 +04:00
|
|
|
rb_obj_class(x), classname);
|
2003-05-02 13:20:21 +04:00
|
|
|
}
|
|
|
|
|
2013-02-17 15:55:50 +04:00
|
|
|
static VALUE
|
|
|
|
invcmp_recursive(VALUE x, VALUE y, int recursive)
|
|
|
|
{
|
|
|
|
if (recursive) return Qnil;
|
2016-08-11 10:20:36 +03:00
|
|
|
return rb_cmp(y, x);
|
2013-02-17 15:55:50 +04:00
|
|
|
}
|
|
|
|
|
|
|
|
VALUE
|
|
|
|
rb_invcmp(VALUE x, VALUE y)
|
|
|
|
{
|
|
|
|
VALUE invcmp = rb_exec_recursive(invcmp_recursive, x, y);
|
|
|
|
if (invcmp == Qundef || NIL_P(invcmp)) {
|
|
|
|
return Qnil;
|
|
|
|
}
|
|
|
|
else {
|
|
|
|
int result = -rb_cmpint(invcmp, x, y);
|
|
|
|
return INT2FIX(result);
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
2013-10-09 08:53:18 +04:00
|
|
|
static VALUE
|
|
|
|
cmp_eq_recursive(VALUE arg1, VALUE arg2, int recursive)
|
|
|
|
{
|
2013-12-29 02:28:39 +04:00
|
|
|
if (recursive) return Qnil;
|
2016-08-11 10:20:36 +03:00
|
|
|
return rb_cmp(arg1, arg2);
|
2013-10-09 08:53:18 +04:00
|
|
|
}
|
|
|
|
|
2003-12-19 03:01:19 +03:00
|
|
|
/*
|
|
|
|
* call-seq:
|
2010-05-18 01:07:33 +04:00
|
|
|
* obj == other -> true or false
|
2009-02-22 17:23:33 +03:00
|
|
|
*
|
2003-12-19 03:01:19 +03:00
|
|
|
* Compares two objects based on the receiver's <code><=></code>
|
|
|
|
* method, returning true if it returns 0. Also returns true if
|
|
|
|
* _obj_ and _other_ are the same object.
|
|
|
|
*/
|
|
|
|
|
1999-09-16 13:40:33 +04:00
|
|
|
static VALUE
|
* array.c: moved to ANSI function style from K&R function style.
(used protoize on windows, so still K&R remains on #ifdef part of
other platforms. And `foo _((boo))' stuff is still there)
[ruby-dev:26975]
* bignum.c, class.c, compar.c, dir.c, dln.c, dmyext.c, enum.c,
enumerator.c, error.c, eval.c, file.c, gc.c, hash.c, inits.c,
io.c, main.c, marshal.c, math.c, numeric.c, object.c, pack.c,
prec.c, process.c, random.c, range.c, re.c, regcomp.c, regenc.c,
regerror.c, regexec.c, regparse.c, regparse.h, ruby.c, signal.c,
sprintf.c, st.c, string.c, struct.c, time.c, util.h, variable.c,
version.c: ditto.
git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@9126 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
2005-09-12 14:44:21 +04:00
|
|
|
cmp_equal(VALUE x, VALUE y)
|
1999-09-16 13:40:33 +04:00
|
|
|
{
|
2015-02-11 22:33:46 +03:00
|
|
|
VALUE c;
|
2014-01-19 01:40:58 +04:00
|
|
|
if (x == y) return Qtrue;
|
2014-01-05 15:14:59 +04:00
|
|
|
|
2015-02-11 22:33:46 +03:00
|
|
|
c = rb_exec_recursive_paired_outer(cmp_eq_recursive, x, y, y);
|
|
|
|
|
|
|
|
if (NIL_P(c)) return Qfalse;
|
|
|
|
if (rb_cmpint(c, x, y) == 0) return Qtrue;
|
|
|
|
return Qfalse;
|
1999-09-16 13:40:33 +04:00
|
|
|
}
|
|
|
|
|
2016-08-11 10:20:36 +03:00
|
|
|
static int
|
|
|
|
cmpint(VALUE x, VALUE y)
|
|
|
|
{
|
|
|
|
return rb_cmpint(rb_cmp(x, y), x, y);
|
|
|
|
}
|
|
|
|
|
2003-12-19 03:01:19 +03:00
|
|
|
/*
|
|
|
|
* call-seq:
|
2010-05-18 01:07:33 +04:00
|
|
|
* obj > other -> true or false
|
2009-02-22 17:23:33 +03:00
|
|
|
*
|
2003-12-19 03:01:19 +03:00
|
|
|
* Compares two objects based on the receiver's <code><=></code>
|
2019-04-22 11:15:49 +03:00
|
|
|
* method, returning true if it returns a value greater than 0.
|
2003-12-19 03:01:19 +03:00
|
|
|
*/
|
|
|
|
|
1998-01-16 15:13:05 +03:00
|
|
|
static VALUE
|
* array.c: moved to ANSI function style from K&R function style.
(used protoize on windows, so still K&R remains on #ifdef part of
other platforms. And `foo _((boo))' stuff is still there)
[ruby-dev:26975]
* bignum.c, class.c, compar.c, dir.c, dln.c, dmyext.c, enum.c,
enumerator.c, error.c, eval.c, file.c, gc.c, hash.c, inits.c,
io.c, main.c, marshal.c, math.c, numeric.c, object.c, pack.c,
prec.c, process.c, random.c, range.c, re.c, regcomp.c, regenc.c,
regerror.c, regexec.c, regparse.c, regparse.h, ruby.c, signal.c,
sprintf.c, st.c, string.c, struct.c, time.c, util.h, variable.c,
version.c: ditto.
git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@9126 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
2005-09-12 14:44:21 +04:00
|
|
|
cmp_gt(VALUE x, VALUE y)
|
1998-01-16 15:13:05 +03:00
|
|
|
{
|
2016-08-11 10:20:36 +03:00
|
|
|
if (cmpint(x, y) > 0) return Qtrue;
|
1999-01-20 07:59:39 +03:00
|
|
|
return Qfalse;
|
1998-01-16 15:13:05 +03:00
|
|
|
}
|
|
|
|
|
2003-12-19 03:01:19 +03:00
|
|
|
/*
|
|
|
|
* call-seq:
|
2010-05-18 01:07:33 +04:00
|
|
|
* obj >= other -> true or false
|
2009-02-22 17:23:33 +03:00
|
|
|
*
|
2003-12-19 03:01:19 +03:00
|
|
|
* Compares two objects based on the receiver's <code><=></code>
|
2019-04-22 11:15:49 +03:00
|
|
|
* method, returning true if it returns a value greater than or equal to 0.
|
2003-12-19 03:01:19 +03:00
|
|
|
*/
|
|
|
|
|
1998-01-16 15:13:05 +03:00
|
|
|
static VALUE
|
* array.c: moved to ANSI function style from K&R function style.
(used protoize on windows, so still K&R remains on #ifdef part of
other platforms. And `foo _((boo))' stuff is still there)
[ruby-dev:26975]
* bignum.c, class.c, compar.c, dir.c, dln.c, dmyext.c, enum.c,
enumerator.c, error.c, eval.c, file.c, gc.c, hash.c, inits.c,
io.c, main.c, marshal.c, math.c, numeric.c, object.c, pack.c,
prec.c, process.c, random.c, range.c, re.c, regcomp.c, regenc.c,
regerror.c, regexec.c, regparse.c, regparse.h, ruby.c, signal.c,
sprintf.c, st.c, string.c, struct.c, time.c, util.h, variable.c,
version.c: ditto.
git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@9126 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
2005-09-12 14:44:21 +04:00
|
|
|
cmp_ge(VALUE x, VALUE y)
|
1998-01-16 15:13:05 +03:00
|
|
|
{
|
2016-08-11 10:20:36 +03:00
|
|
|
if (cmpint(x, y) >= 0) return Qtrue;
|
1999-01-20 07:59:39 +03:00
|
|
|
return Qfalse;
|
1998-01-16 15:13:05 +03:00
|
|
|
}
|
|
|
|
|
2003-12-19 03:01:19 +03:00
|
|
|
/*
|
|
|
|
* call-seq:
|
2010-05-18 01:07:33 +04:00
|
|
|
* obj < other -> true or false
|
2009-02-22 17:23:33 +03:00
|
|
|
*
|
2003-12-19 03:01:19 +03:00
|
|
|
* Compares two objects based on the receiver's <code><=></code>
|
2019-04-22 11:15:49 +03:00
|
|
|
* method, returning true if it returns a value less than 0.
|
2003-12-19 03:01:19 +03:00
|
|
|
*/
|
|
|
|
|
1998-01-16 15:13:05 +03:00
|
|
|
static VALUE
|
* array.c: moved to ANSI function style from K&R function style.
(used protoize on windows, so still K&R remains on #ifdef part of
other platforms. And `foo _((boo))' stuff is still there)
[ruby-dev:26975]
* bignum.c, class.c, compar.c, dir.c, dln.c, dmyext.c, enum.c,
enumerator.c, error.c, eval.c, file.c, gc.c, hash.c, inits.c,
io.c, main.c, marshal.c, math.c, numeric.c, object.c, pack.c,
prec.c, process.c, random.c, range.c, re.c, regcomp.c, regenc.c,
regerror.c, regexec.c, regparse.c, regparse.h, ruby.c, signal.c,
sprintf.c, st.c, string.c, struct.c, time.c, util.h, variable.c,
version.c: ditto.
git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@9126 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
2005-09-12 14:44:21 +04:00
|
|
|
cmp_lt(VALUE x, VALUE y)
|
1998-01-16 15:13:05 +03:00
|
|
|
{
|
2016-08-11 10:20:36 +03:00
|
|
|
if (cmpint(x, y) < 0) return Qtrue;
|
1999-01-20 07:59:39 +03:00
|
|
|
return Qfalse;
|
1998-01-16 15:13:05 +03:00
|
|
|
}
|
|
|
|
|
2003-12-19 03:01:19 +03:00
|
|
|
/*
|
|
|
|
* call-seq:
|
2010-05-18 01:07:33 +04:00
|
|
|
* obj <= other -> true or false
|
2009-02-22 17:23:33 +03:00
|
|
|
*
|
2003-12-19 03:01:19 +03:00
|
|
|
* Compares two objects based on the receiver's <code><=></code>
|
2019-04-22 11:15:49 +03:00
|
|
|
* method, returning true if it returns a value less than or equal to 0.
|
2003-12-19 03:01:19 +03:00
|
|
|
*/
|
|
|
|
|
1998-01-16 15:13:05 +03:00
|
|
|
static VALUE
|
* array.c: moved to ANSI function style from K&R function style.
(used protoize on windows, so still K&R remains on #ifdef part of
other platforms. And `foo _((boo))' stuff is still there)
[ruby-dev:26975]
* bignum.c, class.c, compar.c, dir.c, dln.c, dmyext.c, enum.c,
enumerator.c, error.c, eval.c, file.c, gc.c, hash.c, inits.c,
io.c, main.c, marshal.c, math.c, numeric.c, object.c, pack.c,
prec.c, process.c, random.c, range.c, re.c, regcomp.c, regenc.c,
regerror.c, regexec.c, regparse.c, regparse.h, ruby.c, signal.c,
sprintf.c, st.c, string.c, struct.c, time.c, util.h, variable.c,
version.c: ditto.
git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@9126 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
2005-09-12 14:44:21 +04:00
|
|
|
cmp_le(VALUE x, VALUE y)
|
1998-01-16 15:13:05 +03:00
|
|
|
{
|
2016-08-11 10:20:36 +03:00
|
|
|
if (cmpint(x, y) <= 0) return Qtrue;
|
1999-01-20 07:59:39 +03:00
|
|
|
return Qfalse;
|
1998-01-16 15:13:05 +03:00
|
|
|
}
|
|
|
|
|
2003-12-19 03:01:19 +03:00
|
|
|
/*
|
|
|
|
* call-seq:
|
2010-05-18 01:07:33 +04:00
|
|
|
* obj.between?(min, max) -> true or false
|
2009-02-22 17:23:33 +03:00
|
|
|
*
|
2019-10-15 16:38:39 +03:00
|
|
|
* Returns <code>false</code> if _obj_ <code><=></code> _min_ is less
|
|
|
|
* than zero or if _obj_ <code><=></code> _max_ is greater than zero,
|
|
|
|
* <code>true</code> otherwise.
|
2009-02-22 17:23:33 +03:00
|
|
|
*
|
2003-12-19 03:01:19 +03:00
|
|
|
* 3.between?(1, 5) #=> true
|
|
|
|
* 6.between?(1, 5) #=> false
|
|
|
|
* 'cat'.between?('ant', 'dog') #=> true
|
|
|
|
* 'gnu'.between?('ant', 'dog') #=> false
|
2009-02-22 17:23:33 +03:00
|
|
|
*
|
2003-12-19 03:01:19 +03:00
|
|
|
*/
|
|
|
|
|
1998-01-16 15:13:05 +03:00
|
|
|
static VALUE
|
* array.c: moved to ANSI function style from K&R function style.
(used protoize on windows, so still K&R remains on #ifdef part of
other platforms. And `foo _((boo))' stuff is still there)
[ruby-dev:26975]
* bignum.c, class.c, compar.c, dir.c, dln.c, dmyext.c, enum.c,
enumerator.c, error.c, eval.c, file.c, gc.c, hash.c, inits.c,
io.c, main.c, marshal.c, math.c, numeric.c, object.c, pack.c,
prec.c, process.c, random.c, range.c, re.c, regcomp.c, regenc.c,
regerror.c, regexec.c, regparse.c, regparse.h, ruby.c, signal.c,
sprintf.c, st.c, string.c, struct.c, time.c, util.h, variable.c,
version.c: ditto.
git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@9126 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
2005-09-12 14:44:21 +04:00
|
|
|
cmp_between(VALUE x, VALUE min, VALUE max)
|
1998-01-16 15:13:05 +03:00
|
|
|
{
|
2016-08-11 10:20:36 +03:00
|
|
|
if (cmpint(x, min) < 0) return Qfalse;
|
|
|
|
if (cmpint(x, max) > 0) return Qfalse;
|
1999-01-20 07:59:39 +03:00
|
|
|
return Qtrue;
|
1998-01-16 15:13:05 +03:00
|
|
|
}
|
|
|
|
|
2016-08-11 10:24:25 +03:00
|
|
|
/*
|
|
|
|
* call-seq:
|
|
|
|
* obj.clamp(min, max) -> obj
|
2019-10-15 16:32:10 +03:00
|
|
|
* obj.clamp(range) -> obj
|
2016-08-11 10:24:25 +03:00
|
|
|
*
|
2019-10-25 16:09:38 +03:00
|
|
|
* In <code>(min, max)</code> form, returns _min_ if _obj_
|
|
|
|
* <code><=></code> _min_ is less than zero, _max_ if _obj_
|
|
|
|
* <code><=></code> _max_ is greater than zero, and _obj_
|
|
|
|
* otherwise.
|
2016-08-11 10:24:25 +03:00
|
|
|
*
|
|
|
|
* 12.clamp(0, 100) #=> 12
|
|
|
|
* 523.clamp(0, 100) #=> 100
|
|
|
|
* -3.123.clamp(0, 100) #=> 0
|
2019-10-25 16:09:38 +03:00
|
|
|
*
|
|
|
|
* 'd'.clamp('a', 'f') #=> 'd'
|
|
|
|
* 'z'.clamp('a', 'f') #=> 'f'
|
|
|
|
*
|
|
|
|
* In <code>(range)</code> form, returns _range.begin_ if _obj_
|
|
|
|
* <code><=></code> _range.begin_ is less than zero, _range.end_
|
|
|
|
* if _obj_ <code><=></code> _range.end_ is greater than zero, and
|
|
|
|
* _obj_ otherwise.
|
|
|
|
*
|
2019-10-15 16:32:10 +03:00
|
|
|
* 12.clamp(0..100) #=> 12
|
|
|
|
* 523.clamp(0..100) #=> 100
|
|
|
|
* -3.123.clamp(0..100) #=> 0
|
2016-08-11 10:24:25 +03:00
|
|
|
*
|
2019-10-15 16:32:10 +03:00
|
|
|
* 'd'.clamp('a'..'f') #=> 'd'
|
|
|
|
* 'z'.clamp('a'..'f') #=> 'f'
|
|
|
|
*
|
2019-10-25 16:09:38 +03:00
|
|
|
* If _range.begin_ is +nil+, it is considered smaller than _obj_,
|
|
|
|
* and if _range.end_ is +nil+, it is considered greater than
|
|
|
|
* _obj_.
|
|
|
|
*
|
|
|
|
* -20.clamp(0..) #=> 0
|
|
|
|
* 523.clamp(..100) #=> 100
|
|
|
|
*
|
2019-10-25 20:15:18 +03:00
|
|
|
* When _range.end_ is excluded and not +nil+, an exception is
|
|
|
|
* raised.
|
2019-10-25 16:09:38 +03:00
|
|
|
*
|
|
|
|
* 100.clamp(0...100) # ArgumentError
|
2016-08-11 10:24:25 +03:00
|
|
|
*/
|
|
|
|
|
|
|
|
static VALUE
|
2019-10-15 16:32:10 +03:00
|
|
|
cmp_clamp(int argc, VALUE *argv, VALUE x)
|
2016-08-11 10:24:25 +03:00
|
|
|
{
|
2019-10-15 16:32:10 +03:00
|
|
|
VALUE min, max;
|
2019-10-25 20:15:18 +03:00
|
|
|
int c, excl = 0;
|
2016-08-11 10:24:25 +03:00
|
|
|
|
2019-10-15 16:32:10 +03:00
|
|
|
if (rb_scan_args(argc, argv, "11", &min, &max) == 1) {
|
|
|
|
VALUE range = min;
|
|
|
|
if (!rb_range_values(range, &min, &max, &excl)) {
|
|
|
|
rb_raise(rb_eTypeError, "wrong argument type %s (expected Range)",
|
|
|
|
rb_builtin_class_name(range));
|
|
|
|
}
|
2019-10-25 20:15:18 +03:00
|
|
|
if (!NIL_P(max)) {
|
|
|
|
if (excl) rb_raise(rb_eArgError, "cannot clamp with an exclusive range");
|
|
|
|
if (!NIL_P(min) && cmpint(min, max) > 0) goto arg_error;
|
|
|
|
}
|
2019-10-15 16:32:10 +03:00
|
|
|
}
|
2019-10-25 20:15:18 +03:00
|
|
|
else if (cmpint(min, max) > 0) {
|
|
|
|
arg_error:
|
2016-08-11 10:24:25 +03:00
|
|
|
rb_raise(rb_eArgError, "min argument must be smaller than max argument");
|
|
|
|
}
|
|
|
|
|
2019-10-25 16:09:38 +03:00
|
|
|
if (!NIL_P(min)) {
|
|
|
|
c = cmpint(x, min);
|
|
|
|
if (c == 0) return x;
|
|
|
|
if (c < 0) return min;
|
|
|
|
}
|
|
|
|
if (!NIL_P(max)) {
|
|
|
|
c = cmpint(x, max);
|
|
|
|
if (c > 0) return max;
|
|
|
|
}
|
2016-08-11 10:24:25 +03:00
|
|
|
return x;
|
|
|
|
}
|
|
|
|
|
2003-12-19 03:01:19 +03:00
|
|
|
/*
|
2019-03-22 14:04:59 +03:00
|
|
|
* The Comparable mixin is used by classes whose objects may be
|
|
|
|
* ordered. The class must define the <code><=></code> operator,
|
2019-12-23 17:02:59 +03:00
|
|
|
* which compares the receiver against another object, returning a
|
|
|
|
* value less than 0, returning 0, or returning a value greater than 0,
|
|
|
|
* depending on whether the receiver is less than, equal to,
|
2019-03-22 14:04:59 +03:00
|
|
|
* or greater than the other object. If the other object is not
|
|
|
|
* comparable then the <code><=></code> operator should return +nil+.
|
|
|
|
* Comparable uses <code><=></code> to implement the conventional
|
|
|
|
* comparison operators (<code><</code>, <code><=</code>,
|
|
|
|
* <code>==</code>, <code>>=</code>, and <code>></code>) and the
|
|
|
|
* method <code>between?</code>.
|
2009-02-22 17:23:33 +03:00
|
|
|
*
|
2003-12-19 03:01:19 +03:00
|
|
|
* class SizeMatters
|
|
|
|
* include Comparable
|
|
|
|
* attr :str
|
2015-02-21 10:18:45 +03:00
|
|
|
* def <=>(other)
|
|
|
|
* str.size <=> other.str.size
|
2003-12-19 03:01:19 +03:00
|
|
|
* end
|
|
|
|
* def initialize(str)
|
|
|
|
* @str = str
|
|
|
|
* end
|
|
|
|
* def inspect
|
|
|
|
* @str
|
|
|
|
* end
|
|
|
|
* end
|
2009-02-22 17:23:33 +03:00
|
|
|
*
|
2003-12-19 03:01:19 +03:00
|
|
|
* s1 = SizeMatters.new("Z")
|
|
|
|
* s2 = SizeMatters.new("YY")
|
|
|
|
* s3 = SizeMatters.new("XXX")
|
|
|
|
* s4 = SizeMatters.new("WWWW")
|
|
|
|
* s5 = SizeMatters.new("VVVVV")
|
2009-02-22 17:23:33 +03:00
|
|
|
*
|
2003-12-19 03:01:19 +03:00
|
|
|
* s1 < s2 #=> true
|
|
|
|
* s4.between?(s1, s3) #=> false
|
|
|
|
* s4.between?(s3, s5) #=> true
|
|
|
|
* [ s3, s2, s5, s4, s1 ].sort #=> [Z, YY, XXX, WWWW, VVVVV]
|
2009-02-22 17:23:33 +03:00
|
|
|
*
|
2003-12-19 03:01:19 +03:00
|
|
|
*/
|
|
|
|
|
1998-01-16 15:13:05 +03:00
|
|
|
void
|
* array.c: moved to ANSI function style from K&R function style.
(used protoize on windows, so still K&R remains on #ifdef part of
other platforms. And `foo _((boo))' stuff is still there)
[ruby-dev:26975]
* bignum.c, class.c, compar.c, dir.c, dln.c, dmyext.c, enum.c,
enumerator.c, error.c, eval.c, file.c, gc.c, hash.c, inits.c,
io.c, main.c, marshal.c, math.c, numeric.c, object.c, pack.c,
prec.c, process.c, random.c, range.c, re.c, regcomp.c, regenc.c,
regerror.c, regexec.c, regparse.c, regparse.h, ruby.c, signal.c,
sprintf.c, st.c, string.c, struct.c, time.c, util.h, variable.c,
version.c: ditto.
git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@9126 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
2005-09-12 14:44:21 +04:00
|
|
|
Init_Comparable(void)
|
1998-01-16 15:13:05 +03:00
|
|
|
{
|
2008-06-09 13:25:32 +04:00
|
|
|
#undef rb_intern
|
2008-08-16 04:20:31 +04:00
|
|
|
#define rb_intern(str) rb_intern_const(str)
|
2008-06-09 13:25:32 +04:00
|
|
|
|
1999-01-20 07:59:39 +03:00
|
|
|
rb_mComparable = rb_define_module("Comparable");
|
1999-09-16 13:40:33 +04:00
|
|
|
rb_define_method(rb_mComparable, "==", cmp_equal, 1);
|
1999-01-20 07:59:39 +03:00
|
|
|
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);
|
2019-10-15 16:32:10 +03:00
|
|
|
rb_define_method(rb_mComparable, "clamp", cmp_clamp, -1);
|
1998-01-16 15:13:05 +03:00
|
|
|
}
|