r8926: add database-create database-destroy database-probe

[clsql.git] / base / db-interface.lisp

diff --git a/base/db-interface.lisp b/base/db-interface.lisp
index 2904f3d46365d877e8c6dc55357b1ea59e6e0641..9c8d363646aa9604d3b7127d4bae0310f7e45760 100644 (file)
--- a/base/db-interface.lisp
+++ b/base/db-interface.lisp
@@ -121,8 +121,19 @@ function should signal a clsql-sql-error."))
    "Returns t and stores the next row in the result set in list or
 returns nil when result-set is finished."))
 
+(defgeneric database-create (connection-spec type)
+  (:documentation
+   "Creates a database, returns T if successfull or signals an error."))
+
+(defgeneric database-probe (connection-spec type)
+  (:documentation
+   "Probes for the existence of a database, returns T if database found or NIL 
+if not found. May signal an error if unable to communicate with database server."))
 
-;; Interfaces to support UncommonSQL
+(defgeneric database-destory (connection-spec type)
+  (:documentation
+   "Destroys a database, returns T if successfull or signals an error
+if unable to destory."))
 
 (defgeneric database-create-sequence (name database)
   (:documentation "Create a sequence in DATABASE."))