[116457] trunk/base/src/port1.0/portconfigure.tcl

larryv at macports.org larryv at macports.org
Sat Jan 25 11:16:14 PST 2014


Revision: 116457
          https://trac.macports.org/changeset/116457
Author:   larryv at macports.org
Date:     2014-01-25 11:16:13 -0800 (Sat, 25 Jan 2014)
Log Message:
-----------
portconfigure.tcl: Fold list of compiler ports into compiler_port_name.

Modified Paths:
--------------
    trunk/base/src/port1.0/portconfigure.tcl

Modified: trunk/base/src/port1.0/portconfigure.tcl
===================================================================
--- trunk/base/src/port1.0/portconfigure.tcl	2014-01-25 18:54:02 UTC (rev 116456)
+++ trunk/base/src/port1.0/portconfigure.tcl	2014-01-25 19:16:13 UTC (rev 116457)
@@ -378,17 +378,14 @@
     return [regexp {^gcc-4|llvm|apple|clang} $compiler]
 }
 
-# Mapping from compiler names to compiler ports, for private use by
-# compiler_port_name. Do not access directly.
-set portconfigure::valid_compiler_ports {
-    {^apple-gcc-(\d+)\.(\d+)$}                          {apple-gcc%s%s}
-    {^macports-clang-(\d+\.\d+)$}                       {clang-%s}
-    {^macports-dragonegg-(\d+\.\d+)(-gcc-\d+\.\d+)?$}   {dragonegg-%s%s}
-    {^macports-(llvm-)?gcc-(\d+)\.(\d+)$}               {%sgcc%s%s}
-}
-
 proc portconfigure::compiler_port_name {compiler} {
-    foreach {re fmt} $portconfigure::valid_compiler_ports {
+    set valid_compiler_ports {
+        {^apple-gcc-(\d+)\.(\d+)$}                          {apple-gcc%s%s}
+        {^macports-clang-(\d+\.\d+)$}                       {clang-%s}
+        {^macports-dragonegg-(\d+\.\d+)(-gcc-\d+\.\d+)?$}   {dragonegg-%s%s}
+        {^macports-(llvm-)?gcc-(\d+)\.(\d+)$}               {%sgcc%s%s}
+    }
+    foreach {re fmt} $valid_compiler_ports {
         if {[set matches [regexp -inline $re $compiler]] ne ""} {
             return [eval [linsert [lrange $matches 1 end] 0 format $fmt]]
         }
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://lists.macosforge.org/pipermail/macports-changes/attachments/20140125/113b95f2/attachment.html>


More information about the macports-changes mailing list