admin/mruby-mruby
1
0
Fork 0
mirror of https://github.com/mruby/mruby synced 2026-06-08 16:11:16 +00:00
Code Issues Packages Projects Releases Wiki Activity

object.c (mrb_equal) move mrb_equal() back to object.c

Browse Source
This commit is contained in:
Yukihiro "Matz" Matsumoto
2023-06-20 06:45:05 +09:00
parent 89a1719a13
commit 75c8ffddf5
2 changed files with 29 additions and 29 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/kernel.c
-29
View File
@@ -61,35 +61,6 @@ mrb_obj_inspect(mrb_state *mrb, mrb_value obj)
return mrb_any_to_s(mrb, obj);
}
MRB_API mrb_bool
mrb_equal(mrb_state *mrb, mrb_value obj1, mrb_value obj2)
{
if (mrb_obj_eq(mrb, obj1, obj2)) return TRUE;
#ifndef MRB_NO_FLOAT
/* value mixing with integer and float */
else if (mrb_integer_p(obj1) && mrb_float_p(obj2)) {
if ((mrb_float)mrb_integer(obj1) == mrb_float(obj2))
return TRUE;
}
else if (mrb_float_p(obj1) && mrb_integer_p(obj2)) {
if (mrb_float(obj1) == (mrb_float)mrb_integer(obj2))
return TRUE;
}
#endif
#ifdef MRB_USE_BIGINT
else if (mrb_bigint_p(obj1) &&
(mrb_integer_p(obj2) || mrb_bigint_p(obj2) || mrb_float_p(obj2))) {
if (mrb_bint_cmp(mrb, obj1, obj2) == 0)
return TRUE;
}
#endif
else if (!mrb_func_basic_p(mrb, obj1, MRB_OPSYM(eq), mrb_obj_equal_m)) {
mrb_value result = mrb_funcall_argv(mrb, obj1, MRB_OPSYM(eq), 1, &obj2);
if (mrb_test(result)) return TRUE;
}
return FALSE;
}
/* 15.3.1.3.2 */
/*
* call-seq:
src/object.c
+29
View File
@@ -50,6 +50,35 @@ mrb_obj_equal(mrb_state *mrb, mrb_value v1, mrb_value v2)
return mrb_obj_eq(mrb, v1, v2);
}
MRB_API mrb_bool
mrb_equal(mrb_state *mrb, mrb_value obj1, mrb_value obj2)
{
if (mrb_obj_eq(mrb, obj1, obj2)) return TRUE;
#ifndef MRB_NO_FLOAT
/* value mixing with integer and float */
else if (mrb_integer_p(obj1) && mrb_float_p(obj2)) {
if ((mrb_float)mrb_integer(obj1) == mrb_float(obj2))
return TRUE;
}
else if (mrb_float_p(obj1) && mrb_integer_p(obj2)) {
if (mrb_float(obj1) == (mrb_float)mrb_integer(obj2))
return TRUE;
}
#endif
#ifdef MRB_USE_BIGINT
else if (mrb_bigint_p(obj1) &&
(mrb_integer_p(obj2) || mrb_bigint_p(obj2) || mrb_float_p(obj2))) {
if (mrb_bint_cmp(mrb, obj1, obj2) == 0)
return TRUE;
}
#endif
else if (!mrb_func_basic_p(mrb, obj1, MRB_OPSYM(eq), mrb_obj_equal_m)) {
mrb_value result = mrb_funcall_argv(mrb, obj1, MRB_OPSYM(eq), 1, &obj2);
if (mrb_test(result)) return TRUE;
}
return FALSE;
}
/*
* Document-class: NilClass
*