(stream-read-csv) ( stream -- )

Vocabulary

csv.private

Inputs

stream

an object

Outputs

None

Definition

USING: csv kernel make namespaces sequences ;

IN: csv.private

: (stream-read-csv) ( stream -- )
    [ dup [ empty? ] all? [ drop ] [ , ] if ] delimiter get rot
    over field-delimiters [ (stream-read-row) ] 3curry curry
    do while ;