[svn-r3412] Purpose:

    Code cleanup
Description:
    Cleaned the code up a bit getting rid of some warnings about "const"
    being lost from passing a const char * to a function, etc.

    Also force the error messages to stderr instead of simply printing
    them to stdout. The same behaviour can be achieved by running h5dump
    like:

            h5dump ... 2>&1

    however, the error reporting before this change wasn't consistent in
    its use. I also made some of the error messages clearer (giving names
    of the failed types and, when there's an "internal error", reporting
    the line number the error occurred on so that we can debug).
Solution:
    Converted to "fflush(stdout); fprintf(stderr,...);" for all error
    reportings.
Platforms tested:
    Linux

1 files changed, 324 insertions, 274 deletions

diff --git a/tools/h5dump.c b/tools/h5dump.c
index c9d4b6b..792a313 100644
--- a/tools/h5dump.c
+++ b/tools/h5dump.c
@@ -1,6 +1,6 @@
 /*-------------------------------------------------------------------------
  *
- * Copyright (C) 1998, 1999, 2000, 2001
+ * Copyright (C) 1998 - 2001
  *     National Center for Supercomputing Applications
  *     All rights reserved.
  *
@@ -13,46 +13,42 @@
 #include "H5private.h"
 #include "h5tools.h"
 
-static herr_t           dump_all(hid_t group, const char *name,
-				     void *op_data);
-static int              display_oid = 0;
-static int              display_data = 1;
-static int              d_status = 0;
-static int              unamedtype = 0;	/* shared data type with no name */
-
-static int              prefix_len = 1024;
-static table_t         *group_table = NULL, *dset_table = NULL, *type_table =
-    NULL;
-static char            *prefix;
+/* module-scoped variables */
+static int       display_oid = 0;
+static int       display_data = 1;
+static int       d_status = EXIT_SUCCESS;
+static int       unamedtype = 0;	/* shared data type with no name */
+static int       prefix_len = 1024;
+static table_t  *group_table = NULL, *dset_table = NULL, *type_table = NULL;
+static char     *prefix;
+
 static const dump_header *dump_header_format;
 
 /**
  **  Added for XML  **
  **/
 
-/* global variables for XML option */
+/* fill_ref_path_table is called to inialize the object reference paths. */
+static herr_t    fill_ref_path_table(hid_t, const char *, void UNUSED *);
+
+/* module-scoped variables for XML option */
+#define DEFAULT_DTD     "http://hdf.ncsa.uiuc.edu/DTDs/HDF5-File.dtd"
 
 static int              doxml = 0;
-#define DEFAULT_DTD "http://hdf.ncsa.uiuc.edu/DTDs/HDF5-File.dtd"
-static char            *xml_dtd_uri = NULL;
-/* fill_ref_path_table is called to inialize the object
-reference paths. */
-hid_t                   thefile = -1;
-static herr_t           fill_ref_path_table(hid_t, const char *,
-					    void UNUSED *);
-struct ref_path_table_entry_t * ref_path_table_lookup(char *);
-char * lookup_ref_path(hobj_ref_t *);
-void check_compression(hid_t );
+static const char      *xml_dtd_uri = NULL;
+static hid_t            thefile = -1;
 /** end XML **/
 
-/* internal functions used by standard format */
-
-static void             dump_oid(hid_t oid);
-static void             print_enum(hid_t type);
+/* internal functions */
+static void      dump_oid(hid_t oid);
+static void      print_enum(hid_t type);
+static herr_t    dump_all(hid_t group, const char *name, void *op_data);
+static char     *lookup_ref_path(hobj_ref_t *);
+static void      check_compression(hid_t);
+static struct ref_path_table_entry_t *ref_path_table_lookup(const char *);
 
 /* external functions */
