1 ;;;; -*- Mode: LISP; Syntax: ANSI-Common-Lisp; Base: 10 -*-
\r;;;; *************************************************************************
\r;;;; FILE IDENTIFICATION
\r;;;;
\r;;;; Name: package.cl
\r;;;; Purpose: Package definition for high-level SQL interface
\r;;;; Programmers: Kevin M. Rosenberg based on
\r;;;; Original code by Pierre R. Mai
\r;;;; Date Started: Feb 2002
\r;;;;
\r;;;; $Id: package.cl,v 1.13 2002/05/10 08:05:48 marc.battyani Exp $
\r;;;;
\r;;;; This file, part of CLSQL, is Copyright (c) 2002 by Kevin M. Rosenberg
\r;;;; and Copyright (c) 1999-2001 by Pierre R. Mai
\r;;;;
\r;;;; CLSQL users are granted the rights to distribute and use this software
\r;;;; as governed by the terms of the Lisp Lesser GNU Public License
\r;;;; (http://opensource.franz.com/preamble.html), also known as the LLGPL.
\r;;;; *************************************************************************
\r\r(declaim (optimize (debug 3) (speed 3) (safety 1) (compilation-speed 0)))
\r(in-package :cl-user)
\r\r;;;; This file makes the required package definitions for CLSQL's
\r;;;; core packages.
\r;;;;
\r\r(eval-when (:compile-toplevel :load-toplevel :execute)
\r(defpackage :clsql-sys
\r (:use :common-lisp)
\r (:export
\r ;; "Private" exports for use by interface packages
\r #:check-connection-spec
\r #:database-type-load-foreign
\r #:database-type-library-loaded ;; KMR - Tests if foreign library okay
\r #:database-initialize-database-type
\r #:database-connect
\r #:database-disconnect
\r #:database-query
\r #:database-execute-command
\r #:database-query-result-set
\r #:database-dump-result-set
\r #:database-store-next-row
\r \r ;; For UncommonSQL support
\r #:database-list-tables
\r #:database-list-attributes
\r #:database-attribute-type
\r #:database-create-sequence
\r #:database-drop-sequence
\r #:database-sequence-next
\r #:sql-escape
\r\r ;; Support for pooled connections
\r #:database-type
\r\r ;; Large objects (Marc B)
\r #:database-create-large-object
\r #:database-write-large-object
\r #:database-read-large-object
\r #:database-delete-large-object
\r \r ;; Shared exports for re-export by CLSQL
\r\r .
\r #1=(#:clsql-condition
\r #:clsql-error
\r #:clsql-simple-error
\r #:clsql-warning
\r #:clsql-simple-warning
\r #:clsql-invalid-spec-error
\r #:clsql-invalid-spec-error-connection-spec
\r #:clsql-invalid-spec-error-database-type
\r #:clsql-invalid-spec-error-template
\r #:clsql-connect-error
\r #:clsql-connect-error-database-type
\r #:clsql-connect-error-connection-spec
\r #:clsql-connect-error-errno
\r #:clsql-connect-error-error
\r #:clsql-sql-error
\r #:clsql-sql-error-database
\r #:clsql-sql-error-expression
\r #:clsql-sql-error-errno
\r #:clsql-sql-error-error
\r #:clsql-database-warning
\r #:clsql-database-warning-database
\r #:clsql-database-warning-message
\r #:clsql-exists-condition
\r #:clsql-exists-condition-new-db
\r #:clsql-exists-condition-old-db
\r #:clsql-exists-warning
\r #:clsql-exists-error
\r #:clsql-closed-error
\r #:clsql-closed-error-database
\r #:*loaded-database-types*
\r #:reload-database-types
\r #:*default-database-type*
\r #:*initialized-database-types*
\r #:initialize-database-type
\r #:*connect-if-exists*
\r #:*default-database*
\r #:connected-databases
\r #:database
\r #:database-name
\r #:closed-database
\r #:find-database
\r #:database-name-from-spec
\r #:connect
\r #:disconnect
\r #:query
\r #:execute-command
\r #:map-query
\r #:do-query
\r\r ;; functional.cl
\r #:insert-records
\r #:delete-records
\r #:update-records
\r #:with-database
\r \r ;; utils.cl
\r #:number-to-sql-string
\r #:float-to-sql-string
\r #:sql-escape-quotes
\r\r ;; For UncommonSQL support
\r #:sql-ident
\r #:list-tables
\r #:list-attributes
\r #:attribute-type
\r #:create-sequence
\r #:drop-sequence
\r #:sequence-next
\r\r ;; Pooled connections
\r #:disconnect-pooled
\r\r ;; Transactions
\r #:with-transaction
\r #:commit-transaction
\r #:rollback-transaction
\r #:add-transaction-commit-hook
\r #:add-transaction-rollback-hook
\r\r ;; Large objects (Marc B)
\r #:create-large-object
\r #:write-large-object
\r #:read-large-object
\r #:delete-large-object
\r ))
\r (:documentation "This is the INTERNAL SQL-Interface package of CLSQL."))
\r\r(defpackage #:clsql
\r (:import-from #:clsql-sys . #1#)
\r (:export . #1#)
\r (:documentation "This is the SQL-Interface package of CLSQL."))
\r);eval-when
\r\r(defpackage #:clsql-user
\r (:use #:common-lisp #:clsql)
\r (:documentation "This is the user package for experimenting with CLSQL."))
\r