read-cookie-string-1 ( -- timestamp )

Vocabulary

calendar.parser

Inputs

None

Outputs

timestamp

an object

Definition

USING: calendar calendar.english io kernel math sequences ;

IN: calendar.parser

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