Changeset 4 for trunk/csv.lisp

Timestamp:

02/09/2008 09:24:02 PM (18 years ago)

Author:

dsowen

Message:

• Updated for the latest dso-parser.
• Licensed under LGPL v3.

File:

• trunk/csv.lisp (modified) (3 diffs)

trunk/csv.lisp

@@ -1 +1 @@
 ;;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp -*-
+
+#|
+Copyright (C) 2007, 2008  David Owen <dsowen@fugue88.ws>
+
+This program is free software: you can redistribute it and/or modify
+it under the terms of the GNU Lesser Public License as published by
+the Free Software Foundation, either version 3 of the License, or
+(at your option) any later version.
+
+This program is distributed in the hope that it will be useful,
+but WITHOUT ANY WARRANTY; without even the implied warranty of
+MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+GNU Lesser Public License for more details.
+
+You should have received a copy of the GNU Lesser Public License
+along with this program.  If not, see <http://www.gnu.org/licenses/>.
+|#
 
 (defpackage #:dso-csv
@@ -14 +31 @@
 
 
-(flet ((trim (s) (substring s :start 1 :length (- (length s) 2))))
+(flet ((trim (s) (dso-parse::substring s :start 1 :length (- (length s) 2))))
   (defun un-squote (s)
     (cl-ppcre:regex-replace-all "''" (trim s) "'"))
@@ -59 +76 @@
   (file (+ row))
   (row (t-value (* row-rest) (= t-newline))
-       (lambda (row) (cons (caar row) (mapcar #'second (second row)))))
-  (row-rest ((= t-comma) t-value) car))
+       :filter (lambda (row) (cons (caar row) (mapcar #'second (second row)))))
+  (row-rest ((= t-comma) t-value) :filter car))