mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

startup scan for FSEvents

Browse source
This commit is contained in:
Joey Hess 2012-12-27 14:46:18 -05:00 • committed by Joey Hess
parent bd31a9fbd1
commit 69247ebd28
1 changed files with 22 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

23
Utility/FSEvents.hs
View file

@ -18,6 +18,7 @@ watchDir :: FilePath -> (FilePath -> Bool) -> WatchHooks -> IO EventStream
watchDir dir ignored hooks = do watchDir dir ignored hooks = do
unlessM fileLevelEventsSupported $ unlessM fileLevelEventsSupported $
error "Need at least OSX 10.7.0 for file-level FSEvents" error "Need at least OSX 10.7.0 for file-level FSEvents"
scan dir
eventStreamCreate [dir] 1.0 True False True handle eventStreamCreate [dir] 1.0 True False True handle
where where
handle evt handle evt
@ -52,9 +53,29 @@ watchDir dir ignored hooks = do
ms <- getstatus $ eventPath evt ms <- getstatus $ eventPath evt
runhook modifyHook ms runhook modifyHook ms
where where
getstatus = catchMaybeIO . getSymbolicLinkStatus
hasflag f = eventFlags evt .&. f /= 0 hasflag f = eventFlags evt .&. f /= 0
runhook h s = maybe noop (\a -> a (eventPath evt) s) (h hooks) runhook h s = maybe noop (\a -> a (eventPath evt) s) (h hooks)
scan d = unless (ignoredPath ignored d) $
mapM_ go =<< dirContentsRecursive d
where
go f
| ignoredPath ignored f = noop
| otherwise = do
ms <- getstatus f
case ms of
Nothing -> noop
Just s
| Files.isSymbolicLink s ->
runhook addSymlinkHook ms
| Files.isRegularFile s ->
runhook addHook ms
| otherwise ->
noop
where
runhook h s = maybe noop (\a -> a f s) (h hooks)
getstatus = catchMaybeIO . getSymbolicLinkStatus
{- Check each component of the path to see if it's ignored. -} {- Check each component of the path to see if it's ignored. -}
ignoredPath :: (FilePath -> Bool) -> FilePath -> Bool ignoredPath :: (FilePath -> Bool) -> FilePath -> Bool