blob: aec63e831648c1a9a8151c387ef93329c4ec31a9 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
|
--- util.c Tue Feb 26 12:29:20 2002
+++ util.c.new Thu Jun 20 14:50:03 2002
@@ -1404,7 +1404,7 @@
else token=0;
}
else if(token>=Command&&start){ /* at the start must be a "command" */
- if(token==THEN); /* except THEN, PULL and ARG */
+ if(token==THEN||token==UPPER); /* except THEN, UPPER, PULL and ARG */
else if(token==ARG||token==PULL)
prgptr++[0]=PARSE,
prgptr++[0]=UPPER,
@@ -1415,7 +1415,7 @@
if(!token); /* no need to check if there is no token */
else if(token==VALUE)if(last==ADDRESS||last==FORM||last==TRACE
||last==PARSE||last==SIGNAL);else token=0;
- else if(token==UPPER)if(last==PARSE);else token=0;
+ else if(token==UPPER)if(start||last==PARSE);else token=0;
else if(token>=PULL&&token<=LINEIN)if(last==PARSE);else token=0;
else if(token==WITH)if(first==VALUE);else token=0;
else if(token==ON||token==OFF)if(last==SIGNAL||last==CALL)
|