+12 Apr 2004 Kevin Rosenberg (kevin@rosenberg.net)
+ * Version 2.6.5
+ * sql/sql.lisp: Fix TRUNCATE command, bug reported
+ by Marcus Pearce
+ * sql/sql.lisp: Remove EXPLAIN function. Postgresql/Oracle
+ specific and easy for an application to directly support.
+ Idea from Marcus Pearce.
+ * base/basic-sql.lisp: Remove DESCRIBE-TABLE top-level
+ API as duplicates LIST-ATTRIBUTE-TYPES [Marcus Pearce].
+ Keep low-level interface for future optimization
+ supporting LIST-ATTRIBUTE-TYPES command.
+ * Makefile: Add to db-sqlite and test directories.
+ Include them in top-level Makefile
+
12 Apr 2004 Kevin Rosenberg (kevin@rosenberg.net)
* Version 2.6.5
* sql/relations.lisp: Add missing file
PKG := clsql
DEBPKG := cl-sql
-SUBDIRS := sql uffi base db-mysql db-aodbc \
- db-postgresql db-postgresql-socket
+SUBDIRS := sql tests uffi base db-mysql db-aodbc \
+ db-postgresql db-postgresql-socket db-sqlite
DOCSUBDIRS:=doc
include Makefile.common
(record-sql-action res :result database))
(values))
-
-(defmethod describe-table ((table string) &key (database *default-database*))
- (database-describe-table database table))
-
(defmacro do-query (((&rest args) query-expression
&key (database '*default-database*) (result-types nil))
&body body)
closed. When non-nil (this is the default value) the connection is
closed without error checking. When FORCE is nil, an error is signaled
if the database connection has been lost."
- ;; TODO: just a placeholder
+ ;; TODO: Support all backends. Perhaps integrate with pools
+ ;; Handle error and force keywords
(declare (ignore database error force)))
-
(defun status (&optional full)
"The function STATUS prints status information to the standard
--- /dev/null
+# FILE IDENTIFICATION
+#
+# Name: Makefile
+# Purpose: Makefile for CLSQL SQL interface
+# Programer: Kevin M. Rosenberg
+# Date Started: Mar 2002
+#
+# CVS Id: $Id: Makefile 8153 2003-11-11 15:28:36Z kevin $
+#
+# This file, part of CLSQL, is Copyright (c) 2002 by Kevin M. Rosenberg
+#
+# 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.
+
+SUBDIRS=
+
+include ../Makefile.common
+
+.PHONY: distclean
+distclean: clean
+
(execute-command (sql-output expr database) :database database)
(values))
-(defmethod explain ((expr %sql-expression) &key (database *default-database*))
- (let ((expression (sql-output expr database)))
- (format *standard-output* "explain: ~S~%" expression)
- (execute-command (concatenate 'string "explain " expression))))
-
(defmethod query ((expr %sql-expression) &key (database *default-database*)
(result-types nil) (flatp nil))
(unless (is-database-open database)
(database-reconnect database))
(dolist (table (list-tables database))
- (drop-table table database))
+ (drop-table table :database database))
(dolist (index (list-indexes database))
- (drop-index index database))
+ (drop-index index :database database))
(dolist (seq (list-sequences database))
- (drop-sequence seq database)))
+ (drop-sequence seq :database database)))
(defun print-query (query-exp &key titles (formats t) (sizes t) (stream t)
(database *default-database*))
--- /dev/null
+# FILE IDENTIFICATION
+#
+# Name: Makefile
+# Purpose: Makefile for CLSQL SQL interface
+# Programer: Kevin M. Rosenberg
+# Date Started: Mar 2002
+#
+# CVS Id: $Id: Makefile 8153 2003-11-11 15:28:36Z kevin $
+#
+# This file, part of CLSQL, is Copyright (c) 2002 by Kevin M. Rosenberg
+#
+# 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.
+
+SUBDIRS=
+
+include ../Makefile.common
+
+.PHONY: distclean
+distclean: clean
+