KEYWORD
if (*ident != '\0' && (cf&(KEYWORD|ALIAS))) {
if ((cf & KEYWORD) && (p = mytsearch(&keywords, ident, h))
musthave(emark, KEYWORD|ALIAS);
syniocf = KEYWORD|ALIAS;
switch (c = token(cf|KEYWORD|ALIAS|VARASN)) {
syniocf &= ~(KEYWORD|ALIAS);
musthave(FI, KEYWORD|ALIAS);
syniocf &= ~(KEYWORD|ALIAS);
syniocf &= ~(KEYWORD|ALIAS);
c = token(CONTIN|KEYWORD|ALIAS);
musthave(c, KEYWORD|ALIAS);
musthave(THEN, KEYWORD|ALIAS);
switch (token(KEYWORD|ALIAS|VARASN)) {
c = token(CONTIN|KEYWORD|ALIAS);
while ((tpeek(CONTIN|KEYWORD|ESACONLY)) != c) { /* no ALIAS here */
musthave(c, KEYWORD|ALIAS);
c = token(CONTIN|KEYWORD); /* no ALIAS here */
if ((tpeek(CONTIN|KEYWORD|ALIAS)) != endtok)
musthave(BREAK, CONTIN|KEYWORD|ALIAS);
musthave('{', CONTIN|KEYWORD|ALIAS); /* } */
if ((c = token(CONTIN|KEYWORD|ALIAS)) != IN) {