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"
7 f08fdedc 2003-11-23 devnull * Start executing the given code at the given pc with the given redirection
9 f08fdedc 2003-11-23 devnull char *argv0="rc";
12 c8f53842 2007-03-26 devnull start(code *c, int pc, var *local)
14 c8f53842 2007-03-26 devnull struct thread *p = new(struct thread);
16 c8f53842 2007-03-26 devnull p->code = codecopy(c);
17 c8f53842 2007-03-26 devnull p->pc = pc;
18 c8f53842 2007-03-26 devnull p->argv = 0;
19 c8f53842 2007-03-26 devnull p->redir = p->startredir = runq?runq->redir:0;
20 c8f53842 2007-03-26 devnull p->local = local;
21 c8f53842 2007-03-26 devnull p->cmdfile = 0;
22 c8f53842 2007-03-26 devnull p->cmdfd = 0;
23 c8f53842 2007-03-26 devnull p->eof = 0;
24 c8f53842 2007-03-26 devnull p->iflag = 0;
25 c8f53842 2007-03-26 devnull p->lineno = 1;
26 c8f53842 2007-03-26 devnull p->ret = runq;
27 c8f53842 2007-03-26 devnull runq = p;
31 c8f53842 2007-03-26 devnull newword(char *wd, word *next)
33 c8f53842 2007-03-26 devnull word *p = new(word);
34 c8f53842 2007-03-26 devnull p->word = strdup(wd);
35 c8f53842 2007-03-26 devnull p->next = next;
36 f08fdedc 2003-11-23 devnull return p;
40 c8f53842 2007-03-26 devnull pushword(char *wd)
42 c8f53842 2007-03-26 devnull if(runq->argv==0)
43 c8f53842 2007-03-26 devnull panic("pushword but no argv!", 0);
44 c8f53842 2007-03-26 devnull runq->argv->words = newword(wd, runq->argv->words);
48 c8f53842 2007-03-26 devnull popword(void)
51 c8f53842 2007-03-26 devnull if(runq->argv==0)
52 c8f53842 2007-03-26 devnull panic("popword but no argv!", 0);
53 c8f53842 2007-03-26 devnull p = runq->argv->words;
55 c8f53842 2007-03-26 devnull panic("popword but no word!", 0);
56 c8f53842 2007-03-26 devnull runq->argv->words = p->next;
57 f08fdedc 2003-11-23 devnull efree(p->word);
58 f08fdedc 2003-11-23 devnull efree((char *)p);
62 c8f53842 2007-03-26 devnull freelist(word *w)
64 f08fdedc 2003-11-23 devnull word *nw;
65 f08fdedc 2003-11-23 devnull while(w){
66 c8f53842 2007-03-26 devnull nw = w->next;
67 f08fdedc 2003-11-23 devnull efree(w->word);
68 f08fdedc 2003-11-23 devnull efree((char *)w);
74 c8f53842 2007-03-26 devnull pushlist(void)
76 c8f53842 2007-03-26 devnull list *p = new(list);
77 c8f53842 2007-03-26 devnull p->next = runq->argv;
78 c8f53842 2007-03-26 devnull p->words = 0;
79 c8f53842 2007-03-26 devnull runq->argv = p;
83 c8f53842 2007-03-26 devnull poplist(void)
85 c8f53842 2007-03-26 devnull list *p = runq->argv;
87 c8f53842 2007-03-26 devnull panic("poplist but no argv", 0);
88 f08fdedc 2003-11-23 devnull freelist(p->words);
89 c8f53842 2007-03-26 devnull runq->argv = p->next;
90 f08fdedc 2003-11-23 devnull efree((char *)p);
94 c8f53842 2007-03-26 devnull count(word *w)
97 c8f53842 2007-03-26 devnull for(n = 0;w;n++) w = w->next;
98 f08fdedc 2003-11-23 devnull return n;
102 c8f53842 2007-03-26 devnull pushredir(int type, int from, int to)
104 c8f53842 2007-03-26 devnull redir * rp = new(redir);
105 c8f53842 2007-03-26 devnull rp->type = type;
106 c8f53842 2007-03-26 devnull rp->from = from;
107 c8f53842 2007-03-26 devnull rp->to = to;
108 c8f53842 2007-03-26 devnull rp->next = runq->redir;
109 c8f53842 2007-03-26 devnull runq->redir = rp;
113 c8f53842 2007-03-26 devnull newvar(char *name, var *next)
115 c8f53842 2007-03-26 devnull var *v = new(var);
116 c8f53842 2007-03-26 devnull v->name = name;
117 c8f53842 2007-03-26 devnull v->val = 0;
118 c8f53842 2007-03-26 devnull v->fn = 0;
119 c8f53842 2007-03-26 devnull v->changed = 0;
120 c8f53842 2007-03-26 devnull v->fnchanged = 0;
121 c8f53842 2007-03-26 devnull v->next = next;
122 bd1b0cc1 2007-03-26 devnull v->changefn = 0;
123 f08fdedc 2003-11-23 devnull return v;
126 f08fdedc 2003-11-23 devnull * get command line flags, initialize keywords & traps.
127 f08fdedc 2003-11-23 devnull * get values from environment.
128 f08fdedc 2003-11-23 devnull * set $pid, $cflag, $*
129 f08fdedc 2003-11-23 devnull * fabricate bootstrap code and start it (*=(argv);. /usr/lib/rcmain $*)
130 f08fdedc 2003-11-23 devnull * start interpreting code
133 f08fdedc 2003-11-23 devnull main(int argc, char *argv[])
135 f08fdedc 2003-11-23 devnull code bootstrap[32];
136 f08fdedc 2003-11-23 devnull char num[12], *rcmain;
139 e3ffbf3b 2005-05-19 devnull /* needed for rcmain later */
140 0e4068e8 2005-07-26 devnull putenv("PLAN9", unsharp("#9"));
142 c8f53842 2007-03-26 devnull argc = getflags(argc, argv, "SsrdiIlxepvVc:1m:1[command]", 1);
143 c8f53842 2007-03-26 devnull if(argc==-1)
144 c8f53842 2007-03-26 devnull usage("[file [arg ...]]");
145 c8f53842 2007-03-26 devnull if(argv[0][0]=='-')
146 c8f53842 2007-03-26 devnull flag['l'] = flagset;
147 c8f53842 2007-03-26 devnull if(flag['I'])
148 c8f53842 2007-03-26 devnull flag['i'] = 0;
149 f08fdedc 2003-11-23 devnull else if(flag['i']==0 && argc==1 && Isatty(0)) flag['i'] = flagset;
150 c8f53842 2007-03-26 devnull rcmain = flag['m'] ? flag['m'][0] : Rcmain();
151 c8f53842 2007-03-26 devnull err = openfd(2);
152 f08fdedc 2003-11-23 devnull kinit();
153 f08fdedc 2003-11-23 devnull Trapinit();
154 f08fdedc 2003-11-23 devnull Vinit();
155 c8f53842 2007-03-26 devnull inttoascii(num, mypid = getpid());
156 a9eaaa03 2005-01-12 devnull pathinit();
157 f08fdedc 2003-11-23 devnull setvar("pid", newword(num, (word *)0));
158 f08fdedc 2003-11-23 devnull setvar("cflag", flag['c']?newword(flag['c'][0], (word *)0)
159 f08fdedc 2003-11-23 devnull :(word *)0);
160 f08fdedc 2003-11-23 devnull setvar("rcname", newword(argv[0], (word *)0));
162 c8f53842 2007-03-26 devnull bootstrap[i++].i = 1;
163 c8f53842 2007-03-26 devnull bootstrap[i++].f = Xmark;
164 c8f53842 2007-03-26 devnull bootstrap[i++].f = Xword;
165 f08fdedc 2003-11-23 devnull bootstrap[i++].s="*";
166 c8f53842 2007-03-26 devnull bootstrap[i++].f = Xassign;
167 c8f53842 2007-03-26 devnull bootstrap[i++].f = Xmark;
168 c8f53842 2007-03-26 devnull bootstrap[i++].f = Xmark;
169 c8f53842 2007-03-26 devnull bootstrap[i++].f = Xword;
170 f08fdedc 2003-11-23 devnull bootstrap[i++].s="*";
171 c8f53842 2007-03-26 devnull bootstrap[i++].f = Xdol;
172 c8f53842 2007-03-26 devnull bootstrap[i++].f = Xword;
173 c8f53842 2007-03-26 devnull bootstrap[i++].s = rcmain;
174 c8f53842 2007-03-26 devnull bootstrap[i++].f = Xword;
175 f08fdedc 2003-11-23 devnull bootstrap[i++].s=".";
176 c8f53842 2007-03-26 devnull bootstrap[i++].f = Xsimple;
177 c8f53842 2007-03-26 devnull bootstrap[i++].f = Xexit;
178 c8f53842 2007-03-26 devnull bootstrap[i].i = 0;
179 f08fdedc 2003-11-23 devnull start(bootstrap, 1, (var *)0);
180 f08fdedc 2003-11-23 devnull /* prime bootstrap argv */
181 f08fdedc 2003-11-23 devnull pushlist();
182 f08fdedc 2003-11-23 devnull argv0 = strdup(argv[0]);
183 c8f53842 2007-03-26 devnull for(i = argc-1;i!=0;--i) pushword(argv[i]);
184 f08fdedc 2003-11-23 devnull for(;;){
185 c8f53842 2007-03-26 devnull if(flag['r'])
186 c8f53842 2007-03-26 devnull pfnc(err, runq);
187 f08fdedc 2003-11-23 devnull runq->pc++;
188 f08fdedc 2003-11-23 devnull (*runq->code[runq->pc-1].f)();
189 c8f53842 2007-03-26 devnull if(ntrap)
190 c8f53842 2007-03-26 devnull dotrap();
194 f08fdedc 2003-11-23 devnull * Opcode routines
195 f08fdedc 2003-11-23 devnull * Arguments on stack (...)
196 f08fdedc 2003-11-23 devnull * Arguments in line [...]
197 f08fdedc 2003-11-23 devnull * Code in line with jump around {...}
199 f08fdedc 2003-11-23 devnull * Xappend(file)[fd] open file to append
200 f08fdedc 2003-11-23 devnull * Xassign(name, val) assign val to name
201 f08fdedc 2003-11-23 devnull * Xasync{... Xexit} make thread for {}, no wait
202 f08fdedc 2003-11-23 devnull * Xbackq{... Xreturn} make thread for {}, push stdout
203 f08fdedc 2003-11-23 devnull * Xbang complement condition
204 f08fdedc 2003-11-23 devnull * Xcase(pat, value){...} exec code on match, leave (value) on
206 f08fdedc 2003-11-23 devnull * Xclose[i] close file descriptor
207 f08fdedc 2003-11-23 devnull * Xconc(left, right) concatenate, push results
208 f08fdedc 2003-11-23 devnull * Xcount(name) push var count
209 f08fdedc 2003-11-23 devnull * Xdelfn(name) delete function definition
210 f08fdedc 2003-11-23 devnull * Xdeltraps(names) delete named traps
211 f08fdedc 2003-11-23 devnull * Xdol(name) get variable value
212 f08fdedc 2003-11-23 devnull * Xqdol(name) concatenate variable components
213 f08fdedc 2003-11-23 devnull * Xdup[i j] dup file descriptor
214 f08fdedc 2003-11-23 devnull * Xexit rc exits with status
215 f08fdedc 2003-11-23 devnull * Xfalse{...} execute {} if false
216 f08fdedc 2003-11-23 devnull * Xfn(name){... Xreturn} define function
217 f08fdedc 2003-11-23 devnull * Xfor(var, list){... Xreturn} for loop
218 f08fdedc 2003-11-23 devnull * Xjump[addr] goto
219 f08fdedc 2003-11-23 devnull * Xlocal(name, val) create local variable, assign value
220 f08fdedc 2003-11-23 devnull * Xmark mark stack
221 f08fdedc 2003-11-23 devnull * Xmatch(pat, str) match pattern, set status
222 f08fdedc 2003-11-23 devnull * Xpipe[i j]{... Xreturn}{... Xreturn} construct a pipe between 2 new threads,
223 f08fdedc 2003-11-23 devnull * wait for both
224 f08fdedc 2003-11-23 devnull * Xpipefd[type]{... Xreturn} connect {} to pipe (input or output,
225 f08fdedc 2003-11-23 devnull * depending on type), push /dev/fd/??
226 f08fdedc 2003-11-23 devnull * Xpopm(value) pop value from stack
227 c8f53842 2007-03-26 devnull * Xrdwr(file)[fd] open file for reading and writing
228 f08fdedc 2003-11-23 devnull * Xread(file)[fd] open file to read
229 f08fdedc 2003-11-23 devnull * Xsettraps(names){... Xreturn} define trap functions
230 f08fdedc 2003-11-23 devnull * Xshowtraps print trap list
231 f08fdedc 2003-11-23 devnull * Xsimple(args) run command and wait
232 f08fdedc 2003-11-23 devnull * Xreturn kill thread
233 f08fdedc 2003-11-23 devnull * Xsubshell{... Xexit} execute {} in a subshell and wait
234 f08fdedc 2003-11-23 devnull * Xtrue{...} execute {} if true
235 f08fdedc 2003-11-23 devnull * Xunlocal delete local variable
236 f08fdedc 2003-11-23 devnull * Xword[string] push string
237 f08fdedc 2003-11-23 devnull * Xwrite(file)[fd] open file to write
241 c8f53842 2007-03-26 devnull Xappend(void)
243 f08fdedc 2003-11-23 devnull char *file;
245 f08fdedc 2003-11-23 devnull switch(count(runq->argv->words)){
246 c8f53842 2007-03-26 devnull default:
247 c8f53842 2007-03-26 devnull Xerror1(">> requires singleton");
250 c8f53842 2007-03-26 devnull Xerror1(">> requires file");
255 c8f53842 2007-03-26 devnull file = runq->argv->words->word;
256 c8f53842 2007-03-26 devnull if((f = open(file, 1))<0 && (f = Creat(file))<0){
257 f08fdedc 2003-11-23 devnull pfmt(err, "%s: ", file);
258 f08fdedc 2003-11-23 devnull Xerror("can't open");
261 f08fdedc 2003-11-23 devnull Seek(f, 0L, 2);
262 f08fdedc 2003-11-23 devnull pushredir(ROPEN, f, runq->code[runq->pc].i);
263 f08fdedc 2003-11-23 devnull runq->pc++;
264 f08fdedc 2003-11-23 devnull poplist();
268 c8f53842 2007-03-26 devnull Xsettrue(void)
270 f08fdedc 2003-11-23 devnull setstatus("");
274 c8f53842 2007-03-26 devnull Xbang(void)
276 f08fdedc 2003-11-23 devnull setstatus(truestatus()?"false":"");
280 c8f53842 2007-03-26 devnull Xclose(void)
282 f08fdedc 2003-11-23 devnull pushredir(RCLOSE, runq->code[runq->pc].i, 0);
283 f08fdedc 2003-11-23 devnull runq->pc++;
287 c8f53842 2007-03-26 devnull Xdup(void)
289 f08fdedc 2003-11-23 devnull pushredir(RDUP, runq->code[runq->pc].i, runq->code[runq->pc+1].i);
290 f08fdedc 2003-11-23 devnull runq->pc+=2;
294 c8f53842 2007-03-26 devnull Xeflag(void)
296 f08fdedc 2003-11-23 devnull if(eflagok && !truestatus()) Xexit();
300 c8f53842 2007-03-26 devnull Xexit(void)
302 f08fdedc 2003-11-23 devnull struct var *trapreq;
303 f08fdedc 2003-11-23 devnull struct word *starval;
304 c8f53842 2007-03-26 devnull static int beenhere = 0;
305 f08fdedc 2003-11-23 devnull if(getpid()==mypid && !beenhere){
306 c8f53842 2007-03-26 devnull trapreq = vlook("sigexit");
307 f08fdedc 2003-11-23 devnull if(trapreq->fn){
308 c8f53842 2007-03-26 devnull beenhere = 1;
309 f08fdedc 2003-11-23 devnull --runq->pc;
310 c8f53842 2007-03-26 devnull starval = vlook("*")->val;
311 f08fdedc 2003-11-23 devnull start(trapreq->fn, trapreq->pc, (struct var *)0);
312 c8f53842 2007-03-26 devnull runq->local = newvar(strdup("*"), runq->local);
313 c8f53842 2007-03-26 devnull runq->local->val = copywords(starval, (struct word *)0);
314 c8f53842 2007-03-26 devnull runq->local->changed = 1;
315 c8f53842 2007-03-26 devnull runq->redir = runq->startredir = 0;
319 f08fdedc 2003-11-23 devnull Exit(getstatus());
323 c8f53842 2007-03-26 devnull Xfalse(void)
325 c8f53842 2007-03-26 devnull if(truestatus()) runq->pc = runq->code[runq->pc].i;
326 f08fdedc 2003-11-23 devnull else runq->pc++;
328 f08fdedc 2003-11-23 devnull int ifnot; /* dynamic if not flag */
331 c8f53842 2007-03-26 devnull Xifnot(void)
333 f08fdedc 2003-11-23 devnull if(ifnot)
334 f08fdedc 2003-11-23 devnull runq->pc++;
336 c8f53842 2007-03-26 devnull runq->pc = runq->code[runq->pc].i;
340 c8f53842 2007-03-26 devnull Xjump(void)
342 c8f53842 2007-03-26 devnull runq->pc = runq->code[runq->pc].i;
346 c8f53842 2007-03-26 devnull Xmark(void)
348 f08fdedc 2003-11-23 devnull pushlist();
352 c8f53842 2007-03-26 devnull Xpopm(void)
354 f08fdedc 2003-11-23 devnull poplist();
358 c8f53842 2007-03-26 devnull Xread(void)
360 f08fdedc 2003-11-23 devnull char *file;
362 f08fdedc 2003-11-23 devnull switch(count(runq->argv->words)){
363 c8f53842 2007-03-26 devnull default:
364 c8f53842 2007-03-26 devnull Xerror1("< requires singleton\n");
367 c8f53842 2007-03-26 devnull Xerror1("< requires file\n");
372 c8f53842 2007-03-26 devnull file = runq->argv->words->word;
373 c8f53842 2007-03-26 devnull if((f = open(file, 0))<0){
374 f08fdedc 2003-11-23 devnull pfmt(err, "%s: ", file);
375 f08fdedc 2003-11-23 devnull Xerror("can't open");
378 f08fdedc 2003-11-23 devnull pushredir(ROPEN, f, runq->code[runq->pc].i);
379 f08fdedc 2003-11-23 devnull runq->pc++;
380 f08fdedc 2003-11-23 devnull poplist();
384 c8f53842 2007-03-26 devnull Xrdwr(void)
386 c8f53842 2007-03-26 devnull char *file;
389 c8f53842 2007-03-26 devnull switch(count(runq->argv->words)){
390 c8f53842 2007-03-26 devnull default:
391 c8f53842 2007-03-26 devnull Xerror1("<> requires singleton\n");
394 c8f53842 2007-03-26 devnull Xerror1("<> requires file\n");
399 c8f53842 2007-03-26 devnull file = runq->argv->words->word;
400 c8f53842 2007-03-26 devnull if((f = open(file, ORDWR))<0){
401 c8f53842 2007-03-26 devnull pfmt(err, "%s: ", file);
402 c8f53842 2007-03-26 devnull Xerror("can't open");
405 c8f53842 2007-03-26 devnull pushredir(ROPEN, f, runq->code[runq->pc].i);
406 c8f53842 2007-03-26 devnull runq->pc++;
407 c8f53842 2007-03-26 devnull poplist();
411 c8f53842 2007-03-26 devnull turfredir(void)
413 f08fdedc 2003-11-23 devnull while(runq->redir!=runq->startredir)
414 f08fdedc 2003-11-23 devnull Xpopredir();
418 c8f53842 2007-03-26 devnull Xpopredir(void)
420 c8f53842 2007-03-26 devnull struct redir *rp = runq->redir;
421 c8f53842 2007-03-26 devnull if(rp==0)
422 c8f53842 2007-03-26 devnull panic("turfredir null!", 0);
423 c8f53842 2007-03-26 devnull runq->redir = rp->next;
424 c8f53842 2007-03-26 devnull if(rp->type==ROPEN)
425 c8f53842 2007-03-26 devnull close(rp->from);
426 f08fdedc 2003-11-23 devnull efree((char *)rp);
430 c8f53842 2007-03-26 devnull Xreturn(void)
432 c8f53842 2007-03-26 devnull struct thread *p = runq;
433 f08fdedc 2003-11-23 devnull turfredir();
434 f08fdedc 2003-11-23 devnull while(p->argv) poplist();
435 f08fdedc 2003-11-23 devnull codefree(p->code);
436 c8f53842 2007-03-26 devnull runq = p->ret;
437 f08fdedc 2003-11-23 devnull efree((char *)p);
438 c8f53842 2007-03-26 devnull if(runq==0)
439 c8f53842 2007-03-26 devnull Exit(getstatus());
443 c8f53842 2007-03-26 devnull Xtrue(void)
445 f08fdedc 2003-11-23 devnull if(truestatus()) runq->pc++;
446 c8f53842 2007-03-26 devnull else runq->pc = runq->code[runq->pc].i;
450 c8f53842 2007-03-26 devnull Xif(void)
452 c8f53842 2007-03-26 devnull ifnot = 1;
453 f08fdedc 2003-11-23 devnull if(truestatus()) runq->pc++;
454 c8f53842 2007-03-26 devnull else runq->pc = runq->code[runq->pc].i;
458 c8f53842 2007-03-26 devnull Xwastrue(void)
460 c8f53842 2007-03-26 devnull ifnot = 0;
464 c8f53842 2007-03-26 devnull Xword(void)
466 f08fdedc 2003-11-23 devnull pushword(runq->code[runq->pc++].s);
470 c8f53842 2007-03-26 devnull Xwrite(void)
472 f08fdedc 2003-11-23 devnull char *file;
474 f08fdedc 2003-11-23 devnull switch(count(runq->argv->words)){
475 c8f53842 2007-03-26 devnull default:
476 c8f53842 2007-03-26 devnull Xerror1("> requires singleton\n");
479 c8f53842 2007-03-26 devnull Xerror1("> requires file\n");
484 c8f53842 2007-03-26 devnull file = runq->argv->words->word;
485 c8f53842 2007-03-26 devnull if((f = Creat(file))<0){
486 f08fdedc 2003-11-23 devnull pfmt(err, "%s: ", file);
487 f08fdedc 2003-11-23 devnull Xerror("can't open");
490 f08fdedc 2003-11-23 devnull pushredir(ROPEN, f, runq->code[runq->pc].i);
491 f08fdedc 2003-11-23 devnull runq->pc++;
492 f08fdedc 2003-11-23 devnull poplist();
496 c8f53842 2007-03-26 devnull list2str(word *words)
498 f08fdedc 2003-11-23 devnull char *value, *s, *t;
499 c8f53842 2007-03-26 devnull int len = 0;
500 f08fdedc 2003-11-23 devnull word *ap;
501 c8f53842 2007-03-26 devnull for(ap = words;ap;ap = ap->next)
502 f08fdedc 2003-11-23 devnull len+=1+strlen(ap->word);
503 c8f53842 2007-03-26 devnull value = emalloc(len+1);
504 c8f53842 2007-03-26 devnull s = value;
505 c8f53842 2007-03-26 devnull for(ap = words;ap;ap = ap->next){
506 c8f53842 2007-03-26 devnull for(t = ap->word;*t;) *s++=*t++;
507 c8f53842 2007-03-26 devnull *s++=' ';
509 c8f53842 2007-03-26 devnull if(s==value)
510 c8f53842 2007-03-26 devnull *s='\0';
511 f08fdedc 2003-11-23 devnull else s[-1]='\0';
512 f08fdedc 2003-11-23 devnull return value;
516 c8f53842 2007-03-26 devnull Xmatch(void)
518 f08fdedc 2003-11-23 devnull word *p;
519 f08fdedc 2003-11-23 devnull char *subject;
520 c8f53842 2007-03-26 devnull subject = list2str(runq->argv->words);
521 f08fdedc 2003-11-23 devnull setstatus("no match");
522 c8f53842 2007-03-26 devnull for(p = runq->argv->next->words;p;p = p->next)
523 f08fdedc 2003-11-23 devnull if(match(subject, p->word, '\0')){
524 f08fdedc 2003-11-23 devnull setstatus("");
527 f08fdedc 2003-11-23 devnull efree(subject);
528 f08fdedc 2003-11-23 devnull poplist();
529 f08fdedc 2003-11-23 devnull poplist();
533 c8f53842 2007-03-26 devnull Xcase(void)
535 f08fdedc 2003-11-23 devnull word *p;
536 f08fdedc 2003-11-23 devnull char *s;
537 c8f53842 2007-03-26 devnull int ok = 0;
538 c8f53842 2007-03-26 devnull s = list2str(runq->argv->next->words);
539 c8f53842 2007-03-26 devnull for(p = runq->argv->words;p;p = p->next){
540 f08fdedc 2003-11-23 devnull if(match(s, p->word, '\0')){
545 f08fdedc 2003-11-23 devnull efree(s);
547 f08fdedc 2003-11-23 devnull runq->pc++;
549 c8f53842 2007-03-26 devnull runq->pc = runq->code[runq->pc].i;
550 f08fdedc 2003-11-23 devnull poplist();
554 c8f53842 2007-03-26 devnull conclist(word *lp, word *rp, word *tail)
556 f08fdedc 2003-11-23 devnull char *buf;
557 f08fdedc 2003-11-23 devnull word *v;
558 f08fdedc 2003-11-23 devnull if(lp->next || rp->next)
559 c8f53842 2007-03-26 devnull tail = conclist(lp->next==0?lp:lp->next, rp->next==0?rp:rp->next,
561 c8f53842 2007-03-26 devnull buf = emalloc(strlen(lp->word)+strlen(rp->word)+1);
562 f08fdedc 2003-11-23 devnull strcpy(buf, lp->word);
563 f08fdedc 2003-11-23 devnull strcat(buf, rp->word);
564 c8f53842 2007-03-26 devnull v = newword(buf, tail);
565 f08fdedc 2003-11-23 devnull efree(buf);
566 f08fdedc 2003-11-23 devnull return v;
570 c8f53842 2007-03-26 devnull Xconc(void)
572 c8f53842 2007-03-26 devnull word *lp = runq->argv->words;
573 c8f53842 2007-03-26 devnull word *rp = runq->argv->next->words;
574 c8f53842 2007-03-26 devnull word *vp = runq->argv->next->next->words;
575 c8f53842 2007-03-26 devnull int lc = count(lp), rc = count(rp);
576 f08fdedc 2003-11-23 devnull if(lc!=0 || rc!=0){
577 f08fdedc 2003-11-23 devnull if(lc==0 || rc==0){
578 f08fdedc 2003-11-23 devnull Xerror1("null list in concatenation");
581 f08fdedc 2003-11-23 devnull if(lc!=1 && rc!=1 && lc!=rc){
582 f08fdedc 2003-11-23 devnull Xerror1("mismatched list lengths in concatenation");
585 c8f53842 2007-03-26 devnull vp = conclist(lp, rp, vp);
587 f08fdedc 2003-11-23 devnull poplist();
588 f08fdedc 2003-11-23 devnull poplist();
589 c8f53842 2007-03-26 devnull runq->argv->words = vp;
593 c8f53842 2007-03-26 devnull Xassign(void)
596 f08fdedc 2003-11-23 devnull if(count(runq->argv->words)!=1){
597 f08fdedc 2003-11-23 devnull Xerror1("variable name not singleton!");
600 f08fdedc 2003-11-23 devnull deglob(runq->argv->words->word);
601 c8f53842 2007-03-26 devnull v = vlook(runq->argv->words->word);
602 f08fdedc 2003-11-23 devnull poplist();
603 f08fdedc 2003-11-23 devnull globlist();
604 f08fdedc 2003-11-23 devnull freewords(v->val);
605 c8f53842 2007-03-26 devnull v->val = runq->argv->words;
606 c8f53842 2007-03-26 devnull v->changed = 1;
607 fbc629a9 2007-03-28 devnull if(v->changefn)
608 fbc629a9 2007-03-28 devnull v->changefn(v);
609 c8f53842 2007-03-26 devnull runq->argv->words = 0;
610 f08fdedc 2003-11-23 devnull poplist();
613 f08fdedc 2003-11-23 devnull * copy arglist a, adding the copy to the front of tail
617 c8f53842 2007-03-26 devnull copywords(word *a, word *tail)
619 c8f53842 2007-03-26 devnull word *v = 0, **end;
620 c8f53842 2007-03-26 devnull for(end=&v;a;a = a->next,end=&(*end)->next)
621 c8f53842 2007-03-26 devnull *end = newword(a->word, 0);
622 c8f53842 2007-03-26 devnull *end = tail;
623 f08fdedc 2003-11-23 devnull return v;
627 c8f53842 2007-03-26 devnull Xdol(void)
629 f08fdedc 2003-11-23 devnull word *a, *star;
630 f08fdedc 2003-11-23 devnull char *s, *t;
632 f08fdedc 2003-11-23 devnull if(count(runq->argv->words)!=1){
633 f08fdedc 2003-11-23 devnull Xerror1("variable name not singleton!");
636 c8f53842 2007-03-26 devnull s = runq->argv->words->word;
637 f08fdedc 2003-11-23 devnull deglob(s);
639 c8f53842 2007-03-26 devnull for(t = s;'0'<=*t && *t<='9';t++) n = n*10+*t-'0';
640 c8f53842 2007-03-26 devnull a = runq->argv->next->words;
641 f08fdedc 2003-11-23 devnull if(n==0 || *t)
642 c8f53842 2007-03-26 devnull a = copywords(vlook(s)->val, a);
644 c8f53842 2007-03-26 devnull star = vlook("*")->val;
645 f08fdedc 2003-11-23 devnull if(star && 1<=n && n<=count(star)){
646 c8f53842 2007-03-26 devnull while(--n) star = star->next;
647 c8f53842 2007-03-26 devnull a = newword(star->word, a);
650 f08fdedc 2003-11-23 devnull poplist();
651 c8f53842 2007-03-26 devnull runq->argv->words = a;
655 c8f53842 2007-03-26 devnull Xqdol(void)
657 f08fdedc 2003-11-23 devnull word *a, *p;
658 f08fdedc 2003-11-23 devnull char *s;
660 f08fdedc 2003-11-23 devnull if(count(runq->argv->words)!=1){
661 f08fdedc 2003-11-23 devnull Xerror1("variable name not singleton!");
664 c8f53842 2007-03-26 devnull s = runq->argv->words->word;
665 f08fdedc 2003-11-23 devnull deglob(s);
666 c8f53842 2007-03-26 devnull a = vlook(s)->val;
667 f08fdedc 2003-11-23 devnull poplist();
668 c8f53842 2007-03-26 devnull n = count(a);
669 f08fdedc 2003-11-23 devnull if(n==0){
670 f08fdedc 2003-11-23 devnull pushword("");
673 c8f53842 2007-03-26 devnull for(p = a;p;p = p->next) n+=strlen(p->word);
674 c8f53842 2007-03-26 devnull s = emalloc(n);
676 f08fdedc 2003-11-23 devnull strcpy(s, a->word);
677 c8f53842 2007-03-26 devnull for(p = a->next;p;p = p->next){
678 f08fdedc 2003-11-23 devnull strcat(s, " ");
679 f08fdedc 2003-11-23 devnull strcat(s, p->word);
683 f08fdedc 2003-11-23 devnull s[0]='\0';
684 f08fdedc 2003-11-23 devnull pushword(s);
685 f08fdedc 2003-11-23 devnull efree(s);
689 c8f53842 2007-03-26 devnull subwords(word *val, int len, word *sub, word *a)
692 f08fdedc 2003-11-23 devnull char *s;
693 c8f53842 2007-03-26 devnull if(!sub)
694 c8f53842 2007-03-26 devnull return a;
695 c8f53842 2007-03-26 devnull a = subwords(val, len, sub->next, a);
696 c8f53842 2007-03-26 devnull s = sub->word;
697 f08fdedc 2003-11-23 devnull deglob(s);
699 c8f53842 2007-03-26 devnull while('0'<=*s && *s<='9') n = n*10+ *s++ -'0';
700 c8f53842 2007-03-26 devnull if(n<1 || len<n)
701 c8f53842 2007-03-26 devnull return a;
702 c8f53842 2007-03-26 devnull for(;n!=1;--n) val = val->next;
703 f08fdedc 2003-11-23 devnull return newword(val->word, a);
707 c8f53842 2007-03-26 devnull Xsub(void)
709 f08fdedc 2003-11-23 devnull word *a, *v;
710 f08fdedc 2003-11-23 devnull char *s;
711 f08fdedc 2003-11-23 devnull if(count(runq->argv->next->words)!=1){
712 f08fdedc 2003-11-23 devnull Xerror1("variable name not singleton!");
715 c8f53842 2007-03-26 devnull s = runq->argv->next->words->word;
716 f08fdedc 2003-11-23 devnull deglob(s);
717 c8f53842 2007-03-26 devnull a = runq->argv->next->next->words;
718 c8f53842 2007-03-26 devnull v = vlook(s)->val;
719 c8f53842 2007-03-26 devnull a = subwords(v, count(v), runq->argv->words, a);
720 f08fdedc 2003-11-23 devnull poplist();
721 f08fdedc 2003-11-23 devnull poplist();
722 c8f53842 2007-03-26 devnull runq->argv->words = a;
726 c8f53842 2007-03-26 devnull Xcount(void)
728 f08fdedc 2003-11-23 devnull word *a;
729 f08fdedc 2003-11-23 devnull char *s, *t;
731 f08fdedc 2003-11-23 devnull char num[12];
732 f08fdedc 2003-11-23 devnull if(count(runq->argv->words)!=1){
733 f08fdedc 2003-11-23 devnull Xerror1("variable name not singleton!");
736 c8f53842 2007-03-26 devnull s = runq->argv->words->word;
737 f08fdedc 2003-11-23 devnull deglob(s);
739 c8f53842 2007-03-26 devnull for(t = s;'0'<=*t && *t<='9';t++) n = n*10+*t-'0';
740 f08fdedc 2003-11-23 devnull if(n==0 || *t){
741 c8f53842 2007-03-26 devnull a = vlook(s)->val;
742 c8f53842 2007-03-26 devnull inttoascii(num, count(a));
745 c8f53842 2007-03-26 devnull a = vlook("*")->val;
746 c8f53842 2007-03-26 devnull inttoascii(num, a && 1<=n && n<=count(a)?1:0);
748 f08fdedc 2003-11-23 devnull poplist();
749 f08fdedc 2003-11-23 devnull pushword(num);
753 c8f53842 2007-03-26 devnull Xlocal(void)
755 f08fdedc 2003-11-23 devnull if(count(runq->argv->words)!=1){
756 f08fdedc 2003-11-23 devnull Xerror1("variable name must be singleton\n");
759 f08fdedc 2003-11-23 devnull deglob(runq->argv->words->word);
760 c8f53842 2007-03-26 devnull runq->local = newvar(strdup(runq->argv->words->word), runq->local);
761 c8f53842 2007-03-26 devnull runq->local->val = copywords(runq->argv->next->words, (word *)0);
762 c8f53842 2007-03-26 devnull runq->local->changed = 1;
763 f08fdedc 2003-11-23 devnull poplist();
764 f08fdedc 2003-11-23 devnull poplist();
768 c8f53842 2007-03-26 devnull Xunlocal(void)
770 c8f53842 2007-03-26 devnull var *v = runq->local, *hid;
771 c8f53842 2007-03-26 devnull if(v==0)
772 c8f53842 2007-03-26 devnull panic("Xunlocal: no locals!", 0);
773 c8f53842 2007-03-26 devnull runq->local = v->next;
774 c8f53842 2007-03-26 devnull hid = vlook(v->name);
775 c8f53842 2007-03-26 devnull hid->changed = 1;
776 f08fdedc 2003-11-23 devnull efree(v->name);
777 f08fdedc 2003-11-23 devnull freewords(v->val);
778 f08fdedc 2003-11-23 devnull efree((char *)v);
782 c8f53842 2007-03-26 devnull freewords(word *w)
784 f08fdedc 2003-11-23 devnull word *nw;
785 f08fdedc 2003-11-23 devnull while(w){
786 f08fdedc 2003-11-23 devnull efree(w->word);
787 c8f53842 2007-03-26 devnull nw = w->next;
788 f08fdedc 2003-11-23 devnull efree((char *)w);
794 c8f53842 2007-03-26 devnull Xfn(void)
797 f08fdedc 2003-11-23 devnull word *a;
798 f08fdedc 2003-11-23 devnull int end;
799 c8f53842 2007-03-26 devnull end = runq->code[runq->pc].i;
800 c8f53842 2007-03-26 devnull for(a = runq->argv->words;a;a = a->next){
801 c8f53842 2007-03-26 devnull v = gvlook(a->word);
802 c8f53842 2007-03-26 devnull if(v->fn)
803 c8f53842 2007-03-26 devnull codefree(v->fn);
804 c8f53842 2007-03-26 devnull v->fn = codecopy(runq->code);
805 c8f53842 2007-03-26 devnull v->pc = runq->pc+2;
806 c8f53842 2007-03-26 devnull v->fnchanged = 1;
808 c8f53842 2007-03-26 devnull runq->pc = end;
809 f08fdedc 2003-11-23 devnull poplist();
813 c8f53842 2007-03-26 devnull Xdelfn(void)
816 f08fdedc 2003-11-23 devnull word *a;
817 c8f53842 2007-03-26 devnull for(a = runq->argv->words;a;a = a->next){
818 c8f53842 2007-03-26 devnull v = gvlook(a->word);
819 c8f53842 2007-03-26 devnull if(v->fn)
820 c8f53842 2007-03-26 devnull codefree(v->fn);
821 c8f53842 2007-03-26 devnull v->fn = 0;
822 c8f53842 2007-03-26 devnull v->fnchanged = 1;
824 f08fdedc 2003-11-23 devnull poplist();
828 c8f53842 2007-03-26 devnull concstatus(char *s, char *t)
830 f08fdedc 2003-11-23 devnull static char v[NSTATUS+1];
831 c8f53842 2007-03-26 devnull int n = strlen(s);
832 f08fdedc 2003-11-23 devnull strncpy(v, s, NSTATUS);
833 f08fdedc 2003-11-23 devnull if(n<NSTATUS){
834 f08fdedc 2003-11-23 devnull v[n]='|';
835 f08fdedc 2003-11-23 devnull strncpy(v+n+1, t, NSTATUS-n-1);
837 f08fdedc 2003-11-23 devnull v[NSTATUS]='\0';
838 f08fdedc 2003-11-23 devnull return v;
842 c8f53842 2007-03-26 devnull Xpipewait(void)
844 f08fdedc 2003-11-23 devnull char status[NSTATUS+1];
845 f08fdedc 2003-11-23 devnull if(runq->pid==-1)
846 f08fdedc 2003-11-23 devnull setstatus(concstatus(runq->status, getstatus()));
848 f08fdedc 2003-11-23 devnull strncpy(status, getstatus(), NSTATUS);
849 f08fdedc 2003-11-23 devnull status[NSTATUS]='\0';
850 f08fdedc 2003-11-23 devnull Waitfor(runq->pid, 1);
851 f08fdedc 2003-11-23 devnull runq->pid=-1;
852 f08fdedc 2003-11-23 devnull setstatus(concstatus(getstatus(), status));
857 c8f53842 2007-03-26 devnull Xrdcmds(void)
859 c8f53842 2007-03-26 devnull struct thread *p = runq;
860 f08fdedc 2003-11-23 devnull word *prompt;
861 f08fdedc 2003-11-23 devnull flush(err);
862 c8f53842 2007-03-26 devnull nerror = 0;
863 f08fdedc 2003-11-23 devnull if(flag['s'] && !truestatus())
864 f08fdedc 2003-11-23 devnull pfmt(err, "status=%v\n", vlook("status")->val);
865 f08fdedc 2003-11-23 devnull if(runq->iflag){
866 c8f53842 2007-03-26 devnull prompt = vlook("prompt")->val;
867 f08fdedc 2003-11-23 devnull if(prompt)
868 c8f53842 2007-03-26 devnull promptstr = prompt->word;
870 f08fdedc 2003-11-23 devnull promptstr="% ";
872 f08fdedc 2003-11-23 devnull Noerror();
873 f08fdedc 2003-11-23 devnull if(yyparse()){
874 f08fdedc 2003-11-23 devnull if(!p->iflag || p->eof && !Eintr()){
875 c8f53842 2007-03-26 devnull if(p->cmdfile)
876 c8f53842 2007-03-26 devnull efree(p->cmdfile);
877 f08fdedc 2003-11-23 devnull closeio(p->cmdfd);
878 f08fdedc 2003-11-23 devnull Xreturn(); /* should this be omitted? */
881 f08fdedc 2003-11-23 devnull if(Eintr()){
882 f08fdedc 2003-11-23 devnull pchr(err, '\n');
883 c8f53842 2007-03-26 devnull p->eof = 0;
885 f08fdedc 2003-11-23 devnull --p->pc; /* go back for next command */
889 f08fdedc 2003-11-23 devnull ntrap = 0; /* avoid double-interrupts during blocked writes */
890 f08fdedc 2003-11-23 devnull --p->pc; /* re-execute Xrdcmds after codebuf runs */
891 f08fdedc 2003-11-23 devnull start(codebuf, 1, runq->local);
893 f08fdedc 2003-11-23 devnull freenodes();
897 c8f53842 2007-03-26 devnull Xerror(char *s)
899 f08fdedc 2003-11-23 devnull if(strcmp(argv0, "rc")==0 || strcmp(argv0, "/bin/rc")==0)
900 f08fdedc 2003-11-23 devnull pfmt(err, "rc: %s: %r\n", s);
902 f08fdedc 2003-11-23 devnull pfmt(err, "rc (%s): %s: %r\n", argv0, s);
903 f08fdedc 2003-11-23 devnull flush(err);
904 4ae2f414 2005-08-11 devnull setstatus("error");
905 f08fdedc 2003-11-23 devnull while(!runq->iflag) Xreturn();
909 c8f53842 2007-03-26 devnull Xerror1(char *s)
911 f08fdedc 2003-11-23 devnull if(strcmp(argv0, "rc")==0 || strcmp(argv0, "/bin/rc")==0)
912 f08fdedc 2003-11-23 devnull pfmt(err, "rc: %s\n", s);
914 f08fdedc 2003-11-23 devnull pfmt(err, "rc (%s): %s\n", argv0, s);
915 f08fdedc 2003-11-23 devnull flush(err);
916 4ae2f414 2005-08-11 devnull setstatus("error");
917 f08fdedc 2003-11-23 devnull while(!runq->iflag) Xreturn();
921 c8f53842 2007-03-26 devnull setstatus(char *s)
923 f08fdedc 2003-11-23 devnull setvar("status", newword(s, (word *)0));
927 c8f53842 2007-03-26 devnull getstatus(void)
929 c8f53842 2007-03-26 devnull var *status = vlook("status");
930 f08fdedc 2003-11-23 devnull return status->val?status->val->word:"";
934 c8f53842 2007-03-26 devnull truestatus(void)
936 f08fdedc 2003-11-23 devnull char *s;
937 c8f53842 2007-03-26 devnull for(s = getstatus();*s;s++)
938 c8f53842 2007-03-26 devnull if(*s!='|' && *s!='0')
939 c8f53842 2007-03-26 devnull return 0;
940 f08fdedc 2003-11-23 devnull return 1;
944 c8f53842 2007-03-26 devnull Xdelhere(void)
946 f08fdedc 2003-11-23 devnull Unlink(runq->code[runq->pc++].s);
950 c8f53842 2007-03-26 devnull Xfor(void)
952 f08fdedc 2003-11-23 devnull if(runq->argv->words==0){
953 f08fdedc 2003-11-23 devnull poplist();
954 c8f53842 2007-03-26 devnull runq->pc = runq->code[runq->pc].i;
957 f08fdedc 2003-11-23 devnull freelist(runq->local->val);
958 c8f53842 2007-03-26 devnull runq->local->val = runq->argv->words;
959 c8f53842 2007-03-26 devnull runq->local->changed = 1;
960 c8f53842 2007-03-26 devnull runq->argv->words = runq->argv->words->next;
961 c8f53842 2007-03-26 devnull runq->local->val->next = 0;
962 f08fdedc 2003-11-23 devnull runq->pc++;
967 c8f53842 2007-03-26 devnull Xglob(void)
969 f08fdedc 2003-11-23 devnull globlist();
