Ro December 26, 2012
File sizes can be hard to compare in an application, when you are presented with alternatively sizes in GB, MB, and KB. So I show all the sizes in the same way, always in MB. I feel this is a good tradeoff.
proc commify {x} {
set trailer ""
set pix [string last "." $x]
if {$pix != -1} {
# there is a decimal trailer
set trailer [string range $x $pix end]
set x [string range $x 0 [expr {$pix - 1}]]
}
set z {}
foreach {a b c} [lreverse [split $x ""]] {
lappend z [join [list $c $b $a] ""]
}
set ret [join [lreverse $z] ","]
append ret $trailer
}
proc hformat {x} {
# megabytes
set q [expr {($x * 1.0) / pow(2,20)}]
if {$q < 7} {
# 0.XY show two decimal places
set q [expr {entier($q * 100) / 100.0}]
} else {
# round it out, its big
set q [expr {round($q)}]
}
return "[commify $q] MB"
}Ok so here is some output to show you how this thing works:
(apps) 5 % hformat 93838188111 89,491 MB (apps) 6 % hformat 19192 0.01 MB (apps) 7 % hformat 1919249 1.83 MB (apps) 8 % hformat 139101 0.13 MB (apps) 9 % hformat 481883842001 459,560 MB (apps) 10 % hformat 4818838420010393 4,595,602,436 MB (apps) 11 % hformat 48188384200 45,956 MB (apps) 12 % hformat 75002991 72 MB (apps) 13 % hformat 750029914 715 MB (apps) 14 % hformat 1048576 1.0 MB (apps) 15 % hformat 666,792,000 can't use non-numeric string as operand of "*" (apps) 16 % hformat 666792000 636 MB (apps) 17 % hformat 840957664 802 MB