(<taf-report>) ( taf -- report )

Vocabulary

metar.private

Inputs

taf

an object

Outputs

report

an object

Definition

USING: accessors kernel sequences splitting ;

IN: metar.private

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