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

Implement fallback handler that looks at the raw command buffer.

Browse source 
With database cinpilation not broken this time...
This commit is contained in:
Eric S. Raymond 2017-05-25 18:21:38 -04:00
parent 76527321b5
commit 79ef3e38c2
3 changed files with 16 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

11
main.c
View file

@ -16,7 +16,7 @@ long ABB[186], ATAB[331], ATLOC[186], BLKLIN = true, DFLAG,
KTAB[331], *LINES, LINK[201], LNLENG, LNPOSN,
PARMS[26], PLACE[101], PTEXT[101], RTEXT[278],
SETUP = 0, TABSIZ = 330;
signed char INLINE[LINESIZE+1], MAP1[129], MAP2[129];
signed char rawbuf[LINESIZE], INLINE[LINESIZE+1], MAP1[129], MAP2[129];
long ABBNUM, ACTSPK[36], AMBER, ATTACK, AXE, BACK, BATTER, BEAR, BIRD, BLOOD, BONUS,
BOTTLE, CAGE, CAVE, CAVITY, CHAIN, CHASM, CHEST, CHLOC, CHLOC2,
@ -139,6 +139,13 @@ L1: SETUP= -1;
score(1);
}
static bool fallback_handler(signed char *buf)
/* fallback handler for commands not handled by FORTRANish parser */
{
printf("Fallback handler sees: %s\n", buf);
return false;
}
static bool do_command(FILE *cmdin) {
/* Can't leave cave once it's closing (except by main office). */
@ -451,6 +458,8 @@ L2800: WD1=WD2;
/* Gee, I don't understand. */
L3000: SETPRM(1,WD1,WD1X);
if (fallback_handler(rawbuf))
return true;
RSPEAK(254);
goto L2600;