[svn-r14138]

1 files changed, 524 insertions, 0 deletions

diff --git a/windows/tools/h5repack/h5repack.bat b/windows/tools/h5repack/h5repack.bat
new file mode 100644
index 0000000..8d45115
--- /dev/null
+++ b/windows/tools/h5repack/h5repack.bat
@@ -0,0 +1,524 @@
+@echo off

+rem

+rem Copyright by The HDF Group.

+rem Copyright by the Board of Trustees of the University of Illinois.

+rem All rights reserved.

+rem

+rem This file is part of HDF5.  The full HDF5 copyright notice, including

+rem terms governing use, modification, and redistribution, is contained in

+rem the files COPYING and Copyright.html.  COPYING can be found at the root

+rem of the source code distribution tree; Copyright.html can be found at the

+rem root level of an installed copy of the electronic HDF5 document set and

+rem is linked from the top-level documents page.  It can also be found at

+rem http://hdfgroup.org/HDF5/doc/Copyright.html.  If you do not have

+rem access to either file, you may request a copy from help@hdfgroup.org.

+rem

+rem Tests for the h5repack tool

+rem

+rem    Created:  Scott Wegner, 8/28/07

+rem    Modified:

+rem

+

+setlocal enabledelayedexpansion

+pushd %~dp0

+

+set h5pubconf=%CD%\..\..\src\h5pubconf.h

+

+rem On Windows, the function :detect_filter sets these for us

+call :detect_filter szip

+call :detect_filter deflate

+call :detect_filter shuffle

+call :detect_filter fletcher32

+call :detect_filter nbit

+call :detect_filter scaleoffset

+

+rem The tool name

+set h5repack=h5repack%2

+rem The path of the tool binary

+set h5repack_bin=%CD%\..\%h5repack%\%1\%h5repack%

+

+rem The h5diff tool name

+set h5diff=..\h5diff%2\%1\h5diff%2

+rem The path of the h5diff tool binary

+set h5diff_bin=%CD%\%h5diff%

+

+rem The tool name

+set h5detectszip=testh5repack_detect_szip%2

+rem The path of the tool binary

+set h5detectszip_bin=%CD%\..\testfiles\%h5detectszip%\%1\%h5detectszip%

+

+

+set info_file=..\testfiles\info.h5repack

+

+set file0=h5repack_fill.h5

+set file1=h5repack_objs.h5

+set file2=h5repack_attr.h5

+set file3=h5repack_hlink.h5

+set file4=h5repack_layout.h5

+set file5=h5repack_early.h5

+set file7=h5repack_szip.h5

+set file8=h5repack_deflate.h5

+set file9=h5repack_shuffle.h5

+set file10=h5repack_fletcher.h5

+set file11=h5repack_filters.h5

+set file12=h5repack_nbit.h5

+set file13=h5repack_soffset.h5

+

+

+set nerrors=0

+set verbose=yes

+

+if not exist ..\testfiles mkdir ..\testfiles

+

+goto main

+

+

+rem Print a line-line message left justified in a field of 70 characters

+rem beginning with the word "Testing".

+rem

+:testing

+    set test_msg=Testing

+    for %%a in (%*) do (

+        if %%a neq PASSED (

+        if %%a neq *FAILED* (

+            set test_msg=!test_msg! %%~nxa

+        ) )

+    )

+    set test_msg=!test_msg!                                                                

+    echo.%test_msg:~0,69% %1

+    

+    exit /b

+

+    

+rem Print a line-line message left justified in a field of 70 characters

+rem beginning with the word "Verifying".

+rem

+:verify

+    set test_msg=Verifying h5diff output

+    for %%a in (%*) do (

+        if %%a neq PASSED (

+        if %%a neq *FAILED* (

+            set test_msg=!test_msg! %%~nxa

+        ) )

+    )

+    set test_msg=!test_msg!                                                                

+    echo.%test_msg:~0,69% %1

+    

+    exit /b

+

+    

+rem Print a message that a test has been skipped (because a required filter

+rem was unavailable)

+:skip

+    call :testing -SKIP- %h5repack% %*

+    exit /b

+    

+    

+rem Call the h5diff tool

+rem

+:difftest

+    %h5diff_bin% %* -q

+    if %errorlevel% neq 0 (

+        call :verify *FAILED* %*

+        set /a nerrors=!nerrors!+1

+    ) else (

+        call :verify PASSED %*

+    )

