maybe-escaped-quote ( delimeter stream quoted? -- delimiter stream sep/f )

Vocabulary

csv.private

Inputs

delimeter	an object
stream	an object
quoted?	an object

Outputs

delimiter	an object
stream	an object
sep/f	an object

Definition

USING: combinators io kernel make ;

IN: csv.private

: maybe-escaped-quote
    ( delimeter stream quoted? -- delimiter stream sep/f )
    2over stream-read1 tuck =
    [ nip ] [
        {
            { 34 [ [ 34 , ] when quoted-field, ] }
            { 10 [ ] }
            { 13 [ ] }
            [ [ , drop f maybe-escaped-quote ] when* ]
        } case
    ] if ; inline recursive