/*
 * Copyright (C) 2022 Kovid Goyal <kovid at kovidgoyal.net>
 *
 * Distributed under terms of the GPL3 license.
 */

// for SA_RESTART
#define _XOPEN_SOURCE 700
// for cfmakeraw
#ifdef __APPLE__
#define _DARWIN_C_SOURCE 1
#else
#define _DEFAULT_SOURCE
#endif

// Includes {{{
#include <stdio.h>
#include <signal.h>
#include <stdlib.h>
#include <unistd.h>
#include <termios.h>
#include <errno.h>
#include <sys/socket.h>
#include <sys/un.h>
#include <sys/ioctl.h>
#include <sys/stat.h>
#include <fcntl.h>
#include <poll.h>
#include <string.h>
#include <stdint.h>
#include <stdbool.h>
#ifdef __APPLE__
#include <util.h>
#include <mach-o/dyld.h>
#include <sys/syslimits.h>
#include <sys/stat.h>
#else
#include <pty.h>
#endif
#include <limits.h>

#define arraysz(x) (sizeof(x)/sizeof(x[0]))

#define MAX(x, y) __extension__ ({ \
    __typeof__ (x) a = (x); __typeof__ (y) b = (y); \
        a > b ? a : b;})
// }}}

#define IO_BUZ_SZ 8192
#define remove_i_from_array(array, i, count) { \
    (count)--; \
    if ((i) < (count)) { \
        memmove((array) + (i), (array) + (i) + 1, sizeof((array)[0]) * ((count) - (i))); \
    }}

typedef struct transfer_buf {
    char *buf;
    size_t sz;
} transfer_buf;
static transfer_buf from_child_tty = {0};
static transfer_buf to_child_tty = {0};
static char child_tty_name[256];
static int child_master_fd = -1, child_slave_fd = -1;
static struct winsize self_winsize = {0};
static struct termios self_termios = {0}, restore_termios = {0};
static bool termios_needs_restore = false;
static int self_ttyfd = -1, socket_fd = -1, signal_read_fd = -1, signal_write_fd = -1;
static int stdin_pos = -1, stdout_pos = -1, stderr_pos = -1;
static char fd_send_buf[256];
struct iovec launch_msg = {0};
struct msghdr launch_msg_container = {.msg_control = fd_send_buf, .msg_controllen = sizeof(fd_send_buf), .msg_iov = &launch_msg, .msg_iovlen = 1 };
static size_t launch_msg_cap = 0;
char *launch_msg_buf = NULL;
static pid_t child_pid = 0;


static void
left_shift_buffer(transfer_buf *t, size_t n) {
    if (t->sz > n) {
        t->sz -= n;
        memmove(t->buf, t->buf + n, t->sz);
    } else t->sz = 0;
}

#define err_prefix "prewarm wrapper process error: "
static inline void
print_error(const char *s, int errnum) {
    if (errnum != 0) fprintf(stderr, "%s%s: %s\n\r", err_prefix, s, strerror(errnum));
    else fprintf(stderr, "%s%s\n\r", err_prefix, s);
}
#define pe(fmt, ...) { fprintf(stderr, err_prefix); fprintf(stderr, fmt, __VA_ARGS__); fprintf(stderr, "\n\r"); }

static bool
parse_long(const char *str, long *val) {
    char *temp;
    bool rc = true;
    errno = 0;
    const long t = strtol(str, &temp, 0);
    if (temp == str || *temp != '\0' || ((*val == LONG_MIN || *val == LONG_MAX) && errno == ERANGE)) rc = false;
    *val = t;
    return rc;
}

static inline int
safe_open(const char *path, int flags, mode_t mode) {
    while (true) {
        int fd = open(path, flags, mode);
        if (fd == -1 && errno == EINTR) continue;
        return fd;
    }
}

static inline void
safe_close(int fd) {
    while(close(fd) != 0 && errno == EINTR);
}

static inline int
safe_dup2(int a, int b) {
    int ret;
    while((ret = dup2(a, b)) < 0 && errno == EINTR);
    return ret;
}

