parse-layer-forecast ( str -- str' )

Vocabulary

metar.private

Inputs

str

an object

Outputs

str'

an object

Definition

USING: assocs formatting kernel math math.parser sequences ;

IN: metar.private

:: parse-layer-forecast ( str -- str' )
    1 2 str subseq :> intensity str first 54 =
    [ intensity string>number icing-types nth ]
    [ intensity turbulence-types at ] if 2 5 str subseq
    string>number 100 * str 5 tail string>number 1000 *
    "%s, base %s ft, depth %s ft" sprintf ;