[svn-r469] Changes since 19980707

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

./bin/trace
./src/H5.c
	Added tracing support for H5S_seloper_t and H5S_class_t.

./src/H5Sselect.c
./src/H5S.c
	Added tracing statements that weren't inserted previously
	because of formatting problems.

./src/H5T.c
./src/H5Tconv.c
./src/H5Tpkg.h
./src/H5Tprivate.h
./src/H5Tpublic.h
./test/cmpd_dset.c
	Added H5Tinsert_array() for inserting an array member into a
	compound data type.  Added support to the struct conversion
	function for member arrays.  The index permutation is not
	supported yet in the conversion (source and destination must
	have the same permutations).

1 files changed, 53 insertions, 0 deletions

diff --git a/src/H5.c b/src/H5.c
index dd185b1..c521ea0 100644
--- a/src/H5.c
+++ b/src/H5.c
@@ -53,6 +53,7 @@ FILE *fdopen(int fd, const char *mode);
 #include <H5Iprivate.h>		/*atoms					*/
 #include <H5MMprivate.h>        /*memory management               	*/
 #include <H5Pprivate.h>		/*property lists			*/
+#include <H5Sprivate.h>		/*data spaces				*/
 #include <H5Tprivate.h>         /*data types                      	*/
 #include <H5Zprivate.h>		/*compression				*/
 
@@ -1518,6 +1519,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(F%c)", type[1]);
+		    goto error;
+		}
+		break;
+
 	    case 't':
 		if (ptr) {
 		    fprintf (out, "0x%lx", (unsigned long)vp);