在clojure中,如何从另一个宏评估宏的参数？
在Clojure中，可以使用eval函数来评估宏的参数。eval函数接受一个Clojure表达式作为参数，并返回该表达式的评估结果。
下面是一个示例代码，展示了如何从另一个宏中评估宏的参数：
(defmacro evaluate-params [params]
`(do ~@(map eval params)))
(defmacro my-macro [param1 param2]
(let [evaluated-params (evaluate-params [param1 param2])]
`(println "Evaluated params:" ~evaluated-params)))
(my-macro (+ 1 2) (* 3 4))在上面的示例中，evaluate-params宏接受一个参数列表params，并使用map函数将每个参数都通过eval函数进行评估。然后，my-macro宏使用evaluate-params宏来评估param1和param2，并将评估结果打印出来。
请注意，使用eval函数需要谨慎，因为它可以执行任意的Clojure代码，可能存在安全风险。在实际开发中，应该避免过度使用eval函数，尽量使用其他更安全的方式来处理宏的参数。
相关·内容
1回答
在Clojure中，如何使库宏处理提供的函数元数据并返回某些结果？函数的数量是无限的，它们应该在不被装箱的情况下传递给序列((my-macro fn1 fn2)而不是(my-macro [fn1 fn2]))
比如说，我们期望函数vars在元中具有:foo键，并且宏将它们的值连接起来。以下代码段应该在REPL中工作(考虑到my-macro在名称空间中)：
user=> (defn my-func-1 {:foo "bar"} [])
(defn my-func-1 {:foo "bar"} [])
#'user/my-func-1
user=>
浏览 0提问于2013-10-20得票数 0
回答已采纳
我正在尝试用Clojure编写我的第一个宏。我想模仿Ruby的%w{}运算符，它的工作方式如下：
irb(main):001:0> %w{one two three}
=> ["one", "two", "three"]
我想编写一个类似于Clojure的函数，它返回一个单词向量。以下是它的样子：
user=> (%w one two three)
=> ["one" "two" "three"]
我知道这是不能定义为普通函数的东西，因为符号在应用之前会被评估，我们会看到这样
浏览 0提问于2014-12-24得票数 2
回答已采纳
我有一个函数my-plus-in-宏，其中包含一个名为my-宏的宏.但“我的宏”是在“我的宏”定义之后声明的。我使用声明以避免无法解决符号错误.
我在我的简历中输入这些代码。
(declare my-macro my-plus)
(defn my-plus-in-macro [x y]
(my-macro (my-plus x y)))
(defmacro my-macro [my-fn]
`~my-fn)
(defn my-plus [x y]
(+ x y))
那么，如果执行以下操作，我希望得到3
(my-plus-in-macro 1 2)
但我得到的是
浏览 4提问于2014-03-25得票数 4
回答已采纳
我正在创建一种领域特定的语言。其中一个宏调用如下所示：
(我的-宏foo (bar "baz“qux) yay)
按照我编写-宏的方式，这里的第二个参数应该是一对括号中的字符串列表。所以，只要bar和qux的计算结果为字符串，my-宏就可以工作。可以这样说，它们的计算结果与"bar“和"qux”同名，而my-宏将第二个参数视为"bar baz qux“。
但现在我意识到，我真的希望"baz“保留它的引号；我希望我的-宏将第二个参数视为"bar \"baz\”qux“。这个是可能的吗？在我的-宏中，当我需要加回双引号时，我能分辨出什么时候我
浏览 0提问于2011-04-13得票数 0
假设我的意图是修改传递给宏的s表达式的语法树，方法是修改语法树，然后计算修改后的参数。我可以做以下事情：
(defmacro runargs [args]
(eval (cons (first args) " buckeroo")))
(runargs (println "hi there"))
现在，这并不是惯用的做法，因为我在代码中使用了一个很大的eval。
现在，我稍微修改一下它，并提出了以下内容：
(defmacro runargs [args]
`(~@(cons (first args) " buckeroo")))
(r
浏览 1提问于2015-03-03得票数 1
回答已采纳
2回答
我发现在clj和cljs中定义一个宏来进行错误处理是非常棘手的。我以为这是一个简单的问题，将Exception与js/Error交换，但结果却比这更复杂。
一开始，我试过这个：
(defmacro my-macro
[& forms]
`(try
~@forms
(catch #?(:clj Exception :cljs js/Error) e#
,,,)))
但这每次都产生了Exception。我很快意识到问题是在编译我的cljs文件时调用了宏，这发生在clj环境中。因此，我必须让宏返回一个在运行时解析为正确异常类的表单。我试过这个：
(def e
浏览 2提问于2017-01-07得票数 6
回答已采纳
我正在阅读的Making Macros Simpler in p173，有一个宏定义如下：
(defmacro chain
([x form] (list '. x form))
([x form & more] (concat (list 'chain (list '. x form)) more)))
但是根据defmacro在p167中的定义
(defmacro name doc-string? attr-map? [params*] body)
根据chain的定义，我可以猜测并验证[x form]是chain的参数，但显然，
([x
浏览 4提问于2017-02-24得票数 0
回答已采纳
下面的宏出现了问题：
(defmacro gather-params (&rest body)
"Return plist of params"
`(concatenate 'list
(map 'list
#'(lambda (plist)
(if (typep (first plist) 'keyword)
(cons 'list plist)
plist))
浏览 5提问于2022-05-18得票数 1
回答已采纳
我想要显示一些命名空间的随机(文档)页面。
我可以通过以下方式获得随机函数名：
user=> (rand-nth (keys (ns-publics 'clojure.core)))
unchecked-char
当我尝试将它传递给(doc)时，我得到的结果是：
user=> (doc (rand-nth (keys (ns-publics 'clojure.core))))
ClassCastException clojure.lang.PersistentList cannot be cast to clojure.lang.Symbol clojure.cor
浏览 1提问于2012-11-26得票数 3
回答已采纳
我定义了一个宏来将从字符串派生的符号绑定到字符串，如下所示：
lein repl
... Clojure 1.8.0 ...
user=> (defmacro foo [s] `(def ~(symbol s) ~s))
#'user/foo
在顶级调用时，它的工作方式与预期一样：
user=> (foo "asdf")
#'user/asdf
user=> asdf
"asdf"
但是，当我试图映射对序列调用宏的函数时，宏绑定函数参数符号，而不是我想要的：
user=> (map (fn [x] (foo x)) [&#
浏览 1提问于2016-12-27得票数 3
回答已采纳
为什么我会得到错误：
IllegalArgumentException First argument to defn must be a symbol clojure.core/defn (core.clj:277)
当我试图定义这样的函数时：
(defn (symbol "f[]") 1)
或者像这样：
(defn (symbol "f") [] 1)
为什么这些不等同于下面的直接例子呢？
(defn f [] 1)
这是深奥的，我知道:但我突然想到，我可能想在某个时候动态地命名一个函数。(这里没有真正的用例--只是想了解Clojure的想法.)
浏览 0提问于2018-05-01得票数 1
回答已采纳
我已经尝试过的
(defmacro magic []
(slurp *file*))
这在clojure中很好，但在clojurescript (至少对lein小方框不起作用)中不起作用。
原始问题
我需要下面的工作都在Clojure和Clojurescript。我认为宏是正确的解决方案，但我对其他技术持开放态度。
我想要一种将当前文件作为字符串读取的方法。例如,
(ns my-test
(:require blah))
(def foo 20)
(println (blah/magic))
这将导致(打印出来)。
(ns my-test
(:require blah))
(
浏览 4提问于2016-10-25得票数 2
回答已采纳
我有一个宏生成宏，我试图从另一个名称空间调用它，但它失败了，并显示“无法引用不存在的限定变量”。
我设法在下面的代码中重现了它，这是这个问题最简单的例证。我还找到了一个解决方法，但是我想了解问题的原因以及是否存在更好的解决方案。
问题
文件foo.clj
(ns foo)
(defmacro create-my-macro []
`(defmacro my-macro []
nil))
文件boo.clj
(ns boo (:use [foo]))
(create-my-macro)
上面的代码在使用以下命令执行时：
java -cp clojure-1.4.0.jar clo
浏览 0提问于2013-02-28得票数 3
回答已采纳
3回答
我是Clojure的新手，我是Macros的新手，我以前没有Lisp的背景。我继续创建了类似于表单的自己的开关情况，最后得到了如下结果：
(defmacro switch-case [v cases default] (if (cases v) (cases v) default ))
然后尝试做一个函数，最后得到了这样的结果：
(defn fn-switch-case [v cases default] (if (cases v) (cases v) default ))
两者都有
(switch-case 5 {6 "six" 7 "seven"}
浏览 0提问于2013-05-28得票数 8
2回答
我正在尝试用地图和逻辑函数连接两个列表。
(map and '(true false true) '(0 1 2))
我希望能看到
(0 false 2)
而不是那个
CompilerException java.lang.RuntimeException: Can't take value of a macro:
#'clojure.core/and, compiling:(NO_SOURCE_PATH:274:1)
发生了。
我怎么才能修好它？
浏览 3提问于2013-11-14得票数 0
回答已采纳
4回答
SQL提供了一个名为coalesce(a, b, c, ...)的函数，如果它的所有参数都为空，则返回空，否则返回第一个非空参数。
您将如何在Clojure中编写这样的东西呢？
它将被称为：(coalesce f1 f2 f3 ...)，其中fi是表单，只有在需要时才应该进行计算。如果f1为非零，则不应对f2进行评估--它可能有副作用.
可能Clojure已经提供了这样一个函数(或宏)。
编辑：这里是我想出的解决方案(修改自斯图亚特·哈洛韦的编程库(and ...)宏，第206页)：
(defmacro coalesce
([] nil)
([x] x)
([x & res
浏览 6提问于2010-11-03得票数 13
回答已采纳
问题:在宏中&之后，当要传递的参数是序列时，如何处理catch参数，而catch变量需要处理为序列序列？捕获所有变量中列出的是文字表达式。
这是一个宏，其目的是大致表现出Common的mapc，即执行Clojure的map所做的操作，但只用于副作用，而且不懒惰：
(defmacro domap [f & colls]
`(dotimes [i# (apply min (map count '(~@colls)))]
(apply ~f (map #(nth % i#) '(~@colls)))))
我开始意识到，这不是写domap
浏览 1提问于2014-02-04得票数 3
回答已采纳
我有一个文件，其中包含一些可信的clojure源代码：
((+ a b) (* a b) (- a b))
对于列表中的每个项，我想要生成一个匿名函数：
(fn [a b] (+ a b))
(fn [a b] (* a b))
(fn [a b] (- a b))
如果我给下面的马可打电话
(defmacro create-fn
[args exprs]
`(fn ~args ~exprs))
直接使用某些clojure代码，它可以很好地工作：
user=> (macroexpand-1 '(create-fn [a b] (* a b)))
(clojure.co
浏览 1提问于2015-03-21得票数 2
回答已采纳
我是学习和使用clojure的新手，所以我对clojure中的宏有一个基本的问题。我没有找到你真正需要宏的情况，所以我想知道是否有一个只有宏而没有正常函数或多重方法来解决你的问题的真实情况。
有人能给我们举个简单的例子吗？我想我不理解clojure中的宏的概念。
浏览 3提问于2014-09-10得票数 2
回答已采纳
我正在尝试编写一个宏，它将根据给定的参数调用java setter方法。
所以，举个例子：
(my-macro login-as-fred {"Username" "fred" "Password" "wilma"})
可能会扩展为类似以下内容：
(doto (new MyClass)
(.setUsername "fred")
(.setPassword "wilma"))
你建议如何解决这个问题？
具体地说，我很难找出构造setter方法名称的最佳方法，并通过宏将其解释为一个符号。
浏览 2提问于2009-11-11得票数 15
回答已采纳
扫码
添加站长 进交流群
领取专属 10元无门槛券
手把手带您无忧上云
相关资讯
热门标签
云服务器
ICP备案
实时音视频
即时通信 IM
对象存储活动推荐
腾讯云开发者
