Round-tripping eine Java-Klasse durch den Clojure-Drucker und Leser

Question

Ich habe eine Java-Klasse Vector2, die ich gerne überreden würde, "schön" mit dem Clojure-Leser zu spielen.

(def a (vec2 1 2)) 
(print-str a) 
=> "#<Vector2 [1 2]>" 

Idealerweise möchte ich, dass die Klasse in einer Form ausgedruckt wird, die vom Clojure-Leser gelesen werden kann. d. ich möchte, dass das Folgende wahr ergibt:

Was ist der beste Weg, um diese Rundauslösefähigkeit zu erreichen?

Answer 1

Sie müssen print-dup und print-method Multimethoden für Ihre Klasse/Typ angeben.

Check out core.clj

Ex:

(import 'java.util.Hashtable) 
(defmethod print-method Hashtable [x writer] 
     (binding [*out* writer] 
     (print (let [h (gensym)] 
       `(let [~h (Hashtable.)] 
        ~@(map (fn [i] 
           `(.put ~h ~(str "\"" (.getKey i) "\"") ~(.getValue i) )) x) ~h))) )) 
(def a (Hashtable.)) 
(.put a "a" 1) 
(.put a "b" 2) 
(= a (eval (read-string (print-str a))))