static inline bool
safe_tcsetattr(int fd, int actions, const struct termios *tp) {
    int ret = 0;
    while((ret = tcsetattr(fd, actions, tp)) != 0 && errno == EINTR);
    return ret == 0;
}

static ssize_t
safe_read(int fd, void *buf, size_t n) {
    ssize_t ret = 0;
    while((ret = read(fd, buf, n)) ==-1 && errno == EINTR);
    return ret;
}

static ssize_t
safe_send(int fd, void *buf, size_t n, int flags) {
    ssize_t ret = 0;
    while((ret = send(fd, buf, n, flags)) ==-1 && errno == EINTR);
    return ret;
}


static ssize_t
safe_write(int fd, void *buf, size_t n) {
    ssize_t ret = 0;
    while((ret = write(fd, buf, n)) ==-1 && errno == EINTR);
    return ret;
}

static bool
set_blocking(int fd, bool blocking) {
   if (fd < 0) return false;
   int flags = fcntl(fd, F_GETFL, 0);
   if (flags == -1) return false;
   flags = blocking ? (flags & ~O_NONBLOCK) : (flags | O_NONBLOCK);
   return (fcntl(fd, F_SETFL, flags) == 0) ? true : false;
}

static int
connect_to_socket_synchronously(const char *addr) {
    struct sockaddr_un sock_addr = {.sun_family=AF_UNIX};
    strncpy(sock_addr.sun_path, addr, sizeof(sock_addr.sun_path) - 1);
    int fd = socket(AF_UNIX, SOCK_STREAM, 0);
#ifdef __linux__
    const size_t addrlen = strnlen(sock_addr.sun_path, sizeof(sock_addr.sun_path)) + sizeof(sock_addr.sun_family);
    if (sock_addr.sun_path[0] == '@') sock_addr.sun_path[0] = 0;
#else
    const size_t addrlen = sizeof(sock_addr);
#endif
    if (connect(fd, (struct sockaddr*)&sock_addr, addrlen) != 0) {
        if (errno != EINTR && errno != EINPROGRESS) return -1;
        struct pollfd poll_data = {.fd=fd, .events=POLLOUT};
        while (poll (&poll_data, 1, -1) == -1) { if (errno != EINTR) return -1; }
        int socket_error_code = 0;
        socklen_t sizeof_socket_error_code = sizeof(socket_error_code);
        if (getsockopt (fd, SOL_SOCKET, SO_ERROR, &socket_error_code, &sizeof_socket_error_code) == -1) return -1;
        if (socket_error_code != 0) return -1;
    }
    return fd;
}

static bool
is_prewarmable(int argc, char *argv[]) {
    if (argc < 2) return false;
    if (argv[1][0] != '+') return false;
    if (argv[1][1] != 0) return strcmp(argv[1], "+open") != 0;
    if (argc < 3) return false;
    return strcmp(argv[2], "open") != 0;
}

static void
cleanup(void) {
    child_pid = 0;
    if (self_ttyfd > -1 && termios_needs_restore) { safe_tcsetattr(self_ttyfd, TCSAFLUSH, &restore_termios); termios_needs_restore = false; }
#define cfd(fd) if (fd > -1) { safe_close(fd); fd = -1; }
    cfd(child_master_fd); cfd(child_slave_fd);
    cfd(self_ttyfd); cfd(socket_fd); cfd(signal_read_fd); cfd(signal_write_fd);
#undef cfd
    if (launch_msg_buf) { free(launch_msg_buf); launch_msg.iov_len = 0; launch_msg_buf = NULL; }
    if (from_child_tty.buf) { free(from_child_tty.buf); from_child_tty.buf = NULL; }
}

static bool
safe_winsz(int fd, int action, struct winsize *ws) {
    int ret;
    while ((ret = ioctl(fd, action, ws)) == -1 && errno == EINTR);
    return ret != -1;
}

