summaryrefslogtreecommitdiffstats
path: root/bin
diff options
context:
space:
mode:
Diffstat (limited to 'bin')
-rwxr-xr-xbin/h5vers112
1 files changed, 74 insertions, 38 deletions
diff --git a/bin/h5vers b/bin/h5vers
index eefca78..02b7045 100755
--- a/bin/h5vers
+++ b/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: