Ticket #32542: auto-compiler-deps.2.diff

trunk/base/src/port1.0/portconfigure.tcl

@@ -2 +2 @@
 # portconfigure.tcl
 # $Id$
 #
-# Copyright (c) 2007 - 2012 The MacPorts Project
+# Copyright (c) 2007 - 2013 The MacPorts Project
 # Copyright (c) 2007 Markus W. Weissmann <mww@macports.org>
 # Copyright (c) 2002 - 2003 Apple Inc.
 # All rights reserved.
@@ -186 +186 @@
 default configure.f90           {[portconfigure::configure_get_compiler f90]}
 default configure.fc            {[portconfigure::configure_get_compiler fc]}
 default configure.javac         {[portconfigure::configure_get_compiler javac]}
-default configure.compiler      {[portconfigure::configure_get_default_compiler]}
 default compiler.fallback       {[portconfigure::get_compiler_fallback]}
 default compiler.blacklist      {}
 default compiler.whitelist      {}
+# configure.compiler has been moved towards the end of the file so that
+# all procs are available when its option_proc is triggered on initial
+# write.
 
 set_ui_prefix
 
@@ -757 +759 @@
     return $ret
 }
 
+# Helper function for set_compiler_dependencies.  Used to force
+# "depends_FOO" to act like "depends_FOO-append"; otherwise portfiles
+# would overwrite the automatic compiler dependencies with their
+# "depends_FOO" statements.
+proc portconfigure::hijack_option {option} {
+    if {[exists $option]} {return}
+    interp alias {} $option {} handle_option-append $option
+}
+
+# Automatically add the necessary dependency when setting the compiler.
+proc portconfigure::set_compiler_dependencies {option action args} {
+    switch $action {
+        read {
+            if {$option ne "configure.compiler"} {return}
+            if {![info exists ::option_defaults(configure.compiler)]} {return}
+            if {[info exists portconfigure::compiler_port]} {return}
+        }
+        set {
+            if {$option ne "configure.compiler" &&
+                ![info exists ::option_defaults(configure.compiler)]
+            } then {
+                return
+            }
+        }
+    }
+
+    if {[info exists portconfigure::compiler_port]} {
+        depends_lib-delete port:$portconfigure::compiler_port
+        depends_build-delete port:$portconfigure::compiler_port
+        depends_skip_archcheck-delete $portconfigure::compiler_port
+        unset portconfigure::compiler_port
+    }
+
+    global configure.compiler
+    set compiler [subst ${configure.compiler}]
+
+    # For the compiler lists, triggering the configure.compiler read
+    # trace is sufficient.
+    if {$option ne "configure.compiler" || ![compiler_is_port $compiler]} {
+        return
+    }
+
+    variable compiler_port $portconfigure::compiler_name_map($compiler)
+    if {[string match "macports-gcc*" $compiler]} {
+        hijack_option depends_lib
+        depends_lib-append port:$portconfigure::compiler_port
+    } else {
+        hijack_option depends_build
+        depends_build-append port:$portconfigure::compiler_port
+    }
+    if {[arch_flag_supported $compiler]} {
+        hijack_option depends_skip_archcheck
+        depends_skip_archcheck-append $portconfigure::compiler_port
+    }
+}
+
+# Set traces on all values that might affect the compiler selection.
+option_proc compiler.fallback  portconfigure::set_compiler_dependencies
+option_proc compiler.blacklist portconfigure::set_compiler_dependencies
+option_proc compiler.whitelist portconfigure::set_compiler_dependencies
+option_proc configure.compiler portconfigure::set_compiler_dependencies
+
+default configure.compiler {[portconfigure::configure_get_default_compiler]}
+
+
 proc portconfigure::configure_main {args} {
     global [info globals]
     global worksrcpath use_configure use_autoreconf use_autoconf use_automake use_xmkmf