unix: rename C function kevent.
parent
60cb462826
commit
3b7d0681af
|
@ -27,7 +27,7 @@ M: kqueue-mx dispose* fd>> close-file ;
|
||||||
swap >>ident ;
|
swap >>ident ;
|
||||||
|
|
||||||
: register-kevent ( kevent mx -- )
|
: 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 -- )
|
M: kqueue-mx add-input-callback ( thread fd mx -- )
|
||||||
[ call-next-method ] [
|
[ call-next-method ] [
|
||||||
|
@ -61,7 +61,7 @@ M: kqueue-mx remove-output-callbacks ( fd mx -- seq )
|
||||||
[
|
[
|
||||||
[ fd>> f 0 ]
|
[ fd>> f 0 ]
|
||||||
[ events>> dup length ] bi
|
[ events>> dup length ] bi
|
||||||
] dip kevent multiplexer-error ;
|
] dip kevent-func multiplexer-error ;
|
||||||
|
|
||||||
: handle-kevent ( mx kevent -- )
|
: handle-kevent ( mx kevent -- )
|
||||||
[ ident>> swap ] [ filter>> ] bi {
|
[ ident>> swap ] [ filter>> ] bi {
|
||||||
|
|
|
@ -9,7 +9,7 @@ STRUCT: kevent
|
||||||
{ data long }
|
{ data long }
|
||||||
{ udata void* } ;
|
{ 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_READ -1
|
||||||
CONSTANT: EVFILT_WRITE -2
|
CONSTANT: EVFILT_WRITE -2
|
||||||
|
|
Loading…
Reference in New Issue