mirror/hdf5
2
0
Fork 0
mirror of https://github.com/HDFGroup/hdf5.git synced 2024-11-21 01:04:10 +08:00
Code Issues Packages Projects Releases Wiki Activity

[svn-r13867] Brought VMS port up to date; made h5repack script to work again.

Browse Source 
Platforms tested: VMS server; no other tests are needed since changes are local to 
                  the VMS command and source files.
This commit is contained in:
Elena Pourmal 2007-06-14 14:55:39 -05:00
parent b2cf486a02
commit 6719b3360a
6 changed files with 62 additions and 65 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
release_docs/INSTALL_VMS.txt
View File

@ -79,7 +79,6 @@
- dsets test fails for test_scleoffset_double and
test_scleoffset_double_2 tests when G_FLOAT double is used
06/01/2006 EIP
- There is no support for files bigger than 2GB
- There is no support for szip compression filter.
- There are few C and Fortran tests that fail (C mtime, Fortran file_close and
multifile driver tests, probably more; all major tests succeed).

4
vms/make.com
View File

@ -38,8 +38,8 @@ $ copy [.tools.lib]make.com [-.tools.lib]
$!
$! Define location of ZLIB library. If you do not have it on your system, download
$! source code from http://www.zlib.net/, build and install on your system
$! define zlib_dir sys$sysusers:[pourmale.zlib-1_2_3]
$ define zlib_dir sys$sysusers:[pourmale.zlib-1_2_3-ieee]
$ define zlib_dir sys$sysusers:[pourmale.zlib-1_2_3]
$! define zlib_dir sys$sysusers:[pourmale.zlib-1_2_3-ieee]
$!
$! Set up compilation flags here
$! Do not remove define=H5_VMS and standard=strict_ansi qualifiers.

1
vms/src/h5pubconf.h
View File

@ -585,3 +585,4 @@
#define H5_CANNOT_OPEN_TWICE 1
#define H5_WANT_DATA_ACCURACY 1
#define H5_WANT_DCONV_EXCEPTION 1
#define H5_DEFAULT_VFD H5FD_SEC2

4
vms/test/check.com
View File

@ -17,8 +17,8 @@ $!
$! Run HDF5 C tests
$!
$ type sys$input
Running tests. Output will be saved in the check_vms.out file
$ define sys$output check_vms.out
Running tests
$! define sys$output check_vms.out
$
$ type sys$input
------- Running testhdf5 -------

109
vms/tools/h5repack/check_h5repack.com
View File

