[svn-r529] Changes since 19980722

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

./src/H5.c
	Handle hid_t of type H5_TEMPBUF, arguments usually called tbuf_id.

	Added array tracing where the array rank is stored in a simple
	data space.  Just use the name of the data space argument when
	declaring the array argument:

	    herr_t
	    H5Sselect_hyperslab (hid_t space_id, H5S_seloper_t op,
				 const hssize_t start[/*space_id*/],
				 const hsize_t _stride[/*space_id*/],
				 const hsize_t count[/*space_id*/],
				 const hsize_t _block[/*space_id*/])

	and when the program runs you'll see array values printed:

	    H5Sselect_hyperslab(space=218103813, op=H5S_SELECT_SET,
                                start=0xbfffef4c {0}, _stride=NULL,
                                count=0xbfffef44 {64},
				_block=NULL) = SUCCEED;

	Added more symbolic data types to the tracing output.

./src/H5A.c
./src/H5Apublic.h
./src/H5D.c
./src/H5Dpublic.h
./src/H5F.c
./src/H5Fpublic.h
./src/H5G.c
./src/H5Gpublic.h
./src/H5P.c
./src/H5Ppublic.h
./src/H5S.c
./src/H5Sall.c
./src/H5Shyper.c
./src/H5Spoint.c
./src/H5Spublic.h
./src/H5Sselect.c
./src/H5Ssimp.c
./src/H5TB.c
./src/H5V.c
	Changed some API argument names to be more consistent with
	other API functions and to produce better tracing output.
	Reformatted some long lines. Indented printf statements.

./tools/h5ls.c
	Fixed warnings about unsigned vs. signed comparisons.

1 files changed, 74 insertions, 1 deletions

diff --git a/src/H5.c b/src/H5.c
index 9f0b9a7..02b8f09 100644
--- a/src/H5.c
+++ b/src/H5.c
@@ -143,7 +143,7 @@ H5_init_library(void)
  REVISION LOG
 --------------------------------------------------------------------------*/
 herr_t
-H5_add_exit(void        (*func) (void))
+H5_add_exit(void (*func)(void))
 {
     H5_exit_t              *new_exit;
 
@@ -1396,6 +1396,66 @@ H5_trace (hbool_t returning, const char *func, const char *type, ...)
 			    fprintf(out, "H5T_NATIVE_DOUBLE");
 			} else if (obj==H5T_NATIVE_LDOUBLE_g) {
 			    fprintf(out, "H5T_NATIVE_LDOUBLE");
+			} else if (obj==H5T_IEEE_F32BE_g) {
+			    fprintf(out, "H5T_IEEE_F32BE");
+			} else if (obj==H5T_IEEE_F32LE_g) {
+			    fprintf(out, "H5T_IEEE_F32LE");
+			} else if (obj==H5T_IEEE_F64BE_g) {
+			    fprintf(out, "H5T_IEEE_F64BE");
+			} else if (obj==H5T_IEEE_F64LE_g) {
+			    fprintf(out, "H5T_IEEE_F64LE");
+			} else if (obj==H5T_STD_I8BE_g) {
+			    fprintf(out, "H5T_STD_I8BE");
+			} else if (obj==H5T_STD_I8LE_g) {
+			    fprintf(out, "H5T_STD_I8LE");
+			} else if (obj==H5T_STD_I16BE_g) {
+			    fprintf(out, "H5T_STD_I16BE");
+			} else if (obj==H5T_STD_I16LE_g) {
+			    fprintf(out, "H5T_STD_I16LE");
+			} else if (obj==H5T_STD_I32BE_g) {
+			    fprintf(out, "H5T_STD_I32BE");
+			} else if (obj==H5T_STD_I32LE_g) {
+			    fprintf(out, "H5T_STD_I32LE");
+			} else if (obj==H5T_STD_I64BE_g) {
+			    fprintf(out, "H5T_STD_I64BE");
+			} else if (obj==H5T_STD_I64LE_g) {
+			    fprintf(out, "H5T_STD_I64LE");
+			} else if (obj==H5T_STD_U8BE_g) {
+			    fprintf(out, "H5T_STD_U8BE");
+			} else if (obj==H5T_STD_U8LE_g) {
+			    fprintf(out, "H5T_STD_U8LE");
+			} else if (obj==H5T_STD_U16BE_g) {
+			    fprintf(out, "H5T_STD_U16BE");
+			} else if (obj==H5T_STD_U16LE_g) {
+			    fprintf(out, "H5T_STD_U16LE");
+			} else if (obj==H5T_STD_U32BE_g) {
+			    fprintf(out, "H5T_STD_U32BE");
+			} else if (obj==H5T_STD_U32LE_g) {
+			    fprintf(out, "H5T_STD_U32LE");
+			} else if (obj==H5T_STD_U64BE_g) {
+			    fprintf(out, "H5T_STD_U64BE");
+			} else if (obj==H5T_STD_U64LE_g) {
+			    fprintf(out, "H5T_STD_U64LE");
+			} else if (obj==H5T_STD_B8BE_g) {
+			    fprintf(out, "H5T_STD_B8BE");
+			} else if (obj==H5T_STD_B8LE_g) {
+			    fprintf(out, "H5T_STD_B8LE");
+			} else if (obj==H5T_STD_B16BE_g) {
+			    fprintf(out, "H5T_STD_B16BE");
+			} else if (obj==H5T_STD_B16LE_g) {
+			    fprintf(out, "H5T_STD_B16LE");
+			} else if (obj==H5T_STD_B32BE_g) {
+			    fprintf(out, "H5T_STD_B32BE");
+			} else if (obj==H5T_STD_B32LE_g) {
+			    fprintf(out, "H5T_STD_B32LE");
+			} else if (obj==H5T_STD_B64BE_g) {
+			    fprintf(out, "H5T_STD_B64BE");
+			} else if (obj==H5T_STD_B64LE_g) {
+			    fprintf(out, "H5T_STD_B64LE");
+			} else if (obj==H5T_C_S1_g) {
+			    fprintf(out, "H5T_C_S1");
+			} else if (obj==H5T_FORTRAN_S1_g) {
+			    fprintf(out, "H5T_FORTRAN_S1");
 			} else {
 			    fprintf(out, "%ld", (long)obj);
 			    if (strcmp (argname, "type")) {
@@ -1408,6 +1468,13 @@ H5_trace (hbool_t returning, const char *func, const char *type, ...)
 			if (strcmp (argname, "space")) {
 			    fprintf (out, " (space)");
 			}
+			/*Save the rank of simple data spaces for arrays*/
+			{
+			    H5S_t *space = H5I_object(obj);
+			    if (H5S_SIMPLE==space->extent.type) {
+				asize[argno] = space->extent.u.simple.rank;
+			    }
+			}
 			break;
 		    case H5_DATASET:
 			fprintf(out, "%ld", (long)obj);
@@ -1421,6 +1488,12 @@ H5_trace (hbool_t returning, const char *func, const char *type, ...)
 			    fprintf (out, " (attr)");
 			}
 			break;
+		    case H5_TEMPBUF:
+			fprintf(out, "%ld", (long)obj);
+			if (strcmp(argname, "tbuf")) {
+			    fprintf(out, " (tbuf");
+			}
+			break;
 		    default:
 			fprintf(out, "%ld", (long)obj);
 			fprintf (out, " (unknown class)");