diff options
author | akr <akr@b2dd03c8-39d4-4d8f-98ff-823fe69b080e> | 2013-09-01 11:35:57 +0000 |
---|---|---|
committer | akr <akr@b2dd03c8-39d4-4d8f-98ff-823fe69b080e> | 2013-09-01 11:35:57 +0000 |
commit | 7dd16046034ca43dc555141b1d3a57da2a57f04d (patch) | |
tree | 834a3b47d610e7af335bba13f20c2cd9df50bd5b /ext/-test-/bignum/big2str.c | |
parent | cec97f40f65bd5b7d775f6e1ec4ec425e6ae6095 (diff) | |
download | ruby-7dd16046034ca43dc555141b1d3a57da2a57f04d.tar.gz |
* bignum.c (big2str_base_poweroftwo): Renamed from
big2str_base_powerof2.
(rb_big2str_poweroftwo): New function for test.
(big2str_generic): Extracted from rb_big2str1.
(rb_big2str_generic): New function for test.
* internal.h (rb_big2str_poweroftwo): Declared.
(rb_big2str_generic): Ditto.
* ext/-test-/bignum/big2str.c: New file.
* test/-ext-/bignum/test_big2str.rb: New file.
git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@42758 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
Diffstat (limited to 'ext/-test-/bignum/big2str.c')
-rw-r--r-- | ext/-test-/bignum/big2str.c | 40 |
1 files changed, 40 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); +} |