d0p1/ack
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Improved userhooks

Browse source
This commit is contained in:
ceriel 1987-03-02 16:15:07 +00:00
parent b457c3dc09
commit eb5d7ef3fe
1 changed files with 21 additions and 11 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

32
util/LLgen/lib/rec
View file

@ -57,8 +57,13 @@ LLerror(t) {
#ifdef LL_NEWMESS #ifdef LL_NEWMESS
if (t == EOFILE) { if (t == EOFILE) {
LLmessage(-1); #ifdef LL_USERHOOK
while ((LLsymb = LL_LEXI()) > 0) /* nothing */ ; LLuserhook(EOFILE);
#endif LL_USERHOOK
if (LLsymb != EOFILE) {
LLmessage(-1);
while ((LLsymb = LL_LEXI()) > 0) /* nothing */ ;
}
return; return;
} }
#endif #endif
@ -98,6 +103,14 @@ LLskip() {
return LLdoskip(0); return LLdoskip(0);
} }
LLuserhook(exp)
{
int old = LLsymb;
LL_USERHOOK(exp);
LLread();
return LLsymb != old;
}
LLdoskip(exp) { LLdoskip(exp) {
#endif LL_USERHOOK #endif LL_USERHOOK
register int i; register int i;
@ -106,22 +119,19 @@ LLdoskip(exp) {
retval = 0; retval = 0;
for (;;) { for (;;) {
#ifdef LL_USERHOOK
if (LLuserhook(exp)) continue;
#endif LL_USERHOOK
if (LLtcnt[LLcsymb] != 0) return retval; if (LLtcnt[LLcsymb] != 0) return retval;
LLi = LLcsymb >> 3; LLi = LLcsymb >> 3;
LLb = 1 << (LLcsymb & 07); LLb = 1 << (LLcsymb & 07);
for (i = LL_NSETS - 1; i >= 0; i--) { for (i = LL_NSETS - 1; i >= 0; i--) {
if (LLscnt[i] != 0) { if (LLscnt[i] != 0) {
if (LLsets[LL_SSIZE*i+LLi] & LLb) return retval; if (LLsets[LL_SSIZE*i+LLi] & LLb) {
return retval;
}
} }
} }
#ifdef LL_USERHOOK
{
int old = LLsymb;
LL_USERHOOK(exp);
LLread();
if (LLsymb != old) continue;
}
#endif LL_USERHOOK
LLmessage(0); LLmessage(0);
retval = 1; retval = 1;
LLread(); LLread();