factor/extra/io/unix/bsd/bsd.factor

! 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 io.unix.kqueue io.monitors ;

M: bsd init-io ( -- )
    <select-mx> mx set-global
    <kqueue-mx> kqueue-mx set-global
    kqueue-mx get-global <mx-port> <mx-task>
    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
    <vnode-monitor> ;