add-signal-callback ( quot signal mx -- supported? )

Vocabulary

io.backend.unix.multiplexers

Inputs

quot	an object
signal	an object
mx	an object

Outputs

supported?

an object

Definition

IN: io.backend.unix.multiplexers

GENERIC: add-signal-callback ( quot signal mx -- supported? )

Methods

USING: accessors assocs io.backend.unix.multiplexers
io.backend.unix.multiplexers.kqueue kernel unix.kqueue ;

M:: kqueue-mx add-signal-callback
    ( quot signal mx -- supported? )
    mx signals>> [ ] [ H{ } clone dup mx signals<< ] if*
    :> callbacks signal callbacks key?
    [ ]
    [ signal EVFILT_SIGNAL 33 make-kevent mx register-kevent ]
    if quot signal callbacks set-at t ;


USING: io.backend.unix.multiplexers kernel ;

M: object add-signal-callback 3drop f ;


USING: accessors io.backend.unix.multiplexers
io.backend.unix.multiplexers.run-loop ;

M: run-loop-mx add-signal-callback
    kqueue-mx>> add-signal-callback ;