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 "NSW" =
    [ drop "no significant weather" ] [
        dup "VC" subseq-of? [ "VC" "" replace t ] [ f ] if
        [ (parse-weather) ]
        [ [ " in the vicinity" append ] when ] bi*
    ] if ;