epics/epics-base
0
0
Fork 0
Code Issues Pull Requests Projects Wiki Activity

Portability: Don't use bash/shell operations

Browse Source
This commit is contained in:
Andrew Johnson
2022-08-23 13:35:40 -05:00
parent 04ee3f2888
commit 24f30ede22
1 changed files with 19 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files

31
src/tools/genVersionHeader.pl
View File

@ -15,6 +15,7 @@ use FindBin qw($Bin);
use lib "$Bin/../../lib/perl";
use EPICS::Getopts;
use EPICS::Path;
use POSIX qw(strftime);
use strict;
@ -41,13 +42,19 @@ my ($outfile) = @ARGV;
if ($opt_d) { exit 0 } # exit if make is run in dry-run mode
if (!$vcs && -d "$opt_t/_darcs") { # Darcs
# Save abs-path to output filename; chdir <top>
my $absfile = AbsPath($outfile);
chdir $opt_t or
die "Can't cd to $opt_t: $!\n";
if (-d '_darcs') { # Darcs
print "== Found <top>/_darcs directory\n" if $opt_v;
# v1-4-dirty
# is tag 'v1' plus 4 patches
# with uncommited modifications
my $result = `cd "$opt_t" && echo "\$(darcs show tags | head -1)-\$((\$(darcs changes --count --from-tag .)-1))"`;
chomp $result;
my @tags = `darcs show tags`;
my $count = `darcs changes --count --from-tag .` - 1;
my $result = $tags[0] . '-' . $count;
print "== darcs show tags, changes:\n$result\n==\n" if $opt_v;
if (!$? && $result ne '') {
$opt_V = $result;
@ -59,7 +66,7 @@ if (!$vcs && -d "$opt_t/_darcs") { # Darcs
$cv = `darcs log --last 1`;
$cv =~ s/\A .* Date: \s+ (\N+) .* \z/$1/sx;
}
if (!$vcs && -d "$opt_t/.hg") { # Mercurial
elsif (-d '.hg') { # Mercurial
print "== Found <top>/.hg directory\n" if $opt_v;
# v1-4-abcdef-dirty
# is 4 commits after tag 'v1' with short hash abcdef
@ -76,7 +83,7 @@ if (!$vcs && -d "$opt_t/.hg") { # Mercurial
}
$cv = `hg log -l1 --template '{date|isodate}'`
}
if (!$vcs && -d "$opt_t/.git") { # Git
elsif (-d '.git') { # Git
print "== Found <top>/.git directory\n" if $opt_v;
# v1-4-abcdef-dirty
# is 4 commits after tag 'v1' with short hash abcdef
@ -90,23 +97,23 @@ if (!$vcs && -d "$opt_t/.git") { # Git
}
$cv = `git show -s --format=%ci HEAD`;
}
if (!$vcs && -d "$opt_t/.svn") { # Subversion
elsif (-d '.svn') { # Subversion
print "== Found <top>/.svn directory\n" if $opt_v;
# 12345-dirty
my $result = `cd "$opt_t" && svn info --non-interactive`;
my $result = `svn info --non-interactive`;
chomp $result;
print "== svn info:\n$result\n==\n" if $opt_v;
if (!$? && $result =~ /^Revision:\s*(\d+)/m) {
$opt_V = $1;
$vcs = 'Subversion';
# see if working copy has modifications, additions, removals, or missing files
my $hasmod = `cd "$opt_t" && svn status --non-interactive`;
my $hasmod = `svn status --non-interactive`;
chomp $hasmod;
$opt_V .= '-dirty' if $hasmod ne '';
}
$cv = `svn info --show-item last-changed-date`;
}
if (!$vcs && -d "$opt_t/.bzr") { # Bazaar
elsif (-d '.bzr') { # Bazaar
print "== Found <top>/.bzr directory\n" if $opt_v;
# 12444-anj@aps.anl.gov-20131003210403-icfd8mc37g8vctpf-dirty
my $result = `bzr version-info -q --custom --template="{revno}-{revision_id}-{clean}"`;
@ -118,7 +125,7 @@ if (!$vcs && -d "$opt_t/.bzr") { # Bazaar
}
$cv = `bzr version-info -q --custom --template='{date}'`;
}
if (!$vcs) {
else {
print "== No VCS directories\n" if $opt_v;
if ($opt_V eq '') {
$vcs = 'build date/time';
@ -148,7 +155,7 @@ __END
print "== Want:\n$output==\n" if $opt_v;
my $DST;
if (open($DST, '+<', $outfile)) {
if (open($DST, '+<', $absfile)) {
my $actual = join('', <$DST>);
print "== Current:\n$actual==\n" if $opt_v;
@ -178,7 +185,7 @@ if (open($DST, '+<', $outfile)) {
print "Creating VCS header $outfile\n",
" $opt_N = \"$opt_V\"\n"
unless $opt_q;
open($DST, '>', $outfile)
open($DST, '>', $absfile)
or die "Can't create $outfile: $!\n";
}