parse-temperature-value ( str -- temp/f )

Vocabulary

metar.private

Inputs

str

an object

Outputs

temp/f

an object

Definition

USING: formatting kernel math math.parser sequences splitting ;

IN: metar.private

: parse-temperature-value ( str -- temp/f )
    dup [ 47 = ] all?
    [ drop f ] [
        "M" ?head [ string>number ] [ [ neg ] when ] bi*
        dup C>F "%d °C (%.1f °F)" sprintf
    ] if ;