#define LOG_MODULE "usbmem"

// clang-format off
// Don't format because the order is important here
#include <windows.h>
#include <devioctl.h>
#include <ntdef.h>
#include <ntddser.h>
// clang-format on

#include <stdbool.h>
#include <string.h>
#include <wchar.h>

#include "hook/iohook.h"

#include "util/crc.h"
#include "util/iobuf.h"
#include "util/log.h"
#include "util/fs.h"
#include "util/str.h"

#define USBMEM_DEVICE_COUNT 2
#define USBMEM_COMMAND_BUF_SIZE 128
#define USBMEM_DATA_BUF_SIZE (1024 + 5)

static HANDLE usbmem_fd;
static char usbmem_response[USBMEM_DATA_BUF_SIZE];
static bool usbmem_pending;
static size_t usbmem_response_length;

static HRESULT usbmem_open(struct irp *irp);
static HRESULT usbmem_close(struct irp *irp);
static HRESULT usbmem_write(struct irp *irp);
static HRESULT usbmem_read(struct irp *irp);
static HRESULT usbmem_ioctl(struct irp *irp);

typedef enum {
    USBMEM_FILE_TYPE_NONE = 0,
    USBMEM_FILE_TYPE_READ,
    USBMEM_FILE_TYPE_WRITE,
} USBMEM_FILE_TYPE;

struct USBMEM_STATE {
    bool connected;
    bool opened;
    USBMEM_FILE_TYPE file_type;

    char path[MAX_PATH];
    char filename[MAX_PATH];

    uint8_t *buffer;
    size_t buffer_len;
    size_t buffer_index;
    int buffer_frame;
};

static char usb_data_path[MAX_PATH];

static int target_device_id;
static struct USBMEM_STATE usbmem_state[USBMEM_DEVICE_COUNT];

static void usbmem_reset_file_state(int port)
{
    if (usbmem_state[port].buffer) {
        free(usbmem_state[port].buffer);
        usbmem_state[port].buffer = NULL;
    }

    usbmem_state[port].buffer_len = 0;
    usbmem_state[port].buffer_index = 0;
    usbmem_state[port].buffer_frame = 0;
    usbmem_state[port].file_type = USBMEM_FILE_TYPE_NONE;
}

void usbmem_init(const char *path)
{
    log_assert(usbmem_fd == NULL);

    HRESULT hr;

    hr = iohook_open_nul_fd(&usbmem_fd);

    if (hr != S_OK) {
        log_fatal("Opening nul fd failed: %08lx", hr);
    }

    GetFullPathNameA(path, sizeof(usb_data_path), usb_data_path, NULL);
    log_misc("USB memory data path: %s", usb_data_path);

    target_device_id = -1;
    for (int i = 0; i < USBMEM_DEVICE_COUNT; i++) {
        char subpath[MAX_PATH];
        snprintf(subpath, sizeof(subpath), "%s\\p%d", usb_data_path, i + 1);

        if (!path_exists(subpath)) {
            path_mkdir(subpath);
        }

        usbmem_state[i].connected = false;
        usbmem_state[i].opened = false;
        memset(usbmem_state[i].path, 0, sizeof(usbmem_state[i].path));
        memset(usbmem_state[i].filename, 0, sizeof(usbmem_state[i].filename));
        usbmem_reset_file_state(i);
    }
}

void usbmem_fini(void)
{
    if (usbmem_fd != NULL) {
        CloseHandle(usbmem_fd);
    }

    usbmem_fd = NULL;
}

HRESULT
usbmem_dispatch_irp(struct irp *irp)
{
    log_assert(irp != NULL);

    if (irp->op != IRP_OP_OPEN && irp->fd != usbmem_fd) {
        return iohook_invoke_next(irp);
    }

    switch (irp->op) {
        case IRP_OP_OPEN:
            return usbmem_open(irp);
        case IRP_OP_CLOSE:
            return usbmem_close(irp);
        case IRP_OP_READ:
            return usbmem_read(irp);
        case IRP_OP_WRITE:
            return usbmem_write(irp);
        case IRP_OP_IOCTL:
            return usbmem_ioctl(irp);
        default:
            return E_NOTIMPL;
    }
}

