Come trovo i protocolli implementati nell'oggetto Clojure?

Question

Esiste un modo documentato per trovare quali protocolli sono implementati da un oggetto Clojure? Il contrario (mostrare per quali classi un determinato protocollo è esteso) è semplice: (protocollo degli estensori).

Answer 1

ho finito con la seguente implementazione:

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

In primo luogo sembra per tutti i simboli nello spazio dei nomi corrente (si può ovviamente estenderà a tutti i namespace) se sono definizioni di protocolli o net (tutti Protocols). Successivamente cerca un dato simbolo se soddisfa uno di questi protocolli.

Il protocollo? la funzione utilizza la: chiave on-interface che non è documentata, quindi questa funzione non è portabile.

Answer 2

Al momento non riesco a provare questo, ma si potrebbe voler provare il metodo di classe Java: getGenericInterfaces. Questo dovrebbe darti un elenco di interfacce. Ci sono probabilmente altri modi per ottenere queste informazioni usando metodi simili ma non ho guardato.

Se si guarda anche il codice sorgente, vedremo come vengono configurati i protocolli (è possibile ottenere il codice sorgente facendo clic sui collegamenti nell'api del clojure). In Clojure 1.3 v'è una funzione di 'privato' che assomiglia a questo:

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

Questa funzione viene utilizzata dalla funzione di Clojure extend per verificare che hai effettivamente fornito un protocollo. Se si esegue la propria funzione in questo modo è possibile filtrare i risultati di getGenericInterfaces. Poiché questo è un dettaglio interno potrebbe essere soggetto a modifiche.