add-child-monitor ( path -- )

Vocabulary

io.monitors.recursive

Inputs

path

an object

Outputs

None

Definition

USING: accessors assocs concurrency.messaging continuations
io.files.info io.monitors kernel threads ;

IN: io.monitors.recursive

: add-child-monitor ( path -- )
    notify?
    [ dup { +add-file+ } monitor tget queue-change ] when
    qualify-path dup link-info directory? [
        [ add-child-monitors ] [
            [
                [ f my-mailbox (monitor) ] keep
                monitor tget children>> set-at
            ] curry ignore-errors
        ] bi
    ] [ drop ] if ;