mirror of
https://github.com/HDFGroup/hdf5.git
synced 2025-03-01 16:28:09 +08:00
[svn-r2177] ./bin/h5vers
Version numbers include an annotation string consisting of a sequence of letters and digits and is printed by this script as either: 1.2.3-pre4 version 1.2 release 3 (pre4) Other tools should print version numbers similarly. A `-i annot' switch was added to increment the annotation (the first subsequence of digits is what is incremented, e.g., `pre9' becomes `pre10'). The `-i' switch (with no argument) was changed to increment the annotation string if present, or the release number otherwise. (By the way, it actually took about 30 minutes ;-)
This commit is contained in:
Robb Matzke
parent
a65d2d0ae4
commit
08bf2e5438
112
bin/h5vers
112
bin/h5vers
@ -22,8 +22,14 @@ use strict;
|
||||
|
||||
# Without options this program only displays the current version and
|
||||
# doesn't modify any files or create backups. The default is to print
|
||||
# the version number as a dotted triple like `1.0.24' but with the
|
||||
# `-v' option the version will be printed as `version 1.0 release 24'.
|
||||
# the version number like X.Y.Z-A where X is the major version number,
|
||||
# Y is the minor version number, Z is the release number, and A is
|
||||
# a short annotation string (the `-' is printed only if A is not empty).
|
||||
# If the `-v' switch is given the version will be printed like:
|
||||
#
|
||||
# version X.Y release Z (A)
|
||||
#
|
||||
# The space and parentheses around A are only printed if A is not empty.
|
||||
#
|
||||
# The `-s VERSION' switch will set the version as specified. If the
|
||||
# string contains a dotted triple then it will be used as the version
|
||||
@ -32,12 +38,19 @@ use strict;
|
||||
# number. If any numbers are missing then zero is assumed. This
|
||||
# allows versions to be specified like `-s "version 2.1 release 8"' or
|
||||
# `-s hdf5-2.1.8.tar.bz2'. If the new version is less than the old
|
||||
# version then a warning message is generated on standard error.
|
||||
# version then a warning message is generated on standard error. The
|
||||
# annotation string, A, is set only if it appears immediately after the
|
||||
# third number, separated by a dash (e.g., `1.2.3-pre1') or in parentheses
|
||||
# (e.g., `version 1.2 release 3 (pre1)').
|
||||
#
|
||||
# The `-i [major|minor|release]' option increments the major, minor,
|
||||
# or release (the default) number. If the minor number is incremented
|
||||
# then the release number is set to zero; if the major number is
|
||||
# incremented then the minor and release numbers are set to zero.
|
||||
# The `-i [major|minor|release|annot|last]' option increments the major
|
||||
# number, minor number, release number, or annotation string. The `last'
|
||||
# switch increments the annotation string if present, otherwise the
|
||||
# release number. If the release number is incremented then the annotation
|
||||
# string is cleared. If the minor number is incremented then the release
|
||||
# number is set to zero and the annotation string is cleared; if the major
|
||||
# number is incremented then the minor and release numbers are set to zero
|
||||
# and the annotation string is cleared.
|
||||
#
|
||||
# If a file is specified then that file is used instead of
|
||||
# ./H5public.h or ./src/H5public.h.
|
||||
@ -45,7 +58,7 @@ use strict;
|
||||
# If the version number is changed (either `-s' or `-i' was used on
|
||||
# the command line) then the first line of the README file one
|
||||
# directory above the H5public.h file is also modified so it looks
|
||||
# something like: This is hdf5-1.2.3 currently under development.
|
||||
# something like: This is hdf5-1.2.3-pre1 currently under development.
|
||||
##############################################################################
|
||||
|
||||
sub getvers {
|
||||
@ -55,6 +68,7 @@ sub getvers {
|
||||
($vers[0]) = /^\#\s*define\s+H5_VERS_MAJOR\s+(\d+)/m;
|
||||
($vers[1]) = /^\#\s*define\s+H5_VERS_MINOR\s+(\d+)/m;
|
||||
($vers[2]) = /^\#\s*define\s+H5_VERS_RELEASE\s+(\d+)/m;
|
||||
($vers[3]) = /^\#\s*define\s+H5_VERS_SUBRELEASE\s+\"([^\"]*)\"/m;
|
||||
return @vers;
|
||||
}
|
||||
|
||||
@ -63,22 +77,23 @@ sub setvers {
|
||||
$_[0] =~ s/^(\#\s*define\s+H5_VERS_MAJOR\s+)\d+/$1$vers[0]/m;
|
||||
$_[0] =~ s/^(\#\s*define\s+H5_VERS_MINOR\s+)\d+/$1$vers[1]/m;
|
||||
$_[0] =~ s/^(\#\s*define\s+H5_VERS_RELEASE\s+)\d+/$1$vers[2]/m;
|
||||
$_[0] =~ s/^(\#\s*define\s+H5_VERS_SUBRELEASE\s+\")[^\"]*/$1$vers[3]/m;
|
||||
}
|
||||
|
||||
sub usage {
|
||||
my ($prog) = $0 =~ /([^\/]+)$/;
|
||||
print STDERR <<EOF;
|
||||
Usage: $prog [OPTS] [FILE]
|
||||
-i major|minor|release
|
||||
-i major|minor|release|annot
|
||||
Increment specified version component and set following components
|
||||
to zero.
|
||||
-s VERSION
|
||||
Set the version as specified. The version number can be embedded in
|
||||
some other string such as \"hdf5-1.1.0.tar.bz2\" or even \"this is
|
||||
hdf5 version 1.1 release 0\" for convenience.
|
||||
some other string such as \"hdf5-1.1.0-pre1.tar.bz2\" or even
|
||||
\"this is hdf5 version 1.1 release 0 (pre1)\" for convenience.
|
||||
-v
|
||||
Instead of displaying only a dotted triple version number a line such
|
||||
as \"version 1.1 release 0\" will be printed.
|
||||
as \"version 1.1 release 0 (pre1)\" will be printed.
|
||||
FILE
|
||||
The name of the file that contains version information. This is
|
||||
seldom necessary since files H5public.h, src/H5public.h and
|
||||
@ -98,10 +113,10 @@ while ($_ = shift) {
|
||||
};
|
||||
|
||||
$_ eq "-i" && do {
|
||||
if (@ARGV && $ARGV[1]=~/^(major|minor|release)$/) {
|
||||
if (@ARGV && $ARGV[0]=~/^(major|minor|release|annot)$/) {
|
||||
$inc = shift;
|
||||
} else {
|
||||
$inc = "release";
|
||||
$inc = "last";
|
||||
}
|
||||
next;
|
||||
};
|
||||
@ -140,46 +155,56 @@ my (@curver) = getvers $contents;
|
||||
# Determine the new version number.
|
||||
my @newver; #new version
|
||||
if ($set) {
|
||||
if ($set =~ /(\d+)\.(\d+)\.(\d+)/) {
|
||||
@newver = ($1, $2, $3);
|
||||
} elsif ($set =~ /(\d+)\D+(\d+)\D+(\d+)\D*$/) {
|
||||
@newver = ($1, $2, $3);
|
||||
if ($set =~ /(\d+)\.(\d+)\.(\d+)(-([a-zA-Z]\w*))?/) {
|
||||
@newver = ($1, $2, $3, $5);
|
||||
} elsif ($set =~ /(\d+)\D+(\d+)\D+(\d+)(\s*\(([a-zA-Z]\w*)\))?\D*$/) {
|
||||
@newver = ($1, $2, $3, $5);
|
||||
} elsif ($set =~ /(\d+)\D+(\d+)\D*$/) {
|
||||
@newver = ($1, $2, 0);
|
||||
@newver = ($1, $2, 0, "");
|
||||
} elsif ($set =~ /(\d+)\D*$/) {
|
||||
@newver = ($1, 0, 0);
|
||||
@newver = ($1, 0, 0, "");
|
||||
} else {
|
||||
die "illegal version number specified: $set\n";
|
||||
}
|
||||
} elsif ($inc && $inc eq "major") {
|
||||
$newver[0] = $curver[0]+1;
|
||||
@newver[1,2] = (0,0);
|
||||
} elsif ($inc && $inc eq "minor") {
|
||||
$newver[0] = $curver[0];
|
||||
$newver[1] = $curver[1]+1;
|
||||
$newver[2] = 0;
|
||||
} elsif ($inc && $inc eq "release") {
|
||||
@newver[0,1] = @curver[0,1];
|
||||
$newver[2] = $curver[2]+1;
|
||||
} elsif ($inc) {
|
||||
die "unknown increment field: $inc\n";
|
||||
$inc = $curver[3] eq "" ? 'release' : 'annot' if $inc eq 'last';
|
||||
if ($inc eq "major") {
|
||||
$newver[0] = $curver[0]+1;
|
||||
@newver[1,2,3] = (0,0,"");
|
||||
} elsif ($inc eq "minor") {
|
||||
$newver[0] = $curver[0];
|
||||
$newver[1] = $curver[1]+1;
|
||||
@newver[2,3] = (0,"");
|
||||
} elsif ($inc eq "release") {
|
||||
@newver[0,1] = @curver[0,1];
|
||||
$newver[2] = $curver[2]+1;
|
||||
$newver[3] = "";
|
||||
} elsif ($inc eq "annot") {
|
||||
@newver[0,1,2] = @curver[0,1,2];
|
||||
$newver[3] = $curver[3];
|
||||
$newver[3] =~ s/(\d+)/$1+1/e or
|
||||
die "Annotation \"".$newver[3]."\" cannot be incremented.\n";
|
||||
} else {
|
||||
die "unknown increment field: $inc\n";
|
||||
}
|
||||
} else {
|
||||
# Nothing to do but print result
|
||||
$README = "";
|
||||
@newver = @curver;
|
||||
}
|
||||
|
||||
# Print a warning if the version got smaller.
|
||||
# Print a warning if the version got smaller (don't check annot field)
|
||||
if ($newver[0]*1000000 + $newver[1]*1000 + $newver[2] <
|
||||
$curver[0]*1000000 + $curver[1]*1000 + $curver[2]) {
|
||||
printf STDERR "Warning: version decreased from %d.%d.%d to %d.%d.%d\n",
|
||||
@curver, @newver;
|
||||
@curver[0,1,2], @newver[0,1,2];
|
||||
}
|
||||
|
||||
# Update the version number if it changed.
|
||||
if ($newver[0]!=$curver[0] ||
|
||||
$newver[1]!=$curver[1] ||
|
||||
$newver[2]!=$curver[2]) {
|
||||
$newver[2]!=$curver[2] ||
|
||||
$newver[3]ne$curver[3]) {
|
||||
setvers $contents, @newver or die "unable to set version\n";
|
||||
rename $file, "$file~" or die "unable to save backup file\n";
|
||||
open FILE, ">$file" or die "unable to open $file but backup saved!\n";
|
||||
@ -192,8 +217,10 @@ if ($README) {
|
||||
open FILE, $README or die "$README: $!\n";
|
||||
my @contents = <FILE>;
|
||||
close FILE;
|
||||
$contents[0] = sprintf("This is hdf5-%d.%d.%d currently under development\n",
|
||||
@newver);
|
||||
$contents[0] = sprintf("This is hdf5-%d.%d.%d%s %s",
|
||||
@newver[0,1,2],
|
||||
$newver[3] eq "" ? "" : "-".$newver[3],
|
||||
"currently under development\n");
|
||||
open FILE, ">$README" or die "$README: $!\n";
|
||||
print FILE @contents;
|
||||
close FILE;
|
||||
@ -201,9 +228,18 @@ if ($README) {
|
||||
|
||||
# Print the new version number
|
||||
if ($verbose) {
|
||||
printf "version %d.%d release %d\n", @newver;
|
||||
printf("version %d.%d release %d%s\n", @newver[0,1,2],
|
||||
$newver[3] eq "" ? "" : " (".$newver[3].")");
|
||||
} else {
|
||||
printf "%d.%d.%d\n", @newver;
|
||||
printf("%d.%d.%d%s\n", @newver[0,1,2],
|
||||
$newver[3] eq "" ? "" : "-".$newver[3]);
|
||||
}
|
||||
|
||||
exit 0;
|
||||
|
||||
# Because the first line of this file looks like a Bourne shell script, we
|
||||
# must tell XEmacs explicitly that this is really a perl script.
|
||||
#
|
||||
# Local Variables:
|
||||
# mode:perl
|
||||
# End:
|
||||
|
||||
Loading…
Reference in New Issue
Block a user