Return to input.c CVS log

Up to [Research Unix] / researchv8dc / cmd / adb

Annotation of researchv8dc/cmd/adb/input.c, revision 1.1

1.1     ! root        1: #
        !             2: /*
        !             3:  *
        !             4:  *     UNIX debugger
        !             5:  *
        !             6:  */
        !             7: 
        !             8: #include "defs.h"
        !             9: 
        !            10: char   line[LINSIZ];
        !            11: int    infile;
        !            12: char   *lp;
        !            13: char   peekc,lastc = EOR;
        !            14: int    eof;
        !            15: 
        !            16: /* input routines */
        !            17: 
        !            18: eol(c)
        !            19: char   c;
        !            20: {
        !            21:        return(c==EOR || c==';');
        !            22: }
        !            23: 
        !            24: int
        !            25: rdc()
        !            26: {
        !            27:        do {
        !            28:                readchar();
        !            29:        } while (lastc==SP || lastc==TB);
        !            30:        return(lastc);
        !            31: }
        !            32: 
        !            33: reread()
        !            34: {
        !            35:        peekc = lastc;
        !            36: }
        !            37: 
        !            38: clrinp()
        !            39: {
        !            40: 
        !            41:        lp = 0;
        !            42:        peekc = 0;
        !            43: }
        !            44: 
        !            45: int
        !            46: readchar()
        !            47: {
        !            48:        if (eof)
        !            49:                lastc=0;
        !            50:        else if (peekc) {
        !            51:                lastc = peekc;
        !            52:                peekc = 0;
        !            53:        }
        !            54:        else {
        !            55:                if (lp==0) {
        !            56:                        lp=line;
        !            57:                        do {
        !            58:                                eof = read(infile,lp,1)==0;
        !            59:                                if (mkfault)
        !            60:                                        error(0);
        !            61:                        } while (eof==0 && *lp++!=EOR);
        !            62:                        *lp=0;
        !            63:                        lp=line;
        !            64:                }
        !            65:                if ((lastc = *lp) != 0)
        !            66:                        lp++;
        !            67:        }
        !            68:        return(lastc);
        !            69: }
        !            70: 
        !            71: nextchar()
        !            72: {
        !            73:        if (eol(rdc())) {
        !            74:                reread();
        !            75:                return(0);
        !            76:        }
        !            77:        return(lastc);
        !            78: }
        !            79: 
        !            80: quotchar()
        !            81: {
        !            82:        if (readchar()=='\\')
        !            83:                return(readchar());
        !            84:        else if (lastc=='\'')
        !            85:                return(0);
        !            86:        else
        !            87:                return(lastc);
        !            88: }
        !            89: 
        !            90: getformat(deformat)
        !            91: char *deformat;
        !            92: {
        !            93:        register char *fptr;
        !            94:        register BOOL   quote;
        !            95: 
        !            96:        fptr=deformat;
        !            97:        quote=FALSE;
        !            98:        while ((quote ? readchar()!=EOR : !eol(readchar())))
        !            99:                if ((*fptr++ = lastc)=='"')
        !           100:                        quote = ~quote;
        !           101:        lp--;
        !           102:        if (fptr!=deformat)
        !           103:                *fptr = '\0';
        !           104: }

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