summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorQuincey Koziol <koziol@hdfgroup.org>2003-06-09 19:14:35 (GMT)
committerQuincey Koziol <koziol@hdfgroup.org>2003-06-09 19:14:35 (GMT)
commit007adfc4525c2b7e7bbfd27e0f1a4c569687cf2e (patch)
tree16c1d2746d6ed466191bc7bab39cdeb0f4d684c4
parent1e495825d220271cca2b4e23734270b19a848f10 (diff)
downloadhdf5-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.c33
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:",