Return to input.c CVS log

Up to [CSRG BSD Unix] / 40BSD / cmd / adb

Annotation of 40BSD/cmd/adb/input.c, revision 1.1

1.1     ! root        1: #
        !             2: /*
        !             3:  *
        !             4:  *     UNIX debugger
        !             5:  *
        !             6:  */
        !             7: 
        !             8: #include "defs.h"
        !             9: static char sccsid[] = "%Z%%M% %I% %G%";
        !            10: 
        !            11: INT            mkfault;
        !            12: CHAR           line[LINSIZ];
        !            13: INT            infile;
        !            14: CHAR           *lp;
        !            15: CHAR           peekc,lastc = EOR;
        !            16: INT            eof;
        !            17: 
        !            18: /* input routines */
        !            19: 
        !            20: eol(c)
        !            21: CHAR   c;
        !            22: {
        !            23:        return(c==EOR ORF c==';');
        !            24: }
        !            25: 
        !            26: rdc()
        !            27: {      REP     readchar();
        !            28:        PER     lastc==SP ORF lastc==TB
        !            29:        DONE
        !            30:        return(lastc);
        !            31: }
        !            32: 
        !            33: readchar()
        !            34: {
        !            35:        IF eof
        !            36:        THEN    lastc=0;
        !            37:        ELSE    IF lp==0
        !            38:                THEN    lp=line;
        !            39:                        REP eof = read(infile,lp,1)==0;
        !            40:                            IF mkfault THEN error(0); FI
        !            41:                        PER eof==0 ANDF *lp++!=EOR DONE
        !            42:                        *lp=0; lp=line;
        !            43:                FI
        !            44:                IF lastc = peekc THEN peekc=0;
        !            45:                ELIF lastc = *lp THEN lp++;
        !            46:                FI
        !            47:        FI
        !            48:        return(lastc);
        !            49: }
        !            50: 
        !            51: nextchar()
        !            52: {
        !            53:        IF eol(rdc())
        !            54:        THEN lp--; return(0);
        !            55:        ELSE return(lastc);
        !            56:        FI
        !            57: }
        !            58: 
        !            59: quotchar()
        !            60: {
        !            61:        IF readchar()=='\\'
        !            62:        THEN    return(readchar());
        !            63:        ELIF lastc=='\''
        !            64:        THEN    return(0);
        !            65:        ELSE    return(lastc);
        !            66:        FI
        !            67: }
        !            68: 
        !            69: getformat(deformat)
        !            70: STRING         deformat;
        !            71: {
        !            72:        REG STRING      fptr;
        !            73:        REG BOOL        quote;
        !            74:        fptr=deformat; quote=FALSE;
        !            75:        WHILE (quote ? readchar()!=EOR : !eol(readchar()))
        !            76:        DO  IF (*fptr++ = lastc)=='"'
        !            77:            THEN quote = ~quote;
        !            78:            FI
        !            79:        OD
        !            80:        lp--;
        !            81:        IF fptr!=deformat THEN *fptr++ = '\0'; FI
        !            82: }

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