clojure - Clojure 的 STM 值历史可以访问吗？

Question

鉴于 STM 拥有 10 个引用、代理等值的历史记录，这些值可以被读取吗？

原因是，我正在更新大量代理，我需要保留值的历史记录。如果 STM 已经保留了它们，我宁愿只使用它们。我在 API 中找不到看起来像是从 STM 历史记录中读取值的函数，所以我猜不是，我也找不到 java 源代码中的任何方法，但也许我看起来不对。

Answer 1

您无法直接访问值的 stm 历史记录。但是你可以利用 add-watch记录值(value)观的历史:

(def a-history (ref []))
(def a (agent 0))
(add-watch a :my-history 
  (fn [key ref old new] (alter a-history conj old)))

每次 a更新(stm 事务提交)旧值将被合并到保存在 a-history 中的序列上。 .

如果您想访问所有中间值，即使是回滚事务，您也可以在事务期间将这些值发送给代理:

(def r-history (agent [])
(def r (ref 0))
(dosync (alter r
          (fn [new-val] 
            (send r-history conj new-val) ;; record potential new value 
            (inc r))))                    ;; update ref as you like

交易完成后，所有变更到代理 r-history将被执行。