Wie Protokollmethoden zu vorhandenen Typ weitergeleitet werden?

Question

Wie kann ich einen neuen Datensatz definieren, der die Protokolle von einem vorhandenen Typ "erbt"?

Um diese Frage klar zu machen, werde ich mit der Erweiterung Ubergraph veranschaulichen, aber Ubergraph ist nur ein Beispiel; Ich suche nach der allgemeinen Lösung, nicht nur nach einer Lösung, die für Ubergraph funktioniert. Angenommen, ich möchte ein globales Attribut, graph-name, zu Ubergraph hinzufügen. Im Idealfall könnte ich so etwas tun:

(defrecord named-ubergraph [g graph-name]) 

(extend-type named-ubergraph 
    (all-the-protocols-supported-by ubergraph.core.Ubergraph) 
    (call-the-same-functions-replacing-first-argument-with '(this g)) 

Natürlich habe ich an der Ubergraph Quellcode aussehen könnte und manuell alle Weiterleitungsfunktionen schreiben, aber as you can see here, Ubergraph erfüllt viele Protokolle und viele Protokoll Methoden.

So viel Code zu schreiben klingt nicht sehr Clojurely, und es scheint wie viel Arbeit, wenn ich nur ein eensy-weensy Bit Daten zu einem Ubergraph hinzufügen möchte. Was ist ein besserer Weg?

Bitte zögern Sie nicht, die Frage neu zu konzipieren, wenn Sie denken, dass ich das falsch sehe.

Answer 1

extend-type erweitert bestehende Typen auf bestimmte Protokolle. Wenn ich Sie richtig verstehe, möchten Sie bestehenden Datensatz erweitern, um eine Art von Vererbung zu erreichen. AFAIK, es gibt keinen einfachen Weg, dies zu tun. ist jedoch, wenn alles, was Sie wollen, ein weiteres Feld hinzuzufügen, können Sie einfach assoc zusätzliches Feld zu einem vorhandenen Datensatz Beispiel:

(defprotocol Cost 
    (cost [this price-list])) 

(defrecord Car [name speed] 
    Cost 
    (cost [this price-list] (price-list (:name this)))) 

(def my-car (->Car "bmw" 200)) 
(def price-list {"bmw" 100000}) 

(cost my-car price-list) 
;;=> 100000 

(-> my-car 
    (assoc :color "blue") 
    (cost price-list)) 
;;=> 100000 

UPDATE: ich auch diese fantastische Diskussion über Clojure Mailing-Liste gefunden haben: defrecord mit "Vererbung": https://groups.google.com/forum/#!topic/clojure/mr-o9sRyiZ0