mirror of
https://github.com/ruby/ruby.git
synced 2022-11-09 12:17:21 -05:00
0c9a719d77
(rb_integer_unpack): sign argument removed. * bignum.c (rb_integer_unpack): sign argument removed. Non-negative integers generated by default. INTEGER_PACK_NEGATIVE flag is used to generate non-positive integers. * pack.c (pack_unpack): Follow the above change. * random.c (int_pair_to_real_inclusive): Ditto. (make_seed_value): Ditto. (mt_state): Ditto. (limited_big_rand): Ditto. * marshal.c (r_object0): Ditto. git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@41239 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
82 lines
3.1 KiB
C
82 lines
3.1 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_pack_2comp_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_2comp(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_method(rb_cInteger, "test_pack_2comp", rb_integer_pack_2comp_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_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));
|
|
}
|