@ -35,108 +35,109 @@ $ !
$
$!# copy files (these files have no filters)
$ CALL TOOLTEST test0.h5
$ CALL TOOLTEST test1.h5
$ CALL TOOLTEST test2.h5
$ CALL TOOLTEST test3.h5
$ CALL TOOLTEST test4.h5
$ CALL TOOLTEST test5.h5
$ CALL TOOLTEST h5repack_fill.h5
$ CALL TOOLTEST h5repack_objs.h5
$ CALL TOOLTEST h5repack_attr.h5
$ CALL TOOLTEST h5repack_hlink.h5
$ CALL TOOLTEST h5repack_layout.h5
$ CALL TOOLTEST h5repack_early.h5
$
$! # use test4.h5 to write some filters (this file has no filters)
$! # use h5repack_layout.h5 to write some filters (this file has no filters)
$
$! # gzip with individual object
$ CALL TOOLTEST test4.h5 "-f dset1:""GZIP""=1 -l dset1:""CHUNK""=20x10"
$ CALL TOOLTEST h5repack_layout.h5 "-f dset1:""GZIP""=1 -l dset1:""CHUNK""=20x10"
$!
$! # gzip for all
$ CALL TOOLTEST test4.h5 "-f ""GZIP""=1"
$ CALL TOOLTEST h5repack_layout.h5 "-f ""GZIP""=1"
$!
$! # shuffle with individual object
$ CALL TOOLTEST test4.h5 "-f dset2:""SHUF"" -l dset2:""CHUNK""=20x10"
$ CALL TOOLTEST h5repack_layout.h5 "-f dset2:""SHUF"" -l dset2:""CHUNK""=20x10"
$!
$!
$! # shuffle for all
$ CALL TOOLTEST test4.h5 "-f ""SHUF"""
$ CALL TOOLTEST h5repack_layout.h5 "-f ""SHUF"""
$!
$! # fletcher32 with individual object
$ CALL TOOLTEST test4.h5 "-f dset2:""FLET"" -l dset2:""CHUNK""=20x10"
$ CALL TOOLTEST h5repack_layout.h5 "-f dset2:""FLET"" -l dset2:""CHUNK""=20x10"
$!
$! # fletcher32 for all
$ CALL TOOLTEST test4.h5 "-f ""FLET"""
$ CALL TOOLTEST h5repack_layout.h5 "-f ""FLET"""
$
$! ###########################################################
$! # the following tests assume the input files have filters
$! ###########################################################
$!
$! # deflate copy
$ CALL TOOLTEST test_deflate.h5
$ CALL TOOLTEST h5repack_deflate.h5
$!
$! # deflate remove
$ CALL TOOLTEST test_deflate.h5 "-f dset_deflate:""NONE"""
$ CALL TOOLTEST h5repack_deflate.h5 "-f dset_deflate:""NONE"""
$!
$! # shuffle copy
$ CALL TOOLTEST test_shuffle.h5
$ CALL TOOLTEST h5repack_shuffle.h5
$!
$! # shuffle remove
$ CALL TOOLTEST test_shuffle.h5 "-f dset_shuffle:""NONE"""
$ CALL TOOLTEST h5repack_shuffle.h5 "-f dset_shuffle:""NONE"""
$!
$! # fletcher32 copy
$ CALL TOOLTEST test_fletcher32.h5
$ CALL TOOLTEST h5repack_fletcher.h5
$!
$! # fletcher32 remove
$ CALL TOOLTEST test_fletcher32.h5 "-f dset_fletcher32:""NONE"""
$ CALL TOOLTEST h5repack_fletcher.h5 "-f dset_fletcher32:""NONE"""
$!
$! # nbit copy
$ CALL TOOLTEST test_nbit.h5
$ CALL TOOLTEST h5repack_nbit.h5
$!
$! # nbit remove
$ CALL TOOLTEST test_nbit.h5 "-f dset_nbit:""NONE"""
$ CALL TOOLTEST h5repack_nbit.h5 "-f dset_nbit:""NONE"""
$!
$! # nbit add
$ CALL TOOLTEST test_nbit.h5 "-f dset_int31:""NBIT"""
$ CALL TOOLTEST h5repack_nbit.h5 "-f dset_int31:""NBIT"""
$!
$! # scaleoffset add
$! CALL TOOLTEST test_scaleoffset.h5 "-f dset_none:""S+O""=31"
$! CALL TOOLTEST h5repack_scaleoffset.h5 "-f dset_none:""S+O""=31"
$!
$! # scaleoffset copy
$! CALL TOOLTEST test_scaleoffset.h5
$! CALL TOOLTEST h5repack_scaleoffset.h5
$!
$! # scaleoffset remove
$! CALL TOOLTEST test_scaleoffset.h5 "-f dset_scaleoffset:""NONE"""
$! CALL TOOLTEST h5repack_scaleoffset.h5 "-f dset_scaleoffset:""NONE"""
$!
$! #limit
$ CALL TOOLTEST test4.h5 "-f ""GZIP""=1 -m 1024"
$ CALL TOOLTEST h5repack_layout.h5 "-f ""GZIP""=1 -m 1024"
$!
$! #file
$ CALL TOOLTEST test4.h5 "-e h5repack_info.txt"
$!
$!
$! #########################################################
$! # layout options (these files have no filters)
$! #########################################################
$!
$ CALL TOOLTEST test4.h5 "-l dset2:""CHUNK""=20x10"
$ CALL TOOLTEST test4.h5 "-l ""CHUNK""=20x10"
$ CALL TOOLTEST test4.h5 "-l dset2:""CONTI"""
$ CALL TOOLTEST test4.h5 "-l ""CONTI"""
$ CALL TOOLTEST test4.h5 "-l dset2:""COMPA"""
$ CALL TOOLTEST test4.h5 "-l ""COMPA"""
$ CALL TOOLTEST h5repack_layout.h5 "-l dset2:""CHUNK""=20x10"
$ CALL TOOLTEST h5repack_layout.h5 "-l ""CHUNK""=20x10"
$ CALL TOOLTEST h5repack_layout.h5 "-l dset2:""CONTI"""
$ CALL TOOLTEST h5repack_layout.h5 "-l ""CONTI"""
$ CALL TOOLTEST h5repack_layout.h5 "-l dset2:""COMPA"""
$ CALL TOOLTEST h5repack_layout.h5 "-l ""COMPA"""
$!
$!
$! ################################################################
$! # layout conversions (file has no filters)
$! ###############################################################
$!
$ CALL TOOLTEST test4.h5 "-l dset_compact:""CONTI"""
$ CALL TOOLTEST test4.h5 "-l dset_compact:""CHUNK""=2x5"
$ CALL TOOLTEST test4.h5 "-l dset_compact:""COMPA"""
$ CALL TOOLTEST test4.h5 "-l dset_contiguous:""COMPA"""
$ CALL TOOLTEST test4.h5 "-l dset_contiguous:""CHUNK""=3x6"
$ CALL TOOLTEST test4.h5 "-l dset_contiguous:""CONTI"""
$ CALL TOOLTEST test4.h5 "-l dset_chunk:""COMPA"""
$ CALL TOOLTEST test4.h5 "-l dset_chunk:""CONTI"""
$ CALL TOOLTEST test4.h5 "-l dset_chunk:""CHUNK""=18x13"
$ CALL TOOLTEST h5repack_layout.h5 "-l dset_compact:""CONTI"""
$ CALL TOOLTEST h5repack_layout.h5 "-l dset_compact:""CHUNK""=2x5"
$ CALL TOOLTEST h5repack_layout.h5 "-l dset_compact:""COMPA"""
$ CALL TOOLTEST h5repack_layout.h5 "-l dset_contiguous:""COMPA"""
$ CALL TOOLTEST h5repack_layout.h5 "-l dset_contiguous:""CHUNK""=3x6"
$ CALL TOOLTEST h5repack_layout.h5 "-l dset_contiguous:""CONTI"""
$ CALL TOOLTEST h5repack_layout.h5 "-l dset_chunk:""COMPA"""
$ CALL TOOLTEST h5repack_layout.h5 "-l dset_chunk:""CONTI"""
$ CALL TOOLTEST h5repack_layout.h5 "-l dset_chunk:""CHUNK""=18x13"
$!
$!
$! del *out.h5;*
$! del *.out;*
$! del *.err;*
$TOOLTEST: SUBROUTINE
$ len = F$LENGTH(P1)
@ -154,26 +155,22 @@ $! define/nolog sys$output 'output_out'
$ ON ERROR THEN CONTINUE
$ h5repack -i 'P1 -o 'output_file' 'P2
$ h5diff 'P1 'output_file'
$! deassign sys$error
$! deassign sys$output
$! if F$SEARCH(output_err) .EQS. "" .AND. F$SEARCH(output_out) .EQS. ""
$! then
$! result = "PASSED"
$! line = F$FAO("!16AS !20AS !43AS !70AS", begin, P1, P2, result)
$! else
$! result = "*FAILED*"
$! line = F$FAO("!16AS !20AS !42AS !69AS", begin, P1, P2, result)
$! endif
$ result = "......"
$ deassign sys$error
$ deassign sys$output
$ if F$SEARCH(output_err) .EQS. ""
$ then
$ result = "PASSED"
$ line = F$FAO("!16AS !20AS !43AS !70AS", begin, P1, P2, result)
$ else
$ result = "*FAILED*"
$ line = F$FAO("!16AS !20AS !42AS !69AS", begin, P1, P2, result)
$ endif
$ !
$ ! Print test result
$ !
$ write sys$output line
$ !
$ del *out.h5;*
$! del *.out;*
$ !
$ENDSUBROUTINE

