range.c File Reference

#include "ruby/ruby.h"
#include "ruby/encoding.h"
#include "internal.h"
#include "id.h"
#include <math.h>

Defines
#define	RANGE_BEG(r) (RSTRUCT(r)->as.ary[0])
#define	RANGE_END(r) (RSTRUCT(r)->as.ary[1])
#define	RANGE_EXCL(r) (RSTRUCT(r)->as.ary[2])
#define	RANGE_SET_BEG(r, v) (RSTRUCT_SET(r, 0, v))
#define	RANGE_SET_END(r, v) (RSTRUCT_SET(r, 1, v))
#define	RANGE_SET_EXCL(r, v) (RSTRUCT_SET(r, 2, v))
#define	RBOOL(v) ((v) ? Qtrue : Qfalse)
#define	EXCL(r) RTEST(RANGE_EXCL(r))
#define	BSEARCH_CHECK(val)
#define	BSEARCH(conv)
#define	rb_intern(str) rb_intern_const(str)
Functions
static VALUE	range_failed (void)
static VALUE	range_check (VALUE *args)
static void	range_init (VALUE range, VALUE beg, VALUE end, VALUE exclude_end)
VALUE	rb_range_new (VALUE beg, VALUE end, int exclude_end)
static void	range_modify (VALUE range)
static VALUE	range_initialize (int argc, VALUE *argv, VALUE range)
static VALUE	range_initialize_copy (VALUE range, VALUE orig)
static VALUE	range_exclude_end_p (VALUE range)
static VALUE	recursive_equal (VALUE range, VALUE obj, int recur)
static VALUE	range_eq (VALUE range, VALUE obj)
static int	r_lt (VALUE a, VALUE b)
static int	r_le (VALUE a, VALUE b)
static VALUE	recursive_eql (VALUE range, VALUE obj, int recur)
static VALUE	range_eql (VALUE range, VALUE obj)
static VALUE	range_hash (VALUE range)
static void	range_each_func (VALUE range, rb_block_call_func *func, VALUE arg)
static VALUE	sym_step_i (RB_BLOCK_CALL_FUNC_ARGLIST(i, arg))
static VALUE	step_i (RB_BLOCK_CALL_FUNC_ARGLIST(i, arg))
static int	discrete_object_p (VALUE obj)
static int	linear_object_p (VALUE obj)
static VALUE	range_step_size (VALUE range, VALUE args, VALUE eobj)
static VALUE	range_step (int argc, VALUE *argv, VALUE range)
static int	is_integer_p (VALUE v)
static VALUE	range_bsearch (VALUE range)
static VALUE	each_i (RB_BLOCK_CALL_FUNC_ARGLIST(v, arg))
static VALUE	sym_each_i (RB_BLOCK_CALL_FUNC_ARGLIST(v, arg))
static VALUE	range_size (VALUE range)
static VALUE	range_enum_size (VALUE range, VALUE args, VALUE eobj)
static VALUE	range_each (VALUE range)
static VALUE	range_begin (VALUE range)
static VALUE	range_end (VALUE range)
static VALUE	first_i (RB_BLOCK_CALL_FUNC_ARGLIST(i, cbarg))
static VALUE	range_first (int argc, VALUE *argv, VALUE range)
static VALUE	range_last (int argc, VALUE *argv, VALUE range)
static VALUE	range_min (VALUE range)
static VALUE	range_max (VALUE range)
int	rb_range_values (VALUE range, VALUE begp, VALUE endp, int *exclp)
VALUE	rb_range_beg_len (VALUE range, long begp, long lenp, long len, int err)
static VALUE	range_to_s (VALUE range)
static VALUE	inspect_range (VALUE range, VALUE dummy, int recur)
static VALUE	range_inspect (VALUE range)
static VALUE	range_eqq (VALUE range, VALUE val)
static VALUE	range_include (VALUE range, VALUE val)
static VALUE	range_cover (VALUE range, VALUE val)
static VALUE	range_dumper (VALUE range)
static VALUE	range_loader (VALUE range, VALUE obj)
static VALUE	range_alloc (VALUE klass)
void	Init_Range (void)
Variables
VALUE	rb_cRange
static ID	id_cmp
static ID	id_succ
static ID	id_beg
static ID	id_end
static ID	id_excl
static ID	id_integer_p
static ID	id_div

Define Documentation

#define BSEARCH ( conv )

Value:

do { \
        RETURN_ENUMERATOR(range, 0, 0); \
        if (EXCL(range)) high--; \
        org_high = high; \
        while (low < high) { \
            mid = ((high < 0) == (low < 0)) ? low + ((high - low) / 2) \
                : (low < -high) ? -((-1 - low - high)/2 + 1) : (low + high) / 2; \
            BSEARCH_CHECK(conv(mid)); \
            if (smaller) { \
                high = mid; \
            } \
            else { \
                low = mid + 1; \
            } \
        } \
        if (low == org_high) { \
            BSEARCH_CHECK(conv(low)); \
            if (!smaller) return Qnil; \
        } \
        if (!satisfied) return Qnil; \
        return conv(low); \
    } while (0)

Referenced by range_bsearch().

#define BSEARCH_CHECK ( val )

Value:

do { \
        VALUE v = rb_yield(val); \
        if (FIXNUM_P(v)) { \
            if (FIX2INT(v) == 0) return val; \
            smaller = FIX2INT(v) < 0; \
        } \
        else if (v == Qtrue) { \
            satisfied = 1; \
            smaller = 1; \
        } \
        else if (v == Qfalse || v == Qnil) { \
            smaller = 0; \
        } \
        else if (rb_obj_is_kind_of(v, rb_cNumeric)) { \
            int cmp = rb_cmpint(rb_funcall(v, id_cmp, 1, INT2FIX(0)), v, INT2FIX(0)); \
            if (!cmp) return val; \
            smaller = cmp < 0; \
        } \
        else { \
            rb_raise(rb_eTypeError, "wrong argument type %s" \
                " (must be numeric, true, false or nil)", \
                rb_obj_classname(v)); \
        } \
    } while (0)