[svn-r522] Changes since 19980720

----------------------

./src/H5Gpublic.h
./src/H5Gprivate.h
./src/H5G.c
./test/dsets.c
./doc/html/Groups.html
	Added the H5Gset_comment() and H5Gget_comment() functions
	described in an earlier e-mail.

./src/H5.c
	Fixed a bug in the tracing code that caused certain data space
	enum types to not be printed.  Nested case statements can get
	confusing to the eyes!

./tools/h5ls.c
	Prints the first 50 bytes or so of object comments.

1 files changed, 52 insertions, 52 deletions

diff --git a/src/H5.c b/src/H5.c
index 9b52dfa..3cb6aed 100644
--- a/src/H5.c
+++ b/src/H5.c
@@ -1386,6 +1386,58 @@ H5_trace (hbool_t returning, const char *func, const char *type, ...)
 	    }
 	    break;
 
+	case 'S':
+	    switch (type[1]) {
+	    case 'c':
+		if (ptr) {
+		    fprintf(out, "0x%lx", (unsigned long)vp);
+		} else {
+		    H5S_class_t cls = va_arg(ap, H5S_class_t);
+		    switch (cls) {
+		    case H5S_NO_CLASS:
+			fprintf(out, "H5S_NO_CLASS");
+			break;
+		    case H5S_SCALAR:
+			fprintf(out, "H5S_SCALAR");
+			break;
+		    case H5S_SIMPLE:
+			fprintf(out, "H5S_SIMPLE");
+			break;
+		    case H5S_COMPLEX:
+			fprintf(out, "H5S_COMPLEX");
+			break;
+		    default:
+			fprintf(out, "%ld", (long)cls);
+			break;
+		    }
+		}
+		break;
+			
+	    case 's':
+		if (ptr) {
+		    fprintf(out, "0x%lx", (unsigned long)vp);
+		} else {
+		    H5S_seloper_t so = va_arg(ap, H5S_seloper_t);
+		    switch (so) {
+		    case H5S_NOOP:
+			fprintf(out, "H5S_NOOP");
+			break;
+		    case H5S_SELECT_SET:
+			fprintf(out, "H5S_SELECT_SET");
+			break;
+		    default:
+			fprintf(out, "%ld", (long)so);
+			break;
+		    }
+		}
+		break;
+
+	    default:
+		fprintf(out, "BADTYPE(S%c)", type[1]);
+		goto error;
+	    }
+	    break;
+
 	case 's':
 	    if (ptr) {
 		fprintf (out, "0x%lx", (unsigned long)vp);
@@ -1516,58 +1568,6 @@ H5_trace (hbool_t returning, const char *func, const char *type, ...)
 		}
 		break;
 
-	    case 'S':
-		switch (type[1]) {
-		case 'c':
-		    if (ptr) {
-			fprintf(out, "0x%lx", (unsigned long)vp);
-		    } else {
-			H5S_class_t cls = va_arg(ap, H5S_class_t);
-			switch (cls) {
-			case H5S_NO_CLASS:
-			    fprintf(out, "H5S_NO_CLASS");
-			    break;
-			case H5S_SCALAR:
-			    fprintf(out, "H5S_SCALAR");
-			    break;
-			case H5S_SIMPLE:
-			    fprintf(out, "H5S_SIMPLE");
-			    break;
-			case H5S_COMPLEX:
-			    fprintf(out, "H5S_COMPLEX");
-			    break;
-			default:
-			    fprintf(out, "%ld", (long)cls);
-			    break;
-			}
-		    }
-		    break;
-			
-		case 's':
-		    if (ptr) {
-			fprintf(out, "0x%lx", (unsigned long)vp);
-		    } else {
-			H5S_seloper_t so = va_arg(ap, H5S_seloper_t);
-			switch (so) {
-			case H5S_NOOP:
-			    fprintf(out, "H5S_NOOP");
-			    break;
-			case H5S_SELECT_SET:
-			    fprintf(out, "H5S_SELECT_SET");
-			    break;
-			default:
-			    fprintf(out, "%ld", (long)so);
-			    break;
-			}
-		    }
-		    break;
-		    
-		default:
-		    fprintf(out, "BADTYPE(F%c)", type[1]);
-		    goto error;
-		}
-		break;
-
 	    case 't':
 		if (ptr) {
 		    fprintf (out, "0x%lx", (unsigned long)vp);