steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

metar: some fixes for TAF parsing.

char-rename
John Benediktsson 2016-09-07 16:04:59 -07:00
parent 98be09e8ea
commit 11ec120c2d
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
extra/metar/metar.factor
View File

@ -615,6 +615,8 @@ sky-condition raw ;
: taf-body ( report str -- report ) : taf-body ( report str -- report )
[ blank? ] split-when [ blank? ] split-when
[ "TAF" = ] find-one drop
[ { "AMD" "COR" "RTD" } member? ] find-one drop [ { "AMD" "COR" "RTD" } member? ] find-one drop
[ re-station matches? ] find-one [ re-station matches? ] find-one
@ -679,7 +681,7 @@ sky-condition raw ;
[ taf-report new ] dip [ >>raw ] keep [ taf-report new ] dip [ >>raw ] keep
string-lines [ [ blank? ] trim ] map string-lines [ [ blank? ] trim ] map
rest dup first "TAF" = [ rest ] when rest dup first "TAF" = [ rest ] when
harvest unclip taf-body taf-partials ; harvest unclip swapd taf-body swap taf-partials ;
: taf-report. ( report -- ) : taf-report. ( report -- )
[ [