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

Vocabulary

csv.private

Inputs

delimiter	an object
stream	an object
field-end	an object
quoted-field	an object

Outputs

sep/f	an object
fields	an 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