parse-altimeter ( str -- str' )

Vocabulary

metar.private

Inputs

str

an object

Outputs

str'

an object

Definition

USING: formatting kernel math math.parser sequences ;

IN: metar.private

: parse-altimeter ( str -- str' )
    dup "////" tail?
    [ drop "altimeter unavailable" ] [
        unclip [ string>number ] [ 65 = ] bi*
        [ 100 /f "%.2f Hg" sprintf ] [ "%s hPa" sprintf ] if
    ] if ;