epics/pcas
0
0
Fork 0
Code Issues Pull Requests Projects Wiki Activity

Allow output to O.Common

Browse Source
This commit is contained in:
Janet B. Anderson
2001-01-12 23:23:51 +00:00
parent 93a9e56502
commit 6f3a2f8b4a
1 changed files with 8 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
src/libCom/misc/makeEpicsVersion.pl
View File

@@ -1,9 +1,10 @@
#!/usr/bin/perl
#
# Usage: perl makeEpicsVersion.pl CONFIG_BASE_VERSION outdir
print "Building epicsVersion.h from CONFIG_BASE_VERSION\n";
die unless $#ARGV==0;
die unless $#ARGV==1;
open VARS, $ARGV[0] or die "Cannot get variables from $ARGV[0]";
@@ -24,7 +25,12 @@ $ver_str = "$ver_str.$upd_level" if $upd_level;
print "Found EPICS Version $ver_str\n";
open OUT, ">epicsVersion.h";
$dir = $ARGV[1];
$epicsVersion="$dir/epicsVersion.h";
mkdir ($dir, 0777) unless -d $dir;
open OUT, "> $epicsVersion" or die "Cannot create $epicsVersion";
print OUT "#define BASE_VERSION $ver\n";
print OUT "#define BASE_REVISION $rev\n";