mirror of
https://github.com/HDFGroup/hdf5.git
synced 2025-03-31 17:10:47 +08:00
[svn-r1474] ./bin/h5vers [1.3]
Added `use strict' and declared some variables. ./bin/trace [1.2, 1.3] Added definitions for H5D_operator_t, H5MM_allocate_t, and H5MM_free_t and regenerated tracing calls for the affected API functions.
This commit is contained in:
parent
9287c401d9
commit
f759816f96
@ -4,6 +4,7 @@ exit
|
||||
|
||||
#! perl
|
||||
require 5.003;
|
||||
use strict;
|
||||
|
||||
### Copyright Š 1998 NCSA.
|
||||
# Robb Matzke <matzke@llnl.gov>
|
||||
@ -124,8 +125,9 @@ unless ($file) {
|
||||
($file=$_,last) if -f $_;
|
||||
}
|
||||
}
|
||||
die "unable to find source files\n" unless defined $file;
|
||||
die "unable to read file: $file\n" unless -r $file;
|
||||
$README = $file;
|
||||
my $README = $file;
|
||||
$README =~ s/[^\/]*$/..\/README/;
|
||||
die "unable to read file: $README\n" unless -r $file;
|
||||
|
||||
@ -136,6 +138,7 @@ close FILE;
|
||||
my (@curver) = getvers $contents;
|
||||
|
||||
# Determine the new version number.
|
||||
my @newver; #new version
|
||||
if ($set) {
|
||||
if ($set =~ /(\d+)\.(\d+)\.(\d+)/) {
|
||||
@newver = ($1, $2, $3);
|
||||
@ -187,7 +190,7 @@ if ($newver[0]!=$curver[0] ||
|
||||
# Update the README file
|
||||
if ($README) {
|
||||
open FILE, $README or die "$README: $!\n";
|
||||
@contents = <FILE>;
|
||||
my @contents = <FILE>;
|
||||
close FILE;
|
||||
$contents[0] = sprintf("This is hdf5-%d.%d.%d currently under development\n",
|
||||
@newver);
|
||||
|
@ -53,9 +53,12 @@ $Source = "";
|
||||
"void*" => "x",
|
||||
"FILE*" => "x",
|
||||
"H5A_operator_t" => "x",
|
||||
"H5D_operator_t" => "x",
|
||||
"H5E_auto_t" => "x",
|
||||
"H5E_walk_t" => "x",
|
||||
"H5G_iterate_t" => "x",
|
||||
"H5MM_allocate_t" => "x",
|
||||
"H5MM_free_t" => "x",
|
||||
"H5T_cdata_t**" => "x",
|
||||
"H5T_conv_t" => "x",
|
||||
"H5T_overflow_t" => "x",
|
||||
|
Loading…
x
Reference in New Issue
Block a user