2019-02-09 18:38:20 -05:00
|
|
|
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
|
2019-02-09 18:43:51 -05:00
|
|
|
sequences locals system destructors accessors ;
|
2019-02-08 19:17:30 -05:00
|
|
|
IN: io.monitors.freebsd
|
|
|
|
|
|
2019-02-09 18:38:20 -05:00
|
|
|
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
|
