parse-timestamp ( str -- str' )

Vocabulary

metar.private

Inputs

str

an object

Outputs

str'

an object

Definition

USING: accessors calendar calendar.format kernel math.parser
sequences ;

IN: metar.private

: parse-timestamp ( str -- str' )
    [ now [ year>> ] [ month>> ] bi ] dip 2 cut 2 cut 2 cut drop
    [ string>number ] tri@ over 24 =
    [ [ drop 0 ] dip 0 instant <timestamp> 1 days time+ ]
    [ 0 instant <timestamp> ] if timestamp>rfc822 ;