使用& # 39;eval # 39;ClojureScript中的特殊表单，用于确定表单是否为文字

Using 'eval' special form in ClojureScript to determine if a form is literal

本文关键字：表单 用于 文字 是否 eval ClojureScript 使用      更新时间：2023-09-26

我正在编写一个函数确定是否形式(例如(reverse [1 2 3])) 是文字。为此，我有以下代码:

(defn literal? [form]
(let [evaluation (try
                     (eval form)
                     (catch Exception exception false))]
    (if evaluation
      (= evaluation form)
      true)))

This尝试先计算表单;如果失败，则认为该形式为文字。

如果表单求值成功，则进一步检查求值是否等于表单本身。如果是这样，它就是字面意思。

该函数适用于。clj文件中的[1 2 3]，但在。cljs文件中，我得到以下错误:

TypeError: Cannot read property 'call' of undefined
    at eval (/home/peter/ide/src-cljs/ide/core.cljs[eval16]:71:14)
    at eval (native)
    at Function.<anonymous> (file:///opt/lighttable-0.8.1-linux/resources/app/core/node_modules/lighttable/bootstrap.js:35236:461)
    at b (file:///opt/lighttable-0.8.1-linux/resources/app/core/node_modules/lighttable/bootstrap.js:6188:14)
    at a (file:///opt/lighttable-0.8.1-linux/resources/app/core/node_modules/lighttable/bootstrap.js:6234:18)
    at cljs.core.do_dispatch (file:///opt/lighttable-0.8.1-linux/resources/app/core/node_modules/lighttable/bootstrap.js:13583:26)
    at cljs.core.MultiFn.cljs$core$IMultiFn$_dispatch$arity$2 (file:///opt/lighttable-0.8.1-linux/resources/app/core/node_modules/lighttable/bootstrap.js:13655:32)
    at cljs.core._dispatch (file:///opt/lighttable-0.8.1-linux/resources/app/core/node_modules/lighttable/bootstrap.js:13568:14)
    at a (file:///opt/lighttable-0.8.1-linux/resources/app/core/node_modules/lighttable/bootstrap.js:13662:32)
    at b [as call] (file:///opt/lighttable-0.8.1-linux/resources/app/core/node_modules/lighttable/bootstrap.js:13666:14)

有没有人有一个解决方案，将在ClojureScript工作?

提前感谢!

这是可能的，但这有点棘手!

如果你去clojurescript。输入这个神秘的咒语:

(js/cljs.js.eval (js/cljs.js.empty-state) [1 2 3] (fn [x] (prn "********" x)))

然后检查您的开发控制台，您将看到:

"********" {:value [1 2 3]}

与其他输出一起出现。

希望这能让你相信(a) eval是有效的!(b) eval在cljs中有点复杂。

你可能会问为什么所有的js都是互操作的?在正在执行的REPL上下文中，这些符号不在编译器的当前状态，因为javascript是在编译站点时创建的。有一些方法可以预加载状态，但需要一些工作来实现。不要担心，如果您将eval作为程序的一部分(而不是从REPL)调用，那么这些都无关紧要。如果你在程序中使用eval，你可以这样写代码: 
(ns ....... (:require .....
  [cljs.js :refer [eval empty-state js-eval]]))

(eval (empty-state)
        [1 2 3]
        {:eval       js-eval
         :source-map true
         :context    :expr}
        (fn [x] (prn "*****" x)))

产生同样的效果:

"*****" {:value [1 2 3]}

简而言之，您需要从cljs.js引用eval，并且它需要传递一些状态。

这里有一些参考资料，因为…这很令人困惑，这些给出了很好的细节:
  1. http://clojurescript。查看构建此站点的代码
  2. 阅读Mike Fikes的博客!https://blog.fikesfarm.com/posts/2016-01-22-clojurescript-eval.html(和其他帖子)他编写了大部分引导代码，并在Planck中积极使用。
  3. https://yogthos.net/posts/2015-11-12-ClojureScript-Eval.html
  4. http://ctford.github。io/klangmeister/预加载状态的好参考。
相关文章：