factor/basis/io/monitors/freebsd/freebsd.factor

17 lines
530 B
Factor

USING: kernel io.backend io.monitors io.monitors.recursive
io.files io.pathnames io.buffers io.ports io.timeouts
io.backend.unix io.encodings.utf8 assocs namespaces make
sequences locals system destructors accessors ;
IN: io.monitors.freebsd
TUPLE: freebsd-monitor < monitor handle ;
M:: freebsd (monitor) ( path recursive? mailbox -- monitor )
path normalize-path :> path
path mailbox freebsd-monitor new-monitor ;
M: freebsd-monitor dispose*
[ handle>> dispose ] [ call-next-method ] bi ;
freebsd set-io-backend