2008-01-26 02:40:09 -05:00
|
|
|
! Copyright (C) 2008 Slava Pestov.
|
|
|
|
|
! See http://factorcode.org/license.txt for BSD license.
|
2008-01-26 22:38:30 -05:00
|
|
|
USING: io.backend kernel continuations ;
|
2008-01-26 02:40:09 -05:00
|
|
|
IN: io.monitor
|
|
|
|
|
|
2008-01-26 22:38:30 -05:00
|
|
|
HOOK: <monitor> io-backend ( path recursive? -- monitor )
|
2008-01-26 02:40:09 -05:00
|
|
|
|
2008-01-26 22:38:30 -05:00
|
|
|
HOOK: next-change io-backend ( monitor -- path changes )
|
|
|
|
|
|
|
|
|
|
SYMBOL: +change-file+
|
|
|
|
|
SYMBOL: +change-name+
|
|
|
|
|
SYMBOL: +change-size+
|
|
|
|
|
SYMBOL: +change-attributes+
|
|
|
|
|
SYMBOL: +change-modified+
|
|
|
|
|
|
|
|
|
|
: with-monitor ( path recursive? quot -- )
|
2008-01-31 01:52:06 -05:00
|
|
|
>r <monitor> r> with-disposal ; inline
|
