#include <curses.h>
#include "mon.h"

/*  Screen disposition :
    
    program     |   program
    status      |   output
    window      |   interp.
    ----------------------
    command line
*/

static void disp_cmdline();

static char command[100];
static int cmd_pos = 0;

static WINDOW *wpstatus, *wpstatus2, *wpoutput, *wcmdline;

void disp_init() {
    initscr();
    savetty();
    cbreak();
    noecho();
    nonl();

    const int status_win_width = COLS - 58;
    wpstatus = newwin(LINES - 4, status_win_width, 1, 1);
    wpstatus2 = newwin(10, COLS - status_win_width - 3, 1, status_win_width + 2);
    wpoutput = newwin(LINES - 13, COLS - status_win_width - 3, 11, status_win_width + 2);
    wcmdline = newwin(1, COLS - 2, LINES - 2, 1);

    intrflush(wcmdline, FALSE);
    keypad(wcmdline, TRUE);
    nodelay(wcmdline, TRUE);
    scrollok(wpoutput, TRUE);

    cmd_pos = 0;
    command[0] = 0;
    disp_cmdline();
}

void disp_finish() {
    resetty();
    endwin();
}

void handle_kbd(t_mon *mon) {
    int x;
    while ((x = wgetch(wcmdline)) != ERR) {
        if (x == '\r') {
            mon_handle_command(mon, command);
            cmd_pos = 0;
        } else if (x == KEY_BACKSPACE) {
            if (cmd_pos > 0) cmd_pos--;
        } else if (x >= 32 && x <= 127) {
            if (cmd_pos < 99)
                command[cmd_pos++] = x;
        }
        command[cmd_pos] = 0;
        disp_cmdline();
    }
}

// DISPLAY

void disp_cmdline() {
    werase(wcmdline);
    wprintw(wcmdline, "> %s", command);
    wrefresh(wcmdline);
}

void disp_display(t_mon *mon) {
    int i;

    werase(wpstatus);
    
    wprintw(wpstatus, "Step:\t\t%d\t", mon->step);
    if (mon->status == MS_RUN) wprintw(wpstatus, "M");
    if (mon->status == MS_FREQ)
        wprintw(wpstatus, "%dHz\t%dHz", mon->actual_freq, mon->target_freq);
    if (mon->status == MS_AUTO)
        wprintw(wpstatus, "%dHz\t", mon->actual_freq);
    wprintw(wpstatus, "\t%s\n",
        (mon->ticker_mode == TM_SECOND ? "TS" : (mon->ticker_mode == TM_FAST ? "TF" : "TZ")));
    
    wprintw(wpstatus, "\nInputs:\n");
    for (i = 0; i < mon->n_inputs; i++) {
        wprintw(wpstatus, "%s %d. %s (%d)\t%s\n",
            (i == mon->ticker_input ? "T" : (i == mon->ser_in_in ? ">" : " ")),
            i, 
            mon->inputs[i].name, mon->inputs[i].size, mon->inputs[i].value);
    }
    if (mon->n_inputs == 0) wprintw(wpstatus, "\t(none)\n");

    wprintw(wpstatus, "\nOutputs:\n");
    for (i = 0; i < mon->n_outputs; i++) {
        wprintw(wpstatus, "%s %d. %s\t%s %ld\n", 
            (i == mon->ser_out ? "<" : (i == mon->ser_in_busy_out ? "!" : " ")),
            i,
            mon->outputs[i].name, mon->outputs[i].v_bin, mon->outputs[i].v_int);
    }
    if (mon->n_outputs == 0) wprintw(wpstatus, "\t(none)\n");

    wrefresh(wpstatus);

    werase(wpstatus2);

    for (i = 0; i < 8; i++)
        wprintw(wpstatus2, "  %s ", (mon->d7[i] != -1 && mon->outputs[mon->d7[i]].v_bin[0] == '1' ? "---" : "   "));
    wprintw(wpstatus2, "\n");
    for (i = 0; i < 8; i++)
        wprintw(wpstatus2, " %c   %c",
                (mon->d7[i] != -1 && mon->outputs[mon->d7[i]].v_bin[1] == '1' ? '|' : ' '),
                (mon->d7[i] != -1 && mon->outputs[mon->d7[i]].v_bin[2] == '1' ? '|' : ' '));
    wprintw(wpstatus2, "\n");
    for (i = 0; i < 8; i++)
        wprintw(wpstatus2, "  %s ", (mon->d7[i] != -1 && mon->outputs[mon->d7[i]].v_bin[3] == '1' ? "---" : "   "));
    wprintw(wpstatus2, "\n");
    for (i = 0; i < 8; i++)
        wprintw(wpstatus2, " %c   %c",
                (mon->d7[i] != -1 && mon->outputs[mon->d7[i]].v_bin[4] == '1' ? '|' : ' '),
                (mon->d7[i] != -1 && mon->outputs[mon->d7[i]].v_bin[5] == '1' ? '|' : ' '));
    wprintw(wpstatus2, "\n");
    for (i = 0; i < 8; i++)
        wprintw(wpstatus2, "  %s ", (mon->d7[i] != -1 && mon->outputs[mon->d7[i]].v_bin[6] == '1' ? "---" : "   "));

    if (mon->ser_in_in != -1) {
        wprintw(wpstatus2, "\nSerial buffer:\n%s\n", mon->ser_buf);
    }

    if (mon->ser_out != -1) {
        wmove(wpstatus2, 9, 0);
        wprintw(wpstatus2, "Serial output:");
    }
    wrefresh(wpstatus2);

    if (mon->ser_out_buf != 0) {
        wprintw(wpoutput, "%c", mon->ser_out_buf);
        wrefresh(wpoutput);
        mon->ser_out_buf = 0;
    }

    wmove(wcmdline, 0, cmd_pos + 2);
    wrefresh(wcmdline);
}


void disp_display_ser(t_mon *mon) {
    if (mon->ser_out_buf != 0) {
        wprintw(wpoutput, "%c", mon->ser_out_buf);
        wrefresh(wpoutput);
        mon->ser_out_buf = 0;

        wmove(wcmdline, 0, cmd_pos + 2);
        wrefresh(wcmdline);
    }
}