diff options
Diffstat (limited to 'ext')
-rw-r--r-- | ext/-test-/bignum/big2str.c | 40 | ||||
-rw-r--r-- | ext/-test-/bignum/depend | 1 |
2 files changed, 41 insertions, 0 deletions
diff --git a/ext/-test-/bignum/big2str.c b/ext/-test-/bignum/big2str.c new file mode 100644 index 0000000000..2c5df6a656 --- /dev/null +++ b/ext/-test-/bignum/big2str.c @@ -0,0 +1,40 @@ +#include "ruby.h" +#include "internal.h" + +static VALUE +big(VALUE x) +{ + if (FIXNUM_P(x)) + return rb_int2big(FIX2LONG(x)); + if (RB_TYPE_P(x, T_BIGNUM)) + return x; + rb_raise(rb_eTypeError, "can't convert %s to Bignum", + rb_obj_classname(x)); +} + +static VALUE +big2str_generic(VALUE x, VALUE vbase) +{ + int base = NUM2INT(vbase); + if (base < 2 || 36 < base) + rb_raise(rb_eArgError, "invalid radix %d", base); + return rb_big2str_generic(big(x), NUM2INT(vbase)); +} + +#define POW2_P(x) (((x)&((x)-1))==0) + +static VALUE +big2str_poweroftwo(VALUE x, VALUE vbase) +{ + int base = NUM2INT(vbase); + if (base < 2 || 36 < base || !POW2_P(base)) + rb_raise(rb_eArgError, "invalid radix %d", base); + return rb_big2str_poweroftwo(big(x), NUM2INT(vbase)); +} + +void +Init_big2str(VALUE klass) +{ + rb_define_method(rb_cInteger, "big2str_generic", big2str_generic, 1); + rb_define_method(rb_cInteger, "big2str_poweroftwo", big2str_poweroftwo, 1); +} diff --git a/ext/-test-/bignum/depend b/ext/-test-/bignum/depend index 947441064c..cac4d52a12 100644 --- a/ext/-test-/bignum/depend +++ b/ext/-test-/bignum/depend @@ -2,3 +2,4 @@ $(OBJS): $(HDRS) $(ruby_headers) intpack.o: intpack.c $(top_srcdir)/internal.h mul.o: mul.c $(top_srcdir)/internal.h +big2str.o: big2str.c $(top_srcdir)/internal.h |