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

[raimue at macports.org]

Revision: 66789
          http://trac.macports.org/changeset/66789
Author:   raimue at macports.org
Date:     2010-04-22 17:46:23 -0700 (Thu, 22 Apr 2010)
Log Message:
-----------
macport1.0: Add new message level ui_notice which will be omitted in quiet mode

Modified Paths:
--------------
    trunk/base/src/macports1.0/macports.tcl

Modified: trunk/base/src/macports1.0/macports.tcl
===================================================================
--- trunk/base/src/macports1.0/macports.tcl	2010-04-23 00:43:16 UTC (rev 66788)
+++ trunk/base/src/macports1.0/macports.tcl	2010-04-23 00:46:23 UTC (rev 66789)
@@ -63,7 +63,7 @@
 
     variable open_mports {}
 
-    variable ui_priorities "error warn msg info debug any"
+    variable ui_priorities "error warn msg notice info debug any"
     variable port_phases "any fetch checksum"
     variable current_phase "main"
 }
@@ -282,13 +282,16 @@
                 return {}
             }
         }
-        msg {
+        notice {
             if {[ui_isset ports_quiet]} {
                 return {}
             } else {
                 return {stdout}
             }
         }
+        msg {
+            return {stdout}
+        }
         warn -
         error {
             return {stderr}
@@ -1495,7 +1498,7 @@
         # An error occurred.
         global ::logenabled ::debuglogname
         if {[info exists ::logenabled] && $::logenabled && [info exists ::debuglogname]} {
-            ui_msg "Log for $portname is at: $::debuglogname"
+            ui_notice "Log for $portname is at: $::debuglogname"
         }
         macports::pop_log
         return 1
@@ -1617,8 +1620,8 @@
     
     global ::logenabled ::debuglogname
     if {[info exists ::logenabled] && $::logenabled && [info exists ::debuglogname]} {
-        if {$result != 0 && ![macports::ui_isset ports_quiet]} {
-            ui_msg "Log for $portname is at: $::debuglogname"
+        if {$result != 0} {
+            ui_notice "Log for $portname is at: $::debuglogname"
         }
         macports::pop_log
     }
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.macosforge.org/pipermail/macports-changes/attachments/20100422/bb27145e/attachment.html>