[137845] branches/gsoc15-portfile/base/src/port/port.tcl

[chunyang at macports.org]

Revision: 137845
          https://trac.macports.org/changeset/137845
Author:   chunyang at macports.org
Date:     2015-06-21 08:52:48 -0700 (Sun, 21 Jun 2015)
Log Message:
-----------
base: Add port create action

Modified Paths:
--------------
    branches/gsoc15-portfile/base/src/port/port.tcl

Modified: branches/gsoc15-portfile/base/src/port/port.tcl
===================================================================
--- branches/gsoc15-portfile/base/src/port/port.tcl	2015-06-21 15:31:29 UTC (rev 137844)
+++ branches/gsoc15-portfile/base/src/port/port.tcl	2015-06-21 15:52:48 UTC (rev 137845)
@@ -3843,6 +3843,19 @@
 }
 
 
+proc action_create { action portlist opts } {
+    puts "Creating Portfile Template..."
+
+    set idx 0
+    foreach arg $portlist {
+        puts "$idx = $arg"
+        incr idx
+    }
+
+    return 0
+}
+
+
 proc action_echo { action portlist opts } {
     global global_options
 
@@ -4258,6 +4271,8 @@
     search      [list action_search         [ACTION_ARGS_STRINGS]] \
     list        [list action_list           [ACTION_ARGS_PORTS]] \
     \
+    create      [list action_create         [ACTION_ARGS_STRINGS]] \
+    \
     edit        [list action_portcmds       [ACTION_ARGS_PORTS]] \
     cat         [list action_portcmds       [ACTION_ARGS_PORTS]] \
     dir         [list action_portcmds       [ACTION_ARGS_PORTS]] \
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://lists.macosforge.org/pipermail/macports-changes/attachments/20150621/ffaa28e0/attachment.html>