kay's perl branch

This commit is contained in:
Jeff Hill
1997-04-11 20:44:03 +00:00
parent 8d6deea83d
commit 8013fecb61
24 changed files with 1981 additions and 126 deletions

View File

@@ -8,7 +8,7 @@ INC += epicsVersion.h
INC += gsd_sync_defs.h
INC += module_types.h
INC += shareLib.h
INC += createSoftLinks.sh
#INC += createSoftLinks.sh
INC += bsdProto.h
INC += task_params.h
INC += osiMutexNOOP.h
@@ -17,15 +17,10 @@ OSINC += osiSock.h
include $(TOP)/config/RULES.Host
include $(TOP)/config/CONFIG_BASE_VERSION
# This seems to be handled wrong by gnumake:
# epicsVersion.h is rebuild in any case,
# no matter what date ...CONFIG_BASE_VERSION has
epicsVersion.h: $(TOP)/config/CONFIG_BASE_VERSION
@$(RM) $@
@echo "#define EPICS_VERSION $(EPICS_VERSION)" > $@
@echo "#define EPICS_REVISION $(EPICS_REVISION)" >> $@
@echo "#define EPICS_MODIFICATION $(EPICS_MODIFICATION)" >> $@
@echo "#define EPICS_UPDATE_NAME $(EPICS_UPDATE_NAME)" >> $@
@echo "#define EPICS_UPDATE_LEVEL $(EPICS_UPDATE_LEVEL)" >> $@
@echo "#define EPICS_VERSION_STRING \"$(EPICS_VERSION_STRING)\" " >> $@
@echo "#define epicsReleaseVersion \"@(#)$(EPICS_VERSION_STRING) $(CVS_DATE)\" " >> $@
perl ../makeEpicsVersion.pl $(TOP)/config/CONFIG_BASE_VERSION

View File

@@ -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;