[124150] trunk/base/src/port1.0/porttrace.tcl

[cal at macports.org]

Revision: 124150
          https://trac.macports.org/changeset/124150
Author:   cal at macports.org
Date:     2014-08-19 16:45:48 -0700 (Tue, 19 Aug 2014)
Log Message:
-----------
base: trace mode: report existing files separately, decrease verboseness for non-existent files, improve output formatting

Modified Paths:
--------------
    trunk/base/src/port1.0/porttrace.tcl

Modified: trunk/base/src/port1.0/porttrace.tcl
===================================================================
--- trunk/base/src/port1.0/porttrace.tcl	2014-08-19 23:39:12 UTC (rev 124149)
+++ trunk/base/src/port1.0/porttrace.tcl	2014-08-19 23:45:48 UTC (rev 124150)
@@ -231,9 +231,39 @@
     # Get the list of violations.
     set violations [slave_send porttrace::slave_get_sandbox_violations]
 
+    set existingFiles [list]
+    set missingFiles  [list]
     foreach violation [lsort -unique $violations] {
-        ui_warn "An activity was attempted outside sandbox: $violation"
+        if {![catch {file lstat $violation _}]} {
+            lappend existingFiles $violation
+        } else {
+            lappend missingFiles $violation
+        }
     }
+
+    set existingFilesLen [llength $existingFiles]
+    if {$existingFilesLen > 0} {
+        if {$existingFilesLen > 1} {
+            ui_warn "The following existing files were hidden from the build system by trace mode:"
+        } else {
+            ui_warn "The following existing file was hidden from the build system by trace mode:"
+        }
+        foreach violation $existingFiles {
+            ui_msg "  $violation"
+        }
+    }
+
+    set missingFilesLen [llength $missingFiles]
+    if {$missingFilesLen > 0} {
+        if {$missingFilesLen > 1} {
+            ui_info "The following files would have been hidden from the build system by trace mode if they existed:"
+        } else {
+            ui_info "The following file would have been hidden from the build system by trace mode if it existed:"
+        }
+        foreach violation $missingFiles {
+            ui_info "  $violation"
+        }
+    }
 }
 
 # Stop the trace and return the list of ports the port depends on.
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://lists.macosforge.org/pipermail/macports-changes/attachments/20140819/39082e3b/attachment.html>