<taf-report> ( taf -- report )

Vocabulary

metar.private

Inputs

taf

an object

Outputs

report

an object

Definition

USING: accessors ascii kernel sequences splitting ;

IN: metar.private

: <taf-report> ( taf -- report )
    [ taf-report new ] dip [ >>raw ] keep split-lines
    [ [ blank? ] trim ] map rest dup first "TAF" = [ rest ] when
    harvest unclip swapd taf-body swap taf-partials ;