在我的Clojure共享源代码中,我有以下内容(我无耻地偷走了):
(defmacro hey-str [name]
`(str "hey " ~name))
{:author "Laurent Petit (and others)"
:doc "Functions/macros variants of the ones that can be found in clojure.core
(note to other contrib members: feel free to add to this lib)"}
(defmacro- defnilsafe [docstring non-safe-name nil-safe-name]
`(defmacro ~nil-safe-name ~docstring
{:arglists '([~'x ~'form] [~'x ~'form ~'& ~'forms])}
([x# form#]
`(let [~'i# ~x#] (when-not (nil? ~'i#) (~'~non-safe-name ~'i# ~form#))))
([x# form# & more#]
`(~'~nil-safe-name (~'~nil-safe-name ~x# ~form#) ~@more#))))
(defnilsafe
"Same as clojure.core/-> but returns nil as soon as the threaded value is nil itself (thus short-circuiting any pending computation).
Examples :
(-?> \"foo\" .toUpperCase (.substring 1)) returns \"OO\"
(-?> nil .toUpperCase (.substring 1)) returns nil
"
-> -?>)
(defnilsafe
"Same as clojure.core/.. but returns nil as soon as the threaded value is nil itself (thus short-circuiting any pending computation).
Examples :
(.?. \"foo\" .toUpperCase (.substring 1)) returns \"OO\"
(.?. nil .toUpperCase (.substring 1)) returns nil
"
.. .?.)
(defnilsafe
"Same as clojure.core/->> but returns nil as soon as the threaded value is nil itself (thus short-circuiting any pending computation).
Examples :
(-?>> (range 5) (map inc)) returns (1 2 3 4 5)
(-?>> [] seq (map inc)) returns nil
"
->> -?>>)
在我的Clojurescript代码中,我有以下内容(I:require-macros as c)
(def a nil)
(def b [])
(def c [{:a 23}])
(js/alert (c/hey-str "Stephen")) ;; should display "hey Stephen"
(js/alert (c/-?> a first :a)) ;; should display nil
(js/alert (c/-?> b first :a)) ;; should display nil
(js/alert (c/-?> c first :a)) ;; should display 23
不幸的是,当我编译时,我得到:
WARNING: Use of undeclared Var webstack.client/-?> at line 56 cljs-src/webstack/client.cljs
WARNING: Use of undeclared Var webstack.client/-?> at line 57 cljs-src/webstack/client.cljs
WARNING: Use of undeclared Var webstack.client/-?> at line 58 cljs-src/webstack/client.cljs
当我在浏览器中打开javascript时,我得到了“嘿斯蒂芬”警告对话框,但在按下“ok”后,无处不在的“Uncaught TypeError:无法调用方法'调用'未定义”错误嘿斯蒂芬“警觉。果然,看着生成的javascript代码,我的js / alert成了:
alert([cljs.core.str("hey "), cljs.core.str("Stephen")].join(""));
alert(webstack.client.__QMARK__GT_.call(null, webstack.client.__QMARK__GT_.call(null, webstack.client.a, cljs.core.first), "\ufdd0'a"));
alert(webstack.client.__QMARK__GT_.call(null, webstack.client.__QMARK__GT_.call(null, webstack.client.b, cljs.core.first), "\ufdd0'a"));
alert(webstack.client.__QMARK__GT_.call(null, webstack.client.__QMARK__GT_.call(null, webstack.client.c, cljs.core.first), "\ufdd0'a"))
很明显,我可以使用宏,但有关 - ?>的方式。 (和相关的)宏被写入导致它们无法编译。为了使用这些-?>
.?.
和` - ?>>',我需要做什么宏?
答案 0 :(得分:2)
- &GT?;使用clojure 1.5.1和cljsbuild 0.3.0为我工作,但仅当我使用:use-macros而不是:require-macros。当我使用:require-macros clojurescript尝试将宏解析为本地命名空间中的var,这是不正确的。我觉得你在clojurescript中发现了一个错误,为什么不报告呢?
(ns test.test
;(:use-macros [test.nilsafe :only [hey-str -?>]]) ;uncomment and everything works!
(:require-macros [test.nilsafe :as tn]))
(def a nil)
(def b [])
(def c [{:a 23}])
(.log js/console (tn/hey-str "Stephen")) ;; should display "hey Stephen"
(.log js/console (tn/-?> a first :a)) ;; should display nil
(.log js/console (tn/-?> b first :a)) ;; should display nil
(.log js/console (tn/-?> c first :a))
让我确定这是一个错误的是,取消注释:use-macros会导致文件正确编译,即使我没有从变量中删除tn / scope。
答案 1 :(得分:0)
->
marco很简单。
(defmacro ->
"Threads the expr through the forms. Inserts x as the
second item in the first form, making a list of it if it is not a
list already. If there are more forms, inserts the first form as the
second item in second form, etc."
{:added "1.0"}
[x & forms]
(loop [x x, forms forms]
(if forms
(let [form (first forms)
threaded (if (seq? form)
(with-meta `(~(first form) ~x ~@(next form)) (meta form))
(list form x))]
(recur threaded (next forms)))
x)))
写一个nil安全的应该是简单的(下面的示例没有经过测试),但是你得到了这个概念。
(defmacro -?>
[x & forms]
(loop [x x, forms forms]
(if (and forms (some? x)) ; check nil to exit eariler
(let [form (first forms)
threaded (if (seq? form)
(with-meta `(~(first form) ~x ~@(next form)) (meta form))
(list form x))]
(recur threaded (next forms)))
x)))
答案 2 :(得分:-1)
可能正在创建函数而不是宏中的另一个宏可以帮助您解决此问题:
(defmacro defnilsafe [docstring non-safe-name nil-safe-name]
`(defn ~nil-safe-name ~docstring
([x# form#]
(let [i# x#] (when-not (nil? i#) (~non-safe-name i# form#))))
([x# form# & more#]
(apply ~nil-safe-name (~nil-safe-name x# form#) more#))))