SHA1 Hash:	7817ff2212d9c201b42d28d55599a2e239662e52
Date:	2008-02-12 05:39:21
User:	aku
Comment:	Time information extended to include a total summed over all passes. Output extended to include formatted time data (hours, minutes, seconds).
Timelines:	ancestors | descendants | both | trunk
Other Links:	files | ZIP archive | manifest

• branch=trunk inherited from [a28c83647d]
• sym-trunk inherited from [a28c83647d]

Modified tools/cvs2fossil/lib/c2f_pass.tcl from [98d1ccdb7b] to [d98651431b].

@@ -143,18 +143,35 @@
 	return
     }
 
     proc ShowTimes {} {
 	::variable mytime
+	set total 0
 	foreach {pass seconds} $mytime {
 	    ShowTime $pass $seconds
+	    incr total $seconds
 	}
+	ShowTime Total $total
 	return
     }
 
     proc ShowTime {pass seconds} {
-	log write 0 pass "[format %8d $seconds] sec/$pass"
+	if {$seconds > 3600} {
+	    set hr  [expr {$seconds / 3600}]
+	    set min [expr {$seconds % 3600}]
+	    set sec [expr {$min % 60}]
+	    set min [expr {$min / 60}]
+
+	    log write 0 pass "[format %8d $seconds] sec/$pass ([nsp $hr hour] [nsp $min minute] [nsp $sec second])"
+	} elseif {$seconds > 60} {
+	    set min [expr {$seconds / 60}]
+	    set sec [expr {$seconds % 60}]
+
+	    log write 0 pass "[format %8d $seconds] sec/$pass ([nsp $min minute] [nsp $sec second])"
+	} else {
+	    log write 0 pass "[format %8d $seconds] sec/$pass"
+	}
 	return
     }
 
     proc Ok? {code label ov {emptyok 1}} {
 	upvar 1 $ov ok