cl-i18n/conditions.lisp

;; This software is Copyright (c) Leslie P. Polzer, 2011.
;; Leslie P. Polzer grants you the rights to distribute
;; and use this software as governed by the terms
;; of the Lisp Lesser GNU Public License
;; (http://opensource.franz.com/preamble.html),
;; known as the LLGPL

(in-package i18n-conditions)

(defmacro defcond (type)
  `(define-condition ,(alexandria:format-symbol t "TEXT-~a" (string-upcase type))
       (,type)
       ((text
	 :initarg :text
	 :reader text))
     (:documentation "Error that set text")))

(defcond error)

(defcond warning)

(define-condition parsing-pofile-error (text-error)
  ()
  (:report (lambda (condition stream)
	    (format stream "~a" (text condition)))))

(define-condition parsing-mofile-error (text-error)
  ()
  (:report (lambda (condition stream)
	    (format stream "~a" (text condition)))))

(define-condition parsing-utxfile-error (text-error)
  ()
  (:report (lambda (condition stream)
	    (format stream "~a" (text condition)))))

(define-condition no-translation-table-error (text-error)
  ()
  (:report (lambda (condition stream)
	    (format stream "~a" (text condition)))))

(define-condition no-translation (text-warning)
  ()
  (:report (lambda (condition stream)
	     (format stream "~a" (text condition)))))

(define-condition text-error (error)
  ((text
    :initarg :text
    :reader text))
  (:documentation "Error that set text"))

(define-condition not-implemented-error (text-error)
  ()
  (:documentation "Error for not-implemented features"))

(define-condition null-reference (text-error)
  ()
  (:documentation "Null reference"))

(define-condition out-of-bounds (error)
  ((seq
    :initarg :seq
    :reader seq)
   (idx
    :initarg :idx
    :reader idx))
   (:documentation "Error when you go out of bound"))