Skip to content
Permalink
Browse files

Accept command line arguments of specific ports to package.

git-svn-id: https://svn.macports.org/repository/macports/trunk/base@2133 d073be05-634f-4543-b044-5fe20cf6d1d6
  • Loading branch information
Kevin Van Vechten
Kevin Van Vechten committed Mar 3, 2003
1 parent d9684ab commit 3cb8891a012f75f25640eea777066cbebc51e6ae
Showing with 11 additions and 3 deletions.
  1. +11 −3 src/portmgr/packageall.tcl
@@ -157,8 +157,6 @@ proc install_binary_if_available {portname basepath} {
return
}
foreach {name array} $res {
#xxx: kvv
if {$name == "XFree86"} { continue }
array set portinfo $array
if {![info exists portinfo(version)]} { continue }
if {![info exists portinfo(categories)]} { continue }
@@ -211,7 +209,14 @@ if {[catch {dportinit} result]} {

package require Pextlib

if {[catch {set res [dportsearch .*]} result]} {
# If no arguments were given, default to all ports.
if {[llength $argv] == 0} {
lappend argv ".*"
}

foreach pname $argv {

if {[catch {set res [dportsearch "^${pname}\$"]} result]} {
puts "port search failed: $result"
exit 1
}
@@ -395,3 +400,6 @@ foreach {name array} $res {
set logfd ""
file delete ${logpath}/${name}.log
}

}
# end foreach pname

0 comments on commit 3cb8891

Please sign in to comment.
You can’t perform that action at this time.