(<metar-report>) ( metar -- report )

Vocabulary

metar.private

Inputs

metar

an object

Outputs

report

an object

Definition

USING: accessors kernel sequences splitting ;

IN: metar.private

: (<metar-report>) ( metar -- report )
    [ metar-report new ] dip [ >>raw ] keep report-tokens
    { "RMK" } split1 [
        change-groups unclip swap [ metar-body ] dip
        [ join-words <taf-partial> ] map >>trend
    ] [ metar-remarks ] bi* ;