Mercurial > hg > egg-tcls

comparison weather.tcl @ 419:3566fdca974b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
weather: Rename a string token.
author Matti Hamalainen <ccr@tnsp.org>
date Sun, 08 Jan 2017 00:56:13 +0200
parents e904b453a06a
children 0f7524550aa2
comparison
equal deleted inserted replaced
418:e904b453a06a 419:3566fdca974b
140 140
141 array unset uvals 141 array unset uvals
142 set uvals(station) [lindex $udata 0] 142 set uvals(station) [lindex $udata 0]
143 set uvals(type) [lindex $udata 1] 143 set uvals(type) [lindex $udata 1]
144 set uvals(c_lat) [lindex $udata 2] 144 set uvals(c_lat) [lindex $udata 2]
145 set uvals(c_long) [lindex $udata 3] 145 set uvals(c_lng) [lindex $udata 3]
146 set uvals(c_height) [lindex $udata 4] 146 set uvals(c_height) [lindex $udata 4]
147 set uvals(vtime) [lindex $udata 5] 147 set uvals(vtime) [lindex $udata 5]
148 148
149 if {[expr [clock seconds] - $uvals(vtime)] < 3600} { 149 if {[expr [clock seconds] - $uvals(vtime)] < 3600} {
150 set uvals(ctime) [clock format $uvals(vtime) -format "%H:%M"] 150 set uvals(ctime) [clock format $uvals(vtime) -format "%H:%M"]