Return to input.c CVS log

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

Annotation of 3BSD/cmd/adb/input.c, revision 1.1.1.1

1.1       root        1: #
                      2: /*
                      3:  *
                      4:  *     UNIX debugger
                      5:  *
                      6:  */
                      7: 
                      8: #include "defs.h"
                      9: SCCSID(@(#)input.c     2.2);
                     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=EOF;
                     37:        ELSE    IF lp==0
                     38:                THEN    lp=line;
                     39: #ifdef EDDT
                     40:                        getcon(lp); eof=0; while (*lp++!=EOR);
                     41: #else
                     42:                        REP eof = read(infile,lp,1)==0;
                     43:                            IF mkfault THEN error(0); FI
                     44:                        PER eof==0 ANDF *lp++!=EOR DONE
                     45: #endif
                     46:                        *lp=0; lp=line;
                     47:                FI
                     48:                IF lastc = peekc THEN peekc=0;
                     49:                ELIF lastc = *lp THEN lp++;
                     50:                FI
                     51:        FI
                     52:        return(lastc);
                     53: }
                     54: 
                     55: nextchar()
                     56: {
                     57:        IF eol(rdc())
                     58:        THEN lp--; return(0);
                     59:        ELSE return(lastc);
                     60:        FI
                     61: }
                     62: 
                     63: quotchar()
                     64: {
                     65:        IF readchar()=='\\'
                     66:        THEN    return(readchar());
                     67:        ELIF lastc=='\''
                     68:        THEN    return(0);
                     69:        ELSE    return(lastc);
                     70:        FI
                     71: }
                     72: 
                     73: getformat(deformat)
                     74: STRING         deformat;
                     75: {
                     76:        REG STRING      fptr;
                     77:        REG BOOL        quote;
                     78:        fptr=deformat; quote=FALSE;
                     79:        WHILE (quote ? readchar()!=EOR : !eol(readchar()))
                     80:        DO  IF (*fptr++ = lastc)=='"'
                     81:            THEN quote = ~quote;
                     82:            FI
                     83:        OD
                     84:        lp--;
                     85:        IF fptr!=deformat THEN *fptr++ = '\0'; FI
                     86: }
                     87: 
                     88: #ifdef EDDT
                     89: getcon(cs) register char *cs; {
                     90: register char *p=cs;
                     91: for(;;) {
                     92:        putchar(*p++=getcnsl());
                     93:        if (p[-1]=='\r') {putchar(p[-1]='\n'); *p++='\0'; return;}
                     94:        if (p[-1]=='\\') {p[-1]=getcnsl(); continue;}
                     95:        if (p[-1]=='#') {p -= 2; continue;}
                     96:        if (p[-1]=='@') {putchar('\r'); putchar('\n'); p=cs; continue;}
                     97: }}
                     98:  
                     99: getcnsl() {
                    100: # define RXCS  32  /*  receiver control/staus */
                    101: # define RXDB  33  /*  receiver data */
                    102: # define RXCS_DONE  0x80  /*  receiver done */
                    103: while ((mfpr(RXCS) & RXCS_DONE)==0);
                    104: return (mfpr(RXDB) & 0177);
                    105: }
                    106: #endif

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