Changeset 4

Timestamp:

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

Author:

dsowen

Message:

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

Location:

trunk

Files:

• COPYING (added)
• COPYING.LESSER (added)
• csv.lisp (modified) (3 diffs)
• dso-csv.asd (modified) (1 diff)

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))
 
 

trunk/dso-csv.asd

@@ -2 +2 @@
 
 #|
-Copyright (C) 2007  David Owen <dsowen@fugue88.ws>
+Copyright (C) 2007, 2008  David Owen <dsowen@fugue88.ws>
 
-This library is free software; you can redistribute it and/or
-modify it under the terms of the GNU Lesser General Public
-License as published by the Free Software Foundation; either
-version 2.1 of the License, or (at your option) any later version.
+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 library is distributed in the hope that it will be useful,
+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 General Public License for more details.
+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 General Public
-License along with this library; if not, write to the Free Software
-Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA  02110-1301  USA
+You should have received a copy of the GNU Lesser Public License
+along with this program.  If not, see <http://www.gnu.org/licenses/>.
 |#