如何在clojure宏中測試未評估函數？

Question

我想評估一個宏的參數是否是一個函數。如果是我想返回未評估的功能。否則返回一個不同的功能。像這樣：

(defmacro func? [function] 
    (if (fn? function) 
    function 
    identity)) 
((func? "oops") 5) ;=> 5 
((func? -) 5)  ;=> 5 

然而上述失敗，因爲未計算的功能還不是真正功能得到這個工作，我必須使用邪惡的eval：

(defmacro func? [function] 
    (if (fn? (eval function)) 
    function 
    identity)) 
((func? "oops") 5) ;=> 5 
((func? -) 5)  ;=> -5 

如何避免使用在這裏評估？ 答案必須是宏。

在我的情況下宏功能的原因是，這個宏被用於很多在我的遊戲中被調用很多次的函數。該宏是一個輸出格式解釋器。換句話說，我自己可以這樣寫，但宏使我的代碼更清晰。如果我使用了一個函數而不是這個宏，它會做同樣的解釋，只需要進行一次，每50ms重複我的遊戲大約60次。希望澄清而不是混淆我的情況。

Answer 1

您需要考慮宏的許多可能的參數，以決定它是否是函數。

1. 它是一個符號嗎？一個號碼？一個字符串？
2. 符號解析爲一個函數的變量？
3. 該符號需要解析哪些名稱空間？

假設的功能，以解決居住在當前的命名空間，你可以做這樣的事情：

(defn test 
    [] 
    "result") 

(defmacro func? 
    [f] 
    (if (and (symbol? f) 
      (fn? (var-get (ns-resolve *ns* f)))) 
    f 
    identity)) 

(func? test) 
#object[user$test 0x37c27452 "prisma.server$test@37c27452"] 

(func? 4) 
#object[clojure.core$identity 0x3a811e64 "clojure.core$identity@3a811e64"] 

凡ns-resolve和var-get給你一個句柄到適當的函數值（或所有任何值情況f確實是解決某事的符號）。

在當前命名空間的工作解決了所有的功能，例如：

(:require [some.ns :as other-ns]) 

(func? other-ns/valid-fn) 
=> #object[some.ns$valid-fn 0x7207a00b "some.ns$valid-fn@7207a00b"] 

Answer 2

爲什麼要使用宏？

(defn func? [function] 
    (if (fn? function) 
    function 
    identity)) 

((func? "oops") 5) ;=> 5 
((func? -) 5)  ;=> -5 

---

注意#(identity %)只是identity。