-extern void             indentation(int);
-extern int              print_data(hid_t, hid_t, int);
+extern int       print_data(hid_t, hid_t, int);
 
 static h5dump_t         dataformat = {
     0,				/*raw */
@@ -331,9 +327,9 @@ static void             xml_print_datatype(hid_t);
 static void             xml_print_enum(hid_t);
 static int              xml_print_refs(hid_t, int);
 static int              xml_print_strs(hid_t, int);
-hobj_ref_t             *ref_path_table_put(hid_t, char *);
-char                   *xml_escape_the_string(char *, int);
-char                   *xml_escape_the_name(char *);
+static hobj_ref_t      *ref_path_table_put(hid_t, const char *);
+static char            *xml_escape_the_string(const char *, int);
+static char            *xml_escape_the_name(const char *);
 
 /**
  **  Change for XML  **
@@ -376,8 +372,7 @@ static herr_t           xml_dump_attr(hid_t attr, const char *attr_name,
  **  This is the global dispatch table for the dump functions.
  **/
 /* the table of dump functions */
-typedef struct
-{
+typedef struct dump_functions_t {
     void                    (*dump_group_function) (hid_t, const char *);
     void                    (*dump_named_datatype_function) (hid_t,
 							     const char *);
@@ -387,8 +382,7 @@ typedef struct
     herr_t                  (*dump_attribute_function) (hid_t, const char *,
 							void *);
     void                    (*dump_data_function) (hid_t, int);
-}
-dump_functions;
+} dump_functions;
 
 /* Standard DDL output */
 static const dump_functions ddl_function_table = {
@@ -412,16 +406,16 @@ static const dump_functions xml_function_table = {
     xml_dump_data
 };
 
-/* The global table is set to either ddl_function_table or 
-   xml_function_table in the initialization.
+/*
+ * The global table is set to either ddl_function_table or 
+ * xml_function_table in the initialization.
  */
 static const dump_functions *dump_function_table;
 
-
 /* a structure for handling the order command-line parameters come in */
 struct handler_t {
-    void (*func)(hid_t, const char *);
-    const char *obj;
+    void (*func)(hid_t, char *);
+    char *obj;
 };
 
 /*
@@ -433,6 +427,7 @@ static const char *s_opts = "hBHvVa:d:g:l:t:w:xD:o:";
 static struct long_options l_opts[] = {
 	{ "help", no_arg, 'h' },
 	{ "hel", no_arg, 'h' },
+	{ "hel", no_arg, 'h' },
 	{ "boot-block", no_arg, 'B' },
 	{ "boot-bloc", no_arg, 'B' },
 	{ "boot-blo", no_arg, 'B' },
@@ -445,7 +440,6 @@ static struct long_options l_opts[] = {
 	{ "heade", no_arg, 'H' },
 	{ "head", no_arg, 'H' },
 	{ "hea", no_arg, 'H' },
-	{ "he", no_arg, 'H' },
 	{ "object-ids", no_arg, 'i' },
 	{ "object-id", no_arg, 'i' },
 	{ "object-i", no_arg, 'i' },
@@ -471,10 +465,19 @@ static struct long_options l_opts[] = {
 	{ "dataset", require_arg, 'd' },
 	{ "datase", require_arg, 'd' },
 	{ "datas", require_arg, 'd' },
+	{ "datatype", require_arg, 't' },
+	{ "datatyp", require_arg, 't' },
+	{ "dataty", require_arg, 't' },
+	{ "datat", require_arg, 't' },
 	{ "group", require_arg, 'g' },
 	{ "grou", require_arg, 'g' },
 	{ "gro", require_arg, 'g' },
 	{ "gr", require_arg, 'g' },
+	{ "output", require_arg, 'o' },
+	{ "outpu", require_arg, 'o' },
+	{ "outp", require_arg, 'o' },
+	{ "out", require_arg, 'o' },
+	{ "ou", require_arg, 'o' },
 	{ "soft-link", require_arg, 'l' },
 	{ "soft-lin", require_arg, 'l' },
 	{ "soft-li", require_arg, 'l' },
@@ -482,10 +485,6 @@ static struct long_options l_opts[] = {
 	{ "soft", require_arg, 'l' },
 	{ "sof", require_arg, 'l' },
 	{ "so", require_arg, 'l' },
-	{ "datatype", require_arg, 't' },
-	{ "datatyp", require_arg, 't' },
-	{ "dataty", require_arg, 't' },
-	{ "datat", require_arg, 't' },
 	{ "width", require_arg, 'w' },
 	{ "widt", require_arg, 'w' },
 	{ "wid", require_arg, 'w' },
@@ -495,11 +494,6 @@ static struct long_options l_opts[] = {
 	{ "xml-dtd", require_arg, 'D' },
 	{ "xml-dt", require_arg, 'D' },
 	{ "xml-d", require_arg, 'D' },
-	{ "output", require_arg, 'o' },
-	{ "outpu", require_arg, 'o' },
-	{ "outp", require_arg, 'o' },
-	{ "out", require_arg, 'o' },
-	{ "ou", require_arg, 'o' },
 	{ NULL, 0, '\0' }
 };
 
@@ -519,6 +513,7 @@ static struct long_options l_opts[] = {
 static void
 usage(const char *progname)
 {
+    fflush(stdout);
     fprintf(stderr, "\
 usage: %s [OPTIONS] file\n\
    OPTIONS\n\
@@ -534,14 +529,15 @@ usage: %s [OPTIONS] file\n\
       -o F, --output=F    Output raw data into file F\n\
       -t T, --datatype=T  Print the specified named data type\n\
       -w #, --width=#     Set the number of columns of output\n\
-      -x, --xml         Output XML\n\
-      -D URI, --xml-dtd=URL Use the DTD at URI\n\
+      -x, --xml           Output XML\n\
+      -D U, --xml-dtd=U  Use the DTD at URI\n\
   P - is the full path from the root group to the object.\n\
   T - is the name of the data type.\n\
   F - is a filename.\n\
   # - is an integer greater than 1.\n\
-  URI - is a URI a URI reference (as defined in [IETF RFC 2396],\n\
+  U - is a URI a URI reference (as defined in [IETF RFC 2396],\n\
         updated by [IETF RFC 2732])\n\
+\n\
   Example:\n\
 \n\
      Attribute foo of the group /bar_none in file quux.h5\n\
@@ -631,7 +627,7 @@ print_datatype(hid_t type)
 	    printf("H5T_NATIVE_ULLONG");
 	} else {
 	    printf("undefined integer");
-	    d_status = 1;
+	    d_status = EXIT_FAILURE;
 	}
 	break;
 
@@ -652,7 +648,7 @@ print_datatype(hid_t type)
 	    printf("H5T_NATIVE_LDOUBLE");
 	} else {
 	    printf("undefined float");
-	    d_status = 1;
+	    d_status = EXIT_FAILURE;
 	}
 	break;
 
@@ -712,7 +708,7 @@ print_datatype(hid_t type)
 		printf("H5T_FORTRAN_S1;\n");
 	    } else {
 		printf("unknown_one_character_type;\n ");
-		d_status = 1;
+		d_status = EXIT_FAILURE;
 	    }
 
 	    H5Tclose(str_type);
@@ -742,7 +738,7 @@ print_datatype(hid_t type)
 	    printf("H5T_STD_B64LE");
 	} else {
 	    printf("undefined bitfield");
-	    d_status = 1;
+	    d_status = EXIT_FAILURE;
 	}
 	break;
 
@@ -767,36 +763,36 @@ print_datatype(hid_t type)
 		else
 		    printf("\"%s\"", type_table->objs[i].objname);
 	    } else {
-		printf("h5dump error: unknown committed type.\n");
-		d_status = 1;
+                fflush(stdout);
+		fprintf(stderr, "h5dump error: unknown committed type.\n");
+		d_status = EXIT_FAILURE;
 	    }
 	} else {
 	    nmembers = H5Tget_nmembers(type);
-
 	    printf("H5T_COMPOUND %s\n", dump_header_format->structblockbegin);
+
 	    for (i = 0; i < nmembers; i++) {
 		fname = H5Tget_member_name(type, i);
 		mtype = H5Tget_member_type(type, i);
 
 		indentation(indent + COL);
 
-		if (H5Tget_class(mtype) == H5T_COMPOUND) {
+		if (H5Tget_class(mtype) == H5T_COMPOUND)
 		    indent += COL;
-		}
 
 		print_datatype(mtype);
 
-		if (H5Tget_class(mtype) == H5T_COMPOUND) {
+		if (H5Tget_class(mtype) == H5T_COMPOUND)
 		    indent -= COL;
-		}
 
 		printf(" \"%s\";\n", fname);
-
 		free(fname);
 	    }
+
 	    indentation(indent);
 	    printf("%s", dump_header_format->structblockend);
 	}
+
 	break;
 
     case H5T_REFERENCE:
@@ -857,7 +853,7 @@ print_datatype(hid_t type)
 
     default:
 	printf("unknown data type");
-	d_status = 1;
+	d_status = EXIT_FAILURE;
 	break;
     }
 }
@@ -905,11 +901,11 @@ dump_datatype(hid_t type)
 
     print_datatype(type);
 
-    if (H5Tget_class(type) == H5T_COMPOUND
-	|| H5Tget_class(type) == H5T_STRING) indentation(indent);
+    if (H5Tget_class(type) == H5T_COMPOUND || H5Tget_class(type) == H5T_STRING)
+        indentation(indent);
+
     printf(" %s %s\n", dump_header_format->datatypeblockend,
 	   dump_header_format->datatypeend);
-
     indent -= COL;
 }
 
@@ -1022,11 +1018,12 @@ dump_attr(hid_t attr, const char *attr_name, void UNUSED * op_data)
 		dump_header_format->attributeblockend);
     } else {
 	indentation(indent + COL);
-	printf("h5dump error: unable to open attribute.\n");
+        fflush(stdout);
+	fprintf(stderr, "h5dump error: unable to open attribute \"%s\"\n", attr_name);
 	indentation(indent);
 	end_obj(dump_header_format->attributeend,
 		dump_header_format->attributeblockend);
-	d_status = 1;
+	d_status = EXIT_FAILURE;
 	ret = FAIL;
     }
 
@@ -1067,7 +1064,7 @@ dump_selected_attr(hid_t loc_id, const char *name)
     if (j == -1) {
 	strcpy(obj_name, "/");
     } else {
-        strncpy(obj_name, name, (size_t)j+1);
+        strncpy(obj_name, name, (size_t)j + 1);
         obj_name[j+1] = '\0';
     }
 
@@ -1080,10 +1077,11 @@ dump_selected_attr(hid_t loc_id, const char *name)
     case H5G_GROUP:
 	if ((oid = H5Gopen(loc_id, obj_name)) < 0) {
 	    indentation(COL);
-	    fprintf(stdout, "h5dump error: unable to open %s\n", obj_name);
+            fflush(stdout);
+	    fprintf(stderr, "h5dump error: unable to open group \"%s\"\n", obj_name);
 	    end_obj(dump_header_format->attributeend,
 		    dump_header_format->attributeblockend);
-	    d_status = 1;
+	    d_status = EXIT_FAILURE;
 	    return FAIL;
 	}
 	break;
@@ -1091,10 +1089,11 @@ dump_selected_attr(hid_t loc_id, const char *name)
     case H5G_DATASET:
 	if ((oid = H5Dopen(loc_id, obj_name)) < 0) {
 	    indentation(COL);
-	    fprintf(stdout, "h5dump error: unable to open %s\n", obj_name);
+            fflush(stdout);
+	    fprintf(stderr, "h5dump error: unable to open dataset \"%s\"\n", obj_name);
 	    end_obj(dump_header_format->attributeend,
 		    dump_header_format->attributeblockend);
-	    d_status = 1;
+	    d_status = EXIT_FAILURE;
 	    return FAIL;
 	}
 	break;
@@ -1102,20 +1101,22 @@ dump_selected_attr(hid_t loc_id, const char *name)
     case H5G_TYPE:
 	if ((oid = H5Topen(loc_id, obj_name)) < 0) {
 	    indentation(COL);
-	    fprintf(stdout, "h5dump error: unable to open %s\n", obj_name);
+            fflush(stdout);
+	    fprintf(stderr, "h5dump error: unable to open datatype \"%s\"\n", obj_name);
 	    end_obj(dump_header_format->attributeend,
 		    dump_header_format->attributeblockend);
-	    d_status = 1;
+	    d_status = EXIT_FAILURE;
 	    return FAIL;
 	}
 	break;
 
     default:
 	indentation(COL);
-	fprintf(stdout, "h5dump error: unable to open %s\n", obj_name);
+        fflush(stdout);
+	fprintf(stderr, "h5dump error: unable to open unknown \"%s\"\n", obj_name);
 	end_obj(dump_header_format->attributeend,
 		dump_header_format->attributeblockend);
-	d_status = 1;
+	d_status = EXIT_FAILURE;
 	return FAIL;
     }
 
@@ -1138,35 +1139,36 @@ dump_selected_attr(hid_t loc_id, const char *name)
 		dump_header_format->attributeblockend);
     } else {
 	indentation(COL);
-	printf("h5dump error: unable to open attribute.\n");
+        fflush(stdout);
+	fprintf(stderr, "h5dump error: unable to open attribute \"%s\"\n", obj_name);
 	end_obj(dump_header_format->attributeend,
 		dump_header_format->attributeblockend);
-	d_status = 1;
+	d_status = EXIT_FAILURE;
     }
 
     switch (statbuf.type) {
     case H5G_GROUP:
 	if (H5Gclose(oid) < 0) {
-	    d_status = 1;
+	    d_status = EXIT_FAILURE;
 	    return FAIL;
 	}
 	break;
 
     case H5G_DATASET:
 	if (H5Dclose(oid) < 0) {
-	    d_status = 1;
+	    d_status = EXIT_FAILURE;
 	    return FAIL;
 	}
 	break;
 
     case H5G_TYPE:
 	if (H5Tclose(oid) < 0) {
-	    d_status = 1;
+	    d_status = EXIT_FAILURE;
 	    return FAIL;
 	}
 	break;
     default:
-	d_status = 1;
+	d_status = EXIT_FAILURE;
 	return FAIL;
     }
 
@@ -1175,7 +1177,7 @@ dump_selected_attr(hid_t loc_id, const char *name)
 }
 
 /*-------------------------------------------------------------------------
- * Function:    dump all
+ * Function:    dump_all
  *
  * Purpose:     Dump everything in the specified object
  *
@@ -1225,14 +1227,14 @@ dump_all(hid_t group, const char *name, void * op_data)
 		/* XML */
 		printf
 		    ("<SoftLink LinkName=\"%s\" Target=\"%s\" TargetObj=\"%s\" OBJ-XID=\"%s\" Source=\"%s\"/>\n",
-		     xml_escape_the_name((char *)name), xml_escape_the_name((char *)buf),
-		     xml_escape_the_name((char *)buf), xml_escape_the_name((char *)name),
-		     (strcmp(prefix,
-			     "") ? xml_escape_the_name((char *)prefix) : "root"));
+		     xml_escape_the_name(name), xml_escape_the_name(buf),
+		     xml_escape_the_name(buf), xml_escape_the_name(name),
+		     (strcmp(prefix, "") ? xml_escape_the_name(prefix) : "root"));
 	    }
 	} else {
-	    printf("h5dump error: unable to get link value.\n");
-	    d_status = 1;
+            fflush(stdout);
+	    fprintf(stderr, "h5dump error: unable to get link value\n");
+	    d_status = EXIT_FAILURE;
 	}
 
 	if (!doxml) {
@@ -1251,8 +1253,9 @@ dump_all(hid_t group, const char *name, void * op_data)
 	    strcpy(prefix, tmp);
 	    H5Gclose(obj);
 	} else {
-	    printf("h5dump error: unable to dump group %s\n", name);
-	    d_status = 1;
+            fflush(stdout);
+	    fprintf(stderr, "h5dump error: unable to dump group \"%s\"\n", name);
+	    d_status = EXIT_FAILURE;
 	}
 
 	break;
