diff options
| author | Quincey Koziol <koziol@hdfgroup.org> | 2003-06-09 19:14:35 (GMT) |
|---|---|---|
| committer | Quincey Koziol <koziol@hdfgroup.org> | 2003-06-09 19:14:35 (GMT) |
| commit | 007adfc4525c2b7e7bbfd27e0f1a4c569687cf2e (patch) | |
| tree | 16c1d2746d6ed466191bc7bab39cdeb0f4d684c4 | |
| parent | 1e495825d220271cca2b4e23734270b19a848f10 (diff) | |
| download | hdf5-007adfc4525c2b7e7bbfd27e0f1a4c569687cf2e.zip hdf5-007adfc4525c2b7e7bbfd27e0f1a4c569687cf2e.tar.gz hdf5-007adfc4525c2b7e7bbfd27e0f1a4c569687cf2e.tar.bz2 | |
[svn-r7000] Purpose:
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)
| -rw-r--r-- | src/H5Odtype.c | 33 |
1 files changed, 30 insertions, 3 deletions
diff --git a/src/H5Odtype.c b/src/H5Odtype.c index e28571c..5f814fe 100644 --- a/src/H5Odtype.c +++ b/src/H5Odtype.c @@ -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:", |