build: Add Perl script to help decode the version file.

peter-b · peter-b · commit 65f5f5a553f1 · 2015-10-27T12:29:19.000Z
The build configuration needs to parse the `version` file to generate
some version-dependent parameters.  Unfortunately passing literal
regular expressions on the perl command line was difficult to escape
properly on Windows.  This moves the parsing into a helper script.
diff --git a/config/version.gypi b/config/version.gypi
@@ -1,12 +1,11 @@
 {
 	'variables':
 	{
-		'version_major': "<!(perl -n -e '/^BUILD_MAJOR_VERSION[[:blank:]]*=[[:blank:]]*(.*)$/ && print $1' <(DEPTH)/version)",
-		'version_minor': "<!(perl -n -e '/^BUILD_MINOR_VERSION[[:blank:]]*=[[:blank:]]*(.*)$/ && print $1' <(DEPTH)/version)",
-		'version_point': "<!(perl -n -e '/^BUILD_POINT_VERSION[[:blank:]]*=[[:blank:]]*(.*)$/ && print $1' <(DEPTH)/version)",
-		'version_build': "<!(perl -n -e '/^BUILD_REVISION[[:blank:]]*=[[:blank:]]*(.*)$/ && print $1' <(DEPTH)/version)",
-	
-		'version_string': "<!(perl -n -e '/^BUILD_SHORT_VERSION[[:blank:]]*=[[:blank:]]*(.*)$/ && print $1' <(DEPTH)/version)",
+		'version_major': "<!(perl <(DEPTH)/util/decode_version.pl BUILD_MAJOR_VERSION <(DEPTH)/version)",
+		'version_minor': "<!(perl <(DEPTH)/util/decode_version.pl BUILD_MINOR_VERSION <(DEPTH)/version)",
+		'version_point': "<!(perl <(DEPTH)/util/decode_version.pl BUILD_POINT_VERSION <(DEPTH)/version)",
+		'version_build': "<!(perl <(DEPTH)/util/decode_version.pl BUILD_REVISION <(DEPTH)/version)",
+		'version_string': "<!(perl <(DEPTH)/util/decode_version.pl BUILD_SHORT_VERSION <(DEPTH)/version)",
 
 		'git_revision': '<!(git rev-parse HEAD)',
 	},
diff --git a/util/decode_version.pl b/util/decode_version.pl
@@ -0,0 +1,9 @@
+#!/usr/bin/env perl
+
+open(FILE, $ARGV[1]) || die "Can't open input file";
+
+my $expr = "^${ARGV[0]}[[:blank:]]*=[[:blank:]]*(.*)\$";
+
+while (<FILE>) {
+	if (/$expr/) { print $1 }
+}
