philipp/hdf5
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

[svn-r14394] Maintenance on VMS: cleaned up the scripts to avoid the annoying warning messages

Browse Source 
and to delete temporary files

Platforms tested: VMS server
This commit is contained in:
Elena Pourmal
2008-01-10 12:59:00 -05:00
parent 905ff444f4
commit 3c27797b21
4 changed files with 61 additions and 49 deletions
Download Patch File Download Diff File Expand all files Collapse all files

25
vms/tools/h5diff/check_h5diff.com
View File

@@ -33,16 +33,11 @@ $ temp = F$EXTRACT(0, len-10, current_dir)
$ h5diff_dir = temp + "H5DIFF]"
$ h5diff :== $sys$disk:'h5diff_dir'h5diff.exe
$ !
$ ! Define output for diff command that compares expected and actual
$ ! outputs of h5diff
$ !
$ create h5diff.log
$ create h5diff_output.txt
$ !
$ ! h5diff tests
$ !
$
$!# 1.0
$ CALL TOOLTEST h5diff_10.txt "-h"
$!
@@ -142,7 +137,7 @@ $!
$!# 5.7
$ CALL TOOLTEST h5diff_57.txt "-v h5diff_dtypes.h5 h5diff_dtypes.h5 dset7a dset7b"
$!
$#! 5.8 (region reference)
$!# 5.8 (region reference)
$ CALL TOOLTEST h5diff_58.txt "-v h5diff_dset1.h5 h5diff_dset2.h5 refreg"
$!
$!# ##############################################################################
@@ -285,7 +280,7 @@ $!
$TOOLTEST: SUBROUTINE
$
$ len = F$LENGTH(P1)
$ base = F$EXTRACT(0,len-2,P1)
$ base = F$EXTRACT(0,len-3,P1)
$ actual = base + "h5diffout"
$ actual_err = base + "h5differr"
$
@@ -335,15 +330,17 @@ $ write sys$output line
$ !
$ ! Append the result to the log file
$ !
$ append h5diff_temp.dif h5diff.log
$ append 'actual' h5diff_output.txt
$ append/new_version h5diff_temp.dif h5diff.log
$ append/new_version 'actual' h5diff_output.txt
$ !
$ ! Delete temporary files
$ !
$ if F$SEARCH("*.h5differr;*") then del *.h5diffterr;*
$ if F$SEARCH("*.h5diffout;*") then del *.h5difftout;*
$ if F$SEARCH("*.dif;*") then del *.dif;*
$ del *.dif;*
$ if F$SEARCH(actual_err) .NES. ""
$ then
$ del *.h5differr;*
$ endif
$ del *.h5diffout;*
$ del h5diff_temp.dif;*
$ !
$ENDSUBROUTINE