@@ -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 "Tclkit for [pretty_print_key $key] | " + puts $fd "Kit Size | " puts $fd "Status | " puts $fd "Log | " puts $fd "Failed Tests | " puts $fd "[pretty_print_buildinfo $kitinfo(buildflags)] | " + puts $fd "[pretty_print_size [file size [file join $WEBDIR $kitinfo(file)]]] | " puts $fd "$status | " puts $fd "([pretty_print_size [file size [file join $WEBDIR $kitinfo(buildfile)]]]) | " puts $fd "[join $failedtestshtml {, }] | " puts $fd " " }
---|