[pg-cvs] CVS update: pg/parsers.lisp pg/CREDITS pg/README

Eric Marsden emarsden at common-lisp.net
Mon Dec 19 22:30:04 UTC 2005


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 at laas.fr>
+;;; Author: Eric Marsden <eric.marsden at 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 at 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




More information about the Pg-cvs mailing list