ScmObj Scm_Forkpty(ScmObj slaveterm)
{
int master;
pid_t pid;
struct termios *term = NULL;
if (SCM_SYS_TERMIOS_P(slaveterm)) {
term = &SCM_SYS_TERMIOS(slaveterm)->term;
}
if ((pid = forkpty(&master, NULL, term, NULL)) < 0) {
Scm_SysError("forkpty failed");
}
return Scm_Values2(Scm_MakeInteger(pid), SCM_MAKE_INT(master));
}
ScmObj Scm_Openpty(ScmObj slaveterm)
{
int master, slave;
struct termios *term = NULL;
if (SCM_SYS_TERMIOS_P(slaveterm)) {
term = &SCM_SYS_TERMIOS(slaveterm)->term;
}
if (openpty(&master, &slave, NULL, term, NULL) < 0) {
Scm_SysError("openpty failed");
}
return Scm_Values2(SCM_MAKE_INT(master), SCM_MAKE_INT(slave));
}
ScmObj Scm_SocketRecvFrom(ScmSocket *sock, int bytes, int flags)
{
int r;
struct sockaddr_storage from;
socklen_t fromlen = sizeof(from);
CLOSE_CHECK(sock->fd, "recv from", sock);
char *buf = SCM_NEW_ATOMIC2(char*, bytes);
SCM_SYSCALL(r, recvfrom(sock->fd, buf, bytes, flags,
(struct sockaddr*)&from, &fromlen));
if (r < 0) {
Scm_SysError("recvfrom(2) failed");
}
return Scm_Values2(Scm_MakeString(buf, r, r, SCM_STRING_INCOMPLETE),
Scm_MakeSockAddr(NULL, (struct sockaddr*)&from, fromlen));
}
ScmObj Scm_ForkptyAndExec(ScmString *file, ScmObj args, ScmObj iomap,
ScmObj slaveterm, ScmSysSigset *mask)
{
int argc = Scm_Length(args);
char **argv;
const char *program;
int *fds;
int master;
pid_t pid;
struct termios *term = NULL;
if (argc < 1) {
Scm_Error("argument list must have at least one element: %S", args);
}
argv = Scm_ListToCStringArray(args, TRUE, NULL);
program = Scm_GetStringConst(file);
if (SCM_SYS_TERMIOS_P(slaveterm)) {
term = &SCM_SYS_TERMIOS(slaveterm)->term;
}
fds = Scm_SysPrepareFdMap(iomap);
if ((pid = forkpty(&master, NULL, term, NULL)) < 0) {
Scm_SysError("forkpty failed");
}
if (pid == 0) {
Scm_SysSwapFds(fds);
if (mask) {
Scm_ResetSignalHandlers(&mask->set);
Scm_SysSigmask(SIG_SETMASK, mask);
}
execvp(program, (char *const*)argv);
/* here, we failed */
Scm_Panic("exec failed: %s: %s", program, strerror(errno));
}
return Scm_Values2(Scm_MakeInteger(pid), SCM_MAKE_INT(master));
}
