请分享您的想法,参加2024年Clojure状态调查!

欢迎!请查看关于页面以了解更多此网站的工作方式。

0 投票
ClojureScript
在浏览器REPL中进行评估时偶尔会卡住。看起来REPL环境和浏览器有时会错过对方,并且它们的“约会”失败了。浏览器正在等待POST回复,而REPL正在尝试发送命令,但他们没有相遇。

当我们从nodejs环境切换到浏览器环境时,我发现这个问题。幸运的是,我能够找到一个在执行过程中挂起的非常小的示例。加载量似乎会增加“挂起”的可能性。

最小设置


(ns race.condition
  (:require [cljs.repl.browser :as browser]
         [cljs.repl :as repl]
         [cljs.env :as env]
         [cljs.build.api :as api]))


(api/build '[(ns race.repl
                (:require [clojure.browser.repl]))
             [clojure.browser.repl/connect "https://127.0.0.1:9000/repl")]
            {:output-to  "target/cljs-race/main.js"
            :output-dir "target/cljs-race"
            :main       'race.repl)

(spit "target/cljs-race/index.html"
      (str "<html>" "<body>"
           "<script type=\"text/javascript\" src=\"main.js\">"
           "</script>" "</body>" "</html>"))


现在启动环境


(def env (browser/repl-env :static-dir ["target/cljs-race" "."] :port 9000 :src nil))

(env/with-compiler-env (env/default-compiler-env)
  (repl/-setup env {}))


交叉你的手指并启动这个无限循环


(loop [i 0]
  (println (java.util.Date.) i)
  (dotimes [j 100]
    (let [result (repl/-evaluate env "<exec>" "1"  "true")]
      (when-not (= :success (:status result))
        (println i j result))))
  (recur (inc i)))


从附件运行heavy-load.sh来模拟高负载。

在迭代几次之后(例如55个大循环i),执行停止。如果您检查堆栈(参见race-condition.jstack),您可以在一个线程中看到


    at clojure.core$promise$reify__6779.deref(core.clj:6816)
    at clojure.core$deref.invoke(core.clj:2206)
    at cljs.repl.browser$send_for_eval.invoke(browser.clj:65)
    at cljs.repl.browser$browser_eval.invoke(browser.clj:193)
    at cljs.repl.browser.BrowserEnv._evaluate(browser.clj:262)


代码正在等待一个带有连接的承诺(它已经到达)。

我的猜测是cljs.repl.server函数中可疑的代码connection和set-connection。这两个函数以非标准方式访问一个atom。他们分两步 deref一个值和 swap!

有谁了解REPL内部原理更好,能来调查一下吗?谢谢。

2 个回答

0 投票

评论者:dnolen

欢迎为此提供一个补丁。

0 投票
参考:https://clojure.atlassian.net/browse/CLJS-1479(由 skardan 报告)
...