[151033] contrib/mp-buildbot/tools/supported-archs.tcl

ryandesign at macports.org ryandesign at macports.org
Fri Aug 5 14:18:41 PDT 2016


Revision: 151033
          https://trac.macports.org/changeset/151033
Author:   ryandesign at macports.org
Date:     2016-08-05 14:18:41 -0700 (Fri, 05 Aug 2016)
Log Message:
-----------
mp-buildbot: add supported-archs.tcl

Added Paths:
-----------
    contrib/mp-buildbot/tools/supported-archs.tcl

Added: contrib/mp-buildbot/tools/supported-archs.tcl
===================================================================
--- contrib/mp-buildbot/tools/supported-archs.tcl	                        (rev 0)
+++ contrib/mp-buildbot/tools/supported-archs.tcl	2016-08-05 21:18:41 UTC (rev 151033)
@@ -0,0 +1,79 @@
+#!/usr/bin/env port-tclsh
+# Generates a list of supported architectures for the given port.
+#
+# Copyright (c) 2016 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
+}
+
+if {[llength $::argv] == 0} {
+    puts stderr "Usage: $argv0 <portname>"
+    exit 1
+} elseif {[llength $::argv] >= 3 && [lindex $argv 0] eq "-i"} {
+    set prefixFromInterp [file dirname [file dirname [lindex $argv 1]]]
+    if {$prefixFromInterp ne $prefix} {
+        if {[file executable ${prefix}/bin/port-tclsh]} {
+            exec ${prefix}/bin/port-tclsh $argv0 {*}[lrange $::argv 2 end] <@stdin >@stdout 2>@stderr
+            exit 0
+        } else {
+            puts stderr "No port-tclsh found in ${prefix}/bin"
+            exit 1
+        }
+    }
+    set ::argv [lrange $::argv 2 end]
+}
+
+package require macports
+
+if {[catch {mportinit "" "" ""} result]} {
+   ui_error "$errorInfo"
+   ui_error "Failed to initialize ports sytem: $result"
+   exit 1
+}
+
+set portname [lindex $::argv 0]
+
+if {[catch {set one_result [mportlookup $portname]}] || [llength $one_result] < 2} {
+    ui_error "No port named ${portname} could be found in the port index"
+    exit 1
+}
+
+array set portinfo [lindex $one_result 1]
+set portname $portinfo(name)
+
+if {[info exists portinfo(porturl)]} {
+    if {[catch {set mport [mportopen $portinfo(porturl)]}]} {
+        ui_warn "failed to open port: $portname"
+    } else {
+        puts [_mportkey $mport supported_archs]
+    }
+    catch {mportclose $mport}
+}


Property changes on: contrib/mp-buildbot/tools/supported-archs.tcl
___________________________________________________________________
Added: svn:executable
   + *
Added: svn:keywords
   + Id
Added: svn:eol-style
   + native
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://lists.macosforge.org/pipermail/macports-changes/attachments/20160805/d1d1549f/attachment.html>


More information about the macports-changes mailing list