<recursive-monitor> ( path mailbox -- monitor )

Vocabulary

io.monitors.recursive

Inputs

path	an object
mailbox	an object

Outputs

monitor

an object

Definition

USING: accessors concurrency.promises destructors io.monitors
io.pathnames kernel ;

IN: io.monitors.recursive

: <recursive-monitor> ( path mailbox -- monitor )
    [
        [ absolute-path ] dip recursive-monitor new-monitor
        |dispose H{ } clone >>children <promise> >>ready
        dup start-pump-thread dup wait-for-ready
    ] with-destructors ;