1998-11-21 11:36:51 +08:00
|
|
|
|
/*
|
|
|
|
|
* Copyright <EFBFBD> 1998 NCSA
|
|
|
|
|
* All rights reserved.
|
|
|
|
|
*
|
|
|
|
|
* Programmer: Robb Matzke <matzke@llnl.gov>
|
|
|
|
|
* Thursday, November 19, 1998
|
|
|
|
|
*
|
|
|
|
|
* Purpose: Provides support functions for most of the hdf5 tests cases.
|
|
|
|
|
*
|
|
|
|
|
*/
|
|
|
|
|
|
|
|
|
|
#undef NDEBUG /*override -DNDEBUG */
|
|
|
|
|
#include <h5test.h>
|
|
|
|
|
|
|
|
|
|
/*
|
|
|
|
|
* Define these environment variables or constants to influence functions in
|
|
|
|
|
* this test support library. The environment variable is used in preference
|
|
|
|
|
* to the cpp constant. If neither is defined then use some default value.
|
|
|
|
|
*
|
|
|
|
|
* HDF5_DRIVER: This string describes what low level file driver to
|
|
|
|
|
* use for HDF5 file access. The first word in the
|
|
|
|
|
* value is the name of the driver and subsequent data
|
|
|
|
|
* is interpreted according to the driver. See
|
|
|
|
|
* h5_fileaccess() for details.
|
|
|
|
|
*
|
2000-01-26 12:20:36 +08:00
|
|
|
|
* HDF5_PREFIX: A string to add to the beginning of all serial test
|
|
|
|
|
* file names. This can be used to run tests in a
|
|
|
|
|
* different file system (e.g., "/tmp" or "/tmp/myname").
|
|
|
|
|
* The prefix will be separated from the base file name
|
|
|
|
|
* by a slash. See h5_fixname() for details.
|
|
|
|
|
*
|
|
|
|
|
* HDF5_PARAPREFIX: A string to add to the beginning of all parallel test
|
|
|
|
|
* file names. This can be used to tell MPIO what driver
|
|
|
|
|
* to use (e.g., "gfs:", "ufs:", or "nfs:") or to use a
|
|
|
|
|
* different file system (e.g., "/tmp" or "/tmp/myname").
|
|
|
|
|
* The prefix will be separated from the base file name
|
|
|
|
|
* by a slash. See h5_fixname() for details.
|
|
|
|
|
*
|
|
|
|
|
*/
|
|
|
|
|
/*
|
|
|
|
|
* In a parallel machine, the filesystem suitable for compiling is
|
|
|
|
|
* unlikely a parallel file system that is suitable for parallel I/O.
|
|
|
|
|
* There is no standard pathname for the parallel file system. /tmp
|
|
|
|
|
* is about the best guess.
|
1998-11-21 11:36:51 +08:00
|
|
|
|
*/
|
2000-01-26 12:20:36 +08:00
|
|
|
|
#ifndef HDF5_PARAPREFIX
|
|
|
|
|
#ifdef __PUMAGON__
|
|
|
|
|
/* For the PFS of TFLOPS */
|
2000-10-10 12:35:39 +08:00
|
|
|
|
#define HDF5_PARAPREFIX "pfs:/pfs_grande/multi/tmp_1"
|
2000-01-26 12:20:36 +08:00
|
|
|
|
#else
|
2000-10-10 12:35:39 +08:00
|
|
|
|
#define HDF5_PARAPREFIX "/tmp"
|
2000-01-26 12:20:36 +08:00
|
|
|
|
#endif
|
|
|
|
|
#endif
|
|
|
|
|
char *paraprefix = NULL; /* for command line option para-prefix */
|
1998-11-21 11:36:51 +08:00
|
|
|
|
|
1999-08-18 03:12:59 +08:00
|
|
|
|
/*
|
|
|
|
|
* These are the letters that are appended to the file name when generating
|
|
|
|
|
* names for the split and multi drivers. They are:
|
|
|
|
|
*
|
|
|
|
|
* m: All meta data when using the split driver.
|
|
|
|
|
* s: The userblock, superblock, and driver info block
|
|
|
|
|
* b: B-tree nodes
|
|
|
|
|
* r: Dataset raw data
|
|
|
|
|
* g: Global heap
|
|
|
|
|
* l: local heap (object names)
|
|
|
|
|
* o: object headers
|
|
|
|
|
*/
|
|
|
|
|
static const char *multi_letters = "msbrglo";
|
1998-11-21 11:36:51 +08:00
|
|
|
|
|
|
|
|
|
|
|
|
|
|
/*-------------------------------------------------------------------------
|
|
|
|
|
* Function: h5_errors
|
|
|
|
|
*
|
|
|
|
|
* Purpose: Displays the error stack after printing "*FAILED*".
|
|
|
|
|
*
|
|
|
|
|
* Return: Success: 0
|
|
|
|
|
*
|
|
|
|
|
* Failure: -1
|
|
|
|
|
*
|
|
|
|
|
* Programmer: Robb Matzke
|
|
|
|
|
* Wednesday, March 4, 1998
|
|
|
|
|
*
|
|
|
|
|
* Modifications:
|
|
|
|
|
*
|
|
|
|
|
*-------------------------------------------------------------------------
|
|
|
|
|
*/
|
|
|
|
|
herr_t
|
1999-04-16 03:57:50 +08:00
|
|
|
|
h5_errors(void UNUSED *client_data)
|
1998-11-21 11:36:51 +08:00
|
|
|
|
{
|
|
|
|
|
FAILED();
|
|
|
|
|
H5Eprint (stdout);
|
|
|
|
|
return 0;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
/*-------------------------------------------------------------------------
|
|
|
|
|
* Function: h5_cleanup
|
|
|
|
|
*
|
2000-09-10 08:08:27 +08:00
|
|
|
|
* Purpose: Cleanup temporary test files.
|
|
|
|
|
* base_name contains the list of test file names.
|
|
|
|
|
* The file access property list is also closed.
|
1998-11-21 11:36:51 +08:00
|
|
|
|
*
|
1998-11-25 22:58:22 +08:00
|
|
|
|
* Return: Non-zero if cleanup actions were performed; zero otherwise.
|
1998-11-21 11:36:51 +08:00
|
|
|
|
*
|
|
|
|
|
* Programmer: Albert Cheng
|
|
|
|
|
* May 28, 1998
|
|
|
|
|
*
|
|
|
|
|
* Modifications:
|
2000-09-10 08:08:27 +08:00
|
|
|
|
* Albert Cheng, 2000-09-09
|
|
|
|
|
* Added the explicite base_name argument to replace the
|
|
|
|
|
* global variable FILENAME.
|
1998-11-21 11:36:51 +08:00
|
|
|
|
*
|
|
|
|
|
*-------------------------------------------------------------------------
|
|
|
|
|
*/
|
1998-11-25 22:58:22 +08:00
|
|
|
|
int
|
2000-09-10 08:08:27 +08:00
|
|
|
|
h5_cleanup(const char *base_name[], hid_t fapl)
|
1998-11-21 11:36:51 +08:00
|
|
|
|
{
|
|
|
|
|
char filename[1024];
|
|
|
|
|
char temp[2048];
|
|
|
|
|
int i, j;
|
1998-11-25 22:58:22 +08:00
|
|
|
|
int retval=0;
|
2000-11-28 07:01:48 +08:00
|
|
|
|
#ifndef H5_WANT_H5_V1_2_COMPAT
|
1999-08-11 04:21:32 +08:00
|
|
|
|
hid_t driver;
|
2000-11-28 07:01:48 +08:00
|
|
|
|
#endif /* H5_WANT_H5_V1_2_COMPAT */
|
1998-11-21 11:36:51 +08:00
|
|
|
|
|
|
|
|
|
if (!getenv("HDF5_NOCLEANUP")) {
|
2000-09-10 08:08:27 +08:00
|
|
|
|
for (i=0; base_name[i]; i++) {
|
|
|
|
|
if (NULL==h5_fixname(base_name[i], fapl, filename,
|
1998-11-21 11:36:51 +08:00
|
|
|
|
sizeof filename)) {
|
|
|
|
|
continue;
|
|
|
|
|
}
|
|
|
|
|
|
2000-11-28 07:01:48 +08:00
|
|
|
|
#ifdef H5_WANT_H5_V1_2_COMPAT
|
|
|
|
|
switch (H5Pget_driver(fapl)) {
|
|
|
|
|
case H5F_LOW_CORE:
|
|
|
|
|
break; /*nothing to remove*/
|
|
|
|
|
|
|
|
|
|
case H5F_LOW_SPLIT:
|
|
|
|
|
HDsnprintf(temp, sizeof temp, "%s.raw", filename);
|
|
|
|
|
remove(temp);
|
|
|
|
|
HDsnprintf(temp, sizeof temp, "%s.meta", filename);
|
|
|
|
|
remove(temp);
|
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
case H5F_LOW_FAMILY:
|
|
|
|
|
for (j=0; /*void*/; j++) {
|
|
|
|
|
HDsnprintf(temp, sizeof temp, filename, j);
|
|
|
|
|
if (access(temp, F_OK)<0) break;
|
|
|
|
|
remove(temp);
|
|
|
|
|
}
|
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
default:
|
|
|
|
|
remove(filename);
|
|
|
|
|
break;
|
|
|
|
|
}
|
|
|
|
|
#else /* H5_WANT_H5_V1_2_COMPAT */
|
1999-08-11 04:21:32 +08:00
|
|
|
|
driver = H5Pget_driver(fapl);
|
|
|
|
|
if (H5FD_FAMILY==driver) {
|
1998-11-21 11:36:51 +08:00
|
|
|
|
for (j=0; /*void*/; j++) {
|
1998-11-24 23:53:55 +08:00
|
|
|
|
HDsnprintf(temp, sizeof temp, filename, j);
|
1998-11-21 11:36:51 +08:00
|
|
|
|
if (access(temp, F_OK)<0) break;
|
|
|
|
|
remove(temp);
|
|
|
|
|
}
|
1999-08-11 04:21:32 +08:00
|
|
|
|
} else if (H5FD_CORE==driver) {
|
|
|
|
|
/*void*/
|
1999-08-18 03:12:59 +08:00
|
|
|
|
} else if (H5FD_MULTI==driver) {
|
|
|
|
|
H5FD_mem_t mt;
|
|
|
|
|
assert(strlen(multi_letters)==H5FD_MEM_NTYPES);
|
1999-11-18 06:00:15 +08:00
|
|
|
|
for (mt=H5FD_MEM_DEFAULT; mt<H5FD_MEM_NTYPES; mt++) {
|
1999-08-18 03:12:59 +08:00
|
|
|
|
HDsnprintf(temp, sizeof temp, "%s-%c.h5",
|
|
|
|
|
filename, multi_letters[mt]);
|
|
|
|
|
remove(temp); /*don't care if it fails*/
|
|
|
|
|
}
|
1999-08-11 04:21:32 +08:00
|
|
|
|
} else {
|
1998-11-21 11:36:51 +08:00
|
|
|
|
remove(filename);
|
|
|
|
|
}
|
2000-11-28 07:01:48 +08:00
|
|
|
|
#endif /* H5_WANT_H5_V1_2_COMPAT */
|
1998-11-21 11:36:51 +08:00
|
|
|
|
}
|
1998-11-25 22:58:22 +08:00
|
|
|
|
retval=1;
|
1998-11-21 11:36:51 +08:00
|
|
|
|
}
|
|
|
|
|
H5Pclose(fapl);
|
1998-11-25 22:58:22 +08:00
|
|
|
|
return retval;
|
1998-11-21 11:36:51 +08:00
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
/*-------------------------------------------------------------------------
|
|
|
|
|
* Function: h5_reset
|
|
|
|
|
*
|
|
|
|
|
* Purpose: Reset the library by closing it.
|
|
|
|
|
*
|
|
|
|
|
* Return: void
|
|
|
|
|
*
|
|
|
|
|
* Programmer: Robb Matzke
|
|
|
|
|
* Friday, November 20, 1998
|
|
|
|
|
*
|
|
|
|
|
* Modifications:
|
|
|
|
|
*
|
|
|
|
|
*-------------------------------------------------------------------------
|
|
|
|
|
*/
|
|
|
|
|
void
|
|
|
|
|
h5_reset(void)
|
|
|
|
|
{
|
1998-11-25 22:58:22 +08:00
|
|
|
|
char filename[1024];
|
|
|
|
|
|
1998-11-21 11:36:51 +08:00
|
|
|
|
fflush(stdout);
|
|
|
|
|
fflush(stderr);
|
|
|
|
|
H5close();
|
1998-11-25 22:58:22 +08:00
|
|
|
|
H5Eset_auto (h5_errors, NULL);
|
|
|
|
|
|
|
|
|
|
/*
|
|
|
|
|
* Cause the library to emit some diagnostics early so they don't
|
|
|
|
|
* interfere with other formatted output.
|
|
|
|
|
*/
|
|
|
|
|
sprintf(filename, "/tmp/h5emit-%05d.h5", getpid());
|
|
|
|
|
H5E_BEGIN_TRY {
|
|
|
|
|
hid_t file = H5Fcreate(filename, H5F_ACC_TRUNC, H5P_DEFAULT,
|
|
|
|
|
H5P_DEFAULT);
|
|
|
|
|
hid_t grp = H5Gcreate(file, "emit", 0);
|
|
|
|
|
H5Gclose(grp);
|
|
|
|
|
H5Fclose(file);
|
|
|
|
|
unlink(filename);
|
|
|
|
|
} H5E_END_TRY;
|
|
|
|
|
}
|
1998-11-21 11:36:51 +08:00
|
|
|
|
|
|
|
|
|
|
|
|
|
|
/*-------------------------------------------------------------------------
|
|
|
|
|
* Function: h5_fixname
|
|
|
|
|
*
|
|
|
|
|
* Purpose: Create a file name from a file base name like `test' and
|
|
|
|
|
* return it through the FULLNAME (at most SIZE characters
|
|
|
|
|
* counting the null terminator). The full name is created by
|
|
|
|
|
* prepending the contents of HDF5_PREFIX (separated from the
|
|
|
|
|
* base name by a slash) and appending a file extension based on
|
2000-09-10 08:08:27 +08:00
|
|
|
|
* the driver supplied, resulting in something like
|
|
|
|
|
* `ufs:/u/matzke/test.h5'.
|
1998-11-21 11:36:51 +08:00
|
|
|
|
*
|
|
|
|
|
* Return: Success: The FULLNAME pointer.
|
|
|
|
|
*
|
|
|
|
|
* Failure: NULL if BASENAME or FULLNAME is the null
|
|
|
|
|
* pointer or if FULLNAME isn't large enough for
|
|
|
|
|
* the result.
|
|
|
|
|
*
|
|
|
|
|
* Programmer: Robb Matzke
|
|
|
|
|
* Thursday, November 19, 1998
|
|
|
|
|
*
|
|
|
|
|
* Modifications:
|
1999-08-11 04:21:32 +08:00
|
|
|
|
* Robb Matzke, 1999-08-03
|
|
|
|
|
* Modified to use the virtual file layer.
|
2000-01-26 12:20:36 +08:00
|
|
|
|
*
|
|
|
|
|
* Albert Cheng, 2000-01-25
|
|
|
|
|
* Added prefix for parallel test files.
|
1998-11-21 11:36:51 +08:00
|
|
|
|
*-------------------------------------------------------------------------
|
|
|
|
|
*/
|
|
|
|
|
char *
|
1999-06-15 22:58:25 +08:00
|
|
|
|
h5_fixname(const char *base_name, hid_t fapl, char *fullname, size_t size)
|
1998-11-21 11:36:51 +08:00
|
|
|
|
{
|
2000-01-26 12:20:36 +08:00
|
|
|
|
const char *prefix=NULL;
|
|
|
|
|
const char *suffix=".h5"; /* suffix has default */
|
2000-11-28 07:01:48 +08:00
|
|
|
|
#ifdef H5_WANT_H5_V1_2_COMPAT
|
|
|
|
|
H5F_driver_t driver;
|
|
|
|
|
#else /* H5_WANT_H5_V1_2_COMPAT */
|
1999-08-11 04:21:32 +08:00
|
|
|
|
hid_t driver;
|
2000-11-28 07:01:48 +08:00
|
|
|
|
#endif /* H5_WANT_H5_V1_2_COMPAT */
|
1998-11-21 11:36:51 +08:00
|
|
|
|
|
1999-06-15 22:58:25 +08:00
|
|
|
|
if (!base_name || !fullname || size<1) return NULL;
|
1998-11-21 11:36:51 +08:00
|
|
|
|
|
2000-11-28 07:01:48 +08:00
|
|
|
|
#ifndef H5_WANT_H5_V1_2_COMPAT
|
2000-01-26 12:20:36 +08:00
|
|
|
|
/* figure out the suffix */
|
|
|
|
|
if (H5P_DEFAULT!=fapl){
|
|
|
|
|
if ((driver=H5Pget_driver(fapl))<0) return NULL;
|
|
|
|
|
if (H5FD_FAMILY==driver) {
|
|
|
|
|
suffix = "%05d.h5";
|
|
|
|
|
} else if (H5FD_CORE==driver || H5FD_MULTI==driver) {
|
|
|
|
|
suffix = NULL;
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Use different ones depending on parallel or serial driver used. */
|
|
|
|
|
if (H5P_DEFAULT!=fapl && H5FD_MPIO==driver){
|
|
|
|
|
/* For parallel:
|
|
|
|
|
* First use command line option, then the environment variable,
|
|
|
|
|
* then try the constant
|
|
|
|
|
*/
|
|
|
|
|
prefix = (paraprefix ? paraprefix : getenv("HDF5_PARAPREFIX"));
|
|
|
|
|
#ifdef HDF5_PARAPREFIX
|
|
|
|
|
if (!prefix) prefix = HDF5_PARAPREFIX;
|
|
|
|
|
#endif
|
|
|
|
|
}else{
|
|
|
|
|
/* For serial:
|
|
|
|
|
* First use the environment variable, then try the constant
|
|
|
|
|
*/
|
|
|
|
|
prefix = getenv("HDF5_PREFIX");
|
1998-11-21 11:36:51 +08:00
|
|
|
|
#ifdef HDF5_PREFIX
|
2000-01-26 12:20:36 +08:00
|
|
|
|
if (!prefix) prefix = HDF5_PREFIX;
|
1998-11-21 11:36:51 +08:00
|
|
|
|
#endif
|
2000-01-26 12:20:36 +08:00
|
|
|
|
}
|
2000-11-28 07:01:48 +08:00
|
|
|
|
#endif /* H5_WANT_H5_V1_2_COMPAT */
|
2000-01-26 12:20:36 +08:00
|
|
|
|
|
1998-11-21 11:36:51 +08:00
|
|
|
|
|
|
|
|
|
/* Prepend the prefix value to the base name */
|
|
|
|
|
if (prefix && *prefix) {
|
1999-11-18 06:00:15 +08:00
|
|
|
|
if (HDsnprintf(fullname, (long)size, "%s/%s", prefix, base_name)==(int)size) {
|
1998-11-21 11:36:51 +08:00
|
|
|
|
return NULL; /*buffer is too small*/
|
|
|
|
|
}
|
1999-06-15 22:58:25 +08:00
|
|
|
|
} else if (strlen(base_name)>=size) {
|
1998-11-21 11:36:51 +08:00
|
|
|
|
return NULL; /*buffer is too small*/
|
|
|
|
|
} else {
|
1999-06-15 22:58:25 +08:00
|
|
|
|
strcpy(fullname, base_name);
|
1998-11-21 11:36:51 +08:00
|
|
|
|
}
|
|
|
|
|
|
2000-11-28 07:01:48 +08:00
|
|
|
|
#ifdef H5_WANT_H5_V1_2_COMPAT
|
|
|
|
|
/* Append a suffix */
|
|
|
|
|
if ((driver=H5Pget_driver(fapl))<0) return NULL;
|
|
|
|
|
switch (driver) {
|
|
|
|
|
case H5F_LOW_SPLIT:
|
|
|
|
|
case H5F_LOW_CORE:
|
|
|
|
|
suffix = NULL;
|
|
|
|
|
break;
|
|
|
|
|
case H5F_LOW_FAMILY:
|
|
|
|
|
suffix = "%05d.h5";
|
|
|
|
|
break;
|
|
|
|
|
default:
|
|
|
|
|
suffix = ".h5";
|
|
|
|
|
break;
|
|
|
|
|
}
|
|
|
|
|
#endif /* H5_WANT_H5_V1_2_COMPAT */
|
1998-11-21 11:36:51 +08:00
|
|
|
|
/* Append a suffix */
|
|
|
|
|
if (suffix) {
|
|
|
|
|
if (strlen(fullname)+strlen(suffix)>=size) return NULL;
|
|
|
|
|
strcat(fullname, suffix);
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
return fullname;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
/*-------------------------------------------------------------------------
|
|
|
|
|
* Function: h5_fileaccess
|
|
|
|
|
*
|
|
|
|
|
* Purpose: Returns a file access template which is the default template
|
|
|
|
|
* but with a file driver set according to the constant or
|
|
|
|
|
* environment variable HDF5_DRIVER
|
|
|
|
|
*
|
|
|
|
|
* Return: Success: A file access property list
|
|
|
|
|
*
|
|
|
|
|
* Failure: -1
|
|
|
|
|
*
|
|
|
|
|
* Programmer: Robb Matzke
|
|
|
|
|
* Thursday, November 19, 1998
|
|
|
|
|
*
|
|
|
|
|
* Modifications:
|
|
|
|
|
*
|
|
|
|
|
*-------------------------------------------------------------------------
|
|
|
|
|
*/
|
|
|
|
|
hid_t
|
|
|
|
|
h5_fileaccess(void)
|
|
|
|
|
{
|
|
|
|
|
const char *val = NULL;
|
|
|
|
|
const char *name;
|
2000-08-05 06:20:47 +08:00
|
|
|
|
char s[1024];
|
|
|
|
|
hid_t fapl = -1;
|
|
|
|
|
hsize_t fam_size = 100*1024*1024; /*100 MB*/
|
|
|
|
|
long verbosity = 1;
|
1999-08-18 03:12:59 +08:00
|
|
|
|
H5FD_mem_t mt;
|
1998-11-21 11:36:51 +08:00
|
|
|
|
|
|
|
|
|
/* First use the environment variable, then the constant */
|
|
|
|
|
val = getenv("HDF5_DRIVER");
|
|
|
|
|
#ifdef HDF5_DRIVER
|
|
|
|
|
if (!val) val = HDF5_DRIVER;
|
|
|
|
|
#endif
|
|
|
|
|
|
|
|
|
|
if ((fapl=H5Pcreate(H5P_FILE_ACCESS))<0) return -1;
|
|
|
|
|
if (!val || !*val) return fapl; /*use default*/
|
|
|
|
|
|
|
|
|
|
strncpy(s, val, sizeof s);
|
|
|
|
|
s[sizeof(s)-1] = '\0';
|
|
|
|
|
if (NULL==(name=strtok(s, " \t\n\r"))) return fapl;
|
|
|
|
|
|
|
|
|
|
if (!strcmp(name, "sec2")) {
|
|
|
|
|
/* Unix read() and write() system calls */
|
1999-08-11 04:21:32 +08:00
|
|
|
|
if (H5Pset_fapl_sec2(fapl)<0) return -1;
|
1999-10-21 01:51:27 +08:00
|
|
|
|
} else if (!strcmp(name, "stdio")) {
|
|
|
|
|
/* Standard C fread() and fwrite() system calls */
|
|
|
|
|
if (H5Pset_fapl_stdio(fapl)<0) return -1;
|
1998-11-21 11:36:51 +08:00
|
|
|
|
} else if (!strcmp(name, "core")) {
|
|
|
|
|
/* In-core temporary file with 1MB increment */
|
1999-10-15 22:53:57 +08:00
|
|
|
|
if (H5Pset_fapl_core(fapl, 1024*1024, FALSE)<0) return -1;
|
1998-11-21 11:36:51 +08:00
|
|
|
|
} else if (!strcmp(name, "split")) {
|
|
|
|
|
/* Split meta data and raw data each using default driver */
|
1999-08-18 03:12:59 +08:00
|
|
|
|
if (H5Pset_fapl_split(fapl,
|
|
|
|
|
"-m.h5", H5P_DEFAULT,
|
|
|
|
|
"-r.h5", H5P_DEFAULT)<0)
|
1998-11-21 11:36:51 +08:00
|
|
|
|
return -1;
|
1999-08-18 03:12:59 +08:00
|
|
|
|
} else if (!strcmp(name, "multi")) {
|
|
|
|
|
/* Multi-file driver, general case of the split driver */
|
|
|
|
|
H5FD_mem_t memb_map[H5FD_MEM_NTYPES];
|
|
|
|
|
hid_t memb_fapl[H5FD_MEM_NTYPES];
|
|
|
|
|
const char *memb_name[H5FD_MEM_NTYPES];
|
|
|
|
|
char sv[H5FD_MEM_NTYPES][1024];
|
|
|
|
|
haddr_t memb_addr[H5FD_MEM_NTYPES];
|
|
|
|
|
|
|
|
|
|
memset(memb_map, 0, sizeof memb_map);
|
|
|
|
|
memset(memb_fapl, 0, sizeof memb_fapl);
|
|
|
|
|
memset(memb_name, 0, sizeof memb_name);
|
|
|
|
|
memset(memb_addr, 0, sizeof memb_addr);
|
|
|
|
|
|
|
|
|
|
assert(strlen(multi_letters)==H5FD_MEM_NTYPES);
|
1999-11-18 06:00:15 +08:00
|
|
|
|
for (mt=H5FD_MEM_DEFAULT; mt<H5FD_MEM_NTYPES; mt++) {
|
1999-08-18 03:12:59 +08:00
|
|
|
|
memb_fapl[mt] = H5P_DEFAULT;
|
|
|
|
|
sprintf(sv[mt], "%%s-%c.h5", multi_letters[mt]);
|
|
|
|
|
memb_name[mt] = sv[mt];
|
|
|
|
|
memb_addr[mt] = MAX(mt-1,0)*(HADDR_MAX/10);
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
if (H5Pset_fapl_multi(fapl, memb_map, memb_fapl, memb_name,
|
1999-08-24 20:52:10 +08:00
|
|
|
|
memb_addr, FALSE)<0) {
|
1999-08-18 03:12:59 +08:00
|
|
|
|
return -1;
|
|
|
|
|
}
|
1998-11-21 11:36:51 +08:00
|
|
|
|
} else if (!strcmp(name, "family")) {
|
|
|
|
|
/* Family of files, each 1MB and using the default driver */
|
|
|
|
|
if ((val=strtok(NULL, " \t\n\r"))) {
|
|
|
|
|
fam_size = strtod(val, NULL) * 1024*1024;
|
|
|
|
|
}
|
1999-08-11 04:21:32 +08:00
|
|
|
|
if (H5Pset_fapl_family(fapl, fam_size, H5P_DEFAULT)<0) return -1;
|
2000-06-24 01:46:17 +08:00
|
|
|
|
} else if (!strcmp(name, "log")) {
|
|
|
|
|
/* Log file access */
|
2000-08-05 06:20:47 +08:00
|
|
|
|
if ((val = strtok(NULL, " \t\n\r")))
|
2000-06-24 01:46:17 +08:00
|
|
|
|
verbosity = strtol(val, NULL, 0);
|
2000-08-05 06:20:47 +08:00
|
|
|
|
|
2000-11-14 01:03:59 +08:00
|
|
|
|
if (H5Pset_fapl_log(fapl, NULL, (int)verbosity) < 0)
|
2000-08-05 06:20:47 +08:00
|
|
|
|
return -1;
|
1998-11-21 11:36:51 +08:00
|
|
|
|
} else {
|
|
|
|
|
/* Unknown driver */
|
|
|
|
|
return -1;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
return fapl;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
/*-------------------------------------------------------------------------
|
|
|
|
|
* Function: h5_no_hwconv
|
|
|
|
|
*
|
|
|
|
|
* Purpose: Turn off hardware data type conversions.
|
|
|
|
|
*
|
|
|
|
|
* Return: void
|
|
|
|
|
*
|
|
|
|
|
* Programmer: Robb Matzke
|
|
|
|
|
* Friday, November 20, 1998
|
|
|
|
|
*
|
|
|
|
|
* Modifications:
|
|
|
|
|
*
|
|
|
|
|
*-------------------------------------------------------------------------
|
|
|
|
|
*/
|
|
|
|
|
void
|
|
|
|
|
h5_no_hwconv(void)
|
|
|
|
|
{
|
1998-12-18 03:35:20 +08:00
|
|
|
|
H5Tunregister(H5T_PERS_HARD, NULL, -1, -1, NULL);
|
1998-11-21 11:36:51 +08:00
|
|
|
|
}
|