quoted-field, ( delimiter stream -- delimiter stream sep/f )

Vocabulary

csv.private

Inputs

delimiter	an object
stream	an object

Outputs

delimiter	an object
stream	an object
sep/f	an object

Definition

USING: io kernel make ;

IN: csv.private

: quoted-field,
    ( delimiter stream -- delimiter stream sep/f )
    "\"" over stream-read-until drop % t maybe-escaped-quote ;