csv: faster for files that do not have blanks around delimiter.

2012-07-15 09:15:55 -07:00 · 2012-07-15 09:15:55 -07:00 · d31ece5dd0
parent 8d2a271aa2
commit d31ece5dd0
1 changed files with 7 additions and 1 deletions
--- a/basis/csv/csv.factor
+++ b/basis/csv/csv.factor
@ -28,7 +28,13 @@ MEMO: (quoted-field) ( delimiter -- delimiter' )
    delimiter> (quoted-field) read-until
    dup CHAR: " =
    [ 2drop quoted-field ]
-    [ swap [ blank? ] trim % ]
+    [
+        swap dup {
+            [ ?first blank? ]
+            [ ?last blank? ]
+        } 1||
+        [ [ blank? ] trim ] when %
+    ]
    if ;

 : maybe-escaped-quote ( -- endchar )