static bool
get_window_size(void) {
    return safe_winsz(self_ttyfd, TIOCGWINSZ, &self_winsize);
}

static bool
get_termios_state(void) {
    while (tcgetattr(self_ttyfd, &self_termios) != 0) {
        if (errno != EINTR) return false;
    }
    return true;
}

bool
set_iutf8(int fd, bool on) {
    (void)fd; (void)on;
#ifdef IUTF8
    struct termios attrs;
    if (tcgetattr(fd, &attrs) != 0) return false;
    if (on) attrs.c_iflag |= IUTF8;
    else attrs.c_iflag &= ~IUTF8;
    if (tcsetattr(fd, TCSANOW, &attrs) != 0) return false;
#endif
    return true;
}


static bool
open_pty(void) {
    while (openpty(&child_master_fd, &child_slave_fd, child_tty_name, &self_termios, &self_winsize) == -1) {
        if (errno != EINTR) return false;
    }
    return set_iutf8(child_master_fd, true);
}

static void
handle_signal(int sig_num, siginfo_t *si, void *ucontext) {
    (void)sig_num; (void)ucontext;
    int save_err = errno;
    char *buf = (char*)si;
    size_t sz = sizeof(siginfo_t);
    while (signal_write_fd != -1 && sz) {
        // as long as sz is less than PIPE_BUF write will either write all or return -1 with EAGAIN
        // so we are guaranteed atomic writes, barring implementation bugs
        ssize_t ret = safe_write(signal_write_fd, buf, sz);
        if (ret <= 0) break;
        sz -= ret;
        buf += ret;
    }
    errno = save_err;
}

static bool
setup_signal_handler(void) {
    int fds[2];
    if (pipe(fds) != 0) return false;
    signal_read_fd = fds[0]; signal_write_fd = fds[1];
    set_blocking(signal_write_fd, false);
    sigset_t masked_signals;
    sigemptyset(&masked_signals);
    sigaddset(&masked_signals, SIGWINCH);
    sigaddset(&masked_signals, SIGINT);
    sigaddset(&masked_signals, SIGTERM);
    sigaddset(&masked_signals, SIGQUIT);
    sigaddset(&masked_signals, SIGHUP);
    sigaddset(&masked_signals, SIGTSTP);
    struct sigaction act = {.sa_sigaction=handle_signal, .sa_flags=SA_SIGINFO | SA_RESTART, .sa_mask = masked_signals};
#define a(which) if (sigaction(which, &act, NULL) != 0) return false;
    a(SIGWINCH); a(SIGINT); a(SIGTERM); a(SIGQUIT); a(SIGHUP); a(SIGTSTP);
#undef a
    return true;
}

static void
setup_stdio_handles(void) {
    int pos = 0;
    if (!isatty(STDIN_FILENO)) stdin_pos = pos++;
    if (!isatty(STDOUT_FILENO)) stdout_pos = pos++;
    if (!isatty(STDERR_FILENO)) stderr_pos = pos++;
}

static bool
ensure_launch_msg_space(size_t sz) {
    if (launch_msg_cap > launch_msg.iov_len + sz) return true;
    const size_t c = MAX(2 * launch_msg_cap, launch_msg_cap + launch_msg.iov_len + sz + 8);
    launch_msg_cap = MAX(c, 64 * 1024);
    launch_msg_buf = realloc(launch_msg_buf, launch_msg_cap);
    return launch_msg_buf != NULL;
}

static bool
write_item_to_launch_msg(const char *prefix, const char *data) {
    size_t prefixlen = strlen(prefix), datalen = strlen(data), msg_len = 8 + prefixlen + datalen;
    if (!ensure_launch_msg_space(msg_len)) return false;
    memcpy(launch_msg_buf + launch_msg.iov_len, prefix, prefixlen);
    launch_msg.iov_len += prefixlen;
    launch_msg_buf[launch_msg.iov_len++] = ':';
    memcpy(launch_msg_buf + launch_msg.iov_len, data, datalen);
    launch_msg.iov_len += datalen;
    launch_msg_buf[launch_msg.iov_len++] = 0;
    launch_msg.iov_base = launch_msg_buf;
    return true;
}

