diff options
author | Dana Robinson <derobins@hdfgroup.org> | 2017-04-25 06:09:55 (GMT) |
---|---|---|
committer | Dana Robinson <derobins@hdfgroup.org> | 2017-04-25 21:10:11 (GMT) |
commit | 14bc39bcb59ce36d1d2fd156afeaf3aa7bb5ad84 (patch) | |
tree | 9ab4f1230315190fd6480e5ee71ec316f5df324b /bin | |
parent | b962c7ad42020c762830a4740bc779423ca32ac9 (diff) | |
download | hdf5-14bc39bcb59ce36d1d2fd156afeaf3aa7bb5ad84.zip hdf5-14bc39bcb59ce36d1d2fd156afeaf3aa7bb5ad84.tar.gz hdf5-14bc39bcb59ce36d1d2fd156afeaf3aa7bb5ad84.tar.bz2 |
Updated bin/trace to emit errors and reordered autogen.sh processing
so that script failures leave the library in a non-compilable state,
making it harder to ignore errors.
Diffstat (limited to 'bin')
-rwxr-xr-x | bin/trace | 15 |
1 files changed, 14 insertions, 1 deletions
@@ -161,6 +161,8 @@ $Source = ""; ############################################################################## # Print an error message. # +my $found_errors = 0; + sub errmesg ($$@) { my ($file, $func, @mesg) = @_; my ($mesg) = join "", @mesg; @@ -170,6 +172,8 @@ sub errmesg ($$@) { $lineno = tr/\n/\n/; } + $found_errors = 1; + print "$file: in function \`$func\':\n"; print "$file:$lineno: $mesg\n"; } @@ -339,4 +343,13 @@ for $file (@ARGV) { } } -printf "Finished processing HDF5 API calls\n" +if ($found_errors eq 1) { + printf "\n"; + printf "!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!\n"; + printf "*** ERRORS FOUND *** ERRORS FOUND *** ERRORS FOUND ****\n"; + printf "!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!\n"; + exit 1; +} else { + printf "Finished processing HDF5 API calls\n"; +} + |