Return to fixuplex CVS log

Up to [Research Unix] / researchv10no / cmd / efl

Annotation of researchv10no/cmd/efl/fixuplex, revision 1.1.1.1

1.1       root        1: ed - lex.yy.c <<!
                      2: /input/s/getc(yyin)/efgetc/
                      3: /yylex/+1a
                      4: if(pushlex)
                      5:        if(pushlex==1)
                      6:                {
                      7:                pushlex = 2;
                      8:                yylval.ival = 0;
                      9:                return(EOS);
                     10:                }
                     11:        else    {
                     12:                pushlex = 0;
                     13:                if(rket == 2)
                     14:                        rket = 1;
                     15:                else    RETL(prevv,prevl);
                     16:                }
                     17: if(rket > 0)
                     18:        {
                     19:        if(rket==1)
                     20:                {
                     21:                rket = 2;
                     22:                RET(RBRACK);
                     23:                }
                     24:        else    {
                     25:                rket = 0;
                     26:                RET(EOS);
                     27:                }
                     28:        }
                     29: if(eofneed) return(0);
                     30: if(forcerr) return(-1);
                     31: .
                     32: w
                     33: q
                     34: !

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