Кругооборот Java-класса через принтер и считыватель Clojure

У меня есть класс Java Vector2, который я хотел бы убедить «отлично играть» с читателем Clojure.Кругооборот Java-класса через принтер и считыватель Clojure

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

В идеале я хотел бы класс, чтобы распечатать в форме, которая может быть прочитана читателем Clojure. то есть я хотел следующий вернуться верно:

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

Что является лучшим способом достижения этого кругооборота возможности?

источник

2013-02-22 mikera

Вы не хотите привлекать к 'EvalReader', я полагаю? –

@Marko: открыт для предложений. Он специально не предназначен для внешнего API - для удобства в REPL и простой сериализации/десериализации. – mikera

Я думаю, что с 'read-eval' осталось до истины, читатель будет знать, что делать с' # = (Vector2. 1 2) '. –

Для вашего класса/типа вам необходимо предоставить print-dup и print-method мультиметоды.

Заканчивать core.clj

Ex:

(import 'java.util.Hashtable) 
(defmethod print-method Hashtable [x writer] 
     (binding [*out* writer] 
     (print (let [h (gensym)] 
       `(let [~h (Hashtable.)] 
        [email protected](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))))

источник

2013-02-22 11:15:53 Ankur

Это, кажется, охватывает только конец письма. Как он читает? –

'read-string' для чтения. В основном этот мультиметод будет возвращать s-выражение в строчном формате, таком как '(vec2 1 2)', что при выполнении результата в создании желаемого объекта – Ankur

Это не то, что хочет Mikera: он не хочет «eval» код в его объект; он хочет ** прочитать ** это, как родной вектор Clojure. –

Кругооборот Java-класса через принтер и считыватель Clojure

ответ

Смежные вопросы