parse-runway-state ( str -- str' )

Vocabulary

metar.private

Inputs

str

an object

Outputs

str'

an object

Definition

USING: assocs formatting kernel sequences splitting ;

IN: metar.private

:: parse-runway-state ( str -- str' )
    str "R" ?head drop :> code str "R" head?
    [ code "/" split1 ] [ code 2 cut ] if
    :> ( runway state ) runway parse-runway-designator state
    "CLRD" head?
    [ state 4 tail parse-braking "%s cleared; %s" sprintf ] [
        0 1 state subseq runway-deposits at 1 2 state subseq
        dup runway-contamination at
        [ nip ] [ "reserved coverage code " prepend ] if*
        2 4 state subseq parse-deposit-depth state 4 tail
        parse-braking "%s: %s; %s; %s; %s" sprintf
    ] if ;