mirror of
https://github.com/HDFGroup/hdf5.git
synced 2024-12-27 08:01:04 +08:00
11dfa25910
* Updated source file copyright headers to remove "Copyright by the Board of Trustees of the University of Illinois", which is kept in the top-level COPYING file.
320 lines
7.9 KiB
C
320 lines
7.9 KiB
C
/* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
|
|
* Copyright by The HDF Group. *
|
|
* 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 COPYING file, which can be found at the root of the source code *
|
|
* distribution tree, or in https://www.hdfgroup.org/licenses. *
|
|
* If you do not have access to either file, you may request a copy from *
|
|
* help@hdfgroup.org. *
|
|
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */
|
|
|
|
/*
|
|
* Programmer: Quincey Koziol
|
|
* Friday, June 30, 2006
|
|
*
|
|
* This program creates an object with fragmented object header messages
|
|
* that will be merged when the object is read from the file. This program
|
|
* needs to be compiled against the 1.6.5 or earlier version of the library
|
|
* in order to generate the file as desired.
|
|
*/
|
|
|
|
#include <assert.h>
|
|
#include <stdio.h>
|
|
#include "hdf5.h"
|
|
|
|
#define FILENAME "mergemsg.h5"
|
|
#define GROUP1 "grp1"
|
|
#define GROUP2 "grp2"
|
|
#define GROUP3 "grp3"
|
|
#define ATTR1 "__111111111111__"
|
|
#define ATTR1_LEN 11
|
|
#define ATTR2 "__222222222__"
|
|
#define ATTR2_LEN 11
|
|
#define ATTR3 "__333333333__"
|
|
#define ATTR3_LEN 1
|
|
|
|
int
|
|
main()
|
|
{
|
|
hid_t fid; /* File ID */
|
|
hid_t gid, gid2, gid3; /* Group IDs */
|
|
hid_t aid; /* Attribute ID */
|
|
hid_t sid; /* Dataspace ID */
|
|
hid_t tid; /* Datatype ID */
|
|
herr_t ret; /* Generic return value */
|
|
|
|
/* Create file */
|
|
fid = H5Fcreate(FILENAME, H5F_ACC_TRUNC, H5P_DEFAULT, H5P_DEFAULT);
|
|
assert(fid > 0);
|
|
|
|
/* Create first group */
|
|
gid = H5Gcreate2(fid, GROUP1, H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT);
|
|
assert(gid > 0);
|
|
|
|
/* Close first group */
|
|
ret = H5Gclose(gid);
|
|
assert(ret >= 0);
|
|
|
|
/* Create second group */
|
|
gid2 = H5Gcreate2(fid, GROUP2, H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT);
|
|
assert(gid2 > 0);
|
|
|
|
/* Close second group */
|
|
ret = H5Gclose(gid2);
|
|
assert(ret >= 0);
|
|
|
|
/* Close file */
|
|
ret = H5Fclose(fid);
|
|
assert(ret >= 0);
|
|
|
|
/* Re-open file */
|
|
fid = H5Fopen(FILENAME, H5F_ACC_RDWR, H5P_DEFAULT);
|
|
assert(fid > 0);
|
|
|
|
/* Re-open first group */
|
|
gid = H5Gopen2(fid, GROUP1, H5P_DEFAULT);
|
|
assert(gid > 0);
|
|
|
|
/* Create dataspace for attribute */
|
|
sid = H5Screate(H5S_SCALAR);
|
|
assert(sid > 0);
|
|
|
|
/* Create dataype for attribute */
|
|
tid = H5Tcopy(H5T_C_S1);
|
|
assert(tid > 0);
|
|
ret = H5Tset_size(tid, ATTR1_LEN);
|
|
assert(ret >= 0);
|
|
|
|
/* Add 1st attribute on first group */
|
|
aid = H5Acreate2(gid, ATTR1, tid, sid, H5P_DEFAULT, H5P_DEFAULT);
|
|
assert(aid > 0);
|
|
|
|
/* Close dataspace */
|
|
ret = H5Sclose(sid);
|
|
assert(ret >= 0);
|
|
|
|
/* Close datatype */
|
|
ret = H5Tclose(tid);
|
|
assert(ret >= 0);
|
|
|
|
/* Close attribute */
|
|
ret = H5Aclose(aid);
|
|
assert(ret >= 0);
|
|
|
|
/* Create dataspace for 2nd attribute */
|
|
sid = H5Screate(H5S_SCALAR);
|
|
assert(sid > 0);
|
|
|
|
/* Create dataype for attribute */
|
|
tid = H5Tcopy(H5T_C_S1);
|
|
assert(tid > 0);
|
|
ret = H5Tset_size(tid, ATTR2_LEN);
|
|
assert(ret >= 0);
|
|
|
|
/* Add 2nd attribute on first group */
|
|
aid = H5Acreate2(gid, ATTR2, tid, sid, H5P_DEFAULT, H5P_DEFAULT);
|
|
assert(aid > 0);
|
|
|
|
/* Close dataspace */
|
|
ret = H5Sclose(sid);
|
|
assert(ret >= 0);
|
|
|
|
/* Close datatype */
|
|
ret = H5Tclose(tid);
|
|
assert(ret >= 0);
|
|
|
|
/* Close 2nd attribute */
|
|
ret = H5Aclose(aid);
|
|
assert(ret >= 0);
|
|
|
|
/* Close first group */
|
|
ret = H5Gclose(gid);
|
|
assert(ret >= 0);
|
|
|
|
/* Close file */
|
|
ret = H5Fclose(fid);
|
|
assert(ret >= 0);
|
|
|
|
/* Re-open file */
|
|
fid = H5Fopen(FILENAME, H5F_ACC_RDWR, H5P_DEFAULT);
|
|
assert(fid > 0);
|
|
|
|
/* Create third group */
|
|
gid3 = H5Gcreate2(fid, GROUP3, H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT);
|
|
assert(gid3 > 0);
|
|
|
|
/* Close third group */
|
|
ret = H5Gclose(gid3);
|
|
assert(ret >= 0);
|
|
|
|
/* Re-open first group */
|
|
gid = H5Gopen2(fid, GROUP1, H5P_DEFAULT);
|
|
assert(gid > 0);
|
|
|
|
/* Delete 2nd attribute */
|
|
ret = H5Adelete(gid, ATTR2);
|
|
assert(ret >= 0);
|
|
|
|
/* Close first group */
|
|
ret = H5Gclose(gid);
|
|
assert(ret >= 0);
|
|
|
|
/* Close file */
|
|
ret = H5Fclose(fid);
|
|
assert(ret >= 0);
|
|
|
|
/* Re-open file */
|
|
fid = H5Fopen(FILENAME, H5F_ACC_RDWR, H5P_DEFAULT);
|
|
assert(fid > 0);
|
|
|
|
/* Re-open first group */
|
|
gid = H5Gopen2(fid, GROUP1, H5P_DEFAULT);
|
|
assert(gid > 0);
|
|
|
|
/* Create dataspace for 3rd attribute */
|
|
sid = H5Screate(H5S_SCALAR);
|
|
assert(sid > 0);
|
|
|
|
/* Create dataype for attribute */
|
|
tid = H5Tcopy(H5T_C_S1);
|
|
assert(tid > 0);
|
|
ret = H5Tset_size(tid, ATTR3_LEN);
|
|
assert(ret >= 0);
|
|
|
|
/* Add 3rd attribute on first group (smaller than 2nd attribute) */
|
|
aid = H5Acreate2(gid, ATTR3, tid, sid, H5P_DEFAULT, H5P_DEFAULT);
|
|
assert(aid > 0);
|
|
|
|
/* Close dataspace */
|
|
ret = H5Sclose(sid);
|
|
assert(ret >= 0);
|
|
|
|
/* Close datatype */
|
|
ret = H5Tclose(tid);
|
|
assert(ret >= 0);
|
|
|
|
/* Close 3rd attribute */
|
|
ret = H5Aclose(aid);
|
|
assert(ret >= 0);
|
|
|
|
/* Close first group */
|
|
ret = H5Gclose(gid);
|
|
assert(ret >= 0);
|
|
|
|
/* Close file */
|
|
ret = H5Fclose(fid);
|
|
assert(ret >= 0);
|
|
|
|
/* Re-open file */
|
|
fid = H5Fopen(FILENAME, H5F_ACC_RDWR, H5P_DEFAULT);
|
|
assert(fid > 0);
|
|
|
|
/* Re-open first group */
|
|
gid = H5Gopen2(fid, GROUP1, H5P_DEFAULT);
|
|
assert(gid > 0);
|
|
|
|
/* Delete 3rd attribute */
|
|
ret = H5Adelete(gid, ATTR3);
|
|
assert(ret >= 0);
|
|
|
|
/* Create dataspace for 3rd attribute */
|
|
sid = H5Screate(H5S_SCALAR);
|
|
assert(sid > 0);
|
|
|
|
/* Create dataype for attribute */
|
|
tid = H5Tcopy(H5T_C_S1);
|
|
assert(tid > 0);
|
|
ret = H5Tset_size(tid, ATTR2_LEN);
|
|
assert(ret >= 0);
|
|
|
|
/* Re-create 2nd attribute on first group */
|
|
aid = H5Acreate2(gid, ATTR2, tid, sid, H5P_DEFAULT, H5P_DEFAULT);
|
|
assert(aid > 0);
|
|
|
|
/* Close dataspace */
|
|
ret = H5Sclose(sid);
|
|
assert(ret >= 0);
|
|
|
|
/* Close datatype */
|
|
ret = H5Tclose(tid);
|
|
assert(ret >= 0);
|
|
|
|
/* Close 2nd attribute */
|
|
ret = H5Aclose(aid);
|
|
assert(ret >= 0);
|
|
|
|
/* Close first group */
|
|
ret = H5Gclose(gid);
|
|
assert(ret >= 0);
|
|
|
|
/* Close file */
|
|
ret = H5Fclose(fid);
|
|
assert(ret >= 0);
|
|
|
|
/* Re-open file */
|
|
fid = H5Fopen(FILENAME, H5F_ACC_RDWR, H5P_DEFAULT);
|
|
assert(fid > 0);
|
|
|
|
/* Re-open first group */
|
|
gid = H5Gopen2(fid, GROUP1, H5P_DEFAULT);
|
|
assert(gid > 0);
|
|
|
|
/* Delete 2nd attribute */
|
|
ret = H5Adelete(gid, ATTR2);
|
|
assert(ret >= 0);
|
|
|
|
/* Close first group */
|
|
ret = H5Gclose(gid);
|
|
assert(ret >= 0);
|
|
|
|
/* Close file */
|
|
ret = H5Fclose(fid);
|
|
assert(ret >= 0);
|
|
|
|
/* Re-open file */
|
|
fid = H5Fopen(FILENAME, H5F_ACC_RDWR, H5P_DEFAULT);
|
|
assert(fid > 0);
|
|
|
|
/* Re-open first group */
|
|
gid = H5Gopen2(fid, GROUP1, H5P_DEFAULT);
|
|
assert(gid > 0);
|
|
|
|
/* Create dataspace for 3rd attribute */
|
|
sid = H5Screate(H5S_SCALAR);
|
|
assert(sid > 0);
|
|
|
|
/* Create dataype for attribute */
|
|
tid = H5Tcopy(H5T_C_S1);
|
|
assert(tid > 0);
|
|
ret = H5Tset_size(tid, ATTR2_LEN);
|
|
assert(ret >= 0);
|
|
|
|
/* Re-create 2nd attribute on first group */
|
|
aid = H5Acreate2(gid, ATTR2, tid, sid, H5P_DEFAULT, H5P_DEFAULT);
|
|
assert(aid > 0);
|
|
|
|
/* Close dataspace */
|
|
ret = H5Sclose(sid);
|
|
assert(ret >= 0);
|
|
|
|
/* Close datatype */
|
|
ret = H5Tclose(tid);
|
|
assert(ret >= 0);
|
|
|
|
/* Close 2nd attribute */
|
|
ret = H5Aclose(aid);
|
|
assert(ret >= 0);
|
|
|
|
/* Close first group */
|
|
ret = H5Gclose(gid);
|
|
assert(ret >= 0);
|
|
|
|
/* Close file */
|
|
ret = H5Fclose(fid);
|
|
assert(ret >= 0);
|
|
|
|
return (0);
|
|
}
|