Changeset error-handling,4 for error-handling/src/odbc/odbc-functions.lisp

Timestamp:

01/17/2008 11:35:17 PM (18 years ago)

Author:

David Owen <dsowen@…>

branch-nick:

error-handling

revision id:

dsowen@fugue88.ws-20080117233517-vus49ythg3fulf0z

Message:

Added some more errors.

File:

• error-handling/src/odbc/odbc-functions.lisp (modified) (2 diffs)

error-handling/src/odbc/odbc-functions.lisp

@@ -120 +120 @@
   (:report print-odbc-error))
 
+(define-condition odbc-not-null-violation (odbc-error) ())
+
 (define-condition odbc-foreign-key-error (odbc-error) ())
+
+(define-condition odbc-unique-violation (odbc-error) ())
+
+(define-condition odbc-check-violation (odbc-error) ())
+
+(define-condition odbc-insufficient-privilege (odbc-error) ())
+
+(define-condition odbc-undefined-object (odbc-error) ())
 
 (defun read-and-throw-error (henv hdbc hstmt)
@@ -127 +137 @@
                     (or hdbc (cffi:null-pointer))
                     (or hstmt (cffi:null-pointer)))
-    (let ((type (cdr (assoc sql-state '(("23503" . odbc-foreign-key-error))
+    (let ((type (cdr (assoc sql-state '(("23502" . odbc-not-null-violation)
+                                        ("23503" . odbc-foreign-key-error)
+                                        ("23505" . odbc-unique-violation)
+                                        ("23514" . odbc-check-violation)
+                                        ("42501" . odbc-insufficient-privilege)
+                                        ("42704" . odbc-undefined-object))
                             :test #'string=))))
       (error (if type type 'odbc-error)