//--------------------------------------------------------------------------
// Function: CompType::pack
///\brief Recursively removes padding from within a compound datatype.
///
///\exception H5::DataTypeIException
// Programmer Binh-Minh Ribler - 2000
//--------------------------------------------------------------------------
void CompType::pack() const
{
// Calls C routine H5Tpack to remove padding
herr_t ret_value = H5Tpack( id );
if( ret_value < 0 )
{
throw DataTypeIException("CompType::pack", "H5Tpack failed");
}
}
int
main(int argc, char **argv)
{
char file_name[256], dset_name[256];
hid_t file_id, dataset_id, space_id, plist_id, type_id;
hsize_t dims[1], dims_chunk[1];
hsize_t maxdims[1] = { H5S_UNLIMITED };
size_t disk_type_size, computed_type_size, packed_type_size;
if (argc < 3) {
printf("Pass the name of the file and dataset to check as arguments\n");
return(0);
}
strcpy(file_name, argv[1]);
strcpy(dset_name, argv[2]);
dims[0] = 20; // Create 20 records
dims_chunk[0] = 10;
// Create a new file
file_id = H5Fcreate(file_name, H5F_ACC_TRUNC, H5P_DEFAULT, H5P_DEFAULT);
// Create a simple data space with unlimited size
space_id = H5Screate_simple(1, dims, maxdims);
// Modify dataset creation properties, i.e. enable chunking
plist_id = H5Pcreate (H5P_DATASET_CREATE);
H5Pset_chunk(plist_id, 1, dims_chunk);
// Get the nested type
type_id = createNestedType();
// Create the dataset
dataset_id = H5Dcreate(file_id, dset_name, type_id, space_id, plist_id);
// Free resources
H5Sclose(space_id);
H5Pclose(plist_id);
H5Dclose(dataset_id);
H5Fclose(file_id);
// Compute type sizes for native and packed
disk_type_size = H5Tget_size(type_id);
computed_type_size = getNestedSizeType(type_id);
H5Tpack(type_id); // pack type
packed_type_size = H5Tget_size(type_id);
printf("Disk type size: %d\n", disk_type_size);
printf("Packed type size: %d (should be %d)\n",
packed_type_size, computed_type_size);
H5Tclose(type_id);
return(1);
}
int main(){
hid_t fprop;
hid_t fid;
hid_t vol_id = H5VL_memvol_init();
char name[1024];
// create some datatypes
hid_t tid = H5Tcreate (H5T_COMPOUND, sizeof(complex_type));
H5Tinsert(tid, "re", HOFFSET(complex_type,re), H5T_NATIVE_DOUBLE);
H5Tinsert(tid, "im", HOFFSET(complex_type,im), H5T_NATIVE_DOUBLE);
hid_t s10 = H5Tcopy(H5T_C_S1);
H5Tset_size(s10, 10);
H5Tinsert(tid, "name", HOFFSET(complex_type,name), s10);
H5Tinsert(tid, "val", HOFFSET(complex_type,val), H5T_NATIVE_INT);
// packed version of the datatype
hid_t disk_tid = H5Tcopy (tid);
H5Tpack(disk_tid);
fprop = H5Pcreate(H5P_FILE_ACCESS);
H5Pset_vol(fprop, vol_id, &fprop);
fid = H5Fcreate("test", H5F_ACC_TRUNC, H5P_DEFAULT, fprop);
H5VLget_plugin_name(fid, name, 1024);
printf ("%s using VOL %s\n", __FILE__ , name);
assert(H5Tcommit(fid, "t_complex", tid, H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT) >= 0);
assert(H5Tcommit(fid, "t_complex_p", disk_tid, H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT) >= 0);
hid_t tid_stored1 = H5Topen(fid, "t_complex", H5P_DEFAULT);
hid_t tid_stored2 = H5Topen(fid, "t_complex_p", H5P_DEFAULT);
// hid_t tid_stored3 = H5Topen(fid, "NotExisting", H5P_DEFAULT);
// assert(tid_stored3 < 0);
assert(H5Tequal(tid_stored1, tid));
assert(H5Tequal(tid_stored2, disk_tid));
H5Fclose(fid);
H5Tclose(tid);
H5Tclose(disk_tid);
H5VL_memvol_finalize();
return 0;
}
