parse-trend-time ( str -- str' )

Vocabulary

metar.private

Inputs

str

an object

Outputs

str'

an object

Definition

USING: accessors calendar calendar.format formatting kernel math
namespaces sequences ;

IN: metar.private

:: parse-trend-time ( str -- str' )
    report-reference-time get [ now-utc ] unless*
    :> reference reference day>> "%02d" sprintf str 2 tail
    append reference parse-timestamp-at dup reference <
    [ 1 days time+ ] when timestamp>rfc822 ;