(cerror "Ignore this error and return nil."
'clsql-nodb-error))
-;; for USQL support
-
(define-condition clsql-type-error (clsql-error clsql-condition)
((slotname :initarg :slotname
:reader clsql-type-error-slotname)
(defvar *default-database* nil
"Specifies the default database to be used.")
-;;; usql
(defun find-database (database &key (errorp t) (db-type nil))
"The function FIND-DATABASE, given a string DATABASE, searches
amongst the connected databases for one matching the name DATABASE. If
;;;; Description ==========================================================
;;;; ======================================================================
;;;;
-;;;; CLSQL-USQL broadcast streams which can be used to monitor the
+;;;; CLSQL broadcast streams which can be used to monitor the
;;;; flow of commands to, and results from, a database.
;;;;
;;;; ======================================================================
;;;;
;;;; A variety of structures and function for creating and
;;;; manipulating dates, times, durations and intervals for
-;;;; CLSQL-USQL.
+;;;; CLSQL.
;;;;
;;;; This file was originally part of ODCL and is Copyright (c) 2002 -
;;;; 2003 onShore Development, Inc.
(declare (ignore owner))
(remove-if #'(lambda (s)
(and (>= (length s) 10)
- (string= (subseq s 0 10) "_usql_seq_")))
+ (string= (subseq s 0 10) "_clsql_seq_")))
(mapcar #'car (database-query "SHOW TABLES" database nil))))
;; MySQL 4.1 does not support views
;;; Sequence functions
(defun %sequence-name-to-table (sequence-name)
- (concatenate 'string "_usql_seq_" (sql-escape sequence-name)))
+ (concatenate 'string "_clsql_seq_" (sql-escape sequence-name)))
(defun %table-name-to-sequence-name (table-name)
(and (>= (length table-name) 10)
- (string= (subseq table-name 0 10) "_usql_seq_")
+ (string= (subseq table-name 0 10) "_clsql_seq_")
(subseq table-name 10)))
(defmethod database-create-sequence (sequence-name
&key (owner nil))
(declare (ignore owner))
(mapcar #'(lambda (s) (%table-name-to-sequence-name (car s)))
- (database-query "SHOW TABLES LIKE '%usql_seq%'"
+ (database-query "SHOW TABLES LIKE '%clsql_seq%'"
database nil)))
(defmethod database-set-sequence-position (sequence-name
;; Query is copied from .table command of sqlite comamnd line utility.
(remove-if #'(lambda (s)
(and (>= (length s) 10)
- (string= (subseq s 0 10) "_usql_seq_")))
+ (string= (subseq s 0 10) "_clsql_seq_")))
(mapcar #'car (database-query
"SELECT name FROM sqlite_master WHERE type='table' UNION ALL SELECT name FROM sqlite_temp_master WHERE type='table' ORDER BY name"
database '()))))
return (third field-info)))
(defun %sequence-name-to-table-name (sequence-name)
- (concatenate 'string "_usql_seq_" (sql-escape sequence-name)))
+ (concatenate 'string "_clsql_seq_" (sql-escape sequence-name)))
(defun %table-name-to-sequence-name (table-name)
(and (>= (length table-name) 10)
- (string= (subseq table-name 0 10) "_usql_seq_")
+ (string= (subseq table-name 0 10) "_clsql_seq_")
(subseq table-name 10)))
(defmethod database-create-sequence (sequence-name