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 [
        dup "VV" head? 2 3 ? cut 3 cut
        [ sky at ] [ parse-altitude ] [
            dup "///" =
            [ drop " (cloud type unavailable)" ]
            [ sky at [ " (%s)" sprintf ] [ f ] if* ] if
        ] tri* 3append
    ] unless ;