1 76193d7c 2003-09-30 devnull #include "mk.h"
2 76193d7c 2003-09-30 devnull #include <sys/wait.h>
3 76193d7c 2003-09-30 devnull #include <signal.h>
4 76193d7c 2003-09-30 devnull #include <sys/stat.h>
5 76193d7c 2003-09-30 devnull #include <sys/time.h>
7 76193d7c 2003-09-30 devnull char *shell = "/bin/sh";
8 76193d7c 2003-09-30 devnull char *shellname = "sh";
10 76193d7c 2003-09-30 devnull extern char **environ;
12 76193d7c 2003-09-30 devnull static void
13 76193d7c 2003-09-30 devnull mkperror(char *s)
15 76193d7c 2003-09-30 devnull fprint(2, "%s: %r\n", s);
19 76193d7c 2003-09-30 devnull readenv(void)
21 76193d7c 2003-09-30 devnull char **p, *s;
24 76193d7c 2003-09-30 devnull for(p = environ; *p; p++){
25 76193d7c 2003-09-30 devnull s = shname(*p);
26 76193d7c 2003-09-30 devnull if(*s == '=') {
28 76193d7c 2003-09-30 devnull w = newword(s+1);
30 76193d7c 2003-09-30 devnull w = newword("");
31 76193d7c 2003-09-30 devnull if (symlook(*p, S_INTERNAL, 0))
32 76193d7c 2003-09-30 devnull continue;
33 76193d7c 2003-09-30 devnull s = strdup(*p);
34 76193d7c 2003-09-30 devnull setvar(s, (void *)w);
35 76193d7c 2003-09-30 devnull symlook(s, S_EXPORTED, (void*)"")->value = (void*)"";
40 76193d7c 2003-09-30 devnull * done on child side of fork, so parent's env is not affected
41 76193d7c 2003-09-30 devnull * and we don't care about freeing memory because we're going
42 76193d7c 2003-09-30 devnull * to exec immediately after this.
45 76193d7c 2003-09-30 devnull exportenv(Envy *e)
48 76193d7c 2003-09-30 devnull char **p;
49 76193d7c 2003-09-30 devnull char buf[4096];
52 76193d7c 2003-09-30 devnull for(i = 0; e->name; e++, i++) {
53 76193d7c 2003-09-30 devnull p = (char**) Realloc(p, (i+2)*sizeof(char*));
54 76193d7c 2003-09-30 devnull if(e->values)
55 76193d7c 2003-09-30 devnull sprint(buf, "%s=%s", e->name, wtos(e->values, IWS));
57 76193d7c 2003-09-30 devnull sprint(buf, "%s=", e->name);
58 76193d7c 2003-09-30 devnull p[i] = strdup(buf);
60 76193d7c 2003-09-30 devnull p[i] = 0;
61 76193d7c 2003-09-30 devnull environ = p;
65 76193d7c 2003-09-30 devnull waitfor(char *msg)
67 76193d7c 2003-09-30 devnull int status;
70 76193d7c 2003-09-30 devnull *msg = 0;
71 76193d7c 2003-09-30 devnull pid = wait(&status);
72 76193d7c 2003-09-30 devnull if(pid > 0) {
73 76193d7c 2003-09-30 devnull if(status&0x7f) {
74 76193d7c 2003-09-30 devnull if(status&0x80)
75 76193d7c 2003-09-30 devnull snprint(msg, ERRMAX, "signal %d, core dumped", status&0x7f);
77 76193d7c 2003-09-30 devnull snprint(msg, ERRMAX, "signal %d", status&0x7f);
78 76193d7c 2003-09-30 devnull } else if(status&0xff00)
79 76193d7c 2003-09-30 devnull snprint(msg, ERRMAX, "exit(%d)", (status>>8)&0xff);
81 76193d7c 2003-09-30 devnull return pid;
85 76193d7c 2003-09-30 devnull expunge(int pid, char *msg)
87 76193d7c 2003-09-30 devnull if(strcmp(msg, "interrupt"))
88 76193d7c 2003-09-30 devnull kill(pid, SIGINT);
90 76193d7c 2003-09-30 devnull kill(pid, SIGHUP);
94 76193d7c 2003-09-30 devnull execsh(char *args, char *cmd, Bufblock *buf, Envy *e)
97 76193d7c 2003-09-30 devnull int tot, n, pid, in[2], out[2];
99 76193d7c 2003-09-30 devnull if(buf && pipe(out) < 0){
100 76193d7c 2003-09-30 devnull mkperror("pipe");
103 76193d7c 2003-09-30 devnull pid = fork();
104 76193d7c 2003-09-30 devnull if(pid < 0){
105 76193d7c 2003-09-30 devnull mkperror("mk fork");
108 76193d7c 2003-09-30 devnull if(pid == 0){
110 76193d7c 2003-09-30 devnull close(out[0]);
111 76193d7c 2003-09-30 devnull if(pipe(in) < 0){
112 76193d7c 2003-09-30 devnull mkperror("pipe");
115 76193d7c 2003-09-30 devnull pid = fork();
116 76193d7c 2003-09-30 devnull if(pid < 0){
117 76193d7c 2003-09-30 devnull mkperror("mk fork");
120 76193d7c 2003-09-30 devnull if(pid != 0){
121 76193d7c 2003-09-30 devnull dup2(in[0], 0);
122 76193d7c 2003-09-30 devnull if(buf){
123 76193d7c 2003-09-30 devnull dup2(out[1], 1);
124 76193d7c 2003-09-30 devnull close(out[1]);
126 76193d7c 2003-09-30 devnull close(in[0]);
127 76193d7c 2003-09-30 devnull close(in[1]);
129 76193d7c 2003-09-30 devnull exportenv(e);
130 76193d7c 2003-09-30 devnull if(shflags)
131 76193d7c 2003-09-30 devnull execl(shell, shellname, shflags, args, 0);
133 76193d7c 2003-09-30 devnull execl(shell, shellname, args, 0);
134 76193d7c 2003-09-30 devnull mkperror(shell);
135 76193d7c 2003-09-30 devnull _exit(1);
137 76193d7c 2003-09-30 devnull close(out[1]);
138 76193d7c 2003-09-30 devnull close(in[0]);
139 76193d7c 2003-09-30 devnull if(DEBUG(D_EXEC))
140 76193d7c 2003-09-30 devnull fprint(1, "starting: %s\n", cmd);
141 76193d7c 2003-09-30 devnull p = cmd+strlen(cmd);
142 76193d7c 2003-09-30 devnull while(cmd < p){
143 76193d7c 2003-09-30 devnull n = write(in[1], cmd, p-cmd);
144 76193d7c 2003-09-30 devnull if(n < 0)
146 76193d7c 2003-09-30 devnull cmd += n;
148 76193d7c 2003-09-30 devnull close(in[1]);
149 76193d7c 2003-09-30 devnull _exit(0);
151 76193d7c 2003-09-30 devnull if(buf){
152 76193d7c 2003-09-30 devnull close(out[1]);
153 76193d7c 2003-09-30 devnull tot = 0;
154 76193d7c 2003-09-30 devnull for(;;){
155 76193d7c 2003-09-30 devnull if (buf->current >= buf->end)
156 76193d7c 2003-09-30 devnull growbuf(buf);
157 76193d7c 2003-09-30 devnull n = read(out[0], buf->current, buf->end-buf->current);
158 76193d7c 2003-09-30 devnull if(n <= 0)
160 76193d7c 2003-09-30 devnull buf->current += n;
161 76193d7c 2003-09-30 devnull tot += n;
163 76193d7c 2003-09-30 devnull if (tot && buf->current[-1] == '\n')
164 76193d7c 2003-09-30 devnull buf->current--;
165 76193d7c 2003-09-30 devnull close(out[0]);
167 76193d7c 2003-09-30 devnull return pid;
171 76193d7c 2003-09-30 devnull pipecmd(char *cmd, Envy *e, int *fd)
173 76193d7c 2003-09-30 devnull int pid, pfd[2];
175 76193d7c 2003-09-30 devnull if(DEBUG(D_EXEC))
176 76193d7c 2003-09-30 devnull fprint(1, "pipecmd='%s'\n", cmd);/**/
178 76193d7c 2003-09-30 devnull if(fd && pipe(pfd) < 0){
179 76193d7c 2003-09-30 devnull mkperror("pipe");
182 76193d7c 2003-09-30 devnull pid = fork();
183 76193d7c 2003-09-30 devnull if(pid < 0){
184 76193d7c 2003-09-30 devnull mkperror("mk fork");
187 76193d7c 2003-09-30 devnull if(pid == 0){
189 76193d7c 2003-09-30 devnull close(pfd[0]);
190 76193d7c 2003-09-30 devnull dup2(pfd[1], 1);
191 76193d7c 2003-09-30 devnull close(pfd[1]);
194 76193d7c 2003-09-30 devnull exportenv(e);
195 76193d7c 2003-09-30 devnull if(shflags)
196 76193d7c 2003-09-30 devnull execl(shell, shellname, shflags, "-c", cmd, 0);
198 76193d7c 2003-09-30 devnull execl(shell, shellname, "-c", cmd, 0);
199 76193d7c 2003-09-30 devnull mkperror(shell);
200 76193d7c 2003-09-30 devnull _exit(1);
203 76193d7c 2003-09-30 devnull close(pfd[1]);
204 76193d7c 2003-09-30 devnull *fd = pfd[0];
206 76193d7c 2003-09-30 devnull return pid;
210 76193d7c 2003-09-30 devnull Exit(void)
212 76193d7c 2003-09-30 devnull while(wait(0) >= 0)
214 76193d7c 2003-09-30 devnull exits("error");
217 76193d7c 2003-09-30 devnull static struct
219 76193d7c 2003-09-30 devnull int sig;
220 76193d7c 2003-09-30 devnull char *msg;
221 76193d7c 2003-09-30 devnull } sigmsgs[] =
223 76193d7c 2003-09-30 devnull SIGALRM, "alarm",
224 76193d7c 2003-09-30 devnull SIGFPE, "sys: fp: fptrap",
225 76193d7c 2003-09-30 devnull SIGPIPE, "sys: write on closed pipe",
226 76193d7c 2003-09-30 devnull SIGILL, "sys: trap: illegal instruction",
227 76193d7c 2003-09-30 devnull SIGSEGV, "sys: segmentation violation",
231 76193d7c 2003-09-30 devnull static void
232 76193d7c 2003-09-30 devnull notifyf(int sig)
236 76193d7c 2003-09-30 devnull for(i = 0; sigmsgs[i].msg; i++)
237 76193d7c 2003-09-30 devnull if(sigmsgs[i].sig == sig)
238 76193d7c 2003-09-30 devnull killchildren(sigmsgs[i].msg);
240 76193d7c 2003-09-30 devnull /* should never happen */
241 76193d7c 2003-09-30 devnull signal(sig, SIG_DFL);
242 76193d7c 2003-09-30 devnull kill(getpid(), sig);
246 76193d7c 2003-09-30 devnull catchnotes()
250 76193d7c 2003-09-30 devnull for(i = 0; sigmsgs[i].msg; i++)
251 76193d7c 2003-09-30 devnull signal(sigmsgs[i].sig, notifyf);
255 76193d7c 2003-09-30 devnull maketmp(int *pfd)
257 76193d7c 2003-09-30 devnull static char temp[] = "/tmp/mkargXXXXXX";
258 76193d7c 2003-09-30 devnull static char buf[100];
261 76193d7c 2003-09-30 devnull strcpy(buf, temp);
262 76193d7c 2003-09-30 devnull fd = mkstemp(buf);
263 76193d7c 2003-09-30 devnull if(fd < 0)
264 76193d7c 2003-09-30 devnull return 0;
265 76193d7c 2003-09-30 devnull *pfd = fd;
266 76193d7c 2003-09-30 devnull return buf;
270 76193d7c 2003-09-30 devnull chgtime(char *name)
272 76193d7c 2003-09-30 devnull if(access(name, 0) >= 0)
273 76193d7c 2003-09-30 devnull return utimes(name, 0);
274 76193d7c 2003-09-30 devnull return close(creat(name, 0666));
278 76193d7c 2003-09-30 devnull rcopy(char **to, Resub *match, int n)
281 76193d7c 2003-09-30 devnull char *p;
283 76193d7c 2003-09-30 devnull *to = match->s.sp; /* stem0 matches complete target */
284 76193d7c 2003-09-30 devnull for(to++, match++; --n > 0; to++, match++){
285 76193d7c 2003-09-30 devnull if(match->s.sp && match->e.ep){
286 76193d7c 2003-09-30 devnull p = match->e.ep;
289 76193d7c 2003-09-30 devnull *to = strdup(match->s.sp);
293 76193d7c 2003-09-30 devnull *to = 0;
298 76193d7c 2003-09-30 devnull mkmtime(char *name)
300 76193d7c 2003-09-30 devnull struct stat st;
302 76193d7c 2003-09-30 devnull if(stat(name, &st) < 0)
303 76193d7c 2003-09-30 devnull return 0;
305 76193d7c 2003-09-30 devnull return st.st_mtime;