Return to reject.c CVS log

Up to [Research Unix] / researchv10no / libl

Annotation of researchv10no/libl/reject.c, revision 1.1.1.1

1.1       root        1: # include <stdio.h>
                      2: extern struct {int *yyaa, *yybb; int *yystops;} *yylstate [], **yylsp, **yyolsp;
                      3: yyreject ()
                      4: {
                      5: extern FILE *yyout, *yyin;
                      6: extern int yyprevious , *yyfnd;
                      7: extern char yyextra[];
                      8: extern char yytext[];
                      9: extern int yyleng;
                     10: for( ; yylsp < yyolsp; yylsp++)
                     11:        yytext[yyleng++] = yyinput();
                     12: if (*yyfnd > 0)
                     13:        return(yyracc(*yyfnd++));
                     14: while (yylsp-- > yylstate)
                     15:        {
                     16:        yyunput(yytext[yyleng-1]);
                     17:        yytext[--yyleng] = 0;
                     18:        if (*yylsp != 0 && (yyfnd= (*yylsp)->yystops) && *yyfnd > 0)
                     19:                return(yyracc(*yyfnd++));
                     20:        }
                     21: if (yytext[0] == 0)
                     22:        return(0);
                     23: yyoutput(yyprevious = yyinput());
                     24: yyleng=0;
                     25: return(-1);
                     26: }
                     27: yyracc(m)
                     28: {
                     29: yyolsp = yylsp;
                     30: if (yyextra[m])
                     31:        {
                     32:        while (yyback((*yylsp)->yystops, -m) != 1 && yylsp>yylstate)
                     33:                {
                     34:                yylsp--;
                     35:                yyunput(yytext[--yyleng]);
                     36:                }
                     37:        }
                     38: yyprevious = yytext[yyleng-1];
                     39: yytext[yyleng] = 0;
                     40: return(m);
                     41: }

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.