1 ;;;; -*- Mode: LISP; Syntax: ANSI-Common-Lisp; Base: 10 -*-
2 ;;;; *************************************************************************
3 ;;;; FILE IDENTIFICATION
6 ;;;; Purpose: Package definition for high-level SQL interface
7 ;;;; Programmers: Kevin M. Rosenberg based on
8 ;;;; Original code by Pierre R. Mai
9 ;;;; Date Started: Feb 2002
11 ;;;; $Id: package.cl,v 1.2 2002/05/13 17:20:35 marc.battyani Exp $
13 ;;;; This file, part of CLSQL, is Copyright (c) 2002 by Kevin M. Rosenberg
14 ;;;; and Copyright (c) 1999-2001 by Pierre R. Mai
16 ;;;; CLSQL users are granted the rights to distribute and use this software
17 ;;;; as governed by the terms of the Lisp Lesser GNU Public License
18 ;;;; (http://opensource.franz.com/preamble.html), also known as the LLGPL.
19 ;;;; *************************************************************************
21 (declaim (optimize (debug 3) (speed 3) (safety 1) (compilation-speed 0)))
24 ;;;; This file makes the required package definitions for CLSQL's
27 (eval-when (:compile-toplevel :load-toplevel :execute)
28 (defpackage :clsql-sys
31 ;; "Private" exports for use by interface packages
32 #:check-connection-spec
33 #:database-type-load-foreign
34 #:database-type-library-loaded ;; KMR - Tests if foreign library okay
35 #:database-initialize-database-type
39 #:database-execute-command
40 #:database-query-result-set
41 #:database-dump-result-set
42 #:database-store-next-row
44 ;; For UncommonSQL support
45 #:database-list-tables
46 #:database-list-attributes
47 #:database-attribute-type
48 #:database-create-sequence
49 #:database-drop-sequence
50 #:database-sequence-next
53 ;; Support for pooled connections
56 ;; Large objects (Marc B)
57 #:database-create-large-object
58 #:database-write-large-object
59 #:database-read-large-object
60 #:database-delete-large-object
62 ;; Shared exports for re-export by CLSQL
69 #:clsql-simple-warning
70 #:clsql-invalid-spec-error
71 #:clsql-invalid-spec-error-connection-spec
72 #:clsql-invalid-spec-error-database-type
73 #:clsql-invalid-spec-error-template
75 #:clsql-connect-error-database-type
76 #:clsql-connect-error-connection-spec
77 #:clsql-connect-error-errno
78 #:clsql-connect-error-error
80 #:clsql-sql-error-database
81 #:clsql-sql-error-expression
82 #:clsql-sql-error-errno
83 #:clsql-sql-error-error
84 #:clsql-database-warning
85 #:clsql-database-warning-database
86 #:clsql-database-warning-message
87 #:clsql-exists-condition
88 #:clsql-exists-condition-new-db
89 #:clsql-exists-condition-old-db
90 #:clsql-exists-warning
93 #:clsql-closed-error-database
94 #:*loaded-database-types*
95 #:reload-database-types
96 #:*default-database-type*
97 #:*initialized-database-types*
98 #:initialize-database-type
101 #:connected-databases
106 #:database-name-from-spec
121 #:number-to-sql-string
122 #:float-to-sql-string
125 ;; For UncommonSQL support
134 ;; Pooled connections
136 #:find-or-create-connection-pool
141 #:rollback-transaction
142 #:add-transaction-commit-hook
143 #:add-transaction-rollback-hook
145 ;; Large objects (Marc B)
146 #:create-large-object
149 #:delete-large-object
151 (:documentation "This is the INTERNAL SQL-Interface package of CLSQL."))
154 (:import-from #:clsql-sys . #1#)
156 (:documentation "This is the SQL-Interface package of CLSQL."))
159 (defpackage #:clsql-user
160 (:use #:common-lisp #:clsql)
161 (:documentation "This is the user package for experimenting with CLSQL."))