From b4f641e256405778029888b10727095ce35055e0 Mon Sep 17 00:00:00 2001 From: "Kevin M. Rosenberg" Date: Sat, 6 Apr 2002 19:57:55 +0000 Subject: [PATCH] r1745: *** empty log message *** --- ChangeLog | 33 +++++----------------- Makefile | 13 ++++++--- VERSION | 2 +- doc/intro.sgml | 15 +++++----- interfaces/postgresql/postgresql-loader.cl | 25 ++++------------ sql/usql.cl | 5 +--- 6 files changed, 31 insertions(+), 62 deletions(-) diff --git a/ChangeLog b/ChangeLog index 101319e..55171fb 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,87 +1,68 @@ +31 Mar 2002 Kevin Rosenberg (kevin@rosenberg.net) + * src/usql.cl: + Reinstated commented out sections + * interfaces/postgresql/postgresql-loader.cl: + * interfaces/mysql/mysql-loader.cl: + Updated find-forieign-library support. + 31 Mar 2002 Kevin Rosenberg (kevin@rosenberg.net) * Added interface to support USQL high-level rouines 29 Mar 2002 Kevin Rosenberg (kevin@rosenberg.net) * Separated db-interface and conditions from sql/sql.cl - * Improved foreign library loading testing - * interfaces/postgresql/postgresql-api.cl Added PQisBusy function - * interfaces/clsql-uffi/clsql-uffi.cl Fixed sign error for 64-bit processing - * Optimizes :types processing if value is nil - 27 Mar 2002 Kevin Rosenberg (kevin@rosenberg.net) * interfaces/postgresql-socket/postgresql-socket-api.cl: Fixes to read-double-from-socket. Added 64-bit integer support. - * test-suite/xptest-clsql.cl Added testint for 64-bit integers - * Additons to installation docs 26 Mar 2002 Kevin Rosenberg (kevin@rosenberg.net) * interfaces/postgresql-socket/postgresql-socket-api.cl: Implemented direct socket reading for field type :double - * Added usage information for :types to documentation - * interfaces/mysql/mysql-sql.cl: Fixed type specifiers in atoi, atol, atof calls - * interfaces/clsql-uffi: Created new directory. Split common interface routines that use UFFI into this package. Required especially to support direct reading of 64-bit integers into bignums and bypassing temporary strings. - * test-clsql.cl: Updated to test postgresql-socket's read-double-from-socket function. - * test-suite/xptest-clsql.cl Started work on test suite 25 Mar 2002 Kevin Rosenberg (kevin@rosenberg.net) - * interfaces/mysql/mysql-api.cl: Added mysql-fetch-fields, mysql-fetch-field-direct Got :auto types working - * interfaces/postgresql/postgresql-api.cl * interfaces/postgresql-socket/postgresql-socket-api.cl Added pgsql-field-types enum. Got :auto types working. - * multiple-files Renamed :field-types to :types. 24 Mar 2002 Kevin Rosenberg (kevin@rosenberg.net) - * Added field-types parameter to query, database-query, database-query-result-set, map-query. Haven't added code to utilize field types, yet. - * Changed postgresql-socket result set from cons to a structure - * Updated test-clsql.cl to use automated testing with a config file - * Changed return types of field accessors from cstring to (* :unsigned-char). This prepares for being able to use specified type conversions when taking field data into lisp. - * Added field-type processing for most interfaces. Not done yet. 23 Mar 2002 Kevin Rosenberg (kevin@rosenberg.net) - * doc/ref.sgml: Updated MAP-QUERY example to use *read-default-float-format* (John Foderaro) - * Extensive work to foreign library loaders and .system files to check for successful loading of foreign libraries. - * Modified test-clsql.cl to allow more modularity and automated testing in future release. - - - diff --git a/Makefile b/Makefile index 8ed3bda..3c1d5a9 100644 --- a/Makefile +++ b/Makefile @@ -5,7 +5,7 @@ # Programer: Kevin M. Rosenberg # Date Started: Mar 2002 # -# CVS Id: $Id: Makefile,v 1.5 2002/03/27 12:09:39 kevin Exp $ +# CVS Id: $Id: Makefile,v 1.6 2002/04/06 19:54:14 kevin Exp $ # # This file, part of CLSQL, is Copyright (c) 2002 by Kevin M. Rosenberg # @@ -24,6 +24,7 @@ libs: clean: @rm -f $(PACKAGE)-*.tar.gz $(PACKAGE)-*.zip @find . -type d -name .bin |xargs rm -rf + @find . -type f -name \*.a -or -name \*.so |xargs rm -rf realclean: clean @find . -type f -name \*~ -exec rm {} \; @@ -48,10 +49,14 @@ dist: realclean docs @cp -a $(SOURCE_FILES) $(DISTDIR) @find $(DISTDIR) -type d -name CVS | xargs rm -r @find $(DISTDIR) -type f -name .cvsignore -exec rm {} \; - @find $(DISTDIR)/doc -type f -name \*.tex -or -name \*.aux -or \ + @find $(DISTDIR) -type f -and -name \*.tex -or -name \*.aux -or \ -name \*.log -or -name \*.out -or -name \*.dvi -or \ - -name \*~ -or -name \*.ps -exec rm {} \; + -name \*~ -or -name \*.ps -or -name test.config | xargs rm -f @tar czf $(DIST_TARBALL) $(DISTDIR) - @find $(DISTDIR) -type f |grep -v .dll$ |grep -v .lib$ |xargs unix2dos -q + @find $(DISTDIR) -type f -name \*.cl -or -name \*.list -or \ + -name \*.system -or -name Makefile -or -name ChangeLog -or \ + -name COPYRIGHT -or -name TODO -or -name README -or -name INSTALL \ + -or -name NEWS -or -name \*.sgml -or -name COPYING\* -or -name catalog \ + | xargs unix2dos -q @zip -rq $(DIST_ZIP) $(DISTDIR) @rm -r $(DISTDIR) diff --git a/VERSION b/VERSION index e544e7a..ca73ed8 100644 --- a/VERSION +++ b/VERSION @@ -1,4 +1,4 @@ -0.6.2 +0.6.3 diff --git a/doc/intro.sgml b/doc/intro.sgml index c215b4a..c7b2d18 100644 --- a/doc/intro.sgml +++ b/doc/intro.sgml @@ -86,13 +86,12 @@ test suite. Supported Common Lisp Implementation The implementations that support &clsql; is governed by the supported -implementations of &uffi;. At the time of the initial release of &clsql;, -the following implementations are supported: +implementations of &uffi;. The following implementations are supported: - &acl; v6.1 on Redhat Linux 7.2 and Microsoft Windows. - &lw; v4.2 on Redhat Linux 7.2 and Microsoft Windows. - &cmucl; 18d on Redhat Linux 7.2. + &acl; v6.1 on Redhat Linux 7.2, FreeBSD 4.5, and Microsoft Windows XP. + &lw; v4.2 on Redhat Linux 7.2 and Microsoft Windows XP. + &cmucl; 18d-pre on Redhat Linux 7.2, FreeBSD 4.5, and Solaris 2.8. @@ -102,9 +101,9 @@ the following implementations are supported: Currently, &clsql; supports the following databases: - &mysql; v3.23.49 on Redhat Linux 7.2 and Microsoft Windows. - &postgresql; v7.1 on Redhat Linux 7.2. Support for both direct API connections and TCP socket connections. - Allegro's ODBC interface (&aodbc;) on Redhat Linux 7.2 and Microsoft Windows. + &mysql; v3.23.49. + &postgresql; v7.2 with both direct API and TCP socket connections. + Allegro's ODBC interface (&aodbc;) using iODBC ODBC manager. diff --git a/interfaces/postgresql/postgresql-loader.cl b/interfaces/postgresql/postgresql-loader.cl index e57470e..981f5b7 100644 --- a/interfaces/postgresql/postgresql-loader.cl +++ b/interfaces/postgresql/postgresql-loader.cl @@ -7,7 +7,7 @@ ;;;; Programmer: Kevin M. Rosenberg ;;;; Date Started: Feb 2002 ;;;; -;;;; $Id: postgresql-loader.cl,v 1.4 2002/04/01 05:27:55 kevin Exp $ +;;;; $Id: postgresql-loader.cl,v 1.5 2002/04/06 19:54:14 kevin Exp $ ;;;; ;;;; This file, part of CLSQL, is Copyright (c) 2002 by Kevin M. Rosenberg ;;;; @@ -19,20 +19,6 @@ (declaim (optimize (debug 3) (speed 3) (safety 1) (compilation-speed 0))) (in-package :postgresql) -(defvar *postgresql-library-filename* - (cond - ((probe-file "/opt/postgresql/lib/libpq.so") - "/opt/postgresql/lib/libpq.so") - ((probe-file "/usr/local/lib/libpq.so") - "/usr/local/lib/libpq.so") - ((probe-file "/usr/lib/libpq.so") - "/usr/lib/libpq.so") - #+(or win32 mswindows) - ((probe-file "c:/postgresql/lib/libpq.dll") - "c:/postgresql/lib/libpq.dll") - (t - (warn "Can't find PostgresQL client library to load."))) - "Location where the PostgresSQL client library is to be found.") (defvar *postgresql-supporting-libraries* '("crypt" "c") "Used only by CMU. List of library flags needed to be passed to ld to @@ -50,10 +36,11 @@ set to the right path before compiling or loading the system.") (eql :postgresql))) (when (uffi:load-foreign-library - (uffi:find-foreign-library - "libpq" - '("/opt/postgresql/lib/" "/usr/local/lib" "usr/lib/" - "/postgresql/lib/")) + (uffi:find-foreign-library "libpq" + '("/opt/postgresql/lib/" "/usr/local/lib/" + "/usr/lib/" "/postgresql/lib/") + :drive-letters '("C" "D" "E")) + :module "postgresql" :supporting-libraries *postgresql-supporting-libraries*) diff --git a/sql/usql.cl b/sql/usql.cl index 9d96874..a22b108 100644 --- a/sql/usql.cl +++ b/sql/usql.cl @@ -8,7 +8,7 @@ ;;;; Programmers: Kevin M. Rosenberg and onShore Development Inc ;;;; Date Started: Mar 2002 ;;;; -;;;; $Id: usql.cl,v 1.2 2002/04/03 17:58:23 kevin Exp $ +;;;; $Id: usql.cl,v 1.3 2002/04/06 19:54:15 kevin Exp $ ;;;; ;;;; This file, part of CLSQL, is Copyright (c) 2002 by Kevin M. Rosenberg ;;;; and onShore Development Inc @@ -96,14 +96,12 @@ specifies the database to operation on, defaulting to (defun sequence-next (name &key (database *default-database*)) (database-sequence-next name database)) -#+ignore (defclass sql-typecast-exp (sql-value-exp) () (:documentation "An SQL typecast expression.") ) -#+ignore (defclass sql-value-exp (%sql-expression) ((modifier :initarg :modifier @@ -128,7 +126,6 @@ specifies the database to operation on, defaulting to (declare (ignore database)) (write-string +null-string+ *sql-stream*)) -#+ignore (defmethod print-object ((self %sql-expression) stream) (print-unreadable-object (self stream :type t) -- 2.34.1