[37246] users/raimue/find-variables-in-portindex.tcl

[raimue at macports.org]

Revision: 37246
          http://trac.macosforge.org/projects/macports/changeset/37246
Author:   raimue at macports.org
Date:     2008-05-31 16:39:10 -0700 (Sat, 31 May 2008)

Log Message:
-----------
A little helper script I used to generate the list of options 'port info'
accepts (all variables from the PortIndex)

Added Paths:
-----------
    users/raimue/find-variables-in-portindex.tcl

Added: users/raimue/find-variables-in-portindex.tcl
===================================================================
--- users/raimue/find-variables-in-portindex.tcl	                        (rev 0)
+++ users/raimue/find-variables-in-portindex.tcl	2008-05-31 23:39:10 UTC (rev 37246)
@@ -0,0 +1,27 @@
+#!/usr/bin/env tclsh
+
+if {$argc != 1} {
+    puts stderr "Usage: $argv0 PortIndex"
+    exit
+}
+
+set fd [open [lindex $argv 0] r]
+
+set vars {}
+while {[gets $fd line] >= 0} {
+    set name [lindex $line 0]
+    set len [lindex $line 1]
+    set line [read $fd $len]
+
+    set swx 1
+    foreach item $line {
+        if {$swx} {
+            lappend vars $item
+        }
+        set swx [expr !$swx]
+    }
+}
+
+set vars [lsort -unique $vars]
+
+puts $vars


Property changes on: users/raimue/find-variables-in-portindex.tcl
___________________________________________________________________
Name: svn:executable
   + *
Name: svn:keywords
   + Id
Name: svn:eol-style
   + native

-------------- next part --------------
An HTML attachment was scrubbed...
URL: http://lists.macosforge.org/pipermail/macports-changes/attachments/20080531/2880ff6c/attachment.htm