[120983] branches/gsoc14-interactive/base/src/macports1.0/macports.tcl

[shasha at macports.org]

Revision: 120983
          https://trac.macports.org/changeset/120983
Author:   shasha at macports.org
Date:     2014-06-13 09:51:06 -0700 (Fri, 13 Jun 2014)
Log Message:
-----------
First attempt at interaction

Modified Paths:
--------------
    branches/gsoc14-interactive/base/src/macports1.0/macports.tcl

Modified: branches/gsoc14-interactive/base/src/macports1.0/macports.tcl
===================================================================
--- branches/gsoc14-interactive/base/src/macports1.0/macports.tcl	2014-06-13 16:49:17 UTC (rev 120982)
+++ branches/gsoc14-interactive/base/src/macports1.0/macports.tcl	2014-06-13 16:51:06 UTC (rev 120983)
@@ -4614,6 +4614,15 @@
         }
         set broken_ports [lsort -unique $broken_ports]
 
+		##
+		# User Interaction Question
+		# Asking before rebuilding in rev-upgrade
+		ui_msg "You can always run 'port rev-upgrade' again to fix errors."
+		set retvalue [ui_ask_yesno "The following ports will be rebuilt:" "TestCase#1" $broken_ports {y} 0]
+		if {retvalue == 1} {
+			set $macports::revupgrade_mode dontrebuild
+		}
+		
         if {$macports::revupgrade_mode eq {rebuild}} {
             # don't try to rebuild ports that don't exist in the tree
             set temp_broken_ports {}
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://lists.macosforge.org/pipermail/macports-changes/attachments/20140613/954a2ab7/attachment.html>