8
vms/tools/h5repack/make.com
View File

@ -22,7 +22,7 @@ $ ccc := cc 'ccopt /include=([-.-.src], [-.lib], [-.-.test])
$ type sys$input
Creating h5repack
$!
$ cobj= " h5repack_main, h5repack, h5repack_copy, h5repack_filters, " +-
$ cobj= " h5repack_main, h5repack, h5repack_copy, h5repack_refs, h5repack_filters, " +-
"h5repack_list, h5repack_opttable, h5repack_parse, " +-
"h5repack_verify, h5repacktst"
@ -31,10 +31,10 @@ $ ccc 'cobj
$ type sys$input
Creating h5repack
$ link/exe=h5repack.exe -
h5repack_main, h5repack, h5repack_copy, h5repack_filters, -
h5repack_main, h5repack, h5repack_copy, h5repack_refs, h5repack_filters, -
h5repack_list, h5repack_opttable, h5repack_parse, -
h5repack_verify, -
[-.lib]libh5tools.olb/lib,
[-.lib]libh5tools.olb/lib, -
[-.-.src]hdf5.olb/lib,zlib_dir:libz.olb/lib
$ type sys$input
Created h5repack
@ -43,7 +43,7 @@ $ type sys$input
Creating h5repacktst
$ link/exe=h5repacktst.exe -
h5repacktst, -
h5repack, h5repack_copy, h5repack_filters, -
h5repack, h5repack_copy, h5repack_refs, h5repack_filters, -
h5repack_list, h5repack_opttable, h5repack_parse, -
h5repack_verify, -
[-.lib]libh5tools.olb/lib,[-.-.test]libh5test.olb/lib, -