#include <stdio.h>

#include <stdio.h>
#include <curses.h>
#include <termios.h>
#include "vm.h"
#ifdef RXTX
#include "rxtx.h"
#endif

#ifndef BLKFS_PATH
#define BLKFS_PATH "blkfs"
#endif
#ifndef FBIN_PATH
#define FBIN_PATH "grid.bin"
#endif
#define WCOLS 80
#define WLINES 32
#define STDIO_PORT 0x00
#define COLS_PORT 0x03
#define LINES_PORT 0x04
#define SETX_PORT 0x05
#define SETY_PORT 0x06
#define SCROLL_PORT 0x07

WINDOW *bw, *dw, *w;

void debug_panel()
{
char buf[30];
VM_debugstr(buf);
mvwaddnstr(dw, 0, 0, buf, 30);
wrefresh(dw);
}

static byte iord_stdio()
{
int c;
debug_panel();
c = wgetch(w);
return (byte)c;
}

static void iowr_stdio(byte val)
{
if (val < ' ') val = '~';
wechochar(w, val);
}

static byte iord_cols() { return WCOLS; }
static byte iord_lines() { return WLINES; }

static void iowr_setx(byte val)
{
int y, x; getyx(w, y, x);
wmove(w, y, val);
}

static void iowr_sety(byte val)
{
int y, x; getyx(w, y, x);
wmove(w, val, x);
}

static void iowr_scroll(byte val)
{
scrollok(w, 1);
wmove(w, WLINES-1, WCOLS-1);
wprintw(w, "\n");
scrollok(w, 0);
}

int main(int argc, char *argv[])
{
VM *vm = VM_init(FBIN_PATH, BLKFS_PATH);
if (!vm) {
return 1;
}
vm->iord[STDIO_PORT] = iord_stdio;
vm->iowr[STDIO_PORT] = iowr_stdio;
vm->iord[COLS_PORT] = iord_cols;
vm->iord[LINES_PORT] = iord_lines;
vm->iowr[SETX_PORT] = iowr_setx;
vm->iowr[SETY_PORT] = iowr_sety;
vm->iowr[SCROLL_PORT] = iowr_scroll;
#ifdef RXTX
if (rxtx_init(vm, RXTX_PORT) != 0) {
VM_deinit();
return 1;
}
fprintf(stderr, "Press RETURN to continue...\n");
getchar();
#endif
initscr(); cbreak(); noecho(); nl(); clear();
/* border window */
bw = newwin(WLINES+2, WCOLS+2, 0, 0);
wborder(bw, 0, 0, 0, 0, 0, 0, 0, 0);
wrefresh(bw);
/* debug panel */
dw = newwin(1, 30, LINES-1, COLS-30);
w = newwin(WLINES, WCOLS, 1, 1);
scrollok(w, 0);
while (VM_steps(1000)) {
debug_panel();
}
nocbreak(); echo(); delwin(w); delwin(bw); delwin(dw); endwin();
fprintf(stderr, "Done!\n");
VM_printdbg();
#ifdef RXTX
rxtx_deinit();
#endif
VM_deinit();
return 0;
}