Ticket #11892: dry.patch

(a) src/port/port vs. (b) /opt/mpq/bin/port.hack

@@ -2161 +2161 @@
         pkg                     action_target
         rpmpackage      action_target
 
+        dry             action_target
+
         quit            action_exit
         exit            action_exit
 }

darwinports1.0/darwinports.tcl

@@ -957 +957 @@
         if {![catch {$workername eval eval_variants variations $target} result] && $result == 0 &&
                 ![catch {$workername eval eval_targets $target} result] && $result == 0} {
                 # If auto-clean mode, clean-up after dependency install
-                if {[string equal ${darwinports::portautoclean} "yes"]} {
+                if {$target != "dry" && [string equal ${darwinports::portautoclean} "yes"]} {
                         # Make sure we are back in the port path before clean
                         # otherwise if the current directory had been changed to
                         # inside the port,  the next port may fail when trying to
@@ -977 +977 @@
 # dportexec
 # Execute the specified target of the given dport.
 
+proc false {args} {
+  return 0
+}
+
 proc dportexec {dport target} {
     global darwinports::registry.installtype
 
@@ -997 +1001 @@
         if {$target == "configure" || $target == "build"
                 || $target == "test"
                 || $target == "destroot" || $target == "install"
-                || $target == "archive"
+                || $target == "archive" || $target == "dry"
                 || $target == "pkg" || $target == "mpkg"
                 || $target == "rpmpackage" || $target == "dpkg" } {
 
@@ -1014 +1018 @@
                 # install them
                 # xxx: as with below, this is ugly.  and deps need to be fixed to
                 # understand Port Images before this can get prettier
-                if { [string equal ${darwinports::registry.installtype} "image"] } {
+                if { $target == "dry" } {  # if this is a dry run, then run all dependencies dry
+                    set result [dlist_eval $dlist false [list _dportexec "dry"]]
+                } elseif { [string equal ${darwinports::registry.installtype} "image"] } {
                         set result [dlist_eval $dlist _dportinstalled [list _dportexec "activate"]]
                 } else {
                         set result [dlist_eval $dlist _dportinstalled [list _dportexec "install"]]
                 }
-                
+
                 if {$result != {}} {
                         set errstring "The following dependencies failed to build:"
                         foreach ditem $result {
@@ -1282 +1288 @@
                 mpkg            -
                 rpmpackage      -
                 dpkg            -
+                dry                     { set deptypes "depends_lib depends_build depends_run" }
                 ""                      { set deptypes "depends_lib depends_build depends_run" }
         }
         

port1.0/port.tcl

@@ -51 +51 @@
 package require portdistcheck 1.0
 package require portlivecheck 1.0
 package require portmirror 1.0
+package require portdry 1.0