1
0
Fork 0
mirror of https://github.com/ruby/ruby.git synced 2022-11-09 12:17:21 -05:00
git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@66888 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
This commit is contained in:
eregon 2019-01-20 20:38:57 +00:00
parent 58573c33e4
commit 6204e0804b
147 changed files with 2728 additions and 21522 deletions

View file

@ -13,19 +13,14 @@ static VALUE numeric_spec_size_of_long_long(VALUE self) {
return INT2FIX(sizeof(LONG_LONG));
}
#ifdef HAVE_NUM2CHR
static VALUE numeric_spec_NUM2CHR(VALUE self, VALUE value) {
return INT2FIX(NUM2CHR(value));
}
#endif
#ifdef HAVE_RB_INT2INUM
static VALUE numeric_spec_rb_int2inum_14(VALUE self) {
return rb_int2inum(14);
}
#endif
#ifdef HAVE_RB_UINT2INUM
static VALUE numeric_spec_rb_uint2inum_14(VALUE self) {
return rb_uint2inum(14);
}
@ -33,21 +28,15 @@ static VALUE numeric_spec_rb_uint2inum_14(VALUE self) {
static VALUE numeric_spec_rb_uint2inum_n14(VALUE self) {
return rb_uint2inum(-14);
}
#endif
#ifdef HAVE_RB_INTEGER
static VALUE numeric_spec_rb_Integer(VALUE self, VALUE str) {
return rb_Integer(str);
}
#endif
#ifdef HAVE_RB_LL2INUM
static VALUE numeric_spec_rb_ll2inum_14(VALUE self) {
return rb_ll2inum(14);
}
#endif
#ifdef HAVE_RB_ULL2INUM
static VALUE numeric_spec_rb_ull2inum_14(VALUE self) {
return rb_ull2inum(14);
}
@ -55,161 +44,80 @@ static VALUE numeric_spec_rb_ull2inum_14(VALUE self) {
static VALUE numeric_spec_rb_ull2inum_n14(VALUE self) {
return rb_ull2inum(-14);
}
#endif
#ifdef HAVE_RB_NUM2DBL
static VALUE numeric_spec_rb_num2dbl(VALUE self, VALUE num) {
return rb_float_new(rb_num2dbl(num));
static VALUE numeric_spec_NUM2DBL(VALUE self, VALUE num) {
return rb_float_new(NUM2DBL(num));
}
#endif
#ifdef HAVE_RB_NUM2INT
static VALUE numeric_spec_rb_num2int(VALUE self, VALUE num) {
return LONG2NUM(rb_num2int(num));
static VALUE numeric_spec_NUM2INT(VALUE self, VALUE num) {
return LONG2NUM(NUM2INT(num));
}
#endif
#ifdef HAVE_RB_INT2NUM
static VALUE numeric_spec_rb_int2num(VALUE self, VALUE num) {
return INT2NUM(rb_num2long(num));
static VALUE numeric_spec_INT2NUM(VALUE self, VALUE num) {
return INT2NUM(NUM2LONG(num));
}
#endif
#ifdef HAVE_RB_NUM2LONG
static VALUE numeric_spec_rb_num2long(VALUE self, VALUE num) {
return LONG2NUM(rb_num2long(num));
static VALUE numeric_spec_NUM2LONG(VALUE self, VALUE num) {
return LONG2NUM(NUM2LONG(num));
}
#endif
#ifdef HAVE_RB_NUM2UINT
static VALUE numeric_spec_rb_num2uint(VALUE self, VALUE num) {
return ULONG2NUM(rb_num2uint(num));
static VALUE numeric_spec_NUM2UINT(VALUE self, VALUE num) {
return ULONG2NUM(NUM2UINT(num));
}
#endif
#ifdef HAVE_RB_NUM2ULONG
static VALUE numeric_spec_rb_num2ulong(VALUE self, VALUE num) {
return ULONG2NUM(rb_num2ulong(num));
static VALUE numeric_spec_NUM2ULONG(VALUE self, VALUE num) {
return ULONG2NUM(NUM2ULONG(num));
}
#endif
#ifdef HAVE_RB_NUM_ZERODIV
static VALUE numeric_spec_rb_num_zerodiv(VALUE self) {
rb_num_zerodiv();
return Qnil;
}
#endif
#ifdef HAVE_RB_CMPINT
static VALUE numeric_spec_rb_cmpint(VALUE self, VALUE val, VALUE b) {
return INT2FIX(rb_cmpint(val, val, b));
}
#endif
#ifdef HAVE_RB_NUM_COERCE_BIN
static VALUE numeric_spec_rb_num_coerce_bin(VALUE self, VALUE x, VALUE y, VALUE op) {
return rb_num_coerce_bin(x, y, SYM2ID(op));
}
#endif
#ifdef HAVE_RB_NUM_COERCE_CMP
static VALUE numeric_spec_rb_num_coerce_cmp(VALUE self, VALUE x, VALUE y, VALUE op) {
return rb_num_coerce_cmp(x, y, SYM2ID(op));
}
#endif
#ifdef HAVE_RB_NUM_COERCE_RELOP
static VALUE numeric_spec_rb_num_coerce_relop(VALUE self, VALUE x, VALUE y, VALUE op) {
return rb_num_coerce_relop(x, y, SYM2ID(op));
}
#endif
#ifdef HAVE_RB_ABSINT_SINGLEBIT_P
static VALUE numeric_spec_rb_absint_singlebit_p(VALUE self, VALUE num) {
return INT2FIX(rb_absint_singlebit_p(num));
}
#endif
void Init_numeric_spec(void) {
VALUE cls;
cls = rb_define_class("CApiNumericSpecs", rb_cObject);
VALUE cls = rb_define_class("CApiNumericSpecs", rb_cObject);
rb_define_method(cls, "size_of_VALUE", numeric_spec_size_of_VALUE, 0);
rb_define_method(cls, "size_of_long_long", numeric_spec_size_of_long_long, 0);
#ifdef HAVE_NUM2CHR
rb_define_method(cls, "NUM2CHR", numeric_spec_NUM2CHR, 1);
#endif
#ifdef HAVE_RB_INT2INUM
rb_define_method(cls, "rb_int2inum_14", numeric_spec_rb_int2inum_14, 0);
#endif
#ifdef HAVE_RB_UINT2INUM
rb_define_method(cls, "rb_uint2inum_14", numeric_spec_rb_uint2inum_14, 0);
rb_define_method(cls, "rb_uint2inum_n14", numeric_spec_rb_uint2inum_n14, 0);
#endif
#ifdef HAVE_RB_INTEGER
rb_define_method(cls, "rb_Integer", numeric_spec_rb_Integer, 1);
#endif
#ifdef HAVE_RB_LL2INUM
rb_define_method(cls, "rb_ll2inum_14", numeric_spec_rb_ll2inum_14, 0);
#endif
#ifdef HAVE_RB_ULL2INUM
rb_define_method(cls, "rb_ull2inum_14", numeric_spec_rb_ull2inum_14, 0);
rb_define_method(cls, "rb_ull2inum_n14", numeric_spec_rb_ull2inum_n14, 0);
#endif
#ifdef HAVE_RB_NUM2DBL
rb_define_method(cls, "rb_num2dbl", numeric_spec_rb_num2dbl, 1);
#endif
#ifdef HAVE_RB_NUM2INT
rb_define_method(cls, "rb_num2int", numeric_spec_rb_num2int, 1);
#endif
#ifdef HAVE_RB_NUM2LONG
rb_define_method(cls, "rb_num2long", numeric_spec_rb_num2long, 1);
#endif
#ifdef HAVE_RB_INT2NUM
rb_define_method(cls, "rb_int2num", numeric_spec_rb_int2num, 1);
#endif
#ifdef HAVE_RB_NUM2UINT
rb_define_method(cls, "rb_num2uint", numeric_spec_rb_num2uint, 1);
#endif
#ifdef HAVE_RB_NUM2ULONG
rb_define_method(cls, "rb_num2ulong", numeric_spec_rb_num2ulong, 1);
#endif
#ifdef HAVE_RB_NUM_ZERODIV
rb_define_method(cls, "NUM2DBL", numeric_spec_NUM2DBL, 1);
rb_define_method(cls, "NUM2INT", numeric_spec_NUM2INT, 1);
rb_define_method(cls, "NUM2LONG", numeric_spec_NUM2LONG, 1);
rb_define_method(cls, "INT2NUM", numeric_spec_INT2NUM, 1);
rb_define_method(cls, "NUM2UINT", numeric_spec_NUM2UINT, 1);
rb_define_method(cls, "NUM2ULONG", numeric_spec_NUM2ULONG, 1);
rb_define_method(cls, "rb_num_zerodiv", numeric_spec_rb_num_zerodiv, 0);
#endif
#ifdef HAVE_RB_CMPINT
rb_define_method(cls, "rb_cmpint", numeric_spec_rb_cmpint, 2);
#endif
#ifdef HAVE_RB_NUM_COERCE_BIN
rb_define_method(cls, "rb_num_coerce_bin", numeric_spec_rb_num_coerce_bin, 3);
#endif
#ifdef HAVE_RB_NUM_COERCE_CMP
rb_define_method(cls, "rb_num_coerce_cmp", numeric_spec_rb_num_coerce_cmp, 3);
#endif
#ifdef HAVE_RB_NUM_COERCE_RELOP
rb_define_method(cls, "rb_num_coerce_relop", numeric_spec_rb_num_coerce_relop, 3);
#endif
#ifdef HAVE_RB_ABSINT_SINGLEBIT_P
rb_define_method(cls, "rb_absint_singlebit_p", numeric_spec_rb_absint_singlebit_p, 1);
#endif
}
#ifdef __cplusplus