kotovalexarian-likes-github/ruby--ruby
1
0
Fork 0
mirror of https://github.com/ruby/ruby.git synced 2022-11-09 12:17:21 -05:00
Code Releases Activity

* random.c (rb_genrand_int32, rb_genrand_real), intern.h: Export.

Browse source 
* string.c (rb_str_tmp_new), intern.h: New function.


git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/branches/ruby_1_8@16014 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
This commit is contained in:
knu 2008-04-14 10:52:17 +00:00
parent 68cab8a24b
commit e926ef5233
4 changed files with 26 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
ChangeLog
View file

@ -1,3 +1,9 @@
Mon Apr 14 19:49:35 2008 Akinori MUSHA <knu@iDaemons.org>
* random.c (rb_genrand_int32, rb_genrand_real), intern.h: Export.
* string.c (rb_str_tmp_new), intern.h: New function.
Mon Apr 14 19:18:55 2008 NAKAMURA Usaku <usa@ruby-lang.org>
* enum.c (inject_i, inject_op_i): prototype.

4
intern.h
View file

@ -369,6 +369,9 @@ VALUE rb_detach_process _((int));
VALUE rb_range_new _((VALUE, VALUE, int));
VALUE rb_range_beg_len _((VALUE, long*, long*, long, int));
VALUE rb_length_by_each _((VALUE));
/* random.c */
unsigned long rb_genrand_int32(void);
double rb_genrand_real(void);
/* re.c */
int rb_memcmp _((const void*,const void*,long));
int rb_memcicmp _((const void*,const void*,long));
@ -421,6 +424,7 @@ VALUE rb_tainted_str_new _((const char*, long));
VALUE rb_tainted_str_new2 _((const char*));
VALUE rb_str_buf_new _((long));
VALUE rb_str_buf_new2 _((const char*));
VALUE rb_str_tmp_new _((long));
VALUE rb_str_buf_append _((VALUE, VALUE));
VALUE rb_str_buf_cat _((VALUE, const char*, long));
VALUE rb_str_buf_cat2 _((VALUE, const char*));

18
random.c
View file

@ -146,8 +146,8 @@ next_state()
}
/* generates a random number on [0,0xffffffff]-interval */
static unsigned long
genrand_int32(void)
unsigned long
rb_genrand_int32(void)
{
unsigned long y;
@ -164,10 +164,10 @@ genrand_int32(void)
}
/* generates a random number on [0,1) with 53-bit resolution*/
static double
genrand_real(void)
double
rb_genrand_real(void)
{
unsigned long a=genrand_int32()>>5, b=genrand_int32()>>6;
unsigned long a=rb_genrand_int32()>>5, b=rb_genrand_int32()>>6;
return(a*67108864.0+b)*(1.0/9007199254740992.0);
}
/* These real versions are due to Isaku Wada, 2002/01/09 added */
@ -361,7 +361,7 @@ limited_rand(unsigned long limit)
val = 0;
for (i = SIZEOF_LONG/4-1; 0 <= i; i--) {
if (mask >> (i * 32)) {
val |= genrand_int32() << (i * 32);
val |= rb_genrand_int32() << (i * 32);
val &= mask;
if (limit < val)
goto retry;
@ -399,7 +399,7 @@ limited_big_rand(struct RBignum *limit)
lim = BIG_GET32(limit, i);
mask = mask ? 0xffffffff : make_mask(lim);
if (mask) {
rnd = genrand_int32() & mask;
rnd = rb_genrand_int32() & mask;
if (boundary) {
if (lim < rnd)
goto retry;
@ -470,7 +470,7 @@ rb_f_rand(argc, argv, obj)
limit = (struct RBignum *)rb_big_minus((VALUE)limit, INT2FIX(1));
if (FIXNUM_P((VALUE)limit)) {
if (FIX2LONG((VALUE)limit) == -1)
return rb_float_new(genrand_real());
return rb_float_new(rb_genrand_real());
return LONG2NUM(limited_rand(FIX2LONG((VALUE)limit)));
}
return limited_big_rand(limit);
@ -488,7 +488,7 @@ rb_f_rand(argc, argv, obj)
}
if (max == 0) {
return rb_float_new(genrand_real());
return rb_float_new(rb_genrand_real());
}
if (max < 0) max = -max;
val = limited_rand(max-1);

7
string.c
View file

@ -250,6 +250,13 @@ rb_str_buf_new2(ptr)
return str;
}
VALUE
rb_str_tmp_new(len)
long len;
{
return str_new(0, 0, len);
}
VALUE
rb_str_to_str(str)
VALUE str;