18 lines
445 B
Factor
18 lines
445 B
Factor
|
! Copyright (C) 2008 Slava Pestov.
|
||
|
|
! See http://factorcode.org/license.txt for BSD license.
|
||
|
|
IN: io.unix.linux
|
||
|
|
USING: io.unix.backend io.unix.select namespaces kernel assocs ;
|
||
|
|
|
||
|
|
TUPLE: linux-io ;
|
||
|
|
|
||
|
|
INSTANCE: linux-io unix-io
|
||
|
|
|
||
|
|
M: linux-io init-io ( -- )
|
||
|
|
start-wait-loop
|
||
|
|
<epoll-mx> mx set-global ;
|
||
|
|
|
||
|
|
M: linux-io wait-for-pid ( pid -- status )
|
||
|
|
[ kqueue-mx get-global add-pid-task stop ] curry callcc1 ;
|
||
|
|
|
||
|
|
T{ linux-io } io-backend set-global
|