(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 _ = ] ] keep ] 3dip
    '[ drop _ _ _ _ field ] produce ; inline