diff options
Diffstat (limited to 'test/gass_append.c')
| -rw-r--r-- | test/gass_append.c | 169 |
1 files changed, 0 insertions, 169 deletions
diff --git a/test/gass_append.c b/test/gass_append.c deleted file mode 100644 index 5827a74..0000000 --- a/test/gass_append.c +++ /dev/null @@ -1,169 +0,0 @@ -/* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * - * 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: Saurabh Bagchi (bagchi@uiuc.edu) - * Wednesday, August 11, 1999. - * - * Modifications: Saurabh Bagchi (Aug 17, 1999) - * Modified to work with VFL (HDF51.3). - */ - -/* Test the following functionality of the GASS driver. - 1. Open a remote file for append. - 2. Create a new dataset within the file. - 3. Create a local memory buffer to hold the data. - 4. Write the local data to the remote dataset. -*/ -#include "h5test.h" - -#ifndef H5_HAVE_GASS -int main(void) -{ - printf("Test skipped because GASS driver not available\n"); - return 0; -} -#else - -#ifdef hide - -#define URL "ftp://gass:gass12@which/tmp/gass/junk.w" -#define DATASETNAME "Int1Array" -#define NX 5 /* dataset dimensions */ -#define NY 6 -#define RANK 2 - -int main (void) -{ - - hid_t fapl =-1, file; - hid_t dataspace, datatype, dataset; - hsize_t dimsf[2]; - - herr_t status = 0; - int data[NX][NY]; /* data to write */ - int i, j; - GASS_Info ginf; - - /* - * Data and output buffer initialization. - */ - for (j = 0; j < NX; j++) { - for (i = 0; i < NY; i++) - data[j][i] = i*i + j*j; - } - /* - * 0 1 4 9 16 25 - * 1 2 5 10 17 26 - * 4 5 8 13 20 29 - * 9 10 13 18 25 34 - * 16 17 20 25 32 41 - */ - - /* Create access property list and set the driver to GASS */ - fapl = H5Pcreate (H5P_FILE_ACCESS); - if (fapl < 0) { - printf (" H5Pcreate failed. \n"); - return -1; - } - - ginf.block_size = 0; - ginf.max_length =0; - /* ginf = GASS_INFO_NULL; */ - - status = H5Pset_fapl_gass (fapl, ginf); - if (status < 0) { - printf ("H5Pset_fapl_gass failed. \n"); - return -1; - } - - /* - * Open an existing file using H5F_ACC_RDWR access, - * and gass file access properties. - */ - file = H5Fopen(URL, H5F_ACC_RDWR, fapl); - if (file < 0) { - printf ("H5Fopen failed. \n"); - return -1; - } - - /* - * Describe the size of the array and create the data space for fixed - * size dataset. - */ - dimsf[0] = NX; - dimsf[1] = NY; - dataspace = H5Screate_simple(RANK, dimsf, NULL); - if (dataspace < 0) { - printf ("H5Screate failed. \n"); - return -1; - } - - /* - * Define datatype for the data in the file. - * We will store little endian INT numbers. - */ - datatype = H5Tcopy(H5T_NATIVE_INT); - if (datatype < 0) { - printf ("H5Tcopy failed. \n"); - return -1; - } - - status = H5Tset_order(datatype, H5T_ORDER_LE); - if (status < 0) { - printf ("H5Tset_order failed. \n"); - return -1; - } - - /* - * Create a new dataset within the file using defined dataspace and - * datatype and default dataset creation properties. - */ - dataset = H5Dcreate(file, DATASETNAME, datatype, dataspace, - H5P_DEFAULT); - if (dataset < 0) { - printf ("H5Dcreate failed. \n"); - return -1; - } - - /* - * Write the data to the dataset using default transfer properties. - */ - status = H5Dwrite(dataset, H5T_NATIVE_INT, H5S_ALL, H5S_ALL, - H5P_DEFAULT, data); - if (status < 0) { - printf ("H5Dwrite failed. \n"); - return -1; - } - - /* - * Close/release resources. - */ - H5Sclose(dataspace); - H5Tclose(datatype); - H5Dclose(dataset); - H5Fclose(file); - H5Pclose(fapl); - - return 0; -} - -#else -int main(void) -{ - printf("Test skipped because append depends on web server!\n"); - return 0; -} -#endif -#endif |