53 if (obj1 == obj2)
return Qtrue;
97 if (obj1 == obj2)
return Qtrue;
115 #if SIZEOF_LONG == SIZEOF_VOIDP
117 #elif SIZEOF_LONG_LONG == SIZEOF_VOIDP
120 # error not supported
219 ROBJECT(dest)->as.heap.ivptr = 0;
220 ROBJECT(dest)->as.heap.numiv = 0;
221 ROBJECT(dest)->as.heap.iv_index_tbl = 0;
223 if (
RBASIC(obj)->flags & ROBJECT_EMBED) {
231 ROBJECT(dest)->as.heap.ivptr = ptr;
233 ROBJECT(dest)->as.heap.iv_index_tbl =
ROBJECT(obj)->as.heap.iv_index_tbl;
234 RBASIC(dest)->flags &= ~ROBJECT_EMBED;
333 if (obj == orig)
return obj;
365 str =
rb_sprintf(
"#<%s:%p>", cname, (
void*)obj);
442 for (i = 0; i <
len; i++) {
910 if (!immediate_frozen_tbl) {
935 if (!immediate_frozen_tbl)
return Qfalse;
1242 if (obj1 == obj2 ||
rb_equal(obj1, obj2))
1356 if (mod == arg)
return Qtrue;
1357 switch (
TYPE(arg)) {
1392 if (mod == arg)
return Qfalse;
1412 switch (
TYPE(arg)) {
1437 if (mod == arg)
return Qfalse;
1457 if (mod == arg)
return INT2FIX(0);
1458 switch (
TYPE(arg)) {
1479 RBASIC(mod)->klass = klass;
1706 for (i=0; i<
argc; i++) {
1715 if (argc == 2 && (argv[1] ==
Qtrue || argv[1] ==
Qfalse)) {
1716 rb_warning(
"optional boolean argument is obsoleted");
1736 for (i=0; i<
argc; i++) {
1762 for (i=0; i<
argc; i++) {
2066 NIL_P(val) ?
"nil" :
2067 val ==
Qtrue ?
"true" :
2068 val ==
Qfalse ?
"false" :
2082 if (
TYPE(val) == type)
return val;
2084 if (
TYPE(v) != type) {
2098 if (
TYPE(val) == type && type !=
T_DATA)
return val;
2101 if (
TYPE(v) != type) {
2151 switch (
TYPE(val)) {
2153 if (base != 0)
goto arg_error;
2162 if (base != 0)
goto arg_error;
2170 if (base != 0)
goto arg_error;
2179 if (!
NIL_P(tmp))
goto string_conv;
2244 const char *ellipsis =
"";
2246 enum {max_width = 20};
2247 #define OutOfRange() ((end - p > max_width) ? \
2248 (w = max_width, ellipsis = "...") : \
2249 (w = (int)(end - p), ellipsis = ""))
2255 if (!badcheck && p[0] ==
'0' && (p[1] ==
'x' || p[1] ==
'X')) {
2260 if (
errno == ERANGE) {
2262 rb_warning(
"Float %.*s%s out of range", w, p, ellipsis);
2275 char *e = buf +
sizeof(
buf) - 1;
2278 while (p < end && n < e) prev = *n++ = *p++;
2288 while (*++p ==
'_');
2293 if (n < e) *n++ = prev;
2298 if (!badcheck && p[0] ==
'0' && (p[1] ==
'x' || p[1] ==
'X')) {
2303 if (
errno == ERANGE) {
2305 rb_warning(
"Float %.*s%s out of range", w, p, ellipsis);
2309 if (!end || p == end)
goto bad;
2310 while (*end &&
ISSPACE(*end)) end++;
2314 if (
errno == ERANGE) {
2334 if (badcheck && memchr(s,
'\0', len)) {
2353 switch (
TYPE(val)) {
2399 NIL_P(val) ?
"nil" :
2400 val ==
Qtrue ?
"true" :
2401 val ==
Qfalse ?
"false" :
2420 switch (
TYPE(val)) {
2657 #define rb_intern(str) rb_intern_const(str)
void rb_define_global_const(const char *, VALUE)
#define RSTRING_LEN(string)
static long NUM2LONG(VALUE x)
VALUE rb_check_to_float(VALUE val)
VALUE rb_cvar_get(VALUE, ID)
static VALUE rb_obj_ivar_defined(VALUE obj, VALUE iv)
static VALUE rb_mod_attr_accessor(int argc, VALUE *argv, VALUE klass)
static VALUE rb_mod_cmp(VALUE mod, VALUE arg)
VALUE rb_mod_include_p(VALUE mod, VALUE mod2)
void rb_check_inheritable(VALUE super)
Ensures a class can be derived from super.
VALUE rb_obj_id(VALUE obj)
VALUE rb_obj_private_methods(int argc, VALUE *argv, VALUE obj)
VALUE rb_inspect(VALUE obj)
static VALUE rb_convert_to_integer(VALUE val, int base)
void rb_undef_alloc_func(VALUE)
double rb_cstr_to_dbl(const char *p, int badcheck)
double rb_str_to_dbl(VALUE str, int badcheck)
VALUE rb_f_sprintf(int, const VALUE *)
VALUE rb_class_private_instance_methods(int argc, VALUE *argv, VALUE mod)
#define RFLOAT_VALUE(val)
VALUE rb_mod_class_variables(VALUE)
st_index_t rb_hash_end(st_index_t)
static VALUE rb_mod_ge(VALUE mod, VALUE arg)
static VALUE rb_mod_cvar_set(VALUE obj, VALUE iv, VALUE val)
VALUE rb_equal(VALUE obj1, VALUE obj2)
VALUE rb_mod_ancestors(VALUE mod)
static VALUE rb_mod_lt(VALUE mod, VALUE arg)
void rb_define_private_method(VALUE klass, const char *name, VALUE(*func)(ANYARGS), int argc)
VALUE rb_obj_tap(VALUE obj)
static VALUE rb_mod_attr_reader(int argc, VALUE *argv, VALUE klass)
VALUE rb_obj_taint(VALUE obj)
void rb_cvar_set(VALUE, ID, VALUE)
VALUE rb_singleton_class_clone(VALUE obj)
static void init_copy(VALUE dest, VALUE obj)
VALUE rb_convert_type(VALUE val, int type, const char *tname, const char *method)
static VALUE false_and(VALUE obj, VALUE obj2)
VALUE rb_mod_init_copy(VALUE clone, VALUE orig)
static VALUE nil_inspect(VALUE obj)
VALUE rb_obj_trust(VALUE obj)
static VALUE rb_mod_attr_writer(int argc, VALUE *argv, VALUE klass)
VALUE rb_funcall(VALUE, ID, int,...)
Calls a method.
static VALUE rb_obj_ivar_get(VALUE obj, VALUE iv)
#define RSTRING_PTR(string)
void Init_class_hierarchy(void)
void rb_raise(VALUE exc, const char *fmt,...)
double rb_num2dbl(VALUE val)
VALUE rb_ivar_get(VALUE, ID)
static struct conv_method_tbl conv_method_names[]
VALUE rb_exec_recursive(VALUE(*)(VALUE, VALUE, int), VALUE, VALUE)
static VALUE rb_obj_cmp(VALUE obj1, VALUE obj2)
void rb_define_alloc_func(VALUE, rb_alloc_func_t)
int rb_const_defined(VALUE, ID)
VALUE rb_ary_new3(long n,...)
void rb_include_module(VALUE klass, VALUE module)
VALUE rb_to_float(VALUE val)
static VALUE rb_obj_match(VALUE obj1, VALUE obj2)
static VALUE rb_mod_const_get(int argc, VALUE *argv, VALUE mod)
VALUE rb_Integer(VALUE val)
double rb_big2dbl(VALUE x)
void rb_define_global_function(const char *name, VALUE(*func)(ANYARGS), int argc)
Defines a global function.
VALUE rb_to_int(VALUE val)
VALUE rb_obj_untaint(VALUE obj)
static VALUE nil_to_i(VALUE obj)
void rb_undef_method(VALUE klass, const char *name)
VALUE rb_mod_module_exec(int, VALUE *, VALUE)
VALUE rb_ivar_defined(VALUE, ID)
static VALUE rb_obj_not_match(VALUE obj1, VALUE obj2)
static VALUE rb_obj_dummy(void)
VALUE rb_mod_remove_cvar(VALUE, VALUE)
void rb_ivar_foreach(VALUE, int(*)(ANYARGS), st_data_t)
const char * rb_obj_classname(VALUE)
void rb_name_error(ID id, const char *fmt,...)
static VALUE rb_f_array(VALUE obj, VALUE arg)
static VALUE rb_mod_cvar_get(VALUE obj, VALUE iv)
VALUE rb_singleton_class(VALUE obj)
Returns the singleton class of obj.
int rb_is_const_id(ID id)
VALUE rb_obj_class(VALUE obj)
int rb_is_instance_id(ID id)
VALUE rb_obj_dup(VALUE obj)
static VALUE true_or(VALUE obj, VALUE obj2)
VALUE rb_obj_not(VALUE obj)
static VALUE false_or(VALUE obj, VALUE obj2)
VALUE rb_cvar_defined(VALUE, ID)
VALUE rb_class_inherited(VALUE super, VALUE klass)
Calls Class::inherited.
static VALUE rb_to_integer(VALUE val, const char *method)
VALUE rb_class_name(VALUE)
VALUE rb_dbl2big(double d)
VALUE rb_class_new_instance(int argc, VALUE *argv, VALUE klass)
int rb_block_given_p(void)
static VALUE rb_class_allocate_instance(VALUE klass)
void rb_gc_copy_finalizer(VALUE dest, VALUE obj)
static VALUE nil_to_f(VALUE obj)
static VALUE rb_true(VALUE obj)
VALUE rb_str_to_inum(VALUE str, int base, int badcheck)
void rb_attr(VALUE, ID, int, int, int)
VALUE rb_str_cat2(VALUE, const char *)
VALUE rb_obj_as_string(VALUE)
VALUE rb_mod_attr(int argc, VALUE *argv, VALUE klass)
static VALUE rb_mod_freeze(VALUE mod)
static int inspect_i(ID id, VALUE value, VALUE str)
VALUE rb_check_to_integer(VALUE val, const char *method)
VALUE rb_mod_private_constant(int argc, VALUE *argv, VALUE obj)
VALUE rb_iv_get(VALUE, const char *)
VALUE rb_define_class(const char *name, VALUE super)
Defines a top-level class.
VALUE rb_class_get_superclass(VALUE klass)
static VALUE rb_obj_singleton_class(VALUE obj)
VALUE rb_obj_freeze(VALUE obj)
static VALUE rb_class_initialize(int argc, VALUE *argv, VALUE klass)
#define NEWOBJ(obj, type)
VALUE rb_Float(VALUE val)
static VALUE false_xor(VALUE obj, VALUE obj2)
#define MEMCPY(p1, p2, type, n)
VALUE rb_obj_protected_methods(int argc, VALUE *argv, VALUE obj)
VALUE rb_mod_constants(int, VALUE *, VALUE)
VALUE rb_obj_equal(VALUE obj1, VALUE obj2)
static VALUE rb_f_float(VALUE obj, VALUE arg)
int rb_obj_basic_to_s_p(VALUE obj)
VALUE rb_const_get(VALUE, ID)
static VALUE rb_mod_eqq(VALUE mod, VALUE arg)
static VALUE rb_mod_initialize(VALUE module)
VALUE rb_obj_untrusted(VALUE obj)
VALUE rb_check_funcall(VALUE, ID, int, VALUE *)
VALUE rb_obj_hash(VALUE obj)
VALUE rb_sprintf(const char *format,...)
static VALUE true_to_s(VALUE obj)
VALUE rb_class_superclass(VALUE klass)
int rb_scan_args(int argc, const VALUE *argv, const char *fmt,...)
VALUE rb_ivar_set(VALUE, ID, VALUE)
unsigned char buf[MIME_BUF_SIZE]
void rb_const_set(VALUE, ID, VALUE)
VALUE rb_mod_public_constant(int argc, VALUE *argv, VALUE obj)
VALUE rb_obj_public_methods(int argc, VALUE *argv, VALUE obj)
static VALUE nil_to_s(VALUE obj)
RUBY_EXTERN VALUE rb_cInteger
VALUE rb_make_metaclass(VALUE obj, VALUE unused)
register unsigned int len
VALUE rb_check_convert_type(VALUE val, int type, const char *tname, const char *method)
VALUE rb_obj_untrust(VALUE obj)
VALUE rb_String(VALUE val)
RUBY_EXTERN VALUE rb_cNumeric
VALUE rb_obj_remove_instance_variable(VALUE, VALUE)
void Init_Object(void)
Initializes the world of objects and classes.
VALUE rb_class_instance_methods(int argc, VALUE *argv, VALUE mod)
VALUE rb_class_real(VALUE cl)
void rb_free_const_table(st_table *tbl)
static VALUE rb_obj_ivar_set(VALUE obj, VALUE iv, VALUE val)
#define RCLASS_CONST_TBL(c)
static VALUE true_xor(VALUE obj, VALUE obj2)
VALUE rb_obj_alloc(VALUE klass)
VALUE rb_class_protected_instance_methods(int argc, VALUE *argv, VALUE mod)
VALUE rb_usascii_str_new2(const char *)
int rb_const_defined_at(VALUE, ID)
VALUE rb_class_public_instance_methods(int argc, VALUE *argv, VALUE mod)
VALUE rb_module_new(void)
static VALUE convert_type(VALUE val, const char *tname, const char *method, int raise)
VALUE rb_obj_singleton_methods(int argc, VALUE *argv, VALUE obj)
#define ROBJECT_EMBED_LEN_MAX
static VALUE true_and(VALUE obj, VALUE obj2)
VALUE rb_check_array_type(VALUE ary)
static VALUE rb_f_string(VALUE obj, VALUE arg)
static VALUE rb_obj_inspect(VALUE obj)
static VALUE nil_to_a(VALUE obj)
VALUE rb_check_string_type(VALUE)
static int rb_special_const_p(VALUE obj)
VALUE rb_obj_init_dup_clone(VALUE obj, VALUE orig)
VALUE rb_mod_remove_const(VALUE, VALUE)
VALUE rb_obj_methods(int argc, VALUE *argv, VALUE obj)
VALUE rb_mod_const_missing(VALUE, VALUE)
static VALUE inspect_obj(VALUE obj, VALUE str, int recur)
VALUE rb_obj_is_kind_of(VALUE obj, VALUE c)
void rb_obj_infect(VALUE obj1, VALUE obj2)
VALUE rb_obj_init_copy(VALUE obj, VALUE orig)
VALUE rb_Array(VALUE val)
static VALUE rb_mod_cvar_defined(VALUE obj, VALUE iv)
static VALUE rb_class_s_alloc(VALUE klass)
static VALUE rb_mod_to_s(VALUE klass)
VALUE rb_ary_new2(long capa)
int rb_is_class_id(ID id)
static VALUE rb_mod_const_set(VALUE mod, VALUE name, VALUE value)
VALUE rb_const_get_at(VALUE, ID)
VALUE rb_obj_tainted(VALUE obj)
static VALUE rb_mod_const_defined(int argc, VALUE *argv, VALUE mod)
const char * rb_id2name(ID id)
VALUE rb_obj_not_equal(VALUE obj1, VALUE obj2)
VALUE rb_mod_included_modules(VALUE mod)
static VALUE rb_false(VALUE obj)
static VALUE rb_f_integer(int argc, VALUE *argv, VALUE obj)
void rb_warning(const char *fmt,...)
#define rb_check_frozen(obj)
int rb_eql(VALUE obj1, VALUE obj2)
static VALUE false_to_s(VALUE obj)
void rb_copy_generic_ivar(VALUE, VALUE)
#define SPECIAL_CONST_P(x)
VALUE rb_define_module(const char *name)
VALUE rb_usascii_str_new(const char *, long)
static VALUE rb_mod_gt(VALUE mod, VALUE arg)
VALUE rb_obj_instance_variables(VALUE)
static st_table * immediate_frozen_tbl
VALUE rb_obj_clone(VALUE obj)
#define OBJSETUP(obj, c, t)
void rb_obj_call_init(VALUE obj, int argc, VALUE *argv)
VALUE rb_class_inherited_p(VALUE mod, VALUE arg)
void rb_define_method(VALUE klass, const char *name, VALUE(*func)(ANYARGS), int argc)
VALUE rb_str_append(VALUE, VALUE)
void rb_invalid_str(const char *str, const char *type)
VALUE rb_class_boot(VALUE super)
A utility function that wraps class_alloc.
VALUE rb_obj_frozen_p(VALUE obj)
st_index_t rb_hash_start(st_index_t)
VALUE rb_any_to_s(VALUE obj)
VALUE rb_obj_is_instance_of(VALUE obj, VALUE c)
static VALUE rb_module_s_alloc(VALUE klass)