Fossil SCM
Time information extended to include a total summed over all passes. Output extended to include formatted time data (hours, minutes, seconds).
Commit
7817ff2212d9c201b42d28d55599a2e239662e52
Parent
0d02fe6c7a8ed0f…
1 file changed
+18
-1
+18
-1
| --- tools/cvs2fossil/lib/c2f_pass.tcl | ||
| +++ tools/cvs2fossil/lib/c2f_pass.tcl | ||
| @@ -143,18 +143,35 @@ | ||
| 143 | 143 | return |
| 144 | 144 | } |
| 145 | 145 | |
| 146 | 146 | proc ShowTimes {} { |
| 147 | 147 | ::variable mytime |
| 148 | + set total 0 | |
| 148 | 149 | foreach {pass seconds} $mytime { |
| 149 | 150 | ShowTime $pass $seconds |
| 151 | + incr total $seconds | |
| 150 | 152 | } |
| 153 | + ShowTime Total $total | |
| 151 | 154 | return |
| 152 | 155 | } |
| 153 | 156 | |
| 154 | 157 | proc ShowTime {pass seconds} { |
| 155 | - log write 0 pass "[format %8d $seconds] sec/$pass" | |
| 158 | + if {$seconds > 3600} { | |
| 159 | + set hr [expr {$seconds / 3600}] | |
| 160 | + set min [expr {$seconds % 3600}] | |
| 161 | + set sec [expr {$min % 60}] | |
| 162 | + set min [expr {$min / 60}] | |
| 163 | + | |
| 164 | + log write 0 pass "[format %8d $seconds] sec/$pass ([nsp $hr hour] [nsp $min minute] [nsp $sec second])" | |
| 165 | + } elseif {$seconds > 60} { | |
| 166 | + set min [expr {$seconds / 60}] | |
| 167 | + set sec [expr {$seconds % 60}] | |
| 168 | + | |
| 169 | + log write 0 pass "[format %8d $seconds] sec/$pass ([nsp $min minute] [nsp $sec second])" | |
| 170 | + } else { | |
| 171 | + log write 0 pass "[format %8d $seconds] sec/$pass" | |
| 172 | + } | |
| 156 | 173 | return |
| 157 | 174 | } |
| 158 | 175 | |
| 159 | 176 | proc Ok? {code label ov {emptyok 1}} { |
| 160 | 177 | upvar 1 $ov ok |
| 161 | 178 |
| --- tools/cvs2fossil/lib/c2f_pass.tcl | |
| +++ tools/cvs2fossil/lib/c2f_pass.tcl | |
| @@ -143,18 +143,35 @@ | |
| 143 | return |
| 144 | } |
| 145 | |
| 146 | proc ShowTimes {} { |
| 147 | ::variable mytime |
| 148 | foreach {pass seconds} $mytime { |
| 149 | ShowTime $pass $seconds |
| 150 | } |
| 151 | return |
| 152 | } |
| 153 | |
| 154 | proc ShowTime {pass seconds} { |
| 155 | log write 0 pass "[format %8d $seconds] sec/$pass" |
| 156 | return |
| 157 | } |
| 158 | |
| 159 | proc Ok? {code label ov {emptyok 1}} { |
| 160 | upvar 1 $ov ok |
| 161 |
| --- tools/cvs2fossil/lib/c2f_pass.tcl | |
| +++ tools/cvs2fossil/lib/c2f_pass.tcl | |
| @@ -143,18 +143,35 @@ | |
| 143 | return |
| 144 | } |
| 145 | |
| 146 | proc ShowTimes {} { |
| 147 | ::variable mytime |
| 148 | set total 0 |
| 149 | foreach {pass seconds} $mytime { |
| 150 | ShowTime $pass $seconds |
| 151 | incr total $seconds |
| 152 | } |
| 153 | ShowTime Total $total |
| 154 | return |
| 155 | } |
| 156 | |
| 157 | proc ShowTime {pass seconds} { |
| 158 | if {$seconds > 3600} { |
| 159 | set hr [expr {$seconds / 3600}] |
| 160 | set min [expr {$seconds % 3600}] |
| 161 | set sec [expr {$min % 60}] |
| 162 | set min [expr {$min / 60}] |
| 163 | |
| 164 | log write 0 pass "[format %8d $seconds] sec/$pass ([nsp $hr hour] [nsp $min minute] [nsp $sec second])" |
| 165 | } elseif {$seconds > 60} { |
| 166 | set min [expr {$seconds / 60}] |
| 167 | set sec [expr {$seconds % 60}] |
| 168 | |
| 169 | log write 0 pass "[format %8d $seconds] sec/$pass ([nsp $min minute] [nsp $sec second])" |
| 170 | } else { |
| 171 | log write 0 pass "[format %8d $seconds] sec/$pass" |
| 172 | } |
| 173 | return |
| 174 | } |
| 175 | |
| 176 | proc Ok? {code label ov {emptyok 1}} { |
| 177 | upvar 1 $ov ok |
| 178 |