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

Simplified to remove "use" cases and settling for string for versions of commit date/time.

Browse Source
This commit is contained in:
hanlet
2022-05-13 10:46:17 -07:00
parent 8d0bfcbc5b
commit e566c52a78
1 changed files with 4 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
src/tools/genVersionHeader.pl
View File

@@ -16,8 +16,6 @@ use lib "$Bin/../../lib/perl";
use EPICS::Getopts;
use POSIX qw(strftime);
use Time::ParseDate;
use Date::Parse;
use strict;
@@ -59,9 +57,8 @@ if (!$vcs && -d "$opt_t/_darcs") { # Darcs
my $hasmod = `darcs whatsnew --repodir="$opt_t" -l`;
$opt_V .= '-dirty' unless $?;
}
# this is untested
$cv = `darcs optimize --reorder; darcs changes --context | sort | md5sum`;
# $cm = `darcs show repo --no-files`;
# $cm = `darcs pull --dry-run`;
}
if (!$vcs && -d "$opt_t/.hg") { # Mercurial
print "== Found <top>/.hg directory\n" if $opt_v;
@@ -78,7 +75,7 @@ if (!$vcs && -d "$opt_t/.hg") { # Mercurial
chomp $hasmod;
$opt_V .= '-dirty' if $hasmod ne '';
}
$cv = `hg log -l1 --template '{date(date, "%s")}'`
$cv = `hg log -l1 --template '{date(date, "%s")}'` # this is untested
}
if (!$vcs && -d "$opt_t/.git") { # Git
print "== Found <top>/.git directory\n" if $opt_v;
@@ -120,7 +117,7 @@ if (!$vcs && -d "$opt_t/.bzr") { # Bazaar
$opt_V = $result;
$vcs = 'Bazaar';
}
# bzr is skipped here
$cv = `bzr version-info -q -timestamp`; # this is untested
}
if (!$vcs) {
print "== No VCS directories\n" if $opt_v;
@@ -145,7 +142,7 @@ my $output = << "__END";
#define $opt_N \"$opt_V\"
#endif
#ifndef $opt_T
#define ${opt_N}_DATE $opt_C
#define ${opt_N}_DATE \"$opt_C\"
#endif
__END