read-rfc822 ( -- timestamp )

Vocabulary

calendar.parser

Inputs

None

Outputs

timestamp

an object

Definition

USING: calendar calendar.english io kernel math sequences ;

IN: calendar.parser

: read-rfc822 ( -- timestamp )
    "," read-token day-abbreviations3 member?
    check-timestamp drop read1 32 assert=
    read-sp checked-number read-sp month-abbreviations index 1 +
    check-timestamp read-sp checked-number spin read-hh:mm:ss
    " " read-until drop parse-rfc822-gmt-offset <timestamp> ;