Changeset 14667 for trunk/base


Ignore:
Timestamp:
Oct 17, 2005, 12:45:14 AM (15 years ago)
Author:
jberry
Message:

For "port installed foo", make sure we report one way or another whether foo is
installed. If it's not installed, state that. Behavior before this change was
to give no message for a port that was not installed, giving output only
for the installed ports.

This reverts more toward the behavior in 1.1, but I'm not sure it's completely
what we want.

"port installed a b c" might say:

port a is not installed
b 1.2 (active)
c 1.0

"port installed all" would tell you for each port whether it is installed or not.

Feedback welcome. Credit to Juan for reporting this change in behavior.

File:
1 edited

Legend:

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

    r14592 r14667  
    33exec @TCLSH@ "$0" "$@"
    44# port.tcl
    5 # $Id: port.tcl,v 1.135 2005/10/13 04:41:13 jberry Exp $
     5# $Id: port.tcl,v 1.136 2005/10/17 00:45:14 jberry Exp $
    66#
    77# Copyright (c) 2004 Robert Shaw <rshaw@opendarwin.org>
     
    14011401        if { [llength $portlist] } {
    14021402                        set ilist {}
    1403                 foreach portspec $portlist {
    1404                         array set port $portspec
    1405                         set portname $port(name)
    1406                         set composite_version [composite_version $port(version) $port(variants)]
     1403                        foreachport $portlist {
     1404                        set composite_version [composite_version $portversion [array get variations]]
    14071405                                if { [catch {set ilist [concat $ilist [registry::installed $portname $composite_version]]} result] } {
    1408                                         if {![string match "* not registered as installed." $result]} {
     1406                                        if {[string match "* not registered as installed." $result]} {
     1407                                                puts "Port $portname is not installed."
     1408                                        } else {
    14091409                                                global errorInfo
    14101410                                                ui_debug "$errorInfo"
     
    14161416            if { [catch {set ilist [registry::installed]} result] } {
    14171417                if {$result == "Registry error: No ports registered as installed."} {
    1418                     fatal "No ports installed!"
     1418                    puts "No ports are installed!"
    14191419                } else {
    14201420                                        global errorInfo
Note: See TracChangeset for help on using the changeset viewer.