3

我在 clj (clojure) 命名空间中有以下代码。

（ns project.clojure.clojurescript 宏）

(def trace-history (atom []))

; hmm, you could run out of memory on recursive functions here?
; Fortunately functions aren't actually recursive in clojure. :]
(defmacro push-args [name args]
  `(swap! trace-history
     (fn [stack#]
       (conj stack# [~name (zipmap ~(vec (map str args)) ~args)]))))

(push-args :hello [:a :b :c])

在另一个 cljs (clojurescript) 命名空间中，我有以下内容

(ns project.clojurescript.user   
  (:require-macros [project.clojure.clojurescript-macros :as c]))

(c/push-args :hello [:a :b :c])

我编译了我的 clojurescript 代码，并在我的浏览器中打开它，不幸的是，我收到以下错误。

Uncaught TypeError: Cannot read property 'trace_history' of undefined main.js:22348
(anonymous function)                                                  main.js:22348

查看我编译的 clojurescipt 代码中的第 22348 行，我看到以下内容。

cljs.core.swap_BANG_.call(null, project.clojure.trace_history, function(stack__6402__auto__) {
  return cljs.core.conj.call(null, stack__6402__auto__, 
    cljs.core.PersistentVector.fromArray(["\ufdd0'hello", 
      cljs.core.zipmap.call(null, 
        cljs.core.PersistentVector.fromArray([":a", ":b", ":c"], true),          
        cljs.core.PersistentVector.fromArray(["\ufdd0'a", "\ufdd0'b", "\ufdd0'c"], 
      true))], 
    true))
  });

问题是 project.clojure.trace_history 没有在 main.js 的任何地方定义。我知道出了什么问题，但我不确定如何解决它。我尝试了其他解决方案，例如将跟踪历史记录放在共享的 clojure 文件中，并将跟踪历史记录放在 cljs 文件本身中。似乎没有一个工作。鉴于我想在这个宏的所有编译之间有一个共享的全局原子，我如何在 Clojurescript 中这样做？

4

1 回答 1

3

原子是运行时数据，宏是编译时构造。宏拥有“共享全局原子”并没有真正的意义——你的宏所做的就是编译成代码，它只是期望trace-history在当前的 NS 中调用一个符号。

如果您只是想编写可以使用原子的通用代码，那么您应该编写它以便可以将原子作为参数，而不是通过硬编码的符号名称假设它的存在。

如果您的意思是希望在 Clojure+ClojureScript 应用程序的客户端和服务器上都可以使用相同的原子值，则需要编写自己的代码来通过 Ajax 调用来协调值……这不是内置的在语言中。

于 2012-10-02T15:43:45.873 回答