2
0
mirror of https://github.com/HDFGroup/hdf5.git synced 2024-12-21 07:51:46 +08:00
hdf5/test/gen_mergemsg.c
lrknox 25ec07450a Change copyright headers to replace url referring to file to be removed
and replace it with new url for COPYING file.

Fix 2 lines in java error test expected output file where messages
include line numbers changed by reducing the copyright header by 2
lines.
2017-04-14 11:54:16 -05:00

331 lines
8.0 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 COPYING file, which can be found at the root of the source code *
* distribution tree, or in https://support.hdfgroup.org/ftp/HDF5/releases. *
* 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);
}