mirror of
https://github.com/HDFGroup/hdf5.git
synced 2024-12-09 07:32:32 +08:00
44022e598c
Update Description: Updated the Copyright statement Platforms tested: Linux (This change is only in the comments, so I just check that the modules still compile) Misc. update:
197 lines
7.5 KiB
C
197 lines
7.5 KiB
C
/* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
|
|
* 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: Raymond Lu <slu@ncsa.uiuc.edu>
|
|
* April 14, 2000
|
|
*
|
|
* Purpose: Test HDF-SRB if it is configured and compiled. Append an
|
|
* integer dataset to an existent HDF5 file with an integer array
|
|
* on SRB server.
|
|
*
|
|
* Usage: The HDF5 is built on the top of SRB. So you just need to
|
|
* activate a connection to SRB server by calling function
|
|
* H5Pset_fapl_srb()(after creating file property list by calling
|
|
* H5Pcreate()). All server information is passed in through its
|
|
* parameter SRB_Info(a structure). Its fields are
|
|
* char *srbHost: SRB host address of server. If the input is
|
|
* NULL, it will use the environment varible "srbHost" if
|
|
* it is defined. If it is not defined, the
|
|
* ~/.srb/.MdasEnd file will be checked next. If not, it
|
|
* will use the hostname of the client machine.
|
|
* char *srbPort: SRB host port number of server. If the
|
|
* input value is NULL, it will use the env variable
|
|
* "srbPort" if it is defined. If not, it defaults to
|
|
* 5558.
|
|
* char *srbAuth: SRB Authentication-password. It is used to
|
|
* define password for MDAS or SEA authentication.
|
|
* For SEA authentication, this is the password used by
|
|
* the SEA library to decrypt the encrypted private key
|
|
* stored in the file ~/.SEAuuuuu@ddddd(where uuuuu is
|
|
* the user ID and ddddd is the user domain name). This
|
|
* input is not needed if an unencrypted private key is
|
|
* available in the /tmp directory(generated using the
|
|
* 'seaauth auto' command). To provide additional
|
|
* flexibility, a client may also use the environment
|
|
* variable "srbAuth" to specify the password. A client
|
|
* may also supply the password in the ~/.srb/.MdasAuth
|
|
* file. If a client uses more than one method to specfy
|
|
* the password, the value given in this function call
|
|
* will take precedent, then the environment variable
|
|
* "srbAuth", and lastly, the ~/.srb/.MdasAuth file.
|
|
* int storSysType: Storage system type on SRB server.
|
|
* 0=Unix, 1=UniTree, 2=HPSS, 3=FTP, 4=HTTP
|
|
* int mode: File access mode, same definition with Unix.
|
|
* int size: File Size, only valid for HPSS, -1 is default
|
|
*
|
|
* Then you can open an HDF5 file by calling H5Fopen(). When
|
|
* you pass in the file name, it has to be file name with an
|
|
* absolute path. It you use SDSC server(ghidorah.sdsc.edu), your
|
|
* home directory is possibly in /projects/mdas/srb/SRBVault/.
|
|
*/
|
|
#include "h5test.h"
|
|
|
|
#ifndef H5_HAVE_SRB
|
|
int main(void)
|
|
{
|
|
printf("Test skipped because SRB driver not available\n");
|
|
return 0;
|
|
}
|
|
#else
|
|
|
|
#define fileName "/projects/mdas/srb/SRBVault/slu.ncsa/a.h5"
|
|
#define DATASETNAME "Int1Array"
|
|
#define NX 5 /* dataset dimensions */
|
|
#define NY 6
|
|
#define RANK 2
|
|
|
|
int main(void)
|
|
{
|
|
SRB_Info srb_info={ NULL, /* Use the server name in ~/.srb/MdasEnv */
|
|
NULL, /* Use the server port number in
|
|
* ~/.srb/MdasEnv */
|
|
NULL, /* Use the password in ~/.srb/MdasAuth */
|
|
0, /* Using Unix storage system. */
|
|
0600, /* Open file for read and write for owner */
|
|
-1 /* default */
|
|
};
|
|
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;
|
|
|
|
/*
|
|
* 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;
|
|
}
|
|
status = H5Pset_fapl_srb (fapl, srb_info);
|
|
if (status < 0) {
|
|
printf ("H5Pset_fapl_gass failed. \n");
|
|
return -1;
|
|
}
|
|
|
|
/*
|
|
* Open an existing file using H5F_ACC_RDWR access,
|
|
* and srb file access properties.
|
|
*/
|
|
file = H5Fopen(fileName, 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);
|
|
|
|
printf("Test finished!\n");
|
|
return 0;
|
|
}
|
|
|
|
#endif
|