steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

csv: 20% faster.

db4
John Benediktsson 2012-07-14 15:33:24 -07:00
parent 1ea580d911
commit 49c2ec6180
1 changed files with 6 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
basis/csv/csv.factor
View File

@ -14,7 +14,7 @@ CHAR: , delimiter set-global
: delimiter> ( -- delimiter ) delimiter get ; inline
MEMO: (field-end) ( delimiter -- delimiter' )
"\n" swap suffix ;
"\n" swap suffix ; inline
: skip-to-field-end ( -- endchar )
delimiter> (field-end) read-until nip ; inline
@ -22,16 +22,14 @@ MEMO: (field-end) ( delimiter -- delimiter' )
DEFER: quoted-field
MEMO: (quoted-field) ( delimiter -- delimiter' )
"\"\n" swap suffix ;
"\"\n" swap suffix ; inline
: not-quoted-field ( -- endchar )
delimiter> (quoted-field) read-until
dup {
{ CHAR: " [ 2drop quoted-field ] }
{ delimiter> [ swap [ blank? ] trim % ] }
{ CHAR: \n [ swap [ blank? ] trim % ] }
{ f [ swap [ blank? ] trim % ] }
} case ;
dup CHAR: " =
[ 2drop quoted-field ]
[ swap [ blank? ] trim % ]
if ;
: maybe-escaped-quote ( -- endchar )
read1 dup {