Return to input.c CVS log

Up to [CSRG BSD Unix] / 43BSDTahoe / bin / adb / adb.tahoe

Annotation of 43BSDTahoe/bin/adb/adb.tahoe/input.c, revision 1.1

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

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