@@ -1270,11 +1273,12 @@ dump_all(hid_t group, const char *name, void * op_data)
 		    begin_obj(dump_header_format->datasetbegin, name,
 			      dump_header_format->datasetblockbegin);
 		    indentation(indent + COL);
-		    printf("h5dump error: internal error\n");
+                    fflush(stdout);
+                    fprintf(stderr, "h5dump error: internal error (line %d)\n", __LINE__);
 		    indentation(indent);
 		    end_obj(dump_header_format->datasetend,
 			    dump_header_format->datasetblockend);
-		    d_status = 1;
+		    d_status = EXIT_FAILURE;
 		    H5Dclose(obj);
 		    goto done;
 		} else if (dset_table->objs[i].displayed) {
@@ -1292,15 +1296,14 @@ dump_all(hid_t group, const char *name, void * op_data)
 			/* the XML version */
 			printf
 			    ("<Dataset Name=\"%s\" OBJ-XID=\"%s\" Parents=\"%s\">\n",
-			     xml_escape_the_name((char *)name),
-			     xml_escape_the_name((char *)tmp),
-			     (strcmp(prefix, "") ? xml_escape_the_name((char *)prefix)
+			     xml_escape_the_name(name),
+			     xml_escape_the_name(tmp),
+			     (strcmp(prefix, "") ? xml_escape_the_name(prefix)
 			      : "root"));
 
 			indentation(indent + COL);
 			printf("<DatasetPtr OBJ-XID=\"%s\"/>\n",
-			       xml_escape_the_name(dset_table->
-						   objs[i].objname));
+			       xml_escape_the_name(dset_table->objs[i].objname));
 			indentation(indent);
 			printf("%s\n", dump_header_format->datasetend);
 		    }
