12 lines
398 B
Forth
12 lines
398 B
Forth
~~~
|
|
:ioctl:operation (:n-)
|
|
DEVICE:IOCTL io:scan-for
|
|
dup n:negative? [ drop 'Error:_ioctl_device_not_found s:put nl ] if;
|
|
io:invoke ;
|
|
|
|
:ioctl:term-size (:-nn) #0 ioctl:operation ;
|
|
:ioctl:set-cbreak (:-) #1 ioctl:operation ;
|
|
:ioctl:set-lbreak (:-) #2 ioctl:operation ;
|
|
:ioctl:save-state (:-) #3 ioctl:operation ;
|
|
:ioctl:restore-state (:-) #4 ioctl:operation ;
|
|
~~~
|