13 lines
387 B
Forth
13 lines
387 B
Forth
|
~~~
|
||
|
|
:ioctl:operation
|
||
|
|
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 ;
|
||
|
|
~~~
|