field ( delimiter stream field-seps quote-seps -- sep/f field )

Vocabulary

csv.private

Inputs

delimiter	an object
stream	an object
field-seps	an object
quote-seps	an object

Outputs

sep/f	an object
field	an object

Definition

USING: io kernel sequences ;

IN: csv.private

: field
    ( delimiter stream field-seps quote-seps -- sep/f field )
    pick stream-read-until dup 34 =
    [ drop [ drop quoted-field ] [ continue-field ] if-empty ]
    [ 3nipd swap ?trim ] if ;