summaryrefslogtreecommitdiffstats
path: root/vms/tools/h5import
diff options
context:
space:
mode:
authorElena Pourmal <epourmal@hdfgroup.org>2008-01-10 17:59:00 (GMT)
committerElena Pourmal <epourmal@hdfgroup.org>2008-01-10 17:59:00 (GMT)
commit3c27797b2143ebbe1a9d4ba8a1cd5c420a2888d3 (patch)
tree30167c704e49ff63bd2ce1813bef3bd828bb7f9d /vms/tools/h5import
parent905ff444f4237c9d5d1923f3efe9234072450895 (diff)
downloadhdf5-3c27797b2143ebbe1a9d4ba8a1cd5c420a2888d3.zip
hdf5-3c27797b2143ebbe1a9d4ba8a1cd5c420a2888d3.tar.gz
hdf5-3c27797b2143ebbe1a9d4ba8a1cd5c420a2888d3.tar.bz2
[svn-r14394] Maintenance on VMS: cleaned up the scripts to avoid the annoying warning messages
and to delete temporary files Platforms tested: VMS server
Diffstat (limited to 'vms/tools/h5import')
-rw-r--r--vms/tools/h5import/check_h5import.com39
1 files changed, 24 insertions, 15 deletions
diff --git a/vms/tools/h5import/check_h5import.com b/vms/tools/h5import/check_h5import.com
index 178df88..87c854e 100644
--- a/vms/tools/h5import/check_h5import.com
+++ b/vms/tools/h5import/check_h5import.com
@@ -25,6 +25,7 @@ $ type sys$input
$ ! Define symbols
$ !
+$
$ current_dir = F$DIRECTRY()
$ len = F$LENGTH(current_dir)
$ temp = F$EXTRACT(0, len-19, current_dir)
@@ -71,7 +72,7 @@ $ CALL TOOLTEST "fp1. -c textfp32. -o" test6.h5
$ !
$ type sys$input
Testing ASCII F64 - rank 3 - Output BE + CHUNKED+Extended+Compressed
-$ CALL TOOLTEST "fp2. -c textfp64. -o" test7.h5
+$ CALL TOOLTEST "fp2. -c textfp64. -o" tes7.h5
$ !
$ type sys$input
Testing BINARY F64 - rank 3 - Output LE+CHUNKED+Extended+Compressed
@@ -86,7 +87,8 @@ $ type sys$input
$ CALL TOOLTEST "bin8. -c conbin8. -o" test10.h5
$ !
$ type sys$input
- Testing BINARY I32 - rank 3 - Output BE + CHUNKED
+
+ Testing BINARY I32 - rank 3 - Output BE + CHUNKED
$ CALL TOOLTEST "bin32. -c conbin32. -o" test11.h5
$ !
$ type sys$input
@@ -98,12 +100,19 @@ $ type sys$input
$ CALL TOOLTEST "buin32. -c conbuin32. -o" test13.h5
$
$
+$ ! Delete temporary files
+$ del *_out.h5;*
+$ del *.h5importtxt;*
+$ del b*.;*
+$ del txti*.;*
+$ del *.dif;*
+$ !
$
$TOOLTEST: SUBROUTINE
$
$ len = F$LENGTH(P2)
$ base = F$EXTRACT(0,len-3,P2)
-$ actual = base + "out.h5"
+$ actual = base + "_out.h5"
$ actual_dump = base + "out.h5importtxt"
$ actual_dump_err = base + "out.h5importerr"
$ expected_dump = base + ".h5importtxt"
@@ -118,7 +127,7 @@ $ h5import 'P1 'actual'
$ define/nolog sys$output 'actual_dump'
$ define/nolog sys$error 'actual_dump_err'
$ !
-$ ! Dump the actual and expected files
+$ ! Dump the atual and expected files
$ !
$ h5dump 'actual'
$ deassign sys$output
@@ -136,7 +145,7 @@ $ deassign sys$output
$ deassign sys$error
$ if F$SEARCH(expected_dump_err) .NES. ""
$ then
-$ set message/notext/nofacility/noidentification/noseverity
+$ set message/notex/nofacility/noidentification/noseverity
$ append 'expected_dump_err' 'expected_dump'
$ set message/ntext/facility/identification/severity
$ endif
@@ -191,16 +200,16 @@ $ ! Append the result to the log file
$ !
$ append h5dump_temp.dif h5import.log
$ !
-$ ! Delete temporary files
-$ if F$SEARCH("*out.h5;*") then del *out.h5;*
-$ if F$SEARCH("*.dif;*") then del *.dif;*
-$ if F$SEARCH("*.h5importerr;*") then del *.h5importerr;*
-$ if F$SEARCH("*.h5importtxt;*") then del *.h5importtxt;*
-$ if F$SEARCH("b*.;*") then del b*.;*
-$ if F$SEARCH("txti*.;*") then del txti*.;*
-$ if F$SEARCH("txtu*.;*") then del txtu*.;*
-$ if F$SEARCH("*.dat;*") then del *.dat;*
$ !
$ !
+$ ! Delete temporary files
+$ !
+$ if F$SEARCH(actual_dump_err) .NES. ""
+$ then
+$ del *out.h5importerr;*
+$ endif
+$ if F$SEARCH(expected_dump_err) .NES. ""
+$ then
+$ del *.h5importerr;*
+$ endif
$ENDSUBROUTINE
-