[svn-r8229] Purpose:

1) new function  for tools library
2) new test script for h5repack


Description:
1) currently all the tools (h5dump, h5diff, etc)  do not check if a filter is available
for reading some dataset that might have a filter not available on the current configuration (the behaviour
of the tools until now was to trigger a library error, saying that the dataset cannot be read
due to the lack of the filter)


Solution:
1) added a new function h5tools_canreadf that checks if a dataset can be read
depending on the availability of filters.
this function was added in calls for h5diff and h5repack.
instead of triggering the library error, a message is printed, saying that the dataset
cannot be read (the print is optional, it is on on verbose mode)

2) added a shell script that tests the commannd line tool behaviour of h5repack
the script does a series of runs of h5repack  with several options on the same file (this file test4.h5
was added to the testfiles dir).
then, it runs the h5diff tool, with the input and output files , in each run.
the goal of the test is also to check item 1) . the binary file was saved with filters
that might not be available on other configurations


Platforms tested:
linux (all filters enabled)
linux (some filters disabled)
solaris (some filters disabled)
AIX (some filters disabled)
windows (all filters on and off )


Misc. update:

1 files changed, 19 insertions, 9 deletions

diff --git a/tools/h5repack/h5repack_refs.c b/tools/h5repack/h5repack_refs.c
index a39a5ae..5955a08 100644
--- a/tools/h5repack/h5repack_refs.c
+++ b/tools/h5repack/h5repack_refs.c
@@ -127,6 +127,16 @@ int do_copy_refobjs(hid_t fidin,
     goto error;
 
 /*-------------------------------------------------------------------------
+ * check if the dataset creation property list has filters that 
+ * are not registered in the current configuration 
+ * 1) the external filters GZIP and SZIP might not be available
+ * 2) the internal filters might be turned off
+ *-------------------------------------------------------------------------
+ */
+   if (h5tools_canreadf((options->verbose?travt->objs[i].name:NULL),dcpl_id)==1)
+   {
+
+/*-------------------------------------------------------------------------
  * test for a valid output dataset
  *-------------------------------------------------------------------------
  */
@@ -311,7 +321,7 @@ int do_copy_refobjs(hid_t fidin,
  */
    if (copy_refs_attr(dset_in,dset_out,options,travt,fidout)<0) 
     goto error;
-
+   
 
 /*-------------------------------------------------------------------------
  * check for hard links
@@ -319,14 +329,18 @@ int do_copy_refobjs(hid_t fidin,
  */
    if (travt->objs[i].nlinks)
    {
-    for ( j=0; j<travt->objs[i].nlinks; j++)
-    {
-      H5Glink(fidout, 
+    for ( j=0; j<travt->objs[i].nlinks; j++){
+     H5Glink(fidout, 
       H5G_LINK_HARD,
       travt->objs[i].name,
       travt->objs[i].links[j].new_name);
     }
    }
+
+   if (H5Dclose(dset_out)<0) 
+    goto error;
+
+   }/*can_read*/
    
    /*-------------------------------------------------------------------------
     * close
@@ -343,9 +357,7 @@ int do_copy_refobjs(hid_t fidin,
     goto error;
    if (H5Dclose(dset_in)<0) 
     goto error;
-   if (H5Dclose(dset_out)<0) 
-    goto error;
-   
+      
    break;
    
   /*-------------------------------------------------------------------------
@@ -359,11 +371,9 @@ int do_copy_refobjs(hid_t fidin,
   
    if (H5Tclose(type_in)<0) 
     goto error;
- 
    
    break;
    
-   
   /*-------------------------------------------------------------------------
    * H5G_LINK
    *-------------------------------------------------------------------------