multithreading - Clojurescript中如何实现Atom？

Question

在Clojure to address concurrency中发出we can use an atom来写:

user=> (def my-atom (atom 0))
#'user/my-atom

user=> @my-atom
0

user=> (swap! my-atom inc)
1

user=> @my-atom
1

user=> (swap! my-atom (fn [n] (* (+ n n) 2)))
4

我们知道(在Clojure实现中)这是 a wrapper around the Java Atomic object。

有趣的是，Atoms are replicated in ClojureScript在语法级别上-即使JavaScript运行时没有Atomic引用。

我的问题是 Clojurescript中如何实现原子？ 它们只是对象包装程序吗？

Answer 1

它只是返回并分配值。

在源头
https://github.com/clojure/clojurescript/blob/master/src/main/cljs/cljs/core.cljs#L4081

(deftype Atom [state meta validator watches]
  ...
  IDeref
  (-deref [_] state) 
  ...)

和
https://github.com/clojure/clojurescript/blob/master/src/main/cljs/cljs/core.cljs#L4110

(defn atom
  "Creates and returns an Atom ..."
  ([x] (Atom. x nil nil nil))
  ([x & {:keys [meta validator]}] (Atom. x meta validator nil)))

检查 swap!和 reset!的实现，您将发现:
(set! (.-state a) new-value)
然后，转到 set!的 https://github.com/clojure/clojurescript/blob/3bb97961cbc958aeaeac506222dc7b9dcb0e9fc1/src/clj/cljs/compiler.clj#L771，您会发现编译器仅发出“赋值语句”:

(defmethod emit* :set!
  [{:keys [target val env]}]
  (emit-wrap env (emits target " = " val)))