extern char **environ;

static bool
create_launch_msg(int argc, char *argv[]) {
#define w(prefix, data) { if (!write_item_to_launch_msg(prefix, data)) return false; }
    static char buf[4*PATH_MAX];
    w("tty_name", child_tty_name);
    snprintf(buf, sizeof(buf), "%zu", sizeof(self_winsize));
    w("winsize", buf);
    if (getcwd(buf, sizeof(buf))) { w("cwd", buf); }
    for (int i = 0; i < argc; i++) w("argv", argv[i]);
    char **s = environ;
    for (; *s; s++) w("env", *s);
    int num_fds = 0, fds[4];
#define sio(which, x) if (which##_pos > -1) { snprintf(buf, sizeof(buf), "%d", which##_pos); w(#which, buf); fds[num_fds++] = x;  }
    sio(stdin, STDIN_FILENO); sio(stdout, STDOUT_FILENO); sio(stderr, STDERR_FILENO);
#undef sio
    w("finish", "");
    struct cmsghdr *cmsg = CMSG_FIRSTHDR(&launch_msg_container);
    cmsg->cmsg_len = CMSG_LEN(sizeof(fds[0]) * num_fds);
    memcpy(CMSG_DATA(cmsg), fds, num_fds * sizeof(fds[0]));
    launch_msg_container.msg_controllen = cmsg->cmsg_len;
    cmsg->cmsg_level = SOL_SOCKET;
    cmsg->cmsg_type = SCM_RIGHTS;
    return true;
#undef w
}

static int exit_status = EXIT_FAILURE;
static int pending_signals[32] = {0};
enum ChildState { CHILD_NOT_STARTED, CHILD_STARTED, CHILD_STOPPED, CHILD_EXITED };
static enum ChildState child_state = CHILD_NOT_STARTED;

static bool
read_from_zygote(void) {
    ssize_t n;
    static char buf[64];
    static transfer_buf t = {.buf=buf};
    n = safe_read(socket_fd, t.buf + t.sz, sizeof(buf) - t.sz);
    if (n < 0) {
        if (errno == EIO || errno == EPIPE) { socket_fd = -1; return true; }
        return false;
    }
    if (n) {
        t.sz += n;
        while (t.sz >= sizeof(long long)) {
            long long val = *((long long*)t.buf);
            left_shift_buffer(&t, sizeof(long long));
            if (child_state == CHILD_NOT_STARTED) {
                if (val == 0) { print_error("Got zero child pid from prewarm socket", 0); return false; }
                child_pid = val;
                child_state = CHILD_STARTED;
                if (child_slave_fd > -1) { safe_close(child_slave_fd); child_slave_fd = -1; }
                for (size_t i = 0; i < arraysz(pending_signals) && pending_signals[i]; i++) {
                    kill(child_pid, pending_signals[i]);
                }
                memset(pending_signals, 0, sizeof(pending_signals));
            } else {
                int child_exit_status = val;
                if (WIFEXITED(child_exit_status)) {
                    exit_status = WEXITSTATUS(child_exit_status);
                    child_pid = 0;
                    child_state = CHILD_EXITED;
                } else if (WIFSIGNALED(child_exit_status)) {
                    int signum = WTERMSIG(child_exit_status);
                    if (signum > 0) {
                        signal(signum, SIG_DFL);
                        cleanup();
                        raise(signum);
                        _exit(1);
                    }
                } else if (WIFSTOPPED(child_exit_status)) {
                    child_state = CHILD_STOPPED;
                    int signum = WSTOPSIG(child_exit_status);
                    safe_tcsetattr(self_ttyfd, TCSANOW, &restore_termios);
                    termios_needs_restore = false;
                    struct sigaction defval = {.sa_handler = SIG_DFL}, original;
                    sigaction(signum, &defval, &original);
                    raise(signum);
                    sigaction(signum, &original, NULL);
                    safe_tcsetattr(self_ttyfd, TCSANOW, &self_termios);
                    termios_needs_restore = true;
                    if (child_pid > 0) {
                        kill(child_pid, SIGCONT);
                    }
                    child_state = CHILD_STARTED;
                }
            }
        }
    } else { socket_fd = -1; return true; }
    return true;
}

