1 f08fdedc 2003-11-23 devnull #include "rc.h"
  2 f08fdedc 2003-11-23 devnull #include "getflags.h"
  3 f08fdedc 2003-11-23 devnull #include "exec.h"
  4 f08fdedc 2003-11-23 devnull #include "io.h"
  5 f08fdedc 2003-11-23 devnull #include "fns.h"
  6 f08fdedc 2003-11-23 devnull /*
  7 f08fdedc 2003-11-23 devnull  * Start executing the given code at the given pc with the given redirection
  8 f08fdedc 2003-11-23 devnull  */
  9 f08fdedc 2003-11-23 devnull char *argv0="rc";
 10 f08fdedc 2003-11-23 devnull void start(code *c, int pc, var *local)
 11 f08fdedc 2003-11-23 devnull {
 12 f08fdedc 2003-11-23 devnull 	struct thread *p=new(struct thread);
 13 f08fdedc 2003-11-23 devnull 	p->code=codecopy(c);
 14 f08fdedc 2003-11-23 devnull 	p->pc=pc;
 15 f08fdedc 2003-11-23 devnull 	p->argv=0;
 16 f08fdedc 2003-11-23 devnull 	p->redir=p->startredir=runq?runq->redir:0;
 17 f08fdedc 2003-11-23 devnull 	p->local=local;
 18 f08fdedc 2003-11-23 devnull 	p->cmdfile=0;
 19 f08fdedc 2003-11-23 devnull 	p->cmdfd=0;
 20 f08fdedc 2003-11-23 devnull 	p->eof=0;
 21 f08fdedc 2003-11-23 devnull 	p->iflag=0;
 22 f08fdedc 2003-11-23 devnull 	p->lineno=1;
 23 26a5fd57 2005-02-11 devnull 	p->pid=-1;
 24 f08fdedc 2003-11-23 devnull 	p->ret=runq;
 25 f08fdedc 2003-11-23 devnull 	runq=p;
 26 f08fdedc 2003-11-23 devnull }
 27 f08fdedc 2003-11-23 devnull word *newword(char *wd, word *next)
 28 f08fdedc 2003-11-23 devnull {
 29 f08fdedc 2003-11-23 devnull 	word *p=new(word);
 30 f08fdedc 2003-11-23 devnull 	p->word=strdup(wd);
 31 f08fdedc 2003-11-23 devnull 	p->next=next;
 32 f08fdedc 2003-11-23 devnull 	return p;
 33 f08fdedc 2003-11-23 devnull }
 34 f08fdedc 2003-11-23 devnull void pushword(char *wd)
 35 f08fdedc 2003-11-23 devnull {
 36 f08fdedc 2003-11-23 devnull 	if(runq->argv==0) panic("pushword but no argv!", 0);
 37 f08fdedc 2003-11-23 devnull 	runq->argv->words=newword(wd, runq->argv->words);
 38 f08fdedc 2003-11-23 devnull }
 39 f08fdedc 2003-11-23 devnull void popword(void){
 40 f08fdedc 2003-11-23 devnull 	word *p;
 41 f08fdedc 2003-11-23 devnull 	if(runq->argv==0) panic("popword but no argv!", 0);
 42 f08fdedc 2003-11-23 devnull 	p=runq->argv->words;
 43 f08fdedc 2003-11-23 devnull 	if(p==0) panic("popword but no word!", 0);
 44 f08fdedc 2003-11-23 devnull 	runq->argv->words=p->next;
 45 f08fdedc 2003-11-23 devnull 	efree(p->word);
 46 f08fdedc 2003-11-23 devnull 	efree((char *)p);
 47 f08fdedc 2003-11-23 devnull }
 48 f08fdedc 2003-11-23 devnull void freelist(word *w)
 49 f08fdedc 2003-11-23 devnull {
 50 f08fdedc 2003-11-23 devnull 	word *nw;
 51 f08fdedc 2003-11-23 devnull 	while(w){
 52 f08fdedc 2003-11-23 devnull 		nw=w->next;
 53 f08fdedc 2003-11-23 devnull 		efree(w->word);
 54 f08fdedc 2003-11-23 devnull 		efree((char *)w);
 55 f08fdedc 2003-11-23 devnull 		w=nw;
 56 f08fdedc 2003-11-23 devnull 	}
 57 f08fdedc 2003-11-23 devnull }
 58 f08fdedc 2003-11-23 devnull void pushlist(void){
 59 f08fdedc 2003-11-23 devnull 	list *p=new(list);
 60 f08fdedc 2003-11-23 devnull 	p->next=runq->argv;
 61 f08fdedc 2003-11-23 devnull 	p->words=0;
 62 f08fdedc 2003-11-23 devnull 	runq->argv=p;
 63 f08fdedc 2003-11-23 devnull }
 64 f08fdedc 2003-11-23 devnull void poplist(void){
 65 f08fdedc 2003-11-23 devnull 	list *p=runq->argv;
 66 f08fdedc 2003-11-23 devnull 	if(p==0) panic("poplist but no argv", 0);
 67 f08fdedc 2003-11-23 devnull 	freelist(p->words);
 68 f08fdedc 2003-11-23 devnull 	runq->argv=p->next;
 69 f08fdedc 2003-11-23 devnull 	efree((char *)p);
 70 f08fdedc 2003-11-23 devnull }
 71 f08fdedc 2003-11-23 devnull int count(word *w)
 72 f08fdedc 2003-11-23 devnull {
 73 f08fdedc 2003-11-23 devnull 	int n;
 74 f08fdedc 2003-11-23 devnull 	for(n=0;w;n++) w=w->next;
 75 f08fdedc 2003-11-23 devnull 	return n;
 76 f08fdedc 2003-11-23 devnull }
 77 f08fdedc 2003-11-23 devnull void pushredir(int type, int from, int to){
 78 f08fdedc 2003-11-23 devnull 	redir * rp=new(redir);
 79 f08fdedc 2003-11-23 devnull 	rp->type=type;
 80 f08fdedc 2003-11-23 devnull 	rp->from=from;
 81 f08fdedc 2003-11-23 devnull 	rp->to=to;
 82 f08fdedc 2003-11-23 devnull 	rp->next=runq->redir;
 83 f08fdedc 2003-11-23 devnull 	runq->redir=rp;
 84 f08fdedc 2003-11-23 devnull }
 85 f08fdedc 2003-11-23 devnull var *newvar(char *name, var *next)
 86 f08fdedc 2003-11-23 devnull {
 87 f08fdedc 2003-11-23 devnull 	var *v=new(var);
 88 f08fdedc 2003-11-23 devnull 	v->name=name;
 89 f08fdedc 2003-11-23 devnull 	v->val=0;
 90 f08fdedc 2003-11-23 devnull 	v->fn=0;
 91 f08fdedc 2003-11-23 devnull 	v->changed=0;
 92 f08fdedc 2003-11-23 devnull 	v->fnchanged=0;
 93 f08fdedc 2003-11-23 devnull 	v->next=next;
 94 c8b6342d 2005-01-13 devnull 	v->changefn = 0;
 95 f08fdedc 2003-11-23 devnull 	return v;
 96 f08fdedc 2003-11-23 devnull }
 97 f08fdedc 2003-11-23 devnull /*
 98 f08fdedc 2003-11-23 devnull  * get command line flags, initialize keywords & traps.
 99 f08fdedc 2003-11-23 devnull  * get values from environment.
100 f08fdedc 2003-11-23 devnull  * set $pid, $cflag, $*
101 f08fdedc 2003-11-23 devnull  * fabricate bootstrap code and start it (*=(argv);. /usr/lib/rcmain $*)
102 f08fdedc 2003-11-23 devnull  * start interpreting code
103 f08fdedc 2003-11-23 devnull  */
104 f08fdedc 2003-11-23 devnull int
105 f08fdedc 2003-11-23 devnull main(int argc, char *argv[])
106 f08fdedc 2003-11-23 devnull {
107 f08fdedc 2003-11-23 devnull 	code bootstrap[32];
108 f08fdedc 2003-11-23 devnull 	char num[12], *rcmain;
109 f08fdedc 2003-11-23 devnull 	int i;
110 f08fdedc 2003-11-23 devnull 
111 f08fdedc 2003-11-23 devnull 	argc=getflags(argc, argv, "srdiIlxepvVc:1m:1[command]", 1);
112 f08fdedc 2003-11-23 devnull 	if(argc==-1) usage("[file [arg ...]]");
113 f08fdedc 2003-11-23 devnull 	if(argv[0][0]=='-') flag['l']=flagset;
114 f08fdedc 2003-11-23 devnull 	if(flag['I']) flag['i'] = 0;
115 f08fdedc 2003-11-23 devnull 	else if(flag['i']==0 && argc==1 && Isatty(0)) flag['i'] = flagset;
116 f08fdedc 2003-11-23 devnull 	rcmain=flag['m']?flag['m'][0]:Rcmain(); 
117 f08fdedc 2003-11-23 devnull 	err=openfd(2);
118 f08fdedc 2003-11-23 devnull 	kinit();
119 f08fdedc 2003-11-23 devnull 	Trapinit();
120 f08fdedc 2003-11-23 devnull 	Vinit();
121 f08fdedc 2003-11-23 devnull 	itoa(num, mypid=getpid());
122 a9eaaa03 2005-01-12 devnull 	pathinit();
123 f08fdedc 2003-11-23 devnull 	setvar("pid", newword(num, (word *)0));
124 f08fdedc 2003-11-23 devnull 	setvar("cflag", flag['c']?newword(flag['c'][0], (word *)0)
125 f08fdedc 2003-11-23 devnull 				:(word *)0);
126 f08fdedc 2003-11-23 devnull 	setvar("rcname", newword(argv[0], (word *)0));
127 f08fdedc 2003-11-23 devnull 	i=0;
128 f08fdedc 2003-11-23 devnull 	bootstrap[i++].i=1;
129 f08fdedc 2003-11-23 devnull 	bootstrap[i++].f=Xmark;
130 f08fdedc 2003-11-23 devnull 	bootstrap[i++].f=Xword;
131 f08fdedc 2003-11-23 devnull 	bootstrap[i++].s="*";
132 f08fdedc 2003-11-23 devnull 	bootstrap[i++].f=Xassign;
133 f08fdedc 2003-11-23 devnull 	bootstrap[i++].f=Xmark;
134 f08fdedc 2003-11-23 devnull 	bootstrap[i++].f=Xmark;
135 f08fdedc 2003-11-23 devnull 	bootstrap[i++].f=Xword;
136 f08fdedc 2003-11-23 devnull 	bootstrap[i++].s="*";
137 f08fdedc 2003-11-23 devnull 	bootstrap[i++].f=Xdol;
138 f08fdedc 2003-11-23 devnull 	bootstrap[i++].f=Xword;
139 f08fdedc 2003-11-23 devnull 	bootstrap[i++].s=rcmain;
140 f08fdedc 2003-11-23 devnull 	bootstrap[i++].f=Xword;
141 f08fdedc 2003-11-23 devnull 	bootstrap[i++].s=".";
142 f08fdedc 2003-11-23 devnull 	bootstrap[i++].f=Xsimple;
143 f08fdedc 2003-11-23 devnull 	bootstrap[i++].f=Xexit;
144 f08fdedc 2003-11-23 devnull 	bootstrap[i].i=0;
145 f08fdedc 2003-11-23 devnull 	start(bootstrap, 1, (var *)0);
146 f08fdedc 2003-11-23 devnull 	/* prime bootstrap argv */
147 f08fdedc 2003-11-23 devnull 	pushlist();
148 f08fdedc 2003-11-23 devnull 	argv0 = strdup(argv[0]);
149 f08fdedc 2003-11-23 devnull 	for(i=argc-1;i!=0;--i) pushword(argv[i]);
150 f08fdedc 2003-11-23 devnull 	for(;;){
151 f08fdedc 2003-11-23 devnull 		if(flag['r']) pfnc(err, runq);
152 f08fdedc 2003-11-23 devnull 		runq->pc++;
153 f08fdedc 2003-11-23 devnull 		(*runq->code[runq->pc-1].f)();
154 f08fdedc 2003-11-23 devnull 		if(ntrap) dotrap();
155 f08fdedc 2003-11-23 devnull 	}
156 f08fdedc 2003-11-23 devnull }
157 f08fdedc 2003-11-23 devnull /*
158 f08fdedc 2003-11-23 devnull  * Opcode routines
159 f08fdedc 2003-11-23 devnull  * Arguments on stack (...)
160 f08fdedc 2003-11-23 devnull  * Arguments in line [...]
161 f08fdedc 2003-11-23 devnull  * Code in line with jump around {...}
162 f08fdedc 2003-11-23 devnull  *
163 f08fdedc 2003-11-23 devnull  * Xappend(file)[fd]			open file to append
164 f08fdedc 2003-11-23 devnull  * Xassign(name, val)			assign val to name
165 f08fdedc 2003-11-23 devnull  * Xasync{... Xexit}			make thread for {}, no wait
166 f08fdedc 2003-11-23 devnull  * Xbackq{... Xreturn}			make thread for {}, push stdout
167 f08fdedc 2003-11-23 devnull  * Xbang				complement condition
168 f08fdedc 2003-11-23 devnull  * Xcase(pat, value){...}		exec code on match, leave (value) on
169 f08fdedc 2003-11-23 devnull  * 					stack
170 f08fdedc 2003-11-23 devnull  * Xclose[i]				close file descriptor
171 f08fdedc 2003-11-23 devnull  * Xconc(left, right)			concatenate, push results
172 f08fdedc 2003-11-23 devnull  * Xcount(name)				push var count
173 f08fdedc 2003-11-23 devnull  * Xdelfn(name)				delete function definition
174 f08fdedc 2003-11-23 devnull  * Xdeltraps(names)			delete named traps
175 f08fdedc 2003-11-23 devnull  * Xdol(name)				get variable value
176 f08fdedc 2003-11-23 devnull  * Xqdol(name)				concatenate variable components
177 f08fdedc 2003-11-23 devnull  * Xdup[i j]				dup file descriptor
178 f08fdedc 2003-11-23 devnull  * Xexit				rc exits with status
179 f08fdedc 2003-11-23 devnull  * Xfalse{...}				execute {} if false
180 f08fdedc 2003-11-23 devnull  * Xfn(name){... Xreturn}			define function
181 f08fdedc 2003-11-23 devnull  * Xfor(var, list){... Xreturn}		for loop
182 f08fdedc 2003-11-23 devnull  * Xjump[addr]				goto
183 f08fdedc 2003-11-23 devnull  * Xlocal(name, val)			create local variable, assign value
184 f08fdedc 2003-11-23 devnull  * Xmark				mark stack
185 f08fdedc 2003-11-23 devnull  * Xmatch(pat, str)			match pattern, set status
186 f08fdedc 2003-11-23 devnull  * Xpipe[i j]{... Xreturn}{... Xreturn}	construct a pipe between 2 new threads,
187 f08fdedc 2003-11-23 devnull  * 					wait for both
188 f08fdedc 2003-11-23 devnull  * Xpipefd[type]{... Xreturn}		connect {} to pipe (input or output,
189 f08fdedc 2003-11-23 devnull  * 					depending on type), push /dev/fd/??
190 f08fdedc 2003-11-23 devnull  * Xpopm(value)				pop value from stack
191 f08fdedc 2003-11-23 devnull  * Xread(file)[fd]			open file to read
192 f08fdedc 2003-11-23 devnull  * Xsettraps(names){... Xreturn}		define trap functions
193 f08fdedc 2003-11-23 devnull  * Xshowtraps				print trap list
194 f08fdedc 2003-11-23 devnull  * Xsimple(args)			run command and wait
195 f08fdedc 2003-11-23 devnull  * Xreturn				kill thread
196 f08fdedc 2003-11-23 devnull  * Xsubshell{... Xexit}			execute {} in a subshell and wait
197 f08fdedc 2003-11-23 devnull  * Xtrue{...}				execute {} if true
198 f08fdedc 2003-11-23 devnull  * Xunlocal				delete local variable
199 f08fdedc 2003-11-23 devnull  * Xword[string]			push string
200 f08fdedc 2003-11-23 devnull  * Xwrite(file)[fd]			open file to write
201 f08fdedc 2003-11-23 devnull  */
202 f08fdedc 2003-11-23 devnull void Xappend(void){
203 f08fdedc 2003-11-23 devnull 	char *file;
204 f08fdedc 2003-11-23 devnull 	int f;
205 f08fdedc 2003-11-23 devnull 	switch(count(runq->argv->words)){
206 f08fdedc 2003-11-23 devnull 	default: Xerror1(">> requires singleton"); return;
207 f08fdedc 2003-11-23 devnull 	case 0: Xerror1(">> requires file"); return;
208 f08fdedc 2003-11-23 devnull 	case 1: break;
209 f08fdedc 2003-11-23 devnull 	}
210 f08fdedc 2003-11-23 devnull 	file=runq->argv->words->word;
211 f08fdedc 2003-11-23 devnull 	if((f=open(file, 1))<0 && (f=Creat(file))<0){
212 f08fdedc 2003-11-23 devnull 		pfmt(err, "%s: ", file);
213 f08fdedc 2003-11-23 devnull 		Xerror("can't open");
214 f08fdedc 2003-11-23 devnull 		return;
215 f08fdedc 2003-11-23 devnull 	}
216 f08fdedc 2003-11-23 devnull 	Seek(f, 0L, 2);
217 f08fdedc 2003-11-23 devnull 	pushredir(ROPEN, f, runq->code[runq->pc].i);
218 f08fdedc 2003-11-23 devnull 	runq->pc++;
219 f08fdedc 2003-11-23 devnull 	poplist();
220 f08fdedc 2003-11-23 devnull }
221 f08fdedc 2003-11-23 devnull void Xasync(void){
222 f08fdedc 2003-11-23 devnull 	int null=open("/dev/null", 0);
223 f08fdedc 2003-11-23 devnull 	int pid;
224 f08fdedc 2003-11-23 devnull 	char npid[10];
225 f08fdedc 2003-11-23 devnull 	if(null<0){
226 f08fdedc 2003-11-23 devnull 		Xerror("Can't open /dev/null\n");
227 f08fdedc 2003-11-23 devnull 		return;
228 f08fdedc 2003-11-23 devnull 	}
229 f08fdedc 2003-11-23 devnull 	switch(pid=rfork(RFFDG|RFPROC|RFNOTEG)){
230 f08fdedc 2003-11-23 devnull 	case -1:
231 f08fdedc 2003-11-23 devnull 		close(null);
232 f08fdedc 2003-11-23 devnull 		Xerror("try again");
233 f08fdedc 2003-11-23 devnull 		break;
234 f08fdedc 2003-11-23 devnull 	case 0:
235 f08fdedc 2003-11-23 devnull 		pushredir(ROPEN, null, 0);
236 f08fdedc 2003-11-23 devnull 		start(runq->code, runq->pc+1, runq->local);
237 f08fdedc 2003-11-23 devnull 		runq->ret=0;
238 f08fdedc 2003-11-23 devnull 		break;
239 f08fdedc 2003-11-23 devnull 	default:
240 f08fdedc 2003-11-23 devnull 		close(null);
241 f08fdedc 2003-11-23 devnull 		runq->pc=runq->code[runq->pc].i;
242 f08fdedc 2003-11-23 devnull 		itoa(npid, pid);
243 f08fdedc 2003-11-23 devnull 		setvar("apid", newword(npid, (word *)0));
244 f08fdedc 2003-11-23 devnull 		break;
245 f08fdedc 2003-11-23 devnull 	}
246 f08fdedc 2003-11-23 devnull }
247 f08fdedc 2003-11-23 devnull void Xsettrue(void){
248 f08fdedc 2003-11-23 devnull 	setstatus("");
249 f08fdedc 2003-11-23 devnull }
250 f08fdedc 2003-11-23 devnull void Xbang(void){
251 f08fdedc 2003-11-23 devnull 	setstatus(truestatus()?"false":"");
252 f08fdedc 2003-11-23 devnull }
253 f08fdedc 2003-11-23 devnull void Xclose(void){
254 f08fdedc 2003-11-23 devnull 	pushredir(RCLOSE, runq->code[runq->pc].i, 0);
255 f08fdedc 2003-11-23 devnull 	runq->pc++;
256 f08fdedc 2003-11-23 devnull }
257 f08fdedc 2003-11-23 devnull void Xdup(void){
258 f08fdedc 2003-11-23 devnull 	pushredir(RDUP, runq->code[runq->pc].i, runq->code[runq->pc+1].i);
259 f08fdedc 2003-11-23 devnull 	runq->pc+=2;
260 f08fdedc 2003-11-23 devnull }
261 f08fdedc 2003-11-23 devnull void Xeflag(void){
262 f08fdedc 2003-11-23 devnull 	if(eflagok && !truestatus()) Xexit();
263 f08fdedc 2003-11-23 devnull }
264 f08fdedc 2003-11-23 devnull void Xexit(void){
265 f08fdedc 2003-11-23 devnull 	struct var *trapreq;
266 f08fdedc 2003-11-23 devnull 	struct word *starval;
267 f08fdedc 2003-11-23 devnull 	static int beenhere=0;
268 f08fdedc 2003-11-23 devnull 	if(getpid()==mypid && !beenhere){
269 f08fdedc 2003-11-23 devnull 		trapreq=vlook("sigexit");
270 f08fdedc 2003-11-23 devnull 		if(trapreq->fn){
271 f08fdedc 2003-11-23 devnull 			beenhere=1;
272 f08fdedc 2003-11-23 devnull 			--runq->pc;
273 f08fdedc 2003-11-23 devnull 			starval=vlook("*")->val;
274 f08fdedc 2003-11-23 devnull 			start(trapreq->fn, trapreq->pc, (struct var *)0);
275 f08fdedc 2003-11-23 devnull 			runq->local=newvar(strdup("*"), runq->local);
276 f08fdedc 2003-11-23 devnull 			runq->local->val=copywords(starval, (struct word *)0);
277 f08fdedc 2003-11-23 devnull 			runq->local->changed=1;
278 f08fdedc 2003-11-23 devnull 			runq->redir=runq->startredir=0;
279 f08fdedc 2003-11-23 devnull 			return;
280 f08fdedc 2003-11-23 devnull 		}
281 f08fdedc 2003-11-23 devnull 	}
282 f08fdedc 2003-11-23 devnull 	Exit(getstatus());
283 f08fdedc 2003-11-23 devnull }
284 f08fdedc 2003-11-23 devnull void Xfalse(void){
285 f08fdedc 2003-11-23 devnull 	if(truestatus()) runq->pc=runq->code[runq->pc].i;
286 f08fdedc 2003-11-23 devnull 	else runq->pc++;
287 f08fdedc 2003-11-23 devnull }
288 f08fdedc 2003-11-23 devnull int ifnot;		/* dynamic if not flag */
289 f08fdedc 2003-11-23 devnull void Xifnot(void){
290 f08fdedc 2003-11-23 devnull 	if(ifnot)
291 f08fdedc 2003-11-23 devnull 		runq->pc++;
292 f08fdedc 2003-11-23 devnull 	else
293 f08fdedc 2003-11-23 devnull 		runq->pc=runq->code[runq->pc].i;
294 f08fdedc 2003-11-23 devnull }
295 f08fdedc 2003-11-23 devnull void Xjump(void){
296 f08fdedc 2003-11-23 devnull 	runq->pc=runq->code[runq->pc].i;
297 f08fdedc 2003-11-23 devnull }
298 f08fdedc 2003-11-23 devnull void Xmark(void){
299 f08fdedc 2003-11-23 devnull 	pushlist();
300 f08fdedc 2003-11-23 devnull }
301 f08fdedc 2003-11-23 devnull void Xpopm(void){
302 f08fdedc 2003-11-23 devnull 	poplist();
303 f08fdedc 2003-11-23 devnull }
304 f08fdedc 2003-11-23 devnull void Xread(void){
305 f08fdedc 2003-11-23 devnull 	char *file;
306 f08fdedc 2003-11-23 devnull 	int f;
307 f08fdedc 2003-11-23 devnull 	switch(count(runq->argv->words)){
308 f08fdedc 2003-11-23 devnull 	default: Xerror1("< requires singleton\n"); return;
309 f08fdedc 2003-11-23 devnull 	case 0: Xerror1("< requires file\n"); return;
310 f08fdedc 2003-11-23 devnull 	case 1: break;
311 f08fdedc 2003-11-23 devnull 	}
312 f08fdedc 2003-11-23 devnull 	file=runq->argv->words->word;
313 f08fdedc 2003-11-23 devnull 	if((f=open(file, 0))<0){
314 f08fdedc 2003-11-23 devnull 		pfmt(err, "%s: ", file);
315 f08fdedc 2003-11-23 devnull 		Xerror("can't open");
316 f08fdedc 2003-11-23 devnull 		return;
317 f08fdedc 2003-11-23 devnull 	}
318 f08fdedc 2003-11-23 devnull 	pushredir(ROPEN, f, runq->code[runq->pc].i);
319 f08fdedc 2003-11-23 devnull 	runq->pc++;
320 f08fdedc 2003-11-23 devnull 	poplist();
321 f08fdedc 2003-11-23 devnull }
322 f08fdedc 2003-11-23 devnull void turfredir(void){
323 f08fdedc 2003-11-23 devnull 	while(runq->redir!=runq->startredir)
324 f08fdedc 2003-11-23 devnull 		Xpopredir();
325 f08fdedc 2003-11-23 devnull }
326 f08fdedc 2003-11-23 devnull void Xpopredir(void){
327 f08fdedc 2003-11-23 devnull 	struct redir *rp=runq->redir;
328 f08fdedc 2003-11-23 devnull 	if(rp==0) panic("turfredir null!", 0);
329 f08fdedc 2003-11-23 devnull 	runq->redir=rp->next;
330 f08fdedc 2003-11-23 devnull 	if(rp->type==ROPEN) close(rp->from);
331 f08fdedc 2003-11-23 devnull 	efree((char *)rp);
332 f08fdedc 2003-11-23 devnull }
333 f08fdedc 2003-11-23 devnull void Xreturn(void){
334 f08fdedc 2003-11-23 devnull 	struct thread *p=runq;
335 f08fdedc 2003-11-23 devnull 	turfredir();
336 f08fdedc 2003-11-23 devnull 	while(p->argv) poplist();
337 f08fdedc 2003-11-23 devnull 	codefree(p->code);
338 f08fdedc 2003-11-23 devnull 	runq=p->ret;
339 f08fdedc 2003-11-23 devnull 	efree((char *)p);
340 f08fdedc 2003-11-23 devnull 	if(runq==0) Exit(getstatus());
341 f08fdedc 2003-11-23 devnull }
342 f08fdedc 2003-11-23 devnull void Xtrue(void){
343 f08fdedc 2003-11-23 devnull 	if(truestatus()) runq->pc++;
344 f08fdedc 2003-11-23 devnull 	else runq->pc=runq->code[runq->pc].i;
345 f08fdedc 2003-11-23 devnull }
346 f08fdedc 2003-11-23 devnull void Xif(void){
347 f08fdedc 2003-11-23 devnull 	ifnot=1;
348 f08fdedc 2003-11-23 devnull 	if(truestatus()) runq->pc++;
349 f08fdedc 2003-11-23 devnull 	else runq->pc=runq->code[runq->pc].i;
350 f08fdedc 2003-11-23 devnull }
351 f08fdedc 2003-11-23 devnull void Xwastrue(void){
352 f08fdedc 2003-11-23 devnull 	ifnot=0;
353 f08fdedc 2003-11-23 devnull }
354 f08fdedc 2003-11-23 devnull void Xword(void){
355 f08fdedc 2003-11-23 devnull 	pushword(runq->code[runq->pc++].s);
356 f08fdedc 2003-11-23 devnull }
357 f08fdedc 2003-11-23 devnull void Xwrite(void){
358 f08fdedc 2003-11-23 devnull 	char *file;
359 f08fdedc 2003-11-23 devnull 	int f;
360 f08fdedc 2003-11-23 devnull 	switch(count(runq->argv->words)){
361 f08fdedc 2003-11-23 devnull 	default: Xerror1("> requires singleton\n"); return;
362 f08fdedc 2003-11-23 devnull 	case 0: Xerror1("> requires file\n"); return;
363 f08fdedc 2003-11-23 devnull 	case 1: break;
364 f08fdedc 2003-11-23 devnull 	}
365 f08fdedc 2003-11-23 devnull 	file=runq->argv->words->word;
366 f08fdedc 2003-11-23 devnull 	if((f=Creat(file))<0){
367 f08fdedc 2003-11-23 devnull 		pfmt(err, "%s: ", file);
368 f08fdedc 2003-11-23 devnull 		Xerror("can't open");
369 f08fdedc 2003-11-23 devnull 		return;
370 f08fdedc 2003-11-23 devnull 	}
371 f08fdedc 2003-11-23 devnull 	pushredir(ROPEN, f, runq->code[runq->pc].i);
372 f08fdedc 2003-11-23 devnull 	runq->pc++;
373 f08fdedc 2003-11-23 devnull 	poplist();
374 f08fdedc 2003-11-23 devnull }
375 a9eaaa03 2005-01-12 devnull char *_list2str(word *words, int c){
376 f08fdedc 2003-11-23 devnull 	char *value, *s, *t;
377 f08fdedc 2003-11-23 devnull 	int len=0;
378 f08fdedc 2003-11-23 devnull 	word *ap;
379 f08fdedc 2003-11-23 devnull 	for(ap=words;ap;ap=ap->next)
380 f08fdedc 2003-11-23 devnull 		len+=1+strlen(ap->word);
381 f08fdedc 2003-11-23 devnull 	value=emalloc(len+1);
382 f08fdedc 2003-11-23 devnull 	s=value;
383 f08fdedc 2003-11-23 devnull 	for(ap=words;ap;ap=ap->next){
384 f08fdedc 2003-11-23 devnull 		for(t=ap->word;*t;) *s++=*t++;
385 a9eaaa03 2005-01-12 devnull 		*s++=c;
386 f08fdedc 2003-11-23 devnull 	}
387 f08fdedc 2003-11-23 devnull 	if(s==value) *s='\0';
388 f08fdedc 2003-11-23 devnull 	else s[-1]='\0';
389 f08fdedc 2003-11-23 devnull 	return value;
390 f08fdedc 2003-11-23 devnull }
391 a9eaaa03 2005-01-12 devnull char *list2str(word *words){
392 a9eaaa03 2005-01-12 devnull 	return _list2str(words, ' ');
393 a9eaaa03 2005-01-12 devnull }
394 f08fdedc 2003-11-23 devnull void Xmatch(void){
395 f08fdedc 2003-11-23 devnull 	word *p;
396 f08fdedc 2003-11-23 devnull 	char *subject;
397 f08fdedc 2003-11-23 devnull 	subject=list2str(runq->argv->words);
398 f08fdedc 2003-11-23 devnull 	setstatus("no match");
399 f08fdedc 2003-11-23 devnull 	for(p=runq->argv->next->words;p;p=p->next)
400 f08fdedc 2003-11-23 devnull 		if(match(subject, p->word, '\0')){
401 f08fdedc 2003-11-23 devnull 			setstatus("");
402 f08fdedc 2003-11-23 devnull 			break;
403 f08fdedc 2003-11-23 devnull 		}
404 f08fdedc 2003-11-23 devnull 	efree(subject);
405 f08fdedc 2003-11-23 devnull 	poplist();
406 f08fdedc 2003-11-23 devnull 	poplist();
407 f08fdedc 2003-11-23 devnull }
408 f08fdedc 2003-11-23 devnull void Xcase(void){
409 f08fdedc 2003-11-23 devnull 	word *p;
410 f08fdedc 2003-11-23 devnull 	char *s;
411 f08fdedc 2003-11-23 devnull 	int ok=0;
412 f08fdedc 2003-11-23 devnull 	s=list2str(runq->argv->next->words);
413 f08fdedc 2003-11-23 devnull 	for(p=runq->argv->words;p;p=p->next){
414 f08fdedc 2003-11-23 devnull 		if(match(s, p->word, '\0')){
415 f08fdedc 2003-11-23 devnull 			ok=1;
416 f08fdedc 2003-11-23 devnull 			break;
417 f08fdedc 2003-11-23 devnull 		}
418 f08fdedc 2003-11-23 devnull 	}
419 f08fdedc 2003-11-23 devnull 	efree(s);
420 f08fdedc 2003-11-23 devnull 	if(ok)
421 f08fdedc 2003-11-23 devnull 		runq->pc++;
422 f08fdedc 2003-11-23 devnull 	else
423 f08fdedc 2003-11-23 devnull 		runq->pc=runq->code[runq->pc].i;
424 f08fdedc 2003-11-23 devnull 	poplist();
425 f08fdedc 2003-11-23 devnull }
426 f08fdedc 2003-11-23 devnull word *conclist(word *lp, word *rp, word *tail)
427 f08fdedc 2003-11-23 devnull {
428 f08fdedc 2003-11-23 devnull 	char *buf;
429 f08fdedc 2003-11-23 devnull 	word *v;
430 f08fdedc 2003-11-23 devnull 	if(lp->next || rp->next)
431 f08fdedc 2003-11-23 devnull 		tail=conclist(lp->next==0?lp:lp->next, rp->next==0?rp:rp->next,
432 f08fdedc 2003-11-23 devnull 			tail);
433 f08fdedc 2003-11-23 devnull 	buf=emalloc(strlen(lp->word)+strlen(rp->word)+1);
434 f08fdedc 2003-11-23 devnull 	strcpy(buf, lp->word);
435 f08fdedc 2003-11-23 devnull 	strcat(buf, rp->word);
436 f08fdedc 2003-11-23 devnull 	v=newword(buf, tail);
437 f08fdedc 2003-11-23 devnull 	efree(buf);
438 f08fdedc 2003-11-23 devnull 	return v;
439 f08fdedc 2003-11-23 devnull }
440 f08fdedc 2003-11-23 devnull void Xconc(void){
441 f08fdedc 2003-11-23 devnull 	word *lp=runq->argv->words;
442 f08fdedc 2003-11-23 devnull 	word *rp=runq->argv->next->words;
443 f08fdedc 2003-11-23 devnull 	word *vp=runq->argv->next->next->words;
444 f08fdedc 2003-11-23 devnull 	int lc=count(lp), rc=count(rp);
445 f08fdedc 2003-11-23 devnull 	if(lc!=0 || rc!=0){
446 f08fdedc 2003-11-23 devnull 		if(lc==0 || rc==0){
447 f08fdedc 2003-11-23 devnull 			Xerror1("null list in concatenation");
448 f08fdedc 2003-11-23 devnull 			return;
449 f08fdedc 2003-11-23 devnull 		}
450 f08fdedc 2003-11-23 devnull 		if(lc!=1 && rc!=1 && lc!=rc){
451 f08fdedc 2003-11-23 devnull 			Xerror1("mismatched list lengths in concatenation");
452 f08fdedc 2003-11-23 devnull 			return;
453 f08fdedc 2003-11-23 devnull 		}
454 f08fdedc 2003-11-23 devnull 		vp=conclist(lp, rp, vp);
455 f08fdedc 2003-11-23 devnull 	}
456 f08fdedc 2003-11-23 devnull 	poplist();
457 f08fdedc 2003-11-23 devnull 	poplist();
458 f08fdedc 2003-11-23 devnull 	runq->argv->words=vp;
459 f08fdedc 2003-11-23 devnull }
460 f08fdedc 2003-11-23 devnull void Xassign(void){
461 f08fdedc 2003-11-23 devnull 	var *v;
462 f08fdedc 2003-11-23 devnull 	if(count(runq->argv->words)!=1){
463 f08fdedc 2003-11-23 devnull 		Xerror1("variable name not singleton!");
464 f08fdedc 2003-11-23 devnull 		return;
465 f08fdedc 2003-11-23 devnull 	}
466 f08fdedc 2003-11-23 devnull 	deglob(runq->argv->words->word);
467 f08fdedc 2003-11-23 devnull 	v=vlook(runq->argv->words->word);
468 f08fdedc 2003-11-23 devnull 	poplist();
469 f08fdedc 2003-11-23 devnull 	globlist();
470 f08fdedc 2003-11-23 devnull 	freewords(v->val);
471 f08fdedc 2003-11-23 devnull 	v->val=runq->argv->words;
472 f08fdedc 2003-11-23 devnull 	v->changed=1;
473 a9eaaa03 2005-01-12 devnull 	if(v->changefn)
474 a9eaaa03 2005-01-12 devnull 		v->changefn(v);
475 f08fdedc 2003-11-23 devnull 	runq->argv->words=0;
476 f08fdedc 2003-11-23 devnull 	poplist();
477 f08fdedc 2003-11-23 devnull }
478 f08fdedc 2003-11-23 devnull /*
479 f08fdedc 2003-11-23 devnull  * copy arglist a, adding the copy to the front of tail
480 f08fdedc 2003-11-23 devnull  */
481 f08fdedc 2003-11-23 devnull word *copywords(word *a, word *tail)
482 f08fdedc 2003-11-23 devnull {
483 f08fdedc 2003-11-23 devnull 	word *v=0, **end;
484 f08fdedc 2003-11-23 devnull 	for(end=&v;a;a=a->next,end=&(*end)->next)
485 f08fdedc 2003-11-23 devnull 		*end=newword(a->word, 0);
486 f08fdedc 2003-11-23 devnull 	*end=tail;
487 f08fdedc 2003-11-23 devnull 	return v;
488 f08fdedc 2003-11-23 devnull }
489 f08fdedc 2003-11-23 devnull void Xdol(void){
490 f08fdedc 2003-11-23 devnull 	word *a, *star;
491 f08fdedc 2003-11-23 devnull 	char *s, *t;
492 f08fdedc 2003-11-23 devnull 	int n;
493 f08fdedc 2003-11-23 devnull 	if(count(runq->argv->words)!=1){
494 f08fdedc 2003-11-23 devnull 		Xerror1("variable name not singleton!");
495 f08fdedc 2003-11-23 devnull 		return;
496 f08fdedc 2003-11-23 devnull 	}
497 f08fdedc 2003-11-23 devnull 	s=runq->argv->words->word;
498 f08fdedc 2003-11-23 devnull 	deglob(s);
499 f08fdedc 2003-11-23 devnull 	n=0;
500 f08fdedc 2003-11-23 devnull 	for(t=s;'0'<=*t && *t<='9';t++) n=n*10+*t-'0';
501 f08fdedc 2003-11-23 devnull 	a=runq->argv->next->words;
502 f08fdedc 2003-11-23 devnull 	if(n==0 || *t)
503 f08fdedc 2003-11-23 devnull 		a=copywords(vlook(s)->val, a);
504 f08fdedc 2003-11-23 devnull 	else{
505 f08fdedc 2003-11-23 devnull 		star=vlook("*")->val;
506 f08fdedc 2003-11-23 devnull 		if(star && 1<=n && n<=count(star)){
507 f08fdedc 2003-11-23 devnull 			while(--n) star=star->next;
508 f08fdedc 2003-11-23 devnull 			a=newword(star->word, a);
509 f08fdedc 2003-11-23 devnull 		}
510 f08fdedc 2003-11-23 devnull 	}
511 f08fdedc 2003-11-23 devnull 	poplist();
512 f08fdedc 2003-11-23 devnull 	runq->argv->words=a;
513 f08fdedc 2003-11-23 devnull }
514 f08fdedc 2003-11-23 devnull void Xqdol(void){
515 f08fdedc 2003-11-23 devnull 	word *a, *p;
516 f08fdedc 2003-11-23 devnull 	char *s;
517 f08fdedc 2003-11-23 devnull 	int n;
518 f08fdedc 2003-11-23 devnull 	if(count(runq->argv->words)!=1){
519 f08fdedc 2003-11-23 devnull 		Xerror1("variable name not singleton!");
520 f08fdedc 2003-11-23 devnull 		return;
521 f08fdedc 2003-11-23 devnull 	}
522 f08fdedc 2003-11-23 devnull 	s=runq->argv->words->word;
523 f08fdedc 2003-11-23 devnull 	deglob(s);
524 f08fdedc 2003-11-23 devnull 	a=vlook(s)->val;
525 f08fdedc 2003-11-23 devnull 	poplist();
526 f08fdedc 2003-11-23 devnull 	n=count(a);
527 f08fdedc 2003-11-23 devnull 	if(n==0){
528 f08fdedc 2003-11-23 devnull 		pushword("");
529 f08fdedc 2003-11-23 devnull 		return;
530 f08fdedc 2003-11-23 devnull 	}
531 f08fdedc 2003-11-23 devnull 	for(p=a;p;p=p->next) n+=strlen(p->word);
532 f08fdedc 2003-11-23 devnull 	s=emalloc(n);
533 f08fdedc 2003-11-23 devnull 	if(a){
534 f08fdedc 2003-11-23 devnull 		strcpy(s, a->word);
535 f08fdedc 2003-11-23 devnull 		for(p=a->next;p;p=p->next){
536 f08fdedc 2003-11-23 devnull 			strcat(s, " ");
537 f08fdedc 2003-11-23 devnull 			strcat(s, p->word);
538 f08fdedc 2003-11-23 devnull 		}
539 f08fdedc 2003-11-23 devnull 	}
540 f08fdedc 2003-11-23 devnull 	else
541 f08fdedc 2003-11-23 devnull 		s[0]='\0';
542 f08fdedc 2003-11-23 devnull 	pushword(s);
543 f08fdedc 2003-11-23 devnull 	efree(s);
544 f08fdedc 2003-11-23 devnull }
545 f08fdedc 2003-11-23 devnull word *subwords(word *val, int len, word *sub, word *a)
546 f08fdedc 2003-11-23 devnull {
547 f08fdedc 2003-11-23 devnull 	int n;
548 f08fdedc 2003-11-23 devnull 	char *s;
549 f08fdedc 2003-11-23 devnull 	if(!sub) return a;
550 f08fdedc 2003-11-23 devnull 	a=subwords(val, len, sub->next, a);
551 f08fdedc 2003-11-23 devnull 	s=sub->word;
552 f08fdedc 2003-11-23 devnull 	deglob(s);
553 f08fdedc 2003-11-23 devnull 	n=0;
554 f08fdedc 2003-11-23 devnull 	while('0'<=*s && *s<='9') n=n*10+ *s++ -'0';
555 f08fdedc 2003-11-23 devnull 	if(n<1 || len<n) return a;
556 f08fdedc 2003-11-23 devnull 	for(;n!=1;--n) val=val->next;
557 f08fdedc 2003-11-23 devnull 	return newword(val->word, a);
558 f08fdedc 2003-11-23 devnull }
559 f08fdedc 2003-11-23 devnull void Xsub(void){
560 f08fdedc 2003-11-23 devnull 	word *a, *v;
561 f08fdedc 2003-11-23 devnull 	char *s;
562 f08fdedc 2003-11-23 devnull 	if(count(runq->argv->next->words)!=1){
563 f08fdedc 2003-11-23 devnull 		Xerror1("variable name not singleton!");
564 f08fdedc 2003-11-23 devnull 		return;
565 f08fdedc 2003-11-23 devnull 	}
566 f08fdedc 2003-11-23 devnull 	s=runq->argv->next->words->word;
567 f08fdedc 2003-11-23 devnull 	deglob(s);
568 f08fdedc 2003-11-23 devnull 	a=runq->argv->next->next->words;
569 f08fdedc 2003-11-23 devnull 	v=vlook(s)->val;
570 f08fdedc 2003-11-23 devnull 	a=subwords(v, count(v), runq->argv->words, a);
571 f08fdedc 2003-11-23 devnull 	poplist();
572 f08fdedc 2003-11-23 devnull 	poplist();
573 f08fdedc 2003-11-23 devnull 	runq->argv->words=a;
574 f08fdedc 2003-11-23 devnull }
575 f08fdedc 2003-11-23 devnull void Xcount(void){
576 f08fdedc 2003-11-23 devnull 	word *a;
577 f08fdedc 2003-11-23 devnull 	char *s, *t;
578 f08fdedc 2003-11-23 devnull 	int n;
579 f08fdedc 2003-11-23 devnull 	char num[12];
580 f08fdedc 2003-11-23 devnull 	if(count(runq->argv->words)!=1){
581 f08fdedc 2003-11-23 devnull 		Xerror1("variable name not singleton!");
582 f08fdedc 2003-11-23 devnull 		return;
583 f08fdedc 2003-11-23 devnull 	}
584 f08fdedc 2003-11-23 devnull 	s=runq->argv->words->word;
585 f08fdedc 2003-11-23 devnull 	deglob(s);
586 f08fdedc 2003-11-23 devnull 	n=0;
587 f08fdedc 2003-11-23 devnull 	for(t=s;'0'<=*t && *t<='9';t++) n=n*10+*t-'0';
588 f08fdedc 2003-11-23 devnull 	if(n==0 || *t){
589 f08fdedc 2003-11-23 devnull 		a=vlook(s)->val;
590 f08fdedc 2003-11-23 devnull 		itoa(num, count(a));
591 f08fdedc 2003-11-23 devnull 	}
592 f08fdedc 2003-11-23 devnull 	else{
593 f08fdedc 2003-11-23 devnull 		a=vlook("*")->val;
594 f08fdedc 2003-11-23 devnull 		itoa(num, a && 1<=n && n<=count(a)?1:0);
595 f08fdedc 2003-11-23 devnull 	}
596 f08fdedc 2003-11-23 devnull 	poplist();
597 f08fdedc 2003-11-23 devnull 	pushword(num);
598 f08fdedc 2003-11-23 devnull }
599 f08fdedc 2003-11-23 devnull void Xlocal(void){
600 f08fdedc 2003-11-23 devnull 	if(count(runq->argv->words)!=1){
601 f08fdedc 2003-11-23 devnull 		Xerror1("variable name must be singleton\n");
602 f08fdedc 2003-11-23 devnull 		return;
603 f08fdedc 2003-11-23 devnull 	}
604 f08fdedc 2003-11-23 devnull 	deglob(runq->argv->words->word);
605 f08fdedc 2003-11-23 devnull 	runq->local=newvar(strdup(runq->argv->words->word), runq->local);
606 f08fdedc 2003-11-23 devnull 	runq->local->val=copywords(runq->argv->next->words, (word *)0);
607 f08fdedc 2003-11-23 devnull 	runq->local->changed=1;
608 f08fdedc 2003-11-23 devnull 	poplist();
609 f08fdedc 2003-11-23 devnull 	poplist();
610 f08fdedc 2003-11-23 devnull }
611 f08fdedc 2003-11-23 devnull void Xunlocal(void){
612 f08fdedc 2003-11-23 devnull 	var *v=runq->local, *hid;
613 f08fdedc 2003-11-23 devnull 	if(v==0) panic("Xunlocal: no locals!", 0);
614 f08fdedc 2003-11-23 devnull 	runq->local=v->next;
615 f08fdedc 2003-11-23 devnull 	hid=vlook(v->name);
616 f08fdedc 2003-11-23 devnull 	hid->changed=1;
617 f08fdedc 2003-11-23 devnull 	efree(v->name);
618 f08fdedc 2003-11-23 devnull 	freewords(v->val);
619 f08fdedc 2003-11-23 devnull 	efree((char *)v);
620 f08fdedc 2003-11-23 devnull }
621 f08fdedc 2003-11-23 devnull void freewords(word *w)
622 f08fdedc 2003-11-23 devnull {
623 f08fdedc 2003-11-23 devnull 	word *nw;
624 f08fdedc 2003-11-23 devnull 	while(w){
625 f08fdedc 2003-11-23 devnull 		efree(w->word);
626 f08fdedc 2003-11-23 devnull 		nw=w->next;
627 f08fdedc 2003-11-23 devnull 		efree((char *)w);
628 f08fdedc 2003-11-23 devnull 		w=nw;
629 f08fdedc 2003-11-23 devnull 	}
630 f08fdedc 2003-11-23 devnull }
631 f08fdedc 2003-11-23 devnull void Xfn(void){
632 f08fdedc 2003-11-23 devnull 	var *v;
633 f08fdedc 2003-11-23 devnull 	word *a;
634 f08fdedc 2003-11-23 devnull 	int end;
635 f08fdedc 2003-11-23 devnull 	end=runq->code[runq->pc].i;
636 f08fdedc 2003-11-23 devnull 	for(a=runq->argv->words;a;a=a->next){
637 f08fdedc 2003-11-23 devnull 		v=gvlook(a->word);
638 f08fdedc 2003-11-23 devnull 		if(v->fn) codefree(v->fn);
639 f08fdedc 2003-11-23 devnull 		v->fn=codecopy(runq->code);
640 f08fdedc 2003-11-23 devnull 		v->pc=runq->pc+2;
641 f08fdedc 2003-11-23 devnull 		v->fnchanged=1;
642 f08fdedc 2003-11-23 devnull 	}
643 f08fdedc 2003-11-23 devnull 	runq->pc=end;
644 f08fdedc 2003-11-23 devnull 	poplist();
645 f08fdedc 2003-11-23 devnull }
646 f08fdedc 2003-11-23 devnull void Xdelfn(void){
647 f08fdedc 2003-11-23 devnull 	var *v;
648 f08fdedc 2003-11-23 devnull 	word *a;
649 f08fdedc 2003-11-23 devnull 	for(a=runq->argv->words;a;a=a->next){
650 f08fdedc 2003-11-23 devnull 		v=gvlook(a->word);
651 f08fdedc 2003-11-23 devnull 		if(v->fn) codefree(v->fn);
652 f08fdedc 2003-11-23 devnull 		v->fn=0;
653 f08fdedc 2003-11-23 devnull 		v->fnchanged=1;
654 f08fdedc 2003-11-23 devnull 	}
655 f08fdedc 2003-11-23 devnull 	poplist();
656 f08fdedc 2003-11-23 devnull }
657 f08fdedc 2003-11-23 devnull void Xpipe(void){
658 f08fdedc 2003-11-23 devnull 	struct thread *p=runq;
659 f08fdedc 2003-11-23 devnull 	int pc=p->pc, forkid;
660 f08fdedc 2003-11-23 devnull 	int lfd=p->code[pc++].i;
661 f08fdedc 2003-11-23 devnull 	int rfd=p->code[pc++].i;
662 f08fdedc 2003-11-23 devnull 	int pfd[2];
663 f08fdedc 2003-11-23 devnull 	if(pipe(pfd)<0){
664 f08fdedc 2003-11-23 devnull 		Xerror("can't get pipe");
665 f08fdedc 2003-11-23 devnull 		return;
666 f08fdedc 2003-11-23 devnull 	}
667 f08fdedc 2003-11-23 devnull 	switch(forkid=fork()){
668 f08fdedc 2003-11-23 devnull 	case -1:
669 f08fdedc 2003-11-23 devnull 		Xerror("try again");
670 f08fdedc 2003-11-23 devnull 		break;
671 f08fdedc 2003-11-23 devnull 	case 0:
672 f08fdedc 2003-11-23 devnull 		start(p->code, pc+2, runq->local);
673 f08fdedc 2003-11-23 devnull 		runq->ret=0;
674 f08fdedc 2003-11-23 devnull 		close(pfd[PRD]);
675 f08fdedc 2003-11-23 devnull 		pushredir(ROPEN, pfd[PWR], lfd);
676 f08fdedc 2003-11-23 devnull 		break;
677 f08fdedc 2003-11-23 devnull 	default:
678 f08fdedc 2003-11-23 devnull 		start(p->code, p->code[pc].i, runq->local);
679 f08fdedc 2003-11-23 devnull 		close(pfd[PWR]);
680 f08fdedc 2003-11-23 devnull 		pushredir(ROPEN, pfd[PRD], rfd);
681 f08fdedc 2003-11-23 devnull 		p->pc=p->code[pc+1].i;
682 f08fdedc 2003-11-23 devnull 		p->pid=forkid;
683 f08fdedc 2003-11-23 devnull 		break;
684 f08fdedc 2003-11-23 devnull 	}
685 f08fdedc 2003-11-23 devnull }
686 f08fdedc 2003-11-23 devnull char *concstatus(char *s, char *t)
687 f08fdedc 2003-11-23 devnull {
688 f08fdedc 2003-11-23 devnull 	static char v[NSTATUS+1];
689 f08fdedc 2003-11-23 devnull 	int n=strlen(s);
690 f08fdedc 2003-11-23 devnull 	strncpy(v, s, NSTATUS);
691 f08fdedc 2003-11-23 devnull 	if(n<NSTATUS){
692 f08fdedc 2003-11-23 devnull 		v[n]='|';
693 f08fdedc 2003-11-23 devnull 		strncpy(v+n+1, t, NSTATUS-n-1);
694 f08fdedc 2003-11-23 devnull 	}
695 f08fdedc 2003-11-23 devnull 	v[NSTATUS]='\0';
696 f08fdedc 2003-11-23 devnull 	return v;
697 f08fdedc 2003-11-23 devnull }
698 f08fdedc 2003-11-23 devnull void Xpipewait(void){
699 f08fdedc 2003-11-23 devnull 	char status[NSTATUS+1];
700 f08fdedc 2003-11-23 devnull 	if(runq->pid==-1)
701 f08fdedc 2003-11-23 devnull 		setstatus(concstatus(runq->status, getstatus()));
702 f08fdedc 2003-11-23 devnull 	else{
703 f08fdedc 2003-11-23 devnull 		strncpy(status, getstatus(), NSTATUS);
704 f08fdedc 2003-11-23 devnull 		status[NSTATUS]='\0';
705 f08fdedc 2003-11-23 devnull 		Waitfor(runq->pid, 1);
706 f08fdedc 2003-11-23 devnull 		runq->pid=-1;
707 f08fdedc 2003-11-23 devnull 		setstatus(concstatus(getstatus(), status));
708 f08fdedc 2003-11-23 devnull 	}
709 f08fdedc 2003-11-23 devnull }
710 f08fdedc 2003-11-23 devnull void Xrdcmds(void){
711 f08fdedc 2003-11-23 devnull 	struct thread *p=runq;
712 f08fdedc 2003-11-23 devnull 	word *prompt;
713 f08fdedc 2003-11-23 devnull 	flush(err);
714 f08fdedc 2003-11-23 devnull 	nerror=0;
715 f08fdedc 2003-11-23 devnull 	if(flag['s'] && !truestatus())
716 f08fdedc 2003-11-23 devnull 		pfmt(err, "status=%v\n", vlook("status")->val);
717 f08fdedc 2003-11-23 devnull 	if(runq->iflag){
718 f08fdedc 2003-11-23 devnull 		prompt=vlook("prompt")->val;
719 f08fdedc 2003-11-23 devnull 		if(prompt)
720 f08fdedc 2003-11-23 devnull 			promptstr=prompt->word;
721 f08fdedc 2003-11-23 devnull 		else
722 f08fdedc 2003-11-23 devnull 			promptstr="% ";
723 f08fdedc 2003-11-23 devnull 	}
724 f08fdedc 2003-11-23 devnull 	Noerror();
725 f08fdedc 2003-11-23 devnull 	if(yyparse()){
726 f08fdedc 2003-11-23 devnull 		if(!p->iflag || p->eof && !Eintr()){
727 f08fdedc 2003-11-23 devnull 			if(p->cmdfile) efree(p->cmdfile);
728 f08fdedc 2003-11-23 devnull 			closeio(p->cmdfd);
729 f08fdedc 2003-11-23 devnull 			Xreturn();	/* should this be omitted? */
730 f08fdedc 2003-11-23 devnull 		}
731 f08fdedc 2003-11-23 devnull 		else{
732 f08fdedc 2003-11-23 devnull 			if(Eintr()){
733 f08fdedc 2003-11-23 devnull 				pchr(err, '\n');
734 f08fdedc 2003-11-23 devnull 				p->eof=0;
735 f08fdedc 2003-11-23 devnull 			}
736 f08fdedc 2003-11-23 devnull 			--p->pc;	/* go back for next command */
737 f08fdedc 2003-11-23 devnull 		}
738 f08fdedc 2003-11-23 devnull 	}
739 f08fdedc 2003-11-23 devnull 	else{
740 f08fdedc 2003-11-23 devnull 		ntrap = 0;	/* avoid double-interrupts during blocked writes */
741 f08fdedc 2003-11-23 devnull 		--p->pc;	/* re-execute Xrdcmds after codebuf runs */
742 f08fdedc 2003-11-23 devnull 		start(codebuf, 1, runq->local);
743 f08fdedc 2003-11-23 devnull 	}
744 f08fdedc 2003-11-23 devnull 	freenodes();
745 f08fdedc 2003-11-23 devnull }
746 f08fdedc 2003-11-23 devnull void Xerror(char *s)
747 f08fdedc 2003-11-23 devnull {
748 f08fdedc 2003-11-23 devnull 	if(strcmp(argv0, "rc")==0 || strcmp(argv0, "/bin/rc")==0)
749 f08fdedc 2003-11-23 devnull 		pfmt(err, "rc: %s: %r\n", s);
750 f08fdedc 2003-11-23 devnull 	else
751 f08fdedc 2003-11-23 devnull 		pfmt(err, "rc (%s): %s: %r\n", argv0, s);
752 f08fdedc 2003-11-23 devnull 	flush(err);
753 f08fdedc 2003-11-23 devnull 	while(!runq->iflag) Xreturn();
754 f08fdedc 2003-11-23 devnull }
755 f08fdedc 2003-11-23 devnull void Xerror1(char *s)
756 f08fdedc 2003-11-23 devnull {
757 f08fdedc 2003-11-23 devnull 	if(strcmp(argv0, "rc")==0 || strcmp(argv0, "/bin/rc")==0)
758 f08fdedc 2003-11-23 devnull 		pfmt(err, "rc: %s\n", s);
759 f08fdedc 2003-11-23 devnull 	else
760 f08fdedc 2003-11-23 devnull 		pfmt(err, "rc (%s): %s\n", argv0, s);
761 f08fdedc 2003-11-23 devnull 	flush(err);
762 f08fdedc 2003-11-23 devnull 	while(!runq->iflag) Xreturn();
763 f08fdedc 2003-11-23 devnull }
764 f08fdedc 2003-11-23 devnull void Xbackq(void){
765 f08fdedc 2003-11-23 devnull 	char wd[8193];
766 f08fdedc 2003-11-23 devnull 	int c;
767 f08fdedc 2003-11-23 devnull 	char *s, *ewd=&wd[8192], *stop;
768 f08fdedc 2003-11-23 devnull 	struct io *f;
769 f08fdedc 2003-11-23 devnull 	var *ifs=vlook("ifs");
770 f08fdedc 2003-11-23 devnull 	word *v, *nextv;
771 f08fdedc 2003-11-23 devnull 	int pfd[2];
772 f08fdedc 2003-11-23 devnull 	int pid;
773 f08fdedc 2003-11-23 devnull 	stop=ifs->val?ifs->val->word:"";
774 f08fdedc 2003-11-23 devnull 	if(pipe(pfd)<0){
775 f08fdedc 2003-11-23 devnull 		Xerror("can't make pipe");
776 f08fdedc 2003-11-23 devnull 		return;
777 f08fdedc 2003-11-23 devnull 	}
778 f08fdedc 2003-11-23 devnull 	switch(pid=fork()){
779 f08fdedc 2003-11-23 devnull 	case -1: Xerror("try again");
780 f08fdedc 2003-11-23 devnull 		close(pfd[PRD]);
781 f08fdedc 2003-11-23 devnull 		close(pfd[PWR]);
782 f08fdedc 2003-11-23 devnull 		return;
783 f08fdedc 2003-11-23 devnull 	case 0:
784 f08fdedc 2003-11-23 devnull 		close(pfd[PRD]);
785 f08fdedc 2003-11-23 devnull 		start(runq->code, runq->pc+1, runq->local);
786 f08fdedc 2003-11-23 devnull 		pushredir(ROPEN, pfd[PWR], 1);
787 f08fdedc 2003-11-23 devnull 		return;
788 f08fdedc 2003-11-23 devnull 	default:
789 f08fdedc 2003-11-23 devnull 		close(pfd[PWR]);
790 f08fdedc 2003-11-23 devnull 		f=openfd(pfd[PRD]);
791 f08fdedc 2003-11-23 devnull 		s=wd;
792 f08fdedc 2003-11-23 devnull 		v=0;
793 f08fdedc 2003-11-23 devnull 		while((c=rchr(f))!=EOF){
794 f08fdedc 2003-11-23 devnull 			if(strchr(stop, c) || s==ewd){
795 f08fdedc 2003-11-23 devnull 				if(s!=wd){
796 f08fdedc 2003-11-23 devnull 					*s='\0';
797 f08fdedc 2003-11-23 devnull 					v=newword(wd, v);
798 f08fdedc 2003-11-23 devnull 					s=wd;
799 f08fdedc 2003-11-23 devnull 				}
800 f08fdedc 2003-11-23 devnull 			}
801 f08fdedc 2003-11-23 devnull 			else *s++=c;
802 f08fdedc 2003-11-23 devnull 		}
803 f08fdedc 2003-11-23 devnull 		if(s!=wd){
804 f08fdedc 2003-11-23 devnull 			*s='\0';
805 f08fdedc 2003-11-23 devnull 			v=newword(wd, v);
806 f08fdedc 2003-11-23 devnull 		}
807 f08fdedc 2003-11-23 devnull 		closeio(f);
808 f08fdedc 2003-11-23 devnull 		Waitfor(pid, 0);
809 f08fdedc 2003-11-23 devnull 		/* v points to reversed arglist -- reverse it onto argv */
810 f08fdedc 2003-11-23 devnull 		while(v){
811 f08fdedc 2003-11-23 devnull 			nextv=v->next;
812 f08fdedc 2003-11-23 devnull 			v->next=runq->argv->words;
813 f08fdedc 2003-11-23 devnull 			runq->argv->words=v;
814 f08fdedc 2003-11-23 devnull 			v=nextv;
815 f08fdedc 2003-11-23 devnull 		}
816 f08fdedc 2003-11-23 devnull 		runq->pc=runq->code[runq->pc].i;
817 f08fdedc 2003-11-23 devnull 		return;
818 f08fdedc 2003-11-23 devnull 	}
819 f08fdedc 2003-11-23 devnull }
820 f08fdedc 2003-11-23 devnull /*
821 f08fdedc 2003-11-23 devnull  * Who should wait for the exit from the fork?
822 f08fdedc 2003-11-23 devnull  */
823 f08fdedc 2003-11-23 devnull void Xpipefd(void){
824 f08fdedc 2003-11-23 devnull 	struct thread *p=runq;
825 f08fdedc 2003-11-23 devnull 	int pc=p->pc;
826 f08fdedc 2003-11-23 devnull 	char name[40];
827 f08fdedc 2003-11-23 devnull 	int pfd[2];
828 f08fdedc 2003-11-23 devnull 	int sidefd, mainfd;
829 f08fdedc 2003-11-23 devnull 	if(pipe(pfd)<0){
830 f08fdedc 2003-11-23 devnull 		Xerror("can't get pipe");
831 f08fdedc 2003-11-23 devnull 		return;
832 f08fdedc 2003-11-23 devnull 	}
833 f08fdedc 2003-11-23 devnull 	if(p->code[pc].i==READ){
834 f08fdedc 2003-11-23 devnull 		sidefd=pfd[PWR];
835 f08fdedc 2003-11-23 devnull 		mainfd=pfd[PRD];
836 f08fdedc 2003-11-23 devnull 	}
837 f08fdedc 2003-11-23 devnull 	else{
838 f08fdedc 2003-11-23 devnull 		sidefd=pfd[PRD];
839 f08fdedc 2003-11-23 devnull 		mainfd=pfd[PWR];
840 f08fdedc 2003-11-23 devnull 	}
841 f08fdedc 2003-11-23 devnull 	switch(fork()){
842 f08fdedc 2003-11-23 devnull 	case -1:
843 f08fdedc 2003-11-23 devnull 		Xerror("try again");
844 f08fdedc 2003-11-23 devnull 		break;
845 f08fdedc 2003-11-23 devnull 	case 0:
846 f08fdedc 2003-11-23 devnull 		start(p->code, pc+2, runq->local);
847 f08fdedc 2003-11-23 devnull 		close(mainfd);
848 f08fdedc 2003-11-23 devnull 		pushredir(ROPEN, sidefd, p->code[pc].i==READ?1:0);
849 f08fdedc 2003-11-23 devnull 		runq->ret=0;
850 f08fdedc 2003-11-23 devnull 		break;
851 f08fdedc 2003-11-23 devnull 	default:
852 f08fdedc 2003-11-23 devnull 		close(sidefd);
853 f08fdedc 2003-11-23 devnull 		pushredir(ROPEN, mainfd, mainfd);	/* isn't this a noop? */
854 f08fdedc 2003-11-23 devnull 		strcpy(name, Fdprefix);
855 f08fdedc 2003-11-23 devnull 		itoa(name+strlen(name), mainfd);
856 f08fdedc 2003-11-23 devnull 		pushword(name);
857 f08fdedc 2003-11-23 devnull 		p->pc=p->code[pc+1].i;
858 f08fdedc 2003-11-23 devnull 		break;
859 f08fdedc 2003-11-23 devnull 	}
860 f08fdedc 2003-11-23 devnull }
861 f08fdedc 2003-11-23 devnull void Xsubshell(void){
862 f08fdedc 2003-11-23 devnull 	int pid;
863 f08fdedc 2003-11-23 devnull 	switch(pid=fork()){
864 f08fdedc 2003-11-23 devnull 	case -1:
865 f08fdedc 2003-11-23 devnull 		Xerror("try again");
866 f08fdedc 2003-11-23 devnull 		break;
867 f08fdedc 2003-11-23 devnull 	case 0:
868 f08fdedc 2003-11-23 devnull 		start(runq->code, runq->pc+1, runq->local);
869 f08fdedc 2003-11-23 devnull 		runq->ret=0;
870 f08fdedc 2003-11-23 devnull 		break;
871 f08fdedc 2003-11-23 devnull 	default:
872 f08fdedc 2003-11-23 devnull 		Waitfor(pid, 1);
873 f08fdedc 2003-11-23 devnull 		runq->pc=runq->code[runq->pc].i;
874 f08fdedc 2003-11-23 devnull 		break;
875 f08fdedc 2003-11-23 devnull 	}
876 f08fdedc 2003-11-23 devnull }
877 f08fdedc 2003-11-23 devnull void setstatus(char *s)
878 f08fdedc 2003-11-23 devnull {
879 f08fdedc 2003-11-23 devnull 	setvar("status", newword(s, (word *)0));
880 f08fdedc 2003-11-23 devnull }
881 f08fdedc 2003-11-23 devnull char *getstatus(void){
882 f08fdedc 2003-11-23 devnull 	var *status=vlook("status");
883 f08fdedc 2003-11-23 devnull 	return status->val?status->val->word:"";
884 f08fdedc 2003-11-23 devnull }
885 f08fdedc 2003-11-23 devnull int truestatus(void){
886 f08fdedc 2003-11-23 devnull 	char *s;
887 f08fdedc 2003-11-23 devnull 	for(s=getstatus();*s;s++)
888 f08fdedc 2003-11-23 devnull 		if(*s!='|' && *s!='0') return 0;
889 f08fdedc 2003-11-23 devnull 	return 1;
890 f08fdedc 2003-11-23 devnull }
891 f08fdedc 2003-11-23 devnull void Xdelhere(void){
892 f08fdedc 2003-11-23 devnull 	Unlink(runq->code[runq->pc++].s);
893 f08fdedc 2003-11-23 devnull }
894 f08fdedc 2003-11-23 devnull void Xfor(void){
895 f08fdedc 2003-11-23 devnull 	if(runq->argv->words==0){
896 f08fdedc 2003-11-23 devnull 		poplist();
897 f08fdedc 2003-11-23 devnull 		runq->pc=runq->code[runq->pc].i;
898 f08fdedc 2003-11-23 devnull 	}
899 f08fdedc 2003-11-23 devnull 	else{
900 f08fdedc 2003-11-23 devnull 		freelist(runq->local->val);
901 f08fdedc 2003-11-23 devnull 		runq->local->val=runq->argv->words;
902 f08fdedc 2003-11-23 devnull 		runq->local->changed=1;
903 f08fdedc 2003-11-23 devnull 		runq->argv->words=runq->argv->words->next;
904 f08fdedc 2003-11-23 devnull 		runq->local->val->next=0;
905 f08fdedc 2003-11-23 devnull 		runq->pc++;
906 f08fdedc 2003-11-23 devnull 	}
907 f08fdedc 2003-11-23 devnull }
908 f08fdedc 2003-11-23 devnull void Xglob(void){
909 f08fdedc 2003-11-23 devnull 	globlist();
910 f08fdedc 2003-11-23 devnull }