mirror of
https://github.com/ruby/ruby.git
synced 2022-11-09 12:17:21 -05:00
50794b3222
(integer_unpack_num_bdigits): Extracted from rb_integer_unpack_internal. (bary_unpack_internal): Renamed from bary_unpack and support INTEGER_PACK_2COMP. (bary_unpack): New function to validate arguments and invoke bary_unpack_internal. (rb_integer_unpack_internal): Removed. (rb_integer_unpack): Invoke bary_unpack_internal. (rb_integer_unpack_2comp): Removed. * internal.h (rb_integer_unpack_2comp): Removed. * pack.c: Follow the above change. git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@41337 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
64 lines
2.6 KiB
C
64 lines
2.6 KiB
C
#include "ruby.h"
|
|
#include "internal.h"
|
|
|
|
static VALUE
|
|
rb_integer_pack_raw_m(VALUE val, VALUE buf, VALUE numwords_arg, VALUE wordsize_arg, VALUE nails, VALUE flags)
|
|
{
|
|
int sign;
|
|
size_t numwords = 0;
|
|
size_t wordsize = NUM2SIZET(wordsize_arg);
|
|
|
|
StringValue(buf);
|
|
rb_str_modify(buf);
|
|
sign = rb_integer_pack(val,
|
|
RSTRING_PTR(buf), NUM2SIZET(numwords_arg),
|
|
NUM2SIZET(wordsize_arg), NUM2SIZET(nails), NUM2INT(flags));
|
|
|
|
return rb_ary_new_from_args(2, INT2NUM(sign), rb_str_new(RSTRING_PTR(buf), wordsize * numwords));
|
|
}
|
|
|
|
static VALUE
|
|
rb_integer_pack_m(VALUE val, VALUE numwords_arg, VALUE wordsize_arg, VALUE nails, VALUE flags)
|
|
{
|
|
int sign;
|
|
size_t numwords = NUM2SIZET(numwords_arg);
|
|
size_t wordsize = NUM2SIZET(wordsize_arg);
|
|
VALUE buf;
|
|
|
|
if (numwords != 0 && wordsize != 0 && LONG_MAX / wordsize < numwords)
|
|
rb_raise(rb_eArgError, "too big numwords * wordsize");
|
|
buf = rb_str_new(NULL, numwords * wordsize);
|
|
sign = rb_integer_pack(val,
|
|
RSTRING_PTR(buf), numwords,
|
|
wordsize, NUM2SIZET(nails), NUM2INT(flags));
|
|
|
|
return rb_assoc_new(INT2NUM(sign), buf);
|
|
}
|
|
|
|
static VALUE
|
|
rb_integer_unpack_m(VALUE klass, VALUE buf, VALUE numwords, VALUE wordsize, VALUE nails, VALUE flags)
|
|
{
|
|
StringValue(buf);
|
|
|
|
return rb_integer_unpack(RSTRING_PTR(buf),
|
|
NUM2SIZET(numwords), NUM2SIZET(wordsize),
|
|
NUM2SIZET(nails), NUM2INT(flags));
|
|
}
|
|
|
|
void
|
|
Init_pack(VALUE klass)
|
|
{
|
|
rb_define_method(rb_cInteger, "test_pack_raw", rb_integer_pack_raw_m, 5);
|
|
rb_define_method(rb_cInteger, "test_pack", rb_integer_pack_m, 4);
|
|
rb_define_singleton_method(rb_cInteger, "test_unpack", rb_integer_unpack_m, 5);
|
|
rb_define_const(rb_cInteger, "INTEGER_PACK_MSWORD_FIRST", INT2NUM(INTEGER_PACK_MSWORD_FIRST));
|
|
rb_define_const(rb_cInteger, "INTEGER_PACK_LSWORD_FIRST", INT2NUM(INTEGER_PACK_LSWORD_FIRST));
|
|
rb_define_const(rb_cInteger, "INTEGER_PACK_MSBYTE_FIRST", INT2NUM(INTEGER_PACK_MSBYTE_FIRST));
|
|
rb_define_const(rb_cInteger, "INTEGER_PACK_LSBYTE_FIRST", INT2NUM(INTEGER_PACK_LSBYTE_FIRST));
|
|
rb_define_const(rb_cInteger, "INTEGER_PACK_NATIVE_BYTE_ORDER", INT2NUM(INTEGER_PACK_NATIVE_BYTE_ORDER));
|
|
rb_define_const(rb_cInteger, "INTEGER_PACK_2COMP", INT2NUM(INTEGER_PACK_2COMP));
|
|
rb_define_const(rb_cInteger, "INTEGER_PACK_LITTLE_ENDIAN", INT2NUM(INTEGER_PACK_LITTLE_ENDIAN));
|
|
rb_define_const(rb_cInteger, "INTEGER_PACK_BIG_ENDIAN", INT2NUM(INTEGER_PACK_BIG_ENDIAN));
|
|
rb_define_const(rb_cInteger, "INTEGER_PACK_FORCE_BIGNUM", INT2NUM(INTEGER_PACK_FORCE_BIGNUM));
|
|
rb_define_const(rb_cInteger, "INTEGER_PACK_NEGATIVE", INT2NUM(INTEGER_PACK_NEGATIVE));
|
|
}
|