static void
close_sent_fds(void) {
#define redirect(which, mode) { int fd = safe_open("/dev/null", mode | O_CLOEXEC, 0); if (fd > -1) { safe_dup2(fd, which); safe_close(fd); } }
    if (stdin_pos > -1) redirect(STDIN_FILENO, O_RDONLY);
    if (stdout_pos > -1) redirect(STDOUT_FILENO, O_WRONLY);
    if (stderr_pos > -1) redirect(STDERR_FILENO, O_WRONLY);
#undef redirect
}

static bool
send_launch_msg(void) {
    ssize_t n;
    while ((n = sendmsg(socket_fd, &launch_msg_container, MSG_NOSIGNAL)) < 0 && errno == EINTR);
    if (n < 0) return false;
    if (n == 0) { errno = EPIPE; return false; }
    // some bytes sent, null out the control msg data as it is already sent
    launch_msg_container.msg_controllen = 0;
    launch_msg_container.msg_control = NULL;
    if ((size_t)n > launch_msg.iov_len) {
        launch_msg.iov_len = 0;
        close_sent_fds();
    }
    else launch_msg.iov_len -= n;
    launch_msg.iov_base = (char*)launch_msg.iov_base + n;
    return true;
}

struct fd_to_watch {
    bool want_read, want_write, want_error;
};

struct watched_fds {
    struct fd_to_watch self_ttyfd, signal_read_fd, socket_fd, child_master_fd;
};
static struct watched_fds wf = {0};

static bool
read_from_tty(int *fd, transfer_buf *t) {
    if (*fd < 0) return true;
    if (t->sz < IO_BUZ_SZ) {
        ssize_t n = safe_read(*fd, t->buf + t->sz, IO_BUZ_SZ - t->sz);
        if (n < 0) {
            if (errno == EPIPE || errno == EIO) { *fd = -1; return true; }
            return false;
        }
        if (n == 0) *fd = -1; // hangup
        t->sz += n;
    }
    return true;
}

static bool
read_from_child_tty(void) {
    return read_from_tty(&child_master_fd, &from_child_tty);
}

static bool
write_to_tty(transfer_buf *src, int *dest_fd) {
    if (*dest_fd < 0) return true;
    if (src->sz) {
        ssize_t n = safe_write(*dest_fd, src->buf, src->sz);
        if (n < 0) {
            if (errno == EPIPE || errno == EIO) { *dest_fd = -1; return true; }
            return false;
        }
        if (n > 0) {
            left_shift_buffer(src, n);
        } else *dest_fd = -1;
    }
    return true;
}

static bool
from_child_to_self(void) {
    return write_to_tty(&from_child_tty, &self_ttyfd);
}

static bool
from_self_to_child(void) {
    return write_to_tty(&to_child_tty, &child_master_fd);
}


static bool
read_from_self_tty(void) {
    return read_from_tty(&self_ttyfd, &to_child_tty);
}

static bool window_size_dirty = false;

static bool
read_signals(void) {
    static char buf[sizeof(siginfo_t) * 8];
    static transfer_buf b = {.buf=buf};
    ssize_t len = safe_read(signal_read_fd, buf + b.sz, sizeof(buf) - b.sz);
    if (len < 0) return false;
    if (len == 0) return true;
    b.sz += len;
    while (b.sz >= sizeof(siginfo_t)) {
        siginfo_t *sig = (siginfo_t*)buf;
        switch(sig->si_signo) {
            case SIGWINCH:
                window_size_dirty = true; break;
            case SIGINT: case SIGTERM: case SIGHUP: case SIGQUIT: case SIGTSTP:
                if (child_pid > 0) kill(child_pid, sig->si_signo);
                else {
                    for (size_t i = 0; i < arraysz(pending_signals); i++) {
                        if (!pending_signals[i]) {
                            pending_signals[i] = sig->si_signo;
                            break;
                        }
                    }
                }
                break;
        }
        left_shift_buffer(&b, sizeof(siginfo_t));
    }
    return true;
}

