/*
 * 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

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};

#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 bool
parse_int(const char *str, int *val) {
    long lval = 0;
    if (!parse_long(str, &lval)) return false;
    *val = lval;
    return true;
}

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 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_write(int fd, void *buf, size_t n) {
    ssize_t ret = 0;
    while((ret = write(fd, buf, n)) ==-1 && errno == EINTR);
    return ret;
}

static size_t
strnlength(const char* s, size_t n) {
  const char* found = memchr(s, '\0', n);
  return found ? (size_t)(found-s) : n;
}

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);
    const size_t addrlen = strnlength(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;
    int fd = socket(AF_UNIX, SOCK_STREAM, 0);
    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;
    }
    if (fd > -1) set_blocking(fd, false);
    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 int child_master_fd = -1, child_slave_fd = -1;
static char child_tty_name[PATH_MAX] = {0};
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
cleanup(void) {
    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;
}

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;
    }
    set_blocking(child_master_fd, false);
    return 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
        ssize_t ret = write(signal_write_fd, buf, sz);
        if (ret <= 0) {
            if (errno == EINTR) continue;
            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_read_fd, false); set_blocking(signal_write_fd, false);
    struct sigaction act = {.sa_sigaction=handle_signal, .sa_flags=SA_SIGINFO | SA_RESTART};
    if (sigaction(SIGWINCH, &act, NULL) != 0) return false;
    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);
    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[8];
#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_level = SOL_SOCKET;
    cmsg->cmsg_type = SCM_RIGHTS;
    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;
    return true;
#undef w
}

static int exit_status = EXIT_FAILURE;
static char from_child_buf[64] = {0};
static size_t from_child_buf_pos = 0;

static bool
read_child_data(void) {
    ssize_t n;
    if (from_child_buf_pos >= sizeof(from_child_buf) - 2) { print_error("Too much data from prewarm socket", 0); return false; }
    while ((n = read(socket_fd, from_child_buf, sizeof(from_child_buf) - 2 - from_child_buf_pos)) < 0 && errno == EINTR);
    if (n < 0) {
        print_error("Failed to read from prewarm socket", errno);
        return false;
    }
    if (n) {
        from_child_buf_pos += n;
        char *p = memchr(from_child_buf, ':', from_child_buf_pos);
        if (p && child_pid == 0) {
            *p = 0;
            long cp = 0;
            if (!parse_long(from_child_buf, &cp)) { print_error("Could not parse child pid from prewarm socket", 0); return false; }
            if (cp == 0) { print_error("Got zero child pid from prewarm socket", 0); return false; }
            child_pid = cp;
            if (child_slave_fd > -1) { safe_close(child_slave_fd); child_slave_fd = -1; }
            memset(from_child_buf, 0, (p - from_child_buf) + 1);
            from_child_buf_pos -= (p - from_child_buf) + 1;
            if (from_child_buf_pos) memmove(from_child_buf, p + 1, from_child_buf_pos);
        }
    }
    return true;
}

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) {
        if (errno == EAGAIN || errno == EWOULDBLOCK) return true;
        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;
    else launch_msg.iov_len -= n;
    launch_msg.iov_base = (char*)launch_msg.iov_base + n;
    return true;
}

static bool
read_or_transfer(int src_fd, int dest_fd, transfer_buf *t) {
    (void)dest_fd;
    if (t->sz >= IO_BUZ_SZ) return true;
    ssize_t n = safe_read(src_fd, t->buf + t->sz, IO_BUZ_SZ - t->sz);
    if (n < 0) {
        if (errno == EAGAIN || errno == EWOULDBLOCK) return true;
        return false;
    }
    t->sz += n;
    return true;
}

static bool
read_or_transfer_from_child_tty(void) {
    return read_or_transfer(child_master_fd, self_ttyfd, &from_child_tty);
}

static bool
write_from_to(transfer_buf *src, int dest_fd) {
    if (!src->sz) return true;
    ssize_t n = safe_write(dest_fd, src->buf, src->sz);
    if (n < 0) {
        if (errno == EAGAIN || errno == EWOULDBLOCK) return true;
        return false;
    }
    if (n > 0) {
        src->sz -= n;
        memmove(src->buf, src->buf + n, src->sz);
    }
    return true;
}

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

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


static bool
read_or_transfer_from_self_tty(void) {
    return read_or_transfer(self_ttyfd, child_master_fd, &to_child_tty);
}

static bool window_size_dirty = false;

static bool
read_signals(void) {
    static char buf[sizeof(siginfo_t) * 8];
    static size_t buf_pos = 0;
    while(true) {
        ssize_t len = safe_read(signal_read_fd, buf + buf_pos, sizeof(buf) - buf_pos);
        if (len < 0) {
            if (errno == EWOULDBLOCK || errno == EAGAIN) return true;
            return false;
        }
        buf_pos += len;
        while (buf_pos >= sizeof(siginfo_t)) {
            siginfo_t *sig = (siginfo_t*)buf;
            switch(sig->si_signo) {
                case SIGWINCH:
                    window_size_dirty = true; break;
            }
            memmove(buf, buf + sizeof(siginfo_t), sizeof(siginfo_t));
            buf_pos -= sizeof(siginfo_t);
        }
        if (len == 0) break;
    }
    return true;
}

static void
loop(void) {
#define fail(s) { print_error(s, errno); return; }
#define pd(which) poll_data[which##_idx]
#define check_fd(name) { if (pd(name).revents & POLLERR) { pe("File descriptor %s failed", #name); return; } if (pd(name).revents & POLLHUP) { pe("File descriptor %s hungup", #name); return; } }
    struct pollfd poll_data[4];
    enum { self_ttyfd_idx, socket_fd_idx, signal_read_fd_idx, child_master_fd_idx };
#define init(name) pd(name).fd = name; pd(name).events = POLLIN;
    init(self_ttyfd); init(socket_fd); init(signal_read_fd); init(child_master_fd);
#undef init
    size_t num_to_poll = arraysz(poll_data);

    while (true) {
        int ret;
        pd(self_ttyfd).events = (to_child_tty.sz < IO_BUZ_SZ - 1 ? POLLIN : 0) | (from_child_tty.sz ? POLLOUT : 0);
        pd(socket_fd).events = POLLIN | (launch_msg.iov_len ? POLLOUT : 0);
        // child_master_fd
        pd(child_master_fd).events = (from_child_tty.sz < IO_BUZ_SZ - 1 ? POLLIN : 0) | (to_child_tty.sz ? POLLOUT : 0);

        if (window_size_dirty && child_master_fd > -1 ) {
            if (!get_window_size()) fail("getting window size for self tty failed");
            if (!safe_winsz(child_master_fd, TIOCSWINSZ, &self_winsize)) fail("setting window size on child pty failed");
            window_size_dirty = false;
        }

        for (size_t i = 0; i < arraysz(poll_data); i++) poll_data[i].revents = 0;
        while ((ret = poll(poll_data, num_to_poll, -1)) == -1) { if (errno != EINTR) fail("poll() failed"); }
        if (!ret) continue;

        if (pd(child_master_fd).revents & POLLIN) if (!read_or_transfer_from_child_tty()) fail("reading from child tty failed");
        if (pd(self_ttyfd).revents & POLLOUT) if (!from_child_to_self()) fail("writing to self tty failed");
        if (pd(self_ttyfd).revents & POLLIN) if (!read_or_transfer_from_self_tty()) fail("reading from self tty failed");
        if (pd(child_master_fd).revents & POLLOUT) if (!from_self_to_child()) fail("writing to child tty failed");
        if (pd(child_master_fd).revents & POLLHUP) {
            // child has closed its tty, wait for exit code from prewarm zygote
            safe_close(child_master_fd); child_master_fd = -1;
            num_to_poll--;
        }

        check_fd(self_ttyfd);
        if (child_master_fd > -1) check_fd(child_master_fd);
        check_fd(signal_read_fd);

        // signal_read_fd
        if (pd(signal_read_fd).revents & POLLIN) if (!read_signals()) fail("reading from signal fd failed");

        // socket_fd
        if (pd(socket_fd).revents & POLLERR) {
            print_error("File descriptor socket_fd failed", 0); return;
        }
        if (pd(socket_fd).revents & POLLIN) {
            if (!read_child_data()) fail("reading information about child failed");
        }
        if (pd(socket_fd).revents & POLLHUP) {
            if (from_child_buf[0]) { parse_int(from_child_buf, &exit_status); }
            return;
        }
        if (pd(socket_fd).revents & POLLOUT) {
            if (!send_launch_msg()) fail("sending launch message failed");
        }
    }
#undef pd
#undef check_fd
#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);
#define fail(s) { print_error(s, errno); cleanup(); return; }
    if (self_ttyfd == -1) fail("Failed to open controlling terminal");
    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");
    while (tcsetattr(self_ttyfd, TCSANOW, &self_termios) == -1 && errno == EINTR) {}
    setup_stdio_handles();
    if (!create_launch_msg(argc, argv)) fail("Failed to open controlling terminal");
    if (!setup_signal_handler()) fail("Failed to setup signal handling");
    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();
    read_or_transfer_from_child_tty();
    from_child_to_self();
    cleanup();
    exit(exit_status);
}