-;;;; -*- 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
\ No newline at end of file
+;;;; -*- Mode: LISP; Syntax: ANSI-Common-Lisp; Base: 10 -*-
+;;;; *************************************************************************
+;;;; FILE IDENTIFICATION
+;;;;
+;;;; Name: package.cl
+;;;; Purpose: Package definition for CLSQL (high-level) interface
+;;;; Programmers: Kevin M. Rosenberg based on
+;;;; Original code by Pierre R. Mai
+;;;; Date Started: Feb 2002
+;;;;
+;;;; $Id: package.cl,v 1.19 2002/09/17 17:16:43 kevin Exp $
+;;;;
+;;;; This file, part of CLSQL, is Copyright (c) 2002 by Kevin M. Rosenberg
+;;;; and Copyright (c) 1999-2001 by Pierre R. Mai
+;;;;
+;;;; CLSQL users are granted the rights to distribute and use this software
+;;;; as governed by the terms of the Lisp Lesser GNU Public License
+;;;; (http://opensource.franz.com/preamble.html), also known as the LLGPL.
+;;;; *************************************************************************
+
+(declaim (optimize (debug 3) (speed 3) (safety 1) (compilation-speed 0)))
+(in-package :cl-user)
+
+
+(eval-when (:compile-toplevel :load-toplevel :execute)
+ (defpackage :clsql-sys
+ (:nicknames :clsql)
+ (:use :common-lisp :clsql-base-sys)
+ (:import-from
+ :clsql-base
+ .
+ #1=(
+ #:clsql-condition
+ #:clsql-error
+ #:clsql-simple-error
+ #:clsql-warning
+ #:clsql-simple-warning
+ #:clsql-invalid-spec-error
+ #:clsql-invalid-spec-error-connection-spec
+ #:clsql-invalid-spec-error-database-type
+ #:clsql-invalid-spec-error-template
+ #:clsql-connect-error
+ #:clsql-connect-error-database-type
+ #:clsql-connect-error-connection-spec
+ #:clsql-connect-error-errno
+ #:clsql-connect-error-error
+ #:clsql-sql-error
+ #:clsql-sql-error-database
+ #:clsql-sql-error-expression
+ #:clsql-sql-error-errno
+ #:clsql-sql-error-error
+ #:clsql-database-warning
+ #:clsql-database-warning-database
+ #:clsql-database-warning-message
+ #:clsql-exists-condition
+ #:clsql-exists-condition-new-db
+ #:clsql-exists-condition-old-db
+ #:clsql-exists-warning
+ #:clsql-exists-error
+ #:clsql-closed-error
+ #:clsql-closed-error-database
+
+ #:*loaded-database-types*
+ #:reload-database-types
+ #:*default-database-type*
+ #:*initialized-database-types*
+ #:initialize-database-type
+
+ #:database
+ #:database-name
+ #:closed-database
+ #:database-name-from-spec
+
+ ;; utils.cl
+ #:number-to-sql-string
+ #:float-to-sql-string
+ #:sql-escape-quotes
+ ))
+ (:export
+ ;; sql.cl
+ #:*connect-if-exists*
+ #:connected-databases
+ #:*default-database*
+ #:find-database
+ #:connect
+ #:disconnect
+ #:query
+ #:execute-command
+ #:map-query
+ #:do-query
+
+ ;; functional.cl
+ #:insert-records
+ #:delete-records
+ #:update-records
+ #:with-database
+
+ ;; For High-level UncommonSQL compatibility
+ #: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
+
+ .
+ #1#
+ )
+ (:documentation "This is the INTERNAL SQL-Interface package of CLSQL."))
+
+ ) ;eval-when
+
+(defpackage #:clsql-user
+ (:use #:common-lisp #:clsql)
+ (:documentation "This is the user package for experimenting with CLSQL."))
projects / clsql.git / blobdiff