mirror of https://codeberg.org/cage/tinmop/
109 lines
3.2 KiB
Common Lisp
109 lines
3.2 KiB
Common Lisp
;; tinmop: a multiprotocol client
|
|
;; Copyright © cage
|
|
|
|
;; This program is free software: you can redistribute it and/or modify
|
|
;; it under the terms of the GNU General Public License as published by
|
|
;; the Free Software Foundation, either version 3 of the License, or
|
|
;; (at your option) any later version.
|
|
|
|
;; This program is distributed in the hope that it will be useful,
|
|
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
;; GNU General Public License for more details.
|
|
|
|
;; You should have received a copy of the GNU General Public License
|
|
;; along with this program. If not, see <http://www.gnu.org/licenses/>.
|
|
|
|
(in-package 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 not-implemented-error (text-error)
|
|
()
|
|
(:report (lambda (condition stream)
|
|
(format stream "~a" (text condition))))
|
|
(: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))
|
|
(:report (lambda (condition stream)
|
|
(format stream
|
|
"sequence length ~a index ~a"
|
|
(length (seq condition))
|
|
(idx condition))))
|
|
(:documentation "Error when you go out of bound"))
|
|
|
|
(define-condition length-error (text-error)
|
|
((seq
|
|
:initarg :seq
|
|
:reader seq))
|
|
(:report (lambda (condition stream)
|
|
(format stream "~s ~a" (seq condition) (text condition))))
|
|
|
|
(:documentation "Length error"))
|
|
|
|
(define-condition different-length-error (error)
|
|
((seq1
|
|
:initarg :seq1
|
|
:reader seq1)
|
|
(seq2
|
|
:initarg :seq2
|
|
:reader seq2))
|
|
(:report (lambda (condition stream)
|
|
(format stream "~a ~a" (seq1 condition) (seq2 condition))))
|
|
(:documentation "Different length error"))
|
|
|
|
(define-condition column-not-found (error)
|
|
((table
|
|
:initform (_ "unknown")
|
|
:initarg :table
|
|
:reader table)
|
|
(row
|
|
:initform (_ "unknown")
|
|
:initarg :row
|
|
:reader row)
|
|
(column
|
|
:initarg :column
|
|
:reader column))
|
|
(:report (lambda (condition stream)
|
|
(format stream
|
|
"table ~s column ~s row ~s"
|
|
(table condition)
|
|
(column condition)
|
|
(row condition))))
|
|
(:documentation "Condition signalled when a database column does exists in table."))
|
|
|
|
(define-condition command-not-found (error)
|
|
((command
|
|
:initarg :command
|
|
:reader command))
|
|
(:report (lambda (condition stream)
|
|
(format stream "~s" (command condition))))
|
|
(:documentation "Condition signalled when a command the user inputed
|
|
was not found in keybindings tree."))
|
|
|
|
(defmacro with-default-on-error ((default) &body body)
|
|
"Well i think it is the same as `ignore-error'"
|
|
`(handler-case
|
|
(progn ,@body)
|
|
(error () ,default)))
|