swap >>ident ;
: register-kevent ( kevent mx -- )
- fd>> swap 1 f 0 f kevent io-error ;
+ fd>> swap 1 f 0 f kevent-func io-error ;
M: kqueue-mx add-input-callback ( thread fd mx -- )
[ call-next-method ] [
[
[ fd>> f 0 ]
[ events>> dup length ] bi
- ] dip kevent multiplexer-error ;
+ ] dip kevent-func multiplexer-error ;
: handle-kevent ( mx kevent -- )
[ ident>> swap ] [ filter>> ] bi {
{ data long }
{ udata void* } ;
-FUNCTION: int kevent ( int kq, kevent* changelist, int nchanges, kevent* eventlist, int nevents, timespec* timeout ) ;
+FUNCTION-ALIAS: kevent-func int kevent ( int kq, kevent* changelist, int nchanges, kevent* eventlist, int nevents, timespec* timeout ) ;
CONSTANT: EVFILT_READ -1
CONSTANT: EVFILT_WRITE -2