mirror/hdf5
2
0
Fork 0
mirror of https://github.com/HDFGroup/hdf5.git synced 2025-04-12 17:31:09 +08:00
Code Issues Packages Projects Releases Wiki Activity

[svn-r1474] ./bin/h5vers [1.3]

Browse Source 
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:
Robb Matzke 1999-07-13 12:58:35 -05:00
parent 9287c401d9
commit f759816f96
2 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
bin/h5vers
View File

@ -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);

3
bin/trace
View File

@ -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",