Return to get_scan.c CVS log

Up to [CSRG BSD Unix] / 42BSD / ingres / source / parser

Annotation of 42BSD/ingres/source/parser/get_scan.c, revision 1.1

1.1     ! root        1: # include      <ingres.h>
        !             2: # include      "scanner.h"
        !             3: # include      <sccs.h>
        !             4: 
        !             5: SCCSID(@(#)get_scan.c  7.2     5/4/83)
        !             6: 
        !             7: /*
        !             8: ** GET_SCAN -- gets characters from monitor
        !             9: **
        !            10: **     Parameters:
        !            11: **             mode --
        !            12: **                 modes are:
        !            13: **                     NORMAL = read normally
        !            14: **                     PRIME = prime the pipe
        !            15: **                     SYNC = sync (or flush) the pipe
        !            16: **
        !            17: **     Returns:
        !            18: **             character or '\0' on eof
        !            19: **
        !            20: **     Trace Flags:
        !            21: **             Getscan ~~ 54.0
        !            22: */
        !            23: 
        !            24: get_scan(mode)
        !            25: int    mode;
        !            26: {
        !            27:        extern int              yyline;
        !            28:        register int            ctr;
        !            29:        char                    c;
        !            30: 
        !            31:        extern int              Pctr;           /* vble for backup stack in scanner */
        !            32:        extern char             Pchar[2];
        !            33: # ifdef        xPTR3
        !            34:        tTfp(54, 0, "get_scan: mode %d ", mode);
        !            35: # endif
        !            36: 
        !            37:        switch (mode)
        !            38:        {
        !            39:            case NORMAL:
        !            40:                if (Pctr)
        !            41:                {
        !            42:                        c = Pchar[--Pctr];
        !            43:                        ctr = 1;
        !            44:                }
        !            45:                else
        !            46:                        ctr = readmon(&c, 1);
        !            47:                if (c == '\n')
        !            48:                        yyline++;
        !            49:                c = ((Lcase && c >= 'A' && c <= 'Z') ? (c + ('a' - 'A')) : c);
        !            50:                break;
        !            51: 
        !            52:            case PRIME:
        !            53:                Pctr = 0;
        !            54:                ctr = 0;
        !            55:                break;
        !            56: 
        !            57:            case SYNC:                          /* flush pipe */
        !            58:                while (readmon(&c, 1) > 0);
        !            59:                ctr = 0;
        !            60:                break;
        !            61: 
        !            62:            default:
        !            63:                syserr("bad arg '%d' in get_scan", mode);
        !            64:        }
        !            65: 
        !            66: # ifdef        xPTR3
        !            67:        tTfp(54, 1, " ctr %d: '%c' (0%o).\n", ctr & 0377, c, c);
        !            68: # endif
        !            69: 
        !            70:        return (ctr ? c : 0);
        !            71: }

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