¿Cómo encuentro los protocolos implementados en el objeto Clojure?

Question

¿Hay alguna manera documentada de encontrar qué protocolos implementa un objeto Clojure? A la inversa (mostrar para qué clases se extiende un protocolo determinado) es fácil: (protocolo de extensores).

Answer 1

que terminó con la siguiente implementación:

(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))) 

En primer lugar, busca todos los símbolos en el espacio de nombres actual (por supuesto puede extender esto a todos los espacios de nombres) si son definiciones de protocolos o neta (todos -protocolos). Luego busca un símbolo dado si satisface uno de estos protocolos.

¿El protocolo? función utiliza la tecla: en la interfaz que no está documentada afaik, por lo que esta función no es portátil.

Answer 2

No puedo probar esto en este momento, pero es posible que desee probar el método de la clase Java: getGenericInterfaces. Esto debería darle una lista de interfaces. Probablemente haya otras maneras de obtener esta información usando métodos similares pero no he buscado.

Si también observa el código fuente, verá cómo se configuran los protocolos (puede acceder a la fuente haciendo clic en los enlaces en la api de clojure). En Clojure 1.3 existe una función de 'privado' que tiene este aspecto:

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

Esta función es utilizada por la función de Clojure extend para comprobar que realmente ha proporcionado un protocolo. Si realiza su propia función de esa manera, puede filtrar los resultados de getGenericInterfaces. Como se trata de un detalle interno, puede estar sujeto a cambios.