[svn-r460] Changes since 19980707

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

./bin/trace
./src/H5.c
./src/H5private.h
./src/H5A.c
./src/H5D.c
./src/H5F.c
./src/H5G.c
./src/H5P.c
./src/H5Pprivate.h
./src/H5S.c
./src/H5T.c
	Output-only arguments have their addresses printed during
	tracing and added symbolic output for the H5F_driver_t
	arguments.  That's another reason that we should be careful to
	add `/*out*/' after arguments that are output-only and
	`/*in,out*/' after arguments that are used for both input and
	output values.

	No internal function calls H5Pget_class() anymore.

./src/H5T.c
./src/H5Tconv.c
./src/H5Tpkg.h
./src/H5Tpublic.h
	Added H5Tget_overflow() and H5Tset_overflow() so the
	application can query or set a function that will be called
	whenever an overflow occurs.  Implemented as documented in
	previous e-mail except the overflow handler gets two buffers:
	one that contains the source value and one to receive the
	optional destination value.

./test/dtypes.c
	Tests overflow handler.

./src/H5.c
	We have to declare fdopen() because I'm getting errors when
	compiling on Irix64 even though we include <stdio.h> as
	documented in the fdopen() man page.

1 files changed, 38 insertions, 33 deletions

diff --git a/src/H5private.h b/src/H5private.h
index 82f0add..2dac272 100644
--- a/src/H5private.h
+++ b/src/H5private.h
@@ -481,40 +481,45 @@ extern char *strdup(const char *s);
  *------------------------------------------------------------------------- 
  */
 #ifdef H5_DEBUG_API
-#define H5TRACE_DECL			  const char *RTYPE=NULL
-#define H5TRACE0(R,T)			  RTYPE=R;			      \
-                                          H5_trace(0,FUNC,T)
-#define H5TRACE1(R,T,A0)		  RTYPE=R;			      \
-                                          H5_trace(0,FUNC,T,#A0,A0)
-#define H5TRACE2(R,T,A0,A1)		  RTYPE=R;			      \
-                                          H5_trace(0,FUNC,T,#A0,A0,#A1,A1)
-#define H5TRACE3(R,T,A0,A1,A2)	  	  RTYPE=R;			      \
-                                          H5_trace(0,FUNC,T,#A0,A0,#A1,A1,    \
-                                                   #A2,A2)
-#define H5TRACE4(R,T,A0,A1,A2,A3)	  RTYPE=R;			      \
-                                          H5_trace(0,FUNC,T,#A0,A0,#A1,A1,    \
-                                                   #A2,A2,#A3,A3)
-#define H5TRACE5(R,T,A0,A1,A2,A3,A4)	  RTYPE=R;			      \
-                                          H5_trace(0,FUNC,T,#A0,A0,#A1,A1,    \
-                                                   #A2,A2,#A3,A3,#A4,A4)
-#define H5TRACE6(R,T,A0,A1,A2,A3,A4,A5)	  RTYPE=R;			      \
-                                          H5_trace(0,FUNC,T,#A0,A0,#A1,A1,    \
-                                                   #A2,A2,#A3,A3,#A4,A4,      \
-                                                   #A5,A5)
-#define H5TRACE_RETURN(V)		  if (RTYPE) {			      \
-                                             H5_trace(1,NULL,RTYPE,NULL,V);   \
-                                             RTYPE=NULL;		      \
-                                          }
+#define H5TRACE_DECL			   const char *RTYPE=NULL
+#define H5TRACE0(R,T)			   RTYPE=R;			      \
+                                           H5_trace(0,FUNC,T)
+#define H5TRACE1(R,T,A0)		   RTYPE=R;			      \
+                                           H5_trace(0,FUNC,T,#A0,A0)
+#define H5TRACE2(R,T,A0,A1)		   RTYPE=R;			      \
+                                           H5_trace(0,FUNC,T,#A0,A0,#A1,A1)
+#define H5TRACE3(R,T,A0,A1,A2)	  	   RTYPE=R;			      \
+                                           H5_trace(0,FUNC,T,#A0,A0,#A1,A1,   \
+                                                    #A2,A2)
+#define H5TRACE4(R,T,A0,A1,A2,A3)	   RTYPE=R;			      \
+                                           H5_trace(0,FUNC,T,#A0,A0,#A1,A1,   \
+                                                    #A2,A2,#A3,A3)
+#define H5TRACE5(R,T,A0,A1,A2,A3,A4)	   RTYPE=R;			      \
+                                           H5_trace(0,FUNC,T,#A0,A0,#A1,A1,   \
+                                                    #A2,A2,#A3,A3,#A4,A4)
+#define H5TRACE6(R,T,A0,A1,A2,A3,A4,A5)	   RTYPE=R;			      \
+                                           H5_trace(0,FUNC,T,#A0,A0,#A1,A1,   \
+                                                    #A2,A2,#A3,A3,#A4,A4,     \
+                                                    #A5,A5)
+#define H5TRACE7(R,T,A0,A1,A2,A3,A4,A5,A6) RTYPE=R;			      \
+                                           H5_trace(0,FUNC,T,#A0,A0,#A1,A1,   \
+                                                    #A2,A2,#A3,A3,#A4,A4,     \
+                                                    #A5,A5,#A6,A6)
+#define H5TRACE_RETURN(V)		   if (RTYPE) {			      \
+                                              H5_trace(1,NULL,RTYPE,NULL,V);  \
+                                              RTYPE=NULL;		      \
+                                           }
 #else
-#define H5TRACE_DECL			  /*void*/
-#define H5TRACE0(R,T)			  /*void*/
-#define H5TRACE1(R,T,A0)		  /*void*/
-#define H5TRACE2(R,T,A0,A1)		  /*void*/
-#define H5TRACE3(R,T,A0,A1,A2)		  /*void*/
-#define H5TRACE4(R,T,A0,A1,A2,A3)	  /*void*/
-#define H5TRACE5(R,T,A0,A1,A2,A3,A4)	  /*void*/
-#define H5TRACE6(R,T,A0,A1,A2,A3,A4,A5)	  /*void*/
-#define H5TRACE_RETURN(V)		  /*void*/
+#define H5TRACE_DECL			   /*void*/
+#define H5TRACE0(R,T)			   /*void*/
+#define H5TRACE1(R,T,A0)		   /*void*/
+#define H5TRACE2(R,T,A0,A1)		   /*void*/
+#define H5TRACE3(R,T,A0,A1,A2)		   /*void*/
+#define H5TRACE4(R,T,A0,A1,A2,A3)	   /*void*/
+#define H5TRACE5(R,T,A0,A1,A2,A3,A4)	   /*void*/
+#define H5TRACE6(R,T,A0,A1,A2,A3,A4,A5)	   /*void*/
+#define H5TRACE7(R,T,A0,A1,A2,A3,A4,A5,A6) /*void*/
+#define H5TRACE_RETURN(V)		   /*void*/
 #endif
 
 void H5_trace (hbool_t returning, const char *func, const char *type, ...);