/* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 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: John Mainzer * 9/23/15 * * This file contains a heavily edited and functionaly reduce * version of the test code first written by Quincey in a file * of the same name. */ #include "cache_common.h" #include "genall5.h" #define DSET_DIMS (1024 * 1024) #define DSET_SMALL_DIMS (64 * 1024) #define DSET_CHUNK_DIMS 1024 #define DSET_COMPACT_DIMS 4096 /*------------------------------------------------------------------------- * Function: ns_grp_0 * * Purpose: Create an empty "new style" group at the specified location * in the specified file. * * If pass is false on entry, do nothing. * * If an error is detected, set pass to FALSE, and set * failure_mssg to point to an appropriate error message. * * Return: void * * Programmer: John Mainzer * 9/14/15 * *------------------------------------------------------------------------- */ void ns_grp_0(hid_t fid, const char *group_name) { hid_t gid = -1; hid_t gcpl = -1; herr_t ret; if ( pass ) { gcpl = H5Pcreate(H5P_GROUP_CREATE); if ( gcpl <= 0 ) { pass = FALSE; failure_mssg = "ns_grp_0: H5Pcreate() failed"; } assert(gcpl > 0); } if ( pass ) { ret = H5Pset_link_creation_order(gcpl, H5P_CRT_ORDER_TRACKED); if ( ret < 0 ) { pass = FALSE; failure_mssg = "ns_grp_0: H5Pset_link_creation_order() failed"; } assert(ret >= 0); } if ( pass ) { gid = H5Gcreate2(fid, group_name, H5P_DEFAULT, gcpl, H5P_DEFAULT); if ( gid <= 0 ) { pass = FALSE; failure_mssg = "ns_grp_0: H5Gcreate2() failed"; } assert(gid > 0); } if ( pass ) { ret = H5Pclose(gcpl); if ( ret < 0 ) { pass = FALSE; failure_mssg = "ns_grp_0: H5Pclose(gcpl) failed"; } assert(ret >= 0); } if ( pass ) { ret = H5Gclose(gid); if ( ret < 0 ) { pass = FALSE; failure_mssg = "ns_grp_0: H5Gclose(gid) failed"; } assert(ret >= 0); } return; } /* ns_grp_0 */ /*------------------------------------------------------------------------- * Function: vrfy_ns_grp_0 * * Purpose: verify an empty "new style" group at the specified location * in the specified file. * * If pass is false on entry, do nothing. * * If an error is detected, set pass to FALSE, and set * failure_mssg to point to an appropriate error message. * * Return: void * * Programmer: John Mainzer * 9/14/15 * *------------------------------------------------------------------------- */ void vrfy_ns_grp_0(hid_t fid, const char *group_name) { hid_t gid = -1; hid_t gcpl = -1; H5G_info_t grp_info; unsigned crt_order_flags = 0; herr_t ret; if ( pass ) { gid = H5Gopen2(fid, group_name, H5P_DEFAULT); if ( gid <= 0 ) { pass = FALSE; failure_mssg = "vrfy_ns_grp_0: H5Gopen2() failed"; } HDassert(gid > 0); } if ( pass ) { gcpl = H5Gget_create_plist(gid); if ( gcpl <= 0 ) { pass = FALSE; failure_mssg = "vrfy_ns_grp_0: H5Gget_create_plist() failed"; } HDassert(gcpl > 0); } if ( pass ) { ret = H5Pget_link_creation_order(gcpl, &crt_order_flags); if ( gcpl <= 0 ) { pass = FALSE; failure_mssg = "vrfy_ns_grp_0: H5Pget_link_creation_order() failed"; } else if ( H5P_CRT_ORDER_TRACKED != crt_order_flags ) { pass = FALSE; failure_mssg = "vrfy_ns_grp_0: H5P_CRT_ORDER_TRACKED != crt_order_flags"; } HDassert(ret >= 0); HDassert(H5P_CRT_ORDER_TRACKED == crt_order_flags); } if ( pass ) { ret = H5Pclose(gcpl); if ( ret < 0 ) { pass = FALSE; failure_mssg = "vrfy_ns_grp_0: H5Pclose() failed"; } HDassert(ret >= 0); } if ( pass ) { memset(&grp_info, 0, sizeof(grp_info)); ret = H5Gget_info(gid, &grp_info); if ( ret < 0 ) { pass = FALSE; failure_mssg = "vrfy_ns_grp_0: H5Gget_info() failed"; } else if ( H5G_STORAGE_TYPE_COMPACT != grp_info.storage_type ) { pass = FALSE; failure_mssg = "vrfy_ns_grp_0: H5G_STORAGE_TYPE_COMPACT != grp_info.storage_type"; } else if ( 0 != grp_info.nlinks ) { pass = FALSE; failure_mssg = "vrfy_ns_grp_0: 0 != grp_info.nlinks"; } else if ( 0 != grp_info.max_corder ) { pass = FALSE; failure_mssg = "vrfy_ns_grp_0: 0 != grp_info.max_corder"; } else if ( FALSE != grp_info.mounted ) { pass = FALSE; failure_mssg = "vrfy_ns_grp_0: FALSE != grp_info.mounted"; } HDassert(ret >= 0); HDassert(H5G_STORAGE_TYPE_COMPACT == grp_info.storage_type); HDassert(0 == grp_info.nlinks); HDassert(0 == grp_info.max_corder); HDassert(false == grp_info.mounted); } if ( pass ) { ret = H5Gclose(gid); if ( ret < 0 ) { pass = FALSE; failure_mssg = "vrfy_ns_grp_0: H5Gclose() failed"; } HDassert(ret >= 0); } return; } /* vrfy_ns_grp_0() */ /*------------------------------------------------------------------------- * Function: ns_grp_c * * Purpose: Create a compact "new style" group, with 'nlinks' * soft/hard/external links in it in the specified file. * * If pass is false on entry, do nothing. * * If an error is detected, set pass to FALSE, and set * failure_mssg to point to an appropriate error message. * * Return: void * * Programmer: John Mainzer * 9/14/15 * *------------------------------------------------------------------------- */ void ns_grp_c(hid_t fid, const char *group_name, unsigned nlinks) { hid_t gid = -1; hid_t gcpl = -1; unsigned max_compact; unsigned u; herr_t ret; if ( pass ) { gcpl = H5Pcreate(H5P_GROUP_CREATE); if ( gcpl <= 0 ) { pass = FALSE; failure_mssg = "ns_grp_c: H5Pcreate(H5P_GROUP_CREATE) failed"; } HDassert(gcpl > 0); } if ( pass ) { ret = H5Pset_link_creation_order(gcpl, H5P_CRT_ORDER_TRACKED); if ( ret < 0 ) { pass = FALSE; failure_mssg = "ns_grp_c: H5Pset_link_creation_order() failed"; } HDassert(ret >= 0); } if ( pass ) { gid = H5Gcreate2(fid, group_name, H5P_DEFAULT, gcpl, H5P_DEFAULT); if ( gid <= 0 ) { pass = FALSE; failure_mssg = "ns_grp_c: H5Gcreate2() failed"; } HDassert(gid > 0); } if ( pass ) { max_compact = 0; ret = H5Pget_link_phase_change(gcpl, &max_compact, NULL); if ( ret < 0 ) { pass = FALSE; failure_mssg = "ns_grp_c: H5Pget_link_phase_change() failed"; } else if ( nlinks <= 0 ) { pass = FALSE; failure_mssg = "ns_grp_c: nlinks <= 0"; } else if ( nlinks >= max_compact ) { pass = FALSE; failure_mssg = "ns_grp_c: nlinks >= max_compact"; } HDassert(ret >= 0); HDassert(nlinks > 0); HDassert(nlinks < max_compact); } u = 0; while ( ( pass ) && ( u < nlinks ) ) { char linkname[16]; sprintf(linkname, "%u", u); if(0 == (u % 3)) { ret = H5Lcreate_soft(group_name, gid, linkname, H5P_DEFAULT, H5P_DEFAULT); if ( ret < 0 ) { pass = FALSE; failure_mssg = "ns_grp_c: H5Lcreate_soft() failed"; } HDassert(ret >= 0); } /* end if */ else if(1 == (u % 3)) { ret = H5Lcreate_hard(fid, "/", gid, linkname, H5P_DEFAULT, H5P_DEFAULT); if ( ret < 0 ) { pass = FALSE; failure_mssg = "ns_grp_c: H5Lcreate_hard() failed"; } HDassert(ret >= 0); } /* end else-if */ else { HDassert(2 == (u % 3)); ret = H5Lcreate_external("external.h5", "/ext", gid, linkname, H5P_DEFAULT, H5P_DEFAULT); if ( ret < 0 ) { pass = FALSE; failure_mssg = "ns_grp_c: H5Lcreate_external() failed"; } HDassert(ret >= 0); } /* end else */ u++; } /* end while() */ if ( pass ) { ret = H5Pclose(gcpl); if ( ret < 0 ) { pass = FALSE; failure_mssg = "ns_grp_c: H5Pclose(gcpl) failed"; } HDassert(ret >= 0); } if ( pass ) { ret = H5Gclose(gid); if ( ret < 0 ) { pass = FALSE; failure_mssg = "ns_grp_c: H5Gclose(gid) failed"; } HDassert(ret >= 0); } return; } /* ns_grp_c() */ /*------------------------------------------------------------------------- * Function: vrfy_ns_grp_c * * Purpose: Verify a compact "new style" group, with 'nlinks' * soft/hard/external links in it in the specified file. * * If pass is false on entry, do nothing. * * If an error is detected, set pass to FALSE, and set * failure_mssg to point to an appropriate error message. * * Return: void * * Programmer: John Mainzer * 9/14/15 * *------------------------------------------------------------------------- */ void vrfy_ns_grp_c(hid_t fid, const char *group_name, unsigned nlinks) { hid_t gid = -1; hid_t gcpl = -1; H5G_info_t grp_info; unsigned crt_order_flags = 0; unsigned u; herr_t ret; if ( pass ) { gid = H5Gopen2(fid, group_name, H5P_DEFAULT); if ( gid <= 0 ) { pass = FALSE; failure_mssg = "vrfy_ns_grp_c: H5Gopen2() failed"; } HDassert(gid > 0); } if ( pass ) { gcpl = H5Gget_create_plist(gid); if ( gcpl <= 0 ) { pass = FALSE; failure_mssg = "vrfy_ns_grp_c: H5Gget_create_plist(gid) failed"; } assert(gcpl > 0); } if ( pass ) { ret = H5Pget_link_creation_order(gcpl, &crt_order_flags); if ( ret < 0 ) { pass = FALSE; failure_mssg = "vrfy_ns_grp_c: H5Pget_link_creation_order() failed"; } else if ( H5P_CRT_ORDER_TRACKED != crt_order_flags ) { pass = FALSE; failure_mssg = "vrfy_ns_grp_c: H5P_CRT_ORDER_TRACKED != crt_order_flags"; } HDassert(ret >= 0); HDassert(H5P_CRT_ORDER_TRACKED == crt_order_flags); } if ( pass ) { ret = H5Pclose(gcpl); if ( ret < 0 ) { pass = FALSE; failure_mssg = "vrfy_ns_grp_c: H5Pclose() failed"; } HDassert(ret >= 0); } if ( pass ) { memset(&grp_info, 0, sizeof(grp_info)); ret = H5Gget_info(gid, &grp_info); if ( ret < 0 ) { pass = FALSE; failure_mssg = "vrfy_ns_grp_c: H5Gget_info() failed"; } else if ( H5G_STORAGE_TYPE_COMPACT != grp_info.storage_type ) { pass = FALSE; failure_mssg = "vrfy_ns_grp_c: H5G_STORAGE_TYPE_COMPACT != grp_info.storage_type"; } else if ( nlinks != grp_info.nlinks ) { pass = FALSE; failure_mssg = "vrfy_ns_grp_c: nlinks != grp_info.nlinks"; } else if ( nlinks != grp_info.max_corder ) { pass = FALSE; failure_mssg = "vrfy_ns_grp_c: nlinks != grp_info.max_corder"; } else if ( FALSE != grp_info.mounted ) { pass = FALSE; failure_mssg = "vrfy_ns_grp_c: FALSE != grp_info.mounted"; } HDassert(ret >= 0); HDassert(H5G_STORAGE_TYPE_COMPACT == grp_info.storage_type); HDassert(nlinks == grp_info.nlinks); HDassert(nlinks == grp_info.max_corder); HDassert(false == grp_info.mounted); } u = 0; while ( ( pass ) && ( u < nlinks ) ) { H5L_info_t lnk_info; char linkname[16]; htri_t link_exists; sprintf(linkname, "%u", u); link_exists = H5Lexists(gid, linkname, H5P_DEFAULT); if ( link_exists < 0 ) { pass = FALSE; failure_mssg = "vrfy_ns_grp_c: H5Lexists() failed"; } HDassert(link_exists >= 0); memset(&lnk_info, 0, sizeof(grp_info)); ret = H5Lget_info(gid, linkname, &lnk_info, H5P_DEFAULT); if ( ret < 0 ) { pass = FALSE; failure_mssg = "vrfy_ns_grp_c: H5Lget_info() failed"; } else if ( TRUE != lnk_info.corder_valid ) { pass = FALSE; failure_mssg = "vrfy_ns_grp_c: TRUE != lnk_info.corder_valid"; } else if ( u != lnk_info.corder ) { pass = FALSE; failure_mssg = "vrfy_ns_grp_c: u != lnk_info.corder"; } else if ( H5T_CSET_ASCII != lnk_info.cset ) { pass = FALSE; failure_mssg = "vrfy_ns_grp_c: H5T_CSET_ASCII != lnk_info.cset"; } HDassert(ret >= 0); HDassert(true == lnk_info.corder_valid); HDassert(u == lnk_info.corder); HDassert(H5T_CSET_ASCII == lnk_info.cset); if ( 0 == (u % 3) ) { char *slinkval; if ( H5L_TYPE_SOFT != lnk_info.type ) { pass = FALSE; failure_mssg = "vrfy_ns_grp_c: H5L_TYPE_SOFT != lnk_info.type"; } else if ( (strlen(group_name) + 1) != lnk_info.u.val_size ) { pass = FALSE; failure_mssg = "vrfy_ns_grp_c: (strlen(group_name) + 1) != lnk_info.u.val_size"; } HDassert(H5L_TYPE_SOFT == lnk_info.type); HDassert((strlen(group_name) + 1) == lnk_info.u.val_size); slinkval = (char *)malloc(lnk_info.u.val_size); if ( ! slinkval ) { pass = FALSE; failure_mssg = "vrfy_ns_grp_c: malloc of slinkval failed"; } HDassert(slinkval); ret = H5Lget_val(gid, linkname, slinkval, lnk_info.u.val_size, H5P_DEFAULT); if ( ret < 0 ) { pass = FALSE; failure_mssg = "vrfy_ns_grp_c: H5Lget_val() failed"; } else if ( 0 != strcmp(slinkval, group_name) ) { pass = FALSE; failure_mssg = "vrfy_ns_grp_c: 0 != strcmp(slinkval, group_name)"; } HDassert(ret >= 0); HDassert(0 == strcmp(slinkval, group_name)); free(slinkval); } /* end if */ else if(1 == (u % 3)) { H5O_info_t root_oinfo; if ( H5L_TYPE_HARD != lnk_info.type ) { pass = FALSE; failure_mssg = "vrfy_ns_grp_c: H5L_TYPE_HARD != lnk_info.type"; } HDassert(H5L_TYPE_HARD == lnk_info.type); memset(&root_oinfo, 0, sizeof(root_oinfo)); ret = H5Oget_info(fid, &root_oinfo); if ( ret < 0 ) { pass = FALSE; failure_mssg = "vrfy_ns_grp_c: H5Oget_info() failed."; } else if ( root_oinfo.addr != lnk_info.u.address ) { pass = FALSE; failure_mssg = "vrfy_ns_grp_c: root_oinfo.addr != lnk_info.u.address"; } HDassert(ret >= 0); HDassert(root_oinfo.addr == lnk_info.u.address); } /* end else-if */ else { void *elinkval; const char *file = NULL; const char *path = NULL; HDassert(2 == (u % 3)); if ( H5L_TYPE_EXTERNAL != lnk_info.type ) { pass = FALSE; failure_mssg = "vrfy_ns_grp_c: H5L_TYPE_EXTERNAL != lnk_info.type"; } HDassert(H5L_TYPE_EXTERNAL == lnk_info.type); elinkval = malloc(lnk_info.u.val_size); if ( ! elinkval ) { pass = FALSE; failure_mssg = "vrfy_ns_grp_c: malloc of elinkval failed."; } HDassert(elinkval); ret = H5Lget_val(gid, linkname, elinkval, lnk_info.u.val_size, H5P_DEFAULT); if ( ret < 0 ) { pass = FALSE; failure_mssg = "vrfy_ns_grp_c: H5Lget_val() failed."; } HDassert(ret >= 0); ret = H5Lunpack_elink_val(elinkval, lnk_info.u.val_size, NULL, &file, &path); if ( ret < 0 ) { pass = FALSE; failure_mssg = "vrfy_ns_grp_c: H5Lunpack_elink_val() failed."; } else if ( 0 != strcmp(file, "external.h5") ) { pass = FALSE; failure_mssg = "vrfy_ns_grp_c: 0 != strcmp(file, \"external.h5\")"; } else if ( 0 != strcmp(path, "/ext") ) { pass = FALSE; failure_mssg = "vrfy_ns_grp_c: 0 != strcmp(path, \"/ext\")"; } HDassert(ret >= 0); HDassert(0 == strcmp(file, "external.h5")); HDassert(0 == strcmp(path, "/ext")); free(elinkval); } /* end else */ u++; } /* end while */ if ( pass ) { ret = H5Gclose(gid); if ( ret < 0 ) { pass = FALSE; failure_mssg = "vrfy_ns_grp_c: H5Gclose() failed."; } assert(ret >= 0); } return; } /* vrfy_ns_grp_c() */ /*------------------------------------------------------------------------- * Function: ns_grp_d * * Purpose: Create a dense "new style" group, with 'nlinks' * (soft/hard/external) links in it in the specified file. * * If pass is false on entry, do nothing. * * If an error is detected, set pass to FALSE, and set * failure_mssg to point to an appropriate error message. * * Return: void * * Programmer: John Mainzer * 9/14/15 * *------------------------------------------------------------------------- */ void ns_grp_d(hid_t fid, const char *group_name, unsigned nlinks) { hid_t gid = -1; hid_t gcpl = -1; unsigned max_compact; unsigned u; herr_t ret; if ( pass ) { gcpl = H5Pcreate(H5P_GROUP_CREATE); if ( gcpl <= 0 ) { pass = FALSE; failure_mssg = "ns_grp_d: H5Pcreate() failed."; } HDassert(gcpl > 0); } if ( pass ) { ret = H5Pset_link_creation_order(gcpl, H5P_CRT_ORDER_TRACKED); if ( ret < 0 ) { pass = FALSE; failure_mssg = "ns_grp_d: H5Pset_link_creation_order() failed."; } HDassert(ret >= 0); } if ( pass ) { gid = H5Gcreate2(fid, group_name, H5P_DEFAULT, gcpl, H5P_DEFAULT); if ( gid <= 0 ) { pass = FALSE; failure_mssg = "ns_grp_d: H5Gcreate2() failed."; } HDassert(gid > 0); } if ( pass ) { max_compact = 0; ret = H5Pget_link_phase_change(gcpl, &max_compact, NULL); if ( ret < 0 ) { pass = FALSE; failure_mssg = "ns_grp_d: H5Pget_link_phase_change() failed."; } else if ( nlinks <= max_compact ) { pass = FALSE; failure_mssg = "ns_grp_d: nlinks <= max_compact"; } HDassert(ret >= 0); HDassert(nlinks > max_compact); } u = 0; while ( ( pass ) && ( u < nlinks ) ) { char linkname[16]; sprintf(linkname, "%u", u); if(0 == (u % 3)) { ret = H5Lcreate_soft(group_name, gid, linkname, H5P_DEFAULT, H5P_DEFAULT); if ( ret < 0 ) { pass = FALSE; failure_mssg = "ns_grp_d: H5Lcreate_soft() failed."; } HDassert(ret >= 0); } /* end if */ else if(1 == (u % 3)) { ret = H5Lcreate_hard(fid, "/", gid, linkname, H5P_DEFAULT, H5P_DEFAULT); if ( ret < 0 ) { pass = FALSE; failure_mssg = "ns_grp_d: H5Lcreate_hard() failed."; } HDassert(ret >= 0); } /* end else-if */ else { HDassert(2 == (u % 3)); ret = H5Lcreate_external("external.h5", "/ext", gid, linkname, H5P_DEFAULT, H5P_DEFAULT); if ( ret < 0 ) { pass = FALSE; failure_mssg = "ns_grp_d: H5Lcreate_external() failed."; } HDassert(ret >= 0); } /* end else */ u++; } /* end while */ if ( pass ) { ret = H5Pclose(gcpl); if ( ret < 0 ) { pass = FALSE; failure_mssg = "ns_grp_d: H5Pclose() failed."; } HDassert(ret >= 0); } if ( pass ) { ret = H5Gclose(gid); if ( ret < 0 ) { pass = FALSE; failure_mssg = "ns_grp_d: H5Gclose() failed."; } HDassert(ret >= 0); } return; } /* ns_grp_d() */ /*------------------------------------------------------------------------- * Function: vrfy_ns_grp_d * * Purpose: Verify a dense "new style" group, with 'nlinks' * soft/hard/external links in it in the specified file. * * If pass is false on entry, do nothing. * * If an error is detected, set pass to FALSE, and set * failure_mssg to point to an appropriate error message. * * Return: void * * Programmer: John Mainzer * 9/14/15 * *------------------------------------------------------------------------- */ void vrfy_ns_grp_d(hid_t fid, const char *group_name, unsigned nlinks) { hid_t gid = -1; hid_t gcpl = -1; H5G_info_t grp_info; unsigned crt_order_flags = 0; unsigned u; herr_t ret; if ( pass ) { gid = H5Gopen2(fid, group_name, H5P_DEFAULT); if ( gid <= 0 ) { pass = FALSE; failure_mssg = "vrfy_ns_grp_d: H5Gopen2() failed."; } HDassert(gid > 0); } if ( pass ) { gcpl = H5Gget_create_plist(gid); if ( gcpl <= 0 ) { pass = FALSE; failure_mssg = "vrfy_ns_grp_d: H5Gget_create_plist() failed."; } assert(gcpl > 0); } if ( pass ) { ret = H5Pget_link_creation_order(gcpl, &crt_order_flags); if ( ret < 0 ) { pass = FALSE; failure_mssg = "vrfy_ns_grp_d: H5Pget_link_creation_order() failed."; } else if ( H5P_CRT_ORDER_TRACKED != crt_order_flags ) { pass = FALSE; failure_mssg = "vrfy_ns_grp_d: H5P_CRT_ORDER_TRACKED != crt_order_flags"; } HDassert(ret >= 0); HDassert(H5P_CRT_ORDER_TRACKED == crt_order_flags); } if ( pass ) { ret = H5Pclose(gcpl); if ( ret < 0 ) { pass = FALSE; failure_mssg = "vrfy_ns_grp_d: H5Pclose() failed."; } HDassert(ret >= 0); } if ( pass ) { memset(&grp_info, 0, sizeof(grp_info)); ret = H5Gget_info(gid, &grp_info); if ( ret < 0 ) { pass = FALSE; failure_mssg = "vrfy_ns_grp_d: H5Gget_info() failed."; } else if ( H5G_STORAGE_TYPE_DENSE != grp_info.storage_type ) { pass = FALSE; failure_mssg = "vrfy_ns_grp_d: H5G_STORAGE_TYPE_DENSE != grp_info.storage_type"; } else if ( nlinks != grp_info.nlinks ) { pass = FALSE; failure_mssg = "vrfy_ns_grp_d: nlinks != grp_info.nlinks"; } else if ( nlinks != grp_info.max_corder ) { pass = FALSE; failure_mssg = "vrfy_ns_grp_d: nlinks != grp_info.max_corder"; } else if ( FALSE != grp_info.mounted ) { pass = FALSE; failure_mssg = "vrfy_ns_grp_d: FALSE != grp_info.mounted"; } HDassert(ret >= 0); HDassert(H5G_STORAGE_TYPE_DENSE == grp_info.storage_type); HDassert(nlinks == grp_info.nlinks); HDassert(nlinks == grp_info.max_corder); HDassert(false == grp_info.mounted); } u = 0; while ( ( pass ) && ( u < nlinks ) ) { H5L_info_t lnk_info; char linkname[16]; htri_t link_exists; sprintf(linkname, "%u", u); link_exists = H5Lexists(gid, linkname, H5P_DEFAULT); if ( link_exists < 0 ) { pass = FALSE; failure_mssg = "vrfy_ns_grp_d: H5Lexists() failed."; } HDassert(link_exists >= 0); memset(&lnk_info, 0, sizeof(grp_info)); ret = H5Lget_info(gid, linkname, &lnk_info, H5P_DEFAULT); if ( ret < 0 ) { pass = FALSE; failure_mssg = "vrfy_ns_grp_d: H5Lget_info() failed."; } else if ( TRUE != lnk_info.corder_valid ) { pass = FALSE; failure_mssg = "vrfy_ns_grp_d: TRUE != lnk_info.corder_valid"; } else if ( u != lnk_info.corder ) { pass = FALSE; failure_mssg = "vrfy_ns_grp_d: u != lnk_info.corder"; } else if ( H5T_CSET_ASCII != lnk_info.cset ) { pass = FALSE; failure_mssg = "vrfy_ns_grp_d: H5T_CSET_ASCII != lnk_info.cset"; } HDassert(ret >= 0); HDassert(true == lnk_info.corder_valid); HDassert(u == lnk_info.corder); HDassert(H5T_CSET_ASCII == lnk_info.cset); if(0 == (u % 3)) { char *slinkval; if ( H5L_TYPE_SOFT != lnk_info.type ) { pass = FALSE; failure_mssg = "vrfy_ns_grp_d: H5L_TYPE_SOFT != lnk_info.type"; } else if ( (strlen(group_name) + 1) != lnk_info.u.val_size ) { pass = FALSE; failure_mssg = "vrfy_ns_grp_d: H5L_TYPE_SOFT != lnk_info.type"; } HDassert(H5L_TYPE_SOFT == lnk_info.type); HDassert((strlen(group_name) + 1) == lnk_info.u.val_size); slinkval = (char *)malloc(lnk_info.u.val_size); if ( ! slinkval ) { pass = FALSE; failure_mssg = "vrfy_ns_grp_d: malloc of slinkval failed"; } HDassert(slinkval); ret = H5Lget_val(gid, linkname, slinkval, lnk_info.u.val_size, H5P_DEFAULT); if ( ret < 0 ) { pass = FALSE; failure_mssg = "vrfy_ns_grp_d: H5Lget_val() failed"; } else if ( 0 != strcmp(slinkval, group_name) ) { pass = FALSE; failure_mssg = "vrfy_ns_grp_d: 0 != strcmp(slinkval, group_name)"; } HDassert(ret >= 0); HDassert(0 == strcmp(slinkval, group_name)); free(slinkval); } /* end if */ else if(1 == (u % 3)) { H5O_info_t root_oinfo; if ( H5L_TYPE_HARD != lnk_info.type ) { pass = FALSE; failure_mssg = "vrfy_ns_grp_d: H5L_TYPE_HARD != lnk_info.type"; } HDassert(H5L_TYPE_HARD == lnk_info.type); memset(&root_oinfo, 0, sizeof(root_oinfo)); ret = H5Oget_info(fid, &root_oinfo); if ( ret < 0 ) { pass = FALSE; failure_mssg = "vrfy_ns_grp_d: H5Oget_info() failed."; } else if ( root_oinfo.addr != lnk_info.u.address ) { pass = FALSE; failure_mssg = "vrfy_ns_grp_d: root_oinfo.addr != lnk_info.u.address"; } HDassert(ret >= 0); HDassert(root_oinfo.addr == lnk_info.u.address); } /* end else-if */ else { void *elinkval; const char *file = NULL; const char *path = NULL; HDassert(2 == (u % 3)); if ( H5L_TYPE_EXTERNAL != lnk_info.type ) { pass = FALSE; failure_mssg = "vrfy_ns_grp_d: H5L_TYPE_EXTERNAL != lnk_info.type"; } HDassert(H5L_TYPE_EXTERNAL == lnk_info.type); elinkval = malloc(lnk_info.u.val_size); if ( ! elinkval ) { pass = FALSE; failure_mssg = "vrfy_ns_grp_d: malloc of elinkval failed."; } HDassert(elinkval); ret = H5Lget_val(gid, linkname, elinkval, lnk_info.u.val_size, H5P_DEFAULT); if ( ret < 0 ) { pass = FALSE; failure_mssg = "vrfy_ns_grp_d: H5Lget_val failed."; } HDassert(ret >= 0); ret = H5Lunpack_elink_val(elinkval, lnk_info.u.val_size, NULL, &file, &path); if ( ret < 0 ) { pass = FALSE; failure_mssg = "vrfy_ns_grp_d: H5Lunpack_elink_val failed."; } else if ( 0 != strcmp(file, "external.h5") ) { pass = FALSE; failure_mssg = "vrfy_ns_grp_d: 0 != strcmp(file, \"external.h5\")."; } else if ( 0 != strcmp(path, "/ext") ) { pass = FALSE; failure_mssg = "vrfy_ns_grp_d: 0 != strcmp(path, \"/ext\")"; } HDassert(ret >= 0); HDassert(0 == strcmp(file, "external.h5")); HDassert(0 == strcmp(path, "/ext")); free(elinkval); } /* end else */ u++; } /* end while() */ if ( pass ) { ret = H5Gclose(gid); if ( ret < 0 ) { pass = FALSE; failure_mssg = "vrfy_ns_grp_d: H5Gclose() failed."; } HDassert(ret >= 0); } return; } /* vrfy_ns_grp_d() */ /*------------------------------------------------------------------------- * Function: os_grp_0 * * Purpose: Create an empty "old style" group. * * If pass is false on entry, do nothing. * * If an error is detected, set pass to FALSE, and set * failure_mssg to point to an appropriate error message. * * Return: void * * Programmer: John Mainzer * 9/14/15 * *------------------------------------------------------------------------- */ void os_grp_0(hid_t fid, const char *group_name) { hid_t gid = -1; herr_t ret; if ( pass ) { /* turn file format latest off */ ret = H5Fset_latest_format(fid, FALSE); if ( ret < 0 ) { pass = FALSE; failure_mssg = "os_grp_0: H5Fset_latest_format() failed(1)."; } HDassert(ret >= 0); } if ( pass ) { gid = H5Gcreate2(fid, group_name, H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT); if ( gid <= 0 ) { pass = FALSE; failure_mssg = "os_grp_0: H5Gcreate2() failed."; } HDassert(gid > 0); } if ( pass ) { ret = H5Gclose(gid); if ( ret < 0 ) { pass = FALSE; failure_mssg = "os_grp_0: H5Gclose() failed."; } HDassert(ret >= 0); } if ( pass ) { /* turn file format latest on */ ret = H5Fset_latest_format(fid, TRUE); if ( ret < 0 ) { pass = FALSE; failure_mssg = "os_grp_0: H5Fset_latest_format() failed(2)."; } HDassert(ret >= 0); } return; } /* os_grp_0() */ /*------------------------------------------------------------------------- * Function: vrfy_os_grp_0 * * Purpose: Validate an empty "old style" group. * * If pass is false on entry, do nothing. * * If an error is detected, set pass to FALSE, and set * failure_mssg to point to an appropriate error message. * * Return: void * * Programmer: John Mainzer * 9/14/15 * *------------------------------------------------------------------------- */ void vrfy_os_grp_0(hid_t fid, const char *group_name) { hid_t gid = -1; hid_t gcpl = -1; H5G_info_t grp_info; unsigned crt_order_flags = 0; herr_t ret; if ( pass ) { gid = H5Gopen2(fid, group_name, H5P_DEFAULT); if ( gid <= 0 ) { pass = FALSE; failure_mssg = "vrfy_os_grp_0: H5Gopen2() failed."; } HDassert(gid > 0); } if ( pass ) { gcpl = H5Gget_create_plist(gid); if ( gcpl <= 0 ) { pass = FALSE; failure_mssg = "vrfy_os_grp_0: H5Gget_create_plist() failed."; } HDassert(gcpl > 0); } if ( pass ) { ret = H5Pget_link_creation_order(gcpl, &crt_order_flags); if ( ret < 0 ) { pass = FALSE; failure_mssg = "vrfy_os_grp_0: H5Pget_link_creation_order() failed"; } else if ( 0 != crt_order_flags ) { pass = FALSE; failure_mssg = "vrfy_os_grp_0: 0 != crt_order_flags"; } HDassert(ret >= 0); HDassert(0 == crt_order_flags); } if ( pass ) { ret = H5Pclose(gcpl); if ( ret < 0 ) { pass = FALSE; failure_mssg = "vrfy_os_grp_0: H5Pclose() failed."; } HDassert(ret >= 0); } if ( pass ) { memset(&grp_info, 0, sizeof(grp_info)); ret = H5Gget_info(gid, &grp_info); if ( ret < 0 ) { pass = FALSE; failure_mssg = "vrfy_os_grp_0: H5Gget_info() failed."; } else if ( H5G_STORAGE_TYPE_SYMBOL_TABLE != grp_info.storage_type ) { pass = FALSE; failure_mssg = "vrfy_os_grp_0: H5G_STORAGE_TYPE_SYMBOL_TABLE != grp_info.storage_type"; } else if ( 0 != grp_info.nlinks ) { pass = FALSE; failure_mssg = "vrfy_os_grp_0: 0 != grp_info.nlinks"; } else if ( 0 != grp_info.max_corder ) { pass = FALSE; failure_mssg = "vrfy_os_grp_0: 0 != grp_info.max_corder"; } else if ( FALSE != grp_info.mounted ) { pass = FALSE; failure_mssg = "vrfy_os_grp_0: FALSE != grp_info.mounted"; } HDassert(ret >= 0); HDassert(H5G_STORAGE_TYPE_SYMBOL_TABLE == grp_info.storage_type); HDassert(0 == grp_info.nlinks); HDassert(0 == grp_info.max_corder); HDassert(false == grp_info.mounted); } if ( pass ) { ret = H5Gclose(gid); if ( ret < 0 ) { pass = FALSE; failure_mssg = "vrfy_os_grp_0: H5Gclose() failed."; } HDassert(ret >= 0); } return; } /* vrfy_os_grp_0() */ /*------------------------------------------------------------------------- * Function: os_grp_n * * Purpose: Create an "old style" group, with 'nlinks' soft/hard * links in it. * * If pass is false on entry, do nothing. * * If an error is detected, set pass to FALSE, and set * failure_mssg to point to an appropriate error message. * * Return: void * * Programmer: John Mainzer * 9/14/15 * *------------------------------------------------------------------------- */ void os_grp_n(hid_t fid, const char *group_name, int proc_num, unsigned nlinks) { hid_t gid = -1; unsigned u; herr_t ret; if ( pass ) { /* turn file format latest off */ ret = H5Fset_latest_format(fid, FALSE); if ( ret < 0 ) { pass = FALSE; failure_mssg = "os_grp_n: H5Fset_latest_format() failed(1)."; } HDassert(ret >= 0); } if ( pass ) { gid = H5Gcreate2(fid, group_name, H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT); if ( gid <= 0 ) { pass = FALSE; failure_mssg = "os_grp_n: H5Gcreate2() failed."; } HDassert(gid > 0); } HDassert(nlinks > 0); u = 0; while ( ( pass ) && ( u < nlinks ) ) { char linkname[32]; sprintf(linkname, "ln%d_%u", proc_num, u); if(0 == (u % 2)) { ret = H5Lcreate_soft(group_name, gid, linkname, H5P_DEFAULT, H5P_DEFAULT); if ( ret < 0 ) { pass = FALSE; failure_mssg = "os_grp_n: H5Lcreate_soft() failed."; } HDassert(ret >= 0); } /* end if */ else { HDassert(1 == (u % 2)); ret = H5Lcreate_hard(fid, "/", gid, linkname, H5P_DEFAULT, H5P_DEFAULT); if ( ret < 0 ) { pass = FALSE; failure_mssg = "os_grp_n: H5Lcreate_hard() failed."; } HDassert(ret >= 0); } /* end else */ u++; } /* end while */ if ( pass ) { ret = H5Gclose(gid); if ( ret < 0 ) { pass = FALSE; failure_mssg = "os_grp_n: H5Gclose() failed."; } assert(ret >= 0); } if ( pass ) { /* turn file format latest on */ ret = H5Fset_latest_format(fid, TRUE); if ( ret < 0 ) { pass = FALSE; failure_mssg = "os_grp_n: H5Fset_latest_format() failed(2)."; } HDassert(ret >= 0); } return; } /* os_grp_n() */ /*------------------------------------------------------------------------- * Function: vrfy_os_grp_n * * Purpose: Validate an "old style" group with 'nlinks' soft/hard * links in it. * * If pass is false on entry, do nothing. * * If an error is detected, set pass to FALSE, and set * failure_mssg to point to an appropriate error message. * * Return: void * * Programmer: John Mainzer * 9/14/15 * *------------------------------------------------------------------------- */ void vrfy_os_grp_n(hid_t fid, const char *group_name, int proc_num, unsigned nlinks) { hid_t gid = -1; hid_t gcpl = -1; H5G_info_t grp_info; unsigned crt_order_flags = 0; unsigned u; herr_t ret; if ( pass ) { gid = H5Gopen2(fid, group_name, H5P_DEFAULT); if ( gid <= 0 ) { pass = FALSE; failure_mssg = "vrfy_os_grp_n: H5Gopen2() failed"; } HDassert(gid > 0); } if ( pass ) { gcpl = H5Gget_create_plist(gid); if ( gcpl <= 0 ) { pass = FALSE; failure_mssg = "vrfy_os_grp_n: H5Gget_create_plist() failed"; } HDassert(gcpl > 0); } if ( pass ) { ret = H5Pget_link_creation_order(gcpl, &crt_order_flags); if ( ret < 0 ) { pass = FALSE; failure_mssg = "vrfy_os_grp_n: H5Pget_link_creation_order"; } else if ( 0 != crt_order_flags ) { pass = FALSE; failure_mssg = "vrfy_os_grp_n: 0 != crt_order_flags"; } HDassert(ret >= 0); HDassert(0 == crt_order_flags); } if ( pass ) { ret = H5Pclose(gcpl); if ( ret < 0 ) { pass = FALSE; failure_mssg = "vrfy_os_grp_n: H5Pclose() failed"; } HDassert(ret >= 0); } if ( pass ) { memset(&grp_info, 0, sizeof(grp_info)); ret = H5Gget_info(gid, &grp_info); if ( ret < 0 ) { pass = FALSE; failure_mssg = "vrfy_os_grp_n: H5Gget_info() failed"; } else if ( H5G_STORAGE_TYPE_SYMBOL_TABLE != grp_info.storage_type ) { pass = FALSE; failure_mssg = "vrfy_os_grp_n: H5G_STORAGE_TYPE_SYMBOL_TABLE != grp_info.storage_type"; } else if ( nlinks != grp_info.nlinks ) { pass = FALSE; failure_mssg = "vrfy_os_grp_n: nlinks != grp_info.nlinks"; } else if ( 0 != grp_info.max_corder ) { pass = FALSE; failure_mssg = "vrfy_os_grp_n: 0 != grp_info.max_corder"; } else if ( FALSE != grp_info.mounted ) { pass = FALSE; failure_mssg = "vrfy_os_grp_n: FALSE != grp_info.mounted"; } HDassert(ret >= 0); HDassert(H5G_STORAGE_TYPE_SYMBOL_TABLE == grp_info.storage_type); HDassert(nlinks == grp_info.nlinks); HDassert(0 == grp_info.max_corder); HDassert(false == grp_info.mounted); } u = 0; while ( ( pass ) && ( u < nlinks ) ) { H5L_info_t lnk_info; char linkname[32]; htri_t link_exists; sprintf(linkname, "ln%d_%u", proc_num, u); link_exists = H5Lexists(gid, linkname, H5P_DEFAULT); if ( link_exists < 0 ) { pass = FALSE; failure_mssg = "vrfy_os_grp_n: H5Lexists() failed"; } HDassert(link_exists >= 0); memset(&lnk_info, 0, sizeof(grp_info)); ret = H5Lget_info(gid, linkname, &lnk_info, H5P_DEFAULT); if ( ret < 0 ) { pass = FALSE; failure_mssg = "vrfy_os_grp_n: H5Lget_info() failed"; } else if ( FALSE != lnk_info.corder_valid ) { pass = FALSE; failure_mssg = "vrfy_os_grp_n: FALSE != lnk_info.corder_valid"; } else if ( H5T_CSET_ASCII != lnk_info.cset ) { pass = FALSE; failure_mssg = "vrfy_os_grp_n: H5T_CSET_ASCII != lnk_info.cset"; } HDassert(ret >= 0); HDassert(false == lnk_info.corder_valid); HDassert(H5T_CSET_ASCII == lnk_info.cset); if(0 == (u % 2)) { char *slinkval; if ( H5L_TYPE_SOFT != lnk_info.type ) { pass = FALSE; failure_mssg = "vrfy_os_grp_n: H5L_TYPE_SOFT != lnk_info.type"; } else if ( (strlen(group_name) + 1) != lnk_info.u.val_size ) { pass = FALSE; failure_mssg = "vrfy_os_grp_n: (strlen(group_name) + 1) != lnk_info.u.val_size"; } HDassert(H5L_TYPE_SOFT == lnk_info.type); HDassert((strlen(group_name) + 1) == lnk_info.u.val_size); slinkval = (char *)malloc(lnk_info.u.val_size); if ( ! slinkval ) { pass = FALSE; failure_mssg = "vrfy_os_grp_n: malloc of slinkval failed"; } HDassert(slinkval); ret = H5Lget_val(gid, linkname, slinkval, lnk_info.u.val_size, H5P_DEFAULT); if ( ret < 0 ) { pass = FALSE; failure_mssg = "vrfy_os_grp_n: H5Lget_val() failed"; } else if ( 0 != strcmp(slinkval, group_name) ) { pass = FALSE; failure_mssg = "vrfy_os_grp_n: 0 != strcmp(slinkval, group_name)"; } HDassert(ret >= 0); HDassert(0 == strcmp(slinkval, group_name)); free(slinkval); } /* end if */ else { H5O_info_t root_oinfo; HDassert(1 == (u % 2)); if ( H5L_TYPE_HARD != lnk_info.type ) { pass = FALSE; failure_mssg = "vrfy_os_grp_n: H5L_TYPE_HARD != lnk_info.type"; } HDassert(H5L_TYPE_HARD == lnk_info.type); memset(&root_oinfo, 0, sizeof(root_oinfo)); ret = H5Oget_info(fid, &root_oinfo); if ( ret < 0 ) { pass = FALSE; failure_mssg = "vrfy_os_grp_n: H5Oget_info() failed."; } else if ( root_oinfo.addr != lnk_info.u.address ) { pass = FALSE; failure_mssg = "vrfy_os_grp_n: root_oinfo.addr != lnk_info.u.address"; } HDassert(ret >= 0); HDassert(root_oinfo.addr == lnk_info.u.address); } /* end else */ u++; } /* end while */ if ( pass ) { ret = H5Gclose(gid); if ( ret < 0 ) { pass = FALSE; failure_mssg = "vrfy_os_grp_n: H5Gclose() failed."; } HDassert(ret >= 0); } return; } /* vrfy_os_grp_n() */ /*------------------------------------------------------------------------- * Function: ds_ctg_i * * Purpose: Create a contiguous dataset w/int datatype. Write data * to the data set or not as indicated by the write_data * parameter. * * If pass is false on entry, do nothing. * * If an error is detected, set pass to FALSE, and set * failure_mssg to point to an appropriate error message. * * Return: void * * Programmer: John Mainzer * 9/14/15 * *------------------------------------------------------------------------- */ void ds_ctg_i(hid_t fid, const char *dset_name, hbool_t write_data) { int *wdata = NULL; unsigned u; hid_t dsid = -1; hid_t sid = -1; hsize_t dims[1] = {DSET_DIMS}; herr_t ret; if ( pass ) { sid = H5Screate_simple(1, dims, NULL); if ( sid <= 0 ) { pass = FALSE; failure_mssg = "ds_ctg_i: H5Screate_simple() failed"; } HDassert(sid > 0); } if ( pass ) { dsid = H5Dcreate2(fid, dset_name, H5T_NATIVE_INT, sid, H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT); if ( dsid <= 0 ) { pass = FALSE; failure_mssg = "ds_ctg_i: H5Dcreate2() failed"; } HDassert(dsid > 0); } if ( pass ) { ret = H5Sclose(sid); if ( ret < 0 ) { pass = FALSE; failure_mssg = "ds_ctg_i: H5Sclose() failed"; } HDassert(ret >= 0); } if ( ( pass ) && ( write_data ) ) { wdata = (int *)malloc(sizeof(int) * DSET_DIMS); if ( ! wdata ) { pass = FALSE; failure_mssg = "ds_ctg_i: malloc of wdata failed."; } HDassert(wdata); } if ( ( pass ) && ( write_data ) ) { for(u = 0; u < DSET_DIMS; u++) wdata[u] = (int)u; ret = H5Dwrite(dsid, H5T_NATIVE_INT, H5S_ALL, H5S_ALL, H5P_DEFAULT, wdata); if ( ret < 0 ) { pass = FALSE; failure_mssg = "ds_ctg_i: H5Dwrite() failed."; } HDassert(ret >= 0); free(wdata); } if ( pass ) { ret = H5Dclose(dsid); if ( ret < 0 ) { pass = FALSE; failure_mssg = "ds_ctg_i: H5Dclose() failed"; } HDassert(ret >= 0); } return; } /* ds_ctg_i */ /*------------------------------------------------------------------------- * Function: vrfy_ds_ctg_i * * Purpose: Validate a contiguous datasets w/int datatypes. Validate * data if indicated via the write_data parameter. * * If pass is false on entry, do nothing. * * If an error is detected, set pass to FALSE, and set * failure_mssg to point to an appropriate error message. * * Return: void * * Programmer: John Mainzer * 9/14/15 * *------------------------------------------------------------------------- */ void vrfy_ds_ctg_i(hid_t fid, const char *dset_name, hbool_t write_data) { int *rdata = NULL; unsigned u; hid_t dsid = -1; hid_t sid = -1; hid_t tid = -1; hid_t dcpl = -1; H5D_space_status_t allocation; H5D_layout_t layout; int ndims; hsize_t dims[1], max_dims[1]; htri_t type_equal; herr_t ret; if ( pass ) { dsid = H5Dopen2(fid, dset_name, H5P_DEFAULT); if ( dsid <= 0 ) { pass = FALSE; failure_mssg = "vrfy_ds_ctg_i: H5Dopen2() failed."; } HDassert(dsid > 0); } if ( pass ) { sid = H5Dget_space(dsid); if ( sid <= 0 ) { pass = FALSE; failure_mssg = "vrfy_ds_ctg_i: H5Dget_space() failed."; } HDassert(sid > 0); } if ( pass ) { ndims = H5Sget_simple_extent_ndims(sid); if ( 1 != ndims ) { pass = FALSE; failure_mssg = "vrfy_ds_ctg_i: 1 != ndims"; } HDassert(1 == ndims); } if ( pass ) { ret = H5Sget_simple_extent_dims(sid, dims, max_dims); if ( ret < 0 ) { pass = FALSE; failure_mssg = "vrfy_ds_ctg_i: H5Sget_simple_extent_dims() failed"; } else if ( DSET_DIMS != dims[0] ) { pass = FALSE; failure_mssg = "vrfy_ds_ctg_i: DSET_DIMS != dims[0]"; } else if ( DSET_DIMS != max_dims[0] ) { pass = FALSE; failure_mssg = "vrfy_ds_ctg_i: DSET_DIMS != max_dims[0]"; } HDassert(ret >= 0); HDassert(DSET_DIMS == dims[0]); HDassert(DSET_DIMS == max_dims[0]); } if ( pass ) { ret = H5Sclose(sid); if ( ret < 0 ) { pass = FALSE; failure_mssg = "vrfy_ds_ctg_i: H5Sclose() failed."; } HDassert(ret >= 0); } if ( pass ) { tid = H5Dget_type(dsid); if ( tid <= 0 ) { pass = FALSE; failure_mssg = "vrfy_ds_ctg_i: H5Dget_type() failed."; } HDassert(tid > 0); } if ( pass ) { type_equal = H5Tequal(tid, H5T_NATIVE_INT); if ( 1 != type_equal ) { pass = FALSE; failure_mssg = "vrfy_ds_ctg_i: type not H5T_NATIVE_INT"; } HDassert(1 == type_equal); } if ( pass ) { ret = H5Tclose(tid); if ( ret < 0 ) { pass = FALSE; failure_mssg = "vrfy_ds_ctg_i: H5Tclose() failed."; } assert(ret >= 0); } if ( pass ) { ret = H5Dget_space_status(dsid, &allocation); if ( ret < 0 ) { pass = FALSE; failure_mssg = "vrfy_ds_ctg_i: H5Dget_space_status() failed."; } else if ( write_data && ( allocation != H5D_SPACE_STATUS_ALLOCATED ) ) { pass = FALSE; failure_mssg = "vrfy_ds_ctg_i: write_data && allocation != H5D_SPACE_STATUS_ALLOCATED"; } else if ( !write_data && ( allocation != H5D_SPACE_STATUS_NOT_ALLOCATED ) ) { pass = FALSE; failure_mssg = "vrfy_ds_ctg_i: !write_data && allocation != H5D_SPACE_STATUS_NOT_ALLOCATED"; } HDassert(ret >= 0); HDassert((write_data && allocation == H5D_SPACE_STATUS_ALLOCATED) || (!write_data && allocation == H5D_SPACE_STATUS_NOT_ALLOCATED)); } if ( pass ) { dcpl = H5Dget_create_plist(dsid); if ( dcpl <= 0 ) { pass = FALSE; failure_mssg = "vrfy_ds_ctg_i: H5Dget_create_plist() failed."; } HDassert(dcpl > 0); } if ( pass ) { layout = H5Pget_layout(dcpl); if ( H5D_CONTIGUOUS != layout ) { pass = FALSE; failure_mssg = "vrfy_ds_ctg_i: H5D_CONTIGUOUS != layout"; } HDassert(H5D_CONTIGUOUS == layout); } if ( pass ) { ret = H5Pclose(dcpl); if ( ret < 0 ) { pass = FALSE; failure_mssg = "vrfy_ds_ctg_i: H5Pclose() failed."; } HDassert(ret >= 0); } if ( ( pass ) && ( write_data ) ) { rdata = (int *)malloc(sizeof(int) * DSET_DIMS); if ( ! rdata ) { pass = FALSE; failure_mssg = "vrfy_ds_ctg_i: malloc of rdata failed."; } HDassert(rdata); } if ( ( pass ) && ( write_data ) ) { ret = H5Dread(dsid, H5T_NATIVE_INT, H5S_ALL, H5S_ALL, H5P_DEFAULT, rdata); if ( ret < 0 ) { pass = FALSE; failure_mssg = "vrfy_ds_ctg_i: H5Dread() failed."; } HDassert(ret >= 0); } if ( ( pass ) && ( write_data ) ) { for(u = 0; u < DSET_DIMS; u++) { if ( (int)u != rdata[u] ) { pass = FALSE; failure_mssg = "vrfy_ds_ctg_i: u != rdata[u]."; break; } HDassert((int)u == rdata[u]); } free(rdata); } /* end if */ if ( pass ) { ret = H5Dclose(dsid); if ( ret < 0 ) { pass = FALSE; failure_mssg = "vrfy_ds_ctg_i: H5Dclose() failed"; } HDassert(ret >= 0); } return; } /* vrfy_ds_ctg_i() */ /*------------------------------------------------------------------------- * Function: ds_chk_i * * Purpose: Create a chunked dataset w/int datatype. Write data * to the data set or not as indicated by the write_data * parameter. * * If pass is false on entry, do nothing. * * If an error is detected, set pass to FALSE, and set * failure_mssg to point to an appropriate error message. * * Return: void * * Programmer: John Mainzer * 9/14/15 * *------------------------------------------------------------------------- */ void ds_chk_i(hid_t fid, const char *dset_name, hbool_t write_data) { int *wdata = NULL; unsigned u; hid_t dsid = -1; hid_t dcpl = -1; hid_t sid = -1; hsize_t dims[1] = {DSET_DIMS}; hsize_t chunk_dims[1] = {DSET_CHUNK_DIMS}; herr_t ret; if ( pass ) { sid = H5Screate_simple(1, dims, NULL); if ( sid <= 0 ) { pass = FALSE; failure_mssg = "ds_chk_i: H5Screate_simple() failed."; } HDassert(sid > 0); } if ( pass ) { dcpl = H5Pcreate(H5P_DATASET_CREATE); if ( dcpl <= 0 ) { pass = FALSE; failure_mssg = "ds_chk_i: H5Pcreate() failed."; } HDassert(dcpl > 0); } if ( pass ) { ret = H5Pset_chunk(dcpl, 1, chunk_dims); if ( ret < 0 ) { pass = FALSE; failure_mssg = "ds_chk_i: H5Pset_chunk() failed."; } HDassert(ret >= 0); } if ( pass ) { dsid = H5Dcreate2(fid, dset_name, H5T_NATIVE_INT, sid, H5P_DEFAULT, dcpl, H5P_DEFAULT); if ( dsid <= 0 ) { pass = FALSE; failure_mssg = "ds_chk_i: H5Dcreate2() failed"; } HDassert(dsid > 0); } if ( pass ) { ret = H5Pclose(dcpl); if ( ret < 0 ) { pass = FALSE; failure_mssg = "ds_chk_i: H5Pclose() failed."; } HDassert(ret >= 0); } if ( pass ) { ret = H5Sclose(sid); if ( ret < 0 ) { pass = FALSE; failure_mssg = "ds_chk_i: H5Sclose() failed."; } HDassert(ret >= 0); } if ( ( pass ) && ( write_data ) ) { wdata = (int *)malloc(sizeof(int) * DSET_DIMS); if ( ! wdata ) { pass = FALSE; failure_mssg = "ds_chk_i: malloc of wdata failed."; } HDassert(wdata); } if ( ( pass ) && ( write_data ) ) { for(u = 0; u < DSET_DIMS; u++) wdata[u] = (int)u; ret = H5Dwrite(dsid, H5T_NATIVE_INT, H5S_ALL, H5S_ALL, H5P_DEFAULT, wdata); if ( ret < 0 ) { pass = FALSE; failure_mssg = "ds_chk_i: H5Dwrite() failed."; } HDassert(ret >= 0); free(wdata); } /* end if */ if ( pass ) { ret = H5Dclose(dsid); if ( ret < 0 ) { pass = FALSE; failure_mssg = "ds_chk_i: H5Dclose() failed."; } HDassert(ret >= 0); } return; } /* ds_chk_i */ /*------------------------------------------------------------------------- * Function: vrfy_ds_chk_i * * Purpose: Validate a chunked datasets w/int datatypes. Validate * data if indicated via the write_data parameter. * * If pass is false on entry, do nothing. * * If an error is detected, set pass to FALSE, and set * failure_mssg to point to an appropriate error message. * * Return: void * * Programmer: John Mainzer * 9/14/15 * *------------------------------------------------------------------------- */ void vrfy_ds_chk_i(hid_t fid, const char *dset_name, hbool_t write_data) { int *rdata = NULL; unsigned u; hid_t dsid = -1; hid_t sid = -1; hid_t tid = -1; hid_t dcpl = -1; H5D_space_status_t allocation; H5D_layout_t layout; int ndims; hsize_t dims[1], max_dims[1], chunk_dims[1]; htri_t type_equal; herr_t ret; if ( pass ) { dsid = H5Dopen2(fid, dset_name, H5P_DEFAULT); if ( dsid <= 0 ) { pass = FALSE; failure_mssg = "vrfy_ds_chk_i: H5Dopen2() failed."; } HDassert(dsid > 0); } if ( pass ) { sid = H5Dget_space(dsid); if ( sid <= 0 ) { pass = FALSE; failure_mssg = "vrfy_ds_chk_i: H5Dget_space() failed."; } HDassert(sid > 0); } if ( pass ) { ndims = H5Sget_simple_extent_ndims(sid); if ( 1 != ndims ) { pass = FALSE; failure_mssg = "vrfy_ds_chk_i: 1 != ndims"; } HDassert(1 == ndims); } if ( pass ) { ret = H5Sget_simple_extent_dims(sid, dims, max_dims); if ( ret < 0 ) { pass = FALSE; failure_mssg = "vrfy_ds_chk_i: H5Sget_simple_extent_dims() failed"; } else if ( DSET_DIMS != dims[0] ) { pass = FALSE; failure_mssg = "vrfy_ds_chk_i: DSET_DIMS != dims[0]"; } else if ( DSET_DIMS != max_dims[0] ) { pass = FALSE; failure_mssg = "vrfy_ds_chk_i: DSET_DIMS != max_dims[0]"; } HDassert(ret >= 0); HDassert(DSET_DIMS == dims[0]); HDassert(DSET_DIMS == max_dims[0]); } if ( pass ) { ret = H5Sclose(sid); if ( ret < 0 ) { pass = FALSE; failure_mssg = "vrfy_ds_chk_i: H5Sclose() failed."; } HDassert(ret >= 0); } if ( pass ) { tid = H5Dget_type(dsid); if ( tid <= 0 ) { pass = FALSE; failure_mssg = "vrfy_ds_chk_i: H5Dget_type() failed."; } HDassert(tid > 0); } if ( pass ) { type_equal = H5Tequal(tid, H5T_NATIVE_INT); if ( 1 != type_equal ) { pass = FALSE; failure_mssg = "vrfy_ds_chk_i: tid != H5T_NATIVE_INT"; } HDassert(1 == type_equal); } if ( pass ) { ret = H5Tclose(tid); if ( ret < 0 ) { pass = FALSE; failure_mssg = "vrfy_ds_chk_i: H5Tclose() failed."; } HDassert(ret >= 0); } if ( pass ) { ret = H5Dget_space_status(dsid, &allocation); if ( ret < 0 ) { pass = FALSE; failure_mssg = "vrfy_ds_chk_i: H5Dget_space_status() failed."; } else if ( write_data && ( allocation != H5D_SPACE_STATUS_ALLOCATED ) ) { pass = FALSE; failure_mssg = "vrfy_ds_chk_i: write_data && allocation != H5D_SPACE_STATUS_ALLOCATED"; } else if ( !write_data && ( allocation != H5D_SPACE_STATUS_NOT_ALLOCATED ) ) { pass = FALSE; failure_mssg = "vrfy_ds_chk_i: !write_data && allocation != H5D_SPACE_STATUS_NOT_ALLOCATED"; } HDassert(ret >= 0); HDassert((write_data && allocation == H5D_SPACE_STATUS_ALLOCATED) || (!write_data && allocation == H5D_SPACE_STATUS_NOT_ALLOCATED)); } if ( pass ) { dcpl = H5Dget_create_plist(dsid); if ( dcpl <= 0 ) { pass = FALSE; failure_mssg = "vrfy_ds_chk_i: H5Dget_create_plist() failed."; } HDassert(dcpl > 0); } if ( pass ) { layout = H5Pget_layout(dcpl); if ( H5D_CHUNKED != layout ) { pass = FALSE; failure_mssg = "vrfy_ds_chk_i: H5D_CHUNKED != layout"; } HDassert(H5D_CHUNKED == layout); } if ( pass ) { ret = H5Pget_chunk(dcpl, 1, chunk_dims); if ( ret < 0 ) { pass = FALSE; failure_mssg = "vrfy_ds_chk_i: H5Pget_chunk"; } else if ( DSET_CHUNK_DIMS != chunk_dims[0] ) { pass = FALSE; failure_mssg = "vrfy_ds_chk_i: "; } HDassert(ret >= 0); HDassert(DSET_CHUNK_DIMS == chunk_dims[0]); } if ( pass ) { ret = H5Pclose(dcpl); if ( ret < 0 ) { pass = FALSE; failure_mssg = "vrfy_ds_chk_i: H5Pclose() failed."; } HDassert(ret >= 0); } if ( ( pass ) && ( write_data ) ) { rdata = (int *)malloc(sizeof(int) * DSET_DIMS); if ( ! rdata ) { pass = FALSE; failure_mssg = "vrfy_ds_chk_i: malloc of rdata failed."; } HDassert(rdata); } if ( ( pass ) && ( write_data ) ) { ret = H5Dread(dsid, H5T_NATIVE_INT, H5S_ALL, H5S_ALL, H5P_DEFAULT, rdata); if ( ret < 0 ) { pass = FALSE; failure_mssg = "vrfy_ds_chk_i: H5Dread() failed."; } HDassert(ret >= 0); } if ( ( pass ) && ( write_data ) ) { for(u = 0; u < DSET_DIMS; u++) { if ( (int)u != rdata[u] ) { pass = FALSE; failure_mssg = "vrfy_ds_chk_i: u != rdata[u]"; break; } HDassert((int)u == rdata[u]); } free(rdata); } /* end if */ if ( pass ) { ret = H5Dclose(dsid); if ( ret < 0 ) { pass = FALSE; failure_mssg = "vrfy_ds_chk_i: H5Dclose() failed."; } HDassert(ret >= 0); } return; } /* vrfy_ds_chk_i() */ /*------------------------------------------------------------------------- * Function: ds_cpt_i * * Purpose: Create a compact dataset w/int datatype. Write data * to the data set or not as indicated by the write_data * parameter. * * If pass is false on entry, do nothing. * * If an error is detected, set pass to FALSE, and set * failure_mssg to point to an appropriate error message. * * Return: void * * Programmer: John Mainzer * 9/14/15 * *------------------------------------------------------------------------- */ void ds_cpt_i(hid_t fid, const char *dset_name, hbool_t write_data) { int *wdata = NULL; unsigned u; hid_t dsid = -1; hid_t dcpl = -1; hid_t sid = -1; hsize_t dims[1] = {DSET_COMPACT_DIMS}; herr_t ret; if ( pass ) { sid = H5Screate_simple(1, dims, NULL); if ( sid <= 0 ) { pass = FALSE; failure_mssg = "ds_cpt_i: H5Screate_simple() failed."; } HDassert(sid > 0); } if ( pass ) { dcpl = H5Pcreate(H5P_DATASET_CREATE); if ( dcpl <= 0 ) { pass = FALSE; failure_mssg = "ds_cpt_i: H5Pcreate() failed."; } HDassert(dcpl > 0); } if ( pass ) { ret = H5Pset_layout(dcpl, H5D_COMPACT); if ( ret < 0 ) { pass = FALSE; failure_mssg = "ds_cpt_i: H5Pset_layout() failed."; } HDassert(ret >= 0); } if ( pass ) { dsid = H5Dcreate2(fid, dset_name, H5T_NATIVE_INT, sid, H5P_DEFAULT, dcpl, H5P_DEFAULT); if ( dsid <= 0 ) { pass = FALSE; failure_mssg = "ds_cpt_i: H5Dcreate2() failed."; } HDassert(dsid > 0); } if ( pass ) { ret = H5Pclose(dcpl); if ( ret < 0 ) { pass = FALSE; failure_mssg = "ds_cpt_i: H5Pclose() failed."; } HDassert(ret >= 0); } if ( pass ) { ret = H5Sclose(sid); if ( ret < 0 ) { pass = FALSE; failure_mssg = "ds_cpt_i: H5Sclose() failed."; } HDassert(ret >= 0); } if ( ( pass ) && ( write_data ) ) { wdata = (int *)malloc(sizeof(int) * DSET_COMPACT_DIMS); if ( ! wdata ) { pass = FALSE; failure_mssg = "ds_cpt_i: malloc of wdata failed."; } HDassert(wdata); } if ( ( pass ) && ( write_data ) ) { for(u = 0; u < DSET_COMPACT_DIMS; u++) wdata[u] = (int)u; ret = H5Dwrite(dsid, H5T_NATIVE_INT, H5S_ALL, H5S_ALL, H5P_DEFAULT, wdata); if ( ret < 0 ) { pass = FALSE; failure_mssg = "ds_cpt_i: H5Dwrite() failed."; } HDassert(ret >= 0); free(wdata); } /* end if */ if ( pass ) { ret = H5Dclose(dsid); if ( ret < 0 ) { pass = FALSE; failure_mssg = "ds_cpt_i: H5Dclose() failed."; } HDassert(ret >= 0); } return; } /* ds_cpt_i() */ /*------------------------------------------------------------------------- * Function: vrfy_ds_cpt_i * * Purpose: Validate a compact datasets w/int datatypes. Validate * data if indicated via the write_data parameter. * * If pass is false on entry, do nothing. * * If an error is detected, set pass to FALSE, and set * failure_mssg to point to an appropriate error message. * * Return: void * * Programmer: John Mainzer * 9/14/15 * *------------------------------------------------------------------------- */ void vrfy_ds_cpt_i(hid_t fid, const char *dset_name, hbool_t write_data) { int *rdata = NULL; unsigned u; hid_t dsid = -1; hid_t sid = -1; hid_t tid = -1; hid_t dcpl = -1; H5D_space_status_t allocation; H5D_layout_t layout; int ndims; hsize_t dims[1], max_dims[1]; htri_t type_equal; herr_t ret; if ( pass ) { dsid = H5Dopen2(fid, dset_name, H5P_DEFAULT); if ( dsid <= 0 ) { pass = FALSE; failure_mssg = "vrfy_ds_cpt_i: H5Dopen2() failed."; } HDassert(dsid > 0); } if ( pass ) { sid = H5Dget_space(dsid); if ( sid <= 0 ) { pass = FALSE; failure_mssg = "vrfy_ds_cpt_i: H5Dget_space() failed."; } HDassert(sid > 0); } if ( pass ) { ndims = H5Sget_simple_extent_ndims(sid); if ( 1 != ndims ) { pass = FALSE; failure_mssg = "vrfy_ds_cpt_i: 1 != ndims"; } HDassert(1 == ndims); } if ( pass ) { ret = H5Sget_simple_extent_dims(sid, dims, max_dims); if ( ret < 0 ) { pass = FALSE; failure_mssg = "vrfy_ds_cpt_i: H5Sget_simple_extent_dims() failed"; } else if ( DSET_COMPACT_DIMS != dims[0] ) { pass = FALSE; failure_mssg = "vrfy_ds_cpt_i: DSET_COMPACT_DIMS != dims[0]"; } else if ( DSET_COMPACT_DIMS != max_dims[0] ) { pass = FALSE; failure_mssg = "vrfy_ds_cpt_i: DSET_COMPACT_DIMS != max_dims[0]"; } HDassert(ret >= 0); HDassert(DSET_COMPACT_DIMS == dims[0]); HDassert(DSET_COMPACT_DIMS == max_dims[0]); } if ( pass ) { ret = H5Sclose(sid); if ( ret < 0 ) { pass = FALSE; failure_mssg = "vrfy_ds_cpt_i: H5Sclose() failed."; } HDassert(ret >= 0); } if ( pass ) { tid = H5Dget_type(dsid); if ( tid <= 0 ) { pass = FALSE; failure_mssg = "vrfy_ds_cpt_i: H5Dget_type() failed."; } HDassert(tid > 0); } if ( pass ) { type_equal = H5Tequal(tid, H5T_NATIVE_INT); if ( 1 != type_equal ) { pass = FALSE; failure_mssg = "vrfy_ds_cpt_i: type != H5T_NATIVE_INT"; } HDassert(1 == type_equal); } if ( pass ) { ret = H5Tclose(tid); if ( ret < 0 ) { pass = FALSE; failure_mssg = "vrfy_ds_cpt_i: H5Tclose() failed."; } HDassert(ret >= 0); } if ( pass ) { ret = H5Dget_space_status(dsid, &allocation); if ( ret < 0 ) { pass = FALSE; failure_mssg = "vrfy_ds_cpt_i: H5Dget_space_status() failed."; } else if ( H5D_SPACE_STATUS_ALLOCATED != allocation ) { pass = FALSE; failure_mssg = "vrfy_ds_cpt_i: H5D_SPACE_STATUS_ALLOCATED != allocation"; } HDassert(ret >= 0); HDassert(H5D_SPACE_STATUS_ALLOCATED == allocation); } if ( pass ) { dcpl = H5Dget_create_plist(dsid); if ( dcpl <= 0 ) { pass = FALSE; failure_mssg = "vrfy_ds_cpt_i: H5Dget_create_plist() failed."; } HDassert(dcpl > 0); } if ( pass ) { layout = H5Pget_layout(dcpl); if ( H5D_COMPACT != layout ) { pass = FALSE; failure_mssg = "vrfy_ds_cpt_i: H5D_COMPACT != layout"; } HDassert(H5D_COMPACT == layout); } if ( pass ) { ret = H5Pclose(dcpl); if ( ret < 0 ) { pass = FALSE; failure_mssg = "vrfy_ds_cpt_i: H5Pclose() failed."; } HDassert(ret >= 0); } if ( ( pass ) && ( write_data ) ) { rdata = (int *)malloc(sizeof(int) * DSET_COMPACT_DIMS); if ( ! rdata ) { pass = FALSE; failure_mssg = "vrfy_ds_cpt_i: malloc of rdata failed."; } HDassert(rdata); } if ( ( pass ) && ( write_data ) ) { ret = H5Dread(dsid, H5T_NATIVE_INT, H5S_ALL, H5S_ALL, H5P_DEFAULT, rdata); if ( ret < 0 ) { pass = FALSE; failure_mssg = "vrfy_ds_cpt_i: H5Dread() failed."; } HDassert(ret >= 0); } if ( ( pass ) && ( write_data ) ) { for(u = 0; u < DSET_COMPACT_DIMS; u++) { if ( (int)u != rdata[u] ) { pass = FALSE; failure_mssg = "vrfy_ds_cpt_i: (int)u != rdata[u]"; break; } HDassert((int)u == rdata[u]); } free(rdata); } /* end if */ if ( pass ) { ret = H5Dclose(dsid); if ( ret < 0 ) { pass = FALSE; failure_mssg = "vrfy_ds_cpt_i: H5Dclose() failed."; } HDassert(ret >= 0); } return; } /* vrfy_ds_cpt_i() */ /*------------------------------------------------------------------------- * Function: ds_ctg_v * * Purpose: Create a contiguous dataset w/variable-length datatype. * Write data to the data set or not as indicated by the * write_data parameter. * * If pass is false on entry, do nothing. * * If an error is detected, set pass to FALSE, and set * failure_mssg to point to an appropriate error message. * * Return: void * * Programmer: John Mainzer * 9/14/15 * *------------------------------------------------------------------------- */ void ds_ctg_v(hid_t fid, const char *dset_name, hbool_t write_data) { hid_t dsid = -1; hid_t sid = -1; hid_t tid = -1; hsize_t dims[1] = {DSET_SMALL_DIMS}; herr_t ret; hvl_t *wdata = NULL; unsigned u; if ( pass ) { sid = H5Screate_simple(1, dims, NULL); if ( sid <= 0 ) { pass = FALSE; failure_mssg = "ds_ctg_v: H5Screate_simple"; } HDassert(sid > 0); } if ( pass ) { tid = H5Tvlen_create(H5T_NATIVE_INT); if ( tid <= 0 ) { pass = FALSE; failure_mssg = "ds_ctg_v: H5Tvlen_create() failed."; } HDassert(tid > 0); } if ( pass ) { dsid = H5Dcreate2(fid, dset_name, tid, sid, H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT); if ( dsid <= 0 ) { pass = FALSE; failure_mssg = "ds_ctg_v: H5Dcreate2() failed."; } HDassert(dsid > 0); } if ( ( pass ) && ( write_data ) ) { wdata = (hvl_t *)malloc(sizeof(hvl_t) * DSET_SMALL_DIMS); if ( ! wdata ) { pass = FALSE; failure_mssg = "ds_ctg_v: malloc of wdata failed."; } HDassert(wdata); } if ( ( pass ) && ( write_data ) ) { for(u = 0; u < DSET_SMALL_DIMS; u++) { int *tdata; unsigned len; unsigned v; len = (u % 10) + 1; tdata = (int *)malloc(sizeof(int) * len); if ( !tdata ) { pass = FALSE; failure_mssg = "ds_ctg_v: malloc of tdata failed."; break; } HDassert(tdata); for(v = 0; v < len; v++) tdata[v] = (int)(u + v); wdata[u].len = len; wdata[u].p = tdata; } /* end for */ } if ( ( pass ) && ( write_data ) ) { ret = H5Dwrite(dsid, tid, H5S_ALL, H5S_ALL, H5P_DEFAULT, wdata); if ( ret < 0 ) { pass = FALSE; failure_mssg = "ds_ctg_v: H5Dwrite() failed."; } HDassert(ret >= 0); } if ( ( pass ) && ( write_data ) ) { ret = H5Dvlen_reclaim(tid, sid, H5P_DEFAULT, wdata); if ( ret < 0 ) { pass = FALSE; failure_mssg = "ds_ctg_v: H5Dvlen_reclaim() failed."; } HDassert(ret >= 0); free(wdata); } /* end if */ if ( pass ) { ret = H5Sclose(sid); if ( sid < 0 ) { pass = FALSE; failure_mssg = "ds_ctg_v: H5Sclose() failed."; } HDassert(ret >= 0); } if ( pass ) { ret = H5Tclose(tid); if ( tid < 0 ) { pass = FALSE; failure_mssg = "ds_ctg_v: H5Tclose() failed."; } HDassert(ret >= 0); } if ( pass ) { ret = H5Dclose(dsid); if ( ret < 0 ) { pass = FALSE; failure_mssg = "ds_ctg_v: H5Dclose() failed."; } HDassert(ret >= 0); } return; } /* ds_ctg_v() */ /*------------------------------------------------------------------------- * Function: vrfy_ds_ctg_v * * Purpose: Validate a contiguous datasets w/variable-length datatypes. * Validate data if indicated via the write_data parameter. * * If pass is false on entry, do nothing. * * If an error is detected, set pass to FALSE, and set * failure_mssg to point to an appropriate error message. * * Return: void * * Programmer: John Mainzer * 9/14/15 * *------------------------------------------------------------------------- */ void vrfy_ds_ctg_v(hid_t fid, const char *dset_name, hbool_t write_data) { hid_t dsid = -1; hid_t sid = -1; hid_t tid = -1; hid_t tmp_tid = -1; hid_t dcpl = -1; H5D_space_status_t allocation; H5D_layout_t layout; int ndims; hsize_t dims[1], max_dims[1]; htri_t type_equal; hvl_t *rdata = NULL; unsigned u; herr_t ret; if ( pass ) { dsid = H5Dopen2(fid, dset_name, H5P_DEFAULT); if ( dsid <= 0 ) { pass = FALSE; failure_mssg = "vrfy_ds_ctg_v: H5Dopen2() failed."; } HDassert(dsid > 0); } if ( pass ) { sid = H5Dget_space(dsid); if ( sid <= 0 ) { pass = FALSE; failure_mssg = "vrfy_ds_ctg_v: H5Dget_space() failed"; } HDassert(sid > 0); } if ( pass ) { ndims = H5Sget_simple_extent_ndims(sid); if ( 1 != ndims ) { pass = FALSE; failure_mssg = "vrfy_ds_ctg_v: 1 != ndims"; } HDassert(1 == ndims); } if ( pass ) { ret = H5Sget_simple_extent_dims(sid, dims, max_dims); if ( ret < 0 ) { pass = FALSE; failure_mssg = "vrfy_ds_ctg_v: H5Sget_simple_extent_dims() failed."; } else if ( DSET_SMALL_DIMS != dims[0] ) { pass = FALSE; failure_mssg = "vrfy_ds_ctg_v: DSET_SMALL_DIMS != dims[0]"; } else if ( DSET_SMALL_DIMS != max_dims[0] ) { pass = FALSE; failure_mssg = "vrfy_ds_ctg_v: DSET_SMALL_DIMS != max_dims[0]"; } HDassert(ret >= 0); HDassert(DSET_SMALL_DIMS == dims[0]); HDassert(DSET_SMALL_DIMS == max_dims[0]); } if ( pass ) { tid = H5Dget_type(dsid); if ( tid <= 0 ) { pass = FALSE; failure_mssg = "vrfy_ds_ctg_v: H5Dget_type() failed."; } HDassert(tid > 0); } if ( pass ) { tmp_tid = H5Tvlen_create(H5T_NATIVE_INT); if ( tmp_tid <= 0 ) { pass = FALSE; failure_mssg = "vrfy_ds_ctg_v: H5Tvlen_create() failed."; } HDassert(tmp_tid > 0); } if ( pass ) { type_equal = H5Tequal(tid, tmp_tid); if ( 1 != type_equal ) { pass = FALSE; failure_mssg = "vrfy_ds_ctg_v: type != vlen H5T_NATIVE_INT"; } HDassert(1 == type_equal); } if ( pass ) { ret = H5Tclose(tmp_tid); if ( ret < 0 ) { pass = FALSE; failure_mssg = "vrfy_ds_ctg_v: H5Tclose() failed."; } HDassert(ret >= 0); } if ( pass ) { ret = H5Dget_space_status(dsid, &allocation); if ( ret < 0 ) { pass = FALSE; failure_mssg = "vrfy_ds_ctg_v: H5Dget_space_status() failed"; } else if ( write_data && (allocation != H5D_SPACE_STATUS_ALLOCATED) ) { pass = FALSE; failure_mssg = "vrfy_ds_ctg_v: write_data && allocation != H5D_SPACE_STATUS_ALLOCATED"; } else if ( !write_data && ( allocation != H5D_SPACE_STATUS_NOT_ALLOCATED ) ) { pass = FALSE; failure_mssg = "vrfy_ds_ctg_v: !write_data && allocation != H5D_SPACE_STATUS_NOT_ALLOCATED"; } HDassert(ret >= 0); HDassert((write_data && allocation == H5D_SPACE_STATUS_ALLOCATED) || (!write_data && allocation == H5D_SPACE_STATUS_NOT_ALLOCATED)); } if ( pass ) { dcpl = H5Dget_create_plist(dsid); if ( dcpl <= 0 ) { pass = FALSE; failure_mssg = "vrfy_ds_ctg_v: H5Dget_create_plist() failed."; } HDassert(dcpl > 0); } if ( pass ) { layout = H5Pget_layout(dcpl); if ( H5D_CONTIGUOUS != layout ) { pass = FALSE; failure_mssg = "vrfy_ds_ctg_v: H5D_CONTIGUOUS != layout"; } HDassert(H5D_CONTIGUOUS == layout); } if ( pass ) { ret = H5Pclose(dcpl); if ( ret < 0 ) { pass = FALSE; failure_mssg = "vrfy_ds_ctg_v: H5Pclose() failed."; } HDassert(ret >= 0); } if ( ( pass ) && ( write_data ) ) { rdata = (hvl_t *)malloc(sizeof(hvl_t) * DSET_SMALL_DIMS); if ( !rdata ) { pass = FALSE; failure_mssg = "vrfy_ds_ctg_v: malloc of rdata failed."; } HDassert(rdata); } if ( ( pass ) && ( write_data ) ) { ret = H5Dread(dsid, tid, H5S_ALL, H5S_ALL, H5P_DEFAULT, rdata); if ( ret < 0 ) { pass = FALSE; failure_mssg = "vrfy_ds_ctg_v: H5Dread() failed."; } HDassert(ret >= 0); } if ( ( pass ) && ( write_data ) ) { for(u = 0; u < DSET_SMALL_DIMS; u++) { unsigned len; unsigned v; len = (unsigned)rdata[u].len; for(v = 0; v < len; v++) { int *tdata = (int *)rdata[u].p; if ( !tdata ) { pass = FALSE; failure_mssg = "vrfy_ds_ctg_v: !tdata"; break; } else if ( (int)(u + v) != tdata[v] ) { pass = FALSE; failure_mssg = "vrfy_ds_ctg_v: (int)(u + v) != tdata[v]"; break; } HDassert(tdata); HDassert((int)(u + v) == tdata[v]); } /* end for */ } /* end for */ } if ( ( pass ) && ( write_data ) ) { ret = H5Dvlen_reclaim(tid, sid, H5P_DEFAULT, rdata); if ( ret < 0 ) { pass = FALSE; failure_mssg = "vrfy_ds_ctg_v: H5Dvlen_reclaim() failed."; } HDassert(ret >= 0); free(rdata); } /* end if */ if ( pass ) { ret = H5Sclose(sid); if ( ret < 0 ) { pass = FALSE; failure_mssg = "vrfy_ds_ctg_v: H5Sclose() failed."; } HDassert(ret >= 0); } if ( pass ) { ret = H5Tclose(tid); if ( ret < 0 ) { pass = FALSE; failure_mssg = "vrfy_ds_ctg_v: H5Tclose() failed."; } HDassert(ret >= 0); } if ( pass ) { ret = H5Dclose(dsid); if ( ret < 0 ) { pass = FALSE; failure_mssg = "vrfy_ds_ctg_v: H5Dclose() failed."; } HDassert(ret >= 0); } return; } /* vrfy_ds_ctg_v() */ /*------------------------------------------------------------------------- * Function: create_zoo * * Purpose: Given the path to a group, construct a variety of HDF5 * data sets, groups, and other objects selected so as to * include instances of all on disk data structures used * in the HDF5 library. * * If pass is false on entry, do nothing. * * If an error is detected, set pass to FALSE, and set * failure_mssg to point to an appropriate error message. * * This function was initially created to assist in testing * the cache image feature of the metadata cache. Thus, it * only concerns itself with the version 2 superblock, and * on disk structures that can occur with this version of * the superblock. * * Note the associated validate_zoo() function. * * Return: void * * Programmer: John Mainzer * 9/14/15 * *------------------------------------------------------------------------- */ void create_zoo(hid_t fid, const char *base_path, int proc_num) { char full_path[1024]; HDassert(base_path); /* Add & verify an empty "new style" group */ if ( pass ) { sprintf(full_path, "%s/A", base_path); HDassert(strlen(full_path) < 1024); ns_grp_0(fid, full_path); } if ( pass ) { sprintf(full_path, "%s/A", base_path); HDassert(strlen(full_path) < 1024); vrfy_ns_grp_0(fid, full_path); } /* Add & verify a compact "new style" group (3 link messages) */ if ( pass ) { sprintf(full_path, "%s/B", base_path); HDassert(strlen(full_path) < 1024); ns_grp_c(fid, full_path, 3); } if ( pass ) { sprintf(full_path, "%s/B", base_path); HDassert(strlen(full_path) < 1024); vrfy_ns_grp_c(fid, full_path, 3); } /* Add & verify a dense "new style" group (w/300 links, in v2 B-tree & * fractal heap) */ if ( pass ) { sprintf(full_path, "%s/C", base_path); HDassert(strlen(full_path) < 1024); ns_grp_d(fid, full_path, 300); } if ( pass ) { sprintf(full_path, "%s/C", base_path); HDassert(strlen(full_path) < 1024); vrfy_ns_grp_d(fid, full_path, 300); } /* Add & verify an empty "old style" group to file */ if ( pass ) { sprintf(full_path, "%s/D", base_path); HDassert(strlen(full_path) < 1024); os_grp_0(fid, full_path); } if ( pass ) { sprintf(full_path, "%s/D", base_path); HDassert(strlen(full_path) < 1024); vrfy_os_grp_0(fid, full_path); } /* Add & verify an "old style" group (w/300 links, in v1 B-tree & * local heap) to file */ if ( pass ) { sprintf(full_path, "%s/E", base_path); HDassert(strlen(full_path) < 1024); os_grp_n(fid, full_path, proc_num, 300); } if ( pass ) { sprintf(full_path, "%s/E", base_path); HDassert(strlen(full_path) < 1024); vrfy_os_grp_n(fid, full_path, proc_num, 300); } /* Add & verify a contiguous dataset w/integer datatype (but no data) * to file */ if ( pass ) { sprintf(full_path, "%s/F", base_path); HDassert(strlen(full_path) < 1024); ds_ctg_i(fid, full_path, FALSE); } if ( pass ) { sprintf(full_path, "%s/F", base_path); HDassert(strlen(full_path) < 1024); vrfy_ds_ctg_i(fid, full_path, FALSE); } /* Add & verify a contiguous dataset w/integer datatype (with data) * to file */ if ( pass ) { sprintf(full_path, "%s/G", base_path); HDassert(strlen(full_path) < 1024); ds_ctg_i(fid, full_path, TRUE); } if ( pass ) { sprintf(full_path, "%s/G", base_path); HDassert(strlen(full_path) < 1024); vrfy_ds_ctg_i(fid, full_path, TRUE); } /* Add & verify a chunked dataset w/integer datatype (but no data) * to file */ if ( pass ) { sprintf(full_path, "%s/H", base_path); HDassert(strlen(full_path) < 1024); ds_chk_i(fid, full_path, FALSE); } if ( pass ) { sprintf(full_path, "%s/H", base_path); HDassert(strlen(full_path) < 1024); vrfy_ds_chk_i(fid, full_path, FALSE); } /* Add & verify a chunked dataset w/integer datatype (and data) * to file */ if ( pass ) { sprintf(full_path, "%s/I", base_path); HDassert(strlen(full_path) < 1024); ds_chk_i(fid, full_path, TRUE); } if ( pass ) { sprintf(full_path, "%s/I", base_path); HDassert(strlen(full_path) < 1024); vrfy_ds_chk_i(fid, full_path, TRUE); } /* Add & verify a compact dataset w/integer datatype (but no data) * to file */ if ( pass ) { sprintf(full_path, "%s/J", base_path); HDassert(strlen(full_path) < 1024); ds_cpt_i(fid, full_path, FALSE); } if ( pass ) { sprintf(full_path, "%s/J", base_path); HDassert(strlen(full_path) < 1024); vrfy_ds_cpt_i(fid, full_path, FALSE); } /* Add & verify a compact dataset w/integer datatype (and data) * to file */ if ( pass ) { sprintf(full_path, "%s/K", base_path); HDassert(strlen(full_path) < 1024); ds_cpt_i(fid, full_path, TRUE); } if ( pass ) { sprintf(full_path, "%s/K", base_path); HDassert(strlen(full_path) < 1024); vrfy_ds_cpt_i(fid, full_path, TRUE); } /* Add & verify a contiguous dataset w/variable-length datatype * (but no data) to file */ if ( pass ) { sprintf(full_path, "%s/L", base_path); HDassert(strlen(full_path) < 1024); ds_ctg_v(fid, full_path, FALSE); } if ( pass ) { sprintf(full_path, "%s/L", base_path); HDassert(strlen(full_path) < 1024); vrfy_ds_ctg_v(fid, full_path, FALSE); } /* Add & verify a contiguous dataset w/variable-length datatype * (and data) to file */ if ( pass ) { sprintf(full_path, "%s/M", base_path); HDassert(strlen(full_path) < 1024); ds_ctg_v(fid, full_path, TRUE); } if ( pass ) { sprintf(full_path, "%s/M", base_path); HDassert(strlen(full_path) < 1024); vrfy_ds_ctg_v(fid, full_path, TRUE); } return; } /* create_zoo() */ /*------------------------------------------------------------------------- * Function: validate_zoo * * Purpose: Given the path to a group in which a "zoo" has been * constructed, validate the objects in the "zoo". * * If pass is false on entry, do nothing. * * If an error is detected, set pass to FALSE, and set * failure_mssg to point to an appropriate error message. * * This function was initially created to assist in testing * the cache image feature of the metadata cache. Thus, it * only concerns itself with the version 2 superblock, and * on disk structures that can occur with this version of * the superblock. * * Note the associated validate_zoo() function. * * Return: void * * Programmer: John Mainzer * 9/14/15 * *------------------------------------------------------------------------- */ void validate_zoo(hid_t fid, const char *base_path, int proc_num) { char full_path[1024]; HDassert(base_path); /* validate an empty "new style" group */ if ( pass ) { sprintf(full_path, "%s/A", base_path); HDassert(strlen(full_path) < 1024); vrfy_ns_grp_0(fid, full_path); } /* validate a compact "new style" group (3 link messages) */ if ( pass ) { sprintf(full_path, "%s/B", base_path); HDassert(strlen(full_path) < 1024); vrfy_ns_grp_c(fid, full_path, 3); } /* validate a dense "new style" group (w/300 links, in v2 B-tree & * fractal heap) */ if ( pass ) { sprintf(full_path, "%s/C", base_path); HDassert(strlen(full_path) < 1024); vrfy_ns_grp_d(fid, full_path, 300); } /* validate an empty "old style" group in file */ if ( pass ) { sprintf(full_path, "%s/D", base_path); HDassert(strlen(full_path) < 1024); vrfy_os_grp_0(fid, full_path); } /* validate an "old style" group (w/300 links, in v1 B-tree & * local heap) */ if ( pass ) { sprintf(full_path, "%s/E", base_path); HDassert(strlen(full_path) < 1024); vrfy_os_grp_n(fid, full_path, proc_num, 300); } /* validate a contiguous dataset w/integer datatype (but no data) * in file. */ if ( pass ) { sprintf(full_path, "%s/F", base_path); HDassert(strlen(full_path) < 1024); vrfy_ds_ctg_i(fid, full_path, FALSE); } /* validate a contiguous dataset w/integer datatype (with data) * in file. */ if ( pass ) { sprintf(full_path, "%s/G", base_path); HDassert(strlen(full_path) < 1024); vrfy_ds_ctg_i(fid, full_path, TRUE); } /* validate a chunked dataset w/integer datatype (but no data) * in file */ if ( pass ) { sprintf(full_path, "%s/H", base_path); HDassert(strlen(full_path) < 1024); vrfy_ds_chk_i(fid, full_path, FALSE); } /* validate a chunked dataset w/integer datatype (and data) * in file */ if ( pass ) { sprintf(full_path, "%s/I", base_path); HDassert(strlen(full_path) < 1024); vrfy_ds_chk_i(fid, full_path, TRUE); } /* Validate a compact dataset w/integer datatype (but no data) * in file */ if ( pass ) { sprintf(full_path, "%s/J", base_path); HDassert(strlen(full_path) < 1024); vrfy_ds_cpt_i(fid, full_path, FALSE); } /* validate a compact dataset w/integer datatype (and data) * in file */ if ( pass ) { sprintf(full_path, "%s/K", base_path); HDassert(strlen(full_path) < 1024); vrfy_ds_cpt_i(fid, full_path, TRUE); } /* validate a contiguous dataset w/variable-length datatype * (but no data) to file */ if ( pass ) { sprintf(full_path, "%s/L", base_path); HDassert(strlen(full_path) < 1024); vrfy_ds_ctg_v(fid, full_path, FALSE); } /* validate a contiguous dataset w/variable-length datatype * (and data) to file */ if ( pass ) { sprintf(full_path, "%s/M", base_path); HDassert(strlen(full_path) < 1024); vrfy_ds_ctg_v(fid, full_path, TRUE); } return; } /* validate_zoo() */