From 6034a988cde841c002a9e467a6acd26cce895b8c Mon Sep 17 00:00:00 2001 From: Robb Matzke Date: Thu, 23 Apr 1998 16:52:09 -0500 Subject: [svn-r357] ./MANIFEST ./bin/versinc Forgot to add this to cvs last time. --- MANIFEST | 1 + bin/versinc | 28 ++++++++++++++++++++++++++++ 2 files changed, 29 insertions(+) create mode 100644 bin/versinc diff --git a/MANIFEST b/MANIFEST index de21d41..16fb268 100644 --- a/MANIFEST +++ b/MANIFEST @@ -16,6 +16,7 @@ ./bin/errors ./bin/install-sh ./bin/release +./bin/versinc ./config/BlankForm ./config/alpha-dec ./config/commence.in diff --git a/bin/versinc b/bin/versinc new file mode 100644 index 0000000..f60fc7f --- /dev/null +++ b/bin/versinc @@ -0,0 +1,28 @@ +#! /usr/local/bin/perl -w +require 5.003; + +$hdr = "./src/H5public.h"; +$bak = "./src/H5public.h~"; +$tmp = "./src/H5public.$$"; + +# Open files +open OLD, $hdr or die "cannot read $hdr"; +open NEW, ">$tmp" or die "cannot write to $tmp"; + +while () { + if (/^(\#\s*define\s+H5_VERS_RELEASE\s+)(\d+)(.*)/) { + print NEW $1, $2+1, $3, "\n"; + } elsif (/^(\#\s*define\s+H5_VERS_PATCH\s+)(\d+)(.*)/) { + print NEW $1, "0", $3, "\n"; + } else { + print NEW; + } +} +close OLD; +close NEW; + +# Create a backup +rename $hdr, $bak or warn "cannot create backup version"; +rename $tmp, $hdr or die "cannot update version number"; + +exit 0; -- cgit v0.12