With '!' being made into a keyword (yech!), case cases didn't work properly.
This should fix it (passed my test cases). Originally discovered with perl's Configure (well, in FreeBSD, I don't know how the NetBSD folks discovered it). Reviewed by: sef Submitted by: jtc@cygnus.com Obtained from: NetBSD
This commit is contained in:
parent
e967aefa34
commit
650488feaa
Notes:
svn2git
2020-12-20 02:59:44 +00:00
svn path=/head/; revision=2760
@ -392,7 +392,8 @@ TRACE(("expecting DO got %s %s\n", tokname[got], got == TWORD ? wordtext : ""));
|
||||
if (lasttoken != TWORD || ! equal(wordtext, "in"))
|
||||
synerror("expecting \"in\"");
|
||||
cpp = &n1->ncase.cases;
|
||||
while (checkkwd = 2, readtoken() == TWORD) {
|
||||
checkkwd = 2, readtoken();
|
||||
do {
|
||||
*cpp = cp = (union node *)stalloc(sizeof (struct nclist));
|
||||
cp->type = NCLIST;
|
||||
app = &cp->nclist.pattern;
|
||||
@ -401,25 +402,26 @@ TRACE(("expecting DO got %s %s\n", tokname[got], got == TWORD ? wordtext : ""));
|
||||
ap->type = NARG;
|
||||
ap->narg.text = wordtext;
|
||||
ap->narg.backquote = backquotelist;
|
||||
if (readtoken() != TPIPE)
|
||||
if (checkkwd = 2, readtoken() != TPIPE)
|
||||
break;
|
||||
app = &ap->narg.next;
|
||||
if (readtoken() != TWORD)
|
||||
synexpect(TWORD);
|
||||
readtoken();
|
||||
}
|
||||
ap->narg.next = NULL;
|
||||
if (lasttoken != TRP)
|
||||
synexpect(TRP);
|
||||
cp->nclist.body = list(0);
|
||||
if ((t = readtoken()) == TESAC)
|
||||
tokpushback++;
|
||||
else if (t != TENDCASE)
|
||||
synexpect(TENDCASE);
|
||||
|
||||
checkkwd = 2;
|
||||
if ((t = readtoken()) != TESAC) {
|
||||
if (t != TENDCASE)
|
||||
synexpect(TENDCASE);
|
||||
else
|
||||
checkkwd = 2, readtoken();
|
||||
}
|
||||
cpp = &cp->nclist.next;
|
||||
}
|
||||
} while(lasttoken != TESAC);
|
||||
*cpp = NULL;
|
||||
if (lasttoken != TESAC)
|
||||
synexpect(TESAC);
|
||||
checkkwd = 1;
|
||||
break;
|
||||
case TLP:
|
||||
|
Loading…
Reference in New Issue
Block a user