! Copyright (C) 2008 Slava Pestov.
! See http://factorcode.org/license.txt for BSD license.
USING: io.backend io.monitors
core-foundation.fsevents continuations kernel sequences
namespaces arrays system locals accessors destructors fry ;
IN: io.monitors.macosx

TUPLE: macosx-monitor < monitor handle ;

: enqueue-notifications ( triples monitor -- )
    '[ first { +modify-file+ } _ queue-change ] each ;

M:: macosx (monitor) ( path recursive? mailbox -- monitor )
    [let | path [ path normalize-path ] |
        path mailbox macosx-monitor new-monitor
        dup [ enqueue-notifications ] curry
        path 1array 0 0 <event-stream> >>handle
    ] ;

M: macosx-monitor dispose* handle>> dispose ;

macosx set-io-backend