[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