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

Defer windows start to first type.

Browse Source
This commit is contained in:
Brad Nelson
2022-02-11 20:20:37 -08:00
parent 5421f829a6
commit b64e43f701
1 changed files with 19 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

19
ueforth/windows/windows.fs
View File

@ -100,18 +100,27 @@ wargc @ 'argc !
here 'argv ! wargc @ cells allot here 'argv ! wargc @ cells allot
'argv @ wargs-convert 'argv @ wargs-convert
AllocConsole drop 0 value console-started
STD_INPUT_HANDLE GetStdHandle constant stdin 0 value stdin
STD_OUTPUT_HANDLE GetStdHandle constant stdout 0 value stdout
STD_ERROR_HANDLE GetStdHandle constant stderr 0 value stderr
variable console-mode variable console-mode
: init-console
console-started if exit then
-1 to console-started
AllocConsole drop
STD_INPUT_HANDLE GetStdHandle to stdin
STD_OUTPUT_HANDLE GetStdHandle to stdout
STD_ERROR_HANDLE GetStdHandle to stderr
stdin console-mode GetConsoleMode drop stdin console-mode GetConsoleMode drop
stdin console-mode @ ENABLE_LINE_INPUT ENABLE_MOUSE_INPUT or stdin console-mode @ ENABLE_LINE_INPUT ENABLE_MOUSE_INPUT or
ENABLE_WINDOW_INPUT or invert and SetConsoleMode drop ENABLE_WINDOW_INPUT or invert and SetConsoleMode drop
stdout console-mode GetConsoleMode drop stdout console-mode GetConsoleMode drop
stdout console-mode @ ENABLE_VIRTUAL_TERMINAL_PROCESSING or SetConsoleMode drop stdout console-mode @ ENABLE_VIRTUAL_TERMINAL_PROCESSING or SetConsoleMode drop
;
: win-type ( a n -- ) stdout -rot NULL NULL WriteFile drop ; : win-type ( a n -- ) init-console stdout -rot NULL NULL WriteFile drop ;
: raw-key ( -- n ) 0 >r stdin rp@ 1 NULL NULL ReadFile drop r> ; : raw-key ( -- n ) 0 >r stdin rp@ 1 NULL NULL ReadFile drop r> ;
: win-key? ( -- f ) stdin 0 WaitForSingleObject 0= ; : win-key? ( -- f ) stdin 0 WaitForSingleObject 0= ;
: win-key ( -- n ) raw-key dup 13 = if drop nl then ; : win-key ( -- n ) raw-key dup 13 = if drop nl then ;