diff options
Diffstat (limited to 'ext/-test-/bignum')
-rw-r--r-- | ext/-test-/bignum/depend | 3 | ||||
-rw-r--r-- | ext/-test-/bignum/export.c | 29 | ||||
-rw-r--r-- | ext/-test-/bignum/import.c | 18 | ||||
-rw-r--r-- | ext/-test-/bignum/pack.c | 40 |
4 files changed, 41 insertions, 49 deletions
diff --git a/ext/-test-/bignum/depend b/ext/-test-/bignum/depend index 217aed9dac..8524e41ce6 100644 --- a/ext/-test-/bignum/depend +++ b/ext/-test-/bignum/depend @@ -1,4 +1,3 @@ $(OBJS): $(HDRS) $(ruby_headers) -export.o: export.c $(top_srcdir)/internal.h -import.o: import.c $(top_srcdir)/internal.h +pack.o: pack.c $(top_srcdir)/internal.h diff --git a/ext/-test-/bignum/export.c b/ext/-test-/bignum/export.c deleted file mode 100644 index 56e4f9f6dc..0000000000 --- a/ext/-test-/bignum/export.c +++ /dev/null @@ -1,29 +0,0 @@ -#include "ruby.h" -#include "internal.h" - -static VALUE -rb_int_export_m(VALUE val, VALUE buf, VALUE wordorder, VALUE wordsize_arg, VALUE endian, VALUE nails) -{ - int sign; - size_t count = 0; - void *ret; - size_t wordsize = NUM2SIZET(wordsize_arg); - - if (!NIL_P(buf)) { - StringValue(buf); - rb_str_modify(buf); - count = RSTRING_LEN(buf) / wordsize; - } - - ret = rb_int_export(val, - &sign, &count, NIL_P(buf) ? NULL : RSTRING_PTR(buf), count, - NUM2INT(wordorder), wordsize, NUM2INT(endian), NUM2INT(nails)); - - return rb_ary_new_from_args(3, INT2NUM(sign), ret ? rb_str_new(ret, wordsize * count) : Qnil, SIZET2NUM(count)); -} - -void -Init_export(VALUE klass) -{ - rb_define_method(rb_cInteger, "test_export", rb_int_export_m, 5); -} diff --git a/ext/-test-/bignum/import.c b/ext/-test-/bignum/import.c deleted file mode 100644 index c50d855c44..0000000000 --- a/ext/-test-/bignum/import.c +++ /dev/null @@ -1,18 +0,0 @@ -#include "ruby.h" -#include "internal.h" - -static VALUE -rb_int_import_m(VALUE klass, VALUE sign, VALUE buf, VALUE wordcount, VALUE wordorder, VALUE wordsize, VALUE endian, VALUE nails) -{ - StringValue(buf); - - return rb_int_import(NUM2INT(sign), RSTRING_PTR(buf), - NUM2SIZET(wordcount), NUM2INT(wordorder), NUM2SIZET(wordsize), - NUM2INT(endian), NUM2SIZET(nails)); -} - -void -Init_import(VALUE klass) -{ - rb_define_singleton_method(rb_cInteger, "test_import", rb_int_import_m, 7); -} diff --git a/ext/-test-/bignum/pack.c b/ext/-test-/bignum/pack.c new file mode 100644 index 0000000000..5307db6f4b --- /dev/null +++ b/ext/-test-/bignum/pack.c @@ -0,0 +1,40 @@ +#include "ruby.h" +#include "internal.h" + +static VALUE +rb_integer_pack_m(VALUE val, VALUE buf, VALUE wordorder, VALUE wordsize_arg, VALUE endian, VALUE nails) +{ + int sign; + size_t count = 0; + void *ret; + size_t wordsize = NUM2SIZET(wordsize_arg); + + if (!NIL_P(buf)) { + StringValue(buf); + rb_str_modify(buf); + count = RSTRING_LEN(buf) / wordsize; + } + + ret = rb_integer_pack(val, + &sign, &count, NIL_P(buf) ? NULL : RSTRING_PTR(buf), count, + NUM2INT(wordorder), wordsize, NUM2INT(endian), NUM2INT(nails)); + + return rb_ary_new_from_args(3, INT2NUM(sign), ret ? rb_str_new(ret, wordsize * count) : Qnil, SIZET2NUM(count)); +} + +static VALUE +rb_integer_unpack_m(VALUE klass, VALUE sign, VALUE buf, VALUE wordcount, VALUE wordorder, VALUE wordsize, VALUE endian, VALUE nails) +{ + StringValue(buf); + + return rb_integer_unpack(NUM2INT(sign), RSTRING_PTR(buf), + NUM2SIZET(wordcount), NUM2INT(wordorder), NUM2SIZET(wordsize), + NUM2INT(endian), NUM2SIZET(nails)); +} + +void +Init_pack(VALUE klass) +{ + rb_define_method(rb_cInteger, "test_pack", rb_integer_pack_m, 5); + rb_define_singleton_method(rb_cInteger, "test_unpack", rb_integer_unpack_m, 7); +} |