Changeset 11012


Ignore:
Timestamp:
Feb 16, 2005, 6:04:45 PM (15 years ago)
Author:
rshaw
Message:

Enhanced port "info", "variants", and "deps" commands to work without
specifying the port name if you are in a port directory already (uses
the basename of the current directory as the port name).

File:
1 edited

Legend:

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

    r10961 r11012  
    222222switch -- $action {
    223223        info {
     224                # if no port name given on command line, default to current
     225                # directory base name (if Portfile exists)
    224226                if {![info exists portname]} {
    225                         puts "You must specify a port"
    226                         exit 1
     227                        if {[file exists Portfile]} {
     228                                set portname [file tail [pwd]]
     229                        } else {
     230                                puts "You must specify a port or be in a port directory"
     231                                exit 1
     232                        }
    227233                }
    228234       
     
    622628                set nodeps true
    623629
    624                 # make sure a port was given on the command line
     630                # if no port name given on command line, default to current
     631                # directory base name (if Portfile exists)
    625632                if {![info exists portname]} {
    626                         puts "You must specify a port"
    627                         exit 1
     633                        if {[file exists Portfile]} {
     634                                set portname [file tail [pwd]]
     635                        } else {
     636                                puts "You must specify a port or be in a port directory"
     637                                exit 1
     638                        }
    628639                }
    629640
     
    674685        }
    675686        variants {
    676                 # make sure a port was given on the command line
     687                # if no port name given on command line, default to current
     688                # directory base name (if Portfile exists)
    677689                if {![info exists portname]} {
    678                         puts "You must specify a port"
    679                         exit 1
     690                        if {[file exists Portfile]} {
     691                                set portname [file tail [pwd]]
     692                        } else {
     693                                puts "You must specify a port or be in a port directory"
     694                                exit 1
     695                        }
    680696                }
    681697       
Note: See TracChangeset for help on using the changeset viewer.