static HRESULT usbmem_open(struct irp *irp)
{
    log_assert(irp != NULL);

    if (!wstr_eq(irp->open_filename, L"COM3")) {
        return iohook_invoke_next(irp);
    }

    irp->fd = usbmem_fd;
    log_info("USB edit data PCB opened");

    return S_OK;
}

static HRESULT usbmem_close(struct irp *irp)
{
    log_info("USB edit data PCB closed");

    return S_OK;
}

static HRESULT usbmem_write(struct irp *irp)
{
    struct const_iobuf *src;
    char request[USBMEM_COMMAND_BUF_SIZE];
    uint32_t nbytes;

    log_assert(irp != NULL);
    log_assert(irp->write.bytes != NULL);

    src = &irp->write;
    nbytes = src->nbytes > USBMEM_COMMAND_BUF_SIZE ? USBMEM_COMMAND_BUF_SIZE : src->nbytes;
    memcpy(request, src->bytes, nbytes);
    request[nbytes - 1] = '\0'; /* This is always a CR. */

    if (!usbmem_pending && target_device_id >= 0 && target_device_id < USBMEM_DEVICE_COUNT && usbmem_state[target_device_id].file_type == USBMEM_FILE_TYPE_READ) {
        memset(usbmem_response, 0, sizeof(usbmem_response));

        log_misc("Read progress %08x/%08x bytes", usbmem_state[target_device_id].buffer_index, usbmem_state[target_device_id].buffer_len);

        if (usbmem_state[target_device_id].buffer_index < usbmem_state[target_device_id].buffer_len) {
            usbmem_response_length = sizeof(usbmem_response);
            usbmem_response[0] = 0x02; // 1 = 0x80 buffer, 2 = 0x400 buffer
            usbmem_response[1] = usbmem_state[target_device_id].buffer_frame;
            usbmem_response[2] = ~usbmem_response[1];

            if (usbmem_state[target_device_id].buffer_frame == 0) {
                snprintf(usbmem_response + 4, sizeof(usbmem_response) - 5, "%d ", usbmem_state[target_device_id].buffer_len);
            } else {
                size_t len = sizeof(usbmem_response) - 5;

                if (usbmem_state[target_device_id].buffer_index + len > usbmem_state[target_device_id].buffer_len)
                    len = usbmem_state[target_device_id].buffer_len - usbmem_state[target_device_id].buffer_index;

                memcpy(usbmem_response + 3, usbmem_state[target_device_id].buffer + usbmem_state[target_device_id].buffer_index, len);
                usbmem_state[target_device_id].buffer_index += len;
            }

            usbmem_state[target_device_id].buffer_frame++;

            uint16_t crc = crc16_msb(usbmem_response + 3, sizeof(usbmem_response) - 5, 0);
            usbmem_response[sizeof(usbmem_response) - 2] = crc >> 8;
            usbmem_response[sizeof(usbmem_response) - 1] = crc & 0xff;
        } else {
            usbmem_response_length = 1;
            usbmem_response[0] = 0x04; // End
        }
    } else if (strlen(request) > 0) {
        log_misc(">%s", request);

        // Try to detect device ID
        // The only commands without a device ID are "sver", "start", and "init".
        char target_device_val = request[strlen(request) - 1];
        char *target_device_id_ptr = strstr(request, " ");
        if (target_device_id_ptr != NULL) {
            target_device_val = *(target_device_id_ptr - 1);
        }

        // Counterintuitively, b is P1 and a is P2
        if (target_device_val == 'a' || target_device_val == 'b') {
            target_device_id = target_device_val - 'a';
        }

        if (str_eq(request, "sver")) {
            str_cpy(
                usbmem_response,
                sizeof(usbmem_response),
                "done GQHDXJAA DJHACKRS");
        } else if (str_eq(request, "init") || str_eq(request, "start")) {
            str_cpy(usbmem_response, sizeof(usbmem_response), "done");
        } else if (target_device_id < 0 || target_device_id >= USBMEM_DEVICE_COUNT) {
            str_cpy(usbmem_response, sizeof(usbmem_response), "fail");
        } else if (str_eq(request, "on_a") || str_eq(request, "on_b")) {
            usbmem_state[target_device_id].connected = true;
            usbmem_reset_file_state(target_device_id);
            str_cpy(usbmem_response, sizeof(usbmem_response), "done");
        } else if (str_eq(request, "offa") || str_eq(request, "offb")) {
            usbmem_state[target_device_id].connected = false;
            usbmem_reset_file_state(target_device_id);
            str_cpy(usbmem_response, sizeof(usbmem_response), "done");
        } else if (str_eq(request, "opna") || str_eq(request, "opnb")) {
            char temp[MAX_PATH];
            snprintf(temp, sizeof(temp), "%s\\p%d", usb_data_path, 2 - (request[3] - 'a'));

            usbmem_state[target_device_id].opened = false;

            if (usbmem_state[target_device_id].connected != true || !path_exists(temp)) {
                str_cpy(usbmem_response, sizeof(usbmem_response), "not connected");
            } else {
                usbmem_state[target_device_id].opened = true;
                str_cpy(usbmem_response, sizeof(usbmem_response), "done");
            }
        } else if (str_eq(request, "clsa") || str_eq(request, "clsb")) {
            if (usbmem_state[target_device_id].connected != true) {
                str_cpy(usbmem_response, sizeof(usbmem_response), "not connected");
            } else if (usbmem_state[target_device_id].opened != true) {
                str_cpy(usbmem_response, sizeof(usbmem_response), "already");
            } else {
                str_cpy(usbmem_response, sizeof(usbmem_response), "done");
            }

            usbmem_state[target_device_id].opened = false;
            usbmem_reset_file_state(target_device_id);
        } else if (strncmp(request, "cda ", 4) == 0 || strncmp(request, "cdb ", 4) == 0) {
            char *path = request + 4;
            int path_target_device_id = -1;

            if (path[0] == 'a' || path[0] == 'b') {
                path_target_device_id = path[0] - 'a';
            }

            if (usbmem_state[target_device_id].connected != true || usbmem_state[target_device_id].opened != true) {
                str_cpy(usbmem_response, sizeof(usbmem_response), "not connected");
            } else if (path_target_device_id == -1 || path_target_device_id != target_device_id) {
                // Don't allow access to another drive
                str_cpy(usbmem_response, sizeof(usbmem_response), "illegal");
            } else if (path[1] == ':') {
                // Absolute path
                char temp[MAX_PATH];
                snprintf(temp, sizeof(temp), "%s\\p%d\\%s", usb_data_path, 2 - target_device_id, path + 3);

                if (!path_exists(temp)) {
                    log_warning("Couldn't find path %s\n", temp);
                    str_cpy(usbmem_response, sizeof(usbmem_response), "not exist");
                } else {
                    log_misc("Changing path to %s\n", temp);
                    str_cpy(usbmem_state[target_device_id].path, sizeof(usbmem_state[target_device_id].path), temp);
                    str_cpy(usbmem_response, sizeof(usbmem_response), "done");
                }
            } else {
                str_cpy(usbmem_response, sizeof(usbmem_response), "illegal");
            }
        } else if (strncmp(request, "rda ", 4) == 0 || strncmp(request, "rdb ", 4) == 0) {
            usbmem_reset_file_state(target_device_id);

            if (usbmem_state[target_device_id].connected != true || usbmem_state[target_device_id].opened != true) {
                str_cpy(usbmem_response, sizeof(usbmem_response), "not connected");
            } else {
                char temp[MAX_PATH] = {0};
                char *filename = request + 4;

                snprintf(temp, sizeof(temp), "%s\\%s", usbmem_state[target_device_id].path, filename);

                if (usbmem_state[target_device_id].buffer) {
                    free(usbmem_state[target_device_id].buffer);
                    usbmem_state[target_device_id].buffer = NULL;
                }

                usbmem_state[target_device_id].file_type = USBMEM_FILE_TYPE_NONE;
                usbmem_state[target_device_id].buffer_len = 0;
                usbmem_state[target_device_id].buffer_index = 0;
                usbmem_state[target_device_id].buffer_frame = 0;
                memset(usbmem_state[target_device_id].filename, 0, sizeof(usbmem_state[target_device_id].filename));

                if (!path_exists(temp)) {
                    log_warning("Couldn't find file %s\n", temp);
                    str_cpy(usbmem_response, sizeof(usbmem_response), "not exist");
                } else {
                    bool loaded = file_load(temp, (void**)&usbmem_state[target_device_id].buffer,
                        &usbmem_state[target_device_id].buffer_len, false);

                    if (loaded) {
                        log_misc("Reading file %s\n", temp);
                        usbmem_state[target_device_id].file_type = USBMEM_FILE_TYPE_READ;

                        str_cpy(usbmem_state[target_device_id].filename, sizeof(usbmem_state[target_device_id].filename), filename);
                        str_cpy(usbmem_response, sizeof(usbmem_response), "start");
                    } else {
                        log_warning("Couldn't read file %s\n", temp);
                        str_cpy(usbmem_response, sizeof(usbmem_response), "fail");
                    }
                }
            }
        } else if (strncmp(request, "wra ", 4) == 0 || strncmp(request, "wrb ", 4) == 0) {
            // Open file for writing
            usbmem_reset_file_state(target_device_id);
            str_cpy(usbmem_response, sizeof(usbmem_response), "not supported");
        } else if (strncmp(request, "wha ", 4) == 0 || strncmp(request, "whb ", 4) == 0) {
            // Something relating to writing?
            str_cpy(usbmem_response, sizeof(usbmem_response), "not supported");
        } else if (strncmp(request, "lma ", 4) == 0 || strncmp(request, "lmb ", 4) == 0) {
            // What is "lm"?
            str_cpy(usbmem_response, sizeof(usbmem_response), "done");
        } else {
            str_cpy(usbmem_response, sizeof(usbmem_response), "fail");
        }

        str_cat(usbmem_response, sizeof(usbmem_response), "\r>");
        usbmem_response_length = strlen(usbmem_response);
    }

    usbmem_pending = true;
    src->pos = nbytes;

    return S_OK;
}

