2008-01-20 17:07:18 -05:00
|
|
|
! Copyright (C) 2008 Slava Pestov.
|
|
|
|
|
! See http://factorcode.org/license.txt for BSD license.
|
|
|
|
|
IN: io.unix.linux
|
2008-01-23 03:30:16 -05:00
|
|
|
USING: io.backend io.unix.backend io.unix.launcher io.unix.select
|
2008-01-23 01:49:01 -05:00
|
|
|
namespaces kernel assocs unix.process ;
|
2008-01-20 17:07:18 -05:00
|
|
|
|
|
|
|
|
TUPLE: linux-io ;
|
|
|
|
|
|
|
|
|
|
INSTANCE: linux-io unix-io
|
|
|
|
|
|
|
|
|
|
M: linux-io init-io ( -- )
|
2008-01-23 03:30:16 -05:00
|
|
|
<select-mx> mx set-global
|
2008-01-23 01:49:01 -05:00
|
|
|
start-wait-loop ;
|
2008-01-20 17:07:18 -05:00
|
|
|
|
2008-01-23 01:49:01 -05:00
|
|
|
M: linux-io wait-for-process ( pid -- status )
|
|
|
|
|
wait-for-pid ;
|
2008-01-20 17:07:18 -05:00
|
|
|
|
2008-01-23 03:30:16 -05:00
|
|
|
T{ linux-io } set-io-backend
|
