From 69b83ce9a3ef76e575cdfce0d05c2fb4a516faa2 Mon Sep 17 00:00:00 2001 From: Pedro Vicente Nunes Date: Fri, 26 Mar 2004 11:29:45 -0500 Subject: [svn-r8284] Purpose: add a "generator" program for the test files that are used in the "test_filter_endianess" of the dsets test Description: Solution: Platforms tested: windows Misc. update: --- test/gen_filters.c | 104 +++++++++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 104 insertions(+) create mode 100644 test/gen_filters.c diff --git a/test/gen_filters.c b/test/gen_filters.c new file mode 100644 index 0000000..dd4f369 --- /dev/null +++ b/test/gen_filters.c @@ -0,0 +1,104 @@ +/* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * + * Copyright by the Board of Trustees of the University of Illinois. * + * All rights reserved. * + * * + * This file is part of HDF5. The full HDF5 copyright notice, including * + * terms governing use, modification, and redistribution, is contained in * + * the files COPYING and Copyright.html. COPYING can be found at the root * + * of the source code distribution tree; Copyright.html can be found at the * + * root level of an installed copy of the electronic HDF5 document set and * + * is linked from the top-level documents page. It can also be found at * + * http://hdf.ncsa.uiuc.edu/HDF5/doc/Copyright.html. If you do not have * + * access to either file, you may request a copy from hdfhelp@ncsa.uiuc.edu. * + * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ + +/* + * Programmer: Pedro Vicente + * Thursday, March 25, 2004 + * + * Purpose: Create a dataset with the fletcher filter. + * This program is used to create the test file `test_filters.h5' which has + * a dataset with the "fletcher" I/O filter. This dataset will + * be used to verify the correct behavior of the library in the test "dsets" + */ +#include "hdf5.h" + +#define TESTFILE "test_filters.h5" + + +static herr_t +test_filters_endianess(void) +{ + hid_t fid; /* file ID */ + hid_t dsid; /* dataset ID */ + hid_t sid; /* dataspace ID */ + hid_t dcpl; /* dataset creation property list ID */ + hsize_t dims[1]={20}; /* dataspace dimensions */ + hsize_t chunk_dims[1]={10}; /* chunk dimensions */ + int buf[20]; + int rank=1; + int i; + + for (i=0; i<20; i++){ + buf[i]=1; + } + +#if defined H5_HAVE_FILTER_FLETCHER32 + /* create a file using default properties */ + fid=H5Fcreate(TESTFILE,H5F_ACC_TRUNC,H5P_DEFAULT,H5P_DEFAULT); + + /* create a data space */ + if ((sid = H5Screate_simple(rank,dims,NULL))<0) goto error; + + /* create dcpl */ + if((dcpl = H5Pcreate(H5P_DATASET_CREATE))<0) goto error; + if(H5Pset_chunk(dcpl,rank,chunk_dims)<0) goto error; + + if (H5Pset_fletcher32 (dcpl)<0) goto error; + + /* create a dataset */ + if ((dsid = H5Dcreate(fid,"dset",H5T_NATIVE_INT,sid,dcpl)) <0) goto error; + + if(H5Dwrite(dsid,H5T_NATIVE_INT,H5S_ALL,H5S_ALL,H5P_DEFAULT,buf)<0) + goto error; + + /* close */ + if (H5Pclose (dcpl)<0) goto error; + if (H5Dclose (dsid)<0) goto error; + if (H5Sclose (sid)<0) goto error; + if (H5Fclose (fid)<0) goto error; + +#endif + return 0; + +error: + H5E_BEGIN_TRY { + H5Pclose(dcpl); + H5Dclose(dsid); + H5Sclose(sid); + H5Fclose(fid); + } H5E_END_TRY; + return -1; +} /* end test_filters_endianess() */ + + + + +/*------------------------------------------------------------------------- + * Function: main + * + * Purpose: call the generator function + * + * Return: Success: + * + * Modifications: + * + *------------------------------------------------------------------------- + */ +int +main(void) +{ + test_filters_endianess(); + return 0; +} + -- cgit v0.12