如何在Clojure對象中找到已實現的協議？

Question

是否有文件記錄的方式來查找哪些協議是由Clojure對象實現的？反過來（顯示給定協議擴展的類）很容易：（擴展協議）。

Answer 1

我結束了以下實現：

(defn protocol? [maybe-p] 
    (boolean (:on-interface maybe-p))) 

(defn all-protocols [] 
    (filter #(protocol? @(val %)) (ns-publics *ns*))) 

(defn implemented-protocols [sym] 
    (filter #(satisfies? @(val %) sym) (all-protocols))) 

首先，它會在當前命名空間中所有的符號（當然你也可以此擴大到所有命名空間）無論是協議定義或淨（所有-protocols）。接下來，它會查找給定的符號，如果它滿足這些協議之一。

該協議？函數使用：on-interface key，這是沒有記錄的afaik，所以這個函數是不可移植的。

Answer 2

我目前實際上無法嘗試此操作，但您可能需要嘗試Java類方法：getGenericInterfaces。這應該給你一個接口列表。可能有其他方法可以使用類似的方法獲取這些信息，但我沒有看過。

如果你也看看源代碼，你會看到如何設置協議（你可以通過點擊clojure api中的鏈接來獲得源代碼）。用Clojure 1.3還有一個「私人」功能，看起來像這樣：

(defn- protocol? 
    [maybe-p] 
    (boolean (:on-interface maybe-p))) 

此功能使用Clojure的extend函數來檢查，你實際上已經提供了一個協議。如果你創建自己的功能，你可以過濾getGenericInterfaces的結果。由於這是內部細節，因此可能會有所變更。