static bool
keep_going(void) {
    switch(child_state) {
        case CHILD_NOT_STARTED:
            return self_ttyfd > -1 && signal_read_fd > -1 && socket_fd > -1 && child_master_fd > -1;
        case CHILD_STARTED:
        case CHILD_STOPPED:
            return self_ttyfd > -1 && signal_read_fd > -1 && socket_fd > -1;
        case CHILD_EXITED:
            return self_ttyfd > -1 && signal_read_fd > -1 && child_master_fd > -1;
    }
    return false;
}

static void
flush_data(void) {
    if (child_master_fd > -1 && from_child_tty.sz < IO_BUZ_SZ) {
        set_blocking(child_master_fd, false);
        read_from_child_tty();
    }
    if (self_ttyfd > -1 && from_child_tty.sz > 0) {
        set_blocking(self_ttyfd, false);
        from_child_to_self();
    }
}

static char sosbuf[2 * sizeof(self_winsize)] = {0};
static transfer_buf send_on_socket = {.buf=sosbuf};

static void
add_window_size_to_buffer(void) {
    char *p;
    if (send_on_socket.sz % sizeof(self_winsize)) {
        // partial send
        if (send_on_socket.sz > sizeof(self_winsize)) send_on_socket.sz -= sizeof(self_winsize); // replace second size
        p = send_on_socket.buf + send_on_socket.sz;
        send_on_socket.sz += sizeof(self_winsize);
    } else {
        // replace all sizes
        p = send_on_socket.buf;
        send_on_socket.sz = sizeof(self_winsize);
    }
    memcpy(p, &self_winsize, sizeof(self_winsize));
}

static bool
send_over_socket(void) {
    if (!send_on_socket.sz || socket_fd < 0) return true;
    ssize_t n = safe_send(socket_fd, send_on_socket.buf, send_on_socket.sz, MSG_NOSIGNAL);
    if (n < 0) return false;
    if (n) {
        if (n >= send_on_socket.sz) send_on_socket.sz = 0;
        else {
            left_shift_buffer(&send_on_socket, n);
        }
    }
    return true;
}