static HRESULT usbmem_read(struct irp *irp)
{
    struct iobuf *dest;

    log_assert(irp != NULL);
    log_assert(irp->read.bytes != NULL);

    dest = &irp->read;

    if (usbmem_pending && usbmem_response_length != USBMEM_DATA_BUF_SIZE) {
        log_misc("%s", usbmem_response);
    }

    if (usbmem_pending && usbmem_response_length == 0) {
        str_cpy(usbmem_response, sizeof(usbmem_response), "\r>");
        usbmem_response_length = strlen(usbmem_response);
    }

    dest->pos = usbmem_response_length;
    memcpy(dest->bytes, usbmem_response, usbmem_response_length);

    usbmem_pending = false;
    usbmem_response_length = 0;
    memset(usbmem_response, 0, sizeof(usbmem_response));

    return S_OK;
}

static HRESULT usbmem_ioctl(struct irp *irp)
{
    SERIAL_STATUS *status;

    log_assert(irp != NULL);

    switch (irp->ioctl) {
        case IOCTL_SERIAL_GET_COMMSTATUS:
            if (irp->read.bytes == NULL) {
                log_warning(
                    "IOCTL_SERIAL_GET_COMMSTATUS: Output buffer is NULL");

                return E_INVALIDARG;
            }

            if (irp->read.nbytes < sizeof(*status)) {
                log_warning("IOCTL_SERIAL_GET_COMMSTATUS: Buffer is too small");

                return HRESULT_FROM_WIN32(ERROR_INSUFFICIENT_BUFFER);
            }

            status = (SERIAL_STATUS *) irp->read.bytes;
            status->Errors = 0;
            status->AmountInInQueue = usbmem_pending ? 1 : 0;

            irp->read.pos = sizeof(*status);

            break;

        default:
            break;
    }

    return S_OK;
}