Return to word.c CVS log

Up to [CSRG BSD Unix] / 43BSDReno / bin / sh

Annotation of 43BSDReno/bin/sh/word.c, revision 1.1.1.1

1.1       root        1: #ifndef lint
                      2: static char sccsid[] = "@(#)word.c     4.7 4/24/88";
                      3: #endif
                      4: 
                      5: #
                      6: /*
                      7:  * UNIX shell
                      8:  *
                      9:  * S. R. Bourne
                     10:  * Bell Telephone Laboratories
                     11:  *
                     12:  */
                     13: 
                     14: #include       "defs.h"
                     15: #include       "sym.h"
                     16: 
                     17: 
                     18: /* ========    character handling for command lines    ========*/
                     19: 
                     20: 
                     21: word()
                     22: {
                     23:        REG CHAR        c, d;
                     24:        REG CHAR        *argp=locstak()+BYTESPERWORD;
                     25:        REG ARGPTR      ap;
                     26:        INT             alpha=1;
                     27: 
                     28:        wdnum=0; wdset=0;
                     29: 
                     30:        WHILE (c=nextc(0), space(c)) DONE
                     31: 
                     32:        IF c=='#' ANDF ((flags&prompt)==0 ORF ((flags&ttyflg) ANDF
                     33:            standin->fstak!=0))
                     34:        THEN    WHILE (c=readc()) ANDF c!=NL DONE
                     35:        FI
                     36: 
                     37:        IF !eofmeta(c)
                     38:        THEN    REP     IF c==LITERAL
                     39:                        THEN    *argp++=(DQUOTE);
                     40:                                WHILE (c=readc()) ANDF c!=LITERAL
                     41:                                DO *argp++=(c|QUOTE); chkpr(c) OD
                     42:                                *argp++=(DQUOTE);
                     43: 
                     44:                        ELSE    *argp++=(c);
                     45:                                IF c=='=' THEN wdset |= alpha FI
                     46:                                IF !alphanum(c) THEN alpha=0 FI
                     47:                                IF qotchar(c)
                     48:                                THEN    d=c;
                     49:                                        WHILE (*argp++=(c=nextc(d))) ANDF c!=d
                     50:                                        DO chkpr(c) OD
                     51:                                FI
                     52:                        FI
                     53:                PER (c=nextc(0), !eofmeta(c)) DONE
                     54:                ap=(ARGPTR)endstak(argp);
                     55:                IF !letter(ap->argval[0]) THEN wdset=0 FI
                     56: 
                     57:                peekc=c|MARK;
                     58:                IF ap->argval[1]==0 ANDF (d=ap->argval[0], digit(d)) ANDF (c=='>' ORF c=='<')
                     59:                THEN    word(); wdnum=d-'0';
                     60:                ELSE    /*check for reserved words*/
                     61:                        IF reserv==FALSE ORF (wdval=syslook(ap->argval,reserved))==0
                     62:                        THEN    wdarg=ap; wdval=0;
                     63:                        FI
                     64:                FI
                     65: 
                     66:        ELIF dipchar(c)
                     67:        THEN    IF (d=nextc(0))==c
                     68:                THEN    wdval = c|SYMREP;
                     69:                ELSE    peekc = d|MARK; wdval = c;
                     70:                FI
                     71:        ELSE    IF (wdval=c)==EOF
                     72:                THEN    wdval=EOFSYM;
                     73:                FI
                     74:                IF iopend ANDF eolchar(c)
                     75:                THEN    copy(iopend); iopend=0;
                     76:                FI
                     77:        FI
                     78:        reserv=FALSE;
                     79:        return(wdval);
                     80: }
                     81: 
                     82: nextc(quote)
                     83:        CHAR            quote;
                     84: {
                     85:        REG CHAR        c, d;
                     86:        IF (d=readc())==ESCAPE
                     87:        THEN    IF (c=readc())==NL
                     88:                THEN    chkpr(NL); d=nextc(quote);
                     89:                ELIF quote ANDF c!=quote ANDF !escchar(c)
                     90:                THEN    peekc=c|MARK;
                     91:                ELSE    d = c|QUOTE;
                     92:                FI
                     93:        FI
                     94:        return(d);
                     95: }
                     96: 
                     97: readc()
                     98: {
                     99:        REG CHAR        c;
                    100:        REG INT         len;
                    101:        REG FILE        f;
                    102: 
                    103: retry:
                    104:        IF peekc
                    105:        THEN    c=peekc; peekc=0;
                    106:        ELIF (f=standin, f->fnxt!=f->fend)
                    107:        THEN    IF (c = *f->fnxt++)==0
                    108:                THEN    IF f->feval
                    109:                        THEN    IF estabf(*f->feval++)
                    110:                                THEN    c=EOF;
                    111:                                ELSE    c=SP;
                    112:                                FI
                    113:                        ELSE    goto retry; /* = c=readc(); */
                    114:                        FI
                    115:                FI
                    116:                IF flags&readpr ANDF standin->fstak==0 THEN prc(c) FI
                    117:                IF c==NL THEN f->flin++ FI
                    118:        ELIF f->feof ORF f->fdes<0
                    119:        THEN    c=EOF; f->feof++;
                    120:        ELIF (len=readb())<=0
                    121:        THEN    close(f->fdes); f->fdes = -1; c=EOF; f->feof++;
                    122:        ELSE    f->fend = (f->fnxt = f->fbuf)+len;
                    123:                goto retry;
                    124:        FI
                    125:        return(c);
                    126: }
                    127: 
                    128: LOCAL  readb()
                    129: {
                    130:        REG FILE        f=standin;
                    131:        REG INT         len;
                    132: 
                    133:        IF setjmp(INTbuf) == 0 THEN trapjmp[INTR] = 1; FI
                    134:        REP     IF trapnote&SIGSET THEN newline(); sigchk() FI
                    135:        PER (len=read(f->fdes,f->fbuf,f->fsiz))<0 ANDF trapnote DONE
                    136:        trapjmp[INTR] = 0;
                    137:        return(len);
                    138: }

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