parse-sky-condition ( str -- str' )

Vocabulary

metar.private

Inputs

str

an object

Outputs

str'

an object

Definition

USING: assocs formatting kernel sequences ;

IN: metar.private

: parse-sky-condition ( str -- str' )
    sky ?at [
        3 cut 3 cut
        [ sky at ] [ parse-altitude ]
        [ sky at [ " (%s)" sprintf ] [ f ] if* ] tri* 3append
    ] unless ;