Add template reference processing.

Template references are words with double brackets, and refer to the
same field in the target pointed at the the double bracketed word.

For example, if a target's configuration has the following entry:

    'cflags' => '-DFOO {{x86_debug}}'

... then {{x86_debug}} will be replaced with the 'cflags' value from
target 'x86_debug'.

Note: template references are resolved recursively, and circular
references are not allowed

Reviewed-by: Andy Polyakov <appro@openssl.org>

1 files changed, 30 insertions, 0 deletions

diff --git a/Configure b/Configure
index ed1e9859b2..481eeabbab 100755
--- a/Configure
+++ b/Configure
@@ -304,6 +304,31 @@ sub stringtohash {
     return { map { shift @stringsequence => $_ } split /:/, $in };
 };
 
+# Support function to look for and resolve template references.
+# It uses breadcrumbs to check for circular template references.
+#
+# Note: Any configuration value is also a template.
+sub lookup_templates {
+    my $tableref = shift;
+    my $target = shift;
+    my @breadcrumbs = @_;
+
+    if (grep { $_ eq $target } @breadcrumbs) {
+	die "Template loop!  target backtrace:\n  ",join("\n  ",
+							 $target,
+							 @breadcrumbs),"\n";
+    }
+
+    foreach my $key (keys %{$tableref->{$target}}) {
+	my $value = $tableref->{$target}->{$key};
+	while ($value =~ /{{([-\w]+)}}/) {
+	    lookup_templates($tableref, $1, $target, @breadcrumbs);
+	    $value = $`.$tableref->{$1}->{$key}.$';
+	}
+	$tableref->{$target}->{$key} = $value;
+    }
+};
+
 
 # Read configuration target stanzas from a file, so that people can have
 # local files with their own definitions
@@ -445,6 +470,11 @@ sub read_config {
 	}
 
 	%table = (%table, %targets);
+
+	# Go through all new targets and resolve template references.
+	foreach (keys %targets) {
+	    lookup_templates(\%table, $_);
+	}
 }
 
 my ($vol, $dir, $dummy) = File::Spec->splitpath($0);