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

misc.c is goto-free.

Browse source
This commit is contained in:
Eric S. Raymond 2017-06-08 01:35:50 -04:00
parent 3674588968
commit a418ebb38c
1 changed files with 87 additions and 83 deletions
Download patch file Download diff file Expand all files Collapse all files

170
misc.c
View file

@ -34,96 +34,100 @@ void SPEAK(vocab_t msg)
PUTTXT(LINES[i],state,2); PUTTXT(LINES[i],state,2);
} }
LNPOSN=0; LNPOSN=0;
L30:
++LNPOSN; ++LNPOSN;
L32:
if (LNPOSN > LNLENG)
goto L40;
if (INLINE[LNPOSN] != PERCENT)
goto L30;
prmtyp = INLINE[LNPOSN+1];
/* A "%"; the next character determine the type of
* parameter: 1 (!) = suppress message completely, 29 (S) = NULL
* If PARAM=1, else 'S' (optional plural ending), 33 (W) = word
* (two 30-bit values) with trailing spaces suppressed, 22 (L) or
* 31 (U) = word but map to lower/upper case, 13 (C) = word in
* lower case with first letter capitalised, 30 (T) = text ending
* with a word of -1, 65-73 (1-9) = number using that many
* characters, 12 (B) = variable number of blanks. */
if (prmtyp == 1)
return;
if (prmtyp == 29) {
SHFTXT(LNPOSN+2,-1);
INLINE[LNPOSN] = 55;
if (PARMS[nparms] == 1)
SHFTXT(LNPOSN+1,-1);
goto L395;
}
if (prmtyp == 30) {
SHFTXT(LNPOSN+2,-2);
state=0;
casemake=2;
for (;;) { while (LNPOSN <= LNLENG) {
if (PARMS[nparms] < 0) if (INLINE[LNPOSN] != PERCENT) {
goto L395; ++LNPOSN;
if (PARMS[nparms+1] < 0) continue;
casemake=0;
PUTTXT(PARMS[nparms],state,casemake);
nparms=nparms+1;
} }
} prmtyp = INLINE[LNPOSN+1];
if (prmtyp == 12) { /* A "%"; the next character determine the type of
prmtyp=PARMS[nparms]; * parameter: 1 (!) = suppress message completely, 29 (S) = NULL
SHFTXT(LNPOSN+2,prmtyp-2); * If PARAM=1, else 'S' (optional plural ending), 33 (W) = word
if (prmtyp != 0) { * (two 30-bit values) with trailing spaces suppressed, 22 (L) or
for (i=1; i<=prmtyp; i++) { * 31 (U) = word but map to lower/upper case, 13 (C) = word in
INLINE[LNPOSN]=0; * lower case with first letter capitalised, 30 (T) = text ending
LNPOSN=LNPOSN+1; * with a word of -1, 65-73 (1-9) = number using that many
* characters, 12 (B) = variable number of blanks. */
if (prmtyp == 1)
return;
if (prmtyp == 29) {
SHFTXT(LNPOSN+2,-1);
INLINE[LNPOSN] = 55;
if (PARMS[nparms] == 1)
SHFTXT(LNPOSN+1,-1);
++nparms;
continue;
}
if (prmtyp == 30) {
SHFTXT(LNPOSN+2,-2);
state=0;
casemake=2;
while (PARMS[nparms] > 0) {
if (PARMS[nparms+1] < 0)
casemake=0;
PUTTXT(PARMS[nparms],state,casemake);
nparms=nparms+1;
} }
++nparms;
continue;
} }
goto L395; if (prmtyp == 12) {
} prmtyp=PARMS[nparms];
if (prmtyp == 33 || prmtyp == 22 || prmtyp == 31 || prmtyp == 13) { SHFTXT(LNPOSN+2,prmtyp-2);
SHFTXT(LNPOSN+2,-2); if (prmtyp != 0) {
state = 0; for (i=1; i<=prmtyp; i++) {
casemake = -1; INLINE[LNPOSN]=0;
if (prmtyp == 31) ++LNPOSN;
casemake=1; }
if (prmtyp == 33) }
casemake=0; ++nparms;
i = LNPOSN; continue;
PUTTXT(PARMS[nparms],state,casemake); }
PUTTXT(PARMS[nparms+1],state,casemake); if (prmtyp == 33 || prmtyp == 22 || prmtyp == 31 || prmtyp == 13) {
if (prmtyp == 13 && INLINE[i] >= 37 && INLINE[i] <= 62) SHFTXT(LNPOSN+2,-2);
INLINE[i] -= 26; state = 0;
nparms += 2; casemake = -1;
goto L32; if (prmtyp == 31)
} casemake=1;
prmtyp=prmtyp-64; if (prmtyp == 33)
if (prmtyp < 1 || prmtyp > 9) casemake=0;
goto L30; i = LNPOSN;
SHFTXT(LNPOSN+2,prmtyp-2); PUTTXT(PARMS[nparms],state,casemake);
LNPOSN += prmtyp; PUTTXT(PARMS[nparms+1],state,casemake);
param=labs(PARMS[nparms]); if (prmtyp == 13 && INLINE[i] >= 37 && INLINE[i] <= 62)
neg=0; INLINE[i] -= 26;
if (PARMS[nparms] < 0) nparms += 2;
neg=9; continue;
for (i=1; i <= prmtyp; i++) {
--LNPOSN;
INLINE[LNPOSN]=MOD(param,10)+64;
if (i != 1 && param == 0) {
INLINE[LNPOSN]=neg;
neg=0;
} }
param=param/10;
}
LNPOSN += prmtyp;
L395:
++nparms;
goto L32;
L40: prmtyp=prmtyp-64;
if (prmtyp < 1 || prmtyp > 9) {
++LNPOSN;
continue;
}
SHFTXT(LNPOSN+2,prmtyp-2);
LNPOSN += prmtyp;
param=labs(PARMS[nparms]);
neg=0;
if (PARMS[nparms] < 0)
neg=9;
for (i=1; i <= prmtyp; i++) {
--LNPOSN;
INLINE[LNPOSN]=MOD(param,10)+64;
if (i != 1 && param == 0) {
INLINE[LNPOSN]=neg;
neg=0;
}
param=param/10;
}
LNPOSN += prmtyp;
++nparms;
continue;
}
if (blank) if (blank)
TYPE0(); TYPE0();
blank=false; blank=false;