mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-04-30 03:40:34 +02:00
Code Activity

* random.c, random.h (scm_c_default_rstate, scm_c_uniform32):

Browse source 
Added.
Renamed functions in the random function library interface
from scm_i_XXX --> scm_c_XXX.
This commit is contained in:
Mikael Djurfeldt 1999-07-25 19:25:01 +00:00
parent 1b9c3daec9
commit 9b741bb6da
2 changed files with 36 additions and 25 deletions
Download patch file Download diff file Expand all files Collapse all files

14
libguile/random.h
View file

@ -92,12 +92,14 @@ extern scm_i_rstate *scm_i_copy_rstate (scm_i_rstate *);
/*
* Random number library functions
*/
extern scm_rstate *scm_i_make_rstate (char *, int);
extern double scm_i_uniform01 (scm_rstate *);
extern double scm_i_normal01 (scm_rstate *);
extern double scm_i_exp1 (scm_rstate *);
extern unsigned long scm_i_random (unsigned long m, scm_rstate *);
extern SCM scm_i_random_bignum (SCM m, scm_rstate *);
extern scm_rstate *scm_c_make_rstate (char *, int);
extern scm_rstate *scm_c_default_rstate (void);
#define scm_c_uniform32(RSTATE) scm_the_rng.random_bits (RSTATE)
extern double scm_c_uniform01 (scm_rstate *);
extern double scm_c_normal01 (scm_rstate *);
extern double scm_c_exp1 (scm_rstate *);
extern unsigned long scm_c_random (scm_rstate *, unsigned long m);
extern SCM scm_c_random_bignum (scm_rstate *, SCM m);
/*