Пользовательские исключения в Clojure?

Я пытался создать пользовательское исключение в Clojure и имел всевозможные проблемы. Я попробовал метод, описанный здесь:

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

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

Но это не работает в Clojure 1.2 (или я делаю что-то неправильно...). Моя среда Clojure 1.2, Emacs и lein swank.

Спасибо за вашу помощь!

Ответ 1

Сделайте файл src/user/MyException.clj (где src включен CLASSPATH), содержащий:

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

Проверьте значение *compile-path* на REPL. Убедитесь, что этот каталог существует и находится на CLASSPATH. Создайте каталог, если он не существует; Clojure не сделает этого для вас.

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

Скомпилируйте свой класс:

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

Если это сработало, в *compile-path* теперь у вас должны быть файлы примерно так:

/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

Перезагрузите свой Clojure REPL/JVM, чтобы загрузить эти классы. Опять же, убедитесь, что эти новые файлы классов находятся на CLASSPATH. Теперь вы сможете использовать свой класс:

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

Ответ 2

Вместо создания пользовательских классов существует два гораздо более простых способа использования пользовательских исключений:

Используйте slingshot - это предоставляет настраиваемые макросы throw+ и catch+, которые позволяют вам бросать и захватывать любой объект, а также исключения.
В clojure 1.4 и выше вы можете использовать clojure.core/ex-info и clojure.core/ex-data, чтобы сгенерировать и уловить класс clojure.lang.ExceptionInfo, который обертывает сообщение и карту данных.

Использование этого просто:

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

Или в середине теста:

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

Ответ 3

FWIW, если вы не создаете настраиваемое исключение из соображений взаимодействия, вы можете использовать вместо него clojure.contrib.condition. Он поставляется с предварительно скомпилированным пользовательским исключением, что вы копируете пользовательские данные на использование API. Я смог избежать создания множества пользовательских исключений, используя вместо этого. Документы находятся здесь: http://clojure.github.com/clojure-contrib/condition-api.html