clojure - Clojure の STM の値の履歴にアクセスできますか?

Question

STM が参照、エージェントなどの 10 個の値の履歴を保持している場合、それらの値を読み取ることができますか?

その理由は、大量のエージェントを更新していて、値の履歴を保持する必要があるためです。STM がすでにそれらを保持している場合は、そのまま使用したいと思います。STM履歴から値を読み取ったように見える関数がAPIに見つからないので、Javaソースコードにメソッドが見つからないのではないかと思いますが、正しく見えなかったのかもしれません。

Answer 1

値の stm 履歴に直接アクセスすることはできません。しかし、add-watchを利用して値の履歴を記録することができます:

(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が実行されます。