parse-store-mail-line ( str -- pair/f )

Vocabulary

imap.private

Inputs

str

an object

Outputs

pair/f

an object

Definition

USING: arrays assocs kernel math.parser pcre sequences splitting
;

IN: imap.private

: parse-store-mail-line ( str -- pair/f )
    "\\(FLAGS \\(([^\\)]+)\\) UID (\\d+)\\)" findall
    [ f ] [
        first rest values first2 [ split-words ] dip
        string>number swap 2array
    ] if-empty ;