enqueue-notifications ( triples monitor -- )

Vocabulary

io.monitors.macosx

Inputs

triples	an object
monitor	an object

Outputs

None

Definition

USING: arrays combinators core-foundation.fsevents io.monitors
kernel math sequences ;

IN: io.monitors.macosx

: enqueue-notifications ( triples monitor -- )
    [
        [
            first2 V{ } clone swap {
                [
                    kFSEventStreamEventFlagItemCreated bitand
                    zero? [ +add-file+ suffix! ] unless
                ]
                [
                    kFSEventStreamEventFlagItemRemoved bitand
                    zero? [ +remove-file+ suffix! ] unless
                ]
                [
                    kFSEventStreamEventFlagItemRenamed bitand
                    zero? [ +rename-file+ suffix! ] unless
                ]
                [
                    kFSEventStreamEventFlagItemModified bitand
                    zero? [ +modify-file+ suffix! ] unless
                ]
            } cleave [ { +modify-file+ } ] [ >array ] if-empty
        ]
    ] dip [ queue-change ] curry compose each ;