Changeset 2133


Ignore:
Timestamp:
Mar 3, 2003, 8:09:57 AM (17 years ago)
Author:
kevin
Message:

Accept command line arguments of specific ports to package.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/base/src/portmgr/packageall.tcl

    r2102 r2133  
    158158        }
    159159        foreach {name array} $res {
    160 #xxx: kvv
    161 if {$name == "XFree86"} { continue }
    162160                array set portinfo $array
    163161                if {![info exists portinfo(version)]} { continue }
     
    212210package require Pextlib
    213211
    214 if {[catch {set res [dportsearch .*]} result]} {
     212# If no arguments were given, default to all ports.
     213if {[llength $argv] == 0} {
     214        lappend argv ".*"
     215}
     216
     217foreach pname $argv {
     218
     219if {[catch {set res [dportsearch "^${pname}\$"]} result]} {
    215220        puts "port search failed: $result"
    216221        exit 1
     
    396401        file delete ${logpath}/${name}.log
    397402}
     403
     404}
     405# end foreach pname
Note: See TracChangeset for help on using the changeset viewer.