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-r1900] temporary fix for the committed type problem that Elena reported.

Browse Source
This commit is contained in:
Patrick Lu 1999-12-17 14:06:39 -05:00
parent 11705a70ca
commit 26f8ffe9d9
1 changed files with 27 additions and 35 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

62
tools/h5dump.c
View File

@ -271,7 +271,7 @@ H5G_stat_t statbuf;
indentation (indent+COL);
if (i >= 0) {
if (!type_table->objs[i].recorded) /* unamed data type */
if (!type_table->objs[i].recorded)
printf("\"/#%lu:%lu\"\n", type_table->objs[i].objno[0],
type_table->objs[i].objno[1]);
else
@ -775,48 +775,40 @@ 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];
int nmembers = 1, x,j;
hid_t comptype;
char *compname;
int 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]",dims[j]);
}
printf (";\n");
free (fname);
}
if (H5Tget_class(type) == H5T_COMPOUND){
nmembers = H5Tget_nmembers(type);
for (x = 0; x < nmembers; x++){
comptype = H5Tget_member_type(type,x);
compname = H5Tget_member_name(type,x);
ndims = H5Tget_member_dims(type, x, dims, perm);
indentation (indent+COL);
print_datatype(comptype);
printf(" \"%s\"",compname);
if (ndims != 1 || dims[0] != 1) {
for (j = 0; j < ndims; j++)
printf("[%d]",(int)dims[j]);
}
printf(";\n");
}
}
else {
indentation (indent+COL);
print_datatype(type);
printf(";\n");
}
indentation (indent);
end_obj();
}
/*-------------------------------------------------------------------------
* Function: dump_group