diff options
Diffstat (limited to 'bin')
| -rwxr-xr-x | bin/release | 11 | ||||
| -rwxr-xr-x | bin/snapshot | 1 | ||||
| -rwxr-xr-x | bin/trace | 6 |
3 files changed, 15 insertions, 3 deletions
diff --git a/bin/release b/bin/release index 8c1e5aa..3b975d3 100755 --- a/bin/release +++ b/bin/release @@ -73,6 +73,17 @@ for cvs in `find . -type d -name CVS -print`; do fi done done +for file in ./Changes `svf ls`; do + if (grep $file MANIFEST >/dev/null); then + : + elif [ $file = ./Changes ]; then + : + else + echo "+ $file" + fail=yes + fi +done + if [ "X$fail" = "Xyes" ]; then cat 1>&2 <<EOF The MANIFEST is out of date. Files marked with a minus sign (-) no diff --git a/bin/snapshot b/bin/snapshot index 0b0edd4..74a724b 100755 --- a/bin/snapshot +++ b/bin/snapshot @@ -41,6 +41,7 @@ cvs -Q co -d ${COMPARE}/current hdf5 || exit 1 snapshot=yes if [ -d ${COMPARE}/previous ]; then if (diff -c ${COMPARE}/previous/MANIFEST ${COMPARE}/current/MANIFEST); then + snapshot=no for src in `cat ${COMPARE}/current/MANIFEST`; do if (diff -I H5_VERS_RELEASE -I " released on " \ ${COMPARE}/previous/$src ${COMPARE}/current/$src); then @@ -93,10 +93,10 @@ sub argstring ($$$) { $atype =~ s/\s+$//; if ($atype =~ /(.*)\[(.*)\]$/) { ($array, $atype) = ($2, $1); + $atype =~ s/\s+$//; } $fq_atype = $atype . ('*' x $ptr); - if ($ptr>0 && exists $TypeString{$fq_atype}) { $ptr = 0; $tstr = $TypeString{$fq_atype}; @@ -172,7 +172,7 @@ sub rewrite_func ($$$$$) { $trace .= join("", @arg_str) . "\""; my $len = 4 + length $trace; for (@arg_name) { - if ($len + length >= 78) { + if ($len + length >= 77) { $trace .= ",\n $_"; $len = 13 + length; } else { @@ -203,7 +203,7 @@ sub rewrite_func ($$$$$) { error: - return "\n$type\n$name ($args)\n$body"; + return "\n$type\n$name($args)\n$body"; } ############################################################################## |