1 f08fdedc 2003-11-23 devnull /*
  2 f08fdedc 2003-11-23 devnull  * Maybe `simple' is a misnomer.
  3 f08fdedc 2003-11-23 devnull  */
  4 f08fdedc 2003-11-23 devnull #include "rc.h"
  5 f08fdedc 2003-11-23 devnull #include "getflags.h"
  6 f08fdedc 2003-11-23 devnull #include "exec.h"
  7 f08fdedc 2003-11-23 devnull #include "io.h"
  8 f08fdedc 2003-11-23 devnull #include "fns.h"
  9 f08fdedc 2003-11-23 devnull /*
 10 f08fdedc 2003-11-23 devnull  * Search through the following code to see if we're just going to exit.
 11 f08fdedc 2003-11-23 devnull  */
 12 f08fdedc 2003-11-23 devnull int
 13 f08fdedc 2003-11-23 devnull exitnext(void){
 14 f08fdedc 2003-11-23 devnull 	union code *c=&runq->code[runq->pc];
 15 f08fdedc 2003-11-23 devnull 	while(c->f==Xpopredir) c++;
 16 f08fdedc 2003-11-23 devnull 	return c->f==Xexit;
 17 f08fdedc 2003-11-23 devnull }
 18 f08fdedc 2003-11-23 devnull void Xsimple(void){
 19 f08fdedc 2003-11-23 devnull 	word *a;
 20 f08fdedc 2003-11-23 devnull 	thread *p=runq;
 21 f08fdedc 2003-11-23 devnull 	var *v;
 22 f08fdedc 2003-11-23 devnull 	struct builtin *bp;
 23 f08fdedc 2003-11-23 devnull 	int pid, n;
 24 f08fdedc 2003-11-23 devnull 	char buf[ERRMAX];
 25 f08fdedc 2003-11-23 devnull 	globlist();
 26 f08fdedc 2003-11-23 devnull 	a=runq->argv->words;
 27 f08fdedc 2003-11-23 devnull 	if(a==0){
 28 f08fdedc 2003-11-23 devnull 		Xerror1("empty argument list");
 29 f08fdedc 2003-11-23 devnull 		return;
 30 f08fdedc 2003-11-23 devnull 	}
 31 f08fdedc 2003-11-23 devnull 	if(flag['x'])
 32 f08fdedc 2003-11-23 devnull 		pfmt(err, "%v\n", p->argv->words); /* wrong, should do redirs */
 33 f08fdedc 2003-11-23 devnull 	v=gvlook(a->word);
 34 f08fdedc 2003-11-23 devnull 	if(v->fn)
 35 f08fdedc 2003-11-23 devnull 		execfunc(v);
 36 f08fdedc 2003-11-23 devnull 	else{
 37 f08fdedc 2003-11-23 devnull 		if(strcmp(a->word, "builtin")==0){
 38 f08fdedc 2003-11-23 devnull 			if(count(a)==1){
 39 f08fdedc 2003-11-23 devnull 				pfmt(err, "builtin: empty argument list\n");
 40 f08fdedc 2003-11-23 devnull 				setstatus("empty arg list");
 41 f08fdedc 2003-11-23 devnull 				poplist();
 42 f08fdedc 2003-11-23 devnull 				return;
 43 f08fdedc 2003-11-23 devnull 			}
 44 f08fdedc 2003-11-23 devnull 			a=a->next;
 45 f08fdedc 2003-11-23 devnull 			popword();
 46 f08fdedc 2003-11-23 devnull 		}
 47 f08fdedc 2003-11-23 devnull 		for(bp=Builtin;bp->name;bp++)
 48 f08fdedc 2003-11-23 devnull 			if(strcmp(a->word, bp->name)==0){
 49 f08fdedc 2003-11-23 devnull 				(*bp->fnc)();
 50 f08fdedc 2003-11-23 devnull 				return;
 51 f08fdedc 2003-11-23 devnull 			}
 52 f08fdedc 2003-11-23 devnull 		if(exitnext()){
 53 f08fdedc 2003-11-23 devnull 			/* fork and wait is redundant */
 54 f08fdedc 2003-11-23 devnull 			pushword("exec");
 55 f08fdedc 2003-11-23 devnull 			execexec();
 56 f08fdedc 2003-11-23 devnull 			Xexit();
 57 f08fdedc 2003-11-23 devnull 		}
 58 f08fdedc 2003-11-23 devnull 		else{
 59 f08fdedc 2003-11-23 devnull 			flush(err);
 60 f08fdedc 2003-11-23 devnull 			Updenv();	/* necessary so changes don't go out again */
 61 f08fdedc 2003-11-23 devnull 			switch(pid=fork()){
 62 f08fdedc 2003-11-23 devnull 			case -1:
 63 f08fdedc 2003-11-23 devnull 				Xerror("try again");
 64 f08fdedc 2003-11-23 devnull 				return;
 65 f08fdedc 2003-11-23 devnull 			case 0:
 66 f08fdedc 2003-11-23 devnull 				pushword("exec");
 67 f08fdedc 2003-11-23 devnull 				execexec();
 68 f08fdedc 2003-11-23 devnull 				strcpy(buf, "can't exec: ");
 69 f08fdedc 2003-11-23 devnull 				n = strlen(buf);
 70 f08fdedc 2003-11-23 devnull 				errstr(buf+n, ERRMAX-n);
 71 f08fdedc 2003-11-23 devnull 				Exit(buf);
 72 f08fdedc 2003-11-23 devnull 			default:
 73 f08fdedc 2003-11-23 devnull 				poplist();
 74 f08fdedc 2003-11-23 devnull 				/* interrupts don't get us out */
 75 f08fdedc 2003-11-23 devnull 				while(Waitfor(pid, 1) < 0)
 76 f08fdedc 2003-11-23 devnull 					;
 77 f08fdedc 2003-11-23 devnull 			}
 78 f08fdedc 2003-11-23 devnull 		}
 79 f08fdedc 2003-11-23 devnull 	}
 80 f08fdedc 2003-11-23 devnull }
 81 f08fdedc 2003-11-23 devnull struct word nullpath={ "", 0};
 82 f08fdedc 2003-11-23 devnull void doredir(redir *rp)
 83 f08fdedc 2003-11-23 devnull {
 84 f08fdedc 2003-11-23 devnull 	if(rp){
 85 f08fdedc 2003-11-23 devnull 		doredir(rp->next);
 86 f08fdedc 2003-11-23 devnull 		switch(rp->type){
 87 f08fdedc 2003-11-23 devnull 		case ROPEN:
 88 f08fdedc 2003-11-23 devnull 			if(rp->from!=rp->to){
 89 f08fdedc 2003-11-23 devnull 				Dup(rp->from, rp->to);
 90 f08fdedc 2003-11-23 devnull 				close(rp->from);
 91 f08fdedc 2003-11-23 devnull 			}
 92 f08fdedc 2003-11-23 devnull 			break;
 93 f08fdedc 2003-11-23 devnull 		case RDUP: Dup(rp->from, rp->to); break;
 94 f08fdedc 2003-11-23 devnull 		case RCLOSE: close(rp->from); break;
 95 f08fdedc 2003-11-23 devnull 		}
 96 f08fdedc 2003-11-23 devnull 	}
 97 f08fdedc 2003-11-23 devnull }
 98 f08fdedc 2003-11-23 devnull word *searchpath(char *w){
 99 f08fdedc 2003-11-23 devnull 	word *path;
100 f08fdedc 2003-11-23 devnull 	if(strncmp(w, "/", 1)==0
101 f08fdedc 2003-11-23 devnull 	|| strncmp(w, "#", 1)==0
102 f08fdedc 2003-11-23 devnull 	|| strncmp(w, "./", 2)==0
103 f08fdedc 2003-11-23 devnull 	|| strncmp(w, "../", 3)==0
104 f08fdedc 2003-11-23 devnull 	|| (path=vlook("path")->val)==0)
105 f08fdedc 2003-11-23 devnull 		path=&nullpath;
106 f08fdedc 2003-11-23 devnull 	return path;
107 f08fdedc 2003-11-23 devnull }
108 f08fdedc 2003-11-23 devnull void execexec(void){
109 f08fdedc 2003-11-23 devnull 	popword();	/* "exec" */
110 f08fdedc 2003-11-23 devnull 	if(runq->argv->words==0){
111 f08fdedc 2003-11-23 devnull 		Xerror1("empty argument list");
112 f08fdedc 2003-11-23 devnull 		return;
113 f08fdedc 2003-11-23 devnull 	}
114 f08fdedc 2003-11-23 devnull 	doredir(runq->redir);
115 f08fdedc 2003-11-23 devnull 	Execute(runq->argv->words, searchpath(runq->argv->words->word));
116 f08fdedc 2003-11-23 devnull 	poplist();
117 f08fdedc 2003-11-23 devnull }
118 f08fdedc 2003-11-23 devnull void execfunc(var *func)
119 f08fdedc 2003-11-23 devnull {
120 f08fdedc 2003-11-23 devnull 	word *starval;
121 f08fdedc 2003-11-23 devnull 	popword();
122 f08fdedc 2003-11-23 devnull 	starval=runq->argv->words;
123 f08fdedc 2003-11-23 devnull 	runq->argv->words=0;
124 f08fdedc 2003-11-23 devnull 	poplist();
125 f08fdedc 2003-11-23 devnull 	start(func->fn, func->pc, (struct var *)0);
126 f08fdedc 2003-11-23 devnull 	runq->local=newvar(strdup("*"), runq->local);
127 f08fdedc 2003-11-23 devnull 	runq->local->val=starval;
128 f08fdedc 2003-11-23 devnull 	runq->local->changed=1;
129 f08fdedc 2003-11-23 devnull }
130 f08fdedc 2003-11-23 devnull int dochdir(char *word){
131 f08fdedc 2003-11-23 devnull 	/* report to /dev/wdir if it exists and we're interactive */
132 f08fdedc 2003-11-23 devnull 	static int wdirfd = -2;
133 f08fdedc 2003-11-23 devnull 	if(chdir(word)<0) return -1;
134 f08fdedc 2003-11-23 devnull 	if(flag['i']!=0){
135 f08fdedc 2003-11-23 devnull 		if(wdirfd==-2)	/* try only once */
136 f08fdedc 2003-11-23 devnull 			wdirfd = open("/dev/wdir", OWRITE|OCEXEC);
137 f08fdedc 2003-11-23 devnull 		if(wdirfd>=0)
138 f08fdedc 2003-11-23 devnull 			write(wdirfd, word, strlen(word));
139 f08fdedc 2003-11-23 devnull 	}
140 f08fdedc 2003-11-23 devnull 	return 1;
141 f08fdedc 2003-11-23 devnull }
142 f08fdedc 2003-11-23 devnull void execcd(void){
143 f08fdedc 2003-11-23 devnull 	word *a=runq->argv->words;
144 f08fdedc 2003-11-23 devnull 	word *cdpath;
145 f08fdedc 2003-11-23 devnull 	char dir[512];
146 f08fdedc 2003-11-23 devnull 	setstatus("can't cd");
147 f08fdedc 2003-11-23 devnull 	cdpath=vlook("cdpath")->val;
148 f08fdedc 2003-11-23 devnull 	switch(count(a)){
149 f08fdedc 2003-11-23 devnull 	default:
150 f08fdedc 2003-11-23 devnull 		pfmt(err, "Usage: cd [directory]\n");
151 f08fdedc 2003-11-23 devnull 		break;
152 f08fdedc 2003-11-23 devnull 	case 2:
153 f08fdedc 2003-11-23 devnull 		if(a->next->word[0]=='/' || cdpath==0) cdpath=&nullpath;
154 f08fdedc 2003-11-23 devnull 		for(;cdpath;cdpath=cdpath->next){
155 f08fdedc 2003-11-23 devnull 			strcpy(dir, cdpath->word);
156 f08fdedc 2003-11-23 devnull 			if(dir[0]) strcat(dir, "/");
157 f08fdedc 2003-11-23 devnull 			strcat(dir, a->next->word);
158 f08fdedc 2003-11-23 devnull 			if(dochdir(dir)>=0){
159 f08fdedc 2003-11-23 devnull 				if(strlen(cdpath->word)
160 f08fdedc 2003-11-23 devnull 				&& strcmp(cdpath->word, ".")!=0)
161 f08fdedc 2003-11-23 devnull 					pfmt(err, "%s\n", dir);
162 f08fdedc 2003-11-23 devnull 				setstatus("");
163 f08fdedc 2003-11-23 devnull 				break;
164 f08fdedc 2003-11-23 devnull 			}
165 f08fdedc 2003-11-23 devnull 		}
166 f08fdedc 2003-11-23 devnull 		if(cdpath==0) pfmt(err, "Can't cd %s: %r\n", a->next->word);
167 f08fdedc 2003-11-23 devnull 		break;
168 f08fdedc 2003-11-23 devnull 	case 1:
169 f08fdedc 2003-11-23 devnull 		a=vlook("home")->val;
170 f08fdedc 2003-11-23 devnull 		if(count(a)>=1){
171 f08fdedc 2003-11-23 devnull 			if(dochdir(a->word)>=0)
172 f08fdedc 2003-11-23 devnull 				setstatus("");
173 f08fdedc 2003-11-23 devnull 			else
174 f08fdedc 2003-11-23 devnull 				pfmt(err, "Can't cd %s: %r\n", a->word);
175 f08fdedc 2003-11-23 devnull 		}
176 f08fdedc 2003-11-23 devnull 		else
177 f08fdedc 2003-11-23 devnull 			pfmt(err, "Can't cd -- $home empty\n");
178 f08fdedc 2003-11-23 devnull 		break;
179 f08fdedc 2003-11-23 devnull 	}
180 f08fdedc 2003-11-23 devnull 	poplist();
181 f08fdedc 2003-11-23 devnull }
182 f08fdedc 2003-11-23 devnull void execexit(void){
183 f08fdedc 2003-11-23 devnull 	switch(count(runq->argv->words)){
184 f08fdedc 2003-11-23 devnull 	default: pfmt(err, "Usage: exit [status]\nExiting anyway\n");
185 f08fdedc 2003-11-23 devnull 	case 2: setstatus(runq->argv->words->next->word);
186 f08fdedc 2003-11-23 devnull 	case 1:	Xexit();
187 f08fdedc 2003-11-23 devnull 	}
188 f08fdedc 2003-11-23 devnull }
189 f08fdedc 2003-11-23 devnull void execshift(void){
190 f08fdedc 2003-11-23 devnull 	int n;
191 f08fdedc 2003-11-23 devnull 	word *a;
192 f08fdedc 2003-11-23 devnull 	var *star;
193 f08fdedc 2003-11-23 devnull 	switch(count(runq->argv->words)){
194 f08fdedc 2003-11-23 devnull 	default:
195 f08fdedc 2003-11-23 devnull 		pfmt(err, "Usage: shift [n]\n");
196 f08fdedc 2003-11-23 devnull 		setstatus("shift usage");
197 f08fdedc 2003-11-23 devnull 		poplist();
198 f08fdedc 2003-11-23 devnull 		return;
199 f08fdedc 2003-11-23 devnull 	case 2: n=atoi(runq->argv->words->next->word); break;
200 f08fdedc 2003-11-23 devnull 	case 1: n=1; break;
201 f08fdedc 2003-11-23 devnull 	}
202 f08fdedc 2003-11-23 devnull 	star=vlook("*");
203 f08fdedc 2003-11-23 devnull 	for(;n && star->val;--n){
204 f08fdedc 2003-11-23 devnull 		a=star->val->next;
205 f08fdedc 2003-11-23 devnull 		efree(star->val->word);
206 f08fdedc 2003-11-23 devnull 		efree((char *)star->val);
207 f08fdedc 2003-11-23 devnull 		star->val=a;
208 f08fdedc 2003-11-23 devnull 		star->changed=1;
209 f08fdedc 2003-11-23 devnull 	}
210 f08fdedc 2003-11-23 devnull 	setstatus("");
211 f08fdedc 2003-11-23 devnull 	poplist();
212 f08fdedc 2003-11-23 devnull }
213 f08fdedc 2003-11-23 devnull int octal(char *s)
214 f08fdedc 2003-11-23 devnull {
215 f08fdedc 2003-11-23 devnull 	int n=0;
216 f08fdedc 2003-11-23 devnull 	while(*s==' ' || *s=='\t' || *s=='\n') s++;
217 f08fdedc 2003-11-23 devnull 	while('0'<=*s && *s<='7') n=n*8+*s++-'0';
218 f08fdedc 2003-11-23 devnull 	return n;
219 f08fdedc 2003-11-23 devnull }
220 f08fdedc 2003-11-23 devnull int mapfd(int fd)
221 f08fdedc 2003-11-23 devnull {
222 f08fdedc 2003-11-23 devnull 	redir *rp;
223 f08fdedc 2003-11-23 devnull 	for(rp=runq->redir;rp;rp=rp->next){
224 f08fdedc 2003-11-23 devnull 		switch(rp->type){
225 f08fdedc 2003-11-23 devnull 		case RCLOSE:
226 f08fdedc 2003-11-23 devnull 			if(rp->from==fd) fd=-1;
227 f08fdedc 2003-11-23 devnull 			break;
228 f08fdedc 2003-11-23 devnull 		case RDUP:
229 f08fdedc 2003-11-23 devnull 		case ROPEN:
230 f08fdedc 2003-11-23 devnull 			if(rp->to==fd) fd=rp->from;
231 f08fdedc 2003-11-23 devnull 			break;
232 f08fdedc 2003-11-23 devnull 		}
233 f08fdedc 2003-11-23 devnull 	}
234 f08fdedc 2003-11-23 devnull 	return fd;
235 f08fdedc 2003-11-23 devnull }
236 f08fdedc 2003-11-23 devnull union code rdcmds[4];
237 f08fdedc 2003-11-23 devnull void execcmds(io *f)
238 f08fdedc 2003-11-23 devnull {
239 f08fdedc 2003-11-23 devnull 	static int first=1;
240 f08fdedc 2003-11-23 devnull 	if(first){
241 f08fdedc 2003-11-23 devnull 		rdcmds[0].i=1;
242 f08fdedc 2003-11-23 devnull 		rdcmds[1].f=Xrdcmds;
243 f08fdedc 2003-11-23 devnull 		rdcmds[2].f=Xreturn;
244 f08fdedc 2003-11-23 devnull 		first=0;
245 f08fdedc 2003-11-23 devnull 	}
246 f08fdedc 2003-11-23 devnull 	start(rdcmds, 1, runq->local);
247 f08fdedc 2003-11-23 devnull 	runq->cmdfd=f;
248 f08fdedc 2003-11-23 devnull 	runq->iflast=0;
249 f08fdedc 2003-11-23 devnull }
250 f08fdedc 2003-11-23 devnull void execeval(void){
251 f08fdedc 2003-11-23 devnull 	char *cmdline, *s, *t;
252 f08fdedc 2003-11-23 devnull 	int len=0;
253 f08fdedc 2003-11-23 devnull 	word *ap;
254 f08fdedc 2003-11-23 devnull 	if(count(runq->argv->words)<=1){
255 f08fdedc 2003-11-23 devnull 		Xerror1("Usage: eval cmd ...");
256 f08fdedc 2003-11-23 devnull 		return;
257 f08fdedc 2003-11-23 devnull 	}
258 f08fdedc 2003-11-23 devnull 	eflagok=1;
259 f08fdedc 2003-11-23 devnull 	for(ap=runq->argv->words->next;ap;ap=ap->next)
260 f08fdedc 2003-11-23 devnull 		len+=1+strlen(ap->word);
261 f08fdedc 2003-11-23 devnull 	cmdline=emalloc(len);
262 f08fdedc 2003-11-23 devnull 	s=cmdline;
263 f08fdedc 2003-11-23 devnull 	for(ap=runq->argv->words->next;ap;ap=ap->next){
264 f08fdedc 2003-11-23 devnull 		for(t=ap->word;*t;) *s++=*t++;
265 f08fdedc 2003-11-23 devnull 		*s++=' ';
266 f08fdedc 2003-11-23 devnull 	}
267 f08fdedc 2003-11-23 devnull 	s[-1]='\n';
268 f08fdedc 2003-11-23 devnull 	poplist();
269 f08fdedc 2003-11-23 devnull 	execcmds(opencore(cmdline, len));
270 f08fdedc 2003-11-23 devnull 	efree(cmdline);
271 f08fdedc 2003-11-23 devnull }
272 f08fdedc 2003-11-23 devnull union code dotcmds[14];
273 f08fdedc 2003-11-23 devnull void execdot(void){
274 f08fdedc 2003-11-23 devnull 	int iflag=0;
275 f08fdedc 2003-11-23 devnull 	int fd;
276 f08fdedc 2003-11-23 devnull 	list *av;
277 f08fdedc 2003-11-23 devnull 	thread *p=runq;
278 f08fdedc 2003-11-23 devnull 	char *zero;
279 f08fdedc 2003-11-23 devnull 	static int first=1;
280 f08fdedc 2003-11-23 devnull 	char file[512];
281 f08fdedc 2003-11-23 devnull 	word *path;
282 f08fdedc 2003-11-23 devnull 	if(first){
283 f08fdedc 2003-11-23 devnull 		dotcmds[0].i=1;
284 f08fdedc 2003-11-23 devnull 		dotcmds[1].f=Xmark;
285 f08fdedc 2003-11-23 devnull 		dotcmds[2].f=Xword;
286 f08fdedc 2003-11-23 devnull 		dotcmds[3].s="0";
287 f08fdedc 2003-11-23 devnull 		dotcmds[4].f=Xlocal;
288 f08fdedc 2003-11-23 devnull 		dotcmds[5].f=Xmark;
289 f08fdedc 2003-11-23 devnull 		dotcmds[6].f=Xword;
290 f08fdedc 2003-11-23 devnull 		dotcmds[7].s="*";
291 f08fdedc 2003-11-23 devnull 		dotcmds[8].f=Xlocal;
292 f08fdedc 2003-11-23 devnull 		dotcmds[9].f=Xrdcmds;
293 f08fdedc 2003-11-23 devnull 		dotcmds[10].f=Xunlocal;
294 f08fdedc 2003-11-23 devnull 		dotcmds[11].f=Xunlocal;
295 f08fdedc 2003-11-23 devnull 		dotcmds[12].f=Xreturn;
296 f08fdedc 2003-11-23 devnull 		first=0;
297 f08fdedc 2003-11-23 devnull 	}
298 f08fdedc 2003-11-23 devnull 	else
299 f08fdedc 2003-11-23 devnull 		eflagok=1;
300 f08fdedc 2003-11-23 devnull 	popword();
301 f08fdedc 2003-11-23 devnull 	if(p->argv->words && strcmp(p->argv->words->word, "-i")==0){
302 f08fdedc 2003-11-23 devnull 		iflag=1;
303 f08fdedc 2003-11-23 devnull 		popword();
304 f08fdedc 2003-11-23 devnull 	}
305 f08fdedc 2003-11-23 devnull 	/* get input file */
306 f08fdedc 2003-11-23 devnull 	if(p->argv->words==0){
307 f08fdedc 2003-11-23 devnull 		Xerror1("Usage: . [-i] file [arg ...]");
308 f08fdedc 2003-11-23 devnull 		return;
309 f08fdedc 2003-11-23 devnull 	}
310 f08fdedc 2003-11-23 devnull 	zero=strdup(p->argv->words->word);
311 f08fdedc 2003-11-23 devnull 	popword();
312 f08fdedc 2003-11-23 devnull 	fd=-1;
313 f08fdedc 2003-11-23 devnull 	for(path=searchpath(zero);path;path=path->next){
314 f08fdedc 2003-11-23 devnull 		strcpy(file, path->word);
315 f08fdedc 2003-11-23 devnull 		if(file[0]) strcat(file, "/");
316 f08fdedc 2003-11-23 devnull 		strcat(file, zero);
317 f08fdedc 2003-11-23 devnull 		if((fd=open(file, 0))>=0) break;
318 f08fdedc 2003-11-23 devnull 		if(strcmp(file, "/dev/stdin")==0){	/* for sun & ucb */
319 f08fdedc 2003-11-23 devnull 			fd=Dup1(0);
320 f08fdedc 2003-11-23 devnull 			if(fd>=0) break;
321 f08fdedc 2003-11-23 devnull 		}
322 f08fdedc 2003-11-23 devnull 	}
323 f08fdedc 2003-11-23 devnull 	if(fd<0){
324 f08fdedc 2003-11-23 devnull 		pfmt(err, "%s: ", zero);
325 f08fdedc 2003-11-23 devnull 		setstatus("can't open");
326 f08fdedc 2003-11-23 devnull 		Xerror(".: can't open");
327 f08fdedc 2003-11-23 devnull 		return;
328 f08fdedc 2003-11-23 devnull 	}
329 f08fdedc 2003-11-23 devnull 	/* set up for a new command loop */
330 f08fdedc 2003-11-23 devnull 	start(dotcmds, 1, (struct var *)0);
331 f08fdedc 2003-11-23 devnull 	pushredir(RCLOSE, fd, 0);
332 f08fdedc 2003-11-23 devnull 	runq->cmdfile=zero;
333 f08fdedc 2003-11-23 devnull 	runq->cmdfd=openfd(fd);
334 f08fdedc 2003-11-23 devnull 	runq->iflag=iflag;
335 f08fdedc 2003-11-23 devnull 	runq->iflast=0;
336 f08fdedc 2003-11-23 devnull 	/* push $* value */
337 f08fdedc 2003-11-23 devnull 	pushlist();
338 f08fdedc 2003-11-23 devnull 	runq->argv->words=p->argv->words;
339 f08fdedc 2003-11-23 devnull 	/* free caller's copy of $* */
340 f08fdedc 2003-11-23 devnull 	av=p->argv;
341 f08fdedc 2003-11-23 devnull 	p->argv=av->next;
342 f08fdedc 2003-11-23 devnull 	efree((char *)av);
343 f08fdedc 2003-11-23 devnull 	/* push $0 value */
344 f08fdedc 2003-11-23 devnull 	pushlist();
345 f08fdedc 2003-11-23 devnull 	pushword(zero);
346 f08fdedc 2003-11-23 devnull 	ndot++;
347 f08fdedc 2003-11-23 devnull }
348 f08fdedc 2003-11-23 devnull void execflag(void){
349 f08fdedc 2003-11-23 devnull 	char *letter, *val;
350 f08fdedc 2003-11-23 devnull 	switch(count(runq->argv->words)){
351 f08fdedc 2003-11-23 devnull 	case 2:
352 f08fdedc 2003-11-23 devnull 		setstatus(flag[(uchar)runq->argv->words->next->word[0]]?"":"flag not set");
353 f08fdedc 2003-11-23 devnull 		break;
354 f08fdedc 2003-11-23 devnull 	case 3:
355 f08fdedc 2003-11-23 devnull 		letter=runq->argv->words->next->word;
356 f08fdedc 2003-11-23 devnull 		val=runq->argv->words->next->next->word;
357 f08fdedc 2003-11-23 devnull 		if(strlen(letter)==1){
358 f08fdedc 2003-11-23 devnull 			if(strcmp(val, "+")==0){
359 f08fdedc 2003-11-23 devnull 				flag[(uchar)letter[0]]=flagset;
360 f08fdedc 2003-11-23 devnull 				break;
361 f08fdedc 2003-11-23 devnull 			}
362 f08fdedc 2003-11-23 devnull 			if(strcmp(val, "-")==0){
363 f08fdedc 2003-11-23 devnull 				flag[(uchar)letter[0]]=0;
364 f08fdedc 2003-11-23 devnull 				break;
365 f08fdedc 2003-11-23 devnull 			}
366 f08fdedc 2003-11-23 devnull 		}
367 f08fdedc 2003-11-23 devnull 	default:
368 f08fdedc 2003-11-23 devnull 		Xerror1("Usage: flag [letter] [+-]");
369 f08fdedc 2003-11-23 devnull 		return;
370 f08fdedc 2003-11-23 devnull 	}
371 f08fdedc 2003-11-23 devnull 	poplist();
372 f08fdedc 2003-11-23 devnull }
373 f08fdedc 2003-11-23 devnull void execwhatis(void){	/* mildly wrong -- should fork before writing */
374 f08fdedc 2003-11-23 devnull 	word *a, *b, *path;
375 f08fdedc 2003-11-23 devnull 	var *v;
376 f08fdedc 2003-11-23 devnull 	struct builtin *bp;
377 f08fdedc 2003-11-23 devnull 	char file[512];
378 f08fdedc 2003-11-23 devnull 	struct io out[1];
379 f08fdedc 2003-11-23 devnull 	int found, sep;
380 f08fdedc 2003-11-23 devnull 	a=runq->argv->words->next;
381 f08fdedc 2003-11-23 devnull 	if(a==0){
382 f08fdedc 2003-11-23 devnull 		Xerror1("Usage: whatis name ...");
383 f08fdedc 2003-11-23 devnull 		return;
384 f08fdedc 2003-11-23 devnull 	}
385 f08fdedc 2003-11-23 devnull 	setstatus("");
386 f08fdedc 2003-11-23 devnull 	out->fd=mapfd(1);
387 f08fdedc 2003-11-23 devnull 	out->bufp=out->buf;
388 f08fdedc 2003-11-23 devnull 	out->ebuf=&out->buf[NBUF];
389 f08fdedc 2003-11-23 devnull 	out->strp=0;
390 f08fdedc 2003-11-23 devnull 	for(;a;a=a->next){
391 f08fdedc 2003-11-23 devnull 		v=vlook(a->word);
392 f08fdedc 2003-11-23 devnull 		if(v->val){
393 f08fdedc 2003-11-23 devnull 			pfmt(out, "%s=", a->word);
394 f08fdedc 2003-11-23 devnull 			if(v->val->next==0)
395 f08fdedc 2003-11-23 devnull 				pfmt(out, "%q\n", v->val->word);
396 f08fdedc 2003-11-23 devnull 			else{
397 f08fdedc 2003-11-23 devnull 				sep='(';
398 f08fdedc 2003-11-23 devnull 				for(b=v->val;b && b->word;b=b->next){
399 f08fdedc 2003-11-23 devnull 					pfmt(out, "%c%q", sep, b->word);
400 f08fdedc 2003-11-23 devnull 					sep=' ';
401 f08fdedc 2003-11-23 devnull 				}
402 f08fdedc 2003-11-23 devnull 				pfmt(out, ")\n");
403 f08fdedc 2003-11-23 devnull 			}
404 f08fdedc 2003-11-23 devnull 			found=1;
405 f08fdedc 2003-11-23 devnull 		}
406 f08fdedc 2003-11-23 devnull 		else
407 f08fdedc 2003-11-23 devnull 			found=0;
408 f08fdedc 2003-11-23 devnull 		v=gvlook(a->word);
409 f08fdedc 2003-11-23 devnull 		if(v->fn) pfmt(out, "fn %s %s\n", v->name, v->fn[v->pc-1].s);
410 f08fdedc 2003-11-23 devnull 		else{
411 f08fdedc 2003-11-23 devnull 			for(bp=Builtin;bp->name;bp++)
412 f08fdedc 2003-11-23 devnull 				if(strcmp(a->word, bp->name)==0){
413 f08fdedc 2003-11-23 devnull 					pfmt(out, "builtin %s\n", a->word);
414 f08fdedc 2003-11-23 devnull 					break;
415 f08fdedc 2003-11-23 devnull 				}
416 f08fdedc 2003-11-23 devnull 			if(!bp->name){
417 f08fdedc 2003-11-23 devnull 				for(path=searchpath(a->word);path;path=path->next){
418 f08fdedc 2003-11-23 devnull 					strcpy(file, path->word);
419 f08fdedc 2003-11-23 devnull 					if(file[0]) strcat(file, "/");
420 f08fdedc 2003-11-23 devnull 					strcat(file, a->word);
421 f08fdedc 2003-11-23 devnull 					if(Executable(file)){
422 f08fdedc 2003-11-23 devnull 						pfmt(out, "%s\n", file);
423 f08fdedc 2003-11-23 devnull 						break;
424 f08fdedc 2003-11-23 devnull 					}
425 f08fdedc 2003-11-23 devnull 				}
426 f08fdedc 2003-11-23 devnull 				if(!path && !found){
427 f08fdedc 2003-11-23 devnull 					pfmt(err, "%s: not found\n", a->word);
428 f08fdedc 2003-11-23 devnull 					setstatus("not found");
429 f08fdedc 2003-11-23 devnull 				}
430 f08fdedc 2003-11-23 devnull 			}
431 f08fdedc 2003-11-23 devnull 		}
432 f08fdedc 2003-11-23 devnull 	}
433 f08fdedc 2003-11-23 devnull 	poplist();
434 f08fdedc 2003-11-23 devnull 	flush(err);
435 f08fdedc 2003-11-23 devnull }
436 f08fdedc 2003-11-23 devnull void execwait(void){
437 f08fdedc 2003-11-23 devnull 	switch(count(runq->argv->words)){
438 f08fdedc 2003-11-23 devnull 	default: Xerror1("Usage: wait [pid]"); return;
439 f08fdedc 2003-11-23 devnull 	case 2: Waitfor(atoi(runq->argv->words->next->word), 0); break;
440 f08fdedc 2003-11-23 devnull 	case 1: Waitfor(-1, 0); break;
441 f08fdedc 2003-11-23 devnull 	}
442 f08fdedc 2003-11-23 devnull 	poplist();
443 f08fdedc 2003-11-23 devnull }