@@ -1317,8 +1320,9 @@ dump_all(hid_t group, const char *name, void * op_data)
 	    dump_function_table->dump_dataset_function(obj, name);
 	    H5Dclose(obj);
 	} else {
-	    printf("h5dump error: unable to dump dataset %s\n", name);
-	    d_status = 1;
+            fflush(stdout);
+	    fprintf(stderr, "h5dump error: unable to dump dataset \"%s\"\n", name);
+	    d_status = EXIT_FAILURE;
 	}
 	break;
 
@@ -1327,15 +1331,17 @@ dump_all(hid_t group, const char *name, void * op_data)
 	    dump_function_table->dump_named_datatype_function(obj, name);
 	    H5Tclose(obj);
 	} else {
-	    printf("h5dump error: unable to dump data type %s\n", name);
-	    d_status = 1;
+            fflush(stdout);
+	    fprintf(stderr, "h5dump error: unable to dump data type \"%s\"\n", name);
+	    d_status = EXIT_FAILURE;
 	}
 
 	break;
 
     default:
-	printf("h5dump error: unknown object %s\n", name);
-	d_status = 1;
+        fflush(stdout);
+	fprintf(stderr, "h5dump error: unknown object \"%s\"\n", name);
+	d_status = EXIT_FAILURE;
 	return FAIL;
     }
 
@@ -1434,8 +1440,9 @@ dump_group(hid_t gid, const char *name)
 
 	if (i < 0) {
 	    indentation(indent);
-	    printf("h5dump error: internal error\n");
-	    d_status = 1;
+            fflush(stdout);
+            fprintf(stderr, "h5dump error: internal error (line %d)\n", __LINE__);
+	    d_status = EXIT_FAILURE;
 	} else if (group_table->objs[i].displayed) {
 	    indentation(indent);
 	    printf("%s \"%s\"\n", HARDLINK, group_table->objs[i].objname);
@@ -1579,7 +1586,7 @@ static void
 dump_data(hid_t obj_id, int obj_data)
 {
     h5dump_t               *outputformat = &dataformat;
-    int                     d_status = -1;
+    int                     status = -1;
     void                   *buf;
     hid_t                   space, type, p_type;
     int                     ndims, i;
@@ -1603,7 +1610,7 @@ dump_data(hid_t obj_id, int obj_data)
 
     /* Print all the values. */
     if (obj_data == DATASET_DATA) {
-	d_status = h5dump_dset(stdout, outputformat, obj_id, -1, depth);
+	status = h5dump_dset(stdout, outputformat, obj_id, -1, depth);
     } else {
         /* need to call h5dump_mem for the attribute data */    
         type = H5Aget_type(obj_id);
@@ -1614,23 +1621,25 @@ dump_data(hid_t obj_id, int obj_data)
         for (i = 0; i < ndims; i++)
             nelmts *= size[i];
 
-        alloc_size= nelmts * MAX(H5Tget_size(type), H5Tget_size(p_type));
-        assert(alloc_size==(hsize_t)((size_t)alloc_size)); /*check for overflow*/
+        alloc_size = nelmts * MAX(H5Tget_size(type), H5Tget_size(p_type));
+        assert(alloc_size == (hsize_t)((size_t)alloc_size)); /*check for overflow*/
         buf = malloc((size_t)alloc_size);
         assert(buf);
 
         if (H5Aread(obj_id, p_type, buf) >= 0)
-            d_status = h5dump_mem(stdout, outputformat, obj_id, p_type, space, buf, depth);
+            status = h5dump_mem(stdout, outputformat, obj_id, p_type, space, buf, depth);
 
         free(buf);
         H5Tclose(p_type); 
         H5Sclose(space);
         H5Tclose(type);
     }
-    if (d_status < 0) {
-	indentation(indent + COL);
-	printf("Unable to print data.\n");
-	d_status = 1;
+
+    if (status < 0) {
+        indentation(indent + COL);
+        fflush(stdout);
+        fprintf(stderr, "h5dump error: unable to print data\n");
+        d_status = EXIT_FAILURE;
     }
 
     indentation(indent);
@@ -1639,6 +1648,26 @@ dump_data(hid_t obj_id, int obj_data)
 }
 
 /*-------------------------------------------------------------------------
+ * Function:    dump_oid
+ *
+ * Purpose:     Prints the object ids
+ *
+ * Return:      void
+ *
+ * Programmer:  Patrick Lu
+ *
+ * Modifications:
+ *
+ *-------------------------------------------------------------------------
+ */
+static void
+dump_oid(hid_t oid)
+{
+    indentation(indent + COL);
+    printf("%s %s %d %s\n", OBJID, BEGIN, oid, END);
+}
+
+/*-------------------------------------------------------------------------
  * Function:    set_output_file
  *
  * Purpose:     Open fname as the output file for dataset raw data.
@@ -1656,8 +1685,8 @@ dump_data(hid_t obj_id, int obj_data)
 static int
 set_output_file(const char *fname)
 {
-    FILE                   *f;	/* temporary holding place for the stream pointer */
-    /* so that rawdatastream is changed only when succeeded */
+    FILE    *f;	/* temporary holding place for the stream pointer
+                   so that rawdatastream is changed only when succeeded */
 
     if ((f = fopen(fname, "w")) != NULL) {
 	rawdatastream = f;
@@ -1682,7 +1711,7 @@ set_output_file(const char *fname)
  *-------------------------------------------------------------------------
  */
 static void
-handle_attributes(hid_t fid, const char *attr)
+handle_attributes(hid_t fid, char *attr)
 {
     dump_selected_attr(fid, attr);
 }
@@ -1702,7 +1731,7 @@ handle_attributes(hid_t fid, const char *attr)
  *-------------------------------------------------------------------------
  */
 static void
-handle_datasets(hid_t fid, const char *dset)
+handle_datasets(hid_t fid, char *dset)
 {
     H5G_stat_t statbuf;
     hid_t dsetid;
@@ -1711,10 +1740,11 @@ handle_datasets(hid_t fid, const char *dset)
         begin_obj(dump_header_format->datasetbegin, dset,
                   dump_header_format->datasetblockbegin); 
         indentation(COL);
-        fprintf(stdout, "h5dump error: unable to open %s\n", dset);
+        fflush(stdout);
+        fprintf(stderr, "h5dump error: unable to open dataset \"%s\"\n", dset);
         end_obj(dump_header_format->datasetend,
                 dump_header_format->datasetblockend);
-        d_status = 1;
+        d_status = EXIT_FAILURE;
     } else {
         H5Gget_objinfo(dsetid, ".", TRUE, &statbuf);
 
@@ -1737,14 +1767,14 @@ handle_datasets(hid_t fid, const char *dset)
                     dump_dataset(dsetid, dset);
                 }
             } else {
-                d_status = 1;
+                d_status = EXIT_FAILURE;
             }
         } else {
             dump_dataset(dsetid, dset);
         }
 
         if (H5Dclose(dsetid) < 1)
-            d_status = 1;
+            d_status = EXIT_FAILURE;
     }
 }
 
