seed 277 ext/mt-random/mt-random.c ScmObj seed = Scm_GetKeyword(key_seed, initargs, SCM_FALSE); seed 280 ext/mt-random/mt-random.c if (!SCM_FALSEP(seed) && !SCM_EXACTP(seed) && !SCM_U32VECTORP(seed)) { seed 281 ext/mt-random/mt-random.c Scm_Error("seed needs to be an exact integer or a u32vector, but got: %S", seed); seed 287 ext/mt-random/mt-random.c if (SCM_EXACTP(seed)) { seed 288 ext/mt-random/mt-random.c Scm_MTInitByUI(mt, Scm_GetUInteger(seed)); seed 289 ext/mt-random/mt-random.c } else if (SCM_U32VECTORP(seed)) { seed 290 ext/mt-random/mt-random.c Scm_MTInitByArray(mt, (ScmInt32*)SCM_U32VECTOR_ELEMENTS(seed), seed 291 ext/mt-random/mt-random.c SCM_U32VECTOR_SIZE(seed)); seed 1272 src/syslib.c ScmObj seed; seed 1275 src/syslib.c seed = (seed_scm); seed 1277 src/syslib.c if (!SCM_EXACTP(seed)) Scm_Error("exact integer required: %S", seed); seed 1279 src/syslib.c srandom(Scm_GetUInteger(seed)); seed 1281 src/syslib.c srand48(Scm_GetUInteger(seed)); seed 1285 src/syslib.c srand(Scm_GetUInteger(seed)); seed 566 src/system.c u_long seed = (u_long)time(NULL); seed 575 src/system.c snprintf(suffix, 7, "%06x", seed&0xffffff); seed 579 src/system.c seed *= 2654435761UL;