Changeset 2133 for trunk/base

Timestamp:

Mar 3, 2003, 8:09:57 AM (21 years ago)

Author:

kevin

Message:

Accept command line arguments of specific ports to package.

File:

• trunk/base/src/portmgr/packageall.tcl (modified) (3 diffs)

trunk/base/src/portmgr/packageall.tcl

@@ -158 +158 @@
         }
         foreach {name array} $res {
-#xxx: kvv
-if {$name == "XFree86"} { continue }
                 array set portinfo $array
                 if {![info exists portinfo(version)]} { continue }
@@ -212 +210 @@
 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
@@ -396 +401 @@
         file delete ${logpath}/${name}.log
 }
+
+}
+# end foreach pname