[137673] branches/gsoc15-portfile/port-create

[chunyang at macports.org]

Revision: 137673
          https://trac.macports.org/changeset/137673
Author:   chunyang at macports.org
Date:     2015-06-16 23:10:36 -0700 (Tue, 16 Jun 2015)
Log Message:
-----------
port-create: Add option to write output to file

Modified Paths:
--------------
    branches/gsoc15-portfile/port-create

Modified: branches/gsoc15-portfile/port-create
===================================================================
--- branches/gsoc15-portfile/port-create	2015-06-17 05:25:20 UTC (rev 137672)
+++ branches/gsoc15-portfile/port-create	2015-06-17 06:10:36 UTC (rev 137673)
@@ -53,8 +53,10 @@
     {url.arg      ""  "set the tarball URL of port"}
     {name.arg     ""  "set the name of port"}
     {version.arg  ""  "set the version of port"}
+    {outfile.arg  ""  "write output to file"}
 }
-set usage ": $argv0 \[-url <url>] \[-name <name>] \[-version <version>]\noptions:"
+
+set usage ": $argv0 \[-url <url>] \[-name <name>] \[-version <version>] \[-outfile <outfile>]\noptions:"
 if {[catch {array set params [cmdline::getoptions ::argv $options $usage]}]} {
     puts [cmdline::usage $options $usage]
     exit 2
@@ -83,4 +85,10 @@
     set template [string map "PortVersion $version" $template]
 }
 
-puts -nonewline $template
+if {[expr {[string length $params(outfile)] > 0}]} {
+    set outfile [open $params(outfile) w]
+    puts -nonewline $outfile $template
+    close $outfile
+} else {
+    puts -nonewline $template
+}
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://lists.macosforge.org/pipermail/macports-changes/attachments/20150616/3205130f/attachment.html>