prpr/webif
1
0
Fork 0
forked from hummypkg/webif
Code Issues Pull Requests Projects Releases 1 Wiki Activity

Optimise pretty_size function using log()

Browse Source
This commit is contained in:
HummyPkg 2017-08-31 21:04:49 +01:00
parent ebf7d1312e
commit 4ce3759902
1 changed files with 13 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
webif/lib/pretty_size
View File

@ -3,9 +3,19 @@ if {![exists -proc pretty_size]} {
proc pretty_size {size} { proc pretty_size {size} {
set units {bytes KiB MiB GiB TiB} set units {bytes KiB MiB GiB TiB}
for {set i 0; set l [llength $units]; incr l -1} { # for {set i 0; set l [llength $units]; incr l -1} {
$size > 1023 && $i < $l} {incr i} { # $size > 1023 && $i < $l} {incr i} {
set size $($size / 1024.0) # set size $($size / 1024.0)
# }
# We need to know how many powers of 1024 there are in
# size. This calculates the answer effeciently. Testing
# shows that this version takes 2/3 the time of the above.
if {$size == 0} {
set i 0
} else {
set i $(int(log($size) / log(1024)))
set size $($size / 1024.0 ** $i)
} }
set size [string trimright \ set size [string trimright \