internal-date>timestamp ( str -- timestamp )

Vocabulary

imap

Inputs

str

an object

Outputs

timestamp

an object

Definition

USING: calendar calendar.english calendar.parser io
io.streams.string kernel math sequences ;

IN: imap

: internal-date>timestamp ( str -- timestamp )
    [
        "-" read-token checked-number "-" read-token
        month-abbreviations index 1 +
        read-sp checked-number spin read-hms " " expect
        readln parse-rfc822-gmt-offset <timestamp>
    ] with-string-reader ;