diff --git a/basis/io/monitors/freebsd/freebsd.factor b/basis/io/monitors/freebsd/freebsd.factor index 45867b63f1..a2babc71c5 100644 --- a/basis/io/monitors/freebsd/freebsd.factor +++ b/basis/io/monitors/freebsd/freebsd.factor @@ -1,3 +1,16 @@ +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 o; IN: io.monitors.freebsd -! Empty for now \ No newline at end of file +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