(wait-for-processes) ( -- ? )

Vocabulary

io.launcher

Inputs

None

Outputs

?

an object

Definition

USING: io.backend ;

IN: io.launcher

HOOK: (wait-for-processes) io-backend ( -- ? )

Methods

USING: alien.c-types alien.data io.launcher io.launcher.private
io.launcher.unix kernel math system unix.process ;

M: unix (wait-for-processes)
    { int } [ -1 swap WNOHANG waitpid ] with-out-parameters
    swap dup 0 <=
    [ 2drop t ] [
        find-process dup
        [ swap code>status notify-exit f ] [ 2drop f ] if
    ] if ;