parse-rfc822-gmt-offset ( string -- dt )


Vocabulary
calendar.format

Definition
USING: calendar kernel math.parser sequences ;

IN: calendar.format

: parse-rfc822-gmt-offset ( string -- dt )
dup "GMT" =
[ drop instant ] [
unclip [
2 cut [ string>number ] bi@
[ hours ] [ minutes ] bi* time+
] dip signed-gmt-offset
] if ;