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

metar: switching urls from weather.noaa.gov to tgftp.nws.noaa.gov.

char-rename
John Benediktsson 2016-09-06 18:11:28 -07:00
parent 2edda80b5e
commit 4ab9ef90c3
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
extra/metar/metar.factor
View File

@ -40,7 +40,7 @@ ERROR: bad-location str ;
] [ drop f ] if ; ] [ drop f ] if ;
: stations-data ( -- seq ) : stations-data ( -- seq )
URL" http://weather.noaa.gov/data/nsd_cccc.txt" URL" http://tgftp.nws.noaa.gov/data/nsd_cccc.txt"
http-get nip CHAR: ; [ string>csv ] with-delimiter ; http-get nip CHAR: ; [ string>csv ] with-delimiter ;
PRIVATE> PRIVATE>
@ -578,7 +578,7 @@ GENERIC: metar ( station -- metar )
M: station metar cccc>> metar ; M: station metar cccc>> metar ;
M: string metar M: string metar
"http://weather.noaa.gov/pub/data/observations/metar/stations/%s.TXT" "http://tgftp.nws.noaa.gov/data/observations/metar/stations/%s.TXT"
sprintf http-get nip ; sprintf http-get nip ;
GENERIC: metar. ( station -- ) GENERIC: metar. ( station -- )
@ -718,7 +718,7 @@ GENERIC: taf ( station -- taf )
M: station taf cccc>> taf ; M: station taf cccc>> taf ;
M: string taf M: string taf
"http://weather.noaa.gov/pub/data/forecasts/taf/stations/%s.TXT" "http://tgftp.nws.noaa.gov/data/forecasts/stations/%s.TXT"
sprintf http-get nip ; sprintf http-get nip ;
GENERIC: taf. ( station -- ) GENERIC: taf. ( station -- )