[63273] trunk/base/src/port/port.tcl
raimue at macports.org
raimue at macports.org
Sat Jan 30 20:43:57 PST 2010
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>
More information about the macports-changes
mailing list