Clojure поколения класса генерироваться классы призывание вопрос

Question

я определил следующие MyCache.clj

(ns abcd.MyCache 
    (:gen-class 
    :name "abcd.MyCache" 
    :init "init" 
    :constructors { [java.text.DateFormat][] } 
    :methods [ [now [] void] [myformat [long] String] ] 
    :state "state" 
    :main false)) 

(defn -init[format] 
    ([[] (atom {:format format})])) 



(defn -now[this] ((:format @(.state this)) (System/currentTimeMillis))) 

(defn -myformat[this time] 
    ((:format @(.state this) (new java.util.Date time)))) 

Я составил вышеуказанный файл, используя (компилировать «abcd.MyCache) успешно.

Когда я пытаюсь использовать сгенерированные классы, как показано ниже. Я получаю ошибки. Пожалуйста помоги.

user=> (new abcd.MyCache (new java.text.SimpleDateFormat "mmDDyyyy")) 
IllegalArgumentException Key must be integer clojure.lang.APersistentVector.invoke (APersistentVector.java:265) 

Answer 1

Я не чувствую себя хорошо об этом:

(defn -init[format] 
    ([] [atom {:format format}])) 

Вы пытаетесь получить элемент из вектора и он ожидает, что индекс (номер).

Что является правильным, это отделить атом и получить его значение как индекс вектора. Но опять же в вашем случае вы пытаетесь запросить пустой вектор.

Обратите внимание, что [atom {: format format}] не является правильным способом создания атома. Вы должны использовать:

(atom {:format format}) 

И кстати, следующая форма является предпочтительным, чтобы создавать объекты Java (ничего плохого (новый), конечно):

(Date.) 
(DateFormat.)