如何在 Clojure 运行时序列化函数？

Question

有没有办法在 Clojure 中在运行时序列化函数？我希望能够以序列化格式（可能是 edn，但我对任何事情都持开放态度）通过网络发送无状态（但不是纯）函数。

---

例如...

如果我在函数上运行 prn-str，我不会得到我期望/想要的结果。

user=> (def fn1 (fn [x] (* x 2)))
#'user/fn1
user=> (def data {:test 1 :key "value"})
#'user/data
user=> (defn fn2 [x] (* x 2))
#'user/fn2
user=> (prn-str fn1)
"#object[user$fn1 0x28b9c6e2 \"user$fn1@28b9c6e2\"]\n"
user=> (prn-str data)
"{:test 1, :key \"value\"}\n"
user=> (prn-str fn2)
"#object[user$fn2 0x206c48f5 \"user$fn2@206c48f5\"]\n"
user=> 

我会想要/期待这样的事情：

user=> (prn-str fn2)
"(fn [x] (* x 2))\n"

或者，也许，

user=> (prn-str fn2)
"(defn fn2 [x] (* x 2))\n"

Answer 1

您必须使用quote 或' 来阻止评估，并使用eval 来强制评估：

(def fn1 '(fn [x] (* x 2)))
(prn-str fn1) ;;=> "(fn [x] (* x 2))\n"
((eval fn1) 1) ;;=> 2

Answer 2

Flambo 是 Spark 的 Clojure 包装器，它使用 serializable-fn 库来序列化函数（Spark 需要）。 Sparking 是 Spark 的另一个包装器，它通过实现 Java 接口 Serializable 的 this Java abstract class 使用本机 Clojure 函数。

Answer 3

你基本上有两种选择：

• 传递源代码（存储为 clojure 数据的 s 表达式）
• 传递 jar 文件并将它们加载到另一端。

对于第一个选项，您在编译函数时保存源代码（几乎总是在定义函数时），然后将相同的源表达式传递给另一台计算机并让它编译相同事物。所以首先你可以制作一个表达式向量：

(domain-functions '[(defn foo [x] x)
                    (defn bar [y] (inc y)]

然后您可以将其存储到数据库中，每个客户端都可以将其传递给read，然后它们将具有相同的功能。

第二个选项取决于这样一个事实，即每次定义一个函数时，它都会在 /target 目录中生成一个类文件，然后加载它。然后，您可以同步此目录并将它们加载到另一端。这种方法当然是完全疯狂的，尽管人们在这里做疯狂的事情。我推荐第一种方法

---

作为个人说明：

我现在正在使用 datomic 执行此操作，并且我采用了使用宏将 git-hash 放入函数名称的做法，所以我绝对知道当我调用一个函数时，我得到的结果是一样的我在编辑器中看到的功能。当运行所有从同一个数据库中提取的许多实例时，这让您高枕无忧。

Answer 4

在某些时候它不再是 Clojure，因此我们可以任意往返于源代码和机器指令并返回的期望有点偏离。

我们应该能够将函数序列化为字节数组并通过网络发送。我怀疑您需要获取函数的 java.lang.Class 对象，然后通过 java.lang.instrument.ClassFileTransformer 传递它以获取字节。一旦你有了这些，你可以将它们传递给远程 jvm 上的友好 java.lang.ClassLoader。

Answer 5

你可以使用clojure.repl/source。

(with-out-str (source filter))

获取字符串，或

(read-string (with-out-str (source filter)))

获取 clojure 列表。

Answer 6

确实没有什么好的方法，出于充分的理由，简单地将一个函数传送到另一台计算机或将其存储在数据库中可能会导致很多问题，其中最重要的是该函数可能需要其他函数不是在另一端。

一个更好的主意是坚持数据。不要编写函数，而是将函数的名称写为事件，然后甚至可以稍后通过读取数据的任何内容进行翻译。坚持数据，这是惯用的方式。