Return to here.c CVS log

Up to [Plan 9 NeXT] / lucent / sys / src / cmd / rc

Annotation of lucent/sys/src/cmd/rc/here.c, revision 1.1.1.1

1.1       root        1: #include "rc.h"
                      2: #include "exec.h"
                      3: #include "io.h"
                      4: #include "fns.h"
                      5: struct here *here, **ehere;
                      6: int ser=0;
                      7: char tmp[]="/tmp/here0000.0000";
                      8: char hex[]="0123456789abcdef";
                      9: void psubst(io*, char*);
                     10: void pstrs(io*, word*);
                     11: void hexnum(char *p, int n)
                     12: {
                     13:        *p++=hex[(n>>12)&0xF];
                     14:        *p++=hex[(n>>8)&0xF];
                     15:        *p++=hex[(n>>4)&0xF];
                     16:        *p=hex[n&0xF];
                     17: }
                     18: tree *heredoc(tree *tag)
                     19: {
                     20:        struct here *h=new(struct here);
                     21:        if(tag->type!=WORD) yyerror("Bad here tag");
                     22:        h->next=0;
                     23:        if(here)
                     24:                *ehere=h;
                     25:        else
                     26:                here=h;
                     27:        ehere=&h->next;
                     28:        h->tag=tag;
                     29:        hexnum(&tmp[9], getpid());
                     30:        hexnum(&tmp[14], ser++);
                     31:        h->name=strdup(tmp);
                     32:        return token(tmp, WORD);
                     33: }
                     34: /*
                     35:  * bug: lines longer than NLINE get split -- this can cause spurious
                     36:  * missubstitution, or a misrecognized EOF marker.
                     37:  */
                     38: #define        NLINE   4096
                     39: void readhere(void){
                     40:        struct here *h, *nexth;
                     41:        io *f;
                     42:        char *s, *tag;
                     43:        int c, subst;
                     44:        char line[NLINE+1];
                     45:        for(h=here;h;h=nexth){
                     46:                subst=!h->tag->quoted;
                     47:                tag=h->tag->str;
                     48:                c=Creat(h->name);
                     49:                if(c<0) yyerror("can't create here document");
                     50:                f=openfd(c);
                     51:                s=line;
                     52:                pprompt();
                     53:                while((c=rchr(runq->cmdfd))!=EOF){
                     54:                        if(c=='\n' || s==&line[NLINE]){
                     55:                                *s='\0';
                     56:                                if(strcmp(line, tag)==0) break;
                     57:                                if(subst) psubst(f, line);
                     58:                                else pstr(f, line);
                     59:                                s=line;
                     60:                                if(c=='\n'){
                     61:                                        pprompt();
                     62:                                        pchr(f, c);
                     63:                                }
                     64:                                else *s++=c;
                     65:                        }
                     66:                        else *s++=c;
                     67:                }
                     68:                flush(f);
                     69:                closeio(f);
                     70:                cleanhere(h->name);
                     71:                nexth=h->next;
                     72:                efree((char *)h);
                     73:        }
                     74:        here=0;
                     75:        doprompt=1;
                     76: }
                     77: void psubst(io *f, char *s)
                     78: {
                     79:        char *t, *u;
                     80:        int savec, n, c;
                     81:        word *star;
                     82:        while(*s){
                     83:                if(*s!='$'){
                     84:                        if(0xa0<=(*s&0xff) && (*s&0xff)<=0xf5){
                     85:                                pchr(f, *s++);
                     86:                                if(*s=='\0') break;
                     87:                        }
                     88:                        else if(0xf6<=(*s&0xff) && (*s&0xff)<=0xf7){
                     89:                                pchr(f, *s++);
                     90:                                if(*s=='\0') break;
                     91:                                pchr(f, *s++);
                     92:                                if(*s=='\0') break;
                     93:                        }
                     94:                        pchr(f, *s++);
                     95:                }
                     96:                else{
                     97:                        t=++s;
                     98:                        if(*t=='$') pchr(f, *t++);
                     99:                        else{
                    100:                                while(*t && idchr(*t)) t++;
                    101:                                savec=*t;
                    102:                                *t='\0';
                    103:                                n=0;
                    104:                                for(u=s;*u && '0'<=*u && *u<='9';u++) n=n*10+*u-'0';
                    105:                                if(n && *u=='\0'){
                    106:                                        star=vlook("*")->val;
                    107:                                        if(star && 1<=n && n<=count(star)){
                    108:                                                while(--n) star=star->next;
                    109:                                                pstr(f, star->word);
                    110:                                        }
                    111:                                }
                    112:                                else
                    113:                                        pstrs(f, vlook(s)->val);
                    114:                                *t=savec;
                    115:                                if(savec=='^') t++;
                    116:                        }
                    117:                        s=t;
                    118:                }
                    119:        }
                    120: }
                    121: void pstrs(io *f, word *a)
                    122: {
                    123:        if(a){
                    124:                while(a->next && a->next->word){
                    125:                        pstr(f, a->word);
                    126:                        pchr(f, ' ');
                    127:                        a=a->next;
                    128:                }
                    129:                pstr(f, a->word);
                    130:        }
                    131: }

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