1 ;;; -*- coding: iso-2022-7bit -*-
2 ;;; mucs-error.el --- Mule-UCS error handling library.
4 ;; Copyright (C) 1999 Miyashita Hisashi
6 ;; Keywords: mule, multilingual,
7 ;; character set, coding-system, ISO10646, Unicode
9 ;; This file is part of Mule-UCS
11 ;; Mule-UCS is free software; you can redistribute it and/or modify
12 ;; it under the terms of the GNU General Public License as published by
13 ;; the Free Software Foundation; either version 2, or (at your option)
16 ;; Mule-UCS is distributed in the hope that it will be useful,
17 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
18 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
19 ;; GNU General Public License for more details.
21 ;; You should have received a copy of the GNU General Public License
22 ;; along with this program; see the file COPYING. If not, write to the
23 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
24 ;; Boston, MA 02111-1307, USA.
27 (put 'mucs-error 'error-conditions '(mucs-fatal mucs-generic mucs-error error))
28 (put 'mucs-error 'error-message "Mule-UCS: generic error")
31 (put 'mucs-conversion-type-mismatch-error 'error-conditions
32 '(mucs-fatal mucs-error error))
33 (put 'mucs-conversion-type-mismatch-error 'error-message
34 "Mule-UCS: conversion type mismatch")
37 (put 'mucs-unknown-type-error 'error-conditions
38 '(mucs-fatal mucs-type mucs-error error))
39 (put 'mucs-unknown-type-error 'error-message
40 "Mule-UCS: unknown type")
42 (put 'mucs-unknown-serialization-error 'error-conditions
43 '(mucs-fatal mucs-type mucs-error error))
44 (put 'mucs-unknown-serialization-error 'error-message
45 "Mule-UCS: unknown serialization")
47 (put 'mucs-no-serialization-method 'error-conditions
48 '(mucs-fatal mucs-type mucs-error error))
49 (put 'mucs-no-seriazlization-method 'error-message
50 "Mule-UCS: NO serialization method")
52 (put 'mucs-no-unserialization-method 'error-conditions
53 '(mucs-fatal mucs-type mucs-error error))
54 (put 'mucs-no-unseriazlization-method 'error-message
55 "Mule-UCS: NO unserialization method")
57 (put 'mucs-invalid-serialization-error 'error-conditions
58 '(mucs-fatal mucs-type mucs-error error))
59 (put 'mucs-invalid-serialization-error 'error-message
60 "Mule-UCS: invalid serialization")
62 (put 'mucs-type-mismatch-error 'error-conditions
63 '(mucs-fatal mucs-type mucs-error error))
64 (put 'mucs-type-mismatch-error 'error-message
65 "Mule-UCS: type mismatch")
67 (put 'mucs-type-cannot-convert 'error-conditions
68 '(mucs-fatal mucs-type mucs-error error))
69 (put 'mucs-type-cannot-convert 'error-message
70 "Mule-UCS: cannot convert")
73 (put 'mucs-ccl-error 'error-conditions '(mucs-fatal mucs-ccl mucs-error error))
74 (put 'mucs-ccl-error 'error-message "Mule-UCS: MULE-UCS-CCL generic error")
76 (put 'mucs-ccl-invalid-error 'error-conditions
77 '(mucs-fatal mucs-ccl mucs-error error))
78 (put 'mucs-ccl-invalid-error 'error-message "Mule-UCS: Invalid MULE-UCS-CCL")
80 (put 'mucs-ccl-convert-error 'error-conditions
81 '(mucs-fatal mucs-ccl mucs-error error))
82 (put 'mucs-ccl-convert-error 'error-message
83 "Mule-UCS: MULE-UCS-CCL(Convert)Invalid object")
85 ;;; Generic functions.
87 (defun mucs-error (error-sym message &rest else)
88 (signal error-sym (format message else)))