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

Implement -d option.

Browse source
This commit is contained in:
Eric S. Raymond 2023-03-29 16:18:34 -04:00
parent 286556f885
commit d388877c1b
3 changed files with 9 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

6
main.c
View file

@ -42,6 +42,7 @@ long ABBNUM, ACTSPK[36], AMBER, ATTACK, AXE, BACK, BATTER, BEAR, BIRD, BLOOD, BO
WZDARK = false, ZZWORD; WZDARK = false, ZZWORD;
FILE *logfp; FILE *logfp;
bool oldstyle = false; bool oldstyle = false;
int debug;
lcg_state lcgstate; lcg_state lcgstate;
extern void initialise(); extern void initialise();
@ -67,8 +68,11 @@ int main(int argc, char *argv[]) {
/* Options. */ /* Options. */
while ((ch = getopt(argc, argv, "l:o")) != EOF) { while ((ch = getopt(argc, argv, "dl:o")) != EOF) {
switch (ch) { switch (ch) {
case 'd':
debug += 1;
break;
case 'l': case 'l':
logfp = fopen(optarg, "w+"); logfp = fopen(optarg, "w+");
if (logfp == NULL) if (logfp == NULL)

1
main.h
View file

@ -13,4 +13,5 @@ extern long ABB[], ATAB[], ATLOC[], BLKLIN, DFLAG, DLOC[], FIXED[], HOLDNG,
extern signed char rawbuf[LINESIZE], INLINE[LINESIZE+1], MAP1[], MAP2[]; extern signed char rawbuf[LINESIZE], INLINE[LINESIZE+1], MAP1[], MAP2[];
extern FILE *logfp; extern FILE *logfp;
extern bool oldstyle; extern bool oldstyle;
extern int debug;
extern lcg_state lcgstate; extern lcg_state lcgstate;

3
misc.c
View file

@ -770,6 +770,9 @@ unsigned long get_next_lcg_value(void)
/* Return the LCG's current value, and then iterate it. */ /* Return the LCG's current value, and then iterate it. */
unsigned long old_x = lcgstate.x; unsigned long old_x = lcgstate.x;
lcgstate.x = (lcgstate.a * lcgstate.x + lcgstate.c) % lcgstate.m; lcgstate.x = (lcgstate.a * lcgstate.x + lcgstate.c) % lcgstate.m;
if (debug) {
printf("# random %lu\n", old_x);
}
return(old_x); return(old_x);
} }