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

Sync compile.c with misc.c.

Browse source
This commit is contained in:
Jason S. Ninneman 2017-06-03 11:41:33 -07:00
parent 4babd6d058
commit 7c0a690a1c
1 changed files with 13 additions and 14 deletions
Download patch file Download diff file Expand all files Collapse all files

27
compile.c
View file

@ -87,47 +87,46 @@ long GETTXT(long SKIP,long ONEWRD, long UPPER) {
* end of the line, the word is filled up with blanks (which encode as 0's). * end of the line, the word is filled up with blanks (which encode as 0's).
* If we're already at end of line when GETTXT is called, we return -1. */ * If we're already at end of line when GETTXT is called, we return -1. */
long CHAR; long TEXT;
long GETTXT;
static long SPLITTING = -1; static long SPLITTING = -1;
if(LNPOSN != SPLITTING) if(LNPOSN != SPLITTING)
SPLITTING = -1; SPLITTING = -1;
GETTXT= -1; TEXT= -1;
while (true) { while (true) {
if(LNPOSN > LNLENG) if(LNPOSN > LNLENG)
return(GETTXT); return(TEXT);
if((!SKIP) || INLINE[LNPOSN] != 0) if((!SKIP) || INLINE[LNPOSN] != 0)
break; break;
LNPOSN=LNPOSN+1; LNPOSN=LNPOSN+1;
} }
GETTXT=0; TEXT=0;
for (int I=1; I<=5; I++) { for (int I=1; I<=5; I++) {
GETTXT=GETTXT*64; TEXT=TEXT*64;
if(LNPOSN > LNLENG || (ONEWRD && INLINE[LNPOSN] == 0)) if(LNPOSN > LNLENG || (ONEWRD && INLINE[LNPOSN] == 0))
continue; continue;
CHAR=INLINE[LNPOSN]; char current=INLINE[LNPOSN];
if(CHAR < 63) { if(current < 63) {
SPLITTING = -1; SPLITTING = -1;
if(UPPER && CHAR >= 37) if(UPPER && current >= 37)
CHAR=CHAR-26; current=current-26;
GETTXT=GETTXT+CHAR; TEXT=TEXT+current;
LNPOSN=LNPOSN+1; LNPOSN=LNPOSN+1;
continue; continue;
} }
if(SPLITTING != LNPOSN) { if(SPLITTING != LNPOSN) {
GETTXT=GETTXT+63; TEXT=TEXT+63;
SPLITTING = LNPOSN; SPLITTING = LNPOSN;
continue; continue;
} }
GETTXT=GETTXT+CHAR-63; TEXT=TEXT+current-63;
SPLITTING = -1; SPLITTING = -1;
LNPOSN=LNPOSN+1; LNPOSN=LNPOSN+1;
} }
return(GETTXT); return(TEXT);
} }
void BUG(long NUM) { void BUG(long NUM) {