我有一个 Java 类Vector2
,我想说服它与 Clojure 阅读器“玩得很好”。
(def a (vec2 1 2))
(print-str a)
=> "#<Vector2 [1 2]>"
理想情况下,我希望课程以 Clojure 阅读器可以阅读的形式打印出来。即我希望以下内容返回true:
(= a (read-string (print-str a)))
实现这种往返能力的最佳方法是什么?
我有一个 Java 类Vector2
,我想说服它与 Clojure 阅读器“玩得很好”。
(def a (vec2 1 2))
(print-str a)
=> "#<Vector2 [1 2]>"
理想情况下,我希望课程以 Clojure 阅读器可以阅读的形式打印出来。即我希望以下内容返回true:
(= a (read-string (print-str a)))
实现这种往返能力的最佳方法是什么?
您需要为您的类/类型提供print-dup
多种print-method
方法。
查看core.clj
前任:
(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))))