--- /dev/null
+/**
+ * Copyright (c) 2012-2015, Christopher Jeffrey (MIT License)
+ * Copyright (c) 2017, Daniel Imms (MIT License)
+ *
+ * pty.cc:
+ * This file is responsible for starting processes
+ * with pseudo-terminal file descriptors.
+ *
+ * See:
+ * man pty
+ * man tty_ioctl
+ * man termios
+ * man forkpty
+ */
+
+/**
+ * Includes
+ */
+
+#include <nan.h>
+#include <errno.h>
+#include <string.h>
+#include <stdlib.h>
+#include <unistd.h>
+
+#include <sys/types.h>
+#include <sys/stat.h>
+#include <sys/ioctl.h>
+#include <sys/wait.h>
+#include <fcntl.h>
+
+/* forkpty */
+/* http://www.gnu.org/software/gnulib/manual/html_node/forkpty.html */
+#if defined(__GLIBC__) || defined(__CYGWIN__)
+#include <pty.h>
+#elif defined(__APPLE__) || defined(__OpenBSD__) || defined(__NetBSD__)
+#include <util.h>
+#elif defined(__FreeBSD__)
+#include <libutil.h>
+#elif defined(__sun)
+#include <stropts.h> /* for I_PUSH */
+#else
+#include <pty.h>
+#endif
+
+#include <termios.h> /* tcgetattr, tty_ioctl */
+
+/* Some platforms name VWERASE and VDISCARD differently */
+#if !defined(VWERASE) && defined(VWERSE)
+#define VWERASE VWERSE
+#endif
+#if !defined(VDISCARD) && defined(VDISCRD)
+#define VDISCARD VDISCRD
+#endif
+
+/* environ for execvpe */
+/* node/src/node_child_process.cc */
+#if defined(__APPLE__) && !TARGET_OS_IPHONE
+#include <crt_externs.h>
+#define environ (*_NSGetEnviron())
+#else
+extern char **environ;
+#endif
+
+/* for pty_getproc */
+#if defined(__linux__)
+#include <stdio.h>
+#include <stdint.h>
+#elif defined(__APPLE__)
+#include <sys/sysctl.h>
+#include <libproc.h>
+#endif
+
+/**
+ * Structs
+ */
+
+struct pty_baton {
+ Nan::Persistent<v8::Function> cb;
+ int exit_code;
+ int signal_code;
+ pid_t pid;
+ uv_async_t async;
+ uv_thread_t tid;
+};
+
+/**
+ * Methods
+ */
+
+NAN_METHOD(PtyFork);
+NAN_METHOD(PtyOpen);
+NAN_METHOD(PtyResize);
+NAN_METHOD(PtyGetProc);
+
+/**
+ * Functions
+ */
+
+static int
+pty_execvpe(const char *, char **, char **);
+
+static int
+pty_nonblock(int);
+
+static char *
+pty_getproc(int, char *);
+
+static int
+pty_openpty(int *, int *, char *,
+ const struct termios *,
+ const struct winsize *);
+
+static pid_t
+pty_forkpty(int *, char *,
+ const struct termios *,
+ const struct winsize *);
+
+static void
+pty_waitpid(void *);
+
+static void
+pty_after_waitpid(uv_async_t *);
+
+static void
+pty_after_close(uv_handle_t *);
+
+NAN_METHOD(PtyFork) {
+ Nan::HandleScope scope;
+
+ if (info.Length() != 10 ||
+ !info[0]->IsString() ||
+ !info[1]->IsArray() ||
+ !info[2]->IsArray() ||
+ !info[3]->IsString() ||
+ !info[4]->IsNumber() ||
+ !info[5]->IsNumber() ||
+ !info[6]->IsNumber() ||
+ !info[7]->IsNumber() ||
+ !info[8]->IsBoolean() ||
+ !info[9]->IsFunction()) {
+ return Nan::ThrowError(
+ "Usage: pty.fork(file, args, env, cwd, cols, rows, uid, gid, utf8, onexit)");
+ }
+
+ // Make sure the process still listens to SIGINT
+ signal(SIGINT, SIG_DFL);
+
+ // file
+ Nan::Utf8String file(info[0]);
+
+ // args
+ int i = 0;
+ v8::Local<v8::Array> argv_ = v8::Local<v8::Array>::Cast(info[1]);
+ int argc = argv_->Length();
+ int argl = argc + 1 + 1;
+ char **argv = new char*[argl];
+ argv[0] = strdup(*file);
+ argv[argl-1] = NULL;
+ for (; i < argc; i++) {
+ Nan::Utf8String arg(Nan::Get(argv_, i).ToLocalChecked());
+ argv[i+1] = strdup(*arg);
+ }
+
+ // env
+ i = 0;
+ v8::Local<v8::Array> env_ = v8::Local<v8::Array>::Cast(info[2]);
+ int envc = env_->Length();
+ char **env = new char*[envc+1];
+ env[envc] = NULL;
+ for (; i < envc; i++) {
+ Nan::Utf8String pair(Nan::Get(env_, i).ToLocalChecked());
+ env[i] = strdup(*pair);
+ }
+
+ // cwd
+ Nan::Utf8String cwd_(info[3]);
+ char *cwd = strdup(*cwd_);
+
+ // size
+ struct winsize winp;
+ winp.ws_col = info[4]->IntegerValue(Nan::GetCurrentContext()).FromJust();
+ winp.ws_row = info[5]->IntegerValue(Nan::GetCurrentContext()).FromJust();
+ winp.ws_xpixel = 0;
+ winp.ws_ypixel = 0;
+
+ // termios
+ struct termios t = termios();
+ struct termios *term = &t;
+ term->c_iflag = ICRNL | IXON | IXANY | IMAXBEL | BRKINT;
+ if (Nan::To<bool>(info[8]).FromJust()) {
+#if defined(IUTF8)
+ term->c_iflag |= IUTF8;
+#endif
+ }
+ term->c_oflag = OPOST | ONLCR;
+ term->c_cflag = CREAD | CS8 | HUPCL;
+ term->c_lflag = ICANON | ISIG | IEXTEN | ECHO | ECHOE | ECHOK | ECHOKE | ECHOCTL;
+
+ term->c_cc[VEOF] = 4;
+ term->c_cc[VEOL] = -1;
+ term->c_cc[VEOL2] = -1;
+ term->c_cc[VERASE] = 0x7f;
+ term->c_cc[VWERASE] = 23;
+ term->c_cc[VKILL] = 21;
+ term->c_cc[VREPRINT] = 18;
+ term->c_cc[VINTR] = 3;
+ term->c_cc[VQUIT] = 0x1c;
+ term->c_cc[VSUSP] = 26;
+ term->c_cc[VSTART] = 17;
+ term->c_cc[VSTOP] = 19;
+ term->c_cc[VLNEXT] = 22;
+ term->c_cc[VDISCARD] = 15;
+ term->c_cc[VMIN] = 1;
+ term->c_cc[VTIME] = 0;
+
+ #if (__APPLE__)
+ term->c_cc[VDSUSP] = 25;
+ term->c_cc[VSTATUS] = 20;
+ #endif
+
+ cfsetispeed(term, B38400);
+ cfsetospeed(term, B38400);
+
+ // uid / gid
+ int uid = info[6]->IntegerValue(Nan::GetCurrentContext()).FromJust();
+ int gid = info[7]->IntegerValue(Nan::GetCurrentContext()).FromJust();
+
+ // fork the pty
+ int master = -1;
+ pid_t pid = pty_forkpty(&master, nullptr, term, &winp);
+
+ if (pid) {
+ for (i = 0; i < argl; i++) free(argv[i]);
+ delete[] argv;
+ for (i = 0; i < envc; i++) free(env[i]);
+ delete[] env;
+ free(cwd);
+ }
+
+ switch (pid) {
+ case -1:
+ return Nan::ThrowError("forkpty(3) failed.");
+ case 0:
+ if (strlen(cwd)) {
+ if (chdir(cwd) == -1) {
+ perror("chdir(2) failed.");
+ _exit(1);
+ }
+ }
+
+ if (uid != -1 && gid != -1) {
+ if (setgid(gid) == -1) {
+ perror("setgid(2) failed.");
+ _exit(1);
+ }
+ if (setuid(uid) == -1) {
+ perror("setuid(2) failed.");
+ _exit(1);
+ }
+ }
+
+ pty_execvpe(argv[0], argv, env);
+
+ perror("execvp(3) failed.");
+ _exit(1);
+ default:
+ if (pty_nonblock(master) == -1) {
+ return Nan::ThrowError("Could not set master fd to nonblocking.");
+ }
+
+ v8::Local<v8::Object> obj = Nan::New<v8::Object>();
+ Nan::Set(obj,
+ Nan::New<v8::String>("fd").ToLocalChecked(),
+ Nan::New<v8::Number>(master));
+ Nan::Set(obj,
+ Nan::New<v8::String>("pid").ToLocalChecked(),
+ Nan::New<v8::Number>(pid));
+ Nan::Set(obj,
+ Nan::New<v8::String>("pty").ToLocalChecked(),
+ Nan::New<v8::String>(ptsname(master)).ToLocalChecked());
+
+ pty_baton *baton = new pty_baton();
+ baton->exit_code = 0;
+ baton->signal_code = 0;
+ baton->cb.Reset(v8::Local<v8::Function>::Cast(info[9]));
+ baton->pid = pid;
+ baton->async.data = baton;
+
+ uv_async_init(uv_default_loop(), &baton->async, pty_after_waitpid);
+
+ uv_thread_create(&baton->tid, pty_waitpid, static_cast<void*>(baton));
+
+ return info.GetReturnValue().Set(obj);
+ }
+
+ return info.GetReturnValue().SetUndefined();
+}
+
+NAN_METHOD(PtyOpen) {
+ Nan::HandleScope scope;
+
+ if (info.Length() != 2 ||
+ !info[0]->IsNumber() ||
+ !info[1]->IsNumber()) {
+ return Nan::ThrowError("Usage: pty.open(cols, rows)");
+ }
+
+ // size
+ struct winsize winp;
+ winp.ws_col = info[0]->IntegerValue(Nan::GetCurrentContext()).FromJust();
+ winp.ws_row = info[1]->IntegerValue(Nan::GetCurrentContext()).FromJust();
+ winp.ws_xpixel = 0;
+ winp.ws_ypixel = 0;
+
+ // pty
+ int master, slave;
+ int ret = pty_openpty(&master, &slave, nullptr, NULL, &winp);
+
+ if (ret == -1) {
+ return Nan::ThrowError("openpty(3) failed.");
+ }
+
+ if (pty_nonblock(master) == -1) {
+ return Nan::ThrowError("Could not set master fd to nonblocking.");
+ }
+
+ if (pty_nonblock(slave) == -1) {
+ return Nan::ThrowError("Could not set slave fd to nonblocking.");
+ }
+
+ v8::Local<v8::Object> obj = Nan::New<v8::Object>();
+ Nan::Set(obj,
+ Nan::New<v8::String>("master").ToLocalChecked(),
+ Nan::New<v8::Number>(master));
+ Nan::Set(obj,
+ Nan::New<v8::String>("slave").ToLocalChecked(),
+ Nan::New<v8::Number>(slave));
+ Nan::Set(obj,
+ Nan::New<v8::String>("pty").ToLocalChecked(),
+ Nan::New<v8::String>(ptsname(master)).ToLocalChecked());
+
+ return info.GetReturnValue().Set(obj);
+}
+
+NAN_METHOD(PtyResize) {
+ Nan::HandleScope scope;
+
+ if (info.Length() != 3 ||
+ !info[0]->IsNumber() ||
+ !info[1]->IsNumber() ||
+ !info[2]->IsNumber()) {
+ return Nan::ThrowError("Usage: pty.resize(fd, cols, rows)");
+ }
+
+ int fd = info[0]->IntegerValue(Nan::GetCurrentContext()).FromJust();
+
+ struct winsize winp;
+ winp.ws_col = info[1]->IntegerValue(Nan::GetCurrentContext()).FromJust();
+ winp.ws_row = info[2]->IntegerValue(Nan::GetCurrentContext()).FromJust();
+ winp.ws_xpixel = 0;
+ winp.ws_ypixel = 0;
+
+ if (ioctl(fd, TIOCSWINSZ, &winp) == -1) {
+ switch (errno) {
+ case EBADF: return Nan::ThrowError("ioctl(2) failed, EBADF");
+ case EFAULT: return Nan::ThrowError("ioctl(2) failed, EFAULT");
+ case EINVAL: return Nan::ThrowError("ioctl(2) failed, EINVAL");
+ case ENOTTY: return Nan::ThrowError("ioctl(2) failed, ENOTTY");
+ }
+ return Nan::ThrowError("ioctl(2) failed");
+ }
+
+ return info.GetReturnValue().SetUndefined();
+}
+
+/**
+ * Foreground Process Name
+ */
+NAN_METHOD(PtyGetProc) {
+ Nan::HandleScope scope;
+
+ if (info.Length() != 2 ||
+ !info[0]->IsNumber() ||
+ !info[1]->IsString()) {
+ return Nan::ThrowError("Usage: pty.process(fd, tty)");
+ }
+
+ int fd = info[0]->IntegerValue(Nan::GetCurrentContext()).FromJust();
+
+ Nan::Utf8String tty_(info[1]);
+ char *tty = strdup(*tty_);
+ char *name = pty_getproc(fd, tty);
+ free(tty);
+
+ if (name == NULL) {
+ return info.GetReturnValue().SetUndefined();
+ }
+
+ v8::Local<v8::String> name_ = Nan::New<v8::String>(name).ToLocalChecked();
+ free(name);
+ return info.GetReturnValue().Set(name_);
+}
+
+/**
+ * execvpe
+ */
+
+// execvpe(3) is not portable.
+// http://www.gnu.org/software/gnulib/manual/html_node/execvpe.html
+static int
+pty_execvpe(const char *file, char **argv, char **envp) {
+ char **old = environ;
+ environ = envp;
+ int ret = execvp(file, argv);
+ environ = old;
+ return ret;
+}
+
+/**
+ * Nonblocking FD
+ */
+
+static int
+pty_nonblock(int fd) {
+ int flags = fcntl(fd, F_GETFL, 0);
+ if (flags == -1) return -1;
+ return fcntl(fd, F_SETFL, flags | O_NONBLOCK);
+}
+
+/**
+ * pty_waitpid
+ * Wait for SIGCHLD to read exit status.
+ */
+
+static void
+pty_waitpid(void *data) {
+ int ret;
+ int stat_loc;
+
+ pty_baton *baton = static_cast<pty_baton*>(data);
+
+ errno = 0;
+
+ if ((ret = waitpid(baton->pid, &stat_loc, 0)) != baton->pid) {
+ if (ret == -1 && errno == EINTR) {
+ return pty_waitpid(baton);
+ }
+ if (ret == -1 && errno == ECHILD) {
+ // XXX node v0.8.x seems to have this problem.
+ // waitpid is already handled elsewhere.
+ ;
+ } else {
+ assert(false);
+ }
+ }
+
+ if (WIFEXITED(stat_loc)) {
+ baton->exit_code = WEXITSTATUS(stat_loc); // errno?
+ }
+
+ if (WIFSIGNALED(stat_loc)) {
+ baton->signal_code = WTERMSIG(stat_loc);
+ }
+
+ uv_async_send(&baton->async);
+}
+
+/**
+ * pty_after_waitpid
+ * Callback after exit status has been read.
+ */
+
+static void
+pty_after_waitpid(uv_async_t *async) {
+ Nan::HandleScope scope;
+ pty_baton *baton = static_cast<pty_baton*>(async->data);
+
+ v8::Local<v8::Value> argv[] = {
+ Nan::New<v8::Integer>(baton->exit_code),
+ Nan::New<v8::Integer>(baton->signal_code),
+ };
+
+ v8::Local<v8::Function> cb = Nan::New<v8::Function>(baton->cb);
+ baton->cb.Reset();
+ memset(&baton->cb, -1, sizeof(baton->cb));
+ Nan::AsyncResource resource("pty_after_waitpid");
+ resource.runInAsyncScope(Nan::GetCurrentContext()->Global(), cb, 2, argv);
+
+ uv_close((uv_handle_t *)async, pty_after_close);
+}
+
+/**
+ * pty_after_close
+ * uv_close() callback - free handle data
+ */
+
+static void
+pty_after_close(uv_handle_t *handle) {
+ uv_async_t *async = (uv_async_t *)handle;
+ pty_baton *baton = static_cast<pty_baton*>(async->data);
+ delete baton;
+}
+
+/**
+ * pty_getproc
+ * Taken from tmux.
+ */
+
+// Taken from: tmux (http://tmux.sourceforge.net/)
+// Copyright (c) 2009 Nicholas Marriott <nicm@users.sourceforge.net>
+// Copyright (c) 2009 Joshua Elsasser <josh@elsasser.org>
+// Copyright (c) 2009 Todd Carson <toc@daybefore.net>
+//
+// Permission to use, copy, modify, and distribute this software for any
+// purpose with or without fee is hereby granted, provided that the above
+// copyright notice and this permission notice appear in all copies.
+//
+// THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
+// WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
+// MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
+// ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
+// WHATSOEVER RESULTING FROM LOSS OF MIND, USE, DATA OR PROFITS, WHETHER
+// IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING
+// OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
+
+#if defined(__linux__)
+
+static char *
+pty_getproc(int fd, char *tty) {
+ FILE *f;
+ char *path, *buf;
+ size_t len;
+ int ch;
+ pid_t pgrp;
+ int r;
+
+ if ((pgrp = tcgetpgrp(fd)) == -1) {
+ return NULL;
+ }
+
+ r = asprintf(&path, "/proc/%lld/cmdline", (long long)pgrp);
+ if (r == -1 || path == NULL) return NULL;
+
+ if ((f = fopen(path, "r")) == NULL) {
+ free(path);
+ return NULL;
+ }
+
+ free(path);
+
+ len = 0;
+ buf = NULL;
+ while ((ch = fgetc(f)) != EOF) {
+ if (ch == '\0') break;
+ buf = (char *)realloc(buf, len + 2);
+ if (buf == NULL) return NULL;
+ buf[len++] = ch;
+ }
+
+ if (buf != NULL) {
+ buf[len] = '\0';
+ }
+
+ fclose(f);
+ return buf;
+}
+
+#elif defined(__APPLE__)
+
+static char *
+pty_getproc(int fd, char *tty) {
+ int mib[4] = { CTL_KERN, KERN_PROC, KERN_PROC_PID, 0 };
+ size_t size;
+ struct kinfo_proc kp;
+
+ if ((mib[3] = tcgetpgrp(fd)) == -1) {
+ return NULL;
+ }
+
+ size = sizeof kp;
+ if (sysctl(mib, 4, &kp, &size, NULL, 0) == -1) {
+ return NULL;
+ }
+
+ if (*kp.kp_proc.p_comm == '\0') {
+ return NULL;
+ }
+
+ return strdup(kp.kp_proc.p_comm);
+}
+
+#else
+
+static char *
+pty_getproc(int fd, char *tty) {
+ return NULL;
+}
+
+#endif
+
+/**
+ * openpty(3) / forkpty(3)
+ */
+
+static int
+pty_openpty(int *amaster,
+ int *aslave,
+ char *name,
+ const struct termios *termp,
+ const struct winsize *winp) {
+#if defined(__sun)
+ char *slave_name;
+ int slave;
+ int master = open("/dev/ptmx", O_RDWR | O_NOCTTY);
+ if (master == -1) return -1;
+ if (amaster) *amaster = master;
+
+ if (grantpt(master) == -1) goto err;
+ if (unlockpt(master) == -1) goto err;
+
+ slave_name = ptsname(master);
+ if (slave_name == NULL) goto err;
+ if (name) strcpy(name, slave_name);
+
+ slave = open(slave_name, O_RDWR | O_NOCTTY);
+ if (slave == -1) goto err;
+ if (aslave) *aslave = slave;
+
+ ioctl(slave, I_PUSH, "ptem");
+ ioctl(slave, I_PUSH, "ldterm");
+ ioctl(slave, I_PUSH, "ttcompat");
+
+ if (termp) tcsetattr(slave, TCSAFLUSH, termp);
+ if (winp) ioctl(slave, TIOCSWINSZ, winp);
+
+ return 0;
+
+err:
+ close(master);
+ return -1;
+#else
+ return openpty(amaster, aslave, name, (termios *)termp, (winsize *)winp);
+#endif
+}
+
+static pid_t
+pty_forkpty(int *amaster,
+ char *name,
+ const struct termios *termp,
+ const struct winsize *winp) {
+#if defined(__sun)
+ int master, slave;
+
+ int ret = pty_openpty(&master, &slave, name, termp, winp);
+ if (ret == -1) return -1;
+ if (amaster) *amaster = master;
+
+ pid_t pid = fork();
+
+ switch (pid) {
+ case -1:
+ close(master);
+ close(slave);
+ return -1;
+ case 0:
+ close(master);
+
+ setsid();
+
+#if defined(TIOCSCTTY)
+ // glibc does this
+ if (ioctl(slave, TIOCSCTTY, NULL) == -1) {
+ _exit(1);
+ }
+#endif
+
+ dup2(slave, 0);
+ dup2(slave, 1);
+ dup2(slave, 2);
+
+ if (slave > 2) close(slave);
+
+ return 0;
+ default:
+ close(slave);
+ return pid;
+ }
+
+ return -1;
+#else
+ return forkpty(amaster, name, (termios *)termp, (winsize *)winp);
+#endif
+}
+
+/**
+ * Init
+ */
+
+NAN_MODULE_INIT(init) {
+ Nan::HandleScope scope;
+ Nan::Export(target, "fork", PtyFork);
+ Nan::Export(target, "open", PtyOpen);
+ Nan::Export(target, "resize", PtyResize);
+ Nan::Export(target, "process", PtyGetProc);
+}
+
+NODE_MODULE(pty, init)