1181
1182
1183
1184
1185
1186
1187
1188
1189
1190
1191
1192
1193
1194
|
1181
1182
1183
1184
1185
1186
1187
1188
1189
1190
1191
1192
1193
1194
1195
1196
1197
|
+
+
+
|
if(!x) ParseError("User flag ^%s not defined\n",tokenstr);
if(Tokenf(TF_COMMA)) x+=0x100;
if(Tokenf(TF_EQUAL)) ParseError("Improper token in pattern\n");
cl->codes[ptr++]=x;
break;
default: ParseError("Improper token in pattern\n");
}
} else if(Tokenf(TF_FUNCTION)) {
cl->codes[ptr++]=OP_FUNCTION;
cl->codes[ptr++]=tokenv&0x3FFF;
} else if(tokent==TF_OPEN) {
nxttok();
if(Tokenf(TF_MACRO) || !Tokenf(TF_NAME)) ParseError("Improper token in pattern\n");
switch(tokenv) {
case OP_HEIGHT: case OP_CLIMB:
cl->codes[ptr++]=tokenv+0x0800; // OP_HEIGHT_C or OP_CLIMB_C
nxttok();
|