kay's perl branch

src/include/makeEpicsVersion.pl

@@ -0,0 +1,36 @@
+#!/usr/local/bin/perl
+#
+
+print "Building epicsVersion.h from CONFIG_BASE_VERSION\n";
+
+die unless $#ARGV==0;
+
+open VARS, $ARGV[0] or die "Cannot get variables from $ARGV[0]";
+
+while (<VARS>)
+{
+	if (/EPICS_VERSION=(.*)/)	{ $ver = $1; }
+	if (/EPICS_REVISION=(.*)/)	{ $rev = $1; }
+	if (/EPICS_MODIFICATION=(.*)/)	{ $mod = $1; }
+	if (/EPICS_UPDATE_NAME=(.*)/)	{ $upd_name = $1; }
+	if (/EPICS_UPDATE_LEVEL=(.*)/)	{ $upd_level = $1; }
+	if (/CVS_DATE="\\(.*)"/)	{ $cvs_date = $1; }
+}
+
+$ver_str = "$ver.$rev.$mod.$upd_name.$upd_level";
+
+print "Found EPICS Version $ver_str\n";
+
+open OUT, ">epicsVersion.h";
+
+print OUT "#define BASE_VERSION        $ver\n";
+print OUT "#define BASE_REVISION       $rev\n";
+print OUT "#define BASE_MODIFICATION   $mod\n";
+print OUT "#define BASE_UPDATE_NAME    $upd_name\n";
+print OUT "#define BASE_UPDATE_LEVEL   $upd_level\n";
+print OUT "#define BASE_VERSION_STRING \"EPICS Version $ver_str\"\n";
+print OUT "#define epicsReleaseVersion \"@(#)Version R$ver_str $cvs_date\"\n";
+
+close OUT;
+
+