Excepciones personalizadas en Clojure?

Question

He intentado crear una excepción definida por el usuario en Clojure, y he tenido todo tipo de problemas. He probado el método descrito aquí:

http://en.wikibooks.org/wiki/Clojure_Programming/Concepts#User-Defined_Exceptions

(gen-and-load-class 'user.MyException :extends Exception) 

Pero eso no parece trabajar en Clojure 1.2 (o que estoy haciendo algo mal ...). Mi entorno es Clojure 1.2, Emacs y lein swank.

Gracias por su ayuda!

Answer 1

Hacer un archivo src/user/MyException.clj (donde src está en CLASSPATH) que contiene:

(ns user.MyException 
    (:gen-class :extends java.lang.Exception)) 

comprobar el valor de *compile-path* en el REPL. Asegúrese de que este directorio exista y esté en CLASSPATH. Crea el directorio si no existe; Clojure no lo hará por ti.

user> *compile-path* 
"/home/user/foo/target/classes/" 
user> (System/getProperty "java.class.path") 
".......:/home/user/foo/target/classes/:......." 

Compile su clase:

user> (compile 'user.MyException) 
user.MyException 

Si funcionó, en *compile-path* ahora debería tener archivos o menos así:

/home/user/foo/target/ 
/home/user/foo/target/classes 
/home/user/foo/target/classes/user 
/home/user/foo/target/classes/user/MyException.class 
/home/user/foo/target/classes/user/MyException__init.class 
/home/user/foo/target/classes/user/MyException$loading__4410__auto__.class 

Reinicie su Clojure REPL/JVM para cargar estas clases . De nuevo, asegúrese de que estos nuevos archivos de clase estén en CLASSPATH. Ahora usted debería ser capaz de utilizar su clase:

user> (user.MyException.) 
#<MyException user.MyException> 

Answer 2

Fwiw, a menos que se está creando una excepción personalizada por razones de interoperabilidad es posible que desee considerar el uso de clojure.contrib.condition lugar. Viene con una excepción personalizada precompilada que permite utilizar datos personalizados en el uso de su API. Pude evitar crear muchas excepciones personalizadas usándolo en su lugar. Los documentos están aquí: http://clojure.github.com/clojure-contrib/condition-api.html

Answer 3

En lugar de generar clases personalizadas, hay dos formas mucho más simples de usar excepciones personalizadas:

1. Uso slingshot - Esto proporciona personalizados throw+ y catch+ macros que le permiten deshacerse y atrapa cualquier objeto, así como excepciones.

2. En clojure 1.4 y superior, puede utilizar clojure.core/ex-info y clojure.core/ex-data para generar y capturar una clase clojure.lang.ExceptionInfo, que envuelve un mensaje y un mapa de datos.

Usando esto es sencillo:

(throw (ex-info "My hovercraft is full of eels" 
       {:type :python-exception, :cause :eels})) 

(try (...) 
    (catch clojure.lang.ExceptionInfo e 
    (if (= :eels (-> e ex-data :cause)) 
     (println "beware the shrieking eels!") 
     (println "???")))) 

O en una prueba midje:

(fact "should throw some eels" 
    (...) 
    => (throws clojure.lang.ExceptionInfo 
      #(= :eels (-> % ex-data :cause))))