op public repos

Blame

Date:: Tue May 5 03:41:15 2020 UTC
Message:: rc: add recursive descent parser The old yacc-based parser is available with the -Y flag, which will probably be removed at some point. The new -D flag dumps a parse tree of the input, without executing it. This allows comparing the output of rc -D and rc -DY on different scripts to see that the two parsers behave the same. The rc paper ends by saying: It is remarkable that in the four most recent editions of the UNIX system programmer’s manual the Bourne shell grammar described in the manual page does not admit the command who|wc. This is surely an oversight, but it suggests something darker: nobody really knows what the Bourne shell’s grammar is. Even examination of the source code is little help. The parser is implemented by recursive descent, but the routines corresponding to the syntactic categories all have a flag argument that subtly changes their operation depending on the context. Rc’s parser is implemented using yacc, so I can say precisely what the grammar is. The new recursive descent parser here has no such flags. It is a straightforward translation of the yacc. The new parser will make it easier to handle free carats in more generality as well as potentially allow the use of unquoted = as a word character. Going through this exercise has highlighted a few dark corners here as well. For example, I was surprised to find that x >f | y >f x | y are different commands (the latter redirects y's output). It is similarly surprising that a=b x | y sets a during the execution of y. It is also a bit counter-intuitive x | y | z x | if(c) y | z are not both 3-phase pipelines. These are certainly not things we should change, but they are not entirely obvious from the man page description, undercutting the quoted claim a bit. On the other hand, who | wc is clearly accepted by the grammar in the manual page, and the new parser still handles that test case.
Actions:: History | Blob | Raw File
  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 c8f53842 2007-03-26 devnull 
 19 c8f53842 2007-03-26 devnull void
 20 c8f53842 2007-03-26 devnull Xsimple(void)
 21 c8f53842 2007-03-26 devnull {
 22 f08fdedc 2003-11-23 devnull 	word *a;
 23 c8f53842 2007-03-26 devnull 	thread *p = runq;
 24 f08fdedc 2003-11-23 devnull 	var *v;
 25 f08fdedc 2003-11-23 devnull 	struct builtin *bp;
 26 c8f53842 2007-03-26 devnull 	int pid;
 27 f08fdedc 2003-11-23 devnull 	globlist();
 28 c8f53842 2007-03-26 devnull 	a = runq->argv->words;
 29 f08fdedc 2003-11-23 devnull 	if(a==0){
 30 f08fdedc 2003-11-23 devnull 		Xerror1("empty argument list");
 31 f08fdedc 2003-11-23 devnull 		return;
 32 f08fdedc 2003-11-23 devnull 	}
 33 f08fdedc 2003-11-23 devnull 	if(flag['x'])
 34 f08fdedc 2003-11-23 devnull 		pfmt(err, "%v\n", p->argv->words); /* wrong, should do redirs */
 35 c8f53842 2007-03-26 devnull 	v = gvlook(a->word);
 36 f08fdedc 2003-11-23 devnull 	if(v->fn)
 37 f08fdedc 2003-11-23 devnull 		execfunc(v);
 38 f08fdedc 2003-11-23 devnull 	else{
 39 f08fdedc 2003-11-23 devnull 		if(strcmp(a->word, "builtin")==0){
 40 f08fdedc 2003-11-23 devnull 			if(count(a)==1){
 41 f08fdedc 2003-11-23 devnull 				pfmt(err, "builtin: empty argument list\n");
 42 f08fdedc 2003-11-23 devnull 				setstatus("empty arg list");
 43 f08fdedc 2003-11-23 devnull 				poplist();
 44 f08fdedc 2003-11-23 devnull 				return;
 45 f08fdedc 2003-11-23 devnull 			}
 46 c8f53842 2007-03-26 devnull 			a = a->next;
 47 f08fdedc 2003-11-23 devnull 			popword();
 48 f08fdedc 2003-11-23 devnull 		}
 49 c8f53842 2007-03-26 devnull 		for(bp = Builtin;bp->name;bp++)
 50 f08fdedc 2003-11-23 devnull 			if(strcmp(a->word, bp->name)==0){
 51 f08fdedc 2003-11-23 devnull 				(*bp->fnc)();
 52 f08fdedc 2003-11-23 devnull 				return;
 53 f08fdedc 2003-11-23 devnull 			}
 54 f08fdedc 2003-11-23 devnull 		if(exitnext()){
 55 f08fdedc 2003-11-23 devnull 			/* fork and wait is redundant */
 56 f08fdedc 2003-11-23 devnull 			pushword("exec");
 57 f08fdedc 2003-11-23 devnull 			execexec();
 58 f08fdedc 2003-11-23 devnull 			Xexit();
 59 f08fdedc 2003-11-23 devnull 		}
 60 f08fdedc 2003-11-23 devnull 		else{
 61 f08fdedc 2003-11-23 devnull 			flush(err);
 62 f08fdedc 2003-11-23 devnull 			Updenv();	/* necessary so changes don't go out again */
 63 c8f53842 2007-03-26 devnull 			if((pid = execforkexec()) < 0){
 64 f08fdedc 2003-11-23 devnull 				Xerror("try again");
 65 f08fdedc 2003-11-23 devnull 				return;
 66 f08fdedc 2003-11-23 devnull 			}
 67 c8f53842 2007-03-26 devnull 
 68 c8f53842 2007-03-26 devnull 			/* interrupts don't get us out */
 69 c8f53842 2007-03-26 devnull 			poplist();
 70 c8f53842 2007-03-26 devnull 			while(Waitfor(pid, 1) < 0)
 71 c8f53842 2007-03-26 devnull 				;
 72 f08fdedc 2003-11-23 devnull 		}
 73 f08fdedc 2003-11-23 devnull 	}
 74 f08fdedc 2003-11-23 devnull }
 75 c8f53842 2007-03-26 devnull struct word nullpath = { "", 0};
 76 c8f53842 2007-03-26 devnull 
 77 c8f53842 2007-03-26 devnull void
 78 c8f53842 2007-03-26 devnull doredir(redir *rp)
 79 f08fdedc 2003-11-23 devnull {
 80 f08fdedc 2003-11-23 devnull 	if(rp){
 81 f08fdedc 2003-11-23 devnull 		doredir(rp->next);
 82 f08fdedc 2003-11-23 devnull 		switch(rp->type){
 83 f08fdedc 2003-11-23 devnull 		case ROPEN:
 84 f08fdedc 2003-11-23 devnull 			if(rp->from!=rp->to){
 85 f08fdedc 2003-11-23 devnull 				Dup(rp->from, rp->to);
 86 f08fdedc 2003-11-23 devnull 				close(rp->from);
 87 f08fdedc 2003-11-23 devnull 			}
 88 f08fdedc 2003-11-23 devnull 			break;
 89 c8f53842 2007-03-26 devnull 		case RDUP:
 90 c8f53842 2007-03-26 devnull 			Dup(rp->from, rp->to);
 91 c8f53842 2007-03-26 devnull 			break;
 92 c8f53842 2007-03-26 devnull 		case RCLOSE:
 93 c8f53842 2007-03-26 devnull 			close(rp->from);
 94 c8f53842 2007-03-26 devnull 			break;
 95 f08fdedc 2003-11-23 devnull 		}
 96 f08fdedc 2003-11-23 devnull 	}
 97 f08fdedc 2003-11-23 devnull }
 98 c8f53842 2007-03-26 devnull 
 99 c8f53842 2007-03-26 devnull word*
100 c8f53842 2007-03-26 devnull searchpath(char *w)
101 c8f53842 2007-03-26 devnull {
102 f08fdedc 2003-11-23 devnull 	word *path;
103 f08fdedc 2003-11-23 devnull 	if(strncmp(w, "/", 1)==0
104 de39860a 2005-01-23 devnull /*	|| strncmp(w, "#", 1)==0 */
105 f08fdedc 2003-11-23 devnull 	|| strncmp(w, "./", 2)==0
106 f08fdedc 2003-11-23 devnull 	|| strncmp(w, "../", 3)==0
107 c8f53842 2007-03-26 devnull 	|| (path = vlook("path")->val)==0)
108 f08fdedc 2003-11-23 devnull 		path=&nullpath;
109 f08fdedc 2003-11-23 devnull 	return path;
110 f08fdedc 2003-11-23 devnull }
111 c8f53842 2007-03-26 devnull 
112 c8f53842 2007-03-26 devnull void
113 c8f53842 2007-03-26 devnull execexec(void)
114 c8f53842 2007-03-26 devnull {
115 f08fdedc 2003-11-23 devnull 	popword();	/* "exec" */
116 f08fdedc 2003-11-23 devnull 	if(runq->argv->words==0){
117 f08fdedc 2003-11-23 devnull 		Xerror1("empty argument list");
118 f08fdedc 2003-11-23 devnull 		return;
119 f08fdedc 2003-11-23 devnull 	}
120 f08fdedc 2003-11-23 devnull 	doredir(runq->redir);
121 f08fdedc 2003-11-23 devnull 	Execute(runq->argv->words, searchpath(runq->argv->words->word));
122 f08fdedc 2003-11-23 devnull 	poplist();
123 f08fdedc 2003-11-23 devnull }
124 c8f53842 2007-03-26 devnull 
125 c8f53842 2007-03-26 devnull void
126 c8f53842 2007-03-26 devnull execfunc(var *func)
127 f08fdedc 2003-11-23 devnull {
128 f08fdedc 2003-11-23 devnull 	word *starval;
129 f08fdedc 2003-11-23 devnull 	popword();
130 c8f53842 2007-03-26 devnull 	starval = runq->argv->words;
131 c8f53842 2007-03-26 devnull 	runq->argv->words = 0;
132 f08fdedc 2003-11-23 devnull 	poplist();
133 362264eb 2008-08-14 rsc 	start(func->fn, func->pc, runq->local);
134 c8f53842 2007-03-26 devnull 	runq->local = newvar(strdup("*"), runq->local);
135 c8f53842 2007-03-26 devnull 	runq->local->val = starval;
136 c8f53842 2007-03-26 devnull 	runq->local->changed = 1;
137 f08fdedc 2003-11-23 devnull }
138 c8f53842 2007-03-26 devnull 
139 c8f53842 2007-03-26 devnull int
140 c8f53842 2007-03-26 devnull dochdir(char *word)
141 c8f53842 2007-03-26 devnull {
142 f08fdedc 2003-11-23 devnull 	/* report to /dev/wdir if it exists and we're interactive */
143 f08fdedc 2003-11-23 devnull 	static int wdirfd = -2;
144 f08fdedc 2003-11-23 devnull 	if(chdir(word)<0) return -1;
145 f08fdedc 2003-11-23 devnull 	if(flag['i']!=0){
146 f08fdedc 2003-11-23 devnull 		if(wdirfd==-2)	/* try only once */
147 f08fdedc 2003-11-23 devnull 			wdirfd = open("/dev/wdir", OWRITE|OCEXEC);
148 f08fdedc 2003-11-23 devnull 		if(wdirfd>=0)
149 f08fdedc 2003-11-23 devnull 			write(wdirfd, word, strlen(word));
150 f08fdedc 2003-11-23 devnull 	}
151 f08fdedc 2003-11-23 devnull 	return 1;
152 f08fdedc 2003-11-23 devnull }
153 c8f53842 2007-03-26 devnull 
154 c8f53842 2007-03-26 devnull void
155 c8f53842 2007-03-26 devnull execcd(void)
156 c8f53842 2007-03-26 devnull {
157 c8f53842 2007-03-26 devnull 	word *a = runq->argv->words;
158 f08fdedc 2003-11-23 devnull 	word *cdpath;
159 f08fdedc 2003-11-23 devnull 	char dir[512];
160 f08fdedc 2003-11-23 devnull 	setstatus("can't cd");
161 c8f53842 2007-03-26 devnull 	cdpath = vlook("cdpath")->val;
162 f08fdedc 2003-11-23 devnull 	switch(count(a)){
163 f08fdedc 2003-11-23 devnull 	default:
164 f08fdedc 2003-11-23 devnull 		pfmt(err, "Usage: cd [directory]\n");
165 f08fdedc 2003-11-23 devnull 		break;
166 f08fdedc 2003-11-23 devnull 	case 2:
167 c8f53842 2007-03-26 devnull 		if(a->next->word[0]=='/' || cdpath==0)
168 c8f53842 2007-03-26 devnull 			cdpath=&nullpath;
169 c8f53842 2007-03-26 devnull 		for(;cdpath;cdpath = cdpath->next){
170 f08fdedc 2003-11-23 devnull 			strcpy(dir, cdpath->word);
171 c8f53842 2007-03-26 devnull 			if(dir[0])
172 c8f53842 2007-03-26 devnull 				strcat(dir, "/");
173 f08fdedc 2003-11-23 devnull 			strcat(dir, a->next->word);
174 f08fdedc 2003-11-23 devnull 			if(dochdir(dir)>=0){
175 f08fdedc 2003-11-23 devnull 				if(strlen(cdpath->word)
176 f08fdedc 2003-11-23 devnull 				&& strcmp(cdpath->word, ".")!=0)
177 f08fdedc 2003-11-23 devnull 					pfmt(err, "%s\n", dir);
178 f08fdedc 2003-11-23 devnull 				setstatus("");
179 f08fdedc 2003-11-23 devnull 				break;
180 f08fdedc 2003-11-23 devnull 			}
181 f08fdedc 2003-11-23 devnull 		}
182 c8f53842 2007-03-26 devnull 		if(cdpath==0)
183 c8f53842 2007-03-26 devnull 			pfmt(err, "Can't cd %s: %r\n", a->next->word);
184 f08fdedc 2003-11-23 devnull 		break;
185 f08fdedc 2003-11-23 devnull 	case 1:
186 c8f53842 2007-03-26 devnull 		a = vlook("home")->val;
187 f08fdedc 2003-11-23 devnull 		if(count(a)>=1){
188 f08fdedc 2003-11-23 devnull 			if(dochdir(a->word)>=0)
189 f08fdedc 2003-11-23 devnull 				setstatus("");
190 f08fdedc 2003-11-23 devnull 			else
191 f08fdedc 2003-11-23 devnull 				pfmt(err, "Can't cd %s: %r\n", a->word);
192 f08fdedc 2003-11-23 devnull 		}
193 f08fdedc 2003-11-23 devnull 		else
194 f08fdedc 2003-11-23 devnull 			pfmt(err, "Can't cd -- $home empty\n");
195 f08fdedc 2003-11-23 devnull 		break;
196 f08fdedc 2003-11-23 devnull 	}
197 f08fdedc 2003-11-23 devnull 	poplist();
198 f08fdedc 2003-11-23 devnull }
199 c8f53842 2007-03-26 devnull 
200 c8f53842 2007-03-26 devnull void
201 c8f53842 2007-03-26 devnull execexit(void)
202 c8f53842 2007-03-26 devnull {
203 f08fdedc 2003-11-23 devnull 	switch(count(runq->argv->words)){
204 c8f53842 2007-03-26 devnull 	default:
205 c8f53842 2007-03-26 devnull 		pfmt(err, "Usage: exit [status]\nExiting anyway\n");
206 c8f53842 2007-03-26 devnull 	case 2:
207 c8f53842 2007-03-26 devnull 		setstatus(runq->argv->words->next->word);
208 f08fdedc 2003-11-23 devnull 	case 1:	Xexit();
209 f08fdedc 2003-11-23 devnull 	}
210 f08fdedc 2003-11-23 devnull }
211 c8f53842 2007-03-26 devnull 
212 c8f53842 2007-03-26 devnull void
213 c8f53842 2007-03-26 devnull execshift(void)
214 c8f53842 2007-03-26 devnull {
215 f08fdedc 2003-11-23 devnull 	int n;
216 f08fdedc 2003-11-23 devnull 	word *a;
217 f08fdedc 2003-11-23 devnull 	var *star;
218 f08fdedc 2003-11-23 devnull 	switch(count(runq->argv->words)){
219 f08fdedc 2003-11-23 devnull 	default:
220 f08fdedc 2003-11-23 devnull 		pfmt(err, "Usage: shift [n]\n");
221 f08fdedc 2003-11-23 devnull 		setstatus("shift usage");
222 f08fdedc 2003-11-23 devnull 		poplist();
223 f08fdedc 2003-11-23 devnull 		return;
224 c8f53842 2007-03-26 devnull 	case 2:
225 c8f53842 2007-03-26 devnull 		n = atoi(runq->argv->words->next->word);
226 c8f53842 2007-03-26 devnull 		break;
227 c8f53842 2007-03-26 devnull 	case 1:
228 c8f53842 2007-03-26 devnull 		n = 1;
229 c8f53842 2007-03-26 devnull 		break;
230 f08fdedc 2003-11-23 devnull 	}
231 c8f53842 2007-03-26 devnull 	star = vlook("*");
232 f08fdedc 2003-11-23 devnull 	for(;n && star->val;--n){
233 c8f53842 2007-03-26 devnull 		a = star->val->next;
234 f08fdedc 2003-11-23 devnull 		efree(star->val->word);
235 f08fdedc 2003-11-23 devnull 		efree((char *)star->val);
236 c8f53842 2007-03-26 devnull 		star->val = a;
237 c8f53842 2007-03-26 devnull 		star->changed = 1;
238 f08fdedc 2003-11-23 devnull 	}
239 f08fdedc 2003-11-23 devnull 	setstatus("");
240 f08fdedc 2003-11-23 devnull 	poplist();
241 f08fdedc 2003-11-23 devnull }
242 c8f53842 2007-03-26 devnull 
243 c8f53842 2007-03-26 devnull int
244 c8f53842 2007-03-26 devnull octal(char *s)
245 f08fdedc 2003-11-23 devnull {
246 c8f53842 2007-03-26 devnull 	int n = 0;
247 f08fdedc 2003-11-23 devnull 	while(*s==' ' || *s=='\t' || *s=='\n') s++;
248 c8f53842 2007-03-26 devnull 	while('0'<=*s && *s<='7') n = n*8+*s++-'0';
249 f08fdedc 2003-11-23 devnull 	return n;
250 f08fdedc 2003-11-23 devnull }
251 c8f53842 2007-03-26 devnull 
252 c8f53842 2007-03-26 devnull int
253 c8f53842 2007-03-26 devnull mapfd(int fd)
254 f08fdedc 2003-11-23 devnull {
255 f08fdedc 2003-11-23 devnull 	redir *rp;
256 c8f53842 2007-03-26 devnull 	for(rp = runq->redir;rp;rp = rp->next){
257 f08fdedc 2003-11-23 devnull 		switch(rp->type){
258 f08fdedc 2003-11-23 devnull 		case RCLOSE:
259 c8f53842 2007-03-26 devnull 			if(rp->from==fd)
260 c8f53842 2007-03-26 devnull 				fd=-1;
261 f08fdedc 2003-11-23 devnull 			break;
262 f08fdedc 2003-11-23 devnull 		case RDUP:
263 f08fdedc 2003-11-23 devnull 		case ROPEN:
264 c8f53842 2007-03-26 devnull 			if(rp->to==fd)
265 c8f53842 2007-03-26 devnull 				fd = rp->from;
266 f08fdedc 2003-11-23 devnull 			break;
267 f08fdedc 2003-11-23 devnull 		}
268 f08fdedc 2003-11-23 devnull 	}
269 f08fdedc 2003-11-23 devnull 	return fd;
270 f08fdedc 2003-11-23 devnull }
271 f08fdedc 2003-11-23 devnull union code rdcmds[4];
272 c8f53842 2007-03-26 devnull 
273 c8f53842 2007-03-26 devnull void
274 c8f53842 2007-03-26 devnull execcmds(io *f)
275 f08fdedc 2003-11-23 devnull {
276 c8f53842 2007-03-26 devnull 	static int first = 1;
277 f08fdedc 2003-11-23 devnull 	if(first){
278 c8f53842 2007-03-26 devnull 		rdcmds[0].i = 1;
279 c8f53842 2007-03-26 devnull 		rdcmds[1].f = Xrdcmds;
280 c8f53842 2007-03-26 devnull 		rdcmds[2].f = Xreturn;
281 c8f53842 2007-03-26 devnull 		first = 0;
282 f08fdedc 2003-11-23 devnull 	}
283 f08fdedc 2003-11-23 devnull 	start(rdcmds, 1, runq->local);
284 c8f53842 2007-03-26 devnull 	runq->cmdfd = f;
285 c8f53842 2007-03-26 devnull 	runq->iflast = 0;
286 f08fdedc 2003-11-23 devnull }
287 c8f53842 2007-03-26 devnull 
288 c8f53842 2007-03-26 devnull void
289 c8f53842 2007-03-26 devnull execeval(void)
290 c8f53842 2007-03-26 devnull {
291 f08fdedc 2003-11-23 devnull 	char *cmdline, *s, *t;
292 c8f53842 2007-03-26 devnull 	int len = 0;
293 f08fdedc 2003-11-23 devnull 	word *ap;
294 f08fdedc 2003-11-23 devnull 	if(count(runq->argv->words)<=1){
295 f08fdedc 2003-11-23 devnull 		Xerror1("Usage: eval cmd ...");
296 f08fdedc 2003-11-23 devnull 		return;
297 f08fdedc 2003-11-23 devnull 	}
298 c8f53842 2007-03-26 devnull 	eflagok = 1;
299 c8f53842 2007-03-26 devnull 	for(ap = runq->argv->words->next;ap;ap = ap->next)
300 f08fdedc 2003-11-23 devnull 		len+=1+strlen(ap->word);
301 c8f53842 2007-03-26 devnull 	cmdline = emalloc(len);
302 c8f53842 2007-03-26 devnull 	s = cmdline;
303 c8f53842 2007-03-26 devnull 	for(ap = runq->argv->words->next;ap;ap = ap->next){
304 c8f53842 2007-03-26 devnull 		for(t = ap->word;*t;) *s++=*t++;
305 f08fdedc 2003-11-23 devnull 		*s++=' ';
306 f08fdedc 2003-11-23 devnull 	}
307 f08fdedc 2003-11-23 devnull 	s[-1]='\n';
308 f08fdedc 2003-11-23 devnull 	poplist();
309 f08fdedc 2003-11-23 devnull 	execcmds(opencore(cmdline, len));
310 f08fdedc 2003-11-23 devnull 	efree(cmdline);
311 f08fdedc 2003-11-23 devnull }
312 f08fdedc 2003-11-23 devnull union code dotcmds[14];
313 c8f53842 2007-03-26 devnull 
314 c8f53842 2007-03-26 devnull void
315 c8f53842 2007-03-26 devnull execdot(void)
316 c8f53842 2007-03-26 devnull {
317 c8f53842 2007-03-26 devnull 	int iflag = 0;
318 f08fdedc 2003-11-23 devnull 	int fd;
319 f08fdedc 2003-11-23 devnull 	list *av;
320 c8f53842 2007-03-26 devnull 	thread *p = runq;
321 f08fdedc 2003-11-23 devnull 	char *zero;
322 c8f53842 2007-03-26 devnull 	static int first = 1;
323 f08fdedc 2003-11-23 devnull 	char file[512];
324 f08fdedc 2003-11-23 devnull 	word *path;
325 47d4646e 2020-05-05 rsc 
326 f08fdedc 2003-11-23 devnull 	if(first){
327 c8f53842 2007-03-26 devnull 		dotcmds[0].i = 1;
328 c8f53842 2007-03-26 devnull 		dotcmds[1].f = Xmark;
329 c8f53842 2007-03-26 devnull 		dotcmds[2].f = Xword;
330 f08fdedc 2003-11-23 devnull 		dotcmds[3].s="0";
331 c8f53842 2007-03-26 devnull 		dotcmds[4].f = Xlocal;
332 c8f53842 2007-03-26 devnull 		dotcmds[5].f = Xmark;
333 c8f53842 2007-03-26 devnull 		dotcmds[6].f = Xword;
334 f08fdedc 2003-11-23 devnull 		dotcmds[7].s="*";
335 c8f53842 2007-03-26 devnull 		dotcmds[8].f = Xlocal;
336 c8f53842 2007-03-26 devnull 		dotcmds[9].f = Xrdcmds;
337 c8f53842 2007-03-26 devnull 		dotcmds[10].f = Xunlocal;
338 c8f53842 2007-03-26 devnull 		dotcmds[11].f = Xunlocal;
339 c8f53842 2007-03-26 devnull 		dotcmds[12].f = Xreturn;
340 c8f53842 2007-03-26 devnull 		first = 0;
341 f08fdedc 2003-11-23 devnull 	}
342 f08fdedc 2003-11-23 devnull 	else
343 c8f53842 2007-03-26 devnull 		eflagok = 1;
344 f08fdedc 2003-11-23 devnull 	popword();
345 f08fdedc 2003-11-23 devnull 	if(p->argv->words && strcmp(p->argv->words->word, "-i")==0){
346 c8f53842 2007-03-26 devnull 		iflag = 1;
347 f08fdedc 2003-11-23 devnull 		popword();
348 f08fdedc 2003-11-23 devnull 	}
349 f08fdedc 2003-11-23 devnull 	/* get input file */
350 f08fdedc 2003-11-23 devnull 	if(p->argv->words==0){
351 f08fdedc 2003-11-23 devnull 		Xerror1("Usage: . [-i] file [arg ...]");
352 f08fdedc 2003-11-23 devnull 		return;
353 f08fdedc 2003-11-23 devnull 	}
354 c8f53842 2007-03-26 devnull 	zero = strdup(p->argv->words->word);
355 f08fdedc 2003-11-23 devnull 	popword();
356 f08fdedc 2003-11-23 devnull 	fd=-1;
357 c8f53842 2007-03-26 devnull 	for(path = searchpath(zero);path;path = path->next){
358 f08fdedc 2003-11-23 devnull 		strcpy(file, path->word);
359 c8f53842 2007-03-26 devnull 		if(file[0])
360 c8f53842 2007-03-26 devnull 			strcat(file, "/");
361 f08fdedc 2003-11-23 devnull 		strcat(file, zero);
362 c8f53842 2007-03-26 devnull 		if((fd = open(file, 0))>=0) break;
363 f08fdedc 2003-11-23 devnull 		if(strcmp(file, "/dev/stdin")==0){	/* for sun & ucb */
364 c8f53842 2007-03-26 devnull 			fd = Dup1(0);
365 c8f53842 2007-03-26 devnull 			if(fd>=0)
366 c8f53842 2007-03-26 devnull 				break;
367 f08fdedc 2003-11-23 devnull 		}
368 f08fdedc 2003-11-23 devnull 	}
369 f08fdedc 2003-11-23 devnull 	if(fd<0){
370 f08fdedc 2003-11-23 devnull 		pfmt(err, "%s: ", zero);
371 f08fdedc 2003-11-23 devnull 		setstatus("can't open");
372 f08fdedc 2003-11-23 devnull 		Xerror(".: can't open");
373 f08fdedc 2003-11-23 devnull 		return;
374 f08fdedc 2003-11-23 devnull 	}
375 f08fdedc 2003-11-23 devnull 	/* set up for a new command loop */
376 f08fdedc 2003-11-23 devnull 	start(dotcmds, 1, (struct var *)0);
377 f08fdedc 2003-11-23 devnull 	pushredir(RCLOSE, fd, 0);
378 c8f53842 2007-03-26 devnull 	runq->cmdfile = zero;
379 c8f53842 2007-03-26 devnull 	runq->cmdfd = openfd(fd);
380 c8f53842 2007-03-26 devnull 	runq->iflag = iflag;
381 c8f53842 2007-03-26 devnull 	runq->iflast = 0;
382 f08fdedc 2003-11-23 devnull 	/* push $* value */
383 f08fdedc 2003-11-23 devnull 	pushlist();
384 c8f53842 2007-03-26 devnull 	runq->argv->words = p->argv->words;
385 f08fdedc 2003-11-23 devnull 	/* free caller's copy of $* */
386 c8f53842 2007-03-26 devnull 	av = p->argv;
387 c8f53842 2007-03-26 devnull 	p->argv = av->next;
388 f08fdedc 2003-11-23 devnull 	efree((char *)av);
389 f08fdedc 2003-11-23 devnull 	/* push $0 value */
390 f08fdedc 2003-11-23 devnull 	pushlist();
391 f08fdedc 2003-11-23 devnull 	pushword(zero);
392 f08fdedc 2003-11-23 devnull 	ndot++;
393 f08fdedc 2003-11-23 devnull }
394 c8f53842 2007-03-26 devnull 
395 c8f53842 2007-03-26 devnull void
396 c8f53842 2007-03-26 devnull execflag(void)
397 c8f53842 2007-03-26 devnull {
398 f08fdedc 2003-11-23 devnull 	char *letter, *val;
399 f08fdedc 2003-11-23 devnull 	switch(count(runq->argv->words)){
400 f08fdedc 2003-11-23 devnull 	case 2:
401 f08fdedc 2003-11-23 devnull 		setstatus(flag[(uchar)runq->argv->words->next->word[0]]?"":"flag not set");
402 f08fdedc 2003-11-23 devnull 		break;
403 f08fdedc 2003-11-23 devnull 	case 3:
404 c8f53842 2007-03-26 devnull 		letter = runq->argv->words->next->word;
405 c8f53842 2007-03-26 devnull 		val = runq->argv->words->next->next->word;
406 f08fdedc 2003-11-23 devnull 		if(strlen(letter)==1){
407 f08fdedc 2003-11-23 devnull 			if(strcmp(val, "+")==0){
408 c8f53842 2007-03-26 devnull 				flag[(uchar)letter[0]] = flagset;
409 f08fdedc 2003-11-23 devnull 				break;
410 f08fdedc 2003-11-23 devnull 			}
411 f08fdedc 2003-11-23 devnull 			if(strcmp(val, "-")==0){
412 c8f53842 2007-03-26 devnull 				flag[(uchar)letter[0]] = 0;
413 f08fdedc 2003-11-23 devnull 				break;
414 f08fdedc 2003-11-23 devnull 			}
415 f08fdedc 2003-11-23 devnull 		}
416 f08fdedc 2003-11-23 devnull 	default:
417 f08fdedc 2003-11-23 devnull 		Xerror1("Usage: flag [letter] [+-]");
418 f08fdedc 2003-11-23 devnull 		return;
419 f08fdedc 2003-11-23 devnull 	}
420 f08fdedc 2003-11-23 devnull 	poplist();
421 f08fdedc 2003-11-23 devnull }
422 c8f53842 2007-03-26 devnull 
423 c8f53842 2007-03-26 devnull void
424 c8f53842 2007-03-26 devnull execwhatis(void){	/* mildly wrong -- should fork before writing */
425 f08fdedc 2003-11-23 devnull 	word *a, *b, *path;
426 f08fdedc 2003-11-23 devnull 	var *v;
427 f08fdedc 2003-11-23 devnull 	struct builtin *bp;
428 f08fdedc 2003-11-23 devnull 	char file[512];
429 f08fdedc 2003-11-23 devnull 	struct io out[1];
430 f08fdedc 2003-11-23 devnull 	int found, sep;
431 c8f53842 2007-03-26 devnull 	a = runq->argv->words->next;
432 f08fdedc 2003-11-23 devnull 	if(a==0){
433 f08fdedc 2003-11-23 devnull 		Xerror1("Usage: whatis name ...");
434 f08fdedc 2003-11-23 devnull 		return;
435 f08fdedc 2003-11-23 devnull 	}
436 f08fdedc 2003-11-23 devnull 	setstatus("");
437 c8f53842 2007-03-26 devnull 	out->fd = mapfd(1);
438 c8f53842 2007-03-26 devnull 	out->bufp = out->buf;
439 c8f53842 2007-03-26 devnull 	out->ebuf = &out->buf[NBUF];
440 c8f53842 2007-03-26 devnull 	out->strp = 0;
441 c8f53842 2007-03-26 devnull 	for(;a;a = a->next){
442 c8f53842 2007-03-26 devnull 		v = vlook(a->word);
443 f08fdedc 2003-11-23 devnull 		if(v->val){
444 f08fdedc 2003-11-23 devnull 			pfmt(out, "%s=", a->word);
445 f08fdedc 2003-11-23 devnull 			if(v->val->next==0)
446 f08fdedc 2003-11-23 devnull 				pfmt(out, "%q\n", v->val->word);
447 f08fdedc 2003-11-23 devnull 			else{
448 f08fdedc 2003-11-23 devnull 				sep='(';
449 c8f53842 2007-03-26 devnull 				for(b = v->val;b && b->word;b = b->next){
450 f08fdedc 2003-11-23 devnull 					pfmt(out, "%c%q", sep, b->word);
451 f08fdedc 2003-11-23 devnull 					sep=' ';
452 f08fdedc 2003-11-23 devnull 				}
453 f08fdedc 2003-11-23 devnull 				pfmt(out, ")\n");
454 f08fdedc 2003-11-23 devnull 			}
455 c8f53842 2007-03-26 devnull 			found = 1;
456 f08fdedc 2003-11-23 devnull 		}
457 f08fdedc 2003-11-23 devnull 		else
458 c8f53842 2007-03-26 devnull 			found = 0;
459 c8f53842 2007-03-26 devnull 		v = gvlook(a->word);
460 c8f53842 2007-03-26 devnull 		if(v->fn)
461 c8f53842 2007-03-26 devnull 			pfmt(out, "fn %s %s\n", v->name, v->fn[v->pc-1].s);
462 f08fdedc 2003-11-23 devnull 		else{
463 c8f53842 2007-03-26 devnull 			for(bp = Builtin;bp->name;bp++)
464 f08fdedc 2003-11-23 devnull 				if(strcmp(a->word, bp->name)==0){
465 f08fdedc 2003-11-23 devnull 					pfmt(out, "builtin %s\n", a->word);
466 f08fdedc 2003-11-23 devnull 					break;
467 f08fdedc 2003-11-23 devnull 				}
468 f08fdedc 2003-11-23 devnull 			if(!bp->name){
469 c8f53842 2007-03-26 devnull 				for(path = searchpath(a->word);path;path = path->next){
470 f08fdedc 2003-11-23 devnull 					strcpy(file, path->word);
471 c8f53842 2007-03-26 devnull 					if(file[0])
472 c8f53842 2007-03-26 devnull 						strcat(file, "/");
473 f08fdedc 2003-11-23 devnull 					strcat(file, a->word);
474 f08fdedc 2003-11-23 devnull 					if(Executable(file)){
475 f08fdedc 2003-11-23 devnull 						pfmt(out, "%s\n", file);
476 f08fdedc 2003-11-23 devnull 						break;
477 f08fdedc 2003-11-23 devnull 					}
478 f08fdedc 2003-11-23 devnull 				}
479 f08fdedc 2003-11-23 devnull 				if(!path && !found){
480 f08fdedc 2003-11-23 devnull 					pfmt(err, "%s: not found\n", a->word);
481 f08fdedc 2003-11-23 devnull 					setstatus("not found");
482 f08fdedc 2003-11-23 devnull 				}
483 f08fdedc 2003-11-23 devnull 			}
484 f08fdedc 2003-11-23 devnull 		}
485 f08fdedc 2003-11-23 devnull 	}
486 f08fdedc 2003-11-23 devnull 	poplist();
487 f08fdedc 2003-11-23 devnull 	flush(err);
488 f08fdedc 2003-11-23 devnull }
489 c8f53842 2007-03-26 devnull 
490 c8f53842 2007-03-26 devnull void
491 c8f53842 2007-03-26 devnull execwait(void)
492 c8f53842 2007-03-26 devnull {
493 f08fdedc 2003-11-23 devnull 	switch(count(runq->argv->words)){
494 c8f53842 2007-03-26 devnull 	default:
495 c8f53842 2007-03-26 devnull 		Xerror1("Usage: wait [pid]");
496 c8f53842 2007-03-26 devnull 		return;
497 c8f53842 2007-03-26 devnull 	case 2:
498 c8f53842 2007-03-26 devnull 		Waitfor(atoi(runq->argv->words->next->word), 0);
499 c8f53842 2007-03-26 devnull 		break;
500 c8f53842 2007-03-26 devnull 	case 1:
501 c8f53842 2007-03-26 devnull 		Waitfor(-1, 0);
502 c8f53842 2007-03-26 devnull 		break;
503 f08fdedc 2003-11-23 devnull 	}
504 f08fdedc 2003-11-23 devnull 	poplist();
505 f08fdedc 2003-11-23 devnull }