Mercurial > hg > egg-tcls
diff weather.tcl @ 449:d4f4a9dfb34f
weather: No longer use named keys for measurement data that is not common for all measurement station types.
author | Matti Hamalainen <ccr@tnsp.org> |
---|---|
date | Thu, 28 Sep 2017 15:24:36 +0300 |
parents | e28c3347a948 |
children | a7249db002bd |
line wrap: on
line diff
--- a/weather.tcl Thu Sep 28 15:22:03 2017 +0300 +++ b/weather.tcl Thu Sep 28 15:24:36 2017 +0300 @@ -137,6 +137,9 @@ set uvals(c_lng) [lindex $udata 3] set uvals(c_height) [lindex $udata 4] set uvals(vtime) [lindex $udata 5] + set uvals(temp) [lindex $udata 6] + set uvals(humidity) [lindex $udata 7] + set uvals(wind_speed) [lindex $udata 8] if {[expr [clock seconds] - $uvals(vtime)] < 3600} { set uvals(ctime) [clock format $uvals(vtime) -format "%H:%M"] @@ -144,16 +147,8 @@ set uvals(ctime) [clock format $uvals(vtime) -format "%H:%M (%d.%m.%Y)"] } - set uvals(temp) [lindex $udata 6] - - if {[lindex $udata 1] == 0} { - set uvals(road_temp) [lindex $udata 7] - set uvals(weather1) [lindex $udata 8] - set uvals(weather2) [lindex $udata 9] - } else { - set uvals(humidity) [lindex $udata 7] - set uvals(wind_speed) [lindex $udata 8] - set uvals(cloud_cover) [lindex $udata 9] + for {set id 9} {$id < [llength $udata]} {incr id} { + set uvals(rv_$id) [lindex $udata $id] } set astr ""