Changeset 14763 for release/4/postgresql/trunk/postgresql.scm

Timestamp:

05/24/09 23:03:14 (10 months ago)

Author:

sjamaan

Message:

Get rid of time parsing procedures -- at least for now.
The problem with datetime is that output is highly dependent on the DateStyle? setting in postgresql.conf. We need to find out a way to obtain that setting or we cannot reliably parse the output of date types.
Another problem is the vector representation; nothing in Chicken can handle date vectors that are not 10 elements long, so it's pretty useless. srfi-18 is still not ported to Chicken 4 either...
Then there's the unparsing of vectors; do you simply unparse every vector to a datetime? Which date type is determined by the vector's length? ugh!

Files:

• release/4/postgresql/trunk/postgresql.scm (modified) (3 diffs)

release/4/postgresql/trunk/postgresql.scm

@@ -154 +154 @@
 (define (bool-parser str) (string=? str "t"))
 
-(define (abstime-parser str) str)
-
-(define (reltime-parser str) str)
-
-(define (parse-format-string s)
-  (let-syntax ((push! (syntax-rules ()
-                        ((_ value place)
-                         (set! place (cons value place))))))
-    (do ([i 0 (+ i 1)]
-         [ranges (list)]
-         [cur-range (list)]
-         [len (string-length s)])
-        ([= i len]
-         (when (not (null? cur-range))
-           (push! (cons (- i (length cur-range)) i)
-                  ranges))
-         (reverse! ranges))
-      (let ([char (string-ref s i)])
-        (cond ([and (or (null? cur-range)
-                        (char=? char (car cur-range)))
-                    (char-alphabetic? char)]
-               (push! char cur-range))
-              ([and (not (null? cur-range))
-                    (not (char=? char (car cur-range)))]
-               (push! (cons (- i (length cur-range)) i)
-                      ranges)
-               (set! cur-range
-                     (if (char-alphabetic? char)
-                         (list char)
-                         (list)))))))))
-
-(define-syntax define-time-parser
-  (syntax-rules ()
-    ((_ name format-string)
-     (define name
-       (let ((format-ranges (parse-format-string format-string)))
-         (lambda (str)
-           (apply
-            vector
-            (map (lambda (range)
-                   (if (> (cdr range) (string-length str))
-                       0
-                       (string->number
-                        (substring str (car range) (cdr range)))))
-                 format-ranges))))))))
-
-(define-time-parser date-parser "YYYY-MM-DD")
-(define-time-parser timestamp-parser "YYYY-MM-DD hh:mm:ss.ssssss")
-(define-time-parser timestamp/tz-parser "YYYY-MM-DD hh:mm:ss.sssssszzz")
-(define-time-parser time-parser "hh:mm:ss.ssssss")
-
 (define (numeric-parser str)
   (or (string->number str)
@@ -224 +173 @@
      ("float4" . ,numeric-parser)
      ("float8" . ,numeric-parser)
-     ("abstime" . ,abstime-parser)
-     ("reltime" . ,reltime-parser)
-     ("date" . ,date-parser)
-     ("time" . ,time-parser)
-     ("timestamp" . ,timestamp-parser)
-     ("timestamptz" . ,timestamp/tz-parser)
      ("numeric" . ,numeric-parser)
      ("oid" . ,numeric-parser))))
@@ -246 +189 @@
      (,char? . ,string)
      (,boolean? . ,bool-unparser)
-     (,number? . ,number->string)
-     #;(,vector? . ,vector-unparser))))
+     (,number? . ,number->string))))
 
 ;; Retrieve type-oids from PostgreSQL: