! Copyright (C) 2008 Slava Pestov. ! See http://factorcode.org/license.txt for BSD license. IN: io.unix.bsd USING: namespaces system kernel accessors assocs continuations unix io.backend io.unix.backend io.unix.select ; M: bsd init-io ( -- ) mx set-global ; ! kqueue-mx set-global ! kqueue-mx get-global ! dup io-task-fd ! [ mx get-global reads>> set-at ] ! [ mx get-global writes>> set-at ] 2bi ; ! M: bsd (monitor) ( path recursive? mailbox -- ) ! swap [ "Recursive kqueue monitors not supported" throw ] when ! ;