;;;; FILE IDENTIFICATION
;;;;
;;;; Name: package.cl
-;;;; Purpose: Package definition for high-level SQL interface
+;;;; Purpose: Package definition for base (low-level) SQL interface
;;;; Programmers: Kevin M. Rosenberg based on
;;;; Original code by Pierre R. Mai
;;;; Date Started: Feb 2002
;;;;
-;;;; $Id: package.cl,v 1.3 2002/05/15 17:21:29 kevin Exp $
+;;;; $Id: package.cl,v 1.6 2002/05/27 17:19:30 kevin Exp $
;;;;
;;;; This file, part of CLSQL, is Copyright (c) 2002 by Kevin M. Rosenberg
;;;; and Copyright (c) 1999-2001 by Pierre R. Mai
;;;; core packages.
(eval-when (:compile-toplevel :load-toplevel :execute)
-(defpackage :clsql-sys
+(defpackage :clsql-base-sys
(:use :common-lisp)
(:export
;; "Private" exports for use by interface packages
#:database-read-large-object
#:database-delete-large-object
- ;; Shared exports for re-export by CLSQL
-
+ ;; Shared exports for re-export by CLSQL-BASE
.
#1=(#:clsql-condition
#:clsql-error
#:clsql-exists-error
#:clsql-closed-error
#:clsql-closed-error-database
+
#:*loaded-database-types*
#:reload-database-types
#:*default-database-type*
#:closed-database
#:find-database
#:database-name-from-spec
- #:connect
- #:disconnect
- #:query
- #:execute-command
- #:map-query
- #:do-query
- ;; functional.cl
- #:insert-records
- #:delete-records
- #:update-records
- #:with-database
+ ;; accessors for database class
+ #:name
+ #:connection-spec
+ #:transaction
+ #:transaction-level
+ #:conn-pool
;; utils.cl
#:number-to-sql-string
#:float-to-sql-string
- #:sql-escape
-
- ;; For UncommonSQL support
- #:sql-ident
- #:list-tables
- #:list-attributes
- #:attribute-type
- #:create-sequence
- #:drop-sequence
- #:sequence-next
-
- ;; Pooled connections
- #:disconnect-pooled
- #:find-or-create-connection-pool
-
- ;; 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
+ #:sql-escape-quotes
))
- (:documentation "This is the INTERNAL SQL-Interface package of CLSQL."))
+ (:documentation "This is the INTERNAL SQL-Interface package of CLSQL-BASE."))
-(defpackage #:clsql
- (:import-from #:clsql-sys . #1#)
+(defpackage #:clsql-base
+ (:import-from :clsql-base-sys . #1#)
(:export . #1#)
- (:documentation "This is the SQL-Interface package of CLSQL."))
+ (:documentation "This is the SQL-Interface package of CLSQL-BASE."))
);eval-when
-(defpackage #:clsql-user
- (:use #:common-lisp #:clsql)
- (:documentation "This is the user package for experimenting with CLSQL."))
+