use vt;
use io;

type move = enum {
	UP,
	DOWN,
	LEFT,
	RIGHT,
};
type wait = void;
type quit = void;

type unknown = !void;
type input = (move | wait | quit | unknown);


fn get_input(term: *vt::term) (input | io::EOF | vt::error) = {
	const key = match (vt::getevent(term)?) {
		case io::EOF => return io::EOF;
		case let e: vt::event => yield e.value;
	};
	match (key) {
	case let r: rune => switch (r) {
		case 'h' => return move::LEFT;
		case 'l' => return move::RIGHT;
		case 'j' => return move::DOWN;
		case 'k' => return move::UP;
		case '.' => return wait;
		case 'q' => return quit;
		case => return unknown;
	};
	case let s: vt::specialkey => switch (s) {
		case vt::specialkey::UP => return move::UP;
		case vt::specialkey::DOWN => return move::DOWN;
		case vt::specialkey::LEFT => return move::LEFT;
		case vt::specialkey::RIGHT => return move::RIGHT;
		case => return unknown;
	};
	case => return unknown;
	};
};