parse-inches ( 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-inches ( str -- str' )
    dup [ 47 = ] all?
    [ drop "unknown" ] [
        string>number
        [ "trace" ] [ 100 /f "%.2f inches" sprintf ] if-zero
    ] if ;