parse-range-value ( str -- str' )

Vocabulary

metar.private

Inputs

str

an object

Outputs

str'

an object

Definition

USING: combinators formatting kernel math.parser sequences ;

IN: metar.private

: parse-range-value ( str -- str' )
    dup "////" =
    [ drop "unavailable" ] [
        dup first {
            { 77 [ rest string>number "less than %s" sprintf ] }
            { 80 [ rest string>number "more than %s" sprintf ] }
            [ drop string>number number>string ]
        } case
    ] if ;