mirror/hdf5
2
0
Fork 0
mirror of https://github.com/HDFGroup/hdf5.git synced 2025-03-31 17:10:47 +08:00
Code Issues Packages Projects Releases Wiki Activity

[svn-r1898] backed out the changes that were breaking the test cases until i can

Browse Source 
figure a way to fix the problem.  decided to back it out since i will
be leaving for christmas in a few days and won't be back until jan.
This commit is contained in:
Patrick Lu 1999-12-17 11:56:10 -05:00
parent 4d18fe3563
commit bb92bb9712
1 changed files with 36 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

39
tools/h5dump.c
View File

@ -775,15 +775,48 @@ done:
*-----------------------------------------------------------------------*/
static void
dump_named_datatype (hid_t type, const char *name) {
char *fname ;
hid_t nmembers, mtype;
int i, j, ndims, perm[H5DUMP_MAX_RANK];
size_t dims[H5DUMP_MAX_RANK];
indentation (indent);
begin_obj(DATATYPE, name);
indentation (indent+COL);
print_datatype(type);
printf("\n");
nmembers = H5Tget_nmembers(type);
for (i = 0; i < nmembers; i++) {
fname = H5Tget_member_name(type, i);
mtype = H5Tget_member_type(type, i);
ndims = H5Tget_member_dims(type, i, dims, perm);
indentation (indent+COL);
if (H5T_ENUM == H5Tget_class(type)) {
print_datatype(type);
break;
}
else {
print_datatype(mtype);
}
printf (" \"%s\"", fname);
if (ndims != 1 || dims[0] != 1) {
for (j = 0; j < ndims; j++)
printf("[%d]",dims[j]);
}
printf (";\n");
free (fname);
}
indentation (indent);
end_obj();
}
/*-------------------------------------------------------------------------
* Function: dump_group