क्लोजर प्रिंटर और रीडर

Question

के माध्यम से जावा क्लास को राउंड-ट्रिपिंग करना मेरे पास जावा क्लास Vector2 है जो मैं क्लोजर रीडर के साथ "अच्छी तरह से खेलना" के लिए राजी करना चाहता हूं।

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

आदर्श रूप से मैं क्लास को क्लोजर रीडर द्वारा पढ़ा जा सकने वाले फॉर्म में प्रिंट करना चाहता हूं। अर्थात मैं सच लौटने के लिए निम्नलिखित करना चाहते हैं:

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

इस राउंड ट्रिपिंग क्षमता को प्राप्त करने का सबसे अच्छा तरीका क्या है?

Answer 1

आपको अपनी कक्षा/प्रकार के लिए print-dup और print-method multimethods प्रदान करने की आवश्यकता है।

चेक बाहर 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))))