1berry/ruby
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Expanded f_quo

Browse Source
This commit is contained in:
Nobuyoshi Nakada 2019-08-02 11:28:24 +09:00
parent f9a0492b76
commit 19006b711d
No known key found for this signature in database
GPG Key ID: 4BC7D6DF58D8DF60
1 changed files with 10 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
rational.c
View File

@ -1602,7 +1602,16 @@ f_ceil(VALUE x)
} }
#define id_quo rb_intern("quo") #define id_quo rb_intern("quo")
#define f_quo(x,y) rb_funcall((x), id_quo, 1, (y)) static VALUE
f_quo(VALUE x, VALUE y)
{
if (RB_INTEGER_TYPE_P(x))
return rb_int_div(x, y);
if (RB_FLOAT_TYPE_P(x))
return DBL2NUM(RFLOAT_VALUE(x) / RFLOAT_VALUE(y));
return rb_funcallv(x, id_quo, 1, &y);
}
#define f_reciprocal(x) f_quo(ONE, (x)) #define f_reciprocal(x) f_quo(ONE, (x))