parse-weather ( str -- str' )

Vocabulary

metar.private

Inputs

str

an object

Outputs

str'

an object

Definition

USING: kernel sequences splitting ;

IN: metar.private

: parse-weather ( str -- str' )
    dup "VC" subseq-of? [ "VC" "" replace t ] [ f ] if
    [ (parse-weather) ] [ [ " in the vicinity" append ] when ]
    bi* ;