archives/open-adventure
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Repeatable seeding is working.

Browse source
This commit is contained in:
Eric S. Raymond 2017-05-25 18:52:39 -04:00
parent 79ef3e38c2
commit 7763e1aa22
1 changed files with 11 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

13
main.c
View file

@ -99,7 +99,8 @@ int main(int argc, char *argv[]) {
lcgstate.a = 1093; lcgstate.a = 1093;
lcgstate.c = 221587; lcgstate.c = 221587;
lcgstate.m = 1048576; lcgstate.m = 1048576;
set_seed((long)time(NULL)); long seedval = (long)time(NULL);
set_seed(seedval);
/* Read the database if we have not yet done so */ /* Read the database if we have not yet done so */
@ -132,6 +133,9 @@ L1: SETUP= -1;
LIMIT=330; LIMIT=330;
if(NOVICE)LIMIT=1000; if(NOVICE)LIMIT=1000;
if (logfp)
fprintf(logfp, "seed %ld\n", seedval);
for (;;) { for (;;) {
if (!do_command(stdin)) if (!do_command(stdin))
break; break;
@ -142,7 +146,12 @@ L1: SETUP= -1;
static bool fallback_handler(signed char *buf) static bool fallback_handler(signed char *buf)
/* fallback handler for commands not handled by FORTRANish parser */ /* fallback handler for commands not handled by FORTRANish parser */
{ {
printf("Fallback handler sees: %s\n", buf); long sv;
if (sscanf(buf, "seed %ld", &sv) == 1) {
set_seed(sv);
printf("Seed set to %ld\n", sv);
return true;
}
return false; return false;
} }