Fork tis256 to create version like game

1 files changed, 0 insertions, 565 deletions

diff --git a/tis-curses.c b/tis-curses.c
deleted file mode 100644
index 157b102..0000000
--- a/tis-curses.c
+++ /dev/null
@@ -1,565 +0,0 @@
-#define NCURSES_WIDECHAR 1
-
-#include "tpu.h"
-#include "util.h"
-#include "asm.h"
-
-#include <curses.h>
-#include <sys/inotify.h>
-#include <unistd.h>
-#include <locale.h>
-#include <errno.h>
-#include <stdarg.h>
-#include <string.h>
-#include <stdio.h>
-#include <stdbool.h>
-#include <stdlib.h>
-
-#define KEY_ESC 0x1b
-#define KEY_CTRL(c) ((c) & ~0x60)
-
-#define TPU_INPUT_ROWS 14
-#define TPU_INPUT_COLS 20
-#define TPU_INFO_W 6
-#define TPU_INFO_H 4
-#define TPU_CNT 6
-#define TPU_W (TPU_INPUT_COLS + 2 + 6)
-#define TPU_H (TPU_INPUT_ROWS + 2)
-
-#define TIMEOUT 50
-
-enum input_mode {
-	MAIN,
-	TPU_NAV
-};
-
-enum {
-	NONE, MIN, MAX, MID
-};
-
-enum {
-	COLOR_HEADING,
-	COLOR_VAL
-};
-
-static const char *mode_repr[] = {
-	"IDL", "RUN", "REA", "WRI"
-};
-
-static int scrx = 0;
-static int scry = 0;
-static int scrw = 80;
-static int scrh = 40;
-
-static struct tis tis;
-static FILE *tis_stdin = NULL;
-static FILE *tis_stdout = NULL;
-
-static int show_reloaded = 0;
-
-static enum input_mode input_mode = MAIN;
-
-static struct tpu *tpu_sel = NULL;
-
-int (*cleanup)(void) = endwin;
-const char *progname = "tis-curses";
-
-static enum tpu_port_dir
-key_to_dir(int key)
-{
-	switch (key) {
-	case KEY_LEFT:
-		return DIR_LEFT;
-	case KEY_RIGHT:
-		return DIR_RIGHT;
-	case KEY_UP:
-		return DIR_UP;
-	case KEY_DOWN:
-		return DIR_DOWN;
-	default:
-		abort();
-	}
-}
-
-static const cchar_t *
-dir_to_arrow(enum tpu_port_dir dir)
-{
-	switch (dir) {
-	case DIR_UP:
-		return WACS_UARROW;
-	case DIR_DOWN:
-		return WACS_DARROW;
-	case DIR_LEFT:
-		return WACS_LARROW;
-	case DIR_RIGHT:
-		return WACS_RARROW;
-	}
-}
-
-static int
-tpu_pos_x(struct tpu *tpu)
-{
-	return 2 + (int) tpu->x * (TPU_W + 4);
-}
-
-static int
-tpu_pos_y(struct tpu *tpu)
-{
-	return 2 + (int) tpu->y * (TPU_H + 2);
-}
-
-static void
-tui_draw_box(int sx, int sy, int w, int h, attr_t attr,
-	const cchar_t *ul, const cchar_t *ur,
-	const cchar_t *ll, const cchar_t *lr)
-{
-	int x, y;
-
-	if (sx + w < scrx || sx >= scrx + scrw) return;
-	if (sy + h < scry || sy >= scry + scrh) return;
-
-	sx -= scrx;
-	sy -= scry;
-
-	attron(attr);
-	mvadd_wch(sy, sx, ul);
-	mvadd_wch(sy, sx + w - 1, ur);
-	mvadd_wch(sy + h - 1, sx, ll);
-	mvadd_wch(sy + h - 1, sx + w - 1, lr);
-	for (x = sx + 1; x < sx + w - 1; x++)
-		mvadd_wch(sy, x, WACS_D_HLINE);
-	for (x = sx + 1; x < sx + w - 1; x++)
-		mvadd_wch(sy + h - 1, x, WACS_D_HLINE);
-	for (y = sy + 1; y < sy + h - 1; y++)
-		mvadd_wch(y, sx, WACS_D_VLINE);
-	for (y = sy + 1; y < sy + h - 1; y++)
-		mvadd_wch(y, sx + w - 1, WACS_D_VLINE);
-	attroff(attr);
-}
-
-static void
-__attribute__((format(printf, 4, 5)))
-tui_draw_text(int x, int y, attr_t attr, const char *fmt, ...)
-{
-	char buf[256];
-	va_list ap;
-	int i;
-
-	va_start(ap, fmt);
-	vsnprintf(buf, 256, fmt, ap);
-	va_end(ap);
-
-	attron(attr);
-	for (i = 0; i < strlen(buf) && x + i < scrx + scrw; i++)
-		mvaddch(y - scry, x + i - scrx, (chtype) buf[i]);
-	attroff(attr);
-}
-
-static void
-tui_draw_wch(int x, int y, attr_t attr, const cchar_t *c)
-{
-	attron(attr);
-	mvadd_wch(y - scry, x - scrx, c);
-	attroff(attr);
-}
-
-static void
-tui_draw_tpu(struct tpu *tpu)
-{
-	char linebuf[TPU_INPUT_COLS + 1];
-	struct tpu_port *port;
-	int sx, sy, x, y, w, h;
-	int off, start, inst;
-	size_t len;
-	attr_t attr;
-	int idle;
-
-	attr = (tpu_sel == tpu && input_mode == TPU_NAV) ? A_BOLD : 0;
-
-	sx = tpu_pos_x(tpu);
-	sy = tpu_pos_y(tpu);
-	tui_draw_box(sx, sy, TPU_W, TPU_H, attr,
-		WACS_D_ULCORNER, WACS_D_URCORNER,
-		WACS_D_LLCORNER, WACS_D_LRCORNER);
-
-	if (tpu->inst_cnt > 0) {
-		start = MAX(0, MIN(tpu->pc - 4, (int) tpu->inst_cnt - TPU_INPUT_ROWS));
-		inst = start;
-		for (off = 0; off < TPU_INPUT_ROWS && inst < tpu->inst_cnt; ) {
-			if (tpu->label_map.labels[inst]) {
-				len = strlen(tpu->label_map.labels[inst]);
-				if (len > TPU_INPUT_COLS - 1) {
-					tui_draw_text(sx + 2, sy + 1 + off, A_DIM,
-						"%.*s..:", TPU_INPUT_COLS - 3,
-						tpu->label_map.labels[inst]);
-				} else {
-					tui_draw_text(sx + 2, sy + 1 + off, A_DIM,
-						"%s:", tpu->label_map.labels[inst]);
-				}
-				off++;
-			}
-			asm_print_inst(linebuf, sizeof(linebuf), &tpu->insts[inst]);
-			tui_draw_text(sx + 2, sy + 1 + off,
-				inst == tpu->pc ? A_STANDOUT : 0, "%-*.*s",
-				TPU_INPUT_COLS, TPU_INPUT_COLS, linebuf);
-			inst++; off++;
-		}
-	}
-
-	x = sx + TPU_W - TPU_INFO_W;
-	y = sy;
-	w = TPU_INFO_W;
-	h = TPU_INFO_H;
-	tui_draw_box(x, y, w, h, attr,
-		WACS_D_TTEE, WACS_D_URCORNER, WACS_D_LTEE, WACS_D_RTEE);
-	tui_draw_text(x + 2, y + 1, A_BOLD, "ACC");
-	tui_draw_text(x + 2, y + 2, 0, "%03i", tpu->acc);
-
-	tui_draw_box(x, (y += TPU_INFO_H - 1), w, h, attr,
-		WACS_D_LTEE, WACS_D_RTEE, WACS_D_LTEE, WACS_D_RTEE);
-	tui_draw_text(x + 2, y + 1, A_BOLD, "BAK");
-	tui_draw_text(x + 2, y + 2, 0, "%03i", tpu->bak);
-
-	tui_draw_box(x, (y += TPU_INFO_H - 1), w, h, attr,
-		WACS_D_LTEE, WACS_D_RTEE, WACS_D_LTEE, WACS_D_RTEE);
-	tui_draw_text(x + 2, y + 1, A_BOLD, "LST");
-	if (tpu->last < 0) {
-		tui_draw_text(x + 2, y + 2, 0, "N/A");
-	} else {
-		tui_draw_wch(x + 2, y + 2, 0,
-			dir_to_arrow((enum tpu_port_dir) tpu->last));
-		tui_draw_wch(x + 3, y + 2, 0,
-			dir_to_arrow((enum tpu_port_dir) tpu->last));
-		tui_draw_wch(x + 4, y + 2, 0,
-			dir_to_arrow((enum tpu_port_dir) tpu->last));
-	}
-
-	tui_draw_box(x, (y += TPU_INFO_H - 1), w, h, attr,
-		WACS_D_LTEE, WACS_D_RTEE, WACS_D_LTEE, WACS_D_RTEE);
-	tui_draw_text(x + 2, y + 1, A_BOLD, "MOD");
-	tui_draw_text(x + 2, y + 2, 0, "%s", mode_repr[tpu->status]);
-
-	tui_draw_box(x, (y += TPU_INFO_H - 1), w, h, attr,
-		WACS_D_LTEE, WACS_D_RTEE, WACS_D_BTEE, WACS_D_LRCORNER);
-	tui_draw_text(x + 2, y + 1, A_BOLD, "IDL");
-	if (tpu->steps > 0)
-		idle = (int) ((double) tpu->idle_steps * 100 / (double) tpu->steps);
-	else
-		idle = 100;
-	tui_draw_text(x + 2, y + 2, 0, "%03i", idle);
-
-	if (tpu->ports[DIR_LEFT].attached) {
-		port = &tpu->ports[DIR_LEFT];
-		if (port->in >= 0)
-			tui_draw_text(sx - 3, sy + 6,
-				A_BOLD, "%03i", port->in);
-		if (port->type & PORT_IN)
-			tui_draw_wch(sx - 1, sy + 7,
-				port->in >= 0 ? A_BOLD : 0, WACS_RARROW);
-		if (port->type & PORT_OUT)
-			tui_draw_wch(sx - 1, sy + 8,
-				port->out >= 0 ? A_BOLD : 0, WACS_LARROW);
-		if (port->out >= 0)
-			tui_draw_text(sx - 3, sy + 10,
-				A_BOLD, "%03i", port->out);
-	}
-
-	if (tpu->ports[DIR_RIGHT].attached) {
-		port = &tpu->ports[DIR_RIGHT];
-		if (port->out >= 0)
-			tui_draw_text(sx + TPU_W + 1, sy + 5,
-				A_BOLD, "%03i", port->out);
-		if (port->type & PORT_OUT)
-			tui_draw_wch(sx + TPU_W + 1, sy + 7,
-				port->out >= 0 ? A_BOLD : 0, WACS_RARROW);
-		if (port->type & PORT_IN)
-			tui_draw_wch(sx + TPU_W + 1, sy + 8,
-				port->in >= 0 ? A_BOLD : 0, WACS_LARROW);
-		if (port->in >= 0)
-			tui_draw_text(sx + TPU_W + 1, sy + 9,
-				A_BOLD, "%03i", port->in);
-	}
-
-	if (tpu->ports[DIR_UP].attached) {
-		port = &tpu->ports[DIR_UP];
-		if (port->out >= 0)
-			tui_draw_text(sx + 9, sy - 1,
-				A_BOLD, "%03i", port->out);
-		if (port->type & PORT_OUT)
-			tui_draw_wch(sx + 13, sy - 1,
-				port->out >= 0 ? A_BOLD : 0, WACS_UARROW);
-		if (port->type & PORT_IN)
-			tui_draw_wch(sx + 15, sy - 1,
-				port->in >= 0 ? A_BOLD : 0, WACS_DARROW);
-		if (port->in >= 0)
-			tui_draw_text(sx + 17, sy - 1,
-				A_BOLD, "%03i", port->in);
-	}
-
-	if (tpu->ports[DIR_DOWN].attached) {
-		port = &tpu->ports[DIR_DOWN];
-		if (port->in >= 0)
-			tui_draw_text(sx + 9, sy + TPU_H,
-				A_BOLD, "%03i", port->in);
-		if (port->type & PORT_IN)
-			tui_draw_wch(sx + 13, sy + TPU_H,
-				port->in >= 0 ? A_BOLD : 0, WACS_UARROW);
-		if (port->type & PORT_OUT)
-			tui_draw_wch(sx + 15, sy + TPU_H,
-				port->out >= 0 ? A_BOLD : 0, WACS_DARROW);
-		if (port->out >= 0)
-			tui_draw_text(sx + 17, sy + TPU_H,
-				A_BOLD, "%03i", port->out);
-	}
-}
-
-static void
-tui_draw(void)
-{
-	struct tpu_map_link *link;
-	size_t i;
-	int tx;
-
-	clear();
-	for (i = 0; i < TPU_MAP_BUCKETS; i++) {
-		for (link = tis.tpu_map.buckets[i]; link; link = link->next)
-			tui_draw_tpu(link->tpu);
-	}
-	if (show_reloaded > 0) {
-		tx = MAX(0, scrx + scrw / 2 - 4);
-		tui_draw_text(scrx, scry, A_STANDOUT, "%-*s", scrw, "");
-		tui_draw_text(tx, scry, A_STANDOUT, "RELOADED");
-		show_reloaded--;
-	}
-	refresh();
-}
-
-static void
-tui_resize(void)
-{
-	scrw = getmaxx(stdscr);
-	scrh = getmaxy(stdscr);
-}
-
-static void
-tui_seek(struct tpu *tpu, int dx, int dy)
-{
-	struct tpu_map_link *link;
-	int minx, miny, maxx, maxy;
-	int x, y;
-	size_t i;
-
-	if (tpu) {
-		minx = maxx = tpu_pos_x(tpu);
-		miny = maxy = tpu_pos_y(tpu);
- 	} else {
-		minx = miny = maxx = maxy = -1;
-		for (i = 0; i < TPU_MAP_BUCKETS; i++) {
-			link = tis.tpu_map.buckets[i];
-			for (; link; link = link->next) {
-				if (tpu && tpu != link->tpu)
-					continue;
-				x = tpu_pos_x(link->tpu);
-				if (minx == -1 || x < minx) minx = x;
-				if (maxx == -1 || x > maxx) maxx = x;
-				y = tpu_pos_y(link->tpu);
-				if (miny == -1 || y < miny) miny = y;
-				if (maxy == -1 || y > maxy) maxy = y;
-			}
-		}
-		if (minx == -1 || miny == -1) return;
-	}
-
-	if (dx == MIN) scrx = minx - 2;
-	else if (dx == MAX) scrx = maxx + TPU_W + 2 - scrw;
-	else if (dx == MID) scrx = (minx + maxx + TPU_W - scrw) / 2;
-
-	if (dy == MIN) scry = miny - 2;
-	else if (dy == MAX) scry = maxy + TPU_H + 2 - scrh;
-	else if (dy == MID) scry = (miny + maxy + TPU_H - scrh) / 2;
-}
-
-static void
-handlekey(int key)
-{
-	enum tpu_port_dir dir;
-	int c;
-
-	if (input_mode == MAIN) {
-		switch (key) {
-		case 'I':
-			input_mode = TPU_NAV;
-			break;
-		case KEY_UP:
-			scry -= 2;
-			break;
-		case KEY_DOWN:
-			scry += 2;
-			break;
-		case KEY_LEFT:
-			scrx -= 4;
-			break;
-		case KEY_RIGHT:
-			scrx += 4;
-			break;
-		case 's':
-			if (tis_stdin && tis.stdin_port.attached
-					&& tis.stdin_port.out < 0) {
-				c = getc(tis_stdin);
-				if (c >= 0) tis.stdin_port.out = c;
-			}
-
-			if (tis.stdout_port.attached && tis.stdout_port.in >= 0) {
-				if (tis_stdout)
-					putc(tis.stdout_port.in, tis_stdout);
-				tis.stdout_port.in = -1;
-			}
-
-			tis_step(&tis);
-			break;
-		}
-	} else {
-		switch (key) {
-		case KEY_ESC:
-			input_mode = MAIN;
-			break;
-		case KEY_UP:
-		case KEY_DOWN:
-		case KEY_LEFT:
-		case KEY_RIGHT:
-			dir = key_to_dir(key);
-			if (tpu_sel && tpu_sel->ports[dir].dst_tpu)
-				tpu_sel = tpu_sel->ports[dir].dst_tpu;
-			tui_seek(tpu_sel, MID, MID);
-			break;
-		}
-	}
-}
-
-static struct tpu *
-first_tpu(void)
-{
-	size_t i;
-
-	for (i = 0; i < TPU_MAP_BUCKETS; i++) {
-		if (tis.tpu_map.buckets[i])
-			return tis.tpu_map.buckets[i]->tpu;
-	}
-
-	return NULL;
-}
-
-static void
-reset(int ifd, int argc, char **argv, bool watch)
-{
-	tis_load(&tis, argv[1]);
-
-	if (watch)
-		if (inotify_add_watch(ifd, argv[1], IN_MODIFY) < 0)
-			die("inotify_add_watch '%s':", argv[1]);
-
-	if (argc >= 3) {
-		if (tis_stdin) fclose(tis_stdin);
-		tis_stdin = fopen(argv[2], "r");
-		if (!tis_stdin) die("fopen '%s':", argv[2]);
-	}
-
-	if (argc >= 4) {
-		if (tis_stdout) fclose(tis_stdout);
-		tis_stdout = fopen(argv[3], "w+");
-		if (!tis_stdout) die("fopen '%s':", argv[3]);
-	}
-
-	if (tis.stdin_port.attached) {
-		tpu_sel = tis.stdin_port.dst_tpu;
-	} else {
-		tpu_sel = first_tpu();
-	}
-	tui_seek(NULL, MID, MID);
-
-}
-
-int
-main(int argc, char **argv)
-{
-	struct inotify_event event;
-	ssize_t len;
-	bool quit;
-	int key;
-	int ifd;
-
-	if (argc < 2 || argc > 4) {
-		fprintf(stderr, "Usage: tis-curses FILE [STDIN] [STDOUT]\n");
-		exit(1);
-	}
-
-	setlocale(LC_ALL, "");
-
-	initscr();
-
-	raw();
-	noecho();
-	keypad(stdscr, TRUE);
-	start_color();
-	curs_set(0);
-	tui_resize();
-	timeout(TIMEOUT);
-	ESCDELAY = 0;
-
-	tis_init(&tis);
-
-	ifd = inotify_init1(IN_NONBLOCK);
-
-	reset(ifd, argc, argv, true); 
-
-	quit = false;
-	while (!quit) {
-		len = read(ifd, &event, sizeof(event));
-		if (len < 0 && errno != EAGAIN)
-			die("inotify_read:");
-		if (len >= 0) {
-			reset(ifd, argc, argv, true);
-			show_reloaded = 1000 / TIMEOUT;
-		}
-
-		tui_draw();
-		key = getch();
-		switch (key) {
-		case KEY_RESIZE:
-			tui_resize();
-			break;
-		case 'g':
-			tui_seek(tpu_sel, MID, MID);
-			break;
-		case 'h':
-			tui_seek(NULL, MID, MID);
-			break;
-		case 'i':
-			if (tis.stdin_port.attached)
-				tui_seek(tis.stdin_port.dst_tpu, MID, MID);
-			break;
-		case 'o':
-			if (tis.stdout_port.attached)
-				tui_seek(tis.stdout_port.dst_tpu, MID, MID);
-			break;
-		case 'r':
-			reset(ifd, argc, argv, false);
-			break;
-		case KEY_CTRL('c'):
-			quit = true;
-			break;
-		default:
-			handlekey(key);
-			break;
-		}
-	}
-
-	tis_deinit(&tis);
-
-	close(ifd);
-
-	if (tis_stdin) fclose(tis_stdin);
-	if (tis_stdout) fclose(tis_stdout);
-
-	endwin();
-}