Changeset 63273


Ignore:
Timestamp:
Jan 31, 2010, 4:43:55 AM (10 years ago)
Author:
raimue@…
Message:

port/port.tcl: Only print port name in quiet mode in action_echo

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/base/src/port/port.tcl

    r63272 r63273  
    27822782    # Simply echo back the port specs given to this command
    27832783    foreachport $portlist {
    2784         set opts {}
    2785         foreach { key value } [array get options] {
    2786             lappend opts "$key=$value"
    2787         }
    2788        
    2789         set composite_version [composite_version $portversion [array get variations] 1]
    2790         if { $composite_version != "" } {
    2791             set ver_field "@$composite_version"
     2784        if {![macports::ui_isset ports_quiet]} {
     2785            set opts {}
     2786            foreach { key value } [array get options] {
     2787                lappend opts "$key=$value"
     2788            }
     2789
     2790            set composite_version [composite_version $portversion [array get variations] 1]
     2791            if { $composite_version != "" } {
     2792                set ver_field "@$composite_version"
     2793            } else {
     2794                set ver_field ""
     2795            }
     2796            puts [format "%-30s %s %s" $portname $ver_field  [join $opts " "]]
    27922797        } else {
    2793             set ver_field ""
    2794         }
    2795         puts [format "%-30s %s %s" $portname $ver_field  [join $opts " "]]
    2796     }
    2797    
     2798            puts "$portname"
     2799        }
     2800    }
     2801
    27982802    return 0
    27992803}
Note: See TracChangeset for help on using the changeset viewer.