[rubygems/rubygems] Use a constant empty tar header to avoid extra allocations
[ruby.git] / compar.c
blob081b4e2dea9f441d721a360e8a84c0f826f59f66
1 /**********************************************************************
3 compar.c -
5 $Author$
6 created at: Thu Aug 26 14:39:48 JST 1993
8 Copyright (C) 1993-2007 Yukihiro Matsumoto
10 **********************************************************************/
12 #include "id.h"
13 #include "internal.h"
14 #include "internal/compar.h"
15 #include "internal/error.h"
16 #include "internal/vm.h"
17 #include "ruby/ruby.h"
19 VALUE rb_mComparable;
21 static VALUE
22 rb_cmp(VALUE x, VALUE y)
24 return rb_funcallv(x, idCmp, 1, &y);
27 void
28 rb_cmperr(VALUE x, VALUE y)
30 VALUE classname;
32 if (SPECIAL_CONST_P(y) || BUILTIN_TYPE(y) == T_FLOAT) {
33 classname = rb_inspect(y);
35 else {
36 classname = rb_obj_class(y);
38 rb_raise(rb_eArgError, "comparison of %"PRIsVALUE" with %"PRIsVALUE" failed",
39 rb_obj_class(x), classname);
42 static VALUE
43 invcmp_recursive(VALUE x, VALUE y, int recursive)
45 if (recursive) return Qnil;
46 return rb_cmp(y, x);
49 VALUE
50 rb_invcmp(VALUE x, VALUE y)
52 VALUE invcmp = rb_exec_recursive(invcmp_recursive, x, y);
53 if (NIL_OR_UNDEF_P(invcmp)) {
54 return Qnil;
56 else {
57 int result = -rb_cmpint(invcmp, x, y);
58 return INT2FIX(result);
62 static VALUE
63 cmp_eq_recursive(VALUE arg1, VALUE arg2, int recursive)
65 if (recursive) return Qnil;
66 return rb_cmp(arg1, arg2);
70 * call-seq:
71 * obj == other -> true or false
73 * Compares two objects based on the receiver's <code><=></code>
74 * method, returning true if it returns 0. Also returns true if
75 * _obj_ and _other_ are the same object.
78 static VALUE
79 cmp_equal(VALUE x, VALUE y)
81 VALUE c;
82 if (x == y) return Qtrue;
84 c = rb_exec_recursive_paired_outer(cmp_eq_recursive, x, y, y);
86 if (NIL_P(c)) return Qfalse;
87 return RBOOL(rb_cmpint(c, x, y) == 0);
90 static int
91 cmpint(VALUE x, VALUE y)
93 return rb_cmpint(rb_cmp(x, y), x, y);
97 * call-seq:
98 * obj > other -> true or false
100 * Compares two objects based on the receiver's <code><=></code>
101 * method, returning true if it returns a value greater than 0.
104 static VALUE
105 cmp_gt(VALUE x, VALUE y)
107 return RBOOL(cmpint(x, y) > 0);
111 * call-seq:
112 * obj >= other -> true or false
114 * Compares two objects based on the receiver's <code><=></code>
115 * method, returning true if it returns a value greater than or equal to 0.
118 static VALUE
119 cmp_ge(VALUE x, VALUE y)
121 return RBOOL(cmpint(x, y) >= 0);
125 * call-seq:
126 * obj < other -> true or false
128 * Compares two objects based on the receiver's <code><=></code>
129 * method, returning true if it returns a value less than 0.
132 static VALUE
133 cmp_lt(VALUE x, VALUE y)
135 return RBOOL(cmpint(x, y) < 0);
139 * call-seq:
140 * obj <= other -> true or false
142 * Compares two objects based on the receiver's <code><=></code>
143 * method, returning true if it returns a value less than or equal to 0.
146 static VALUE
147 cmp_le(VALUE x, VALUE y)
149 return RBOOL(cmpint(x, y) <= 0);
153 * call-seq:
154 * obj.between?(min, max) -> true or false
156 * Returns <code>false</code> if _obj_ <code><=></code> _min_ is less
157 * than zero or if _obj_ <code><=></code> _max_ is greater than zero,
158 * <code>true</code> otherwise.
160 * 3.between?(1, 5) #=> true
161 * 6.between?(1, 5) #=> false
162 * 'cat'.between?('ant', 'dog') #=> true
163 * 'gnu'.between?('ant', 'dog') #=> false
167 static VALUE
168 cmp_between(VALUE x, VALUE min, VALUE max)
170 return RBOOL((cmpint(x, min) >= 0 && cmpint(x, max) <= 0));
174 * call-seq:
175 * obj.clamp(min, max) -> obj
176 * obj.clamp(range) -> obj
178 * In <code>(min, max)</code> form, returns _min_ if _obj_
179 * <code><=></code> _min_ is less than zero, _max_ if _obj_
180 * <code><=></code> _max_ is greater than zero, and _obj_
181 * otherwise.
183 * 12.clamp(0, 100) #=> 12
184 * 523.clamp(0, 100) #=> 100
185 * -3.123.clamp(0, 100) #=> 0
187 * 'd'.clamp('a', 'f') #=> 'd'
188 * 'z'.clamp('a', 'f') #=> 'f'
190 * If _min_ is +nil+, it is considered smaller than _obj_,
191 * and if _max_ is +nil+, it is considered greater than _obj_.
193 * -20.clamp(0, nil) #=> 0
194 * 523.clamp(nil, 100) #=> 100
196 * In <code>(range)</code> form, returns _range.begin_ if _obj_
197 * <code><=></code> _range.begin_ is less than zero, _range.end_
198 * if _obj_ <code><=></code> _range.end_ is greater than zero, and
199 * _obj_ otherwise.
201 * 12.clamp(0..100) #=> 12
202 * 523.clamp(0..100) #=> 100
203 * -3.123.clamp(0..100) #=> 0
205 * 'd'.clamp('a'..'f') #=> 'd'
206 * 'z'.clamp('a'..'f') #=> 'f'
208 * If _range.begin_ is +nil+, it is considered smaller than _obj_,
209 * and if _range.end_ is +nil+, it is considered greater than
210 * _obj_.
212 * -20.clamp(0..) #=> 0
213 * 523.clamp(..100) #=> 100
215 * When _range.end_ is excluded and not +nil+, an exception is
216 * raised.
218 * 100.clamp(0...100) # ArgumentError
221 static VALUE
222 cmp_clamp(int argc, VALUE *argv, VALUE x)
224 VALUE min, max;
225 int c, excl = 0;
227 if (rb_scan_args(argc, argv, "11", &min, &max) == 1) {
228 VALUE range = min;
229 if (!rb_range_values(range, &min, &max, &excl)) {
230 rb_raise(rb_eTypeError, "wrong argument type %s (expected Range)",
231 rb_builtin_class_name(range));
233 if (!NIL_P(max)) {
234 if (excl) rb_raise(rb_eArgError, "cannot clamp with an exclusive range");
237 if (!NIL_P(min) && !NIL_P(max) && cmpint(min, max) > 0) {
238 rb_raise(rb_eArgError, "min argument must be less than or equal to max argument");
241 if (!NIL_P(min)) {
242 c = cmpint(x, min);
243 if (c == 0) return x;
244 if (c < 0) return min;
246 if (!NIL_P(max)) {
247 c = cmpint(x, max);
248 if (c > 0) return max;
250 return x;
254 * The Comparable mixin is used by classes whose objects may be
255 * ordered. The class must define the <code><=></code> operator,
256 * which compares the receiver against another object, returning a
257 * value less than 0, returning 0, or returning a value greater than 0,
258 * depending on whether the receiver is less than, equal to,
259 * or greater than the other object. If the other object is not
260 * comparable then the <code><=></code> operator should return +nil+.
261 * Comparable uses <code><=></code> to implement the conventional
262 * comparison operators (<code><</code>, <code><=</code>,
263 * <code>==</code>, <code>>=</code>, and <code>></code>) and the
264 * method <code>between?</code>.
266 * class StringSorter
267 * include Comparable
269 * attr :str
270 * def <=>(other)
271 * str.size <=> other.str.size
272 * end
274 * def initialize(str)
275 * @str = str
276 * end
278 * def inspect
279 * @str
280 * end
281 * end
283 * s1 = StringSorter.new("Z")
284 * s2 = StringSorter.new("YY")
285 * s3 = StringSorter.new("XXX")
286 * s4 = StringSorter.new("WWWW")
287 * s5 = StringSorter.new("VVVVV")
289 * s1 < s2 #=> true
290 * s4.between?(s1, s3) #=> false
291 * s4.between?(s3, s5) #=> true
292 * [ s3, s2, s5, s4, s1 ].sort #=> [Z, YY, XXX, WWWW, VVVVV]
294 * == What's Here
296 * \Module \Comparable provides these methods, all of which use method <tt><=></tt>:
298 * - #<: Returns whether +self+ is less than the given object.
299 * - #<=: Returns whether +self+ is less than or equal to the given object.
300 * - #==: Returns whether +self+ is equal to the given object.
301 * - #>: Returns whether +self+ is greater than the given object.
302 * - #>=: Returns whether +self+ is greater than or equal to the given object.
303 * - #between?: Returns +true+ if +self+ is between two given objects.
304 * - #clamp: For given objects +min+ and +max+, or range <tt>(min..max)</tt>, returns:
306 * - +min+ if <tt>(self <=> min) < 0</tt>.
307 * - +max+ if <tt>(self <=> max) > 0</tt>.
308 * - +self+ otherwise.
312 void
313 Init_Comparable(void)
315 rb_mComparable = rb_define_module("Comparable");
316 rb_define_method(rb_mComparable, "==", cmp_equal, 1);
317 rb_define_method(rb_mComparable, ">", cmp_gt, 1);
318 rb_define_method(rb_mComparable, ">=", cmp_ge, 1);
319 rb_define_method(rb_mComparable, "<", cmp_lt, 1);
320 rb_define_method(rb_mComparable, "<=", cmp_le, 1);
321 rb_define_method(rb_mComparable, "between?", cmp_between, 2);
322 rb_define_method(rb_mComparable, "clamp", cmp_clamp, -1);