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

Make key return -1 on EOF.

Browse Source
This commit is contained in:
Brad Nelson
2023-01-15 19:26:56 -08:00
parent d78953151a
commit 5189669562
2 changed files with 3 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
posix/posix.fs
View File

@ -104,7 +104,7 @@ decimal
( Hookup I/O ) ( Hookup I/O )
: stdout-write ( a n -- ) stdout -rot write drop ; : stdout-write ( a n -- ) stdout -rot write drop ;
: stdin-key ( -- n ) 0 >r stdin rp@ 1 read drop r> ; : stdin-key ( -- n ) 0 >r stdin rp@ 1 read 0= if rdrop -1 exit then r> ;
also forth definitions also forth definitions
: default-type stdout-write ; : default-type stdout-write ;

3
windows/windows_console.fs
View File

@ -62,7 +62,8 @@ variable console-mode
; ;
: win-type ( a n -- ) init-console 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 0= if rdrop -1 exit then 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 ;