Rotazione di una classe Java tramite la stampante e il lettore Clojure

Question

Ho una classe Java Vector2 che mi piacerebbe convincere a "giocare bene" con il lettore Clojure.

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

Idealmente mi piacerebbe la classe di stampare in una forma che può essere letto dal lettore Clojure. cioè mi piacerebbe quanto segue per restituire true:

(= a (read-string (print-str a))) 

Qual è il modo migliore per raggiungere questa capacità round-intervento?

Answer 1

È necessario fornire i metodi multimetro print-dup e print-method per la classe/tipo.

Partenza core.clj

Es:

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