projects
/
clsql.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
r10042: add umask to upload scripts
[clsql.git]
/
sql
/
package.lisp
diff --git
a/sql/package.lisp
b/sql/package.lisp
index 34a01bfaaad0784b6698ce3731b396ad9a9d4d1e..8351ef3e147a2dd25c5d6da1aad02bbd983ab853 100644
(file)
--- a/
sql/package.lisp
+++ b/
sql/package.lisp
@@
-20,7
+20,7
@@
;;;; core packages.
(eval-when (:compile-toplevel :load-toplevel :execute)
;;;; core packages.
(eval-when (:compile-toplevel :load-toplevel :execute)
-
#+sbcl
+ #+sbcl
(if (find-package 'sb-mop)
(pushnew :clsql-sbcl-mop cl:*features*)
(pushnew :clsql-sbcl-pcl cl:*features*))
(if (find-package 'sb-mop)
(pushnew :clsql-sbcl-mop cl:*features*)
(pushnew :clsql-sbcl-pcl cl:*features*))
@@
-38,6
+38,7
@@
#+clsql-sbcl-mop #:sb-mop
#+clsql-cmucl-mop #:mop
#+allegro #:mop
#+clsql-sbcl-mop #:sb-mop
#+clsql-cmucl-mop #:mop
#+allegro #:mop
+ #+clisp #:clos
#+lispworks #:clos
#+scl #:clos
#+openmcl #:openmcl-mop)
#+lispworks #:clos
#+scl #:clos
#+openmcl #:openmcl-mop)
@@
-45,6
+46,9
@@
#+allegro
(:shadowing-import-from
#:excl)
#+allegro
(:shadowing-import-from
#:excl)
+ #+clisp
+ (:shadowing-import-from
+ #:clos)
#+lispworks
(:shadowing-import-from
#:clos)
#+lispworks
(:shadowing-import-from
#:clos)
@@
-104,7
+108,6
@@
#:check-connection-spec
#:database-initialize-database-type
#:database-type-load-foreign
#:check-connection-spec
#:database-initialize-database-type
#:database-type-load-foreign
- #:database-name-from-spec
#:database-connect
#:database-disconnect
#:database-query
#:database-connect
#:database-disconnect
#:database-query
@@
-129,7
+132,6
@@
#:database-sequence-exists-p
#:database-list-attributes
#:database-attribute-type
#:database-sequence-exists-p
#:database-list-attributes
#:database-attribute-type
- #:database-describe-table
#:database-type-library-loaded
#:database-create
#:database-destroy
#:database-type-library-loaded
#:database-create
#:database-destroy
@@
-140,6
+142,7
@@
#:db-type-has-views?
#:db-type-has-bigint?
#:db-type-has-union?
#:db-type-has-views?
#:db-type-has-bigint?
#:db-type-has-union?
+ #:db-type-has-prepared-stmt?
#:db-type-has-subqueries?
#:db-type-has-boolean-where?
#:db-type-transaction-capable?
#:db-type-has-subqueries?
#:db-type-has-boolean-where?
#:db-type-transaction-capable?
@@
-164,6
+167,12
@@
#:read-large-object
#:delete-large-object
#:read-large-object
#:delete-large-object
+ ;; Prepared statments
+ #:database-prepare
+ #:database-run-prepared
+ #:database-bind-parameter
+ #:database-free-prepared
+
;; accessors for database class
#:name
#:connection-spec
;; accessors for database class
#:name
#:connection-spec
@@
-174,10
+183,10
@@
#:result-recording-stream
#:record-caches
#:view-classes
#:result-recording-stream
#:record-caches
#:view-classes
- #:database-type
#:database-state
#:attribute-cache
#:database-state
#:attribute-cache
-
+ #:database-autocommit
+
;; utils.lisp
#:without-interrupts
#:make-process-lock
;; utils.lisp
#:without-interrupts
#:make-process-lock
@@
-196,7
+205,21
@@
;; Generic backends
#:generic-postgresql-database
#:generic-odbc-database
;; Generic backends
#:generic-postgresql-database
#:generic-odbc-database
-
+
+ ;; Subclasses of sql-expresssion (expressions.lisp)
+ #:sql-function-exp
+ #:sql-value-exp
+ #:sql-set-exp
+ #:sql-query-modifier-exp
+ #:sql-relational-exp
+ #:sql-upcase-like
+ #:sql-assignment-exp
+ #:sql-typecast-exp
+ #:sql-between-exp
+ #:sql-ident
+ #:sql-ident-attribute
+ #:sql-ident-table
+
.
;; Shared exports for re-export by CLSQL package.
.
;; Shared exports for re-export by CLSQL package.
@@
-218,6
+241,12
@@
#:sql-error
#:sql-warning
#:sql-database-warning
#:sql-error
#:sql-warning
#:sql-database-warning
+ #:sql-error-database
+ #:sql-error-database-type
+ #:sql-error-connection-spec
+ #:sql-error-expression
+ #:sql-warning-database
+ #:sql-user-error-message
#:*backend-warning-behavior*
;; Connection/initialisation (base-classes.lisp, database.lisp,
#:*backend-warning-behavior*
;; Connection/initialisation (base-classes.lisp, database.lisp,
@@
-236,6
+265,8
@@
#:find-database
#:status
;; CLSQL Extensions
#:find-database
#:status
;; CLSQL Extensions
+ #:database-name-from-spec
+ #:database-type
#:with-database
#:with-default-database
#:disconnect-pooled
#:with-database
#:with-default-database
#:disconnect-pooled
@@
-243,7
+274,6
@@
#:create-database
#:destroy-database
#:probe-database
#:create-database
#:destroy-database
#:probe-database
- #:truncate-database
;; I/O Recording (recording.lisp)
#:add-sql-stream
;; I/O Recording (recording.lisp)
#:add-sql-stream
@@
-253,9
+283,6
@@
#:sql-stream
#:start-sql-recording
#:stop-sql-recording
#:sql-stream
#:start-sql-recording
#:stop-sql-recording
- ;; CLSQL Extensions
- #:record-sql-command
- #:record-sql-result
;; FDDL (fddl.lisp)
#:create-table
;; FDDL (fddl.lisp)
#:create-table
@@
-265,17
+292,15
@@
#:list-attributes
#:attribute-type
#:list-attribute-types
#:list-attributes
#:attribute-type
#:list-attribute-types
- #:*cache-table-queries-default*
#:create-view
#:drop-view
#:create-index
#:drop-index
;; CLSQL Extensions
#:create-view
#:drop-view
#:create-index
#:drop-index
;; CLSQL Extensions
- #:
describe-tabl
e
+ #:
truncate-databas
e
#:list-views
#:view-exists-p
#:list-indexes
#:list-views
#:view-exists-p
#:list-indexes
- #:list-table-indexes
#:index-exists-p
#:create-sequence
#:drop-sequence
#:index-exists-p
#:create-sequence
#:drop-sequence
@@
-299,26
+324,23
@@
#:map-query
#:loop
;; CLSQL Extensions
#:map-query
#:loop
;; CLSQL Extensions
- #:for-each-row
+ #:prepare-sql
+ #:bind-parameter
+ #:run-prepared-sql
+ #:free-prepared-sql
;; Transaction handling (transaction.lisp)
#:with-transaction
#:commit
#:rollback
;; CLSQL Extensions
;; Transaction handling (transaction.lisp)
#:with-transaction
#:commit
#:rollback
;; CLSQL Extensions
- #:commit-transaction
- #:rollback-transaction
#:add-transaction-commit-hook
#:add-transaction-rollback-hook
#:start-transaction
#:in-transaction-p
#:add-transaction-commit-hook
#:add-transaction-rollback-hook
#:start-transaction
#:in-transaction-p
- #:database-start-transaction
- #:database-abort-transaction
- #:database-commit-transaction
- #:transaction-level
- #:transaction
+ #:set-autocommit
- ;;
OODDL (ooddl.lisp)
+ ;; OODDL (ooddl.lisp)
#:standard-db-object
#:def-view-class
#:create-view-from-class
#:standard-db-object
#:def-view-class
#:create-view-from-class
@@
-328,11
+350,17
@@
;; CLSQL Extensions
#:view-table
#:bigint
;; CLSQL Extensions
#:view-table
#:bigint
+ #:varchar
+ #:generalized-boolean
+ #:smallint
+ #:tinyint
+ #:*default-string-length*
;; OODML (oodml.lisp)
#:instance-refreshed
#:update-objects-joins
#:*default-update-objects-max-len*
;; OODML (oodml.lisp)
#:instance-refreshed
#:update-objects-joins
#:*default-update-objects-max-len*
+ #:*default-caching*
#:update-slot-from-record
#:update-instance-from-records
#:update-records-from-instance
#:update-slot-from-record
#:update-instance-from-records
#:update-records-from-instance
@@
-341,7
+369,9
@@
#:delete-instance-records
;; CLSQL Extensions
#:*db-auto-sync*
#:delete-instance-records
;; CLSQL Extensions
#:*db-auto-sync*
-
+ #:write-instance-to-stream
+ #:read-instance-from-stream
+
;; Symbolic SQL Syntax (syntax.lisp)
#:sql
#:sql-expression
;; Symbolic SQL Syntax (syntax.lisp)
#:sql
#:sql-expression
@@
-374,8
+404,8
@@
#:sql-and
#:sql-or
#:sql-in
#:sql-and
#:sql-or
#:sql-in
- #:sql-concat
#:sql-substr
#:sql-substr
+ #:sql-concat-op
#:sql-=
#:sql-<
#:sql->
#:sql-=
#:sql-<
#:sql->
@@
-392,7
+422,10
@@
#:sql-distinct
#:sql-nvl
#:sql-slot-value
#:sql-distinct
#:sql-nvl
#:sql-slot-value
+ #:sql-userenv
;; CLSQL Extensions
;; CLSQL Extensions
+ #:sql-concat
+ #:sql-substring
#:sql-limit
#:sql-group-by
#:sql-having
#:sql-limit
#:sql-group-by
#:sql-having