mirror of
https://github.com/HDFGroup/hdf5.git
synced 2024-11-27 02:10:55 +08:00
f854744668
Change H5Adelete2 -> H5Adelete_by_name and un-deprecate H5Adelete1 back
to H5Adelete, for better consistency with new other API routiens.
Tested on:
FreeBSD/32 6.2 (duty) in debug mode
FreeBSD/64 6.2 (liberty) w/C++ & FORTRAN, in debug mode
Linux/32 2.6 (kagiso) w/PGI compilers, w/C++ & FORTRAN, w/threadsafe,
in debug mode
Linux/64-amd64 2.6 (smirom) w/default API=1.6.x, w/C++ & FORTRAN,
in production mode
Linux/64-ia64 2.6 (cobalt) w/Intel compilers, w/C++ & FORTRAN,
in production mode
Solaris/32 2.10 (linew) w/deprecated symbols disabled, w/C++ & FORTRAN,
w/szip filter, in production mode
Mac OS X/32 10.4.10 (amazon) in debug mode
333 lines
8.2 KiB
C
333 lines
8.2 KiB
C
/* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
|
|
* Copyright by The HDF Group. *
|
|
* 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://hdfgroup.org/HDF5/doc/Copyright.html. If you do not have *
|
|
* access to either file, you may request a copy from help@hdfgroup.org. *
|
|
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */
|
|
|
|
/*
|
|
* Programmer: Quincey Koziol <koziol@ncsa.uiuc.edu>
|
|
* 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);
|
|
}
|
|
|
|
|