Revision: 90102 http://trac.macports.org/changeset/90102 Author: cal@macports.org Date: 2012-02-21 09:04:50 -0800 (Tue, 21 Feb 2012) Log Message: ----------- rev-upgrade: Display more digits in the progress percentage This provides more feedback during the indexing progress, which can take quite long (especially during the first run, and we don't want to upset the users right from the start). Modified Paths: -------------- trunk/base/src/macports1.0/macports.tcl Modified: trunk/base/src/macports1.0/macports.tcl =================================================================== --- trunk/base/src/macports1.0/macports.tcl 2012-02-21 17:01:20 UTC (rev 90101) +++ trunk/base/src/macports1.0/macports.tcl 2012-02-21 17:04:50 UTC (rev 90102) @@ -4075,8 +4075,10 @@ set i 1 foreach f $files { if {![macports::ui_isset ports_debug]} { - ui_msg -nonewline "\r$macports::ui_prefix Updating database of binaries: [expr $i * 100 / $files_count]%" - flush stdout + if {$files_count < 10000 || $i % 10 == 1 || $i == $files_count} { + ui_msg -nonewline "\r$macports::ui_prefix Updating database of binaries: [expr ($i * 1000 / $files_count) / 10.0]%" + flush stdout + } } ui_debug "Updating binary flag for file $i of [llength $files]: [$f path]" incr i @@ -4113,8 +4115,10 @@ set binary_count [llength $binaries] foreach b $binaries { if {![macports::ui_isset ports_debug]} { - ui_msg -nonewline "\r$macports::ui_prefix Scanning binaries for linking errors: [expr $i * 100 / $binary_count]%" - flush stdout + if {$binary_count < 10000 || $i % 10 == 1 || $i == $binary_count} { + ui_msg -nonewline "\r$macports::ui_prefix Scanning binaries for linking errors: [expr ($i * 1000 / $binary_count) / 10.0]%" + flush stdout + } } #ui_debug "$i/[llength $binaries]: [$b path]" incr i