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
;