@@ -1763,7 +1793,7 @@ handle_datasets(hid_t fid, const char *dset)
  *-------------------------------------------------------------------------
  */
 static void
-handle_groups(hid_t fid, const char *group)
+handle_groups(hid_t fid, char *group)
 {
     H5G_stat_t statbuf;
     hid_t gid;
@@ -1772,17 +1802,18 @@ handle_groups(hid_t fid, const char *group)
         begin_obj(dump_header_format->groupbegin, group,
                   dump_header_format->groupblockbegin); 
         indentation(COL);
-        fprintf(stdout, "h5dump error: unable to open %s\n", group);
+        fflush(stdout);
+        fprintf(stderr, "h5dump error: unable to open group \"%s\"\n", group);
         end_obj(dump_header_format->groupend,
                 dump_header_format->groupblockend);
-        d_status = 1;
+        d_status = EXIT_FAILURE;
     } else {
         H5Gget_objinfo(gid, ".", TRUE, &statbuf);
         strcpy(prefix, group);
         dump_group(gid, group);
 
         if (H5Gclose(gid) < 0)
-            d_status = 1;
+            d_status = EXIT_FAILURE;
     }
 }
 
@@ -1801,43 +1832,47 @@ handle_groups(hid_t fid, const char *group)
  *-------------------------------------------------------------------------
  */
 static void
