Return to ps.y CVS log

Up to [Research Unix] / researchv8dc / netfs

Annotation of researchv8dc/netfs/ps.y, revision 1.1

1.1     ! root        1: %token MACHINE
        !             2: %token LP RP NUMBER
        !             3: %{
        !             4: #include "stdio.h"
        !             5: FILE *infd;
        !             6: #define YYDEBUG
        !             7: %}
        !             8: %%
        !             9: file:
        !            10:        | machine-list ;
        !            11: machine-list:  machine
        !            12:        | machine-list machine
        !            13:        ;
        !            14: machine:       MACHINE perm-list
        !            15:        ;
        !            16: perm-list:
        !            17:        | perm
        !            18:        | perm-list perm
        !            19:        ;
        !            20: perm:  LP client host RP
        !            21:        ;
        !            22: client:        uid
        !            23:                { doclient($1, -1); }
        !            24:        | LP uid gid RP
        !            25:                { doclient($2, $3); }
        !            26:        ;
        !            27: host:  uid
        !            28:                { dohost($1, -1); }
        !            29:        | LP uid gid RP
        !            30:                { dohost($2, $3); }
        !            31:        ;
        !            32: uid:   NUMBER ;
        !            33: gid:   NUMBER ;
        !            34: %%
        !            35: int lineno = 1;
        !            36: yyerror(s)
        !            37: char *s;
        !            38: {      char buf[128];
        !            39:        sprintf(buf, "%s line %d", s, lineno);
        !            40:        perror(buf);
        !            41: }
        !            42: 
        !            43: pparse(fd)
        !            44: FILE *fd;
        !            45: {
        !            46:        infd = fd;
        !            47:        yyparse();
        !            48: }
        !            49: 
        !            50: yylex()
        !            51: {      int c;
        !            52: again:
        !            53:        c = getc(infd);
        !            54:        if(c == '\n')
        !            55:                lineno++;
        !            56: loop:
        !            57:        if(c == EOF)
        !            58:                return(0);
        !            59:        if(c == '#') {
        !            60:                do {
        !            61:                        c = getc(infd);
        !            62:                } while(c != '\n' && c != EOF);
        !            63:                if(c == '\n')
        !            64:                        lineno++;
        !            65:                goto loop;
        !            66:        }
        !            67:        if(c == ' ' || c == ',' || c == '\n' || c == '\t')
        !            68:                goto again;
        !            69:        if(c == '(')
        !            70:                return(LP);
        !            71:        if(c == ')')
        !            72:                return(RP);
        !            73:        if(c == '+' || c == '-' || c >= '0' && c <= '9') {
        !            74:                donumber(c);
        !            75:                return(NUMBER);
        !            76:        }
        !            77:        if(c >= 'a' && c <= 'z' || c == '/') {
        !            78:                domachine(c);
        !            79:                lineno++;
        !            80:                return(MACHINE);
        !            81:        }
        !            82:        debug("bad char in people (%c) 0%o ignored\n", c, c);
        !            83:        goto again;
        !            84: }
        !            85: 
        !            86: donumber(c)
        !            87: int c;
        !            88: {      int n, i, sign;
        !            89:        n = 0;
        !            90:        sign = 1;
        !            91:        if(c == '-')
        !            92:                sign = -1;
        !            93:        else if(c != '+')
        !            94:                n = c - '0';
        !            95:        for(c = getc(infd); c >= '0' && c <= '9'; c = getc(infd))
        !            96:                n = 10 * n + c - '0';
        !            97:        ungetc(c, infd);
        !            98:        yylval = sign * n;
        !            99: }
        !           100: 
        !           101: static char nmbuf[128];
        !           102: domachine(c)
        !           103: {      char *p = nmbuf;
        !           104:        *p++ = c;
        !           105:        for(c = getc(infd); (c >= 'a' && c <= 'z' || c == '/') && p < nmbuf + 127; c=getc(infd))
        !           106:                *p++ = c;
        !           107:        *p = 0;
        !           108:        newhost(nmbuf);
        !           109: }

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