hobbes (empty) → 0.1.0.0

raw patch · 4 files changed

+110/−0 lines, 4 filesdep +basedep +filemanipdep +filepathsetup-changed

Dependencies added: base, filemanip, filepath, hfsevents

Files

• Hobbes.hs +57/−0
• LICENSE +30/−0
• Setup.hs +2/−0
• hobbes.cabal +21/−0

@@ -0,0 +1,57 @@+module Main where++import System.Environment+import System.Exit+import System.FilePath+import System.FilePath.GlobPattern (GlobPattern, (~~))+import System.IO++import System.OSX.FSEvents++import Control.Monad (forever, when)+import Control.Exception (bracket)++import Data.Bits ((.&.))+++main :: IO ()+main = do+  hSetBuffering stdout NoBuffering+  getArgs >>= parse >>= runWatcher++parse ::  [String] -> IO FilePath+parse ["-h"]   = usage >> exitSuccess+parse []       = return "."+parse (path:_) = return path++usage :: IO ()+usage = putStrLn "Usage: hobbes [path]"++runWatcher :: FilePath -> IO ()+runWatcher path =+  let (dir, glob) = splitFileName path+  in bracket+       (eventStreamCreate [dir] 1.0 True True True (handleEvent glob))+       (\es -> eventStreamDestroy es >> putStrLn "Bye Bye!")+       (const $ forever getLine)++handleEvent :: GlobPattern -> Event -> IO ()+handleEvent glob evt = +  let fn      = takeFileName $ eventPath evt+      isMatch = isFileChange evt && fileMatchesGlob glob fn +  in when isMatch $ putStrLn fn++fileMatchesGlob :: GlobPattern -> FilePath -> Bool+fileMatchesGlob []   _  = True+fileMatchesGlob "."  _  = True+fileMatchesGlob glob fp = fp ~~ glob++isFileChange :: Event -> Bool+isFileChange evt = not $ hasFlag eventFlagItemRemoved +                   && hasFlag eventFlagItemIsFile +                   && any hasFlag [ eventFlagItemModified+                                  , eventFlagItemRenamed+                                  , eventFlagItemCreated+                                  ]+  where flags = eventFlags evt+        hasFlag f = flags .&. f /= 0

@@ -0,0 +1,30 @@+Copyright (c) 2012, Jason Hickner++All rights reserved.++Redistribution and use in source and binary forms, with or without+modification, are permitted provided that the following conditions are met:++    * Redistributions of source code must retain the above copyright+      notice, this list of conditions and the following disclaimer.++    * Redistributions in binary form must reproduce the above+      copyright notice, this list of conditions and the following+      disclaimer in the documentation and/or other materials provided+      with the distribution.++    * Neither the name of Jason Hickner nor the names of other+      contributors may be used to endorse or promote products derived+      from this software without specific prior written permission.++THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS+"AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT+LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR+A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT+OWNER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,+SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT+LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,+DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY+THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT+(INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE+OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.

@@ -0,0 +1,2 @@+import Distribution.Simple+main = defaultMain

@@ -0,0 +1,21 @@+name:                hobbes+version:             0.1.0.0+synopsis:            A small file watcher for OSX+-- description:         +homepage:            http://github.com/jhickner/hobbes+license:             BSD3+license-file:        LICENSE+author:              Jason Hickner+maintainer:          jhickner@gmail.com+-- copyright:           +category:            System+build-type:          Simple+cabal-version:       >=1.8++executable hobbes+  main-is:             Hobbes.hs+  -- other-modules:       +  build-depends:       base ==4.5.*, +                       filepath ==1.3.*, +                       filemanip ==0.3.*, +                       hfsevents ==0.1.*