parse-timestamp-at ( str reference -- timestamp )

Vocabulary

metar.private

Inputs

str	an object
reference	an object

Outputs

timestamp

an object

Definition

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

IN: metar.private

:: parse-timestamp-at ( str reference -- timestamp )
    str 2 head string>number :> day 2 4 str subseq
    string>number :> hour 4 6 str subseq string>number :> minute
    { -1 0 1 } [
        months reference swap time+ start-of-month day 1 -
        days time+
    ] map [ day>> day = ] filter
    [ timestamp>unix-time reference timestamp>unix-time - abs ]
    sort-by first hour hours time+ minute minutes time+ ;