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

Adding screen size.

Browse Source
This commit is contained in:
Brad Nelson
2021-01-26 14:18:08 -08:00
parent 87a2262fe3
commit eaf290e4ac
1 changed files with 8 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
ueforth/posix/termios.fs
View File

@ -3,6 +3,7 @@
z" tcgetattr" 2 sysfunc tcgetattr z" tcgetattr" 2 sysfunc tcgetattr
z" tcsetattr" 3 sysfunc tcsetattr z" tcsetattr" 3 sysfunc tcsetattr
z" fcntl" 3 sysfunc fcntl z" fcntl" 3 sysfunc fcntl
z" ioctl" 3 sysfunc ioctl
( Blocking ) ( Blocking )
4 constant F_SETFL 4 constant F_SETFL
@ -30,3 +31,10 @@ old-termios termios@
0 VMIN new-termios .c_cc[] c! 0 VMIN new-termios .c_cc[] c!
new-termios termios! ; new-termios termios! ;
: normal-mode old-termios termios! ; : normal-mode old-termios termios! ;
( Screen Size )
$5413 constant TIOCGWINSZ
4 2 * constant sizeof(winsize)
create winsize sizeof(winsize) allot
: form ( -- h w ) stdin TIOCGWINSZ winsize ioctl throw
winsize l@ dup $ffff and swap $10000 / ;