mirror/hdf5
2
0
Fork 0
mirror of https://github.com/HDFGroup/hdf5.git synced 2025-03-01 16:28:09 +08:00
Code Issues Packages Projects Releases Wiki Activity

[svn-r1864] fixed the committed type error.

Browse Source
This commit is contained in:
Patrick Lu 1999-12-10 09:38:40 -05:00
parent fdf2c445ad
commit 0a3b102ae8
1 changed files with 11 additions and 43 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

54
tools/h5dump.c
View File

@ -737,14 +737,14 @@ int i;
break;
case H5G_TYPE:
if ((obj=H5Topen (group, name)) >= 0) {
dump_named_datatype (obj, name);
H5Tclose(obj);
} else {
printf ("h5dump error: unable to dump data type %s\n",name);
status = 1;
}
break;
if ((obj=H5Topen (group, name)) >= 0) {
dump_named_datatype (obj, name);
H5Tclose(obj);
} else {
printf ("h5dump error: unable to dump data type %s\n",name);
status = 1;
}
break;
default:
printf ("h5dump error: unknown object %s\n", name);
@ -774,44 +774,12 @@ 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);
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]",(int)dims[j]);
}
printf (";\n");
free (fname);
}
indentation (indent+COL);
print_datatype(type);
printf("\n");
indentation (indent);
end_obj();
}