[svn-r3209] Purpose:

    Updating debugging information for new features, etc.
Description:
    Lots of the new features added to the library during the last year or so
    have been added without updating the debugging routines used by h5debug.
Solution:
    Added more of the new features (although not all of them) to the debugging
    routines for h5debug.  Also included some more information to expand on
    the information printed from h5debug.
Platforms tested:
    FreeBSD 4.2 (hawkwind)

1 files changed, 31 insertions, 1 deletions

diff --git a/src/H5Odtype.c b/src/H5Odtype.c
index b18c138..d5b7618 100644
--- a/src/H5Odtype.c
+++ b/src/H5Odtype.c
@@ -1195,9 +1195,18 @@ H5O_dtype_debug(H5F_t *f, const void *mesg, FILE *stream,
     case H5T_COMPOUND:
 	s = "compound";
 	break;
+    case H5T_REFERENCE:
+	s = "reference";
+	break;
     case H5T_ENUM:
 	s = "enum";
 	break;
+    case H5T_ARRAY:
+	s = "array";
+	break;
+    case H5T_VLEN:
+	s = "variable-length sequence";
+	break;
     default:
 	sprintf(buf, "H5T_CLASS_%d", (int) (dt->type));
 	s = buf;
@@ -1271,7 +1280,28 @@ H5O_dtype_debug(H5F_t *f, const void *mesg, FILE *stream,
     } else if (H5T_OPAQUE==dt->type) {
 	fprintf(stream, "%*s%-*s \"%s\"\n", indent, "", fwidth,
 		"Tag:", dt->u.opaque.tag);
-
+    } else if (H5T_REFERENCE==dt->type) {
+	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!");
+    } else if (H5T_ARRAY==dt->type) {
+	fprintf(stream, "%*s%-*s %d\n", indent, "", fwidth,
+		"Rank:",
+		dt->u.array.ndims);
+    fprintf(stream, "%*s%-*s {", indent, "", fwidth, "Dim Size:");
+	for (i=0; i<dt->u.array.ndims; i++) {
+        fprintf (stream, "%s%u", i?", ":"", dt->u.array.dim[i]);
+    }
+    fprintf (stream, "}\n");
+    fprintf(stream, "%*s%-*s {", indent, "", fwidth, "Dim Permutation:");
+	for (i=0; i<dt->u.array.ndims; i++) {
+        fprintf (stream, "%s%d", i?", ":"", dt->u.array.perm[i]);
+    }
+    fprintf (stream, "}\n");
+	fprintf(stream, "%*s%s\n", indent, "", "Base type:");
+	H5O_dtype_debug(f, dt->parent, stream, indent+3, MAX(0, fwidth-3));
     } else {
 	switch (dt->u.atomic.order) {
 	case H5T_ORDER_LE: