Return to input.c CVS log

Up to [Power 6/32 Unix Tahoe 4.2BSD] / cci / usr / src / bin / adb

Annotation of cci/usr/src/bin/adb/input.c, revision 1.1

1.1     ! root        1: /*
        !             2:  *
        !             3:  *     UNIX debugger
        !             4:  *
        !             5:  */
        !             6: 
        !             7: #include "defs.h"
        !             8: 
        !             9: INT            mkfault;
        !            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 ORF c==';');
        !            22: }
        !            23: 
        !            24: rdc()
        !            25: {      REP     readchar();
        !            26:        PER     lastc==SP ORF lastc==TB
        !            27:        DONE
        !            28:        return(lastc);
        !            29: }
        !            30: 
        !            31: readchar(dmy)
        !            32: {
        !            33:        IF eof
        !            34:        THEN    lastc=0;
        !            35:        ELSE    IF lp==0
        !            36:                THEN    lp=line;
        !            37:                        REP eof = read(infile,lp,1)==0;
        !            38:                            IF mkfault THEN error(0); FI
        !            39:                        PER eof==0 ANDF *lp++!=EOR DONE
        !            40:                        *lp=0; lp=line;
        !            41:                FI
        !            42:                IF lastc = peekc THEN peekc=0;
        !            43:                ELIF lastc = *lp THEN lp++;
        !            44:                FI
        !            45:        FI
        !            46:        return(lastc);
        !            47: }
        !            48: 
        !            49: nextchar()
        !            50: {
        !            51:        IF eol(rdc())
        !            52:        THEN lp--; return(0);
        !            53:        ELSE return(lastc);
        !            54:        FI
        !            55: }
        !            56: 
        !            57: quotchar()
        !            58: {
        !            59:        IF readchar()=='\\'
        !            60:        THEN    return(readchar());
        !            61:        ELIF lastc=='\''
        !            62:        THEN    return(0);
        !            63:        ELSE    return(lastc);
        !            64:        FI
        !            65: }
        !            66: 
        !            67: getformat(deformat)
        !            68: STRING         deformat;
        !            69: {
        !            70:        REG STRING      fptr;
        !            71:        REG BOOL        quote;
        !            72:        fptr=deformat; quote=FALSE;
        !            73:        WHILE (quote ? readchar()!=EOR : !eol(readchar()))
        !            74:        DO  IF (*fptr++ = lastc)=='"'
        !            75:            THEN quote = ~quote;
        !            76:            FI
        !            77:        OD
        !            78:        lp--;
        !            79:        IF fptr!=deformat THEN *fptr++ = '\0'; FI
        !            80: }

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