taf-body ( report str -- report )

Vocabulary

metar.private

Inputs

report	an object
str	an object

Outputs

report

an object

Definition

USING: accessors ascii kernel regexp sequences splitting ;

IN: metar.private

: taf-body ( report str -- report )
    [ blank? ] split-when harvest [ "TAF" = ] find-one drop
    [ { "AMD" "COR" "RTD" } member? ] find-all join-words pick
    modifier<< [ { "NIL" "CNL" } member? ] find-one
    [ pick status<< ] when* [ re-station matches? ] find-one
    [ pick station<< ] when* [ re-timestamp matches? ] find-one
    [ parse-timestamp pick timestamp<< ] when*
    [ re-valid-timestamp matches? ] find-one
    [ parse-valid-timestamp pick valid-timestamp<< ] when*
    forecast-conditions ;