parse-wind-shear ( str -- str' )

Vocabulary

metar.private

Inputs

str

an object

Outputs

str'

an object

Definition

USING: kernel sequences splitting ;

IN: metar.private

: parse-wind-shear ( str -- str' )
    "WS" ?head drop "/" split1
    [ parse-altitude ] [ parse-wind ] bi* prepend
    "wind shear " prepend ;