(defprotocol EventManager
 (add [this event-fn])
 (waiting? [this])
 (shutdown [this]))

(defn event-manager
 "Creates a thread to respond to events. Any error will cause process to halt"
 ;; daemon?表示是否将事件处理线程设置成守护线程
 [daemon?]
 ;; added表示已添加的"事件处理函数"的个数
 (let [added (atom 0)
   　　;; processed表示已处理的"事件处理函数"的个数
       processed (atom 0)
   　　;; queue绑定事件管理器的阻塞队列LinkedBlockingQueue
       ^LinkedBlockingQueue queue (LinkedBlockingQueue.)
   　　;; 设置事件管理器的状态为"running"
       running (atom true)
   　　;; 创建事件处理线程。Clojure函数实现了Runnable和Callable接口，所以可以将Clojure函数作为参数传递给java.lang.Thread类的构造函数
       runner (Thread.
            　　;; 事件处理线程循环检查事件处理器的状态是否是"running"，如果是，就从阻塞队列中获取"事件处理函数"，并执行；然后将processed加1
                (fn []
                  (try-cause
                    (while @running
                      (let [r (.take queue)]
                        (r)
                        (swap! processed inc)))
                    (catch InterruptedException t
                      (log-message "Event manager interrupted"))
                    (catch Throwable t
                      (log-error t "Error when processing event")
                      (exit-process! 20 "Error when processing an event")))))]
   (.setDaemon runner daemon?)
   ;; 启动事件处理线程
   (.start runner)
   ;; 返回一个实现了EventManager协议的实例
   (reify
     EventManager
     ;; add函数将"事件处理函数"添加到事件处理器的阻塞队列中
     (add
       [this event-fn]
       ;; should keep track of total added and processed to know if this is finished yet
       (when-not @running
         (throw (RuntimeException. "Cannot add events to a shutdown event manager")))
       (swap! added inc)
       (.put queue event-fn))
     ;; waiting?判断事件处理线程是否处于等待状态
     (waiting?
       [this]
       (or (Time/isThreadWaiting runner)
           (= @processed @added)))
     ;; 关闭事件管理器
     (shutdown
       [this]
       (reset! running false)
       (.interrupt runner)
       (.join runner)))))