parse-status ( seq -- assoc )

Vocabulary

imap.private

Inputs

seq

an object

Outputs

assoc

an object

Definition

USING: assocs grouping math.parser pcre sequences splitting ;

IN: imap.private

: parse-status ( seq -- assoc )
    first "\\* STATUS \"[^\"]+\" \\(([^\\)]+)\\)" findall
    first last last split-words 2 group
    [ string>number ] assoc-map ;