static void
loop(void) {
#define fail(s) { print_error(s, errno); return; }
    int ret, nfds = 0;
#define init(which) wf.which.want_read = true; nfds = MAX(which, nfds);
    init(self_ttyfd); init(signal_read_fd); init(socket_fd); init(child_master_fd);
#undef init
    fd_set readable, writable, errorable;
    nfds++;

    while (keep_going()) {
        if (window_size_dirty) {
            if (!get_window_size()) fail("getting window size for self tty failed");
            // macOS barfs with ENOTTY if we try to use TIOCSWINSZ from this process, so send it to the zygote
            /* if (!safe_winsz(child_master_fd, TIOCSWINSZ, &self_winsize)) fail("setting window size on child pty failed"); */
            add_window_size_to_buffer();
            window_size_dirty = false;
        }
        wf.self_ttyfd.want_read = to_child_tty.sz < IO_BUZ_SZ; wf.self_ttyfd.want_write = from_child_tty.sz > 0;
        wf.child_master_fd.want_read = from_child_tty.sz < IO_BUZ_SZ; wf.child_master_fd.want_write = to_child_tty.sz > 0;
        wf.socket_fd.want_write = launch_msg.iov_len > 0 || send_on_socket.sz > 0;

        FD_ZERO(&readable); FD_ZERO(&writable); FD_ZERO(&errorable);
#define set(which) if (which > -1) { if (wf.which.want_read) { FD_SET(which, &readable); } if (wf.which.want_write) { FD_SET(which, &writable); } if (wf.which.want_error) { FD_SET(which, &errorable); } }
        set(self_ttyfd); set(child_master_fd); set(socket_fd); set(signal_read_fd);
#undef set
        while ((ret = select(nfds, &readable, &writable, &errorable, NULL)) == -1) { if (errno != EINTR) fail("select() failed"); }
        if (!ret) continue;

        if (child_master_fd > -1) {
            if (FD_ISSET(child_master_fd, &writable)) if (!from_self_to_child()) fail("writing to child tty failed");
            if (FD_ISSET(child_master_fd, &readable)) {
                if (!read_from_child_tty()) fail("reading from child tty failed");
            }
        }
        if (self_ttyfd > -1)  {
            if (FD_ISSET(self_ttyfd, &readable)) if (!read_from_self_tty()) fail("reading from self tty failed");
            if (FD_ISSET(self_ttyfd, &writable)) if (!from_child_to_self()) fail("writing to self tty failed");
        }

        if (signal_read_fd > -1 && FD_ISSET(signal_read_fd, &readable)) if (!read_signals()) fail("reading from signal fd failed");

        if (socket_fd > -1) {
            if (FD_ISSET(socket_fd, &writable)) {
                if (launch_msg.iov_len > 0) { if (!send_launch_msg()) fail("sending launch message failed"); }
                else if (send_on_socket.sz > 0) { if (!send_over_socket()) fail("sending on socket failed"); }
            }
            if (FD_ISSET(socket_fd, &readable)) {
                if (!read_from_zygote()) fail("reading information about child failed");
                if (socket_fd < 0) { // hangup
                    child_pid = 0;
                    child_state = CHILD_EXITED;
                }
            }
        }
    }
#undef fail
}

static char*
check_socket_addr(char *addr) {
    char *p = strchr(addr, ':');
    if (!p) return NULL;
    *p = 0;
    long val = -1;
    bool ok = parse_long(addr, &val);
    *p = ':';
    if (!ok || val != geteuid()) return NULL;
    addr = p + 1;
    p = strchr(addr, ':');
    if (!p) return NULL;
    *p = 0;
    ok = parse_long(addr, &val);
    *p = ':';
    if (!ok || val != getegid()) return NULL;
    return p + 1;
}

void
use_prewarmed_process(int argc, char *argv[]) {
    char *env_addr = getenv("KITTY_PREWARM_SOCKET");
    if (!env_addr || !*env_addr || !is_prewarmable(argc, argv)) return;
    env_addr = check_socket_addr(env_addr);
    if (!env_addr) return;
    self_ttyfd = safe_open(ctermid(NULL), O_RDWR | O_NONBLOCK, 0);
    if (self_ttyfd < 0) return;
    setup_stdio_handles();
#define fail(s) { print_error(s, errno); cleanup(); return; }
    if (!setup_signal_handler()) fail("Failed to setup signal handling");
    if (!get_window_size()) fail("Failed to get window size of controlling terminal");
    if (!get_termios_state()) fail("Failed to get termios state of controlling terminal");
    if (!open_pty()) fail("Failed to open slave pty");
    memcpy(&restore_termios, &self_termios, sizeof(restore_termios));
    termios_needs_restore = true;
    cfmakeraw(&self_termios);
    if (!safe_tcsetattr(self_ttyfd, TCSANOW, &self_termios)) fail("Failed to put tty into raw mode");
    if (!create_launch_msg(argc, argv)) fail("Failed to open controlling terminal");
    socket_fd = connect_to_socket_synchronously(env_addr);
    if (socket_fd < 0) fail("Failed to connect to prewarm socket");
    from_child_tty.buf = malloc(IO_BUZ_SZ * 2);
    if (!from_child_tty.buf) fail("Out of memory allocating IO buffer");
    to_child_tty.buf = from_child_tty.buf + IO_BUZ_SZ;
#undef fail

    loop();
    flush_data();
    cleanup();
    exit(exit_status);
}