e7f35c21ff
Binary SAVE/LOAD: SAVE now writes tokenized binary by default (0xFF header format), matching original GW-BASIC behavior. SAVE "file",A for ASCII. LOAD auto-detects binary vs ASCII from the first byte. Command-line file loading also auto-detects, so binary .BAS files just work. INKEY$ extended keys: arrow keys, Home/End/PgUp/PgDn, Insert/Delete, and F1-F10 now return the correct CHR$(0) + scan_code two-byte sequences per the IBM PC convention. Refactored event trap key parsing to use tui_read_key() instead of duplicating escape sequence parsing. Golden-file regression tests: generated .expected output files for 55 of 58 test programs (3 timing-dependent tests excluded). The test runner now reports compat match status alongside pass/fail. Classic programs: added Hamurabi, Lunar Lander, Gunner, and Diamond from David Ahl's BASIC Computer Games (1978) in tests/classic/ for manual compatibility testing. Docs updated with compiler roadmap item and hardware I/O simulator plan.
122 lines
3.2 KiB
C
122 lines
3.2 KiB
C
#ifndef GW_TUI_H
|
|
#define GW_TUI_H
|
|
|
|
#include <stdint.h>
|
|
#include <stdbool.h>
|
|
|
|
#define TUI_DEFAULT_ROWS 25
|
|
#define TUI_DEFAULT_COLS 80
|
|
#define TUI_MAX_ROWS 200
|
|
#define TUI_MAX_COLS 300
|
|
#define TUI_MAX_LINE 255
|
|
|
|
/* Screen cell: character + color attribute */
|
|
typedef struct {
|
|
uint8_t ch;
|
|
uint8_t attr; /* GW-BASIC color attribute (fg | bg<<4) */
|
|
} tui_cell_t;
|
|
|
|
/* Special key codes returned by tui_read_key() */
|
|
#define TK_UP 0x100
|
|
#define TK_DOWN 0x101
|
|
#define TK_LEFT 0x102
|
|
#define TK_RIGHT 0x103
|
|
#define TK_HOME 0x104
|
|
#define TK_END 0x105
|
|
#define TK_DELETE 0x106
|
|
#define TK_INSERT 0x107
|
|
#define TK_PGUP 0x108
|
|
#define TK_PGDN 0x109
|
|
#define TK_F1 0x10A
|
|
#define TK_F2 0x10B
|
|
#define TK_F3 0x10C
|
|
#define TK_F4 0x10D
|
|
#define TK_F5 0x10E
|
|
#define TK_F6 0x10F
|
|
#define TK_F7 0x110
|
|
#define TK_F8 0x111
|
|
#define TK_F9 0x112
|
|
#define TK_F10 0x113
|
|
#define TK_CTRL_HOME 0x114
|
|
#define TK_BACKSPACE 0x08
|
|
#define TK_ENTER 0x0D
|
|
#define TK_ESCAPE 0x1B
|
|
#define TK_TAB 0x09
|
|
#define TK_CTRL_C 0x03
|
|
#define TK_CTRL_BREAK 0x200
|
|
|
|
/* Key buffer for event trapping (keys consumed from HAL but not yet processed) */
|
|
#define TUI_KEYBUF_SIZE 16
|
|
|
|
/* TUI state */
|
|
typedef struct {
|
|
tui_cell_t *screen; /* dynamically allocated [rows * cols] */
|
|
int rows; /* screen height (default 25) */
|
|
int cols; /* screen width (default 80) */
|
|
int cursor_row;
|
|
int cursor_col;
|
|
bool insert_mode;
|
|
bool key_bar_visible; /* KEY ON */
|
|
uint8_t current_attr; /* current color attribute */
|
|
char fkey_defs[10][16]; /* F1-F10 definitions */
|
|
bool active;
|
|
volatile bool break_flag; /* set by SIGINT handler */
|
|
int view_top; /* top of scrollable area */
|
|
int view_bottom; /* bottom row (rows-1 normally, rows-2 with key bar) */
|
|
int keybuf[TUI_KEYBUF_SIZE]; /* ring buffer for pushed-back keys */
|
|
int keybuf_head;
|
|
int keybuf_tail;
|
|
} tui_state_t;
|
|
|
|
extern tui_state_t tui;
|
|
|
|
/* Lifecycle */
|
|
void tui_init(bool fullscreen);
|
|
void tui_shutdown(void);
|
|
|
|
/* Screen cell access macro */
|
|
#define TUI_CELL(r, c) tui.screen[(r) * tui.cols + (c)]
|
|
|
|
/* Screen buffer operations (these replace HAL ops when TUI is active) */
|
|
void tui_putch(int ch);
|
|
void tui_puts(const char *s);
|
|
void tui_cls(void);
|
|
void tui_locate(int row, int col);
|
|
int tui_get_cursor_row(void);
|
|
int tui_get_cursor_col(void);
|
|
|
|
/* Rendering */
|
|
void tui_refresh(void);
|
|
void tui_refresh_row(int row);
|
|
void tui_update_cursor(void);
|
|
|
|
/* Input */
|
|
int tui_read_key(void);
|
|
char *tui_read_line(void);
|
|
|
|
/* Function key bar */
|
|
void tui_key_on(void);
|
|
void tui_key_off(void);
|
|
void tui_key_list(void);
|
|
|
|
/* EDIT statement */
|
|
void tui_edit_line(const char *prefill);
|
|
|
|
/* Key buffer for event trapping */
|
|
void tui_push_key(int key);
|
|
int tui_pop_key(void);
|
|
bool tui_keybuf_empty(void);
|
|
|
|
/* Map TK_* key code to IBM PC scan code; returns -1 for ASCII keys */
|
|
int tui_key_to_scancode(int key);
|
|
|
|
/* Ctrl+Break */
|
|
void tui_check_break(void);
|
|
void tui_install_break_handler(void);
|
|
|
|
/* Cursor shape */
|
|
void tui_set_cursor_block(void);
|
|
void tui_set_cursor_line(void);
|
|
|
|
#endif
|