#include <stdio.h>
#include <stdlib.h>
#include <unistd.h>
#include <string.h>

#include <eos.h>
#include <soc/uart.h>
#include <dev/net.h>
#include <net/cell.h>

#include <eve/eve.h>
#include <eve/eve_kbd.h>
#include <eve/eve_text.h>
#include <eve/eve_font.h>

#include <eve/screen/window.h>
#include <eve/screen/page.h>
#include <eve/screen/form.h>

#include "app/app_root.h"

#include "modem.h"

typedef struct {
    uint32_t mem;
    EVEViewStack *stack;
    eos_evt_handler_t cell_dev_handler;
    EVEText text;
} VParam;

static void key_down(void *p, int c) {
    EVEView *view = p;
    EVEText *text = &((VParam *)view->param)->text;
    unsigned char *buf;
    int i = 2;

    if (c == 0x11) {
        app_modem_close(view);
        return;
    }
    buf = eos_net_alloc();
    buf[0] = EOS_CELL_MTYPE_DEV | EOS_CELL_MTYPE_UART_DATA;
    if (c == '\n') {
        buf[1] = '\r';
        buf[2] = '\n';
        i++;
    } else {
        buf[1] = c;
    }

    eos_net_send_async(EOS_NET_MTYPE_CELL, buf, i, 0);
    eve_text_scroll0(text);
}

static void handle_uart(unsigned char type) {
    int i = 0;
    int c = 0;
    unsigned char *buf = NULL;

    c = eos_uart_getc(0);
    if (c == EOS_ERR_EMPTY) return;

    buf = eos_net_alloc();
    buf[0] = EOS_CELL_MTYPE_DEV | EOS_CELL_MTYPE_UART_DATA;
    buf[1] = c;
    i = 2;
    while ((c = eos_uart_getc(0)) != EOS_ERR_EMPTY) {
        buf[i] = c;
        i++;
        if (i == EOS_NET_MTU) break;
    }
    eos_net_send_async(EOS_NET_MTYPE_CELL, buf, i, 0);
    eos_uart_rxwm_set(0);
}

static void handle_cell_msg(unsigned char type, unsigned char *buffer, uint16_t len) {
    EVEWindowRoot *root = app_root();
    EVEWindow *window = eve_window_search(&root->w, "main");
    VParam *param = window->view->param;

    if (type == EOS_CELL_MTYPE_UART_DATA) {
        EVEText *text = &param->text;
        int i;

        eve_spi_start();
        for (i=1; i<len; i++) {
            if (buffer[i] != '\r') eve_text_putc(text, buffer[i]);
        }
        if (text->dirty) {
            text->dirty = 0;
            eve_window_root_draw(root);
        }
        eve_spi_stop();
        eos_net_free(buffer, 0);
    } else {
        param->cell_dev_handler(type, buffer, len);
    }
}

static uint8_t modem_draw(EVEView *view, uint8_t tag0) {
    VParam *param = view->param;
    EVEText *text = &param->text;

    tag0 = eve_view_clear(view, tag0, 0);
    return eve_text_draw(text, tag0);
}

static int modem_touch(EVEView *view, EVETouch *touch, uint16_t evt, uint8_t tag0) {
    VParam *param = view->param;
    EVEText *text = &param->text;

    return eve_text_touch(text, touch, evt, tag0);
}

void app_modem(EVEWindow *window, EVEViewStack *stack) {
    unsigned char *buf;
    EVEWindowRoot *root = window->root;
    EVEKbd *kbd = eve_window_kbd(window);
    EVERect g = {0, 60, 480, 512};
    EVEView *view;
    VParam *param;

    view = eve_malloc(sizeof(EVEView));
    param = eve_malloc(sizeof(VParam));
    param->mem = root->mem_next;
    param->stack = stack;
    param->cell_dev_handler = eos_cell_get_handler(EOS_CELL_MTYPE_DEV);
    eve_text_init(&param->text, &g, 30, 16, 200, root->mem_next, &root->mem_next);
    eve_view_init(view, window, modem_draw, modem_touch, NULL, param);

    eve_kbd_set_handler(kbd, key_down, view);
    eve_window_kbd_attach(window);

    eos_uart_set_handler(EOS_UART_ETYPE_RX, handle_uart);
    eos_cell_set_handler(EOS_CELL_MTYPE_DEV, handle_cell_msg);
    eos_net_acquire_for_evt(EOS_EVT_UART | EOS_UART_ETYPE_RX, 1);

    buf = eos_net_alloc();
    buf[0] = EOS_CELL_MTYPE_DEV | EOS_CELL_MTYPE_UART_TAKE;
    eos_net_send_async(EOS_NET_MTYPE_CELL, buf, 1, 0);
    eos_uart_rxwm_set(0);
}

void app_modem_close(EVEView *view) {
    unsigned char *buf = eos_net_alloc();
    VParam *param = view->param;
    EVEWindow *window = view->window;
    EVEWindowRoot *root = window->root;
    EVEKbd *kbd = eve_window_kbd(window);
    EVEViewStack *stack = param->stack;

    buf[0] = EOS_CELL_MTYPE_DEV | EOS_CELL_MTYPE_RESET;
    eos_net_send_async(EOS_NET_MTYPE_CELL, buf, 1, 0);
    eos_uart_rxwm_clear();
    eos_uart_set_handler(EOS_UART_ETYPE_RX, NULL);
    eos_cell_set_handler(EOS_CELL_MTYPE_DEV, param->cell_dev_handler);
    eos_net_acquire_for_evt(EOS_EVT_UART | EOS_UART_ETYPE_RX, 0);

    root->mem_next = param->mem;
    eve_window_kbd_detach(window);
    eve_kbd_set_handler(kbd, NULL, NULL);

    eve_free(param);
    eve_free(view);
    eve_view_destroy(window, stack);
}