+    

+    exit /b

+    

+    

+rem Call h5repack

+rem

+:tooltest

+

+    rem Run test.

+    set infile=%CD%\..\testfiles\%1

+    rem Linux uses a $path variable here, but it is unneccessary, and will

+    rem corrupt our Windows PATH if we use it.  --SJW 8/28/07

+    rem set path=%CD%

+    rem set outfile=%path%\out.%1

+    set outfile=%CD%\out.%1

+    

+    rem We define %params% here because Windows `shift` command doesn't affect

+    rem the %* variable.  --SJW 8/28/07

+    set params=%*

+    set params=%params: *=%

+    %h5repack_bin% -i %infile% -o %outfile% %params%

+    

+    if %errorlevel% neq 0 (

+        call :testing *FAILED* %*

+        set /a nerrors=!nerrors!+1

+    ) else (

+        call :testing PASSED %*

+        call :difftest %infile% %outfile%

+    )

+    del /f %outfile%

+    

+    exit /b

+    

+    

+rem This is a Windows-specific function that detects if the filter passed

+rem should be enabled for this test script.  It searches H5pubconf.h for the

+rem string "#define H5_HAVE_FILTER_%1" and sets the variable "use_filter_%1"

+rem accordingly.  On other platforms, this variable is set in the Makefile.

+rem If we find a better way to test this in the future, we should use it.

+rem --SJW 9/4/07

+:detect_filter

+    findstr /b /i /c:"#define H5_HAVE_FILTER_%1" %h5pubconf% > nul

+    if %errorlevel% equ 0 (

+        set use_filter_%1=yes

+    ) else (

+        set use_filter_%1=no

+    )

+    

+    exit /b

+

+

+rem

+rem The tests

+rem We use the files generated by h5repacktst

+rem Each run generates "<file>.out.h5" and the tool h5diff is used to

+rem compare the input and output files

+rem

+rem the tests are the same as the program h5repacktst, but run from the CLI 

+rem

+:main

+

