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

csv: bit faster writing csv.

db4
John Benediktsson 2012-07-27 13:47:15 -07:00
parent d7f9fe7600
commit 7cb973009a
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

@ -84,10 +84,8 @@ PRIVATE>
<PRIVATE
: needs-escaping? ( cell -- ? )
delimiter> '[
dup "\n\"" member? [ drop t ] [ _ = ] if
] any? ; inline
: needs-escaping? ( cell delimiter -- ? )
'[ dup "\n\"" member? [ drop t ] [ _ = ] if ] any? ; inline
: escape-quotes ( cell -- cell' )
[
@ -100,13 +98,13 @@ PRIVATE>
: enclose-in-quotes ( cell -- cell' )
"\"" dup surround ; inline
: escape-if-required ( cell -- cell' )
dup needs-escaping?
: escape-if-required ( cell delimiter -- cell' )
dupd needs-escaping?
[ escape-quotes enclose-in-quotes ] when ; inline
: (write-row) ( row delimiter -- )
'[ _ write1 ]
[ escape-if-required write ] interleave nl ; inline
dup '[ _ write1 ] swap
'[ _ escape-if-required write ] interleave nl ; inline
PRIVATE>