69 #include <sys/types.h>
76 #if defined(HAVE_SYS_TIME_H)
81 # if !defined(_WIN32_WINNT) || _WIN32_WINNT < 0x0400
83 # define _WIN32_WINNT 0x400
84 # undef __WINCRYPT_H__
94 #define MATRIX_A 0x9908b0dfU
95 #define UMASK 0x80000000U
96 #define LMASK 0x7fffffffU
97 #define MIXBITS(u,v) ( ((u) & UMASK) | ((v) & LMASK) )
98 #define TWIST(u,v) ((MIXBITS((u),(v)) >> 1) ^ ((v)&1U ? MATRIX_A : 0U))
109 #define genrand_initialized(mt) ((mt)->next != 0)
110 #define uninit_genrand(mt) ((mt)->next = 0)
117 mt->
state[0] = s & 0xffffffff
U;
118 for (j=1; j<
N; j++) {
119 mt->
state[j] = (1812433253U * (mt->
state[j-1] ^ (mt->
state[j-1] >> 30)) + j);
124 mt->
state[j] &= 0xffffffff;
140 k = (
N>key_length ?
N : key_length);
147 if (j>=key_length) j=0;
149 for (k=
N-1; k; k--) {
157 mt->
state[0] = 0x80000000
U;
163 unsigned int *
p = mt->
state;
169 for (j=
N-
M+1; --j; p++)
170 *p = p[
M] ^
TWIST(p[0], p[1]);
173 *p = p[
M-
N] ^
TWIST(p[0], p[1]);
190 y ^= (y << 7) & 0x9d2c5680;
191 y ^= (y << 15) & 0xefc60000;
203 return(a*67108864.0+b)*(1.0/9007199254740992.0);
226 #define DEFAULT_SEED_CNT 4
236 struct MT *mt = &r->
mt;
263 #define BDIGITS(x) (RBIGNUM_DIGITS(x))
264 #define BITSPERDIG (SIZEOF_BDIGITS*CHAR_BIT)
265 #define BIGRAD ((BDIGIT_DBL)1 << BITSPERDIG)
266 #define DIGSPERINT (SIZEOF_INT/SIZEOF_BDIGITS)
267 #define BIGUP(x) ((BDIGIT_DBL)(x) << BITSPERDIG)
268 #define BIGDN(x) RSHIFT((x),BITSPERDIG)
269 #define BIGLO(x) ((BDIGIT)((x) & (BIGRAD-1)))
270 #define BDIGMAX ((BDIGIT)-1)
272 #define roomof(n, m) (int)(((n)+(m)-1) / (m))
273 #define numberof(array) (int)(sizeof(array) / sizeof((array)[0]))
274 #define SIZEOF_INT32 (31/CHAR_BIT + 1)
301 #if CHAR_BIT * SIZEOF_LONG > 64
308 #if 64 % BITSPERDIG == 0
324 return ldexp(r, -53);
342 if (ptr != &default_rand)
399 switch (
TYPE(seed)) {
404 fixnum_seed = -fixnum_seed;
405 buf[0] = (
unsigned int)(fixnum_seed & 0xffffffff);
406 #if SIZEOF_LONG > SIZEOF_INT32
407 if ((
long)(int32_t)fixnum_seed != fixnum_seed) {
408 if ((buf[1] = (
unsigned int)(fixnum_seed >> 32)) != 0) ++len;
424 memset(buf, 0, len *
sizeof(*buf));
426 for (i = (
int)(blen-1); 0 <=
i; i--) {
428 #if SIZEOF_BDIGITS < SIZEOF_INT32
432 if (!len && buf[j]) len = j;
448 if (buf != buf0)
xfree(buf);
479 #define DEFAULT_SEED_LEN (DEFAULT_SEED_CNT * (int)sizeof(int))
481 #if defined(S_ISCHR) && !defined(DOSISH)
482 # define USE_DEV_URANDOM 1
484 # define USE_DEV_URANDOM 0
495 #elif defined(_WIN32)
511 if (
fstat(fd, &statbuf) == 0 &&
S_ISCHR(statbuf.st_mode)) {
518 #elif defined(_WIN32)
519 if (CryptAcquireContext(&prov,
NULL,
NULL, PROV_RSA_FULL, CRYPT_VERIFYCONTEXT)) {
521 CryptReleaseContext(prov, 0);
527 seed[1] ^= (
unsigned int)tv.
tv_sec;
528 #
if SIZEOF_TIME_T > SIZEOF_INT
529 seed[0] ^= (
unsigned int)((time_t)tv.
tv_sec >> SIZEOF_INT *
CHAR_BIT);
531 seed[2] ^= getpid() ^ (n++ << 16);
532 seed[3] ^= (
unsigned int)(
VALUE)&seed;
533 #if SIZEOF_VOIDP > SIZEOF_INT
534 seed[2] ^= (
unsigned int)((
VALUE)&seed >> SIZEOF_INT *
CHAR_BIT);
553 #if SIZEOF_INT32 / SIZEOF_BDIGITS > 1
554 digits[len-2] <= 1 && digits[len-1] == 0
625 unsigned int x = mt->
state[
i];
626 #if SIZEOF_BDIGITS < SIZEOF_INT32
688 struct MT *mt = &rnd->
mt;
710 mt->
state[0] = (
unsigned int)x;
711 #if SIZEOF_LONG / SIZEOF_INT >= 2
714 #if SIZEOF_LONG / SIZEOF_INT >= 3
717 #if SIZEOF_LONG / SIZEOF_INT >= 4
729 #if SIZEOF_BDIGITS < SIZEOF_INT
739 }
while (--len % DIGSPERINT);
752 # elif SIZEOF_BDIGITS < SIZEOF_INT
755 }
while (--len % DIGSPERINT);
765 mt->
left = (
unsigned int)x;
833 unsigned long val, mask;
835 if (!limit)
return 0;
840 if ((mask >> (i * 32)) & 0xffffffff) {
854 unsigned long mask, lim, rnd;
862 #if SIZEOF_BDIGITS == 2
863 # define BIG_GET32(big,i) \
864 (RBIGNUM_DIGITS(big)[(i)*2] | \
865 ((i)*2+1 < RBIGNUM_LEN(big) ? \
866 (RBIGNUM_DIGITS(big)[(i)*2+1] << 16) : \
868 # define BIG_SET32(big,i,d) \
869 ((RBIGNUM_DIGITS(big)[(i)*2] = (d) & 0xffff), \
870 ((i)*2+1 < RBIGNUM_LEN(big) ? \
871 (RBIGNUM_DIGITS(big)[(i)*2+1] = (d) >> 16) : \
875 # define BIG_GET32(big,i) (RBIGNUM_DIGITS(big)[(i)])
876 # define BIG_SET32(big,i,d) (RBIGNUM_DIGITS(big)[(i)] = (d))
881 for (i = len-1; 0 <=
i; i--) {
883 mask = mask ? 0xffffffff :
make_mask(lim);
918 #if SIZEOF_LONG * CHAR_BIT > 32
920 #elif defined HAVE_LONG_LONG
921 VALUE lim = ULL2NUM((LONG_LONG)0xffffffff+1);
952 return ULL2NUM((LONG_LONG)n+1);
954 if (n >= ULONG_MAX) {
1033 if (endp) *endp = end;
1049 if (!max)
return Qnil;
1051 if (restrictive)
return Qnil;
1061 if (restrictive)
return Qnil;
1068 if (max == -1)
return Qnil;
1078 static inline double
1103 if ((max =
FIX2LONG(vmax) - excl) >= 0) {
1104 unsigned long r =
limited_rand(mt, (
unsigned long)max);
1139 return rb_float_new(+(+(+(r - 0.5) * max) * scale) + mid);
1143 else if (max == 0.0 && !excl) {
1323 if (argc == 0)
goto zero_arg;
1325 if (
NIL_P(vmax))
goto zero_arg;
1351 #define SIP_HASH_STREAMING 0
1352 #define sip_hash24 ruby_sip_hash24
1353 #if !defined _WIN32 && !defined BYTE_ORDER
1354 # ifdef WORDS_BIGENDIAN
1355 # define BYTE_ORDER BIG_ENDIAN
1357 # define BYTE_ORDER LITTLE_ENDIAN
1359 # ifndef LITTLE_ENDIAN
1360 # define LITTLE_ENDIAN 1234
1363 # define BIG_ENDIAN 4321
1390 struct MT *mt = &r->
mt;
1395 #if SIZEOF_ST_INDEX_T*CHAR_BIT > 4*8
1399 #if SIZEOF_ST_INDEX_T*CHAR_BIT > 8*8
1403 #if SIZEOF_ST_INDEX_T*CHAR_BIT > 12*8
1425 #ifdef HAVE_UINT64_T
#define RB_TYPE_P(obj, type)
int rb_bigzero_p(VALUE x)
static VALUE random_bytes(VALUE obj, VALUE len)
VALUE rb_big_clone(VALUE x)
static rb_random_t default_rand
int gettimeofday(struct timeval *, struct timezone *)
static VALUE random_s_state(VALUE klass)
VALUE rb_class_new_instance(int, VALUE *, VALUE)
const char * rb_obj_classname(VALUE)
uint32_t u32[(16 *sizeof(uint8_t)-1)/sizeof(uint32_t)]
static unsigned long make_mask(unsigned long x)
static int max(int a, int b)
void rb_define_singleton_method(VALUE obj, const char *name, VALUE(*func)(ANYARGS), int argc)
Defines a singleton method for obj.
VALUE rb_random_bytes(VALUE obj, long n)
#define BIG_SET32(big, i, d)
static VALUE random_copy(VALUE obj, VALUE orig)
#define rb_check_frozen(obj)
VALUE rb_big_plus(VALUE x, VALUE y)
static VALUE random_rand(int argc, VALUE *argv, VALUE obj)
VALUE rb_str_new_cstr(const char *)
static VALUE random_left(VALUE obj)
void rb_define_private_method(VALUE klass, const char *name, VALUE(*func)(ANYARGS), int argc)
static VALUE rand_int(struct MT *mt, VALUE vmax, int restrictive)
static VALUE random_seed(void)
void rb_define_alloc_func(VALUE, rb_alloc_func_t)
void rb_update_max_fd(int fd)
VALUE rb_ary_push(VALUE ary, VALUE item)
static rb_random_t * rand_start(rb_random_t *r)
static void random_mark(void *ptr)
static VALUE random_equal(VALUE self, VALUE other)
#define MEMMOVE(p1, p2, type, n)
void rb_raise(VALUE exc, const char *fmt,...)
static unsigned int genrand_int32(struct MT *mt)
static void init_by_array(struct MT *mt, unsigned int init_key[], int key_length)
VALUE rb_obj_class(VALUE)
int rb_num_negative_p(VALUE)
static void fill_random_seed(unsigned int seed[DEFAULT_SEED_CNT])
static double genrand_real2(struct MT *mt)
double rb_big2dbl(VALUE x)
void rb_define_global_function(const char *name, VALUE(*func)(ANYARGS), int argc)
Defines a global function.
static void random_free(void *ptr)
void rb_big_resize(VALUE big, long len)
static VALUE random_s_left(VALUE klass)
VALUE rb_big_new(long len, int sign)
static VALUE limited_big_rand(struct MT *mt, struct RBignum *limit)
VALUE rb_str_append(VALUE, VALUE)
#define MEMZERO(p, type, n)
void rb_exc_raise(VALUE mesg)
static size_t random_memsize(const void *ptr)
static VALUE rb_float_new(double d)
static void next_state(struct MT *mt)
VALUE rb_check_to_float(VALUE)
static VALUE init_randomseed(struct MT *mt, unsigned int initial[DEFAULT_SEED_CNT])
static void Init_RandomSeed2(void)
static st_index_t hashseed
#define TypedData_Get_Struct(obj, type, data_type, sval)
static VALUE mt_state(const struct MT *mt)
static VALUE random_init(int argc, VALUE *argv, VALUE obj)
int rb_typeddata_is_kind_of(VALUE obj, const rb_data_type_t *data_type)
static VALUE rb_f_srand(int argc, VALUE *argv, VALUE obj)
unsigned int rb_genrand_int32(void)
void rb_define_const(VALUE, const char *, VALUE)
unsigned int rb_random_int32(VALUE obj)
VALUE rb_define_class(const char *name, VALUE super)
Defines a top-level class.
VALUE rb_check_to_integer(VALUE, const char *)
static const rb_data_type_t random_data_type
#define OBJ_INIT_COPY(obj, orig)
#define TypedData_Wrap_Struct(klass, data_type, sval)
#define range(low, item, hi)
#define genrand_initialized(mt)
static double int_pair_to_real_inclusive(unsigned int a, unsigned int b)
#define uninit_genrand(mt)
int rb_range_values(VALUE range, VALUE *begp, VALUE *endp, int *exclp)
#define RBIGNUM_DIGITS(b)
static VALUE range_values(VALUE vmax, VALUE *begp, VALUE *endp, int *exclp)
st_index_t rb_memhash(const void *ptr, long len)
VALUE rb_obj_as_string(VALUE)
VALUE rb_big_minus(VALUE x, VALUE y)
#define RBIGNUM_SET_SIGN(b, sign)
static VALUE random_load(VALUE obj, VALUE dump)
void rb_reset_random_seed(void)
VALUE rb_eSystemCallError
void rb_gc_register_mark_object(VALUE)
static VALUE make_seed_value(const void *ptr)
int rb_scan_args(int argc, const VALUE *argv, const char *fmt,...)
unsigned char buf[MIME_BUF_SIZE]
VALUE rb_big_mul(VALUE x, VALUE y)
void rb_check_copyable(VALUE obj, VALUE orig)
int memcmp(const void *s1, const void *s2, size_t len)
RUBY_EXTERN int isinf(double)
unsigned long rb_genrand_ulong_limited(unsigned long limit)
static VALUE random_dump(VALUE obj)
#define MEMCPY(p1, p2, type, n)
static double genrand_real(struct MT *mt)
#define NEWOBJ_OF(obj, type, klass, flags)
static double float_value(VALUE v)
static union @120 sipseed
VALUE rb_exc_new3(VALUE etype, VALUE str)
#define BIG_GET32(big, i)
static VALUE random_alloc(VALUE klass)
double rb_genrand_real(void)
#define TypedData_Make_Struct(klass, type, data_type, sval)
RUBY_EXTERN VALUE rb_cObject
VALUE rb_big_norm(VALUE x)
static VALUE rb_f_rand(int argc, VALUE *argv, VALUE obj)
static VALUE rand_init(struct MT *mt, VALUE vseed)
static rb_random_t * get_rnd(VALUE obj)
int rb_respond_to(VALUE, ID)
static unsigned long limited_rand(struct MT *mt, unsigned long limit)
static VALUE random_s_rand(int argc, VALUE *argv, VALUE obj)
VALUE rb_ary_new2(long capa)
VALUE rb_str_new(const char *, long)
int rb_cloexec_open(const char *pathname, int flags, mode_t mode)
static void init_genrand(struct MT *mt, unsigned int s)
#define rb_check_arity(argc, min, max)
void rb_global_variable(VALUE *)
VALUE rb_funcall2(VALUE, ID, int, const VALUE *)
Calls a method.
static struct MT * default_mt(void)
VALUE rb_big_rshift(VALUE x, VALUE y)
static VALUE ulong_to_num_plus_1(unsigned long n)
static VALUE random_get_seed(VALUE obj)
double rb_random_real(VALUE obj)
static VALUE rand_random(int argc, VALUE *argv, rb_random_t *rnd)
void Init_RandomSeed(void)
static rb_random_t * try_get_rnd(VALUE obj)
void rb_define_method(VALUE klass, const char *name, VALUE(*func)(ANYARGS), int argc)
static VALUE random_state(VALUE obj)
int int_must_be_32bit_at_least[sizeof(int)*CHAR_BIT< 32?-1:1]
static VALUE rand_range(struct MT *mt, VALUE range)
st_index_t rb_hash_start(st_index_t h)
unsigned long rb_random_ulong_limited(VALUE obj, unsigned long limit)