[63273] trunk/base/src/port/port.tcl

[raimue at macports.org]

Revision: 63273
          http://trac.macports.org/changeset/63273
Author:   raimue at macports.org
Date:     2010-01-30 20:43:55 -0800 (Sat, 30 Jan 2010)
Log Message:
-----------
port/port.tcl: Only print port name in quiet mode in action_echo

Modified Paths:
--------------
    trunk/base/src/port/port.tcl

Modified: trunk/base/src/port/port.tcl
===================================================================
--- trunk/base/src/port/port.tcl	2010-01-31 04:28:00 UTC (rev 63272)
+++ trunk/base/src/port/port.tcl	2010-01-31 04:43:55 UTC (rev 63273)
@@ -2781,20 +2781,24 @@
 proc action_echo { action portlist opts } {
     # Simply echo back the port specs given to this command
     foreachport $portlist {
-        set opts {}
-        foreach { key value } [array get options] {
-            lappend opts "$key=$value"
-        }
-        
-        set composite_version [composite_version $portversion [array get variations] 1]
-        if { $composite_version != "" } {
-            set ver_field "@$composite_version"
+        if {![macports::ui_isset ports_quiet]} {
+            set opts {}
+            foreach { key value } [array get options] {
+                lappend opts "$key=$value"
+            }
+
+            set composite_version [composite_version $portversion [array get variations] 1]
+            if { $composite_version != "" } {
+                set ver_field "@$composite_version"
+            } else {
+                set ver_field ""
+            }
+            puts [format "%-30s %s %s" $portname $ver_field  [join $opts " "]]
         } else {
-            set ver_field ""
+            puts "$portname"
         }
-        puts [format "%-30s %s %s" $portname $ver_field  [join $opts " "]]
     }
-    
+
     return 0
 }
 
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.macosforge.org/pipermail/macports-changes/attachments/20100130/938bb968/attachment.html>