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

[shasha at macports.org]

Revision: 121182
          https://trac.macports.org/changeset/121182
Author:   shasha at macports.org
Date:     2014-06-19 05:22:40 -0700 (Thu, 19 Jun 2014)
Log Message:
-----------
Apt-get like behaviour added

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-19 12:20:09 UTC (rev 121181)
+++ branches/gsoc14-interactive/base/src/macports1.0/macports.tcl	2014-06-19 12:22:40 UTC (rev 121182)
@@ -2049,13 +2049,30 @@
 
         # print the dep list
         if {[llength $dlist] > 0} {
-            set depstring "$macports::ui_prefix Dependencies to be installed:"
-            foreach ditem $dlist {
-                append depstring " [ditem_key $ditem provides]"
+            ##
+            # User Interaction Question
+            # Asking before installing dependencies(apt-get like)
+            if {[info exists macports::ui_options(questions_yesno)]} {
+                set deplist {}
+                foreach ditem $dlist {
+                    lappend deplist [ditem_key $ditem provides]
+                }
+                set retvalue [$macports::ui_options(questions_yesno) "The following dependencies will be installed: " "TestCase#2" [lsort $deplist] {y} 0]
+                if {$retvalue == 1} {
+                    return 0
+                } 
+            } elseif {[info exists macports::ui_options(ports_noninteractive)]
+                && $macports::ui_options(ports_noninteractive) eq "yes"} {
+                set depstring "$macports::ui_prefix Dependencies to be installed:"
+                foreach ditem $dlist {
+                    append depstring " [ditem_key $ditem provides]"
+                }
+                ui_msg $depstring
+            } else {
+                ui_error "Not sure if interactive or non-interactive."
             }
-            ui_msg $depstring
         }
-
+		
         # install them
         set result [dlist_eval $dlist _mportactive [list _mportexec activate]]
 
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://lists.macosforge.org/pipermail/macports-changes/attachments/20140619/20331eab/attachment.html>