godzil/tack
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

*** empty log message ***

Browse Source
This commit is contained in:
ceriel 1987-02-23 10:50:15 +00:00
parent 4e47313118
commit 3fd2cf0a01
1 changed files with 17 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

29
util/LLgen/lib/rec
View File

@ -62,17 +62,17 @@ LLerror(t) {
return;
}
#endif
#ifdef LL_USERHOOK
LL_USERHOOK(t);
LLread();
#endif LL_USERHOOK
if ((LLcsymb = LLindex[LLsymb]) < 0) {
LLmessage(0);
LLread();
}
i = LLindex[t];
LLtcnt[i]++;
if (LLdoskip()) /* nothing */;
#ifdef LL_USERHOOK
if (LLdoskip(t)) /* nothing */;
#else
if (LLskip()) /* nothing */;
#endif
LLtcnt[i]--;
if (LLsymb != t) LLmessage(t);
}
@ -95,14 +95,11 @@ LLnext(n) {
LLskip() {
#ifdef LL_USERHOOK
LL_USERHOOK(0);
LLread();
#endif LL_USERHOOK
return LLdoskip();
return LLdoskip(0);
}
LLdoskip()
{
LLdoskip(exp) {
#endif LL_USERHOOK
register int i;
int retval;
int LLi, LLb;
@ -117,8 +114,16 @@ LLdoskip()
if (LLsets[LL_SSIZE*i+LLi] & LLb) return retval;
}
}
retval = 1;
#ifdef LL_USERHOOK
{
int old = LLsymb;
LL_USERHOOK(exp);
LLread();
if (LLsymb != old) continue;
}
#endif LL_USERHOOK
LLmessage(0);
retval = 1;
LLread();
}
/* NOTREACHED */