Changeset 14531 for trunk/base

Timestamp:

Oct 10, 2005, 2:19:04 PM (19 years ago)

Author:

jberry

Message:

Enhance echo action to always show the variants, even if no version was specified.

File:

• trunk/base/src/port/port.tcl (modified) (4 diffs)

trunk/base/src/port/port.tcl

@@ -3 +3 @@
 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>
@@ -213 +213 @@
 
 # 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
         
@@ -229 +229 @@
         # If there is no version, we have nothing to do
         set composite_version ""
-        if {$version != ""} {
+        if {$version != "" || $emptyVersionOkay} {
                 set pos_str ""
                 set neg_str ""
@@ -1699 +1699 @@
                         }
                         
-                        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 " "]]
                 }
         }