Skip to content

Instantly share code, notes, and snippets.

@jerrypnz
Created November 6, 2012 09:33
Show Gist options
  • Save jerrypnz/4023683 to your computer and use it in GitHub Desktop.
Save jerrypnz/4023683 to your computer and use it in GitHub Desktop.
Clojure wrapper for Java 7 WatchService (java.nio.files)
(load-file "./watch_service.clj")
(refer 'watch-service)
(defn print-ev
[ev ctx]
(println "[foo]" ev " --> " ctx)
(println "Parent Dir:" (.getParent ctx)))
(defn print-ev-2
[ev ctx]
(println "[bar]" ev " --> " ctx))
(println "Start watching...")
(watch-path "/home/jerry/tmp"
:create print-ev
:modify print-ev
:delete print-ev)
(watch-path "/run/shm"
:create print-ev-2
:modify print-ev-2
:delete print-ev-2)
(Thread/sleep 60000)
(println "Stopping watchers..")
(stop-watchers)
(shutdown-agents)
(ns watch-service
(:import (java.nio.file FileSystems
Path
Paths
StandardWatchEventKinds
WatchService
WatchKey
WatchEvent)
(java.util.concurrent TimeUnit)))
(def ^:private kw-to-event
{:create StandardWatchEventKinds/ENTRY_CREATE
:delete StandardWatchEventKinds/ENTRY_DELETE
:modify StandardWatchEventKinds/ENTRY_MODIFY})
(def ^:private event-to-kw (->> kw-to-event
(map (fn [[k v]] [v k]))
(into {})))
(def ^:dynamic *watch-timeout* 1)
(def ^:private initial-stats {:watcher nil
:fs nil
:running false
:watching-paths {}})
(def ^:private watch-stats (atom initial-stats))
(defn- get-or-create-watch-service
[]
(if-let [watcher (:watcher @watch-stats)]
watcher
(let [fs (FileSystems/getDefault)
watcher (.newWatchService fs)]
(swap! watch-stats merge {:watcher watcher :fs fs})
watcher)))
(defn- handle-watch-events
[watch-key handlers]
(let [events (.pollEvents watch-key)]
(doseq [ev events]
(let [kind (.kind ev)
ctx (.context ev)
handler-key (event-to-kw kind)
handler (handlers handler-key)]
(handler handler-key ctx)))
(.reset watch-key)))
(defn- poll-events
[watcher]
(if-let [watch-key (.poll watcher
*watch-timeout*
TimeUnit/MINUTES)]
(future
(let [path (.watchable watch-key)
handlers (get-in @watch-stats
[:watching-paths
path
:handlers])]
(handle-watch-events watch-key handlers)))))
(defn- start-watcher
[]
(when-not (:running @watch-stats)
(swap! watch-stats assoc :running true)
(future
(let [watcher (:watcher @watch-stats)]
(while (:running @watch-stats)
(poll-events watcher))))))
(defn- cancel-watch-key
[watch-key handlers]
(.cancel watch-key)
(handle-watch-events watch-key handlers))
(defn- get-path
[fs pathname]
(.getPath fs pathname (make-array String 0)))
(defn watch-path
"Start watching a path, and call the handlers if files
are created/modified/deleted in that directory.
If the watcher thread is not started, this function automatically
starts it. The handlers are given via keyword args, currently supported
keywords are `:create`, `:modify`, and `:delete`."
[pathname & {:as handlers}]
(if (= (count handlers) 0)
(throw (IllegalArgumentException. "No handlers specified."))
(let [watcher (get-or-create-watch-service)
fs (:fs @watch-stats)
path (get-path fs pathname)
watch-events (->> handlers
(map (comp kw-to-event first))
into-array)
watch-key (.register path
watcher
watch-events)]
(swap! watch-stats
assoc-in
[:watching-paths path]
{:handlers handlers :watch-key watch-key})
(start-watcher))))
(defn unwatch-path
"Stop watching a path"
[pathname]
(let [path (get-path (:fs @watch-stats) pathname)
{:keys [watch-key handlers]} (get-in @watch-stats
[:watching-paths path])]
(when watch-key
(cancel-watch-key watch-key handlers)
(swap! watch-stats update-in [:watching-paths] dissoc path))))
(defn stop-watchers
"Close all the watching services and stop the polling threads"
[]
(let [{:keys [watcher watching-paths handlers]} @watch-stats]
(doseq [[_ {:keys [watch-key handlers]}] watching-paths]
(cancel-watch-key watch-key handlers))
(.close watcher)
(reset! watch-stats initial-stats)))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment