parse-direction ( str -- str' )

Vocabulary

metar.private

Inputs

str

an object

Outputs

str'

an object

Definition

USING: combinators formatting kernel ;

IN: metar.private

: parse-direction ( str -- str' )
    {
        { [ dup "VRB" = ] [ drop "variable" ] }
        { [ dup "///" = ] [ drop "unknown direction" ] }
        [ parse-compass "from %s" sprintf ]
    } cond ;