[81233] contrib/mpab/subports.tcl

[jmr at macports.org]

Revision: 81233
          http://trac.macports.org/changeset/81233
Author:   jmr at macports.org
Date:     2011-07-27 17:33:31 -0700 (Wed, 27 Jul 2011)
Log Message:
-----------
mpab: add script to find subports

Added Paths:
-----------
    contrib/mpab/subports.tcl

Added: contrib/mpab/subports.tcl
===================================================================
--- contrib/mpab/subports.tcl	                        (rev 0)
+++ contrib/mpab/subports.tcl	2011-07-28 00:33:31 UTC (rev 81233)
@@ -0,0 +1,70 @@
+#!/usr/bin/tclsh
+#
+# Generates a list of the subports for the given port.
+#
+# Copyright (c) 2011 The MacPorts Project.
+#
+# Redistribution and use in source and binary forms, with or without
+# modification, are permitted provided that the following conditions
+# are met:
+# 1. Redistributions of source code must retain the above copyright
+#    notice, this list of conditions and the following disclaimer.
+# 2. Redistributions in binary form must reproduce the above copyright
+#    notice, this list of conditions and the following disclaimer in
+#    the documentation and/or other materials provided with the
+#    distribution.
+# 3. Neither the name of the MacPorts project, nor the names of any contributors
+#    may be used to endorse or promote products derived from this software
+#    without specific prior written permission.
+#
+# THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS ``AS IS''
+# AND ANY EXPRESSED OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+# IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
+# PURPOSE ARE DISCLAIMED.  IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS
+# BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
+# CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
+# SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR
+# BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY,
+# WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE
+# OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN
+# IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
+
+if {[info exists env(PREFIX)]} {
+    set prefix $env(PREFIX)
+} else {
+    set prefix /opt/local
+}
+
+source ${prefix}/share/macports/Tcl/macports1.0/macports_fastload.tcl
+package require macports
+
+if {[catch {mportinit "" "" ""} result]} {
+   ui_error "$errorInfo"
+   fatal "Failed to initialize ports sytem: $result"
+}
+
+if {[llength $::argv] == 0} {
+    fatal "Usage: $argv0 <portname>"
+}
+
+set portname [lindex $::argv 0]
+
+if {[catch {set one_result [mportlookup $portname]}]} {
+    fatal "lookup failed for port: $portname"
+}
+puts [lindex $one_result 0]
+array set portinfo [lindex $one_result 1]
+if {[info exists portinfo(porturl)]} {
+    if {[catch {set mport [mportopen $portinfo(porturl) "" ""]}]} {
+        ui_warn "failed to open port: $portname"
+    } else {
+        array unset portinfo
+        array set portinfo [mportinfo $mport]
+        if {[info exists portinfo(subports)]} {
+            foreach subport $portinfo(subports) {
+                puts $subport
+            }
+        }
+    }
+    catch {mportclose $mport}
+}


Property changes on: contrib/mpab/subports.tcl
___________________________________________________________________
Added: svn:executable
   + *
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.macosforge.org/pipermail/macports-changes/attachments/20110727/19a87364/attachment.html>