parse-runway-designator ( str -- str' )

Vocabulary

metar.private

Inputs

str

an object

Outputs

str'

an object

Definition

USING: combinators formatting kernel math math.parser ;

IN: metar.private

: parse-runway-designator ( str -- str' )
    {
        { [ dup "88" = ] [ drop "all runways" ] }
        {
            [ dup "99" = ]
            [ drop "previous runway report repeated" ]
        }
        {
            [ dup string>number [ 50 > ] [ f ] if* ]
            [ string>number 50 - "runway %02dR" sprintf ]
        }
        [ "runway %s" sprintf ]
    } cond ;