Mercurial > hg > egg-tcls

comparison weather.tcl @ 172:2c89e47739e8

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
weather: Change weather data loading to not discard current data if data file can't be opened.
author Matti Hamalainen <ccr@tnsp.org>
date Tue, 03 Jun 2014 12:59:53 +0300
parents 5434903331df
children 3ea14355e2d4
comparison
equal deleted inserted replaced
171:5434903331df 172:2c89e47739e8
202 202
203 #------------------------------------------------------------------------- 203 #-------------------------------------------------------------------------
204 proc weather_update {} { 204 proc weather_update {} {
205 global weather_datafile weather_data 205 global weather_datafile weather_data
206 206
207 # Create dict 207 # Check if we can open the weather data file
208 array unset weather_data
209 array set weather_data {}
210
211 set wtemp_min_val 500000
212 set wtemp_max_val -500000
213 set wtemp_min_key ""
214 set wtemp_max_key ""
215
216 # Read datafile
217 if {![catch {set ufile [open $weather_datafile r 0600]} uerrmsg]} { 208 if {![catch {set ufile [open $weather_datafile r 0600]} uerrmsg]} {
209 # Create dict
210 array unset weather_data
211 array set weather_data {}
212
213 set wtemp_min_val 500000
214 set wtemp_max_val -500000
215 set wtemp_min_key ""
216 set wtemp_max_key ""
217
218 # Read in the data
218 while {![eof $ufile]} { 219 while {![eof $ufile]} {
219 gets $ufile uline 220 gets $ufile uline
220 set udata [split $uline "|"] 221 set udata [split $uline "|"]
221 if {[llength $udata] > 0} { 222 if {[llength $udata] > 0} {
222 set utemp [lindex $udata 2] 223 set utemp [lindex $udata 2]