diff options
author | Albert Cheng <acheng@hdfgroup.org> | 2001-05-29 18:43:28 (GMT) |
---|---|---|
committer | Albert Cheng <acheng@hdfgroup.org> | 2001-05-29 18:43:28 (GMT) |
commit | ceaa84bb6986e40de97e6825b3e288fae4530bbb (patch) | |
tree | 5775ffd28ee39453dfc4364a09c710cccb557414 /bin | |
parent | 1c61d72cf115da4212831b4efcbea0fe80d6f84f (diff) | |
download | hdf5-ceaa84bb6986e40de97e6825b3e288fae4530bbb.zip hdf5-ceaa84bb6986e40de97e6825b3e288fae4530bbb.tar.gz hdf5-ceaa84bb6986e40de97e6825b3e288fae4530bbb.tar.bz2 |
[svn-r3948] Description:
This script file is not used any more.
Platforms tested:
"grep versinc *" does not return any reference. Verified with Quincey too.
Diffstat (limited to 'bin')
-rw-r--r-- | bin/versinc | 32 |
1 files changed, 0 insertions, 32 deletions
diff --git a/bin/versinc b/bin/versinc deleted file mode 100644 index 76d07e1..0000000 --- a/bin/versinc +++ /dev/null @@ -1,32 +0,0 @@ -#! /usr/local/bin/perl -w -require 5.003; -use Cwd; - -# Get the current directory and build the source files name based on it. -($cwd)=(cwd()=~m#(.*?hdf5)/.*#); - -$hdr = "$cwd/src/H5public.h"; -$bak = "$cwd/src/H5public.h~"; -$tmp = "$cwd/src/H5public.$$"; - -# Open files -open OLD, $hdr or die "cannot read $hdr"; -open NEW, ">$tmp" or die "cannot write to $tmp"; - -while (<OLD>) { - 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; |