(stream-read-row) ( delimiter stream field-end quoted-field -- sep/f fields )


Vocabulary
csv.private

Inputs
delimiteran object
streaman object
field-endan object
quoted-fieldan object


Outputs
sep/fan object
fieldsan object


Definition
USING: kernel sequences ;

IN: csv.private

: (stream-read-row)
( delimiter stream field-end quoted-field -- sep/f fields )
[ [ dup [ [ dup ] ] dip [ = ] curry compose ] keep ] 3dip
[ [ [ [ [ drop ] ] dip ] dip ] dip ] dip [ field ] 3curry
curry compose produce ; inline