@@ -70,14 +70,20 @@ } proc pretty_print_size {size} { foreach unit [list "" K M G T P] { if {$size < 1024} { + if {$size < 10} { + set size [expr {round($size * 10) / 10.0}] + } else { + set size [expr {round($size)}] + } + return "$size [string trim ${unit}B]" } - set size [expr {${size} / 1024}] + set size [expr {${size} / 1024.000}] } } ########################################################################## ## MAIN BODY ############################################################# @@ -157,10 +163,11 @@ puts $fd " " puts $fd " " foreach key [lsort -dictionary [array names allkitinfo]] { puts $fd " " puts $fd " " + puts $fd " " puts $fd " " puts $fd " " puts $fd " " puts $fd " " foreach kitinfo_list $allkitinfo($key) { @@ -197,10 +204,11 @@ lappend failedtestshtml "$testname" } puts $fd " " + puts $fd " " puts $fd " " puts $fd " " puts $fd " " puts $fd " " }
Tclkit for [pretty_print_key $key]Kit SizeStatusLogFailed Tests
[pretty_print_buildinfo $kitinfo(buildflags)][pretty_print_size [file size [file join $WEBDIR $kitinfo(file)]]]$status([pretty_print_size [file size [file join $WEBDIR $kitinfo(buildfile)]]])[join $failedtestshtml {, }]