projects
/
open-adventure.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
4babd6d
)
Sync compile.c with misc.c.
37/head
author
Jason S. Ninneman
<jsn@mbar.us>
Sat, 3 Jun 2017 18:41:33 +0000
(11:41 -0700)
committer
Jason S. Ninneman
<jsn@mbar.us>
Sat, 3 Jun 2017 18:41:33 +0000
(11:41 -0700)
compile.c
patch
|
blob
|
history
diff --git
a/compile.c
b/compile.c
index d7e74d2a8c388e014ca26eb791c25a3af7f74c67..736c7290fc964b8e91b9dbffd4d362f3bff07ae1 100644
(file)
--- a/
compile.c
+++ b/
compile.c
@@
-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).
* If we're already at end of line when GETTXT is called, we return -1. */
* 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. */
- long CHAR;
- long GETTXT;
+ long TEXT;
static long SPLITTING = -1;
if(LNPOSN != SPLITTING)
SPLITTING = -1;
static long SPLITTING = -1;
if(LNPOSN != SPLITTING)
SPLITTING = -1;
-
GETT
XT= -1;
+
TE
XT= -1;
while (true) {
if(LNPOSN > LNLENG)
while (true) {
if(LNPOSN > LNLENG)
- return(
GETT
XT);
+ return(
TE
XT);
if((!SKIP) || INLINE[LNPOSN] != 0)
break;
LNPOSN=LNPOSN+1;
}
if((!SKIP) || INLINE[LNPOSN] != 0)
break;
LNPOSN=LNPOSN+1;
}
-
GETT
XT=0;
+
TE
XT=0;
for (int I=1; I<=5; I++) {
for (int I=1; I<=5; I++) {
-
GETTXT=GETT
XT*64;
+
TEXT=TE
XT*64;
if(LNPOSN > LNLENG || (ONEWRD && INLINE[LNPOSN] == 0))
continue;
if(LNPOSN > LNLENG || (ONEWRD && INLINE[LNPOSN] == 0))
continue;
-
CHAR
=INLINE[LNPOSN];
- if(
CHAR
< 63) {
+
char current
=INLINE[LNPOSN];
+ if(
current
< 63) {
SPLITTING = -1;
SPLITTING = -1;
- if(UPPER &&
CHAR
>= 37)
-
CHAR=CHAR
-26;
-
GETTXT=GETTXT+CHAR
;
+ if(UPPER &&
current
>= 37)
+
current=current
-26;
+
TEXT=TEXT+current
;
LNPOSN=LNPOSN+1;
continue;
}
if(SPLITTING != LNPOSN) {
LNPOSN=LNPOSN+1;
continue;
}
if(SPLITTING != LNPOSN) {
-
GETTXT=GETT
XT+63;
+
TEXT=TE
XT+63;
SPLITTING = LNPOSN;
continue;
}
SPLITTING = LNPOSN;
continue;
}
-
GETTXT=GETTXT+CHAR
-63;
+
TEXT=TEXT+current
-63;
SPLITTING = -1;
LNPOSN=LNPOSN+1;
}
SPLITTING = -1;
LNPOSN=LNPOSN+1;
}
- return(
GETT
XT);
+ return(
TE
XT);
}
void BUG(long NUM) {
}
void BUG(long NUM) {