mirror/hdf5
2
0
Fork 0
mirror of https://github.com/HDFGroup/hdf5.git synced 2025-04-18 17:40:55 +08:00
Code Issues Packages Projects Releases Wiki Activity

[svn-r7000] Purpose:

Browse Source 
New feature

Description:
    Dump variable-length sequence datatype info with h5debug

Platforms tested:
    FreeBSD 4.8 (sleipnir)
    h5committest

Misc. update:
    Patch provided by Robb Matzke (matzke@llnl.gov)
This commit is contained in:
Quincey Koziol 2003-06-09 14:14:35 -05:00
parent 1e495825d2
commit 007adfc452
1 changed files with 30 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

33
src/H5Odtype.c
View File

@ -1212,7 +1212,7 @@ H5O_dtype_debug(H5F_t *f, hid_t dxpl_id, const void *mesg, FILE *stream,
s = "array";
break;
case H5T_VLEN:
s = "variable-length sequence";
s = "vlen";
break;
default:
sprintf(buf, "H5T_CLASS_%d", (int) (dt->type));
@ -1269,8 +1269,35 @@ H5O_dtype_debug(H5F_t *f, hid_t dxpl_id, const void *mesg, FILE *stream,
fprintf(stream, "%*s%-*s\n", indent, "", fwidth,
"Fix dumping reference types!");
} else if (H5T_VLEN==dt->type) {
fprintf(stream, "%*s%-*s\n", indent, "", fwidth,
"Fix dumping variable-length types!");
switch (dt->u.vlen.type) {
case H5T_VLEN_SEQUENCE:
s = "sequence";
break;
case H5T_VLEN_STRING:
s = "string";
break;
default:
sprintf(buf, "H5T_VLEN_%d", dt->u.vlen.type);
s = buf;
break;
}
fprintf(stream, "%*s%-*s %s\n", indent, "", fwidth,
"Vlen type:", s);
switch (dt->u.vlen.loc) {
case H5T_VLEN_MEMORY:
s = "memory";
break;
case H5T_VLEN_DISK:
s = "disk";
break;
default:
sprintf(buf, "H5T_VLEN_%d", dt->u.vlen.loc);
s = buf;
break;
}
fprintf(stream, "%*s%-*s %s\n", indent, "", fwidth,
"Location:", s);
} else if (H5T_ARRAY==dt->type) {
fprintf(stream, "%*s%-*s %d\n", indent, "", fwidth,
"Rank:",