1 ! Copyright (C) 2008 Slava Pestov.
2 ! See http://factorcode.org/license.txt for BSD license.
3 USING: kernel arrays namespaces math accessors alien locals
4 destructors system threads io.backend.unix.multiplexers
5 io.backend.unix.multiplexers.kqueue core-foundation
6 core-foundation.run-loop ;
7 IN: io.backend.unix.multiplexers.run-loop
9 TUPLE: run-loop-mx kqueue-mx ;
11 : file-descriptor-callback ( -- callback )
12 "void" { "CFFileDescriptorRef" "CFOptionFlags" "void*" }
15 0 mx get kqueue-mx>> wait-for-events
20 : <run-loop-mx> ( -- mx )
23 dup fd>> file-descriptor-callback add-fd-to-run-loop
27 M: run-loop-mx add-input-callback kqueue-mx>> add-input-callback ;
28 M: run-loop-mx add-output-callback kqueue-mx>> add-output-callback ;
29 M: run-loop-mx remove-input-callbacks kqueue-mx>> remove-input-callbacks ;
30 M: run-loop-mx remove-output-callbacks kqueue-mx>> remove-output-callbacks ;
32 M: run-loop-mx wait-for-events ( us mx -- )
33 swap run-one-iteration [ 0 swap wait-for-events ] [ drop ] if ;