r1988: no message
[clsql.git] / sql / package.cl
index 989b27731c044ef41c56f47c8ee740ce8cb0caff..48e454230d83bdbf23b9b3d4928a3438cc877d62 100644 (file)
@@ -1,135 +1 @@
-;;;; -*- Mode: LISP; Syntax: ANSI-Common-Lisp; Base: 10 -*-
-;;;; *************************************************************************
-;;;; FILE IDENTIFICATION
-;;;;
-;;;; Name:          package.cl
-;;;; Purpose:       Package definition for high-level SQL interface
-;;;; Programmers:   Kevin M. Rosenberg based on
-;;;;                Original code by Pierre R. Mai 
-;;;; Date Started:  Feb 2002
-;;;;
-;;;; $Id: package.cl,v 1.5 2002/04/01 05:27:55 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)
-
-;;;; This file makes the required package definitions for CLSQL's
-;;;; core packages.
-;;;; 
-
-(eval-when (:compile-toplevel :load-toplevel :execute)
-(defpackage :clsql-sys
-  (:use :common-lisp)
-  (:export
-     ;; "Private" exports for use by interface packages
-     #:check-connection-spec
-     #:database-type-load-foreign
-     #:database-type-library-loaded ;; KMR - Tests if foreign library okay
-     #:database-initialize-database-type
-     #:database-connect
-     #:database-disconnect
-     #:database-query
-     #:database-execute-command
-     #: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
-     ;; Shared exports for re-export by CLSQL
-     .
-     #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
-        #:*connect-if-exists*
-        #:*default-database*
-        #:connected-databases
-        #:database
-        #:database-name
-        #:closed-database
-        #:find-database
-        #:database-name-from-spec
-        #:connect
-        #:disconnect
-        #:query
-        #:execute-command
-        #:map-query
-        #:do-query
-        #:insert-records
-        #:delete-records
-        #:update-records
-        #:select
-        #: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
-        
-        ))
-    (:documentation "This is the INTERNAL SQL-Interface package of CLSQL."))
-
-(defpackage #:clsql
-    (:import-from #:clsql-sys . #1#)
-    (:export . #1#)
-    (:documentation "This is the SQL-Interface package of CLSQL."))
-);eval-when
-
-(defpackage #:clsql-user
-    (:use #:common-lisp #:clsql)
-    (:documentation "This is the user package for experimenting with CLSQL."))
+;;;; -*- 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.12 2002/05/08 16:56:54 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        #:transaction-start\r    #:transaction-commit\r   #:transaction-abort\r\r   ;; Pooled connections\r  #:disconnect-pooled\r    \r       ;; Transactions\r        #:with-transaction\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