18 lines
610 B
Factor
18 lines
610 B
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 ;
|
|
|
|
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> ;
|