Changeset error-handling,4

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.

Location:

error-handling/src/odbc

Files:

• odbc-functions.lisp (modified) (2 diffs)
• plain-odbc-package.lisp (modified) (1 diff)

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)

error-handling/src/odbc/plain-odbc-package.lisp

@@ -13 +13 @@
   (:export
    "ODBC-ERROR"
-   "ODBC-FOREIGN-KEY-ERROR"
+   "ERROR-MESSAGE"
+   "ERROR-CODE"
+   "ODBC-NOT-NULL-VIOLATION"
+   "ODBC-FOREIGN-KEY-VIOLATION"
+   "ODBC-UNIQUE-VIOLATION"
+   "ODBC-CHECK-VIOLATION"
+   "ODBC-INSUFFICIENT-PRIVILEGE"
+   "ODBC-UNDEFINED-OBJECT"
 
    "EXEC-QUERY"