Skip to content
Permalink
Browse files

Enhance echo action to always show the variants, even if no version w…

…as specified.

git-svn-id: https://svn.macports.org/repository/macports/trunk/base@14531 d073be05-634f-4543-b044-5fe20cf6d1d6
  • Loading branch information
jdberry committed Oct 10, 2005
1 parent e79033d commit 28f552968346a536db3c7740eb3339bd28b0c08b
Showing with 4 additions and 4 deletions.
  1. +4 −4 src/port/port.tcl
@@ -2,7 +2,7 @@
#\
exec @TCLSH@ "$0" "$@"
# port.tcl
# $Id: port.tcl,v 1.118 2005/10/10 14:11:39 jberry Exp $
# $Id: port.tcl,v 1.119 2005/10/10 14:19:04 jberry Exp $
#
# Copyright (c) 2004 Robert Shaw <rshaw@opendarwin.org>
# Copyright (c) 2002 Apple Computer, Inc.
@@ -212,7 +212,7 @@ proc fatal_softcontinue s {


# Form a composite version as is sometimes used for registry functions
proc composite_version {version variations} {
proc composite_version {version variations {emptyVersionOkay 0}} {
# Form a composite version out of the version and variations

# Select the variations into positive and negative
@@ -228,7 +228,7 @@ proc composite_version {version variations} {

# If there is no version, we have nothing to do
set composite_version ""
if {$version != ""} {
if {$version != "" || $emptyVersionOkay} {
set pos_str ""
set neg_str ""

@@ -1698,7 +1698,7 @@ switch -- $action {
lappend opts "$key=$value"
}

puts [format "%-30s %s %s" $portname [composite_version $portversion [array get variations]] [join $opts " "]]
puts [format "%-30s %s %s" $portname [composite_version $portversion [array get variations] 1] [join $opts " "]]
}
}

0 comments on commit 28f5529

Please sign in to comment.
You can’t perform that action at this time.