- pg-cvs@common-lisp.net - mailman3.common-lisp.net

[pg-cvs] CVS pg
by emarsden 18 Sep '06

18 Sep '06

Update of /project/pg/cvsroot/pg In directory clnet:/tmp/cvs-serv16724 Modified Files: README Log Message: Fix to the prepared statement example. --- /project/pg/cvsroot/pg/README 2006/09/15 20:49:03 1.7 +++ /project/pg/cvsroot/pg/README 2006/09/18 19:09:25 1.8 @@ -1,7 +1,7 @@ pg.lisp -- socket level interface to the PostgreSQL RDBMS for Common Lisp Author: Eric Marsden <eric.marsden(a)free.fr> - Time-stamp: <2006-09-15 emarsden> + Time-stamp: <2006-09-18 emarsden> Version: 0.23 Copyright (C) 1999,2000,2001,2002,2003,2004,2005,2006 Eric Marsden @@ -155,7 +155,7 @@ `((:int32 ,int-value) (:string ,string-value))) (pg-execute db-connection "delete-portal")) ;; NB: portal is closed automatically when statement is closed - (pg-close-statement db-connection "select-statement"))) + (pg-close-statement db-connection "delete-statement"))) === Introspection support ==============================================

1 0

[pg-cvs] CVS pg
by emarsden 15 Sep '06

15 Sep '06

Update of /project/pg/cvsroot/pg In directory clnet:/tmp/cvs-serv24811 Modified Files: README pg.lisp v3-protocol.lisp Log Message: Improved documentation and a basic example for the use of execution plans (prepared statements). --- /project/pg/cvsroot/pg/README 2006/08/28 20:08:00 1.6 +++ /project/pg/cvsroot/pg/README 2006/09/15 20:49:03 1.7 @@ -1,7 +1,7 @@ pg.lisp -- socket level interface to the PostgreSQL RDBMS for Common Lisp Author: Eric Marsden <eric.marsden(a)free.fr> - Time-stamp: <2006-08-28 emarsden> + Time-stamp: <2006-09-15 emarsden> Version: 0.23 Copyright (C) 1999,2000,2001,2002,2003,2004,2005,2006 Eric Marsden @@ -102,6 +102,64 @@ (pg-disconnect connection) -> nil Close the database connection. + +=== Support for prepared statements ==================================== + + (pg-supports-pbe conn) -> boolean + Returns T iff the connection to the database is able to support + prepared statements. This is only true of connections using + version 3 of the frontend/backend protocol. + + (pg-prepare conn statement-name sql &optional parameter-types) + Prepares an execution plan for a query (a prepared statement). + The prepared statement may contain arguments that are refered to + as $1, $2 etc; if arguments are present their types must be + declared via the list PARAMETER-TYPES. Each element of + PARAMETER-TYPES should be a string that defines the type of its + corresponding parameter (see PG::*TYPE-PARSERS* for examples of + type names used by PostgreSQL). + + Using execution plans is more efficient than multiple calls to + PG-EXEC, since the parsing and query optimizing phase only occurs + once, at preparation time. It also helps to protect against "SQL + injection" attacks, by ensuring that arguments to an SQL query + cannot be interpreted as a part of the SQL request. + + (pg-bind conn portal-name statement-name typed-arguments) + Binds the execution plan that was previously prepared as + STATEMENT-NAME to PORTAL-NAME, with TYPED-ARGUMENTS. + TYPED-ARGUMENTS is a list of tuples of the form '(type value), + where TYPE is one of :char, :byte, :int16, :int32, :string. + + (pg-execute conn portal-name &optional maximal-return-rows) + Executes the execution plan that was previously bound to + PORTAL-NAME. Optionally returns up to MAXIMAL-RETURN-ROWS rows + (0 means an unlimited number of rows). + + (pg-close-statement conn statement-name) + Releases the command execution plan (prepared statement) + STATEMENT-NAME. This also releases any open portals for that + prepared statement. + + (pg-close-portal conn portal-name) + Releases the portal PORTAL-NAME. + +Example using prepared statements: + + (defun delete-item (db-connection int-value string-value) + (pg-prepare db-connection "delete-statement" + "DELETE FROM items WHERE int_column = $1 AND string_column = $2" + `("int4" "varchar")) + (unwind-protect + (progn (pg-bind db-connection "delete-portal" "delete-statement" + `((:int32 ,int-value) (:string ,string-value))) + (pg-execute db-connection "delete-portal")) + ;; NB: portal is closed automatically when statement is closed + (pg-close-statement db-connection "select-statement"))) + + +=== Introspection support ============================================== + (pg-databases connection) -> list of strings Return a list of the databases available at this site (a database is a set of tables; in a virgin PostgreSQL @@ -119,6 +177,9 @@ detailed information (attribute types, for example), it can be obtained from `pg-result' on a SELECT statement for that table. + +=== Support for large objects (BLOBs) ================================= + (pglo-create conn . args) -> oid Create a new large object (BLOB, or binary large object in other DBMSes parlance) in the database to which we are --- /project/pg/cvsroot/pg/pg.lisp 2006/08/28 20:08:00 1.7 +++ /project/pg/cvsroot/pg/pg.lisp 2006/09/15 20:49:03 1.8 @@ -1,7 +1,7 @@ ;;; pg.lisp -- socket level interface to the PostgreSQL RDBMS for Common Lisp ;; ;; Author: Eric Marsden <eric.marsden(a)free.fr> -;; Time-stamp: <2006-08-28 emarsden> +;; Time-stamp: <2006-09-15 emarsden> ;; Version: 0.22 ;; ;; Copyright (C) 1999,2000,2001,2002,2003,2004,2005 Eric Marsden @@ -200,7 +200,8 @@ (defgeneric pg-close-statement (connection statement-name) (:documentation - "Closes a prepared statement")) + "Closes prepared statement specified by STATEMENT-NAME and closes +all portals associated with that statement (see PG-PREPARE and PG-BIND).")) (defgeneric pg-close-portal (connection portal) (:documentation --- /project/pg/cvsroot/pg/v3-protocol.lisp 2006/09/15 20:04:37 1.20 +++ /project/pg/cvsroot/pg/v3-protocol.lisp 2006/09/15 20:49:03 1.21 @@ -902,8 +902,7 @@ (:int16 0))))) t)) -(defmethod pg-execute ((connection pgcon-v3) (portal string) &optional (maxinum-number-of-rows 0)) - +(defmethod pg-execute ((connection pgcon-v3) (portal string) &optional (maximum-number-of-rows 0)) ;; have it describe the result: (send-packet connection #\D

1 0

[pg-cvs] CVS pg
by emarsden 15 Sep '06

15 Sep '06

Update of /project/pg/cvsroot/pg In directory clnet:/tmp/cvs-serv19838 Modified Files: v3-protocol.lisp Log Message: Fix bug in PG-CLOSE-STATEMENT (thanks to ya007(a)yandex.ru) --- /project/pg/cvsroot/pg/v3-protocol.lisp 2006/08/28 20:08:00 1.19 +++ /project/pg/cvsroot/pg/v3-protocol.lisp 2006/09/15 20:04:37 1.20 @@ -955,7 +955,7 @@ t) (defmethod pg-close-statement ((connection pgcon-v3) (statement-name string)) - (pg-close connection statement-name #\s)) + (pg-close connection statement-name #\S)) (defmethod pg-close-portal ((connection pgcon-v3) (portal string)) (pg-close connection portal #\P))

1 0

[pg-cvs] CVS pg
by emarsden 28 Aug '06

28 Aug '06

Update of /project/pg/cvsroot/pg In directory clnet:/tmp/cvs-serv5987 Modified Files: README pg.lisp v3-protocol.lisp Log Message: Fixes to client-encoding support, based on a bug report from Johan Ur Riise <johan(a)riise-data.no>. Not tested very heavily (but the tests work in UTF-8 mode with unicode-enabled SBCL and CLISP). --- /project/pg/cvsroot/pg/README 2005/12/19 22:29:59 1.5 +++ /project/pg/cvsroot/pg/README 2006/08/28 20:08:00 1.6 @@ -1,10 +1,10 @@ pg.lisp -- socket level interface to the PostgreSQL RDBMS for Common Lisp Author: Eric Marsden <eric.marsden(a)free.fr> - Time-stamp: <2005-12-19 emarsden> - Version: 0.22 + Time-stamp: <2006-08-28 emarsden> + Version: 0.23 - Copyright (C) 1999,2000,2001,2002,2003,2004,2005 Eric Marsden + Copyright (C) 1999,2000,2001,2002,2003,2004,2005,2006 Eric Marsden This library is free software; you can redistribute it and/or modify it under the terms of the GNU Library General Public @@ -36,8 +36,8 @@ The only non portable code is the use of 'socket-connect' and (optional) some way of accessing the Unix crypt() function. - Works with CMUCL, SBCL, CLISP, OpenMCL, ACL, Lispworks, MCL and - ArmedBear Lisp. CormanLisp has socket support but not for binary I/O. + Works with CMUCL, SBCL, CLISP, OpenMCL, ABCL, ACL, Lispworks, and MCL. + CormanLisp has socket support but not for binary I/O. == Entry points ======================================================= @@ -247,7 +247,7 @@ At various times, this code has been tested or reported to work with * CMUCL 18d, 18e, 19a, 19c on Solaris/SPARC and Linux/x86 - * SBCL 0.9.2 to 0.9.7 on Linux/x86 + * SBCL 0.9.2 to 0.9.16 on Linux/x86 * CLISP 2.30 on LinuxPPC and SPARC * OpenMCL 0.13.x and 0.14.x on LinuxPPC * Armed Bear Common Lisp --- /project/pg/cvsroot/pg/pg.lisp 2006/01/25 19:25:46 1.6 +++ /project/pg/cvsroot/pg/pg.lisp 2006/08/28 20:08:00 1.7 @@ -1,7 +1,7 @@ ;;; pg.lisp -- socket level interface to the PostgreSQL RDBMS for Common Lisp ;; ;; Author: Eric Marsden <eric.marsden(a)free.fr> -;; Time-stamp: <2005-07-17 emarsden> +;; Time-stamp: <2006-08-28 emarsden> ;; Version: 0.22 ;; ;; Copyright (C) 1999,2000,2001,2002,2003,2004,2005 Eric Marsden @@ -121,7 +121,7 @@ (defconstant +MAX_MESSAGE_LEN+ 8192) ; libpq-fe.h (defvar *pg-client-encoding* "LATIN1" - "The encoding to use for text data, for example \"LATIN1\", \"UNICODE\", \"EUC_JP\". + "The encoding to use for text data, for example \"LATIN1\", \"UTF8\", \"EUC_JP\". See <http://www.postgresql.org/docs/7.3/static/multibyte.html>.") (defvar *pg-date-style* "ISO") --- /project/pg/cvsroot/pg/v3-protocol.lisp 2005/10/18 13:07:27 1.18 +++ /project/pg/cvsroot/pg/v3-protocol.lisp 2006/08/28 20:08:00 1.19 @@ -236,7 +236,7 @@ (let* ((end (position 0 data :start position)) (result (unless (eql end position) (make-array (- end position) - :element-type 'base-char)))) + :element-type 'character)))) (when result (loop :for i :from position :below end :for j :from 0 @@ -274,10 +274,13 @@ (when (< length 0) (error "length cannot be negative. is: ~S" length)) - (let* ((octects (read-octets-from-packet packet - length)) - (string (convert-string-from-bytes octects))) - string))) + (let* ((octets (read-octets-from-packet packet length)) + (encoding (if (or (eql #\R (pg-packet-type packet)) + (eql #\E (pg-packet-type packet))) + "LATIN1" + *pg-client-encoding*)) + (string (convert-string-from-bytes octets encoding))) + string))) (defmethod read-octets-from-packet ((packet pg-packet) (length integer)) (let ((result (make-array length :element-type '(unsigned-byte 8))))

1 0

[pg-cvs] CVS pg/debian
by pvaneynde 07 Feb '06

07 Feb '06

Update of /project/pg/cvsroot/pg/debian In directory common-lisp:/tmp/cvs-serv12824/debian Modified Files: changelog control copyright rules Added Files: compat install Removed Files: postinst prerm Log Message: sync with recent debian packages, no real changes --- /project/pg/cvsroot/pg/debian/changelog 2005/10/18 13:07:28 1.7 +++ /project/pg/cvsroot/pg/debian/changelog 2006/02/07 13:39:40 1.8 @@ -1,10 +1,18 @@ -cl-pg (20050717-2) UNRELEASED; urgency=low +cl-pg (20061225-2) UNRELEASED; urgency=low * token new version + + -- Peter Van Eynde <pvaneynd(a)debian.org> Thu, 26 Jan 2006 16:48:40 +0100 + +cl-pg (20061225-1) unstable; urgency=low + + * New upstream * Better sbcl unicode support * Improved asdf compatibility + * Documentation for pg-close-portal fixed in upstream + (Closes: #349778) - -- Peter Van Eynde <pvaneynd(a)debian.org> Tue, 18 Oct 2005 14:52:23 +0200 + -- Peter Van Eynde <pvaneynd(a)debian.org> Wed, 25 Jan 2006 20:32:49 +0100 cl-pg (20050717-1) unstable; urgency=low --- /project/pg/cvsroot/pg/debian/control 2005/08/01 09:15:12 1.2 +++ /project/pg/cvsroot/pg/debian/control 2006/02/07 13:39:40 1.3 @@ -2,7 +2,7 @@ Section: devel Priority: optional Maintainer: Peter Van Eynde <pvaneynd(a)debian.org> -Build-Depends-Indep: debhelper (>> 3.0.0) +Build-Depends-Indep: debhelper (>> 4.0.0) Standards-Version: 3.6.2.1 Package: cl-pg --- /project/pg/cvsroot/pg/debian/copyright 2004/03/09 16:25:27 1.1 +++ /project/pg/cvsroot/pg/debian/copyright 2006/02/07 13:39:40 1.2 @@ -19,7 +19,8 @@ You should have received a copy of the GNU Lesser General Public License along with this package; if not, write to the Free Software - Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA + Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, + MA 02110-1301 USA On Debian GNU/Linux systems, the complete text of the GNU Lesser General Public License can be found in `/usr/share/common-licenses/LGPL'. --- /project/pg/cvsroot/pg/debian/rules 2005/08/01 09:15:12 1.3 +++ /project/pg/cvsroot/pg/debian/rules 2006/02/07 13:39:40 1.4 @@ -5,11 +5,6 @@ # Uncomment this to turn on verbose mode. #export DH_VERBOSE=1 -# This is the debhelper compatibility version to use. -export DH_COMPAT=3 - - - ifneq (,$(findstring debug,$(DEB_BUILD_OPTIONS))) CFLAGS += -g endif @@ -20,8 +15,6 @@ configure: configure-stamp configure-stamp: dh_testdir - # Add here commands to configure the package. - touch configure-stamp @@ -29,21 +22,12 @@ build-stamp: configure-stamp dh_testdir - - # Add here commands to compile the package. - #$(MAKE) - #/usr/bin/docbook-to-man debian/pg.sgml > pg.1 - touch build-stamp clean: dh_testdir dh_testroot rm -f build-stamp configure-stamp - - # Add here commands to clean up after the build process. - #-$(MAKE) clean - dh_clean install: build @@ -52,44 +36,24 @@ dh_clean -k dh_installdirs - # Add here commands to install the package into debian/pg. - install -g root -o root -m 0644 defpackage.lisp large-object.lisp \ - lowlevel.lisp md5.lisp meta-queries.lisp parsers.lisp pg-tests.lisp \ - pg.lisp sysdep.lisp utility.lisp v2-protocol.lisp v3-protocol.lisp \ - $(CURDIR)/debian/cl-pg/usr/share/common-lisp/source/pg - install -g root -o root -m 0644 pg.asd \ - $(CURDIR)/debian/cl-pg/usr/share/common-lisp/source/pg - # Build architecture-independent files here. -binary-indep: build install +binary-arch: build install # We have nothing to do by default. # Build architecture-dependent files here. -binary-arch: build install +binary-indep: build install dh_testdir dh_testroot -# dh_installdebconf dh_installdocs - dh_installexamples - dh_installmenu -# dh_installlogrotate -# dh_installemacsen -# dh_installpam -# dh_installmime -# dh_installinit - dh_installcron - dh_installman - dh_installinfo -# dh_undocumented + dh_install dh_installchangelogs NEWS ChangeLog dh_link dh_strip + dh_lisp dh_compress dh_fixperms -# dh_makeshlibs dh_installdeb -# dh_perl dh_shlibdeps dh_gencontrol dh_md5sums --- /project/pg/cvsroot/pg/debian/compat 2006/02/07 13:39:41 NONE +++ /project/pg/cvsroot/pg/debian/compat 2006/02/07 13:39:41 1.1 4 --- /project/pg/cvsroot/pg/debian/install 2006/02/07 13:39:41 NONE +++ /project/pg/cvsroot/pg/debian/install 2006/02/07 13:39:41 1.1 *.lisp pg.asd usr/share/common-lisp/source/pg/

1 0

[pg-cvs] CVS pg
by emarsden 27 Jan '06

27 Jan '06

Update of /project/pg/cvsroot/pg In directory common-lisp:/tmp/cvs-serv16285 Modified Files: sysdep.lisp Log Message: Fix for encoding support for CLISP and OpenMCL (encoding still not working correctly). OpenMCL fix from Risto Laakso. --- /project/pg/cvsroot/pg/sysdep.lisp 2005/12/19 22:21:50 1.12 +++ /project/pg/cvsroot/pg/sysdep.lisp 2006/01/27 18:03:39 1.13 @@ -1,7 +1,7 @@ ;;; sysdep.lisp -- system-dependent parts of pg-dot-lisp ;;; ;;; Author: Eric Marsden <eric.marsden(a)free.fr> -;;; Time-stamp: <2005-12-09 emarsden> +;;; Time-stamp: <2006-01-27 emarsden> ;; ;; @@ -327,27 +327,25 @@ (defun implementation-name-for-encoding (encoding) (%sysdep "client encoding to external format name" #+(and clisp unicode) - (cond ((string= encoding "SQL_ASCII") :ascii) - ((string= encoding "LATIN1") :latin1) - ((string= encoding "LATIN9") :latin9) - ((string= encoding "UNICODE") :utf8) + (cond ((string= encoding "SQL_ASCII") charset:ascii) + ((string= encoding "LATIN1") charset:iso-8859-1) + ((string= encoding "LATIN9") charset:iso-8859-9) + ((string= encoding "UTF8") charset:utf-8) (t (error "unknown encoding ~A" encoding))) #+(and allegro ics) (cond ((string= encoding "SQL_ASCII") :ascii) ((string= encoding "LATIN1") :latin1) ((string= encoding "LATIN9") :latin9) - ((string= encoding "UNICODE") :utf8) + ((string= encoding "UTF8") :utf8) (t (error "unknown encoding ~A" encoding))) #+(and sbcl sb-unicode) (cond ((string= encoding "SQL_ASCII") :ascii) ((string= encoding "LATIN1") :latin1) ((string= encoding "LATIN9") :latin9) - ((string= encoding "UNICODE") :utf8) + ((string= encoding "UTF8") :utf8) (t (error "unknown encoding ~A" encoding))) - #+(or cmu gcl ecl abcl) - (cond ((string= encoding "SQL_ASCII") :ascii) - ((string= encoding "LATIN1") :latin1) - ((string= encoding "LATIN9") :latin9)))) + #+(or cmu gcl ecl abcl openmcl) + nil)) (defun convert-string-to-bytes (string &optional (encoding *pg-client-encoding*)) (declare (type string string)) @@ -360,7 +358,7 @@ #+(and :sbcl :sb-unicode) (sb-ext:string-to-octets string :external-format (implementation-name-for-encoding encoding)) - #+(or cmu gcl ecl abcl) + #+(or cmu gcl ecl abcl openmcl) (if (member encoding '("SQL_ASCII" "LATIN1" "LATIN9") :test #'string-equal) (let ((octets (make-array (length string) :element-type '(unsigned-byte 8)))) (map-into octets #'char-code string)) @@ -378,7 +376,7 @@ ;; for implementations that have no support for character ;; encoding, we assume that the encoding is an octet-for-octet ;; encoding, and convert directly - #+(or cmu (and sbcl (not :sb-unicode)) gcl ecl abcl) + #+(or cmu (and sbcl (not :sb-unicode)) gcl ecl abcl openmcl) (let ((string (make-string (length bytes)))) (map-into string #'code-char bytes))))

1 0

[pg-cvs] CVS pg
by emarsden 27 Jan '06

27 Jan '06

Update of /project/pg/cvsroot/pg In directory common-lisp:/tmp/cvs-serv14288 Modified Files: md5.lisp pg.asd Log Message: Load sb-rotate-byte from the ASD file. --- /project/pg/cvsroot/pg/md5.lisp 2005/07/17 15:44:48 1.2 +++ /project/pg/cvsroot/pg/md5.lisp 2006/01/27 17:51:53 1.3 @@ -9,7 +9,7 @@ ;;;; SB-MD5 contrib, with minor changes to compile in other Common ;;;; Lisp implementations. ;;;; -;;;; $Id: md5.lisp,v 1.2 2005/07/17 15:44:48 emarsden Exp $ +;;;; $Id: md5.lisp,v 1.3 2006/01/27 17:51:53 emarsden Exp $ ;;;; ;;;; While the implementation should work on all conforming Common ;;;; Lisp implementations, it has only been optimized for CMU CL, @@ -48,10 +48,6 @@ (in-package :PG-MD5) -#+sbcl -(eval-when (:load-toplevel :compile-toplevel) - (require :sb-rotate-byte)) - #+cmu (eval-when (:compile-toplevel) (defparameter *old-expansion-limit* ext:*inline-expansion-limit*) --- /project/pg/cvsroot/pg/pg.asd 2005/10/18 13:07:27 1.8 +++ /project/pg/cvsroot/pg/pg.asd 2006/01/27 17:51:53 1.9 @@ -21,6 +21,7 @@ #+lispworks "comm" #+cormanlisp :sockets #+sbcl :sb-bsd-sockets + #+sbcl :sb-rotate-byte #+(and mcl (not openmcl)) "OPENTRANSPORT") :components ((:file "md5") (:file "defpackage" :depends-on ("md5"))

1 0

[pg-cvs] CVS pg
by pvaneynde 25 Jan '06

25 Jan '06

Update of /project/pg/cvsroot/pg In directory common-lisp:/tmp/cvs-serv24995 Modified Files: pg.lisp Log Message: fix typo in pg-close-portal documentation --- /project/pg/cvsroot/pg/pg.lisp 2005/07/17 15:48:06 1.5 +++ /project/pg/cvsroot/pg/pg.lisp 2006/01/25 19:25:46 1.6 @@ -204,7 +204,7 @@ (defgeneric pg-close-portal (connection portal) (:documentation - "Closes a prepared statement")) + "Closes a prepared statement portal")) (defgeneric pglo-read (connection fd bytes) (:documentation

1 0

[pg-cvs] CVS update: pg/parsers.lisp pg/CREDITS pg/README
by emarsden＠common-lisp.net 19 Dec '05

19 Dec '05

Update of /project/pg/cvsroot/pg In directory common-lisp.net:/tmp/cvs-serv4581 Modified Files: parsers.lisp CREDITS README Log Message: Fix to timezone handling when parsing timestamps (timezone offset can be negative). >From Katsuya Tomioka. Date: Mon Dec 19 23:30:00 2005 Author: emarsden Index: pg/parsers.lisp diff -u pg/parsers.lisp:1.7 pg/parsers.lisp:1.8 --- pg/parsers.lisp:1.7 Sun Jul 17 15:46:50 2005 +++ pg/parsers.lisp Mon Dec 19 23:29:59 2005 @@ -1,6 +1,6 @@ ;;; parsers.lisp -- type coercion support ;;; -;;; Author: Eric Marsden <emarsden(a)laas.fr> +;;; Author: Eric Marsden <eric.marsden(a)free.fr> ;; ;; ;; When returning data from a SELECT statement, PostgreSQL starts by @@ -65,6 +65,7 @@ (defvar *type-parsers* `(("bool" . ,'bool-parser) + ("bytea" . ,'identity) ("char" . ,'text-parser) ("char2" . ,'text-parser) ("char4" . ,'text-parser) @@ -76,7 +77,11 @@ ("int2" . ,'integer-parser) ("int4" . ,'integer-parser) ("int8" . ,'integer-parser) + ;; int2vector ("oid" . ,'integer-parser) + ;; oidvector + ;; bit + ;; varbit ("float4" . ,'float-parser) ("float8" . ,'float-parser) ("money" . ,'text-parser) ; "$12.34" @@ -153,7 +158,7 @@ (minutes (parse-integer str :start 14 :end 16)) (seconds (parse-integer str :start 17 :end 19)) (length (length str)) - (start-tz (if (eql #\+ (char str (- length 3))) + (start-tz (if (find (char str (- length 3)) "+-") (- length 3))) (tz (when start-tz (parse-integer str :start start-tz))) Index: pg/CREDITS diff -u pg/CREDITS:1.4 pg/CREDITS:1.5 --- pg/CREDITS:1.4 Tue Sep 7 14:52:19 2004 +++ pg/CREDITS Mon Dec 19 23:29:59 2005 @@ -30,3 +30,12 @@ Risto Sakari Laakso: Provided a parser for the NUMERIC type + +Andreas Fuchs + Patch to allow connection via a unix socket with SBCL + +Katsuya Tomioka + Patch to timezone handling in timestamp parsing + + +(apologies for people who have been forgotten in this file) Index: pg/README diff -u pg/README:1.4 pg/README:1.5 --- pg/README:1.4 Sun Jul 17 17:49:14 2005 +++ pg/README Mon Dec 19 23:29:59 2005 @@ -1,10 +1,10 @@ pg.lisp -- socket level interface to the PostgreSQL RDBMS for Common Lisp Author: Eric Marsden <eric.marsden(a)free.fr> - Time-stamp: <2005-07-17 emarsden> + Time-stamp: <2005-12-19 emarsden> Version: 0.22 - Copyright (C) 1999,2000,2001,2002,2003,2004 Eric Marsden + Copyright (C) 1999,2000,2001,2002,2003,2004,2005 Eric Marsden This library is free software; you can redistribute it and/or modify it under the terms of the GNU Library General Public @@ -244,16 +244,16 @@ end of the tunnel, since pg.lisp defaults to this value. -This code has been tested or reported to work with +At various times, this code has been tested or reported to work with - * CMUCL 18d, 18e, 19a on Solaris/SPARC and Linux/x86 - * SBCL 0.9.2 on Linux/x86 + * CMUCL 18d, 18e, 19a, 19c on Solaris/SPARC and Linux/x86 + * SBCL 0.9.2 to 0.9.7 on Linux/x86 * CLISP 2.30 on LinuxPPC and SPARC * OpenMCL 0.13.x and 0.14.x on LinuxPPC * Armed Bear Common Lisp * ACL 6.1 trial/x86 * Lispworks 4.3 on Linux and Windows - * PostgreSQL versions 6.5, 7.0, 7.1.2, 7.2, 7.3, 7.4, 8.0 + * PostgreSQL versions 6.5, 7.0, 7.1.2, 7.2, 7.3, 7.4, 8.0, 8.1 You may be interested in using "pg-psql" by Harley Gorrell, which

1 0

[pg-cvs] CVS update: pg/sysdep.lisp
by emarsden＠common-lisp.net 19 Dec '05

19 Dec '05

Update of /project/pg/cvsroot/pg In directory common-lisp.net:/tmp/cvs-serv4507 Modified Files: sysdep.lisp Log Message: Fix the SB-ROTATE-BYTE dependency for SBCL (was loaded twice, with unfortunate consequences). Add support for unix-socket connections to the backend for SBCL. (Thanks to Andreas Fuchs) Date: Mon Dec 19 23:21:50 2005 Author: emarsden Index: pg/sysdep.lisp diff -u pg/sysdep.lisp:1.11 pg/sysdep.lisp:1.12 --- pg/sysdep.lisp:1.11 Mon Dec 19 23:18:32 2005 +++ pg/sysdep.lisp Mon Dec 19 23:21:50 2005 @@ -146,27 +146,30 @@ :transport-error e)))) #+sbcl -(defun socket-connect (port host) +(defun socket-connect (port host-name) (declare (type integer port)) - (handler-case - (sb-bsd-sockets:socket-make-stream - (if host - (let ((s (make-instance 'sb-bsd-sockets:inet-socket - :type :stream :protocol :tcp)) - (num (car (sb-bsd-sockets:host-ent-addresses - (sb-bsd-sockets:get-host-by-name host))))) - (sb-bsd-sockets:socket-connect s num port) - s) - (let ((s (make-instance 'sb-bsd-sockets:local-socket :type :stream))) - (sb-bsd-sockets:socket-connect - s (format nil "/var/run/postgresql/.s.PGSQL.~D" port)) - s)) - :element-type '(unsigned-byte 8) - :input t - :output t - :buffering :none) - (error (e) - (error 'connection-failure :host host :port port :transport-error e)))) + (let ((host (if (typep host-name 'pathname) + (namestring host-name) + host-name))) + (handler-case + (sb-bsd-sockets:socket-make-stream + (if (eql #\/ (char host 0)) + (let ((s (make-instance 'sb-bsd-sockets:local-socket :type :stream))) + (sb-bsd-sockets:socket-connect + s (format nil "~A.s.PGSQL.~D" (string host) port)) + s) + (let ((s (make-instance 'sb-bsd-sockets:inet-socket + :type :stream :protocol :tcp)) + (num (car (sb-bsd-sockets:host-ent-addresses + (sb-bsd-sockets:get-host-by-name host))))) + (sb-bsd-sockets:socket-connect s num port) + s)) + :element-type '(unsigned-byte 8) + :input t + :output t + :buffering :none) + (error (e) + (error 'connection-failure :host host :port port :transport-error e))))) #+allegro (defun socket-connect (port host)

1 0