[134397] contrib/restore_ports/restore_ports.tcl
jmr at macports.org
jmr at macports.org
Tue Mar 24 08:43:58 PDT 2015
Revision: 134397
https://trac.macports.org/changeset/134397
Author: jmr at macports.org
Date: 2015-03-24 08:43:58 -0700 (Tue, 24 Mar 2015)
Log Message:
-----------
restore_ports: add -v option for verbose mode
Modified Paths:
--------------
contrib/restore_ports/restore_ports.tcl
Modified: contrib/restore_ports/restore_ports.tcl
===================================================================
--- contrib/restore_ports/restore_ports.tcl 2015-03-24 15:28:30 UTC (rev 134396)
+++ contrib/restore_ports/restore_ports.tcl 2015-03-24 15:43:58 UTC (rev 134397)
@@ -215,6 +215,7 @@
set macportsPrefix /opt/local
set showVersion 0
+array set ui_options {}
set origArgv $::argv
while {[string index [lindex $::argv 0] 0] == "-" } {
@@ -240,6 +241,9 @@
V {
set showVersion 1
}
+ v {
+ set ui_options(ports_verbose) yes
+ }
default {
puts stderr "Unknown option [lindex $::argv 0]"
printUsage
@@ -276,7 +280,7 @@
package require macports
package require Pextlib 1.0
umask 022
-mportinit
+mportinit ui_options
if {$showVersion} {
puts "Version $MY_VERSION"
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://lists.macosforge.org/pipermail/macports-changes/attachments/20150324/f5376fd8/attachment.html>
More information about the macports-changes
mailing list