alx/ueforth
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

trying to make ctrl-c work on windows.

Browse Source
This commit is contained in:
Brad Nelson
2022-12-31 23:02:15 -08:00
parent b720575fb2
commit 1b52ba02d1
1 changed files with 10 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
windows/interp.h
View File

@ -25,6 +25,15 @@ enum {
#undef Z #undef Z
}; };
static BOOL WINAPI forth_ctrl_handler(DWORD fdwCtrlType) {
if (fdwCtrlType == CTRL_C_EVENT ||
fdwCtrlType == CTRL_BREAK_EVENT) {
// RaiseException(EXCEPTION_BREAKPOINT, 0, 0, 0);
return TRUE;
}
return FALSE;
}
static cell_t *forth_run(cell_t *init_rp) { static cell_t *forth_run(cell_t *init_rp) {
static const BUILTIN_WORD builtins[] = { static const BUILTIN_WORD builtins[] = {
#define Z(flags, name, op, code) \ #define Z(flags, name, op, code) \
@ -45,6 +54,7 @@ static cell_t *forth_run(cell_t *init_rp) {
} }
register cell_t *ip, *rp, *sp, tos, w; register cell_t *ip, *rp, *sp, tos, w;
register float *fp, ft; register float *fp, ft;
SetConsoleCtrlHandler(forth_ctrl_handler, TRUE);
rp = init_rp; UNPARK; rp = init_rp; UNPARK;
for (;;) { for (;;) {
__try { __try {