mirror of
https://git.suckless.org/9base
synced 2025-08-20 06:53:48 -07:00
132 lines
2.3 KiB
C
132 lines
2.3 KiB
C
#include "rc.h"
|
|
#include "exec.h"
|
|
#include "io.h"
|
|
#include "fns.h"
|
|
struct here *here, **ehere;
|
|
int ser=0;
|
|
char tmp[]="/tmp/here0000.0000";
|
|
char hex[]="0123456789abcdef";
|
|
void psubst(io*, char*);
|
|
void pstrs(io*, word*);
|
|
void hexnum(char *p, int n)
|
|
{
|
|
*p++=hex[(n>>12)&0xF];
|
|
*p++=hex[(n>>8)&0xF];
|
|
*p++=hex[(n>>4)&0xF];
|
|
*p=hex[n&0xF];
|
|
}
|
|
tree *heredoc(tree *tag)
|
|
{
|
|
struct here *h=new(struct here);
|
|
if(tag->type!=WORD) yyerror("Bad here tag");
|
|
h->next=0;
|
|
if(here)
|
|
*ehere=h;
|
|
else
|
|
here=h;
|
|
ehere=&h->next;
|
|
h->tag=tag;
|
|
hexnum(&tmp[9], getpid());
|
|
hexnum(&tmp[14], ser++);
|
|
h->name=strdup(tmp);
|
|
return token(tmp, WORD);
|
|
}
|
|
/*
|
|
* bug: lines longer than NLINE get split -- this can cause spurious
|
|
* missubstitution, or a misrecognized EOF marker.
|
|
*/
|
|
#define NLINE 4096
|
|
void readhere(void){
|
|
struct here *h, *nexth;
|
|
io *f;
|
|
char *s, *tag;
|
|
int c, subst;
|
|
char line[NLINE+1];
|
|
for(h=here;h;h=nexth){
|
|
subst=!h->tag->quoted;
|
|
tag=h->tag->str;
|
|
c=Creat(h->name);
|
|
if(c<0) yyerror("can't create here document");
|
|
f=openfd(c);
|
|
s=line;
|
|
pprompt();
|
|
while((c=rchr(runq->cmdfd))!=EOF){
|
|
if(c=='\n' || s==&line[NLINE]){
|
|
*s='\0';
|
|
if(strcmp(line, tag)==0) break;
|
|
if(subst) psubst(f, line);
|
|
else pstr(f, line);
|
|
s=line;
|
|
if(c=='\n'){
|
|
pprompt();
|
|
pchr(f, c);
|
|
}
|
|
else *s++=c;
|
|
}
|
|
else *s++=c;
|
|
}
|
|
flush(f);
|
|
closeio(f);
|
|
cleanhere(h->name);
|
|
nexth=h->next;
|
|
efree((char *)h);
|
|
}
|
|
here=0;
|
|
doprompt=1;
|
|
}
|
|
void psubst(io *f, char *s)
|
|
{
|
|
char *t, *u;
|
|
int savec, n;
|
|
word *star;
|
|
while(*s){
|
|
if(*s!='$'){
|
|
if(0xa0<=(*s&0xff) && (*s&0xff)<=0xf5){
|
|
pchr(f, *s++);
|
|
if(*s=='\0') break;
|
|
}
|
|
else if(0xf6<=(*s&0xff) && (*s&0xff)<=0xf7){
|
|
pchr(f, *s++);
|
|
if(*s=='\0') break;
|
|
pchr(f, *s++);
|
|
if(*s=='\0') break;
|
|
}
|
|
pchr(f, *s++);
|
|
}
|
|
else{
|
|
t=++s;
|
|
if(*t=='$') pchr(f, *t++);
|
|
else{
|
|
while(*t && idchr(*t)) t++;
|
|
savec=*t;
|
|
*t='\0';
|
|
n=0;
|
|
for(u=s;*u && '0'<=*u && *u<='9';u++) n=n*10+*u-'0';
|
|
if(n && *u=='\0'){
|
|
star=vlook("*")->val;
|
|
if(star && 1<=n && n<=count(star)){
|
|
while(--n) star=star->next;
|
|
pstr(f, star->word);
|
|
}
|
|
}
|
|
else
|
|
pstrs(f, vlook(s)->val);
|
|
*t=savec;
|
|
if(savec=='^') t++;
|
|
}
|
|
s=t;
|
|
}
|
|
}
|
|
}
|
|
void pstrs(io *f, word *a)
|
|
{
|
|
if(a){
|
|
while(a->next && a->next->word){
|
|
pstr(f, a->word);
|
|
pchr(f, ' ');
|
|
a=a->next;
|
|
}
|
|
pstr(f, a->word);
|
|
}
|
|
}
|