[116303] trunk/dports/_resources/port1.0/group/compilers-1.0.tcl

[sean at macports.org]

Revision: 116303
          https://trac.macports.org/changeset/116303
Author:   sean at macports.org
Date:     2014-01-23 12:08:44 -0800 (Thu, 23 Jan 2014)
Log Message:
-----------
compilers-1.0: add c_active_variant_name proc

Modified Paths:
--------------
    trunk/dports/_resources/port1.0/group/compilers-1.0.tcl

Modified: trunk/dports/_resources/port1.0/group/compilers-1.0.tcl
===================================================================
--- trunk/dports/_resources/port1.0/group/compilers-1.0.tcl	2014-01-23 20:08:38 UTC (rev 116302)
+++ trunk/dports/_resources/port1.0/group/compilers-1.0.tcl	2014-01-23 20:08:44 UTC (rev 116303)
@@ -283,6 +283,21 @@
     }
 }
 
+proc c_active_variant_name {depspec} {
+    global compilers.variants compilers.fortran_variants
+    set c_list [remove_from_list ${compilers.variants} {gfortran g95}]
+
+    foreach c $c_list {
+        if {![catch {set result [active_variants $depspec $c ""]}]} {
+            if {$result} {
+                return $c
+            }
+        }
+    }
+
+    return ""
+}
+
 proc c_variant_name {} {
     global compilers.variants compilers.fortran_variants
     set c_list [remove_from_list ${compilers.variants} {gfortran g95}]
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://lists.macosforge.org/pipermail/macports-changes/attachments/20140123/3a18560b/attachment.html>