-handle_links(hid_t fid, const char *link)
+handle_links(hid_t fid, char *links)
 {
     H5G_stat_t statbuf;
 
-    if (H5Gget_objinfo(fid, link, FALSE, &statbuf) < 0) {
-        begin_obj(dump_header_format->softlinkbegin, link,
+    if (H5Gget_objinfo(fid, links, FALSE, &statbuf) < 0) {
+        begin_obj(dump_header_format->softlinkbegin, links,
                   dump_header_format->softlinkblockbegin);
         indentation(COL);
-        fprintf(stdout, "h5dump error: unable to get obj info from %s\n", link);
+        fflush(stdout);
+        fprintf(stderr, "h5dump error: unable to get obj info from \"%s\"\n", links);
         end_obj(dump_header_format->softlinkend,
                 dump_header_format->softlinkblockend);
-        d_status = 1;
+        d_status = EXIT_FAILURE;
     } else if (statbuf.type == H5G_LINK) {
-        char *buf = malloc(statbuf.linklen*sizeof(char));
+        char *buf = malloc(statbuf.linklen);
 
-        begin_obj(dump_header_format->softlinkbegin, link,
+        begin_obj(dump_header_format->softlinkbegin, links,
                   dump_header_format->softlinkblockbegin);
         indentation(COL);
 
-        if (H5Gget_linkval(fid, link, statbuf.linklen, buf) >= 0) {
+        if (H5Gget_linkval(fid, links, statbuf.linklen, buf) >= 0) {
             printf("LINKTARGET \"%s\"\n", buf);
         } else {
-            fprintf(stdout, "h5dump error: unable to get link value\n");
-            d_status = 1;
+            fflush(stdout);
+            fprintf(stderr, "h5dump error: unable to get link value for \"%s\"\n",
+                    links);
+            d_status = EXIT_FAILURE;
         }
 
         end_obj(dump_header_format->softlinkend,
                 dump_header_format->softlinkblockend);
         free(buf);
     } else {
-        begin_obj(dump_header_format->softlinkbegin, link,
+        begin_obj(dump_header_format->softlinkbegin, links,
                   dump_header_format->softlinkblockbegin);
         indentation(COL);
-        fprintf(stdout, "h5dump error: %s is not a link\n", link);
+        fflush(stdout);
+        fprintf(stderr, "h5dump error: \"%s\" is not a link\n", links);
         end_obj(dump_header_format->softlinkend,
                 dump_header_format->softlinkblockend);
-        d_status = 1;
+        d_status = EXIT_FAILURE;
     }
 }
 
@@ -1856,7 +1891,7 @@ handle_links(hid_t fid, const char *link)
  *-------------------------------------------------------------------------
  */
 static void
-handle_datatypes(hid_t fid, const char *type)
+handle_datatypes(hid_t fid, char *type)
 {
     hid_t typeid;
 
@@ -1889,10 +1924,11 @@ handle_datatypes(hid_t fid, const char *type)
             begin_obj(dump_header_format->datatypebegin, type,
                       dump_header_format->datatypeblockbegin); 
             indentation(COL);
-            fprintf(stdout, "h5dump error: unable to open %s\n", type);
+            fflush(stdout);
+            fprintf(stderr, "h5dump error: unable to open datatype \"%s\"\n", type);
             end_obj(dump_header_format->datatypeend,
                     dump_header_format->datatypeblockend);
-            d_status = 1;
+            d_status = EXIT_FAILURE;
         } else {
             hid_t dsetid = H5Dopen(fid, type_table->objs[index].objname);
             typeid = H5Dget_type(dsetid);
@@ -1904,7 +1940,7 @@ handle_datatypes(hid_t fid, const char *type)
         dump_named_datatype(typeid, type);
 
         if (H5Tclose(typeid) < 0)
-            d_status = 1;
+            d_status = EXIT_FAILURE;
     }
 }
 
@@ -1919,16 +1955,16 @@ handle_datatypes(hid_t fid, const char *type)
  * Programmer:  Ruey-Hsia Li
  *
  * Modifications:
- *        Albert Cheng, 2000/09/30
+ *        Albert Cheng, 30. September 2000
  *        Add the -o option--output file for datasets raw data
- *        Changes to support XML Nov. 2000, REMcG
+ *
+ *        Nov. 2000, REMcG, November 2000
+ *        Changes to support XML.
  *
  *        Bill Wendling
  *        Wednesday, 10. January 2001
  *        Modified the way command line parameters are interpreted. They go
- *        through one function call now (get_option). Also, removed the
- *        `strcpy(prefix, "")' code which is bad since prefix isn't
- *        initialized at this point...
+ *        through one function call now (get_option).
  *
  *-------------------------------------------------------------------------
  */
@@ -1944,7 +1980,7 @@ main(int argc, const char *argv[])
     find_objs_t         info;
     int                 opt;
     struct handler_t   *hand;
-    int                 usingdasho = 0;;
+    int                 usingdasho = FALSE;
 
     if (argc < 2) {
         usage(progname);
@@ -1961,7 +1997,7 @@ main(int argc, const char *argv[])
     /* Initialize h5tools lib */
     h5tools_init();
 
-    /* this will be plenty big enough for holding the info */
+    /* this will be plenty big enough to hold the info */
     hand = calloc((size_t)argc, sizeof(struct handler_t));
 
     /* parse command line options */
@@ -1989,7 +2025,7 @@ main(int argc, const char *argv[])
             for (i = 0; i < argc; i++)
                 if (!hand[i].func) {
                     hand[i].func = handle_attributes;
-                    hand[i].obj = opt_arg;
+                    hand[i].obj = strdup(opt_arg);
                     break;
                 }
 
@@ -2000,7 +2036,7 @@ main(int argc, const char *argv[])
             for (i = 0; i < argc; i++)
                 if (!hand[i].func) {
                     hand[i].func = handle_datasets;
-                    hand[i].obj = opt_arg;
+                    hand[i].obj = strdup(opt_arg);
                     break;
                 }
 
@@ -2011,7 +2047,7 @@ main(int argc, const char *argv[])
             for (i = 0; i < argc; i++)
                 if (!hand[i].func) {
                     hand[i].func = handle_groups;
-                    hand[i].obj = opt_arg;
+                    hand[i].obj = strdup(opt_arg);
                     break;
                 }
 
@@ -2022,7 +2058,7 @@ main(int argc, const char *argv[])
             for (i = 0; i < argc; i++)
                 if (!hand[i].func) {
                     hand[i].func = handle_links;
-                    hand[i].obj = opt_arg;
+                    hand[i].obj = strdup(opt_arg);
                     break;
                 }
 
@@ -2033,7 +2069,7 @@ main(int argc, const char *argv[])
             for (i = 0; i < argc; i++)
                 if (!hand[i].func) {
                     hand[i].func = handle_datatypes;
-                    hand[i].obj = opt_arg;
+                    hand[i].obj = strdup(opt_arg);
                     break;
                 }
 
@@ -2044,8 +2080,10 @@ main(int argc, const char *argv[])
                 usage(progname);
                 exit(EXIT_FAILURE);
             }
-            usingdasho = 1;
+            usingdasho = TRUE;
             break;
+
+        /** XML parameters **/
         case 'x':
             /* select XML output */
             doxml = TRUE;
@@ -2054,8 +2092,10 @@ main(int argc, const char *argv[])
             break;
         case 'D':
             /* specify alternative XML DTD */
-            xml_dtd_uri = strdup(opt_arg);
+            xml_dtd_uri = opt_arg;
             break;
+        /** end XML parameters **/
+
         case 'h':
             usage(progname);
             exit(EXIT_SUCCESS);
@@ -2069,42 +2109,50 @@ main(int argc, const char *argv[])
     /*  check for conflicting options */
     if (doxml) {
 	if (!display_all) {
-	    fprintf(stderr, "h5dump error: option %s not available for XML\n",
+            fflush(stdout);
+	    fprintf(stderr, "h5dump error: option \"%s\" not available for XML\n",
 		    "to display selected objects");
-	    exit(1);
+	    exit(EXIT_FAILURE);
 	} else if (display_bb) {
-	    fprintf(stderr, "h5dump error: option %s not available for XML\n",
-		    "-bb");
-	    exit(1);
+            fflush(stdout);
+	    fprintf(stderr, "h5dump error: option \"%s\" not available for XML\n",
+		    "--boot-block");
+	    exit(EXIT_FAILURE);
 	} else if (!display_data) {
-	    fprintf(stderr, "h5dump error: option %s not available for XML\n",
-		    "-header");
-	    exit(1);
+            fflush(stdout);
+	    fprintf(stderr, "h5dump error: option \"%s\" not available for XML\n",
+		    "--header");
+	    exit(EXIT_FAILURE);
 	} else if (display_oid == 1) {
-	    fprintf(stderr, "h5dump error: option %s not available for XML\n",
-		    "-v");
-	    exit(1);
+            fflush(stdout);
+	    fprintf(stderr, "h5dump error: option \"%s\" not available for XML\n",
+		    "--object-ids");
+	    exit(EXIT_FAILURE);
 	} else if (usingdasho) {
-	    fprintf(stderr, "h5dump error: option %s not available for XML\n",
-		    "-o");
-	    exit(1);
+            fflush(stdout);
+	    fprintf(stderr, "h5dump error: option \"%s\" not available for XML\n",
+		    "--output");
+	    exit(EXIT_FAILURE);
 	}
     } else {
-	if (xml_dtd_uri != NULL) {
-	    fprintf(stderr,
-		    "h5dump warning: option %s only applies with XML: %s\n",
-		    "-dtd ", xml_dtd_uri);
-	}
+        if (xml_dtd_uri != NULL) {
+            fflush(stdout);
+            fprintf(stderr,
+                    "h5dump warning: option \"%s\" only applies with XML: %s\n",
+                    "--xml-dtd", xml_dtd_uri);
+        }
     }
+
     if (argv[argc - 1][0] == '\\')
-	fname = &argv[argc - 1][1];
+	fname = &argv[opt_ind][1];
     else
-	fname = argv[argc - 1];
+	fname = argv[opt_ind];
 
     fid = h5dump_fopen(fname, NULL, 0);
 
     if (fid < 0) {
-        fprintf(stderr, "h5dump error: unable to open file %s\n", fname);
+        fflush(stdout);
+        fprintf(stderr, "h5dump error: unable to open file \"%s\"\n", fname);
         exit(EXIT_FAILURE);
     }
 
@@ -2128,20 +2176,23 @@ main(int argc, const char *argv[])
 	thefile = fid;
 
 	/* find all objects that might be targets of a refernce */
-	if ((gid = H5Gopen(fid, "/")) >= 0) {
-	    ref_path_table_put(gid, (char *)"/");
-	    H5Giterate(fid, "/", NULL, fill_ref_path_table, NULL);
+	if ((gid = H5Gopen(fid, "/")) < 0) {
+            fflush(stdout);
+            fprintf(stderr, "h5dump error: unable to open root group\n");
+            d_status = EXIT_FAILURE;
+            goto done;
 	}
+
+	ref_path_table_put(gid, "/");
+	H5Giterate(fid, "/", NULL, fill_ref_path_table, NULL);
 	H5Gclose(gid);
+
 	/* reset prefix! */
-/* not needed yet
-        info.prefix = calloc((size_t)info.prefix_len, 1);
-*/
-	strcpy(prefix,"");
+	strcpy(prefix, "");
 
 	/* make sure the URI is initialized to something */
 	if (xml_dtd_uri == NULL)
-	    xml_dtd_uri = strdup(DEFAULT_DTD);
+	    xml_dtd_uri = DEFAULT_DTD;
     }
 
     /* find all shared objects */
@@ -2154,10 +2205,12 @@ main(int argc, const char *argv[])
 
 #ifdef H5DUMP_DEBUG
     dump_tables();
-#endif
+#endif  /* H5DUMP_DEBUG */
 
     if (info.status) {
-        printf("internal error! \n");
+        fflush(stdout);
+        fprintf(stderr, "h5dump error: internal error (line %d)\n", __LINE__);
+        d_status = EXIT_FAILURE;
         goto done;
     }
 
@@ -2172,7 +2225,7 @@ main(int argc, const char *argv[])
 	printf("<HDF5-File>\n");
     }
 
-    if (!doxml && display_bb)
+    if (display_bb)
 	dump_bb();
 
     if (newwidth)
@@ -2180,22 +2233,27 @@ main(int argc, const char *argv[])
 
     if (display_all) {
         if ((gid = H5Gopen (fid, "/")) < 0 ) {
-            fprintf(stdout, "h5dump error: unable to open root group\n");
-            d_status = 1;
+            fflush(stdout);
+            fprintf(stderr, "h5dump error: unable to open root group\n");
+            d_status = EXIT_FAILURE;
         } else {
 	    dump_function_table->dump_group_function(gid, "/");
         }
 
         if (H5Gclose (gid) < 0) {
-            fprintf(stdout, "h5dump error: unable to close root group\n");
-            d_status = 1;
+            fflush(stdout);
+            fprintf(stderr, "h5dump error: unable to close root group\n");
+            d_status = EXIT_FAILURE;
         }
     } else {
 	if (doxml) {
 	    /*  Note:  this option is not supported for XML  */
-	    printf("internal error! \n");
+            fflush(stdout);
+            fprintf(stderr, "h5dump error: internal error (line %d)\n", __LINE__);
+            d_status = EXIT_FAILURE;
 	    goto done;
 	}
+
         for (i = 0; i < argc; i++)
             if (hand[i].func)
                 hand[i].func(fid, hand[i].obj);
@@ -2208,10 +2266,13 @@ main(int argc, const char *argv[])
 	printf("%s\n", dump_header_format->fileend);
     }
 
-  done:
+done:
     if (H5Fclose(fid) < 0)
-	d_status = 1;
+	d_status = EXIT_FAILURE;
 
+    for (i = 0; i < argc; i++) {
+        free(hand[i].obj);
+    }
 
     free(hand);
 
@@ -2220,6 +2281,7 @@ main(int argc, const char *argv[])
     free(type_table->objs);
     free(prefix);
     free(info.prefix);
+
     /* To Do:  clean up XML table */
 
     h5tools_close();
@@ -2244,15 +2306,14 @@ main(int argc, const char *argv[])
 static void
 print_enum(hid_t type)
 {
-    char                  **name = NULL;	/*member names                   */
-    unsigned char          *value = NULL;	/*value array                    */
-    int                     nmembs;	/*number of members              */
-    int                     nchars;	/*number of output characters    */
-    hid_t                   super;	/*enum base integer type         */
-    hid_t                   native = -1;	/*native integer data type       */
-    size_t                  dst_size;	/*destination value type size    */
-    int                     i;	/*miscellaneous counters         */
-    size_t                  j;
+    char           **name = NULL;   /*member names                   */
+    unsigned char   *value = NULL;  /*value array                    */
+    int              nmembs;        /*number of members              */
+    int              nchars;        /*number of output characters    */
+    hid_t            super;         /*enum base integer type         */
+    hid_t            native = -1;   /*native integer data type       */
+    size_t           dst_size;      /*destination value type size    */
+    int              i;
 
     nmembs = H5Tget_nmembers(type);
     super = H5Tget_super(type);
@@ -2290,16 +2351,20 @@ print_enum(hid_t type)
     if (native > 0)
         H5Tconvert(super, native, (hsize_t)nmembs, value, NULL, H5P_DEFAULT);
 
-    /* Sort members by increasing value */
-    /*not implemented yet */
+    /*
+     * Sort members by increasing value
+     *    ***not implemented yet***
+     */
 
     /* Print members */
     for (i = 0; i < nmembs; i++) {
 	indentation(indent + COL);
-	nchars = printf("\"%s\"", name[i]);	/*display_string(stdout, name[i], TRUE); */
+	nchars = printf("\"%s\"", name[i]);
 	printf("%*s   ", MAX(0, 16 - nchars), "");
 
 	if (native < 0) {
+            size_t j;
+
 	    printf("0x");
 
 	    for (j = 0; j < dst_size; j++)
@@ -2327,27 +2392,6 @@ print_enum(hid_t type)
 	printf("\n%*s <empty>", indent + 4, "");
 }
 
-/*-------------------------------------------------------------------------
- * Function:    dump_oid
- *
- * Purpose:     Prints the object ids
- *
- * Return:      void
- *
- * Programmer:  Patrick Lu
- *
- * Modifications:
- *
- *-----------------------------------------------------------------------*/
-static void
-dump_oid(hid_t oid)
-{
-    indentation(indent + COL);
-    printf("%s %s ", OBJID, BEGIN);
-    printf("%d", oid);
-    printf(" %s\n", END);
-}
-
 /*
  *   XML support
  */
@@ -2391,8 +2435,8 @@ int                     npte = 0;	/* number of entries in the table */
  * Modifications:
  *
  *-----------------------------------------------------------------------*/
-struct ref_path_table_entry_t *
-ref_path_table_lookup(char *thepath)
+static struct ref_path_table_entry_t *
+ref_path_table_lookup(const char *thepath)
 {
     int                     i;
     hobj_ref_t             *ref;
@@ -2435,8 +2479,8 @@ ref_path_table_lookup(char *thepath)
  *
  *-----------------------------------------------------------------------*/
 
-hobj_ref_t             *
-ref_path_table_put(hid_t obj, char *path)
+static hobj_ref_t             *
+ref_path_table_put(hid_t obj, const char *path)
 {
     hobj_ref_t             *ref;
     herr_t                  status;
@@ -2496,7 +2540,7 @@ ref_path_table_put(hid_t obj, char *path)
  * Modifications:
  *
  *-----------------------------------------------------------------------*/
-char                   *
+static char                   *
 lookup_ref_path(hobj_ref_t * ref)
 {
     int                     i;
@@ -2566,8 +2610,9 @@ fill_ref_path_table(hid_t group, const char *name, void UNUSED * op_data)
 	    }
 	    H5Dclose(obj);
 	} else {
-	    fprintf(stderr, "h5dump error: unable to get dataset %s\n", name);
-	    d_status = 1;
+            fflush(stdout);
+	    fprintf(stderr, "h5dump error: unable to get dataset \"%s\"\n", name);
+	    d_status = EXIT_FAILURE;
 	}
 	break;
     case H5G_GROUP:
@@ -2581,8 +2626,9 @@ fill_ref_path_table(hid_t group, const char *name, void UNUSED * op_data)
 	    }
 	    H5Gclose(obj);
 	} else {
-	    fprintf(stderr, "h5dump error: unable to dump group %s\n", name);
-	    d_status = 1;
+            fflush(stdout);
+	    fprintf(stderr, "h5dump error: unable to dump group \"%s\"\n", name);
+	    d_status = EXIT_FAILURE;
 	}
 	break;
     case H5G_TYPE:
@@ -2593,8 +2639,9 @@ fill_ref_path_table(hid_t group, const char *name, void UNUSED * op_data)
 	    }
 	    H5Tclose(obj);
 	} else {
-	    fprintf(stderr, "h5dump error: unable to get dataset %s\n", name);
-	    d_status = 1;
+            fflush(stdout);
+	    fprintf(stderr, "h5dump error: unable to get dataset \"%s\"\n", name);
+	    d_status = EXIT_FAILURE;
 	}
 	break;
     default:;
@@ -2624,21 +2671,23 @@ static const char      *apos = "&apos;";
  *
  *-----------------------------------------------------------------------*/
 
-char                   *
-xml_escape_the_name(char *str)
+static char                   *
+xml_escape_the_name(const char *str)
 {
     int                     extra;
     int                     len;
     int                     i;
-    char                   *cp;
+    const char             *cp;
     char                   *ncp;
     char                   *rcp;
 
     if (str == NULL)
-	return (char *) str;
-    cp = (char *) str;
+	return NULL;
+
+    cp = str;
     len = strlen(str);
     extra = 0;
+
     for (i = 0; i < len; i++) {
 	if (*cp == '\"') {
 	    extra += (strlen(quote) - 1);
@@ -2657,7 +2706,7 @@ xml_escape_the_name(char *str)
     if (extra == 0) {
 	return (char *) str;
     } else {
-	cp = (char *) str;
+	cp = str;
 	rcp = ncp = calloc((size_t)(len + extra + 1), sizeof(char));
 	if (ncp == NULL)
 	    return NULL;	/* ?? */
@@ -2705,19 +2754,20 @@ xml_escape_the_name(char *str)
  *
  *-----------------------------------------------------------------------*/
 
-char                   *
-xml_escape_the_string(char *str, int slen)
+static char                   *
+xml_escape_the_string(const char *str, int slen)
 {
     int                     extra;
     int                     len;
     int                     i;
-    char                   *cp;
+    const char             *cp;
     char                   *ncp;
     char                   *rcp;
 
     if (str == NULL)
-	return (char *) str;
-    cp = (char *) str;
+	return NULL;
+
+    cp = str;
     if (slen < 0) {
 	len = strlen(str);
     } else {
@@ -2741,7 +2791,7 @@ xml_escape_the_string(char *str, int slen)
 	cp++;
     }
 
-    cp = (char *) str;
+    cp = str;
     rcp = ncp = calloc((size_t)(len + extra + 1), sizeof(char));
     if (ncp == NULL)
 	return NULL;		/* ?? */
@@ -3002,7 +3052,7 @@ xml_print_datatype(hid_t type)
 		}
 	    } else {
 		printf("<!-- h5dump error: unknown committed type. -->\n");
-		d_status = 1;
+		d_status = EXIT_FAILURE;
 	    }
 
 	} else {
@@ -3144,7 +3194,7 @@ xml_print_datatype(hid_t type)
 
     default:
 	printf("<!-- unknown data type -->");
-	d_status = 1;
+	d_status = EXIT_FAILURE;
 	break;
     }
 }
@@ -3399,7 +3449,7 @@ xml_dump_attr(hid_t attr, const char *attr_name, void UNUSED * op_data)
     hid_t                   attr_id, type, space;
 
     indentation(indent);
-    printf("<Attribute Name=\"%s\">\n", xml_escape_the_name((char *)attr_name));
+    printf("<Attribute Name=\"%s\">\n", xml_escape_the_name(attr_name));
 
     if ((attr_id = H5Aopen_name(attr, attr_name)) >= 0) {
 	type = H5Aget_type(attr_id);
@@ -3493,7 +3543,7 @@ xml_dump_attr(hid_t attr, const char *attr_name, void UNUSED * op_data)
 	printf("<!-- h5dump error: unable to open attribute. -->\n");
 	indentation(indent);
 	printf("%s\n", dump_header_format->attributeend);
-	d_status = 1;
+	d_status = EXIT_FAILURE;
 	return FAIL;
     }
 }
@@ -3537,9 +3587,9 @@ xml_dump_named_datatype(hid_t type, const char *name)
 	       name, tmp, name);
     } else {
 	printf("<NamedDataType Name=\"%s\" OBJ-XID=\"%s\" Parents=\"%s\">\n",
-	       xml_escape_the_name((char *)name),
-	       xml_escape_the_name((char *)tmp),
-	       (strcmp(prefix, "") ? xml_escape_the_name((char *)name) : "root"));
+	       xml_escape_the_name(name),
+	       xml_escape_the_name(tmp),
+	       (strcmp(prefix, "") ? xml_escape_the_name(name) : "root"));
     }
 
     indent += COL;
@@ -3649,8 +3699,8 @@ xml_dump_group(hid_t gid, const char *name)
 	printf("<RootGroup OBJ-XID=\"root\">\n");
     } else {
 	printf("<Group Name=\"%s\" OBJ-XID=\"%s\" Parents=\"%s\" >\n",
-	       xml_escape_the_name((char *)name),
-	       xml_escape_the_name((char *)tmp), xml_escape_the_name((char *)par));
+	       xml_escape_the_name(name),
+	       xml_escape_the_name(tmp), xml_escape_the_name(par));
     }
     indent += COL;
     H5Gget_objinfo(gid, ".", TRUE, &statbuf);
@@ -3661,8 +3711,8 @@ xml_dump_group(hid_t gid, const char *name)
 
 	if (i < 0) {
 	    indentation(indent);
-	    printf("h5dump error: internal error\n");
-	    d_status = 1;
+            fprintf(stderr, "h5dump error: internal error (line %d)\n", __LINE__);
+	    d_status = EXIT_FAILURE;
 	} else if (group_table->objs[i].displayed) {
 	    /* already seen: enter a groupptr */
 	    indentation(indent + COL);
@@ -3771,6 +3821,7 @@ xml_print_refs(hid_t did, int source)
     char                   *path;
     hsize_t                 ssiz;
     hsize_t                 i;
+
     if (source == DATASET_DATA) {
 	type = H5Dget_type(did);
     } else if (source == ATTRIBUTE_DATA) {
@@ -3939,7 +3990,7 @@ xml_print_strs(hid_t did, int source)
  * Modifications:
  *
  *-----------------------------------------------------------------------*/
-void
+static void
 check_compression(hid_t dcpl)
 {
     int                     nfilt;
@@ -3999,9 +4050,8 @@ xml_dump_dataset(hid_t did, const char *name)
     strcat(tmp, name);
     indentation(indent);
     printf("<Dataset Name=\"%s\" OBJ-XID=\"%s\" Parents=\"%s\">\n",
-	   xml_escape_the_name((char *)name),
-	   xml_escape_the_name((char *)tmp),
-	   (strcmp(prefix, "") ? xml_escape_the_name((char *)prefix) : "root"));
+	   xml_escape_the_name(name), xml_escape_the_name(tmp),
+	   (strcmp(prefix, "") ? xml_escape_the_name(prefix) : "root"));
 
     dcpl = H5Dget_create_plist(did);
     type = H5Dget_type(did);