retroforth/interface/ioctl.retro

~~~
: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 ;
~~~