signal-pipe-loop ( port -- )

Vocabulary

io.backend.unix

Inputs

port

an object

Outputs

None

Definition

USING: alien.c-types alien.data combinators io kernel namespaces
unix.signals ;

IN: io.backend.unix

: signal-pipe-loop ( port -- )
    [ [ int heap-size ] ] dip [
        stream-read dup [
            int deref
            dispatch-signal-hook get-global ( x -- ) call-effect
        ] when*
    ] curry compose loop ;