classes générées clojure gen classe invocation question

Question

I a défini le MyCache.clj suivant

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

Je compilé le fichier ci-dessus à l'aide (compilation « abcd.MyCache) avec succès.

Lorsque j'essaie d'utiliser les classes générées comme indiqué ci-dessous..J'ai des erreurs. S'il vous plaît aider.

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

Answer 1

Je ne me sens pas bien à ce sujet:

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

Vous essayez d'obtenir un élément d'un vecteur et il est un indice s'attend (nombre).

Ce qui est correct est de deref l'atome et d'obtenir sa valeur en tant qu'indice du vecteur. Mais encore une fois dans votre cas, vous essayez d'interroger un vecteur vide. Notez également que [atom {: format format}] n'est pas la manière correcte de créer un atome. Vous devez utiliser:

(atom {:format format}) 

Et en passant, sous la forme suivante est celle préférée pour créer des objets Java (rien de mal avec (nouveau) bien sûr):

(Date.) 
(DateFormat.)