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

Vocabulary

metar.private

Inputs

str

an object

Outputs

str'

an object

Definition

USING: combinators formatting kernel sequences splitting ;

IN: metar.private

: parse-wind-shear ( str -- str' )
    {
        {
            [ dup "WSALLRWY" = ]
            [ drop "wind shear on all runways" ]
        }
        {
            [ dup "WSR" head? ]
            [ 3 tail "wind shear on runway %s" sprintf ]
        }
        [
            "WS" ?head drop "/" split1
            [ parse-altitude ] [ parse-wind ] bi* swap append
            "wind shear " prepend
        ]
    } cond ;