(cookie-string>timestamp-2) ( -- timestamp )


Vocabulary
calendar.format

Definition
USING: accessors calendar io kernel math sequences ;

IN: calendar.format

: (cookie-string>timestamp-2) ( -- timestamp )
timestamp new read-sp check-day-name
read-sp month-abbreviations index 1 +
check-timestamp >>month read-sp checked-number >>day
":" read-token checked-number >>hour
":" read-token checked-number >>minute
" " read-token checked-number >>second
read-sp checked-number >>year
readln parse-rfc822-gmt-offset >>gmt-offset ;