Changeset 14531 for trunk/base


Ignore:
Timestamp:
Oct 10, 2005, 2:19:04 PM (15 years ago)
Author:
jberry
Message:

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

File:
1 edited

Legend:

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

    r14530 r14531  
    33exec @TCLSH@ "$0" "$@"
    44# port.tcl
    5 # $Id: port.tcl,v 1.118 2005/10/10 14:11:39 jberry Exp $
     5# $Id: port.tcl,v 1.119 2005/10/10 14:19:04 jberry Exp $
    66#
    77# Copyright (c) 2004 Robert Shaw <rshaw@opendarwin.org>
     
    213213
    214214# Form a composite version as is sometimes used for registry functions
    215 proc composite_version {version variations} {
     215proc composite_version {version variations {emptyVersionOkay 0}} {
    216216        # Form a composite version out of the version and variations
    217217       
     
    229229        # If there is no version, we have nothing to do
    230230        set composite_version ""
    231         if {$version != ""} {
     231        if {$version != "" || $emptyVersionOkay} {
    232232                set pos_str ""
    233233                set neg_str ""
     
    16991699                        }
    17001700                       
    1701                         puts [format "%-30s %s %s" $portname [composite_version $portversion [array get variations]] [join $opts " "]]
     1701                        puts [format "%-30s %s %s" $portname [composite_version $portversion [array get variations] 1] [join $opts " "]]
    17021702                }
    17031703        }
Note: See TracChangeset for help on using the changeset viewer.