steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

update run-loop multiplexer

db4
Doug Coleman 2009-11-19 14:18:27 -06:00
parent adcb0df0c4
commit dc1eefbcc9
2 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
basis/core-foundation/run-loop/run-loop.factor
View File

@ -121,8 +121,8 @@ PRIVATE>
: init-thread-timer ( -- ) : init-thread-timer ( -- )
timer-callback <CFTimer> add-timer-to-run-loop ; timer-callback <CFTimer> add-timer-to-run-loop ;
: run-one-iteration ( us -- handled? ) : run-one-iteration ( nanos -- handled? )
reset-run-loop reset-run-loop
CFRunLoopDefaultMode CFRunLoopDefaultMode
swap [ microseconds ] [ 5 minutes ] if* >CFTimeInterval swap [ nanoseconds ] [ 5 minutes ] if* >CFTimeInterval
t CFRunLoopRunInMode kCFRunLoopRunHandledSource = ; t CFRunLoopRunInMode kCFRunLoopRunHandledSource = ;

2
basis/io/backend/unix/multiplexers/run-loop/run-loop.factor
View File

@ -30,5 +30,5 @@ M: run-loop-mx add-output-callback kqueue-mx>> add-output-callback ;
M: run-loop-mx remove-input-callbacks kqueue-mx>> remove-input-callbacks ; M: run-loop-mx remove-input-callbacks kqueue-mx>> remove-input-callbacks ;
M: run-loop-mx remove-output-callbacks kqueue-mx>> remove-output-callbacks ; M: run-loop-mx remove-output-callbacks kqueue-mx>> remove-output-callbacks ;
M: run-loop-mx wait-for-events ( us mx -- ) M: run-loop-mx wait-for-events ( nanos mx -- )
swap run-one-iteration [ 0 swap wait-for-events ] [ drop ] if ; swap run-one-iteration [ 0 swap wait-for-events ] [ drop ] if ;