2014-08-08 01:59:08 -04:00
|
|
|
#include "picrin.h"
|
2016-02-20 10:58:58 -05:00
|
|
|
#include "picrin/extra.h"
|
2014-08-08 01:59:08 -04:00
|
|
|
|
|
|
|
|
double genrand_real3(void);
|
|
|
|
|
|
|
|
|
|
static pic_value
|
|
|
|
|
pic_random_real(pic_state *pic)
|
|
|
|
|
{
|
|
|
|
|
pic_get_args(pic, "");
|
|
|
|
|
|
2016-02-18 06:15:42 -05:00
|
|
|
return pic_float_value(pic, genrand_real3());
|
2014-08-08 01:59:08 -04:00
|
|
|
}
|
|
|
|
|
|
|
|
|
|
void
|
2017-04-03 11:52:59 -04:00
|
|
|
pic_nitro_init_random(pic_state *pic)
|
2014-08-08 01:59:08 -04:00
|
|
|
{
|
2016-02-18 03:39:32 -05:00
|
|
|
pic_deflibrary(pic, "srfi.27");
|
2017-04-02 11:37:37 -04:00
|
|
|
pic_in_library(pic, "srfi.27");
|
|
|
|
|
pic_export(pic, 1, "random-real");
|
2016-02-14 23:20:26 -05:00
|
|
|
|
2017-04-02 11:37:37 -04:00
|
|
|
pic_defun(pic, "srfi.27:random-real", pic_random_real);
|
2014-08-08 01:59:08 -04:00
|
|
|
}
|
