[90102] trunk/base/src/macports1.0/macports.tcl

[cal at macports.org]

Revision: 90102
          http://trac.macports.org/changeset/90102
Author:   cal at 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
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.macosforge.org/pipermail/macports-changes/attachments/20120221/cd5a4f0e/attachment.html>