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