2003-02-17 23:54:15 +08:00
|
|
|
|
/* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
|
|
|
|
|
* 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: Robb Matzke <matzke@llnl.gov>
|
1998-11-25 22:58:22 +08:00
|
|
|
|
* Tuesday, November 24, 1998
|
|
|
|
|
*/
|
2001-04-04 02:09:16 +08:00
|
|
|
|
#include "h5test.h"
|
|
|
|
|
#include "H5Iprivate.h"
|
2003-02-17 23:54:15 +08:00
|
|
|
|
/*
|
|
|
|
|
* This file needs to access private datatypes from the H5O package.
|
|
|
|
|
*/
|
|
|
|
|
#define H5O_PACKAGE
|
|
|
|
|
#include "H5Opkg.h"
|
1998-11-25 22:58:22 +08:00
|
|
|
|
|
|
|
|
|
/*
|
|
|
|
|
* This file needs to access private datatypes from the H5G package.
|
|
|
|
|
*/
|
|
|
|
|
#define H5G_PACKAGE
|
2001-04-04 02:09:16 +08:00
|
|
|
|
#include "H5Gpkg.h"
|
1998-11-25 22:58:22 +08:00
|
|
|
|
|
|
|
|
|
const char *FILENAME[] = {
|
|
|
|
|
"ohdr",
|
|
|
|
|
NULL
|
|
|
|
|
};
|
|
|
|
|
|
2003-01-22 04:20:13 +08:00
|
|
|
|
/* The tbogus.h5 is generated from gen_bogus.c in HDF5 'test' directory.
|
|
|
|
|
* To get this data file, define H5O_ENABLE_BOGUS in src/H5Oprivate, rebuild
|
|
|
|
|
* the library and simply compile gen_bogus.c with that HDF5 library and run it. */
|
|
|
|
|
#define FILE_BOGUS "tbogus.h5"
|
|
|
|
|
|
1998-11-25 22:58:22 +08:00
|
|
|
|
|
|
|
|
|
/*-------------------------------------------------------------------------
|
|
|
|
|
* Function: main
|
|
|
|
|
*
|
|
|
|
|
* Purpose:
|
|
|
|
|
*
|
|
|
|
|
* Return: Success:
|
|
|
|
|
*
|
|
|
|
|
* Failure:
|
|
|
|
|
*
|
|
|
|
|
* Programmer: Robb Matzke
|
|
|
|
|
* Tuesday, November 24, 1998
|
|
|
|
|
*
|
|
|
|
|
* Modifications:
|
|
|
|
|
*
|
|
|
|
|
*-------------------------------------------------------------------------
|
|
|
|
|
*/
|
|
|
|
|
int
|
|
|
|
|
main(void)
|
|
|
|
|
{
|
|
|
|
|
hid_t fapl=-1, file=-1;
|
2003-01-22 04:20:13 +08:00
|
|
|
|
hid_t dset=-1;
|
1998-11-25 22:58:22 +08:00
|
|
|
|
H5F_t *f=NULL;
|
|
|
|
|
char filename[1024];
|
|
|
|
|
H5G_entry_t oh_ent;
|
2003-10-06 05:14:40 +08:00
|
|
|
|
time_t time_new, ro;
|
1998-11-25 22:58:22 +08:00
|
|
|
|
int i;
|
|
|
|
|
|
|
|
|
|
/* Reset library */
|
|
|
|
|
h5_reset();
|
|
|
|
|
fapl = h5_fileaccess();
|
|
|
|
|
h5_fixname(FILENAME[0], fapl, filename, sizeof filename);
|
|
|
|
|
if ((file=H5Fcreate(filename, H5F_ACC_TRUNC, H5P_DEFAULT, fapl))<0)
|
|
|
|
|
goto error;
|
|
|
|
|
if (NULL==(f=H5I_object(file))) {
|
2003-09-25 03:26:50 +08:00
|
|
|
|
#ifdef H5_WANT_H5_V1_6_COMPAT
|
|
|
|
|
H5Eprint(stdout);
|
|
|
|
|
#else
|
2003-07-26 10:55:47 +08:00
|
|
|
|
H5Eprint(H5E_DEFAULT, stdout);
|
2003-09-25 03:26:50 +08:00
|
|
|
|
#endif /* H5_WANT_H5_V1_6_COMPAT */
|
1998-11-25 22:58:22 +08:00
|
|
|
|
goto error;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/*
|
|
|
|
|
* Test object header creation
|
|
|
|
|
*/
|
|
|
|
|
TESTING("object header creation");
|
[svn-r6252] Purpose:
Lots of performance improvements & a couple new internal API interfaces.
Description:
Performance Improvements:
- Cached file offset & length sizes in shared file struct, to avoid
constantly looking them up in the FCPL.
- Generic property improvements:
- Added "revision" number to generic property classes to speed
up comparisons.
- Changed method of storing properties from using a hash-table
to the TBBT routines in the library.
- Share the propery names between classes and the lists derived
from them.
- Removed redundant 'def_value' buffer from each property.
- Switching code to use a "copy on write" strategy for
properties in each list, where the properties in each list
are shared with the properties in the class, until a
property's value is changed in a list.
- Fixed error in layout code which was allocating too many buffers.
- Redefined public macros of the form (H5open()/H5check, <variable>)
internally to only be (<variable>), avoiding innumerable useless
calls to H5open() and H5check_version().
- Reuse already zeroed buffers in H5F_contig_fill instead of
constantly re-zeroing them.
- Don't write fill values if writing entire dataset.
- Use gettimeofday() system call instead of time() system when
checking the modification time of a dataset.
- Added reference counted string API and use it for tracking the
names of objects opening in a file (for the ID->name code).
- Removed redundant H5P_get() calls in B-tree routines.
- Redefine H5T datatype macros internally to the library, to avoid
calling H5check redundantly.
- Keep dataspace information for dataset locally instead of reading
from disk each time. Added new module to track open objects
in a file, to allow this (which will be useful eventually for
some FPH5 metadata caching issues).
- Remove H5AC_find macro which was inlining metadata cache lookups,
and call function instead.
- Remove redundant memset() calls from H5G_namei() routine.
- Remove redundant checking of object type when locating objects
in metadata cache and rely on the address only.
- Create default dataset object to use when default dataset creation
property list is used to create datasets, bypassing querying
for all the property list values.
- Use default I/O vector size when performing raw data with the
default dataset transfer property list, instead of querying for
I/O vector size.
- Remove H5P_DEFAULT internally to the library, replacing it with
more specific default property list based on the type of
property list needed.
- Remove redundant memset() calls in object header message (H5O*)
routines.
- Remove redunant memset() calls in data I/O routines.
- Split free-list allocation routines into malloc() and calloc()-
like routines, instead of one combined routine.
- Remove lots of indirection in H5O*() routines.
- Simplify metadata cache entry comparison routine (used when
flushing entire cache out).
- Only enable metadata cache statistics when H5AC_DEBUG is turned
on, instead of always tracking them.
- Simplify address comparison macro (H5F_addr_eq).
- Remove redundant metadata cache entry protections during dataset
creation by protecting the object header once and making all
the modifications necessary for the dataset creation before
unprotecting it.
- Reduce # of "number of element in extent" computations performed
by computing and storing the value during dataspace creation.
- Simplify checking for group location's file information, when file
has not been involving in file-mounting operations.
- Use binary encoding for modification time, instead of ASCII.
- Hoist H5HL_peek calls (to get information in a local heap)
out of loops in many group routine.
- Use static variable for iterators of selections, instead of
dynamically allocation them each time.
- Lookup & insert new entries in one step, avoiding traversing
group's B-tree twice.
- Fixed memory leak in H5Gget_objname_idx() routine (tangential to
performance improvements, but fixed along the way).
- Use free-list for reference counted strings.
- Don't bother copying object names into cached group entries,
since they are re-created when an object is opened.
The benchmark I used to measure these results created several thousand
small (2K) datasets in a file and wrote out the data for them. This is
Elena's "regular.c" benchmark.
These changes resulted in approximately ~4.3x speedup of the
development branch when compared to the previous code in the
development branch and ~1.4x speedup compared to the release
branch.
Additionally, these changes reduce the total memory used (code and
data) by the development branch by ~800KB, bringing the development
branch back into the same ballpark as the release branch.
I'll send out a more detailed description of the benchmark results
as a followup note.
New internal API routines:
Added "reference counted strings" API for tracking strings that get
used by multiple owners without duplicating the strings.
Added "ternary search tree" API for text->object mappings.
Platforms tested:
Tested h5committest {arabica (fortran), eirene (fortran, C++)
modi4 (parallel, fortran)}
Other platforms/configurations tested?
FreeBSD 4.7 (sleipnir) serial & parallel
Solaris 2.6 (baldric) serial
2003-01-10 01:20:03 +08:00
|
|
|
|
HDmemset(&oh_ent,0,sizeof(H5G_entry_t));
|
2003-02-11 01:26:09 +08:00
|
|
|
|
if (H5O_create(f, H5P_DATASET_XFER_DEFAULT, 64, &oh_ent/*out*/)<0) {
|
2001-01-26 01:03:29 +08:00
|
|
|
|
H5_FAILED();
|
2003-09-25 03:26:50 +08:00
|
|
|
|
#ifdef H5_WANT_H5_V1_6_COMPAT
|
|
|
|
|
H5Eprint(stdout);
|
|
|
|
|
#else
|
2003-07-26 10:55:47 +08:00
|
|
|
|
H5Eprint(H5E_DEFAULT, stdout);
|
2003-09-25 03:26:50 +08:00
|
|
|
|
#endif /* H5_WANT_H5_V1_6_COMPAT */
|
1998-11-25 22:58:22 +08:00
|
|
|
|
goto error;
|
|
|
|
|
}
|
|
|
|
|
PASSED();
|
|
|
|
|
|
|
|
|
|
/* create a new message */
|
|
|
|
|
TESTING("message creation");
|
2003-10-06 05:14:40 +08:00
|
|
|
|
time_new = 11111111;
|
|
|
|
|
if (H5O_modify(&oh_ent, H5O_MTIME_ID, H5O_NEW_MESG, 0, 0, &time_new, H5P_DATASET_XFER_DEFAULT)<0) {
|
2001-01-26 01:03:29 +08:00
|
|
|
|
H5_FAILED();
|
2003-09-25 03:26:50 +08:00
|
|
|
|
#ifdef H5_WANT_H5_V1_6_COMPAT
|
|
|
|
|
H5Eprint(stdout);
|
|
|
|
|
#else
|
2003-07-26 10:55:47 +08:00
|
|
|
|
H5Eprint(H5E_DEFAULT, stdout);
|
2003-09-25 03:26:50 +08:00
|
|
|
|
#endif /* H5_WANT_H5_V1_6_COMPAT */
|
1998-11-25 22:58:22 +08:00
|
|
|
|
goto error;
|
|
|
|
|
}
|
2003-02-11 01:26:09 +08:00
|
|
|
|
if (H5AC_flush(f, H5P_DATASET_XFER_DEFAULT, NULL, HADDR_UNDEF, TRUE)<0) {
|
2001-01-26 01:03:29 +08:00
|
|
|
|
H5_FAILED();
|
2003-09-25 03:26:50 +08:00
|
|
|
|
#ifdef H5_WANT_H5_V1_6_COMPAT
|
|
|
|
|
H5Eprint(stdout);
|
|
|
|
|
#else
|
2003-07-26 10:55:47 +08:00
|
|
|
|
H5Eprint(H5E_DEFAULT, stdout);
|
2003-09-25 03:26:50 +08:00
|
|
|
|
#endif /* H5_WANT_H5_V1_6_COMPAT */
|
1998-11-25 22:58:22 +08:00
|
|
|
|
goto error;
|
|
|
|
|
}
|
2003-10-06 05:14:40 +08:00
|
|
|
|
if (NULL==H5O_read(&oh_ent, H5O_MTIME_ID, 0, &ro, H5P_DATASET_XFER_DEFAULT)) {
|
2001-01-26 01:03:29 +08:00
|
|
|
|
H5_FAILED();
|
2003-09-25 03:26:50 +08:00
|
|
|
|
#ifdef H5_WANT_H5_V1_6_COMPAT
|
|
|
|
|
H5Eprint(stdout);
|
|
|
|
|
#else
|
2003-07-26 10:55:47 +08:00
|
|
|
|
H5Eprint(H5E_DEFAULT, stdout);
|
2003-09-25 03:26:50 +08:00
|
|
|
|
#endif /* H5_WANT_H5_V1_6_COMPAT */
|
1998-11-25 22:58:22 +08:00
|
|
|
|
goto error;
|
|
|
|
|
}
|
2003-10-06 05:14:40 +08:00
|
|
|
|
if (ro!=time_new) {
|
2001-01-26 01:03:29 +08:00
|
|
|
|
H5_FAILED();
|
2003-10-06 05:14:40 +08:00
|
|
|
|
HDfprintf(stdout, " got: {%ld}\n", (long)ro);
|
|
|
|
|
HDfprintf(stdout, " ans: {%ld}\n", (long)time_new);
|
1998-11-25 22:58:22 +08:00
|
|
|
|
goto error;
|
|
|
|
|
}
|
|
|
|
|
PASSED();
|
|
|
|
|
|
|
|
|
|
/*
|
|
|
|
|
* Test modification of an existing message.
|
|
|
|
|
*/
|
|
|
|
|
TESTING("message modification");
|
2003-10-06 05:14:40 +08:00
|
|
|
|
time_new = 33333333;
|
|
|
|
|
if (H5O_modify(&oh_ent, H5O_MTIME_ID, 0, 0, 0, &time_new, H5P_DATASET_XFER_DEFAULT)<0) {
|
2001-01-26 01:03:29 +08:00
|
|
|
|
H5_FAILED();
|
2003-09-25 03:26:50 +08:00
|
|
|
|
#ifdef H5_WANT_H5_V1_6_COMPAT
|
|
|
|
|
H5Eprint(stdout);
|
|
|
|
|
#else
|
2003-07-26 10:55:47 +08:00
|
|
|
|
H5Eprint(H5E_DEFAULT, stdout);
|
2003-09-25 03:26:50 +08:00
|
|
|
|
#endif /* H5_WANT_H5_V1_6_COMPAT */
|
1998-11-25 22:58:22 +08:00
|
|
|
|
goto error;
|
|
|
|
|
}
|
2003-02-11 01:26:09 +08:00
|
|
|
|
if (H5AC_flush(f, H5P_DATASET_XFER_DEFAULT, NULL, HADDR_UNDEF, TRUE)<0) {
|
2001-01-26 01:03:29 +08:00
|
|
|
|
H5_FAILED();
|
2003-09-25 03:26:50 +08:00
|
|
|
|
#ifdef H5_WANT_H5_V1_6_COMPAT
|
|
|
|
|
H5Eprint(stdout);
|
|
|
|
|
#else
|
2003-07-26 10:55:47 +08:00
|
|
|
|
H5Eprint(H5E_DEFAULT, stdout);
|
2003-09-25 03:26:50 +08:00
|
|
|
|
#endif /* H5_WANT_H5_V1_6_COMPAT */
|
1998-11-25 22:58:22 +08:00
|
|
|
|
goto error;
|
|
|
|
|
}
|
2003-10-06 05:14:40 +08:00
|
|
|
|
if (NULL==H5O_read(&oh_ent, H5O_MTIME_ID, 0, &ro, H5P_DATASET_XFER_DEFAULT)) {
|
2001-01-26 01:03:29 +08:00
|
|
|
|
H5_FAILED();
|
2003-09-25 03:26:50 +08:00
|
|
|
|
#ifdef H5_WANT_H5_V1_6_COMPAT
|
|
|
|
|
H5Eprint(stdout);
|
|
|
|
|
#else
|
2003-07-26 10:55:47 +08:00
|
|
|
|
H5Eprint(H5E_DEFAULT, stdout);
|
2003-09-25 03:26:50 +08:00
|
|
|
|
#endif /* H5_WANT_H5_V1_6_COMPAT */
|
1998-11-25 22:58:22 +08:00
|
|
|
|
goto error;
|
|
|
|
|
}
|
2003-10-06 05:14:40 +08:00
|
|
|
|
if (ro!=time_new) {
|
2001-01-26 01:03:29 +08:00
|
|
|
|
H5_FAILED();
|
2003-10-06 05:14:40 +08:00
|
|
|
|
HDfprintf(stdout, " got: {%ld}\n", (long)ro);
|
|
|
|
|
HDfprintf(stdout, " ans: {%ld}\n", (long)time_new);
|
1998-11-25 22:58:22 +08:00
|
|
|
|
goto error;
|
|
|
|
|
}
|
|
|
|
|
PASSED();
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
/*
|
|
|
|
|
* Test creation of a second message of the same type.
|
|
|
|
|
*/
|
|
|
|
|
TESTING("duplicate message creation");
|
2003-10-06 05:14:40 +08:00
|
|
|
|
time_new = 55555555;
|
|
|
|
|
if (H5O_modify(&oh_ent, H5O_MTIME_ID, H5O_NEW_MESG, 0, 0, &time_new, H5P_DATASET_XFER_DEFAULT)<0) {
|
2001-01-26 01:03:29 +08:00
|
|
|
|
H5_FAILED();
|
2003-09-25 03:26:50 +08:00
|
|
|
|
#ifdef H5_WANT_H5_V1_6_COMPAT
|
|
|
|
|
H5Eprint(stdout);
|
|
|
|
|
#else
|
2003-07-26 10:55:47 +08:00
|
|
|
|
H5Eprint(H5E_DEFAULT, stdout);
|
2003-09-25 03:26:50 +08:00
|
|
|
|
#endif /* H5_WANT_H5_V1_6_COMPAT */
|
1998-11-25 22:58:22 +08:00
|
|
|
|
goto error;
|
|
|
|
|
}
|
2003-02-11 01:26:09 +08:00
|
|
|
|
if (H5AC_flush(f, H5P_DATASET_XFER_DEFAULT, NULL, HADDR_UNDEF, TRUE)<0) {
|
2001-01-26 01:03:29 +08:00
|
|
|
|
H5_FAILED();
|
2003-09-25 03:26:50 +08:00
|
|
|
|
#ifdef H5_WANT_H5_V1_6_COMPAT
|
|
|
|
|
H5Eprint(stdout);
|
|
|
|
|
#else
|
2003-07-26 10:55:47 +08:00
|
|
|
|
H5Eprint(H5E_DEFAULT, stdout);
|
2003-09-25 03:26:50 +08:00
|
|
|
|
#endif /* H5_WANT_H5_V1_6_COMPAT */
|
1998-11-25 22:58:22 +08:00
|
|
|
|
goto error;
|
|
|
|
|
}
|
2003-10-06 05:14:40 +08:00
|
|
|
|
if (NULL==H5O_read(&oh_ent, H5O_MTIME_ID, 1, &ro, H5P_DATASET_XFER_DEFAULT)) {
|
2001-01-26 01:03:29 +08:00
|
|
|
|
H5_FAILED();
|
2003-09-25 03:26:50 +08:00
|
|
|
|
#ifdef H5_WANT_H5_V1_6_COMPAT
|
|
|
|
|
H5Eprint(stdout);
|
|
|
|
|
#else
|
2003-07-26 10:55:47 +08:00
|
|
|
|
H5Eprint(H5E_DEFAULT, stdout);
|
2003-09-25 03:26:50 +08:00
|
|
|
|
#endif /* H5_WANT_H5_V1_6_COMPAT */
|
1998-11-25 22:58:22 +08:00
|
|
|
|
goto error;
|
|
|
|
|
}
|
2003-10-06 05:14:40 +08:00
|
|
|
|
if (ro!=time_new) {
|
2001-01-26 01:03:29 +08:00
|
|
|
|
H5_FAILED();
|
2003-10-06 05:14:40 +08:00
|
|
|
|
HDfprintf(stdout, " got: {%ld}\n", (long)ro);
|
|
|
|
|
HDfprintf(stdout, " ans: {%ld}\n", (long)time_new);
|
1998-11-25 22:58:22 +08:00
|
|
|
|
goto error;
|
|
|
|
|
}
|
|
|
|
|
PASSED();
|
|
|
|
|
|
|
|
|
|
/*
|
|
|
|
|
* Test modification of the second message with a symbol table.
|
|
|
|
|
*/
|
|
|
|
|
TESTING("duplicate message modification");
|
2003-10-06 05:14:40 +08:00
|
|
|
|
time_new = 77777777;
|
|
|
|
|
if (H5O_modify(&oh_ent, H5O_MTIME_ID, 1, 0, 0, &time_new, H5P_DATASET_XFER_DEFAULT)<0) {
|
2001-01-26 01:03:29 +08:00
|
|
|
|
H5_FAILED();
|
2003-09-25 03:26:50 +08:00
|
|
|
|
#ifdef H5_WANT_H5_V1_6_COMPAT
|
|
|
|
|
H5Eprint(stdout);
|
|
|
|
|
#else
|
2003-07-26 10:55:47 +08:00
|
|
|
|
H5Eprint(H5E_DEFAULT, stdout);
|
2003-09-25 03:26:50 +08:00
|
|
|
|
#endif /* H5_WANT_H5_V1_6_COMPAT */
|
1998-11-25 22:58:22 +08:00
|
|
|
|
goto error;
|
|
|
|
|
}
|
2003-02-11 01:26:09 +08:00
|
|
|
|
if (H5AC_flush(f, H5P_DATASET_XFER_DEFAULT, NULL, HADDR_UNDEF, TRUE)<0) {
|
2001-01-26 01:03:29 +08:00
|
|
|
|
H5_FAILED();
|
2003-09-25 03:26:50 +08:00
|
|
|
|
#ifdef H5_WANT_H5_V1_6_COMPAT
|
|
|
|
|
H5Eprint(stdout);
|
|
|
|
|
#else
|
2003-07-26 10:55:47 +08:00
|
|
|
|
H5Eprint(H5E_DEFAULT, stdout);
|
2003-09-25 03:26:50 +08:00
|
|
|
|
#endif /* H5_WANT_H5_V1_6_COMPAT */
|
1998-11-25 22:58:22 +08:00
|
|
|
|
goto error;
|
|
|
|
|
}
|
2003-10-06 05:14:40 +08:00
|
|
|
|
if (NULL==H5O_read(&oh_ent, H5O_MTIME_ID, 1, &ro, H5P_DATASET_XFER_DEFAULT)) {
|
2001-01-26 01:03:29 +08:00
|
|
|
|
H5_FAILED();
|
2003-09-25 03:26:50 +08:00
|
|
|
|
#ifdef H5_WANT_H5_V1_6_COMPAT
|
|
|
|
|
H5Eprint(stdout);
|
|
|
|
|
#else
|
2003-07-26 10:55:47 +08:00
|
|
|
|
H5Eprint(H5E_DEFAULT, stdout);
|
2003-09-25 03:26:50 +08:00
|
|
|
|
#endif /* H5_WANT_H5_V1_6_COMPAT */
|
1998-11-25 22:58:22 +08:00
|
|
|
|
goto error;
|
|
|
|
|
}
|
2003-10-06 05:14:40 +08:00
|
|
|
|
if (ro!=time_new) {
|
2001-01-26 01:03:29 +08:00
|
|
|
|
H5_FAILED();
|
2003-10-06 05:14:40 +08:00
|
|
|
|
HDfprintf(stdout, " got: {%ld}\n", (long)ro);
|
|
|
|
|
HDfprintf(stdout, " ans: {%ld}\n", (long)time_new);
|
1998-11-25 22:58:22 +08:00
|
|
|
|
goto error;
|
|
|
|
|
}
|
|
|
|
|
PASSED();
|
|
|
|
|
|
|
|
|
|
/*
|
|
|
|
|
* Test creation of a bunch of messages one after another to see
|
|
|
|
|
* what happens when the object header overflows in core.
|
|
|
|
|
*/
|
|
|
|
|
TESTING("object header overflow in memory");
|
|
|
|
|
for (i=0; i<40; i++) {
|
2003-10-06 05:14:40 +08:00
|
|
|
|
time_new = (i+1)*1000+1;
|
|
|
|
|
if (H5O_modify(&oh_ent, H5O_MTIME_ID, H5O_NEW_MESG, 0, 0, &time_new, H5P_DATASET_XFER_DEFAULT)<0) {
|
2001-01-26 01:03:29 +08:00
|
|
|
|
H5_FAILED();
|
2003-09-25 03:26:50 +08:00
|
|
|
|
#ifdef H5_WANT_H5_V1_6_COMPAT
|
2003-10-06 05:14:40 +08:00
|
|
|
|
H5Eprint(stdout);
|
2003-09-25 03:26:50 +08:00
|
|
|
|
#else
|
2003-10-06 05:14:40 +08:00
|
|
|
|
H5Eprint(H5E_DEFAULT, stdout);
|
2003-09-25 03:26:50 +08:00
|
|
|
|
#endif /* H5_WANT_H5_V1_6_COMPAT */
|
1998-11-25 22:58:22 +08:00
|
|
|
|
goto error;
|
|
|
|
|
}
|
|
|
|
|
}
|
2003-02-11 01:26:09 +08:00
|
|
|
|
if (H5AC_flush(f, H5P_DATASET_XFER_DEFAULT, NULL, HADDR_UNDEF, TRUE)<0) {
|
2001-01-26 01:03:29 +08:00
|
|
|
|
H5_FAILED();
|
2003-09-25 03:26:50 +08:00
|
|
|
|
#ifdef H5_WANT_H5_V1_6_COMPAT
|
|
|
|
|
H5Eprint(stdout);
|
|
|
|
|
#else
|
2003-07-26 10:55:47 +08:00
|
|
|
|
H5Eprint(H5E_DEFAULT, stdout);
|
2003-09-25 03:26:50 +08:00
|
|
|
|
#endif /* H5_WANT_H5_V1_6_COMPAT */
|
1998-11-25 22:58:22 +08:00
|
|
|
|
goto error;
|
|
|
|
|
}
|
|
|
|
|
PASSED();
|
|
|
|
|
|
|
|
|
|
/*
|
|
|
|
|
* Test creation of a bunch of messages one after another to see
|
|
|
|
|
* what happens when the object header overflows on disk.
|
|
|
|
|
*/
|
|
|
|
|
TESTING("object header overflow on disk");
|
|
|
|
|
for (i=0; i<10; i++) {
|
2003-10-06 05:14:40 +08:00
|
|
|
|
time_new = (i + 1) * 1000 + 10;
|
|
|
|
|
if (H5O_modify(&oh_ent, H5O_MTIME_ID, H5O_NEW_MESG, 0, 0, &time_new, H5P_DATASET_XFER_DEFAULT)<0) {
|
2001-01-26 01:03:29 +08:00
|
|
|
|
H5_FAILED();
|
2003-09-25 03:26:50 +08:00
|
|
|
|
#ifdef H5_WANT_H5_V1_6_COMPAT
|
2003-10-06 05:14:40 +08:00
|
|
|
|
H5Eprint(stdout);
|
2003-09-25 03:26:50 +08:00
|
|
|
|
#else
|
2003-10-06 05:14:40 +08:00
|
|
|
|
H5Eprint(H5E_DEFAULT, stdout);
|
2003-09-25 03:26:50 +08:00
|
|
|
|
#endif /* H5_WANT_H5_V1_6_COMPAT */
|
1998-11-25 22:58:22 +08:00
|
|
|
|
goto error;
|
|
|
|
|
}
|
2003-02-11 01:26:09 +08:00
|
|
|
|
if (H5AC_flush(f, H5P_DATASET_XFER_DEFAULT, NULL, HADDR_UNDEF, TRUE)<0) {
|
2001-01-26 01:03:29 +08:00
|
|
|
|
H5_FAILED();
|
2003-09-25 03:26:50 +08:00
|
|
|
|
#ifdef H5_WANT_H5_V1_6_COMPAT
|
2003-10-06 05:14:40 +08:00
|
|
|
|
H5Eprint(stdout);
|
2003-09-25 03:26:50 +08:00
|
|
|
|
#else
|
2003-10-06 05:14:40 +08:00
|
|
|
|
H5Eprint(H5E_DEFAULT, stdout);
|
2003-09-25 03:26:50 +08:00
|
|
|
|
#endif /* H5_WANT_H5_V1_6_COMPAT */
|
1998-11-25 22:58:22 +08:00
|
|
|
|
goto error;
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
PASSED();
|
|
|
|
|
|
|
|
|
|
/*
|
2003-10-06 05:14:40 +08:00
|
|
|
|
* Delete all time messages.
|
1998-11-25 22:58:22 +08:00
|
|
|
|
*/
|
|
|
|
|
TESTING("message deletion");
|
2003-10-06 05:14:40 +08:00
|
|
|
|
if (H5O_remove(&oh_ent, H5O_MTIME_ID, H5O_ALL, H5P_DATASET_XFER_DEFAULT)<0) {
|
2001-01-26 01:03:29 +08:00
|
|
|
|
H5_FAILED();
|
2003-09-25 03:26:50 +08:00
|
|
|
|
#ifdef H5_WANT_H5_V1_6_COMPAT
|
|
|
|
|
H5Eprint(stdout);
|
|
|
|
|
#else
|
2003-07-26 10:55:47 +08:00
|
|
|
|
H5Eprint(H5E_DEFAULT, stdout);
|
2003-09-25 03:26:50 +08:00
|
|
|
|
#endif /* H5_WANT_H5_V1_6_COMPAT */
|
1998-11-25 22:58:22 +08:00
|
|
|
|
goto error;
|
|
|
|
|
}
|
2003-10-06 05:14:40 +08:00
|
|
|
|
if (H5O_read(&oh_ent, H5O_MTIME_ID, 0, &ro, H5P_DATASET_XFER_DEFAULT)) {
|
2001-01-26 01:03:29 +08:00
|
|
|
|
H5_FAILED();
|
1998-11-25 22:58:22 +08:00
|
|
|
|
puts(" H5O_read() should have failed but didn't");
|
2003-09-25 03:26:50 +08:00
|
|
|
|
#ifdef H5_WANT_H5_V1_6_COMPAT
|
|
|
|
|
H5Eclear();
|
|
|
|
|
#else
|
2003-07-26 10:55:47 +08:00
|
|
|
|
H5Eclear(H5E_DEFAULT);
|
2003-09-25 03:26:50 +08:00
|
|
|
|
#endif /* H5_WANT_H5_V1_6_COMPAT */
|
1998-11-25 22:58:22 +08:00
|
|
|
|
goto error;
|
|
|
|
|
}
|
|
|
|
|
PASSED();
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
/* release resources */
|
|
|
|
|
TESTING("object header closing");
|
|
|
|
|
if (H5O_close(&oh_ent)<0) {
|
2001-01-26 01:03:29 +08:00
|
|
|
|
H5_FAILED();
|
2003-09-25 03:26:50 +08:00
|
|
|
|
#ifdef H5_WANT_H5_V1_6_COMPAT
|
|
|
|
|
H5Eprint(stdout);
|
|
|
|
|
#else
|
2003-07-26 10:55:47 +08:00
|
|
|
|
H5Eprint(H5E_DEFAULT, stdout);
|
2003-09-25 03:26:50 +08:00
|
|
|
|
#endif /* H5_WANT_H5_V1_6_COMPAT */
|
1998-11-25 22:58:22 +08:00
|
|
|
|
goto error;
|
|
|
|
|
}
|
|
|
|
|
if (H5Fclose(file)<0) goto error;
|
|
|
|
|
PASSED();
|
|
|
|
|
|
2003-01-22 04:20:13 +08:00
|
|
|
|
/* Test reading dataset with undefined object header message */
|
|
|
|
|
TESTING("reading object with unknown header message");
|
|
|
|
|
{
|
|
|
|
|
char testfile[512]="";
|
|
|
|
|
char *srcdir = getenv("srcdir");
|
|
|
|
|
|
|
|
|
|
/* Build path to test file */
|
|
|
|
|
if (srcdir && ((HDstrlen(srcdir) + HDstrlen(FILE_BOGUS) + 1) < sizeof(testfile))){
|
|
|
|
|
HDstrcpy(testfile, srcdir);
|
|
|
|
|
HDstrcat(testfile, "/");
|
|
|
|
|
}
|
|
|
|
|
HDstrcat(testfile, FILE_BOGUS);
|
|
|
|
|
|
|
|
|
|
if ((file=H5Fopen(testfile, H5F_ACC_RDONLY, fapl))<0)
|
|
|
|
|
goto error;
|
|
|
|
|
|
|
|
|
|
/* Open the dataset with the unknown header message (generated with gen_bogus.c) */
|
|
|
|
|
if((dset=H5Dopen(file,"/Dataset1"))<0)
|
|
|
|
|
goto error;
|
|
|
|
|
if (H5Dclose(dset)<0) goto error;
|
|
|
|
|
|
|
|
|
|
if (H5Fclose(file)<0) goto error;
|
|
|
|
|
}
|
|
|
|
|
PASSED();
|
|
|
|
|
|
1998-11-25 22:58:22 +08:00
|
|
|
|
puts("All object header tests passed.");
|
2000-09-10 08:08:27 +08:00
|
|
|
|
h5_cleanup(FILENAME, fapl);
|
1998-11-25 22:58:22 +08:00
|
|
|
|
return 0;
|
|
|
|
|
|
|
|
|
|
error:
|
|
|
|
|
H5E_BEGIN_TRY {
|
|
|
|
|
H5Fclose(file);
|
|
|
|
|
} H5E_END_TRY;
|
|
|
|
|
return 1;
|
|
|
|
|
}
|