2008-02-18 06:07:40 -05:00
|
|
|
! Copyright (C) 2008 Slava Pestov.
|
|
|
|
|
! See http://factorcode.org/license.txt for BSD license.
|
|
|
|
|
IN: io.thread
|
2008-02-21 21:57:41 -05:00
|
|
|
USING: threads io.backend namespaces init math ;
|
2008-02-18 06:07:40 -05:00
|
|
|
|
|
|
|
|
: io-thread ( -- )
|
2008-02-18 08:30:16 -05:00
|
|
|
sleep-time io-multiplex yield ;
|
2008-02-18 06:07:40 -05:00
|
|
|
|
|
|
|
|
: start-io-thread ( -- )
|
2008-02-18 08:30:16 -05:00
|
|
|
[ io-thread t ]
|
|
|
|
|
"I/O wait" spawn-server
|
2008-02-18 06:07:40 -05:00
|
|
|
\ io-thread set-global ;
|
|
|
|
|
|
|
|
|
|
[ start-io-thread ] "io.thread" add-init-hook
|
