read-response-chunk ( stop-expr -- item ? )

Vocabulary

imap.private

Inputs

stop-expr

an object

Outputs

item	an object
?	an object

Definition

USING: assocs io io.crlf io.encodings.ascii io.encodings.string
kernel math.parser pcre sequences ;

IN: imap.private

: read-response-chunk ( stop-expr -- item ? )
    read-?crlf ascii decode swap dupd findall [
        dup "^.*{(\\d+)}$" findall [
            dup "^\\* (\\d+) [A-Z-]+ (.*)$" findall
            [ ] [ nip first third second ] if-empty
        ] [
            nip
            first second second string>number read ascii decode
            read-?crlf drop
        ] if-empty t
    ] [ nip first rest values f ] if-empty ;