+    rem See which filters are usable (and skip tests for filters we

+    rem don't have).  Do this by searching H5pubconf.h to see which

+    rem filters are defined.

+

+    rem detect whether the encoder is present. 

+    set use_filter_szip_encoder=no

+    if "%use_filter_szip%"=="yes" (

+        for /f %%a in ('%h5detectszip_bin%') do set use_filter_szip_encoder=%%a

+    )

+

+    rem copy files (these files have no filters) 

+    call :tooltest %file0%

+    call :tooltest %file1%

+    call :tooltest %file2%

+    call :tooltest %file3%

+    call :tooltest %file4%

+    call :tooltest %file5%

+

+

+    rem use %file4% to write some filters  (this file has  no filters)

+

+    rem gzip with individual object

+    set arg=%file4% -f dset1:GZIP=1  -l dset1:CHUNK=20x10

+    if not "%use_filter_deflate%"=="yes" (

+        call :skip %arg%

+    ) else (

+        call :tooltest %arg%

+    )

+      

+    rem gzip for all 

+    set arg=%file4% -f GZIP=1

+    if not "%use_filter_deflate%"=="yes" (

+        call :skip %arg%

+    ) else (

+        call :tooltest %arg%

+    )

+

+    rem szip with individual object

+    set arg=%file4% -f dset2:SZIP=8,EC  -l dset2:CHUNK=20x10

+    if not "%use_filter_szip_encoder%"=="yes" (

+        call :skip %arg%

+    ) else if not "%use_filter_szip%"=="yes" (

+        call :skip %arg%

+    ) else (

+        call :tooltest %arg%

+    )

+

+    rem szip for all

+    set arg=%file4% -f SZIP=8,NN

+    if not "%use_filter_szip_encoder%"=="yes" (

+        call :skip %arg%

+    ) else if not "%use_filter_szip%"=="yes" (

+        call :skip %arg%

+    ) else (

+        call :tooltest %arg% 

+    )

+

+    rem shuffle with individual object

+    set arg=%file4% -f dset2:SHUF  -l dset2:CHUNK=20x10

+    if not "%use_filter_shuffle%"=="yes" (

+        call :skip %arg%

+    ) else (

+        call :tooltest %arg% 

+    )

+      

+

+    rem shuffle for all

+    set arg=%file4% -f SHUF

+    if not "%use_filter_shuffle%"=="yes" (

+        call :skip %arg%

+    ) else (

+        call :tooltest %arg%

+    )

+      

+    rem fletcher32  with individual object

+    set arg=%file4% -f dset2:FLET  -l dset2:CHUNK=20x10

+    if not "%use_filter_fletcher32%"=="yes" (

+        call :skip %arg%

+    ) else (

+        call :tooltest %arg%

+    )

+

+    rem fletcher32 for all

+    set arg=%file4% -f FLET

+    if not "%use_filter_fletcher32%"=="yes" (

+        call :skip %arg%

+    ) else (

+        call :tooltest %arg%

+    )

+

+    rem all filters

+    set arg=%file4% -f dset2:SHUF -f dset2:FLET -f dset2:SZIP=8,NN -f dset2:GZIP=1 -l dset2:CHUNK=20x10

+    rem On Windows we must check each filter individually, because we don't have

+    rem -o flag like Linux.  --SJW 8/28/07

+    if not "%use_filter_szip_encoder%"=="yes" (

+        call :skip %arg%

+    ) else if not "%use_filter_szip%"=="yes" (

+        call :skip %arg%

+    ) else if not "%use_filter_shuffle%"=="yes" (

+        call :skip %arg%

+    ) else if not "%use_filter_fletcher32%"=="yes" (

+        call :skip %arg%

+    ) else if not "%use_filter_deflate%"=="yes" (

+        call :skip %arg%

+    ) else (

+        call :tooltest %arg%

+    )

+      

+    rem ##########################################################

+    rem  the following tests assume the input files have filters

+    rem ##########################################################

+

+    rem szip copy

+    set arg=%file7%

+    if not "%use_filter_szip_encoder%"=="yes" (

+        call :skip %arg%

+    ) else if not "%use_filter_szip%"=="yes" (

+        call :skip %arg%

+    ) else (

+        call :tooltest %arg%

+    )

+      

+    rem szip remove

+    set arg=%file7% -f dset_szip:NONE

+    if not "%use_filter_szip_encoder%"=="yes" (

+        call :skip %arg%

+    ) else if not "%use_filter_szip%"=="yes" (

+        call :skip %arg%

+    ) else (

+        call :tooltest %arg%

+    )

+      

+    rem deflate copy

+    set arg=%file8%

+    if not "%use_filter_deflate%"=="yes" (

+        call :skip %arg%

+    ) else (

+        call :tooltest %arg%

+    )

+

+    rem deflate remove

+    set arg=%file8% -f dset_deflate:NONE

+    if not "%use_filter_deflate%"=="yes" (

+        call :skip %arg%

+    ) else (

+        call :tooltest %arg%

+    )

+        

+    rem shuffle copy

+    set arg=%file9%

+    if not "%use_filter_shuffle%"=="yes" (

+        call :skip %arg%

+    ) else (

+        call :tooltest %arg%

+    )

+

+    rem shuffle remove

+    set arg=%file9% -f dset_shuffle:NONE

+    if not "%use_filter_shuffle%"=="yes" (

+        call :skip %arg%

+    ) else (

+        call :tooltest %arg%

+    )

+

+    rem fletcher32 copy

+    set arg=%file10%

+    if not "%use_filter_fletcher32%"=="yes" (

+        call :skip %arg%

+    ) else (

+        call :tooltest %arg%

+    )

+

+    rem fletcher32 remove

+    set arg=%file10% -f dset_fletcher32:NONE

+    if not "%use_filter_fletcher32%"=="yes" (

+        call :skip %arg%

+    ) else (

+        call :tooltest %arg%

+    )

+

+    rem nbit copy

+    set arg=%file12%

+    if not "%use_filter_nbit%"=="yes" (

+        call :skip %arg%

+    ) else (

+        call :tooltest %arg%

+    )

+

+    rem nbit remove

+    set arg=%file12% -f dset_nbit:NONE

+    if not "%use_filter_nbit%"=="yes" (

+        call :skip %arg%

+    ) else (

+        call :tooltest %arg%

+    )

+

+    rem nbit add

+    set arg=%file12% -f dset_int31:NBIT

+    if not "%use_filter_nbit%"=="yes" (

+        call :skip %arg%

+    ) else (

+        call :tooltest %arg%

+    )

+

+    rem scaleoffset copy

+    set arg=%file13%

+    if not "%use_filter_scaleoffset%"=="yes" (

+        call :skip %arg%

+    ) else (

+        call :tooltest %arg%

+    )

+

+    rem scaleoffset add

+    set arg=%file13% -f dset_none:SOFF=31,IN

+    if not "%use_filter_scaleoffset%"=="yes" (

+        call :skip %arg%

+    ) else (

+        call :tooltest %arg%

+    )

+

+    rem scaleoffset remove

+    set arg=%file13% -f dset_scaleoffset:NONE

+    if not "%use_filter_scaleoffset%"=="yes" (

+        call :skip %arg%

+    ) else (

+        call :tooltest %arg%

+    )

+

+    rem remove all  filters

+    set arg=%file11% -f NONE

+    if not "%use_filter_fletcher32%"=="yes" (

+        call :skip %arg%

+    ) else if not "%use_filter_deflate%"=="yes" (

+        call :skip %arg%

+    ) else if not "%use_filter_szip%"=="yes" (

+        call :skip %arg%

+    ) else if not "%use_filter_szip_encoder%"=="yes" (

+        call :skip %arg%

+    ) else if not "%use_filter_shuffle%"=="yes" (

+        call :skip %arg%

+    ) else if not "%use_filter_nbit%"=="yes" (

+        call :skip %arg%

+    ) else if not "%use_filter_scaleoffset%"=="yes" (

+        call :skip %arg%

+    ) else (

+        call :tooltest %arg%

+    )

+

+    rem filter conversions

+

+    set arg=%file8% -f dset_deflate:SZIP=8,NN

+    if not "%use_filter_szip_encoder%"=="yes" (

+        call :skip %arg%

+    ) else if not "%use_filter_szip%"=="yes" (

+        call :skip %arg%

+    ) else if not "%use_filter_deflate%"=="yes" (

+        call :skip %arg%

+    ) else (

+        call :tooltest %arg% 

+    )

+

+    set arg=%file7% -f dset_szip:GZIP=1

+    if not "%use_filter_szip_encoder%"=="yes" (

+        call :skip %arg%

+    ) else if not "%use_filter_szip%"=="yes" (

+        call :skip %arg%

+    ) else if not "%use_filter_deflate%"=="yes" (

+        call :skip %arg%

+    ) else (

+        call :tooltest %arg% 

+    )

+

+

+    rem limit

+    set arg=%file4% -f GZIP=1 -m 1024

+    if not "%use_filter_deflate%"=="yes" (

+        call :skip %arg%

+    ) else (

+        call :tooltest %arg%

+    )

+

+    rem file

+    set arg=%file4% -e %info_file%

+    if not "%use_filter_deflate%"=="yes" (

+        call :skip %arg%

+    ) else (

+        call :tooltest %arg%

+    )

+

+

+    rem ########################################################

+    rem  layout options (these files have no filters)

+    rem ########################################################

+

+    call :tooltest %file4% -l dset2:CHUNK=20x10

+    call :tooltest %file4% -l CHUNK=20x10

+    call :tooltest %file4% -l dset2:CONTI

+    call :tooltest %file4% -l CONTI

+    call :tooltest %file4% -l dset2:COMPA

+    call :tooltest %file4% -l COMPA

+

+

+    rem ###############################################################

+    rem  layout conversions (file has no filters)

+    rem ##############################################################

+

+    set arg1=%file4% -l dset_compact:CONTI

+    set arg2=%file4% -l dset_compact:CHUNK=2x5

+    set arg3=%file4% -l dset_compact:COMPA

+    set arg4=%file4% -l dset_contiguous:COMPA

+    set arg5=%file4% -l dset_contiguous:CHUNK=3x6

+    set arg6=%file4% -l dset_contiguous:CONTI

+    set arg7=%file4% -l dset_chunk:COMPA

+    set arg8=%file4% -l dset_chunk:CONTI

+    set arg9=%file4% -l dset_chunk:CHUNK=18x13

+    call :tooltest %arg1%

+    call :tooltest %arg2%

+    call :tooltest %arg3%

+    call :tooltest %arg4%

+    call :tooltest %arg5%

+    call :tooltest %arg6%

+    call :tooltest %arg7%

+    call :tooltest %arg8%

+    call :tooltest %arg9%

+

+    rem native option

+    set arg=%file1% -n

+    call :tooltest %arg%

+

+    

+    if %nerrors% equ 0 (

+        echo.All %h5repack% tests passed.

+    )

+    

+    popd

+    endlocal & exit /b %nerrors%

+    
\ No newline at end of file