parse-braking ( str -- str' )

Vocabulary

metar.private

Inputs

str

an object

Outputs

str'

an object

Definition

USING: assocs formatting kernel math math.parser ;

IN: metar.private

: parse-braking ( str -- str' )
    H{
        { "//" "braking conditions not reported" }
        { "91" "braking action poor" }
        { "93" "braking action medium" }
        { "92" "braking action medium to poor" }
        { "95" "braking action good" }
        { "94" "braking action medium to good" }
        { "99" "braking action unreliable" }
    } ?at [
        string>number dup 90 <=
        [ 100 /f "friction coefficient %.2f" sprintf ]
        [ "reserved braking code %s" sprintf ] if
    ] unless ;