;;;; Original code by Pierre R. Mai
;;;; Date Started: Feb 2002
;;;;
-;;;; $Id: package.cl,v 1.2 2002/03/24 04:01:26 kevin Exp $
+;;;; $Id: package.cl,v 1.14 2002/05/11 22:37:46 kevin Exp $
;;;;
;;;; This file, part of CLSQL, is Copyright (c) 2002 by Kevin M. Rosenberg
;;;; and Copyright (c) 1999-2001 by Pierre R. Mai
;;;; This file makes the required package definitions for CLSQL's
;;;; core packages.
-;;;;
(eval-when (:compile-toplevel :load-toplevel :execute)
(defpackage :clsql-sys
#:database-query-result-set
#:database-dump-result-set
#:database-store-next-row
+
+ ;; For UncommonSQL support
+ #:database-list-tables
+ #:database-list-attributes
+ #:database-attribute-type
+ #:database-create-sequence
+ #:database-drop-sequence
+ #:database-sequence-next
+ #:sql-escape
+
+ ;; Support for pooled connections
+ #:database-type
+
+ ;; Large objects (Marc B)
+ #:database-create-large-object
+ #:database-write-large-object
+ #:database-read-large-object
+ #:database-delete-large-object
+
;; Shared exports for re-export by CLSQL
+
.
#1=(#:clsql-condition
#:clsql-error
#:execute-command
#:map-query
#:do-query
+
+ ;; functional.cl
#:insert-records
#:delete-records
#:update-records
- #:select
- #:with-database))
+ #:with-database
+
+ ;; utils.cl
+ #:number-to-sql-string
+ #:float-to-sql-string
+ #:sql-escape-quotes
+
+ ;; For UncommonSQL support
+ #:sql-ident
+ #:list-tables
+ #:list-attributes
+ #:attribute-type
+ #:create-sequence
+ #:drop-sequence
+ #:sequence-next
+
+ ;; Pooled connections
+ #:disconnect-pooled
+
+ ;; Transactions
+ #:with-transaction
+ #:commit-transaction
+ #:rollback-transaction
+ #:add-transaction-commit-hook
+ #:add-transaction-rollback-hook
+
+ ;; Large objects (Marc B)
+ #:create-large-object
+ #:write-large-object
+ #:read-large-object
+ #:delete-large-object
+ ))
(:documentation "This is the INTERNAL SQL-Interface package of CLSQL."))
(defpackage #:clsql