pid_t setsid(void) { if(_RFORK(RFNAMEG|RFNOTEG) < 0){ _syserrno(); return -1; } _sessleader = 1; return getpgrp(); }
pid_t fork(void) { int n; n = _RFORK(RFENVG|RFFDG|RFPROC); if(n < 0) _syserrno(); if(n == 0) { _detachbuf(); _sessleader = 0; } return n; }
int execve(const char *name, const char *argv[], const char *envp[]) { int n, f, i; char **e, *ss, *se; Fdinfo *fi; unsigned long flags; char nam[256+5]; char buf[1000]; _RFORK(RFCENVG); /* * To pass _fdinfo[] across exec, put lines like * fd flags oflags * in $_fdinfo (for open fd's) */ f = _CREATE("#e/_fdinfo", OWRITE, 0666); ss = buf; for(n = 0; n<OPEN_MAX; n++){ fi = &_fdinfo[n]; flags = fi->flags; if(flags&FD_CLOEXEC){ _CLOSE(n); fi->flags = 0; fi->oflags = 0; }else if(flags&FD_ISOPEN){ ss = _ultoa(ss, n); *ss++ = ' '; ss = _ultoa(ss, flags); *ss++ = ' '; ss = _ultoa(ss, fi->oflags); *ss++ = '\n'; if(ss-buf < sizeof(buf)-50){ _WRITE(f, buf, ss-buf); ss = buf; } } } if(ss > buf) _WRITE(f, buf, ss-buf); _CLOSE(f); /* * To pass _sighdlr[] across exec, set $_sighdlr * to list of blank separated fd's that have * SIG_IGN (the rest will be SIG_DFL). * We write the variable, even if no signals * are ignored, in case the current value of the * variable ignored some. */ f = _CREATE("#e/_sighdlr", OWRITE, 0666); if(f >= 0){ ss = buf; for(i = 0; i <=MAXSIG && ss < &buf[sizeof(buf)]-5; i++) { if(_sighdlr[i] == SIG_IGN) { ss = _ultoa(ss, i); *ss++ = ' '; } } _WRITE(f, buf, ss-buf); _CLOSE(f); } if(envp){ strcpy(nam, "#e/"); for(e = (char **)envp; (ss = *e); e++) { se = strchr(ss, '='); if(!se || ss==se) continue; /* what is name? value? */ n = se-ss; if(n >= sizeof(nam)-3) n = sizeof(nam)-3-1; memcpy(nam+3, ss, n); nam[3+n] = 0; f = _CREATE(nam, OWRITE, 0666); if(f < 0) continue; se++; /* past = */ n = strlen(se); /* temporarily decode nulls (see _envsetup()) */ for(i=0; i < n; i++) if(se[i] == 1) se[i] = 0; _WRITE(f, se, n); /* put nulls back */ for(i=0; i < n; i++) if(se[i] == 0) se[i] = 1; _CLOSE(f); } } n = _EXEC(name, argv); _syserrno(); return n; }
/* * replace the fd with a pipe and start a process to * accept calls in. this is all to make select work. */ static int listenproc(Rock *r, int fd) { Rock *nr; char *net; int cfd, nfd, dfd; int pfd[2]; struct stat d; char *p; char listen[Ctlsize]; char name[Ctlsize]; switch(r->stype){ case SOCK_DGRAM: net = "udp"; break; case SOCK_STREAM: net = "tcp"; break; default: net = "gok"; break; } strcpy(listen, r->ctl); p = strrchr(listen, '/'); if(p == 0) return -1; strcpy(p+1, "listen"); if(pipe(pfd) < 0) return -1; /* replace fd with a pipe */ nfd = dup(fd); dup2(pfd[0], fd); close(pfd[0]); fstat(fd, &d); r->inode = d.st_ino; r->dev = d.st_dev; /* start listening process */ switch(fork()){ case -1: close(pfd[1]); close(nfd); return -1; case 0: if(_muxsid == -1) { _RFORK(RFNOTEG); _muxsid = getpgrp(); } else setpgid(getpid(), _muxsid); _RENDEZVOUS(2, _muxsid); break; default: atexit(_killmuxsid); _muxsid = _RENDEZVOUS(2, 0); close(pfd[1]); close(nfd); return 0; } /* for(fd = 0; fd < 30; fd++) if(fd != nfd && fd != pfd[1]) close(fd);/**/ for(;;){ cfd = open(listen, O_RDWR); if(cfd < 0) break; dfd = _sock_data(cfd, net, r->domain, r->stype, r->protocol, &nr); if(dfd < 0) break; if(write(pfd[1], nr->ctl, strlen(nr->ctl)) < 0) break; if(read(pfd[1], name, sizeof(name)) <= 0) break; close(dfd); } exit(0); return 0; }
int execve(const char *name, const char *argv[], const char *envp[]) { int n, f, i; char **e, *ss, *se; Fdinfo *fi; unsigned long flags; char buf[1024]; _RFORK(RFCENVG); /* * To pass _fdinfo[] across exec, put lines like * fd flags oflags * in $_fdinfo (for open fd's) */ f = _CREATE("/env/_fdinfo", OWRITE, 0666); ss = buf; for(i = 0; i<OPEN_MAX; i++){ if(i == f) continue; fi = &_fdinfo[i]; flags = fi->flags; if(flags&FD_CLOEXEC){ _CLOSE(i); fi->flags = 0; fi->oflags = 0; }else if(flags&FD_ISOPEN){ if(f < 0) continue; ss = _ultoa(ss, i); *ss++ = ' '; ss = _ultoa(ss, flags); *ss++ = ' '; ss = _ultoa(ss, fi->oflags); *ss++ = '\n'; n = ss-buf; if(n > sizeof(buf)-50){ if(_WRITE(f, buf, n) != n) break; ss = buf; } } } if(f >= 0){ if(ss > buf) _WRITE(f, buf, ss-buf); _CLOSE(f); } /* * To pass _sighdlr[] across exec, set $_sighdlr * to list of blank separated fd's that have * SIG_IGN (the rest will be SIG_DFL). * We write the variable, even if no signals * are ignored, in case the current value of the * variable ignored some. */ f = _CREATE("/env/_sighdlr", OWRITE, 0666); if(f >= 0){ ss = buf; for(i = 0; i <=MAXSIG; i++) { if(_sighdlr[i] == SIG_IGN) { ss = _ultoa(ss, i); *ss++ = ' '; n = ss-buf; if(n > sizeof(buf)-20){ if(_WRITE(f, buf, n) != n) break; ss = buf; } } } if(ss > buf) _WRITE(f, buf, ss-buf); _CLOSE(f); } if(envp){ for(e = envp; (ss = *e); e++) { se = strchr(ss, '='); if(!se || ss==se) continue; /* what is name? value? */ n = se-ss; if(n >= sizeof(buf)-5) continue; /* name too long */ strcpy(buf, "/env/"); memcpy(buf+5, ss, n); buf[5+n] = 0; f = _CREATE(buf, OWRITE, 0666); if(f < 0) continue; ss = ++se; /* past = */ se += strlen(ss); while((n = (se - ss)) > 0){ if(n > sizeof(buf)) n = sizeof(buf); /* decode nulls (see _envsetup()) */ for(i=0; i<n; i++) if((buf[i] = ss[i]) == 1) buf[i] = 0; if(_WRITE(f, buf, n) != n) break; ss += n; } _CLOSE(f); } } n = _EXEC(name, argv); _syserrno(); return n; }