1 8f314994 2004-03-02 devnull #define NOPLAN9DEFINES
2 76193d7c 2003-09-30 devnull #include "mk.h"
3 76193d7c 2003-09-30 devnull #include <sys/wait.h>
4 76193d7c 2003-09-30 devnull #include <signal.h>
5 76193d7c 2003-09-30 devnull #include <sys/stat.h>
6 76193d7c 2003-09-30 devnull #include <sys/time.h>
8 76193d7c 2003-09-30 devnull char *shell = "/bin/sh";
9 76193d7c 2003-09-30 devnull char *shellname = "sh";
11 76193d7c 2003-09-30 devnull extern char **environ;
13 76193d7c 2003-09-30 devnull static void
14 76193d7c 2003-09-30 devnull mkperror(char *s)
16 76193d7c 2003-09-30 devnull fprint(2, "%s: %r\n", s);
20 76193d7c 2003-09-30 devnull readenv(void)
22 76193d7c 2003-09-30 devnull char **p, *s;
25 76193d7c 2003-09-30 devnull for(p = environ; *p; p++){
26 f1bfc54e 2004-05-14 devnull /* rsc 5/5/2004 -- This misparses fn#cd={whatever}
27 76193d7c 2003-09-30 devnull s = shname(*p);
28 76193d7c 2003-09-30 devnull if(*s == '=') {
30 f1bfc54e 2004-05-14 devnull w = newword(s+1);
32 f1bfc54e 2004-05-14 devnull w = newword("");
34 f1bfc54e 2004-05-14 devnull s = strchr(*p, '=');
37 76193d7c 2003-09-30 devnull w = newword(s+1);
39 76193d7c 2003-09-30 devnull w = newword("");
40 76193d7c 2003-09-30 devnull if (symlook(*p, S_INTERNAL, 0))
41 76193d7c 2003-09-30 devnull continue;
42 76193d7c 2003-09-30 devnull s = strdup(*p);
43 76193d7c 2003-09-30 devnull setvar(s, (void *)w);
44 3fe9465a 2006-04-20 devnull symlook(s, S_EXPORTED, (void*)"")->u.ptr = "";
49 76193d7c 2003-09-30 devnull * done on child side of fork, so parent's env is not affected
50 76193d7c 2003-09-30 devnull * and we don't care about freeing memory because we're going
51 76193d7c 2003-09-30 devnull * to exec immediately after this.
54 9aa1c92f 2005-01-04 devnull exportenv(Envy *e, Shell *sh)
57 76193d7c 2003-09-30 devnull char **p;
58 92a0a8b6 2004-04-21 devnull static char buf[16384];
61 76193d7c 2003-09-30 devnull for(i = 0; e->name; e++, i++) {
62 76193d7c 2003-09-30 devnull p = (char**) Realloc(p, (i+2)*sizeof(char*));
63 76193d7c 2003-09-30 devnull if(e->values)
64 9aa1c92f 2005-01-04 devnull snprint(buf, sizeof buf, "%s=%s", e->name, wtos(e->values, sh->iws));
66 92a0a8b6 2004-04-21 devnull snprint(buf, sizeof buf, "%s=", e->name);
67 76193d7c 2003-09-30 devnull p[i] = strdup(buf);
69 76193d7c 2003-09-30 devnull p[i] = 0;
70 76193d7c 2003-09-30 devnull environ = p;
74 76193d7c 2003-09-30 devnull waitfor(char *msg)
76 76193d7c 2003-09-30 devnull int status;
79 76193d7c 2003-09-30 devnull *msg = 0;
80 76193d7c 2003-09-30 devnull pid = wait(&status);
81 76193d7c 2003-09-30 devnull if(pid > 0) {
82 76193d7c 2003-09-30 devnull if(status&0x7f) {
83 76193d7c 2003-09-30 devnull if(status&0x80)
84 76193d7c 2003-09-30 devnull snprint(msg, ERRMAX, "signal %d, core dumped", status&0x7f);
86 76193d7c 2003-09-30 devnull snprint(msg, ERRMAX, "signal %d", status&0x7f);
87 76193d7c 2003-09-30 devnull } else if(status&0xff00)
88 76193d7c 2003-09-30 devnull snprint(msg, ERRMAX, "exit(%d)", (status>>8)&0xff);
90 76193d7c 2003-09-30 devnull return pid;
94 76193d7c 2003-09-30 devnull expunge(int pid, char *msg)
96 76193d7c 2003-09-30 devnull if(strcmp(msg, "interrupt"))
97 76193d7c 2003-09-30 devnull kill(pid, SIGINT);
99 76193d7c 2003-09-30 devnull kill(pid, SIGHUP);
102 92a0a8b6 2004-04-21 devnull int mypid;
105 9aa1c92f 2005-01-04 devnull shargv(Word *cmd, int extra, char ***pargv)
107 9aa1c92f 2005-01-04 devnull char **argv;
108 9aa1c92f 2005-01-04 devnull int i, n;
109 9aa1c92f 2005-01-04 devnull Word *w;
112 9aa1c92f 2005-01-04 devnull for(w=cmd; w; w=w->next)
115 9aa1c92f 2005-01-04 devnull argv = Malloc((n+extra+1)*sizeof(argv[0]));
117 9aa1c92f 2005-01-04 devnull for(w=cmd; w; w=w->next)
118 9aa1c92f 2005-01-04 devnull argv[i++] = w->s;
119 9aa1c92f 2005-01-04 devnull argv[n] = 0;
120 9aa1c92f 2005-01-04 devnull *pargv = argv;
121 9aa1c92f 2005-01-04 devnull return n;
125 9aa1c92f 2005-01-04 devnull execsh(char *args, char *cmd, Bufblock *buf, Envy *e, Shell *sh, Word *shellcmd)
127 9aa1c92f 2005-01-04 devnull char *p, **argv;
128 76193d7c 2003-09-30 devnull int tot, n, pid, in[2], out[2];
130 76193d7c 2003-09-30 devnull if(buf && pipe(out) < 0){
131 76193d7c 2003-09-30 devnull mkperror("pipe");
134 76193d7c 2003-09-30 devnull pid = fork();
135 92a0a8b6 2004-04-21 devnull mypid = getpid();
136 76193d7c 2003-09-30 devnull if(pid < 0){
137 76193d7c 2003-09-30 devnull mkperror("mk fork");
140 76193d7c 2003-09-30 devnull if(pid == 0){
142 76193d7c 2003-09-30 devnull close(out[0]);
143 76193d7c 2003-09-30 devnull if(pipe(in) < 0){
144 76193d7c 2003-09-30 devnull mkperror("pipe");
147 76193d7c 2003-09-30 devnull pid = fork();
148 76193d7c 2003-09-30 devnull if(pid < 0){
149 76193d7c 2003-09-30 devnull mkperror("mk fork");
152 76193d7c 2003-09-30 devnull if(pid != 0){
153 76193d7c 2003-09-30 devnull dup2(in[0], 0);
154 76193d7c 2003-09-30 devnull if(buf){
155 76193d7c 2003-09-30 devnull dup2(out[1], 1);
156 76193d7c 2003-09-30 devnull close(out[1]);
158 76193d7c 2003-09-30 devnull close(in[0]);
159 76193d7c 2003-09-30 devnull close(in[1]);
161 9aa1c92f 2005-01-04 devnull exportenv(e, sh);
162 9aa1c92f 2005-01-04 devnull n = shargv(shellcmd, 1, &argv);
163 9aa1c92f 2005-01-04 devnull argv[n++] = args;
164 9aa1c92f 2005-01-04 devnull argv[n] = 0;
165 9aa1c92f 2005-01-04 devnull execvp(argv[0], argv);
166 76193d7c 2003-09-30 devnull mkperror(shell);
167 76193d7c 2003-09-30 devnull _exit(1);
169 76193d7c 2003-09-30 devnull close(out[1]);
170 76193d7c 2003-09-30 devnull close(in[0]);
171 76193d7c 2003-09-30 devnull if(DEBUG(D_EXEC))
172 76193d7c 2003-09-30 devnull fprint(1, "starting: %s\n", cmd);
173 76193d7c 2003-09-30 devnull p = cmd+strlen(cmd);
174 76193d7c 2003-09-30 devnull while(cmd < p){
175 76193d7c 2003-09-30 devnull n = write(in[1], cmd, p-cmd);
176 76193d7c 2003-09-30 devnull if(n < 0)
178 76193d7c 2003-09-30 devnull cmd += n;
180 76193d7c 2003-09-30 devnull close(in[1]);
181 76193d7c 2003-09-30 devnull _exit(0);
183 76193d7c 2003-09-30 devnull if(buf){
184 76193d7c 2003-09-30 devnull close(out[1]);
185 76193d7c 2003-09-30 devnull tot = 0;
186 76193d7c 2003-09-30 devnull for(;;){
187 76193d7c 2003-09-30 devnull if (buf->current >= buf->end)
188 76193d7c 2003-09-30 devnull growbuf(buf);
189 76193d7c 2003-09-30 devnull n = read(out[0], buf->current, buf->end-buf->current);
190 76193d7c 2003-09-30 devnull if(n <= 0)
192 76193d7c 2003-09-30 devnull buf->current += n;
193 76193d7c 2003-09-30 devnull tot += n;
195 76193d7c 2003-09-30 devnull if (tot && buf->current[-1] == '\n')
196 76193d7c 2003-09-30 devnull buf->current--;
197 76193d7c 2003-09-30 devnull close(out[0]);
199 76193d7c 2003-09-30 devnull return pid;
203 9aa1c92f 2005-01-04 devnull pipecmd(char *cmd, Envy *e, int *fd, Shell *sh, Word *shellcmd)
205 76193d7c 2003-09-30 devnull int pid, pfd[2];
207 9aa1c92f 2005-01-04 devnull char **argv;
209 76193d7c 2003-09-30 devnull if(DEBUG(D_EXEC))
210 76193d7c 2003-09-30 devnull fprint(1, "pipecmd='%s'\n", cmd);/**/
212 76193d7c 2003-09-30 devnull if(fd && pipe(pfd) < 0){
213 76193d7c 2003-09-30 devnull mkperror("pipe");
216 76193d7c 2003-09-30 devnull pid = fork();
217 76193d7c 2003-09-30 devnull if(pid < 0){
218 76193d7c 2003-09-30 devnull mkperror("mk fork");
221 76193d7c 2003-09-30 devnull if(pid == 0){
223 76193d7c 2003-09-30 devnull close(pfd[0]);
224 76193d7c 2003-09-30 devnull dup2(pfd[1], 1);
225 76193d7c 2003-09-30 devnull close(pfd[1]);
228 9aa1c92f 2005-01-04 devnull exportenv(e, sh);
229 9aa1c92f 2005-01-04 devnull n = shargv(shellcmd, 2, &argv);
230 9aa1c92f 2005-01-04 devnull argv[n++] = "-c";
231 9aa1c92f 2005-01-04 devnull argv[n++] = cmd;
232 9aa1c92f 2005-01-04 devnull argv[n] = 0;
233 9aa1c92f 2005-01-04 devnull execvp(argv[0], argv);
234 76193d7c 2003-09-30 devnull mkperror(shell);
235 76193d7c 2003-09-30 devnull _exit(1);
238 76193d7c 2003-09-30 devnull close(pfd[1]);
239 76193d7c 2003-09-30 devnull *fd = pfd[0];
241 76193d7c 2003-09-30 devnull return pid;
245 76193d7c 2003-09-30 devnull Exit(void)
247 76193d7c 2003-09-30 devnull while(wait(0) >= 0)
249 76193d7c 2003-09-30 devnull exits("error");
252 76193d7c 2003-09-30 devnull static struct
254 76193d7c 2003-09-30 devnull int sig;
255 76193d7c 2003-09-30 devnull char *msg;
256 76193d7c 2003-09-30 devnull } sigmsgs[] =
258 76193d7c 2003-09-30 devnull SIGALRM, "alarm",
259 76193d7c 2003-09-30 devnull SIGFPE, "sys: fp: fptrap",
260 76193d7c 2003-09-30 devnull SIGPIPE, "sys: write on closed pipe",
261 76193d7c 2003-09-30 devnull SIGILL, "sys: trap: illegal instruction",
262 cbeb0b26 2006-04-01 devnull /* SIGSEGV, "sys: segmentation violation", */
266 76193d7c 2003-09-30 devnull static void
267 76193d7c 2003-09-30 devnull notifyf(int sig)
271 76193d7c 2003-09-30 devnull for(i = 0; sigmsgs[i].msg; i++)
272 76193d7c 2003-09-30 devnull if(sigmsgs[i].sig == sig)
273 76193d7c 2003-09-30 devnull killchildren(sigmsgs[i].msg);
275 76193d7c 2003-09-30 devnull /* should never happen */
276 76193d7c 2003-09-30 devnull signal(sig, SIG_DFL);
277 76193d7c 2003-09-30 devnull kill(getpid(), sig);
281 2b604081 2005-05-07 devnull catchnotes(void)
285 76193d7c 2003-09-30 devnull for(i = 0; sigmsgs[i].msg; i++)
286 76193d7c 2003-09-30 devnull signal(sigmsgs[i].sig, notifyf);
290 76193d7c 2003-09-30 devnull maketmp(int *pfd)
292 76193d7c 2003-09-30 devnull static char temp[] = "/tmp/mkargXXXXXX";
293 76193d7c 2003-09-30 devnull static char buf[100];
296 76193d7c 2003-09-30 devnull strcpy(buf, temp);
297 76193d7c 2003-09-30 devnull fd = mkstemp(buf);
298 76193d7c 2003-09-30 devnull if(fd < 0)
299 76193d7c 2003-09-30 devnull return 0;
300 76193d7c 2003-09-30 devnull *pfd = fd;
301 76193d7c 2003-09-30 devnull return buf;
305 76193d7c 2003-09-30 devnull chgtime(char *name)
307 76193d7c 2003-09-30 devnull if(access(name, 0) >= 0)
308 76193d7c 2003-09-30 devnull return utimes(name, 0);
309 76193d7c 2003-09-30 devnull return close(creat(name, 0666));
313 76193d7c 2003-09-30 devnull rcopy(char **to, Resub *match, int n)
316 76193d7c 2003-09-30 devnull char *p;
318 76193d7c 2003-09-30 devnull *to = match->s.sp; /* stem0 matches complete target */
319 76193d7c 2003-09-30 devnull for(to++, match++; --n > 0; to++, match++){
320 76193d7c 2003-09-30 devnull if(match->s.sp && match->e.ep){
321 76193d7c 2003-09-30 devnull p = match->e.ep;
324 76193d7c 2003-09-30 devnull *to = strdup(match->s.sp);
328 76193d7c 2003-09-30 devnull *to = 0;
332 0753502e 2005-01-23 devnull unsigned long
333 76193d7c 2003-09-30 devnull mkmtime(char *name)
335 76193d7c 2003-09-30 devnull struct stat st;
337 76193d7c 2003-09-30 devnull if(stat(name, &st) < 0)
338 76193d7c 2003-09-30 devnull return 0;
340 76193d7c 2003-09-30 devnull return st.st_mtime;