summaryrefslogtreecommitdiffstats
path: root/src/H5trace.c
diff options
context:
space:
mode:
authorLarry Knox <lrknox@hdfgroup.org>2021-10-29 22:10:31 (GMT)
committerGitHub <noreply@github.com>2021-10-29 22:10:31 (GMT)
commit111c7ae9ac2efc29e8b399e6951253af9110b81a (patch)
treef69fa03253bdab97d7cf3615baff02cd936323f9 /src/H5trace.c
parentdb30c2da68ece4a155e9e50c28ec16d6057509b2 (diff)
downloadhdf5-hdf5-1_10_8.zip
hdf5-hdf5-1_10_8.tar.gz
hdf5-hdf5-1_10_8.tar.bz2
Merge hdf5 1 10 8 (#1154)hdf5-1_10_8
Merge HDF5 1.10.8 release files to 1.10/master
Diffstat (limited to 'src/H5trace.c')
-rw-r--r--src/H5trace.c1144
1 files changed, 572 insertions, 572 deletions
diff --git a/src/H5trace.c b/src/H5trace.c
index 89685ad..1565a86 100644
--- a/src/H5trace.c
+++ b/src/H5trace.c
@@ -6,7 +6,7 @@
* This file is part of HDF5. The full HDF5 copyright notice, including *
* terms governing use, modification, and redistribution, is contained in *
* the COPYING file, which can be found at the root of the source code *
- * distribution tree, or in https://support.hdfgroup.org/ftp/HDF5/releases. *
+ * distribution tree, or in https://www.hdfgroup.org/licenses. *
* If you do not have access to either file, you may request a copy from *
* help@hdfgroup.org. *
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */
@@ -25,60 +25,51 @@
/****************/
/* Module Setup */
/****************/
-#define H5I_FRIEND /*suppress error about including H5Ipkg */
+#define H5I_FRIEND /*suppress error about including H5Ipkg */
/***********/
/* Headers */
/***********/
-#include "H5private.h" /* Generic Functions */
-#include "H5Dprivate.h" /* Datasets */
-#include "H5Eprivate.h" /* Error handling */
-#include "H5FDprivate.h" /* File drivers */
-#include "H5Ipkg.h" /* IDs */
-#include "H5MMprivate.h" /* Memory management */
+#include "H5private.h" /* Generic Functions */
+#include "H5Dprivate.h" /* Datasets */
+#include "H5Eprivate.h" /* Error handling */
+#include "H5FDprivate.h" /* File drivers */
+#include "H5Ipkg.h" /* IDs */
+#include "H5MMprivate.h" /* Memory management */
#ifdef H5_HAVE_PARALLEL
/* datatypes of predefined drivers needed by H5_trace() */
#include "H5FDmpio.h"
#endif /* H5_HAVE_PARALLEL */
-
/****************/
/* Local Macros */
/****************/
-
/******************/
/* Local Typedefs */
/******************/
-
/********************/
/* Package Typedefs */
/********************/
-
/********************/
/* Local Prototypes */
/********************/
-
/*********************/
/* Package Variables */
/*********************/
-
/*****************************/
/* Library Private Variables */
/*****************************/
-
/*******************/
/* Local Variables */
/*******************/
-
-
/*-------------------------------------------------------------------------
* Function: H5_trace
*
@@ -117,52 +108,52 @@
double
H5_trace(const double *returning, const char *func, const char *type, ...)
{
- va_list ap;
- char buf[64], *rest;
- const char *argname;
- int argno = 0, ptr, asize_idx;
- hssize_t asize[16];
- hssize_t i;
- void *vp = NULL;
- FILE *out = H5_debug_g.trace;
- static hbool_t is_first_invocation = TRUE;
- H5_timer_t function_timer;
- H5_timevals_t function_times;
- static H5_timer_t running_timer;
- H5_timevals_t running_times;
- static int current_depth = 0;
- static int last_call_depth = 0;
+ va_list ap;
+ char buf[64], *rest;
+ const char * argname;
+ int argno = 0, ptr, asize_idx;
+ hssize_t asize[16];
+ hssize_t i;
+ void * vp = NULL;
+ FILE * out = H5_debug_g.trace;
+ static hbool_t is_first_invocation = TRUE;
+ H5_timer_t function_timer = {{0}, {0}, {0}, FALSE};
+ H5_timevals_t function_times;
+ static H5_timer_t running_timer;
+ H5_timevals_t running_times;
+ static int current_depth = 0;
+ static int last_call_depth = 0;
/* FUNC_ENTER() should not be called */
- if(!out)
- return 0.0F; /*tracing is off*/
+ if (!out)
+ return 0.0F; /*tracing is off*/
HDva_start(ap, type);
- if(H5_debug_g.ttop) {
- if(returning) {
- if(current_depth > 1) {
+ if (H5_debug_g.ttop) {
+ if (returning) {
+ if (current_depth > 1) {
--current_depth;
return 0.0F;
} /* end if */
- } /* end if */
+ } /* end if */
else {
- if(current_depth > 0) {
+ if (current_depth > 0) {
/*do not update last_call_depth*/
current_depth++;
return 0.0F;
} /* end if */
- } /* end else */
- } /* end if */
+ } /* end else */
+ } /* end if */
/* Get time for event if the trace times flag is set */
- if(is_first_invocation && H5_debug_g.ttimes) {
+ if (is_first_invocation && H5_debug_g.ttimes) {
/* start the library-wide timer */
is_first_invocation = FALSE;
H5_timer_init(&running_timer);
H5_timer_start(&running_timer);
} /* end if */
- if(H5_debug_g.ttimes) {
+ if (H5_debug_g.ttimes) {
/* start the timer for this function */
H5_timer_init(&function_timer);
H5_timer_start(&function_timer);
@@ -174,12 +165,12 @@ H5_trace(const double *returning, const char *func, const char *type, ...)
* function return and no other calls have been made to H5_trace()
* since the one for the function call, then we're continuing
* the same line. */
- if(returning) {
+ if (returning) {
HDassert(current_depth > 0);
--current_depth;
- if(current_depth < last_call_depth) {
+ if (current_depth < last_call_depth) {
/* We are at the beginning of a line */
- if(H5_debug_g.ttimes) {
+ if (H5_debug_g.ttimes) {
char tmp[320];
H5_timer_get_times(function_timer, &function_times);
@@ -187,47 +178,48 @@ H5_trace(const double *returning, const char *func, const char *type, ...)
HDsprintf(tmp, "%.6f", (function_times.elapsed - running_times.elapsed));
HDfprintf(out, " %*s ", (int)HDstrlen(tmp), "");
} /* end if */
- for(i = 0; i < current_depth; i++)
+ for (i = 0; i < current_depth; i++)
HDfputc('+', out);
- HDfprintf(out, "%*s%s = ", 2*current_depth, "", func);
+ HDfprintf(out, "%*s%s = ", 2 * current_depth, "", func);
} /* end if */
else {
/* Continue current line with return value */
HDfprintf(out, " = ");
} /* end else */
- } /* end if */
+ } /* end if */
else {
- if(current_depth>last_call_depth)
+ if (current_depth > last_call_depth)
HDfputs(" = <delayed>\n", out);
- if(H5_debug_g.ttimes) {
+ if (H5_debug_g.ttimes) {
H5_timer_get_times(function_timer, &function_times);
H5_timer_get_times(running_timer, &running_times);
HDfprintf(out, "@%.6f ", (function_times.elapsed - running_times.elapsed));
} /* end if */
- for(i = 0; i < current_depth; i++)
+ for (i = 0; i < current_depth; i++)
HDfputc('+', out);
- HDfprintf(out, "%*s%s(", 2*current_depth, "", func);
+ HDfprintf(out, "%*s%s(", 2 * current_depth, "", func);
} /* end else */
/* Clear array sizes */
- for(i = 0; i < (hssize_t)NELMTS(asize); i++)
+ for (i = 0; i < (hssize_t)NELMTS(asize); i++)
asize[i] = -1;
/* Parse the argument types */
- for(argno = 0; *type; argno++, type += (HDisupper(*type) ? 2 : 1)) {
+ for (argno = 0; *type; argno++, type += (HDisupper(*type) ? 2 : 1)) {
/* Count levels of indirection */
- for(ptr = 0; '*' == *type; type++)
+ for (ptr = 0; '*' == *type; type++)
ptr++;
- if('[' == *type) {
- if('a' == type[1]) {
+ if ('[' == *type) {
+ if ('a' == type[1]) {
asize_idx = (int)HDstrtol(type + 2, &rest, 10);
- HDassert(0 <= asize_idx && asize_idx < (int) NELMTS(asize));
- HDassert(']'==*rest);
+ HDassert(0 <= asize_idx && asize_idx < (int)NELMTS(asize));
+ HDassert(']' == *rest);
type = rest + 1;
- } else {
+ }
+ else {
rest = (char *)HDstrchr(type, ']');
HDassert(rest);
- type = rest + 1;
+ type = rest + 1;
asize_idx = -1;
}
} /* end if */
@@ -240,26 +232,26 @@ H5_trace(const double *returning, const char *func, const char *type, ...)
* following `='. This is used for return values.
*/
argname = HDva_arg(ap, char *);
- if(argname) {
- unsigned n = (unsigned)MAX (0, (int)HDstrlen(argname) - 3);
+ if (argname) {
+ unsigned n = (unsigned)MAX(0, (int)HDstrlen(argname) - 3);
- if(!HDstrcmp(argname + n, "_id")) {
+ if (!HDstrcmp(argname + n, "_id")) {
HDstrncpy(buf, argname, (size_t)MIN((int)sizeof(buf) - 1, n));
buf[MIN((int)sizeof(buf) - 1, n)] = '\0';
- argname = buf;
+ argname = buf;
} /* end if */
- HDfprintf(out, "%s%s=", argno?", ":"", argname);
+ HDfprintf(out, "%s%s=", argno ? ", " : "", argname);
} /* end if */
else
argname = "";
/* The value */
- if(ptr)
+ if (ptr)
vp = HDva_arg(ap, void *);
- switch(type[0]) {
+ switch (type[0]) {
case 'a':
- if(ptr) {
- if(vp)
+ if (ptr) {
+ if (vp)
HDfprintf(out, "0x%p", vp);
else
HDfprintf(out, "NULL");
@@ -267,23 +259,23 @@ H5_trace(const double *returning, const char *func, const char *type, ...)
else {
haddr_t addr = HDva_arg(ap, haddr_t);
- HDfprintf(out, "%a", addr);
+ HDfprintf(out, "%" PRIuHADDR, addr);
} /* end else */
break;
case 'b':
- if(ptr) {
- if(vp)
+ if (ptr) {
+ if (vp)
HDfprintf(out, "0x%p", vp);
else
HDfprintf(out, "NULL");
- } /* end if */
+ } /* end if */
else {
/* Can't pass hbool_t to HDva_arg() */
hbool_t bool_var = (hbool_t)HDva_arg(ap, int);
- if(TRUE == bool_var)
+ if (TRUE == bool_var)
HDfprintf(out, "TRUE");
- else if(!bool_var)
+ else if (!bool_var)
HDfprintf(out, "FALSE");
else
HDfprintf(out, "TRUE(%u)", (unsigned)bool_var);
@@ -291,8 +283,8 @@ H5_trace(const double *returning, const char *func, const char *type, ...)
break;
case 'd':
- if(ptr) {
- if(vp)
+ if (ptr) {
+ if (vp)
HDfprintf(out, "0x%p", vp);
else
HDfprintf(out, "NULL");
@@ -305,10 +297,10 @@ H5_trace(const double *returning, const char *func, const char *type, ...)
break;
case 'D':
- switch(type[1]) {
+ switch (type[1]) {
case 'a':
- if(ptr) {
- if(vp)
+ if (ptr) {
+ if (vp)
HDfprintf(out, "0x%p", vp);
else
HDfprintf(out, "NULL");
@@ -316,7 +308,7 @@ H5_trace(const double *returning, const char *func, const char *type, ...)
else {
H5D_alloc_time_t alloc_time = (H5D_alloc_time_t)HDva_arg(ap, int);
- switch(alloc_time) {
+ switch (alloc_time) {
case H5D_ALLOC_TIME_ERROR:
HDfprintf(out, "H5D_ALLOC_TIME_ERROR");
break;
@@ -341,691 +333,700 @@ H5_trace(const double *returning, const char *func, const char *type, ...)
HDfprintf(out, "%ld", (long)alloc_time);
break;
} /* end switch */
- } /* end else */
+ } /* end else */
break;
case 'c':
- if(ptr) {
- if(vp)
+ if (ptr) {
+ if (vp)
HDfprintf(out, "0x%p", vp);
else
- HDfprintf(out, "NULL");
+ HDfprintf(out, "NULL");
} /* end if */
else {
H5FD_mpio_collective_opt_t opt = (H5FD_mpio_collective_opt_t)HDva_arg(ap, int);
- switch(opt) {
+ switch (opt) {
case H5FD_MPIO_COLLECTIVE_IO:
- HDfprintf(out, "H5FD_MPIO_COLLECTIVE_IO");
+ HDfprintf(out, "H5FD_MPIO_COLLECTIVE_IO");
break;
case H5FD_MPIO_INDIVIDUAL_IO:
- HDfprintf(out, "H5FD_MPIO_INDIVIDUAL_IO");
+ HDfprintf(out, "H5FD_MPIO_INDIVIDUAL_IO");
break;
default:
- HDfprintf(out, "%ld", (long)opt);
+ HDfprintf(out, "%ld", (long)opt);
break;
} /* end switch */
- } /* end else */
+ } /* end else */
break;
case 'f':
- if(ptr) {
- if(vp)
- HDfprintf(out, "0x%p", vp);
+ if (ptr) {
+ if (vp)
+ HDfprintf(out, "0x%p", vp);
else
- HDfprintf(out, "NULL");
+ HDfprintf(out, "NULL");
} /* end if */
else {
H5D_fill_time_t fill_time = (H5D_fill_time_t)HDva_arg(ap, int);
- switch(fill_time) {
+ switch (fill_time) {
case H5D_FILL_TIME_ERROR:
- HDfprintf(out, "H5D_FILL_TIME_ERROR");
+ HDfprintf(out, "H5D_FILL_TIME_ERROR");
break;
case H5D_FILL_TIME_ALLOC:
- HDfprintf(out, "H5D_FILL_TIME_ALLOC");
+ HDfprintf(out, "H5D_FILL_TIME_ALLOC");
break;
case H5D_FILL_TIME_NEVER:
- HDfprintf(out, "H5D_FILL_TIME_NEVER");
+ HDfprintf(out, "H5D_FILL_TIME_NEVER");
break;
case H5D_FILL_TIME_IFSET:
- HDfprintf(out, "H5D_FILL_TIME_IFSET");
+ HDfprintf(out, "H5D_FILL_TIME_IFSET");
break;
default:
- HDfprintf(out, "%ld", (long)fill_time);
+ HDfprintf(out, "%ld", (long)fill_time);
break;
} /* end switch */
- } /* end else */
+ } /* end else */
break;
case 'F':
- if(ptr) {
- if(vp)
- HDfprintf(out, "0x%p", vp);
+ if (ptr) {
+ if (vp)
+ HDfprintf(out, "0x%p", vp);
else
- HDfprintf(out, "NULL");
+ HDfprintf(out, "NULL");
} /* end if */
else {
H5D_fill_value_t fill_value = (H5D_fill_value_t)HDva_arg(ap, int);
- switch(fill_value) {
+ switch (fill_value) {
case H5D_FILL_VALUE_ERROR:
- HDfprintf(out, "H5D_FILL_VALUE_ERROR");
+ HDfprintf(out, "H5D_FILL_VALUE_ERROR");
break;
case H5D_FILL_VALUE_UNDEFINED:
- HDfprintf(out, "H5D_FILL_VALUE_UNDEFINED");
+ HDfprintf(out, "H5D_FILL_VALUE_UNDEFINED");
break;
case H5D_FILL_VALUE_DEFAULT:
- HDfprintf(out, "H5D_FILL_VALUE_DEFAULT");
+ HDfprintf(out, "H5D_FILL_VALUE_DEFAULT");
break;
case H5D_FILL_VALUE_USER_DEFINED:
- HDfprintf(out, "H5D_FILL_VALUE_USER_DEFINED");
+ HDfprintf(out, "H5D_FILL_VALUE_USER_DEFINED");
break;
default:
- HDfprintf(out, "%ld", (long)fill_value);
+ HDfprintf(out, "%ld", (long)fill_value);
break;
} /* end switch */
- } /* end else */
+ } /* end else */
break;
case 'h':
- if(ptr) {
- if(vp)
- HDfprintf(out, "0x%p", vp);
+ if (ptr) {
+ if (vp)
+ HDfprintf(out, "0x%p", vp);
else
- HDfprintf(out, "NULL");
+ HDfprintf(out, "NULL");
} /* end if */
else {
H5FD_mpio_chunk_opt_t opt = (H5FD_mpio_chunk_opt_t)HDva_arg(ap, int);
- switch(opt) {
+ switch (opt) {
case H5FD_MPIO_CHUNK_DEFAULT:
- HDfprintf(out, "H5FD_MPIO_CHUNK_DEFAULT");
+ HDfprintf(out, "H5FD_MPIO_CHUNK_DEFAULT");
break;
case H5FD_MPIO_CHUNK_ONE_IO:
- HDfprintf(out, "H5FD_MPIO_CHUNK_ONE_IO");
+ HDfprintf(out, "H5FD_MPIO_CHUNK_ONE_IO");
break;
case H5FD_MPIO_CHUNK_MULTI_IO:
- HDfprintf(out, "H5FD_MPIO_CHUNK_MULTI_IO");
+ HDfprintf(out, "H5FD_MPIO_CHUNK_MULTI_IO");
break;
default:
- HDfprintf(out, "%ld", (long)opt);
+ HDfprintf(out, "%ld", (long)opt);
break;
} /* end switch */
- } /* end else */
+ } /* end else */
break;
case 'i':
- if(ptr) {
- if(vp)
- HDfprintf(out, "0x%p", vp);
+ if (ptr) {
+ if (vp)
+ HDfprintf(out, "0x%p", vp);
else
- HDfprintf(out, "NULL");
+ HDfprintf(out, "NULL");
} /* end if */
else {
- H5D_mpio_actual_io_mode_t actual_io_mode = (H5D_mpio_actual_io_mode_t)HDva_arg(ap, int);
+ H5D_mpio_actual_io_mode_t actual_io_mode =
+ (H5D_mpio_actual_io_mode_t)HDva_arg(ap, int);
- switch(actual_io_mode) {
+ switch (actual_io_mode) {
case H5D_MPIO_NO_COLLECTIVE:
- HDfprintf(out, "H5D_MPIO_NO_COLLECTIVE");
+ HDfprintf(out, "H5D_MPIO_NO_COLLECTIVE");
break;
case H5D_MPIO_CHUNK_INDEPENDENT:
- HDfprintf(out, "H5D_MPIO_CHUNK_INDEPENDENT");
+ HDfprintf(out, "H5D_MPIO_CHUNK_INDEPENDENT");
break;
case H5D_MPIO_CHUNK_COLLECTIVE:
- HDfprintf(out, "H5D_MPIO_CHUNK_COLLECTIVE");
+ HDfprintf(out, "H5D_MPIO_CHUNK_COLLECTIVE");
break;
case H5D_MPIO_CHUNK_MIXED:
- HDfprintf(out, "H5D_MPIO_CHUNK_MIXED");
+ HDfprintf(out, "H5D_MPIO_CHUNK_MIXED");
break;
case H5D_MPIO_CONTIGUOUS_COLLECTIVE:
- HDfprintf(out, "H5D_MPIO_CONTIGUOUS_COLLECTIVE");
+ HDfprintf(out, "H5D_MPIO_CONTIGUOUS_COLLECTIVE");
break;
default:
- HDfprintf(out, "%ld", (long)actual_io_mode);
+ HDfprintf(out, "%ld", (long)actual_io_mode);
break;
} /* end switch */
- } /* end else */
+ } /* end else */
break;
case 'k':
- if(ptr) {
- if(vp)
- HDfprintf(out, "0x%p", vp);
+ if (ptr) {
+ if (vp)
+ HDfprintf(out, "0x%p", vp);
else
- HDfprintf(out, "NULL");
+ HDfprintf(out, "NULL");
} /* end if */
else {
H5D_chunk_index_t idx = (H5D_chunk_index_t)HDva_arg(ap, int);
- switch(idx) {
+ switch (idx) {
case H5D_CHUNK_IDX_BTREE:
- HDfprintf(out, "H5D_CHUNK_IDX_BTREE");
+ HDfprintf(out, "H5D_CHUNK_IDX_BTREE");
break;
case H5D_CHUNK_IDX_NONE:
- HDfprintf(out, "H5D_CHUNK_IDX_NONE");
+ HDfprintf(out, "H5D_CHUNK_IDX_NONE");
break;
case H5D_CHUNK_IDX_FARRAY:
- HDfprintf(out, "H5D_CHUNK_IDX_FARRAY");
+ HDfprintf(out, "H5D_CHUNK_IDX_FARRAY");
break;
case H5D_CHUNK_IDX_EARRAY:
- HDfprintf(out, "H5D_CHUNK_IDX_EARRAY");
+ HDfprintf(out, "H5D_CHUNK_IDX_EARRAY");
break;
case H5D_CHUNK_IDX_BT2:
- HDfprintf(out, "H5D_CHUNK_IDX_BT2");
+ HDfprintf(out, "H5D_CHUNK_IDX_BT2");
break;
case H5D_CHUNK_IDX_SINGLE:
- HDfprintf(out, "H5D_CHUNK_IDX_SINGLE");
+ HDfprintf(out, "H5D_CHUNK_IDX_SINGLE");
break;
case H5D_CHUNK_IDX_NTYPES:
- HDfprintf(out, "ERROR: H5D_CHUNK_IDX_NTYPES (invalid value)");
+ HDfprintf(out, "ERROR: H5D_CHUNK_IDX_NTYPES (invalid value)");
break;
default:
- HDfprintf(out, "UNKNOWN VALUE: %ld", (long)idx);
+ HDfprintf(out, "UNKNOWN VALUE: %ld", (long)idx);
break;
} /* end switch */
- } /* end else */
+ } /* end else */
break;
case 'l':
- if(ptr) {
- if(vp)
- HDfprintf(out, "0x%p", vp);
+ if (ptr) {
+ if (vp)
+ HDfprintf(out, "0x%p", vp);
else
- HDfprintf(out, "NULL");
+ HDfprintf(out, "NULL");
} /* end if */
else {
H5D_layout_t layout = (H5D_layout_t)HDva_arg(ap, int);
- switch(layout) {
+ switch (layout) {
case H5D_LAYOUT_ERROR:
- HDfprintf(out, "H5D_LAYOUT_ERROR");
+ HDfprintf(out, "H5D_LAYOUT_ERROR");
break;
case H5D_COMPACT:
- HDfprintf(out, "H5D_COMPACT");
+ HDfprintf(out, "H5D_COMPACT");
break;
case H5D_CONTIGUOUS:
- HDfprintf(out, "H5D_CONTIGUOUS");
+ HDfprintf(out, "H5D_CONTIGUOUS");
break;
case H5D_CHUNKED:
- HDfprintf(out, "H5D_CHUNKED");
+ HDfprintf(out, "H5D_CHUNKED");
break;
case H5D_VIRTUAL:
- HDfprintf(out, "H5D_VIRTUAL");
+ HDfprintf(out, "H5D_VIRTUAL");
break;
case H5D_NLAYOUTS:
- HDfprintf(out, "H5D_NLAYOUTS");
+ HDfprintf(out, "H5D_NLAYOUTS");
break;
default:
- HDfprintf(out, "%ld", (long)layout);
+ HDfprintf(out, "%ld", (long)layout);
break;
} /* end switch */
- } /* end else */
+ } /* end else */
break;
case 'n':
- if(ptr) {
- if(vp)
- HDfprintf(out, "0x%p", vp);
+ if (ptr) {
+ if (vp)
+ HDfprintf(out, "0x%p", vp);
else
- HDfprintf(out, "NULL");
+ HDfprintf(out, "NULL");
} /* end if */
else {
- H5D_mpio_no_collective_cause_t nocol_cause_mode = (H5D_mpio_no_collective_cause_t)HDva_arg(ap, int);
+ H5D_mpio_no_collective_cause_t nocol_cause_mode =
+ (H5D_mpio_no_collective_cause_t)HDva_arg(ap, int);
hbool_t flag_already_displayed = FALSE;
/* Check for all bit-flags which might be set */
- if(nocol_cause_mode & H5D_MPIO_COLLECTIVE) {
- HDfprintf(out, "H5D_MPIO_COLLECTIVE");
+ if (nocol_cause_mode & H5D_MPIO_COLLECTIVE) {
+ HDfprintf(out, "H5D_MPIO_COLLECTIVE");
flag_already_displayed = TRUE;
} /* end if */
- if(nocol_cause_mode & H5D_MPIO_SET_INDEPENDENT) {
- HDfprintf(out, "%sH5D_MPIO_SET_INDEPENDENT", flag_already_displayed ? " | " : "");
+ if (nocol_cause_mode & H5D_MPIO_SET_INDEPENDENT) {
+ HDfprintf(out, "%sH5D_MPIO_SET_INDEPENDENT",
+ flag_already_displayed ? " | " : "");
flag_already_displayed = TRUE;
} /* end if */
- if(nocol_cause_mode & H5D_MPIO_DATATYPE_CONVERSION) {
- HDfprintf(out, "%sH5D_MPIO_DATATYPE_CONVERSION", flag_already_displayed ? " | " : "");
+ if (nocol_cause_mode & H5D_MPIO_DATATYPE_CONVERSION) {
+ HDfprintf(out, "%sH5D_MPIO_DATATYPE_CONVERSION",
+ flag_already_displayed ? " | " : "");
flag_already_displayed = TRUE;
} /* end if */
- if(nocol_cause_mode & H5D_MPIO_DATA_TRANSFORMS) {
- HDfprintf(out, "%sH5D_MPIO_DATA_TRANSFORMS", flag_already_displayed ? " | " : "");
+ if (nocol_cause_mode & H5D_MPIO_DATA_TRANSFORMS) {
+ HDfprintf(out, "%sH5D_MPIO_DATA_TRANSFORMS",
+ flag_already_displayed ? " | " : "");
flag_already_displayed = TRUE;
} /* end if */
- if(nocol_cause_mode & H5D_MPIO_MPI_OPT_TYPES_ENV_VAR_DISABLED) {
- HDfprintf(out, "%sH5D_MPIO_MPI_OPT_TYPES_ENV_VAR_DISABLED", flag_already_displayed ? " | " : "");
+ if (nocol_cause_mode & H5D_MPIO_MPI_OPT_TYPES_ENV_VAR_DISABLED) {
+ HDfprintf(out, "%sH5D_MPIO_MPI_OPT_TYPES_ENV_VAR_DISABLED",
+ flag_already_displayed ? " | " : "");
flag_already_displayed = TRUE;
} /* end if */
- if(nocol_cause_mode & H5D_MPIO_NOT_SIMPLE_OR_SCALAR_DATASPACES) {
- HDfprintf(out, "%sH5D_MPIO_NOT_SIMPLE_OR_SCALAR_DATASPACES", flag_already_displayed ? " | " : "");
+ if (nocol_cause_mode & H5D_MPIO_NOT_SIMPLE_OR_SCALAR_DATASPACES) {
+ HDfprintf(out, "%sH5D_MPIO_NOT_SIMPLE_OR_SCALAR_DATASPACES",
+ flag_already_displayed ? " | " : "");
flag_already_displayed = TRUE;
} /* end if */
- if(nocol_cause_mode & H5D_MPIO_NOT_CONTIGUOUS_OR_CHUNKED_DATASET) {
- HDfprintf(out, "%sH5D_MPIO_NOT_CONTIGUOUS_OR_CHUNKED_DATASET", flag_already_displayed ? " | " : "");
+ if (nocol_cause_mode & H5D_MPIO_NOT_CONTIGUOUS_OR_CHUNKED_DATASET) {
+ HDfprintf(out, "%sH5D_MPIO_NOT_CONTIGUOUS_OR_CHUNKED_DATASET",
+ flag_already_displayed ? " | " : "");
flag_already_displayed = TRUE;
} /* end if */
/* Display '<none>' if there's no flags set */
- if(!flag_already_displayed)
- HDfprintf(out, "<none>");
+ if (!flag_already_displayed)
+ HDfprintf(out, "<none>");
} /* end else */
break;
case 'o':
- if(ptr) {
- if(vp)
- HDfprintf(out, "0x%p", vp);
+ if (ptr) {
+ if (vp)
+ HDfprintf(out, "0x%p", vp);
else
- HDfprintf(out, "NULL");
+ HDfprintf(out, "NULL");
} /* end if */
else {
- H5D_mpio_actual_chunk_opt_mode_t chunk_opt_mode = (H5D_mpio_actual_chunk_opt_mode_t)HDva_arg(ap, int);
+ H5D_mpio_actual_chunk_opt_mode_t chunk_opt_mode =
+ (H5D_mpio_actual_chunk_opt_mode_t)HDva_arg(ap, int);
- switch(chunk_opt_mode) {
+ switch (chunk_opt_mode) {
case H5D_MPIO_NO_CHUNK_OPTIMIZATION:
- HDfprintf(out, "H5D_MPIO_NO_CHUNK_OPTIMIZATION");
+ HDfprintf(out, "H5D_MPIO_NO_CHUNK_OPTIMIZATION");
break;
case H5D_MPIO_LINK_CHUNK:
- HDfprintf(out, "H5D_MPIO_LINK_CHUNK");
+ HDfprintf(out, "H5D_MPIO_LINK_CHUNK");
break;
case H5D_MPIO_MULTI_CHUNK:
- HDfprintf(out, "H5D_MPIO_MULTI_CHUNK");
+ HDfprintf(out, "H5D_MPIO_MULTI_CHUNK");
break;
default:
- HDfprintf(out, "%ld", (long)chunk_opt_mode);
+ HDfprintf(out, "%ld", (long)chunk_opt_mode);
break;
} /* end switch */
- } /* end else */
+ } /* end else */
break;
case 's':
- if(ptr) {
- if(vp)
- HDfprintf(out, "0x%p", vp);
+ if (ptr) {
+ if (vp)
+ HDfprintf(out, "0x%p", vp);
else
- HDfprintf(out, "NULL");
+ HDfprintf(out, "NULL");
} /* end if */
else {
H5D_space_status_t space_status = (H5D_space_status_t)HDva_arg(ap, int);
- switch(space_status) {
+ switch (space_status) {
case H5D_SPACE_STATUS_NOT_ALLOCATED:
- HDfprintf(out, "H5D_SPACE_STATUS_NOT_ALLOCATED");
+ HDfprintf(out, "H5D_SPACE_STATUS_NOT_ALLOCATED");
break;
case H5D_SPACE_STATUS_PART_ALLOCATED:
- HDfprintf(out, "H5D_SPACE_STATUS_PART_ALLOCATED");
+ HDfprintf(out, "H5D_SPACE_STATUS_PART_ALLOCATED");
break;
case H5D_SPACE_STATUS_ALLOCATED:
- HDfprintf(out, "H5D_SPACE_STATUS_ALLOCATED");
+ HDfprintf(out, "H5D_SPACE_STATUS_ALLOCATED");
break;
case H5D_SPACE_STATUS_ERROR:
- HDfprintf(out, "H5D_SPACE_STATUS_ERROR");
+ HDfprintf(out, "H5D_SPACE_STATUS_ERROR");
break;
default:
- HDfprintf(out, "%ld", (long)space_status);
+ HDfprintf(out, "%ld", (long)space_status);
break;
} /* end switch */
- } /* end else */
+ } /* end else */
break;
case 't':
- if(ptr) {
- if(vp)
- HDfprintf(out, "0x%p", vp);
+ if (ptr) {
+ if (vp)
+ HDfprintf(out, "0x%p", vp);
else
- HDfprintf(out, "NULL");
+ HDfprintf(out, "NULL");
} /* end if */
else {
H5FD_mpio_xfer_t transfer = (H5FD_mpio_xfer_t)HDva_arg(ap, int);
- switch(transfer) {
+ switch (transfer) {
case H5FD_MPIO_INDEPENDENT:
- HDfprintf(out, "H5FD_MPIO_INDEPENDENT");
+ HDfprintf(out, "H5FD_MPIO_INDEPENDENT");
break;
case H5FD_MPIO_COLLECTIVE:
- HDfprintf(out, "H5FD_MPIO_COLLECTIVE");
+ HDfprintf(out, "H5FD_MPIO_COLLECTIVE");
break;
default:
- HDfprintf(out, "%ld", (long)transfer);
+ HDfprintf(out, "%ld", (long)transfer);
break;
} /* end switch */
- } /* end else */
+ } /* end else */
break;
case 'v':
- if(ptr) {
- if(vp)
- HDfprintf(out, "0x%p", vp);
+ if (ptr) {
+ if (vp)
+ HDfprintf(out, "0x%p", vp);
else
- HDfprintf(out, "NULL");
+ HDfprintf(out, "NULL");
} /* end if */
else {
H5D_vds_view_t view = (H5D_vds_view_t)HDva_arg(ap, int);
- switch(view) {
+ switch (view) {
case H5D_VDS_ERROR:
- HDfprintf(out, "H5D_VDS_ERROR");
+ HDfprintf(out, "H5D_VDS_ERROR");
break;
case H5D_VDS_FIRST_MISSING:
- HDfprintf(out, "H5D_VDS_FIRST_MISSING");
+ HDfprintf(out, "H5D_VDS_FIRST_MISSING");
break;
case H5D_VDS_LAST_AVAILABLE:
- HDfprintf(out, "H5D_VDS_LAST_AVAILABLE");
+ HDfprintf(out, "H5D_VDS_LAST_AVAILABLE");
break;
default:
- HDfprintf(out, "%ld", (long)view);
+ HDfprintf(out, "%ld", (long)view);
break;
} /* end switch */
- } /* end else */
+ } /* end else */
break;
default:
- HDfprintf(out, "BADTYPE(D%c)", type[1]);
+ HDfprintf(out, "BADTYPE(D%c)", type[1]);
goto error;
} /* end switch */
break;
case 'e':
- if(ptr) {
- if(vp)
- HDfprintf(out, "0x%p", vp);
+ if (ptr) {
+ if (vp)
+ HDfprintf(out, "0x%p", vp);
else
- HDfprintf(out, "NULL");
+ HDfprintf(out, "NULL");
} /* end if */
else {
herr_t status = HDva_arg(ap, herr_t);
- if(status >= 0)
- HDfprintf(out, "SUCCEED");
+ if (status >= 0)
+ HDfprintf(out, "SUCCEED");
else
- HDfprintf(out, "FAIL");
+ HDfprintf(out, "FAIL");
} /* end else */
break;
case 'E':
- switch(type[1]) {
+ switch (type[1]) {
case 'd':
- if(ptr) {
- if(vp)
- HDfprintf(out, "0x%p", vp);
+ if (ptr) {
+ if (vp)
+ HDfprintf(out, "0x%p", vp);
else
- HDfprintf(out, "NULL");
+ HDfprintf(out, "NULL");
} /* end if */
else {
H5E_direction_t direction = (H5E_direction_t)HDva_arg(ap, int);
- switch(direction) {
+ switch (direction) {
case H5E_WALK_UPWARD:
- HDfprintf(out, "H5E_WALK_UPWARD");
+ HDfprintf(out, "H5E_WALK_UPWARD");
break;
case H5E_WALK_DOWNWARD:
- HDfprintf(out, "H5E_WALK_DOWNWARD");
+ HDfprintf(out, "H5E_WALK_DOWNWARD");
break;
default:
- HDfprintf(out, "%ld", (long)direction);
+ HDfprintf(out, "%ld", (long)direction);
break;
} /* end switch */
- } /* end else */
+ } /* end else */
break;
case 'e':
- if(ptr) {
- if(vp)
- HDfprintf(out, "0x%p", vp);
+ if (ptr) {
+ if (vp)
+ HDfprintf(out, "0x%p", vp);
else
- HDfprintf(out, "NULL");
+ HDfprintf(out, "NULL");
} /* end if */
else {
H5E_error2_t *error = HDva_arg(ap, H5E_error2_t *);
- HDfprintf(out, "0x%p", error);
+ HDfprintf(out, "0x%p", (void *)error);
} /* end else */
break;
case 't':
- if(ptr) {
- if(vp)
- HDfprintf(out, "0x%p", vp);
+ if (ptr) {
+ if (vp)
+ HDfprintf(out, "0x%p", vp);
else
- HDfprintf(out, "NULL");
+ HDfprintf(out, "NULL");
} /* end if */
else {
H5E_type_t etype = (H5E_type_t)HDva_arg(ap, int);
- switch(etype) {
+ switch (etype) {
case H5E_MAJOR:
- HDfprintf(out, "H5E_MAJOR");
+ HDfprintf(out, "H5E_MAJOR");
break;
case H5E_MINOR:
- HDfprintf(out, "H5E_MINOR");
+ HDfprintf(out, "H5E_MINOR");
break;
default:
- HDfprintf(out, "%ld", (long)etype);
+ HDfprintf(out, "%ld", (long)etype);
break;
} /* end switch */
- } /* end else */
+ } /* end else */
break;
default:
- HDfprintf(out, "BADTYPE(E%c)", type[1]);
+ HDfprintf(out, "BADTYPE(E%c)", type[1]);
goto error;
} /* end switch */
break;
case 'F':
- switch(type[1]) {
+ switch (type[1]) {
case 'd':
- if(ptr) {
- if(vp)
- HDfprintf(out, "0x%p", vp);
+ if (ptr) {
+ if (vp)
+ HDfprintf(out, "0x%p", vp);
else
- HDfprintf(out, "NULL");
+ HDfprintf(out, "NULL");
} /* end if */
else {
H5F_close_degree_t degree = (H5F_close_degree_t)HDva_arg(ap, int);
- switch(degree) {
+ switch (degree) {
case H5F_CLOSE_DEFAULT:
- HDfprintf(out, "H5F_CLOSE_DEFAULT");
+ HDfprintf(out, "H5F_CLOSE_DEFAULT");
break;
case H5F_CLOSE_WEAK:
- HDfprintf(out, "H5F_CLOSE_WEAK");
+ HDfprintf(out, "H5F_CLOSE_WEAK");
break;
case H5F_CLOSE_SEMI:
- HDfprintf(out, "H5F_CLOSE_SEMI");
+ HDfprintf(out, "H5F_CLOSE_SEMI");
break;
case H5F_CLOSE_STRONG:
- HDfprintf(out, "H5F_CLOSE_STRONG");
+ HDfprintf(out, "H5F_CLOSE_STRONG");
break;
default:
- HDfprintf(out, "%ld", (long)degree);
+ HDfprintf(out, "%ld", (long)degree);
break;
} /* end switch */
- } /* end else */
+ } /* end else */
break;
case 'f':
- if(ptr) {
- if(vp)
- HDfprintf(out, "0x%p", vp);
+ if (ptr) {
+ if (vp)
+ HDfprintf(out, "0x%p", vp);
else
- HDfprintf(out, "NULL");
+ HDfprintf(out, "NULL");
} /* end if */
else {
H5F_fspace_strategy_t fs_strategy = (H5F_fspace_strategy_t)HDva_arg(ap, int);
- switch(fs_strategy) {
+ switch (fs_strategy) {
case H5F_FSPACE_STRATEGY_FSM_AGGR:
- HDfprintf(out, "H5F_FSPACE_STRATEGY_FSM_AGGR");
+ HDfprintf(out, "H5F_FSPACE_STRATEGY_FSM_AGGR");
break;
case H5F_FSPACE_STRATEGY_PAGE:
- HDfprintf(out, "H5F_FSPACE_STRATEGY_PAGE");
+ HDfprintf(out, "H5F_FSPACE_STRATEGY_PAGE");
break;
case H5F_FSPACE_STRATEGY_AGGR:
- HDfprintf(out, "H5F_FSPACE_STRATEGY_AGGR");
+ HDfprintf(out, "H5F_FSPACE_STRATEGY_AGGR");
break;
case H5F_FSPACE_STRATEGY_NONE:
- HDfprintf(out, "H5F_FSPACE_STRATEGY_NONE");
+ HDfprintf(out, "H5F_FSPACE_STRATEGY_NONE");
break;
case H5F_FSPACE_STRATEGY_NTYPES:
default:
- HDfprintf(out, "%ld", (long)fs_strategy);
+ HDfprintf(out, "%ld", (long)fs_strategy);
break;
} /* end switch */
- } /* end else */
+ } /* end else */
break;
case 'm':
- if(ptr) {
- if(vp)
- HDfprintf(out, "0x%p", vp);
+ if (ptr) {
+ if (vp)
+ HDfprintf(out, "0x%p", vp);
else
- HDfprintf(out, "NULL");
+ HDfprintf(out, "NULL");
} /* end if */
else {
H5F_mem_t mem_type = (H5F_mem_t)HDva_arg(ap, int);
- switch(mem_type) {
+ switch (mem_type) {
case H5FD_MEM_NOLIST:
- HDfprintf(out, "H5FD_MEM_NOLIST");
+ HDfprintf(out, "H5FD_MEM_NOLIST");
break;
case H5FD_MEM_DEFAULT:
- HDfprintf(out, "H5FD_MEM_DEFAULT");
+ HDfprintf(out, "H5FD_MEM_DEFAULT");
break;
case H5FD_MEM_SUPER:
- HDfprintf(out, "H5FD_MEM_SUPER");
+ HDfprintf(out, "H5FD_MEM_SUPER");
break;
case H5FD_MEM_BTREE:
- HDfprintf(out, "H5FD_MEM_BTREE");
+ HDfprintf(out, "H5FD_MEM_BTREE");
break;
case H5FD_MEM_DRAW:
- HDfprintf(out, "H5FD_MEM_DRAW");
+ HDfprintf(out, "H5FD_MEM_DRAW");
break;
case H5FD_MEM_GHEAP:
- HDfprintf(out, "H5FD_MEM_GHEAP");
+ HDfprintf(out, "H5FD_MEM_GHEAP");
break;
case H5FD_MEM_LHEAP:
- HDfprintf(out, "H5FD_MEM_LHEAP");
+ HDfprintf(out, "H5FD_MEM_LHEAP");
break;
case H5FD_MEM_OHDR:
- HDfprintf(out, "H5FD_MEM_OHDR");
+ HDfprintf(out, "H5FD_MEM_OHDR");
break;
case H5FD_MEM_NTYPES:
default:
- HDfprintf(out, "%ld", (long)mem_type);
+ HDfprintf(out, "%ld", (long)mem_type);
break;
} /* end switch */
- } /* end else */
+ } /* end else */
break;
case 's':
- if(ptr) {
- if(vp)
- HDfprintf(out, "0x%p", vp);
+ if (ptr) {
+ if (vp)
+ HDfprintf(out, "0x%p", vp);
else
- HDfprintf(out, "NULL");
+ HDfprintf(out, "NULL");
} /* end if */
else {
H5F_scope_t scope = (H5F_scope_t)HDva_arg(ap, int);
- switch(scope) {
+ switch (scope) {
case H5F_SCOPE_LOCAL:
- HDfprintf(out, "H5F_SCOPE_LOCAL");
+ HDfprintf(out, "H5F_SCOPE_LOCAL");
break;
case H5F_SCOPE_GLOBAL:
- HDfprintf(out, "H5F_SCOPE_GLOBAL");
+ HDfprintf(out, "H5F_SCOPE_GLOBAL");
break;
default:
- HDfprintf(out, "%ld", (long)scope);
+ HDfprintf(out, "%ld", (long)scope);
break;
} /* end switch */
- } /* end else */
+ } /* end else */
break;
case 't':
- if(ptr) {
- if(vp)
- HDfprintf(out, "0x%p", vp);
+ if (ptr) {
+ if (vp)
+ HDfprintf(out, "0x%p", vp);
else
- HDfprintf(out, "NULL");
+ HDfprintf(out, "NULL");
} /* end if */
break;
case 'v':
- if(ptr) {
- if(vp)
- HDfprintf(out, "0x%p", vp);
+ if (ptr) {
+ if (vp)
+ HDfprintf(out, "0x%p", vp);
else
- HDfprintf(out, "NULL");
+ HDfprintf(out, "NULL");
} /* end if */
else {
H5F_libver_t libver_vers = (H5F_libver_t)HDva_arg(ap, int);
- switch(libver_vers) {
+ switch (libver_vers) {
case H5F_LIBVER_EARLIEST:
HDfprintf(out, "H5F_LIBVER_EARLIEST");
break;
@@ -1045,7 +1046,7 @@ H5_trace(const double *returning, const char *func, const char *type, ...)
HDfprintf(out, "%ld", (long)libver_vers);
break;
} /* end switch */
- } /* end else */
+ } /* end else */
break;
default:
@@ -1055,11 +1056,11 @@ H5_trace(const double *returning, const char *func, const char *type, ...)
break;
case 'G':
- switch(type[1]) {
+ switch (type[1]) {
#ifndef H5_NO_DEPRECATED_SYMBOLS
case 'o':
- if(ptr) {
- if(vp)
+ if (ptr) {
+ if (vp)
HDfprintf(out, "0x%p", vp);
else
HDfprintf(out, "NULL");
@@ -1067,7 +1068,7 @@ H5_trace(const double *returning, const char *func, const char *type, ...)
else {
H5G_obj_t obj_type = (H5G_obj_t)HDva_arg(ap, int);
- switch(obj_type) {
+ switch (obj_type) {
case H5G_UNKNOWN:
HDfprintf(out, "H5G_UNKNOWN");
break;
@@ -1102,20 +1103,20 @@ H5_trace(const double *returning, const char *func, const char *type, ...)
HDfprintf(out, "%ld", (long)obj_type);
break;
} /* end switch */
- } /* end else */
+ } /* end else */
break;
case 's':
- if(ptr) {
- if(vp)
+ if (ptr) {
+ if (vp)
HDfprintf(out, "0x%p", vp);
else
HDfprintf(out, "NULL");
} /* end if */
else {
- H5G_stat_t *statbuf = HDva_arg(ap, H5G_stat_t*);
+ H5G_stat_t *statbuf = HDva_arg(ap, H5G_stat_t *);
- HDfprintf(out, "0x%p", statbuf);
+ HDfprintf(out, "0x%p", (void *)statbuf);
}
break;
#endif /* H5_NO_DEPRECATED_SYMBOLS */
@@ -1127,59 +1128,59 @@ H5_trace(const double *returning, const char *func, const char *type, ...)
break;
case 'h':
- if(ptr) {
- if(vp) {
+ if (ptr) {
+ if (vp) {
HDfprintf(out, "0x%p", vp);
- if(asize_idx >= 0 && asize[asize_idx] >= 0) {
+ if (asize_idx >= 0 && asize[asize_idx] >= 0) {
hsize_t *p = (hsize_t *)vp;
HDfprintf(out, " {");
- for(i = 0; i < asize[asize_idx]; i++) {
- if(H5S_UNLIMITED == p[i])
+ for (i = 0; i < asize[asize_idx]; i++) {
+ if (H5S_UNLIMITED == p[i])
HDfprintf(out, "%sH5S_UNLIMITED", (i ? ", " : ""));
else
- HDfprintf(out, "%s%Hu", (i ? ", " : ""), p[i]);
+ HDfprintf(out, "%s%" PRIuHSIZE, (i ? ", " : ""), p[i]);
} /* end for */
HDfprintf(out, "}");
} /* end if */
- } /* end if */
+ } /* end if */
else
HDfprintf(out, "NULL");
} /* end if */
else {
hsize_t hsize = HDva_arg(ap, hsize_t);
- if(H5S_UNLIMITED == hsize)
+ if (H5S_UNLIMITED == hsize)
HDfprintf(out, "H5S_UNLIMITED");
else {
- HDfprintf(out, "%Hu", hsize);
+ HDfprintf(out, "%" PRIuHSIZE, hsize);
asize[argno] = (hssize_t)hsize;
} /* end else */
- } /* end else */
+ } /* end else */
break;
case 'H':
- switch(type[1]) {
+ switch (type[1]) {
case 's':
- if(ptr) {
- if(vp) {
+ if (ptr) {
+ if (vp) {
HDfprintf(out, "0x%p", vp);
- if(asize_idx >= 0 && asize[asize_idx] >= 0) {
+ if (asize_idx >= 0 && asize[asize_idx] >= 0) {
hssize_t *p = (hssize_t *)vp;
HDfprintf(out, " {");
- for(i = 0; i < asize[asize_idx]; i++)
- HDfprintf(out, "%s%Hd", (i ? ", " : ""), p[i]);
+ for (i = 0; i < asize[asize_idx]; i++)
+ HDfprintf(out, "%s%" PRIdHSIZE, (i ? ", " : ""), p[i]);
HDfprintf(out, "}");
} /* end if */
- } /* end if */
+ } /* end if */
else
HDfprintf(out, "NULL");
} /* end if */
else {
hssize_t hssize = HDva_arg(ap, hssize_t);
- HDfprintf(out, "%Hd", hssize);
+ HDfprintf(out, "%" PRIdHSIZE, hssize);
asize[argno] = (hssize_t)hssize;
} /* end else */
break;
@@ -1191,8 +1192,8 @@ H5_trace(const double *returning, const char *func, const char *type, ...)
break;
case 'i':
- if(ptr) {
- if(vp)
+ if (ptr) {
+ if (vp)
HDfprintf(out, "0x%p", vp);
else
HDfprintf(out, "NULL");
@@ -1200,12 +1201,12 @@ H5_trace(const double *returning, const char *func, const char *type, ...)
else {
hid_t obj = HDva_arg(ap, hid_t);
- if(H5P_DEFAULT == obj)
+ if (H5P_DEFAULT == obj)
HDfprintf(out, "H5P_DEFAULT");
- else if(obj < 0)
+ else if (obj < 0)
HDfprintf(out, "FAIL");
else {
- switch(H5I_TYPE(obj)) { /* Use internal H5I macro instead of function call */
+ switch (H5I_TYPE(obj)) { /* Use internal H5I macro instead of function call */
case H5I_UNINIT:
HDfprintf(out, "%ld (uninit - error)", (long)obj);
break;
@@ -1223,93 +1224,93 @@ H5_trace(const double *returning, const char *func, const char *type, ...)
break;
case H5I_DATATYPE:
- if(obj == H5T_NATIVE_SCHAR_g)
+ if (obj == H5T_NATIVE_SCHAR_g)
HDfprintf(out, "H5T_NATIVE_SCHAR");
- else if(obj == H5T_NATIVE_UCHAR_g)
+ else if (obj == H5T_NATIVE_UCHAR_g)
HDfprintf(out, "H5T_NATIVE_UCHAR");
- else if(obj == H5T_NATIVE_SHORT_g)
+ else if (obj == H5T_NATIVE_SHORT_g)
HDfprintf(out, "H5T_NATIVE_SHORT");
- else if(obj == H5T_NATIVE_USHORT_g)
+ else if (obj == H5T_NATIVE_USHORT_g)
HDfprintf(out, "H5T_NATIVE_USHORT");
- else if(obj == H5T_NATIVE_INT_g)
+ else if (obj == H5T_NATIVE_INT_g)
HDfprintf(out, "H5T_NATIVE_INT");
- else if(obj == H5T_NATIVE_UINT_g)
+ else if (obj == H5T_NATIVE_UINT_g)
HDfprintf(out, "H5T_NATIVE_UINT");
- else if(obj == H5T_NATIVE_LONG_g)
+ else if (obj == H5T_NATIVE_LONG_g)
HDfprintf(out, "H5T_NATIVE_LONG");
- else if(obj == H5T_NATIVE_ULONG_g)
+ else if (obj == H5T_NATIVE_ULONG_g)
HDfprintf(out, "H5T_NATIVE_ULONG");
- else if(obj == H5T_NATIVE_LLONG_g)
+ else if (obj == H5T_NATIVE_LLONG_g)
HDfprintf(out, "H5T_NATIVE_LLONG");
- else if(obj == H5T_NATIVE_ULLONG_g)
+ else if (obj == H5T_NATIVE_ULLONG_g)
HDfprintf(out, "H5T_NATIVE_ULLONG");
- else if(obj == H5T_NATIVE_FLOAT_g)
+ else if (obj == H5T_NATIVE_FLOAT_g)
HDfprintf(out, "H5T_NATIVE_FLOAT");
- else if(obj == H5T_NATIVE_DOUBLE_g)
+ else if (obj == H5T_NATIVE_DOUBLE_g)
HDfprintf(out, "H5T_NATIVE_DOUBLE");
-#if H5_SIZEOF_LONG_DOUBLE !=0
- else if(obj == H5T_NATIVE_LDOUBLE_g)
+#if H5_SIZEOF_LONG_DOUBLE != 0
+ else if (obj == H5T_NATIVE_LDOUBLE_g)
HDfprintf(out, "H5T_NATIVE_LDOUBLE");
#endif
- else if(obj == H5T_IEEE_F32BE_g)
+ else if (obj == H5T_IEEE_F32BE_g)
HDfprintf(out, "H5T_IEEE_F32BE");
- else if(obj == H5T_IEEE_F32LE_g)
+ else if (obj == H5T_IEEE_F32LE_g)
HDfprintf(out, "H5T_IEEE_F32LE");
- else if(obj == H5T_IEEE_F64BE_g)
+ else if (obj == H5T_IEEE_F64BE_g)
HDfprintf(out, "H5T_IEEE_F64BE");
- else if(obj == H5T_IEEE_F64LE_g)
+ else if (obj == H5T_IEEE_F64LE_g)
HDfprintf(out, "H5T_IEEE_F64LE");
- else if(obj == H5T_STD_I8BE_g)
+ else if (obj == H5T_STD_I8BE_g)
HDfprintf(out, "H5T_STD_I8BE");
- else if(obj == H5T_STD_I8LE_g)
+ else if (obj == H5T_STD_I8LE_g)
HDfprintf(out, "H5T_STD_I8LE");
- else if(obj == H5T_STD_I16BE_g)
+ else if (obj == H5T_STD_I16BE_g)
HDfprintf(out, "H5T_STD_I16BE");
- else if(obj == H5T_STD_I16LE_g)
+ else if (obj == H5T_STD_I16LE_g)
HDfprintf(out, "H5T_STD_I16LE");
- else if(obj == H5T_STD_I32BE_g)
+ else if (obj == H5T_STD_I32BE_g)
HDfprintf(out, "H5T_STD_I32BE");
- else if(obj == H5T_STD_I32LE_g)
+ else if (obj == H5T_STD_I32LE_g)
HDfprintf(out, "H5T_STD_I32LE");
- else if(obj == H5T_STD_I64BE_g)
+ else if (obj == H5T_STD_I64BE_g)
HDfprintf(out, "H5T_STD_I64BE");
- else if(obj == H5T_STD_I64LE_g)
+ else if (obj == H5T_STD_I64LE_g)
HDfprintf(out, "H5T_STD_I64LE");
- else if(obj == H5T_STD_U8BE_g)
+ else if (obj == H5T_STD_U8BE_g)
HDfprintf(out, "H5T_STD_U8BE");
- else if(obj == H5T_STD_U8LE_g)
+ else if (obj == H5T_STD_U8LE_g)
HDfprintf(out, "H5T_STD_U8LE");
- else if(obj == H5T_STD_U16BE_g)
+ else if (obj == H5T_STD_U16BE_g)
HDfprintf(out, "H5T_STD_U16BE");
- else if(obj == H5T_STD_U16LE_g)
+ else if (obj == H5T_STD_U16LE_g)
HDfprintf(out, "H5T_STD_U16LE");
- else if(obj == H5T_STD_U32BE_g)
+ else if (obj == H5T_STD_U32BE_g)
HDfprintf(out, "H5T_STD_U32BE");
- else if(obj == H5T_STD_U32LE_g)
+ else if (obj == H5T_STD_U32LE_g)
HDfprintf(out, "H5T_STD_U32LE");
- else if(obj == H5T_STD_U64BE_g)
+ else if (obj == H5T_STD_U64BE_g)
HDfprintf(out, "H5T_STD_U64BE");
- else if(obj == H5T_STD_U64LE_g)
+ else if (obj == H5T_STD_U64LE_g)
HDfprintf(out, "H5T_STD_U64LE");
- else if(obj == H5T_STD_B8BE_g)
+ else if (obj == H5T_STD_B8BE_g)
HDfprintf(out, "H5T_STD_B8BE");
- else if(obj == H5T_STD_B8LE_g)
+ else if (obj == H5T_STD_B8LE_g)
HDfprintf(out, "H5T_STD_B8LE");
- else if(obj == H5T_STD_B16BE_g)
+ else if (obj == H5T_STD_B16BE_g)
HDfprintf(out, "H5T_STD_B16BE");
- else if(obj == H5T_STD_B16LE_g)
+ else if (obj == H5T_STD_B16LE_g)
HDfprintf(out, "H5T_STD_B16LE");
- else if(obj == H5T_STD_B32BE_g)
+ else if (obj == H5T_STD_B32BE_g)
HDfprintf(out, "H5T_STD_B32BE");
- else if(obj == H5T_STD_B32LE_g)
+ else if (obj == H5T_STD_B32LE_g)
HDfprintf(out, "H5T_STD_B32LE");
- else if(obj == H5T_STD_B64BE_g)
+ else if (obj == H5T_STD_B64BE_g)
HDfprintf(out, "H5T_STD_B64BE");
- else if(obj == H5T_STD_B64LE_g)
+ else if (obj == H5T_STD_B64LE_g)
HDfprintf(out, "H5T_STD_B64LE");
- else if(obj == H5T_C_S1_g)
+ else if (obj == H5T_C_S1_g)
HDfprintf(out, "H5T_C_S1");
- else if(obj == H5T_FORTRAN_S1_g)
+ else if (obj == H5T_FORTRAN_S1_g)
HDfprintf(out, "H5T_FORTRAN_S1");
else
HDfprintf(out, "%ld (dtype)", (long)obj);
@@ -1322,8 +1323,8 @@ H5_trace(const double *returning, const char *func, const char *type, ...)
{
H5S_t *space;
- if(NULL != (space = (H5S_t *)H5I_object(obj)))
- if(H5S_SIMPLE == H5S_GET_EXTENT_TYPE(space))
+ if (NULL != (space = (H5S_t *)H5I_object(obj)))
+ if (H5S_SIMPLE == H5S_GET_EXTENT_TYPE(space))
asize[argno] = H5S_GET_EXTENT_NDIMS(space);
}
break;
@@ -1372,15 +1373,15 @@ H5_trace(const double *returning, const char *func, const char *type, ...)
HDfprintf(out, "%ld (unknown class)", (long)obj);
break;
} /* end switch */
- } /* end else */
- } /* end else */
+ } /* end else */
+ } /* end else */
break;
case 'I':
switch (type[1]) {
case 'i':
- if(ptr) {
- if(vp)
+ if (ptr) {
+ if (vp)
HDfprintf(out, "0x%p", vp);
else
HDfprintf(out, "NULL");
@@ -1388,7 +1389,7 @@ H5_trace(const double *returning, const char *func, const char *type, ...)
else {
H5_index_t idx_type = (H5_index_t)HDva_arg(ap, int);
- switch(idx_type) {
+ switch (idx_type) {
case H5_INDEX_UNKNOWN:
HDfprintf(out, "H5_INDEX_UNKNOWN");
break;
@@ -1409,12 +1410,12 @@ H5_trace(const double *returning, const char *func, const char *type, ...)
HDfprintf(out, "%ld", (long)idx_type);
break;
} /* end switch */
- } /* end else */
+ } /* end else */
break;
case 'o':
- if(ptr) {
- if(vp)
+ if (ptr) {
+ if (vp)
HDfprintf(out, "0x%p", vp);
else
HDfprintf(out, "NULL");
@@ -1422,7 +1423,7 @@ H5_trace(const double *returning, const char *func, const char *type, ...)
else {
H5_iter_order_t order = (H5_iter_order_t)HDva_arg(ap, int);
- switch(order) {
+ switch (order) {
case H5_ITER_UNKNOWN:
HDfprintf(out, "H5_ITER_UNKNOWN");
break;
@@ -1447,22 +1448,22 @@ H5_trace(const double *returning, const char *func, const char *type, ...)
HDfprintf(out, "%ld", (long)order);
break;
} /* end switch */
- } /* end else */
+ } /* end else */
break;
case 's':
- if(ptr) {
- if(vp) {
+ if (ptr) {
+ if (vp) {
HDfprintf(out, "0x%p", vp);
- if(asize_idx >= 0 && asize[asize_idx] >= 0) {
- int *p = (int*)vp;
+ if (asize_idx >= 0 && asize[asize_idx] >= 0) {
+ int *p = (int *)vp;
HDfprintf(out, " {");
- for(i = 0; i < asize[asize_idx]; i++)
+ for (i = 0; i < asize[asize_idx]; i++)
HDfprintf(out, "%s%d", (i ? ", " : ""), p[i]);
HDfprintf(out, "}");
} /* end if */
- } /* end if */
+ } /* end if */
else
HDfprintf(out, "NULL");
} /* end if */
@@ -1475,8 +1476,8 @@ H5_trace(const double *returning, const char *func, const char *type, ...)
break;
case 't':
- if(ptr) {
- if(vp)
+ if (ptr) {
+ if (vp)
HDfprintf(out, "0x%p", vp);
else
HDfprintf(out, "NULL");
@@ -1553,22 +1554,22 @@ H5_trace(const double *returning, const char *func, const char *type, ...)
HDfprintf(out, "%ld", (long)id_type);
break;
} /* end switch */
- } /* end else */
+ } /* end else */
break;
case 'u':
- if(ptr) {
- if(vp) {
+ if (ptr) {
+ if (vp) {
HDfprintf(out, "0x%p", vp);
- if(asize_idx >= 0 && asize[asize_idx] >= 0) {
- unsigned *p = (unsigned*)vp;
+ if (asize_idx >= 0 && asize[asize_idx] >= 0) {
+ unsigned *p = (unsigned *)vp;
HDfprintf(out, " {");
- for(i = 0; i < asize[asize_idx]; i++)
- HDfprintf(out, "%s%u", i?", ":"", p[i]);
+ for (i = 0; i < asize[asize_idx]; i++)
+ HDfprintf(out, "%s%u", i ? ", " : "", p[i]);
HDfprintf(out, "}");
} /* end if */
- } /* end if */
+ } /* end if */
else
HDfprintf(out, "NULL");
} /* end if */
@@ -1587,10 +1588,10 @@ H5_trace(const double *returning, const char *func, const char *type, ...)
break;
case 'L':
- switch(type[1]) {
+ switch (type[1]) {
case 'l':
- if(ptr) {
- if(vp)
+ if (ptr) {
+ if (vp)
HDfprintf(out, "0x%p", vp);
else
HDfprintf(out, "NULL");
@@ -1598,7 +1599,7 @@ H5_trace(const double *returning, const char *func, const char *type, ...)
else {
H5L_type_t link_type = (H5L_type_t)HDva_arg(ap, int);
- switch(link_type) {
+ switch (link_type) {
case H5L_TYPE_ERROR:
HDfprintf(out, "H5L_TYPE_ERROR");
break;
@@ -1623,7 +1624,7 @@ H5_trace(const double *returning, const char *func, const char *type, ...)
HDfprintf(out, "%ld", (long)link_type);
break;
} /* end switch */
- } /* end else */
+ } /* end else */
break;
default:
@@ -1633,10 +1634,10 @@ H5_trace(const double *returning, const char *func, const char *type, ...)
break;
case 'M':
- switch(type[1]) {
+ switch (type[1]) {
case 'c':
- if(ptr) {
- if(vp)
+ if (ptr) {
+ if (vp)
HDfprintf(out, "0x%p", vp);
else
HDfprintf(out, "NULL");
@@ -1647,12 +1648,12 @@ H5_trace(const double *returning, const char *func, const char *type, ...)
HDfprintf(out, "%ld", (long)comm);
} /* end else */
-#endif /* H5_HAVE_PARALLEL */
+#endif /* H5_HAVE_PARALLEL */
break;
case 'i':
- if(ptr) {
- if(vp)
+ if (ptr) {
+ if (vp)
HDfprintf(out, "0x%p", vp);
else
HDfprintf(out, "NULL");
@@ -1663,12 +1664,12 @@ H5_trace(const double *returning, const char *func, const char *type, ...)
HDfprintf(out, "%ld", (long)info);
} /* end else */
-#endif /* H5_HAVE_PARALLEL */
+#endif /* H5_HAVE_PARALLEL */
break;
case 't':
- if(ptr) {
- if(vp)
+ if (ptr) {
+ if (vp)
HDfprintf(out, "0x%p", vp);
else
HDfprintf(out, "NULL");
@@ -1676,7 +1677,7 @@ H5_trace(const double *returning, const char *func, const char *type, ...)
else {
H5FD_mem_t mt = (H5FD_mem_t)HDva_arg(ap, int);
- switch(mt) {
+ switch (mt) {
case H5FD_MEM_NOLIST:
HDfprintf(out, "H5FD_MEM_NOLIST");
break;
@@ -1717,7 +1718,7 @@ H5_trace(const double *returning, const char *func, const char *type, ...)
HDfprintf(out, "%ld", (long)mt);
break;
} /* end switch */
- } /* end else */
+ } /* end else */
break;
default:
@@ -1726,8 +1727,8 @@ H5_trace(const double *returning, const char *func, const char *type, ...)
break;
case 'o':
- if(ptr) {
- if(vp)
+ if (ptr) {
+ if (vp)
HDfprintf(out, "0x%p", vp);
else
HDfprintf(out, "NULL");
@@ -1740,10 +1741,10 @@ H5_trace(const double *returning, const char *func, const char *type, ...)
break;
case 'O':
- switch(type[1]) {
+ switch (type[1]) {
case 't':
- if(ptr) {
- if(vp)
+ if (ptr) {
+ if (vp)
HDfprintf(out, "0x%p", vp);
else
HDfprintf(out, "NULL");
@@ -1751,7 +1752,7 @@ H5_trace(const double *returning, const char *func, const char *type, ...)
else {
H5O_type_t objtype = (H5O_type_t)HDva_arg(ap, int);
- switch(objtype) {
+ switch (objtype) {
case H5O_TYPE_UNKNOWN:
HDfprintf(out, "H5O_TYPE_UNKNOWN");
break;
@@ -1776,7 +1777,7 @@ H5_trace(const double *returning, const char *func, const char *type, ...)
HDfprintf(out, "BADTYPE(%ld)", (long)objtype);
break;
} /* end switch */
- } /* end else */
+ } /* end else */
break;
default:
@@ -1786,21 +1787,21 @@ H5_trace(const double *returning, const char *func, const char *type, ...)
break;
case 'p':
- if(ptr) {
- if(vp)
+ if (ptr) {
+ if (vp)
HDfprintf(out, "0x%p", vp);
else
HDfprintf(out, "NULL");
} /* end if */
else {
- hid_t pclass_id = HDva_arg(ap, hid_t);
- char *class_name = NULL;
+ hid_t pclass_id = HDva_arg(ap, hid_t);
+ char * class_name = NULL;
H5P_genclass_t *pclass;
/* Get the class name and print it */
/* (This may generate recursive call to the library... -QAK) */
- if(NULL != (pclass = (H5P_genclass_t *)H5I_object(pclass_id)) &&
- NULL != (class_name = H5P_get_class_name(pclass))) {
+ if (NULL != (pclass = (H5P_genclass_t *)H5I_object(pclass_id)) &&
+ NULL != (class_name = H5P_get_class_name(pclass))) {
HDfprintf(out, "%s", class_name);
H5MM_xfree(class_name);
} /* end if */
@@ -1810,8 +1811,8 @@ H5_trace(const double *returning, const char *func, const char *type, ...)
break;
case 'r':
- if(ptr) {
- if(vp)
+ if (ptr) {
+ if (vp)
HDfprintf(out, "0x%p", vp);
else
HDfprintf(out, "NULL");
@@ -1824,10 +1825,10 @@ H5_trace(const double *returning, const char *func, const char *type, ...)
break;
case 'R':
- switch(type[1]) {
+ switch (type[1]) {
case 't':
- if(ptr) {
- if(vp)
+ if (ptr) {
+ if (vp)
HDfprintf(out, "0x%p", vp);
else
HDfprintf(out, "NULL");
@@ -1835,7 +1836,7 @@ H5_trace(const double *returning, const char *func, const char *type, ...)
else {
H5R_type_t reftype = (H5R_type_t)HDva_arg(ap, int);
- switch(reftype) {
+ switch (reftype) {
case H5R_BADTYPE:
HDfprintf(out, "H5R_BADTYPE");
break;
@@ -1856,7 +1857,7 @@ H5_trace(const double *returning, const char *func, const char *type, ...)
HDfprintf(out, "BADTYPE(%ld)", (long)reftype);
break;
} /* end switch */
- } /* end else */
+ } /* end else */
break;
default:
@@ -1866,10 +1867,10 @@ H5_trace(const double *returning, const char *func, const char *type, ...)
break;
case 'S':
- switch(type[1]) {
+ switch (type[1]) {
case 'c':
- if(ptr) {
- if(vp)
+ if (ptr) {
+ if (vp)
HDfprintf(out, "0x%p", vp);
else
HDfprintf(out, "NULL");
@@ -1877,7 +1878,7 @@ H5_trace(const double *returning, const char *func, const char *type, ...)
else {
H5S_class_t cls = (H5S_class_t)HDva_arg(ap, int);
- switch(cls) {
+ switch (cls) {
case H5S_NO_CLASS:
HDfprintf(out, "H5S_NO_CLASS");
break;
@@ -1898,12 +1899,12 @@ H5_trace(const double *returning, const char *func, const char *type, ...)
HDfprintf(out, "%ld", (long)cls);
break;
} /* end switch */
- } /* end else */
+ } /* end else */
break;
case 's':
- if(ptr) {
- if(vp)
+ if (ptr) {
+ if (vp)
HDfprintf(out, "0x%p", vp);
else
HDfprintf(out, "NULL");
@@ -1911,7 +1912,7 @@ H5_trace(const double *returning, const char *func, const char *type, ...)
else {
H5S_seloper_t so = (H5S_seloper_t)HDva_arg(ap, int);
- switch(so) {
+ switch (so) {
case H5S_SELECT_NOOP:
HDfprintf(out, "H5S_NOOP");
break;
@@ -1956,12 +1957,12 @@ H5_trace(const double *returning, const char *func, const char *type, ...)
HDfprintf(out, "%ld", (long)so);
break;
} /* end switch */
- } /* end else */
+ } /* end else */
break;
case 't':
- if(ptr) {
- if(vp)
+ if (ptr) {
+ if (vp)
HDfprintf(out, "0x%p", vp);
else
HDfprintf(out, "NULL");
@@ -1969,7 +1970,7 @@ H5_trace(const double *returning, const char *func, const char *type, ...)
else {
H5S_sel_type st = (H5S_sel_type)HDva_arg(ap, int);
- switch(st) {
+ switch (st) {
case H5S_SEL_ERROR:
HDfprintf(out, "H5S_SEL_ERROR");
break;
@@ -1998,7 +1999,7 @@ H5_trace(const double *returning, const char *func, const char *type, ...)
HDfprintf(out, "%ld", (long)st);
break;
} /* end switch */
- } /* end else */
+ } /* end else */
break;
default:
@@ -2008,8 +2009,8 @@ H5_trace(const double *returning, const char *func, const char *type, ...)
break;
case 's':
- if(ptr) {
- if(vp)
+ if (ptr) {
+ if (vp)
HDfprintf(out, "0x%p", vp);
else
HDfprintf(out, "NULL");
@@ -2022,10 +2023,10 @@ H5_trace(const double *returning, const char *func, const char *type, ...)
break;
case 'T':
- switch(type[1]) {
+ switch (type[1]) {
case 'c':
- if(ptr) {
- if(vp)
+ if (ptr) {
+ if (vp)
HDfprintf(out, "0x%p", vp);
else
HDfprintf(out, "NULL");
@@ -2033,7 +2034,7 @@ H5_trace(const double *returning, const char *func, const char *type, ...)
else {
H5T_cset_t cset = (H5T_cset_t)HDva_arg(ap, int);
- switch(cset) {
+ switch (cset) {
case H5T_CSET_ERROR:
HDfprintf(out, "H5T_CSET_ERROR");
break;
@@ -2067,12 +2068,12 @@ H5_trace(const double *returning, const char *func, const char *type, ...)
HDfprintf(out, "%ld", (long)cset);
break;
} /* end switch */
- } /* end else */
+ } /* end else */
break;
case 'd':
- if(ptr) {
- if(vp)
+ if (ptr) {
+ if (vp)
HDfprintf(out, "0x%p", vp);
else
HDfprintf(out, "NULL");
@@ -2080,7 +2081,7 @@ H5_trace(const double *returning, const char *func, const char *type, ...)
else {
H5T_direction_t direct = (H5T_direction_t)HDva_arg(ap, int);
- switch(direct) {
+ switch (direct) {
case H5T_DIR_DEFAULT:
HDfprintf(out, "H5T_DIR_DEFAULT");
break;
@@ -2097,12 +2098,12 @@ H5_trace(const double *returning, const char *func, const char *type, ...)
HDfprintf(out, "%ld", (long)direct);
break;
} /* end switch */
- } /* end else */
+ } /* end else */
break;
case 'e':
- if(ptr) {
- if(vp)
+ if (ptr) {
+ if (vp)
HDfprintf(out, "0x%p", vp);
else
HDfprintf(out, "NULL");
@@ -2110,7 +2111,7 @@ H5_trace(const double *returning, const char *func, const char *type, ...)
else {
H5T_pers_t pers = (H5T_pers_t)HDva_arg(ap, int);
- switch(pers) {
+ switch (pers) {
case H5T_PERS_DONTCARE:
HDfprintf(out, "H5T_PERS_DONTCARE");
break;
@@ -2127,12 +2128,12 @@ H5_trace(const double *returning, const char *func, const char *type, ...)
HDfprintf(out, "%ld", (long)pers);
break;
} /* end switch */
- } /* end else */
+ } /* end else */
break;
case 'n':
- if(ptr) {
- if(vp)
+ if (ptr) {
+ if (vp)
HDfprintf(out, "0x%p", vp);
else
HDfprintf(out, "NULL");
@@ -2140,7 +2141,7 @@ H5_trace(const double *returning, const char *func, const char *type, ...)
else {
H5T_norm_t norm = (H5T_norm_t)HDva_arg(ap, int);
- switch(norm) {
+ switch (norm) {
case H5T_NORM_ERROR:
HDfprintf(out, "H5T_NORM_ERROR");
break;
@@ -2161,12 +2162,12 @@ H5_trace(const double *returning, const char *func, const char *type, ...)
HDfprintf(out, "%ld", (long)norm);
break;
} /* end switch */
- } /* end else */
+ } /* end else */
break;
case 'o':
- if(ptr) {
- if(vp)
+ if (ptr) {
+ if (vp)
HDfprintf(out, "0x%p", vp);
else
HDfprintf(out, "NULL");
@@ -2174,7 +2175,7 @@ H5_trace(const double *returning, const char *func, const char *type, ...)
else {
H5T_order_t order = (H5T_order_t)HDva_arg(ap, int);
- switch(order) {
+ switch (order) {
case H5T_ORDER_ERROR:
HDfprintf(out, "H5T_ORDER_ERROR");
break;
@@ -2203,12 +2204,12 @@ H5_trace(const double *returning, const char *func, const char *type, ...)
HDfprintf(out, "%ld", (long)order);
break;
} /* end switch */
- } /* end else */
+ } /* end else */
break;
case 'p':
- if(ptr) {
- if(vp)
+ if (ptr) {
+ if (vp)
HDfprintf(out, "0x%p", vp);
else
HDfprintf(out, "NULL");
@@ -2216,7 +2217,7 @@ H5_trace(const double *returning, const char *func, const char *type, ...)
else {
H5T_pad_t pad = (H5T_pad_t)HDva_arg(ap, int);
- switch(pad) {
+ switch (pad) {
case H5T_PAD_ERROR:
HDfprintf(out, "H5T_PAD_ERROR");
break;
@@ -2241,12 +2242,12 @@ H5_trace(const double *returning, const char *func, const char *type, ...)
HDfprintf(out, "%ld", (long)pad);
break;
} /* end switch */
- } /* end else */
+ } /* end else */
break;
case 's':
- if(ptr) {
- if(vp)
+ if (ptr) {
+ if (vp)
HDfprintf(out, "0x%p", vp);
else
HDfprintf(out, "NULL");
@@ -2254,7 +2255,7 @@ H5_trace(const double *returning, const char *func, const char *type, ...)
else {
H5T_sign_t sign = (H5T_sign_t)HDva_arg(ap, int);
- switch(sign) {
+ switch (sign) {
case H5T_SGN_ERROR:
HDfprintf(out, "H5T_SGN_ERROR");
break;
@@ -2275,12 +2276,12 @@ H5_trace(const double *returning, const char *func, const char *type, ...)
HDfprintf(out, "%ld", (long)sign);
break;
} /* end switch */
- } /* end else */
+ } /* end else */
break;
case 't':
- if(ptr) {
- if(vp)
+ if (ptr) {
+ if (vp)
HDfprintf(out, "0x%p", vp);
else
HDfprintf(out, "NULL");
@@ -2288,7 +2289,7 @@ H5_trace(const double *returning, const char *func, const char *type, ...)
else {
H5T_class_t type_class = (H5T_class_t)HDva_arg(ap, int);
- switch(type_class) {
+ switch (type_class) {
case H5T_NO_CLASS:
HDfprintf(out, "H5T_NO_CLASS");
break;
@@ -2345,12 +2346,12 @@ H5_trace(const double *returning, const char *func, const char *type, ...)
HDfprintf(out, "%ld", (long)type_class);
break;
} /* end switch */
- } /* end else */
+ } /* end else */
break;
case 'z':
- if(ptr) {
- if(vp)
+ if (ptr) {
+ if (vp)
HDfprintf(out, "0x%p", vp);
else
HDfprintf(out, "NULL");
@@ -2358,7 +2359,7 @@ H5_trace(const double *returning, const char *func, const char *type, ...)
else {
H5T_str_t str = (H5T_str_t)HDva_arg(ap, int);
- switch(str) {
+ switch (str) {
case H5T_STR_ERROR:
HDfprintf(out, "H5T_STR_ERROR");
break;
@@ -2388,14 +2389,14 @@ H5_trace(const double *returning, const char *func, const char *type, ...)
case H5T_STR_RESERVED_13:
case H5T_STR_RESERVED_14:
case H5T_STR_RESERVED_15:
- HDfprintf(out, "H5T_STR_RESERVED(%ld)",(long)str);
+ HDfprintf(out, "H5T_STR_RESERVED(%ld)", (long)str);
break;
default:
HDfprintf(out, "%ld", (long)str);
break;
} /* end switch */
- } /* end else */
+ } /* end else */
break;
default:
@@ -2405,18 +2406,18 @@ H5_trace(const double *returning, const char *func, const char *type, ...)
break;
case 't':
- if(ptr) {
- if(vp)
+ if (ptr) {
+ if (vp)
HDfprintf(out, "0x%p", vp);
else
HDfprintf(out, "NULL");
} /* end if */
else {
- htri_t tri_var = HDva_arg (ap, htri_t);
+ htri_t tri_var = HDva_arg(ap, htri_t);
- if(tri_var>0)
+ if (tri_var > 0)
HDfprintf(out, "TRUE");
- else if(!tri_var)
+ else if (!tri_var)
HDfprintf(out, "FALSE");
else
HDfprintf(out, "FAIL(%d)", (int)tri_var);
@@ -2424,20 +2425,20 @@ H5_trace(const double *returning, const char *func, const char *type, ...)
break;
case 'U':
- switch(type[1]) {
+ switch (type[1]) {
case 'l':
- if(ptr) {
- if(vp) {
+ if (ptr) {
+ if (vp) {
HDfprintf(out, "0x%p", vp);
- if(asize_idx >= 0 && asize[asize_idx] >= 0) {
+ if (asize_idx >= 0 && asize[asize_idx] >= 0) {
unsigned long *p = (unsigned long *)vp;
HDfprintf(out, " {");
- for(i = 0; i < asize[asize_idx]; i++)
- HDfprintf(out, "%s%lu", i?", ":"", p[i]);
+ for (i = 0; i < asize[asize_idx]; i++)
+ HDfprintf(out, "%s%lu", i ? ", " : "", p[i]);
HDfprintf(out, "}");
} /* end if */
- } /* end if */
+ } /* end if */
else
HDfprintf(out, "NULL");
} /* end if */
@@ -2450,18 +2451,18 @@ H5_trace(const double *returning, const char *func, const char *type, ...)
break;
case 'L':
- if(ptr) {
- if(vp) {
+ if (ptr) {
+ if (vp) {
HDfprintf(out, "0x%p", vp);
- if(asize_idx >= 0 && asize[asize_idx] >= 0) {
+ if (asize_idx >= 0 && asize[asize_idx] >= 0) {
unsigned long long *p = (unsigned long long *)vp;
HDfprintf(out, " {");
- for(i = 0; i < asize[asize_idx]; i++)
- HDfprintf(out, "%s%llu", i?", ":"", p[i]);
+ for (i = 0; i < asize[asize_idx]; i++)
+ HDfprintf(out, "%s%llu", i ? ", " : "", p[i]);
HDfprintf(out, "}");
} /* end if */
- } /* end if */
+ } /* end if */
else
HDfprintf(out, "NULL");
} /* end if */
@@ -2480,29 +2481,29 @@ H5_trace(const double *returning, const char *func, const char *type, ...)
break;
case 'x':
- if(ptr) {
- if(vp) {
+ if (ptr) {
+ if (vp) {
HDfprintf(out, "0x%p", vp);
- if(asize_idx >= 0 && asize[asize_idx] >= 0) {
- void **p = (void**)vp;
+ if (asize_idx >= 0 && asize[asize_idx] >= 0) {
+ void **p = (void **)vp;
HDfprintf(out, " {");
- for(i = 0; i < asize[asize_idx]; i++) {
- if(p[i])
+ for (i = 0; i < asize[asize_idx]; i++) {
+ if (p[i])
HDfprintf(out, "%s0x%p", (i ? ", " : ""), p[i]);
else
HDfprintf(out, "%sNULL", (i ? ", " : ""));
} /* end for */
HDfprintf(out, "}");
} /* end if */
- } /* end if */
+ } /* end if */
else
HDfprintf(out, "NULL");
} /* end if */
else {
- vp = HDva_arg (ap, void *);
+ vp = HDva_arg(ap, void *);
- if(vp)
+ if (vp)
HDfprintf(out, "0x%p", vp);
else
HDfprintf(out, "NULL");
@@ -2510,25 +2511,25 @@ H5_trace(const double *returning, const char *func, const char *type, ...)
break;
case 'z':
- if(ptr) {
- if(vp) {
+ if (ptr) {
+ if (vp) {
HDfprintf(out, "0x%p", vp);
- if(asize_idx >= 0 && asize[asize_idx] >= 0) {
+ if (asize_idx >= 0 && asize[asize_idx] >= 0) {
size_t *p = (size_t *)vp;
HDfprintf(out, " {");
- for(i = 0; i < asize[asize_idx]; i++)
- HDfprintf(out, "%s%Zu", (i ? ", " : ""), p[i]);
+ for (i = 0; i < asize[asize_idx]; i++)
+ HDfprintf(out, "%s%zu", (i ? ", " : ""), p[i]);
HDfprintf(out, "}");
} /* end if */
- } /* end if */
+ } /* end if */
else
HDfprintf(out, "NULL");
} /* end if */
else {
size_t size = HDva_arg(ap, size_t);
- HDfprintf(out, "%Zu", size);
+ HDfprintf(out, "%zu", size);
asize[argno] = (hssize_t)size;
} /* end else */
break;
@@ -2536,8 +2537,8 @@ H5_trace(const double *returning, const char *func, const char *type, ...)
case 'Z':
switch (type[1]) {
case 'a':
- if(ptr) {
- if(vp)
+ if (ptr) {
+ if (vp)
HDfprintf(out, "0x%p", vp);
else
HDfprintf(out, "NULL");
@@ -2545,7 +2546,7 @@ H5_trace(const double *returning, const char *func, const char *type, ...)
else {
H5Z_SO_scale_type_t scale_type = (H5Z_SO_scale_type_t)HDva_arg(ap, int);
- switch(scale_type) {
+ switch (scale_type) {
case H5Z_SO_FLOAT_DSCALE:
HDfprintf(out, "H5Z_SO_FLOAT_DSCALE");
break;
@@ -2562,26 +2563,26 @@ H5_trace(const double *returning, const char *func, const char *type, ...)
HDfprintf(out, "%ld", (long)scale_type);
break;
} /* end switch */
- } /* end else */
+ } /* end else */
break;
case 'c':
- if(ptr) {
- if(vp)
+ if (ptr) {
+ if (vp)
HDfprintf(out, "0x%p", vp);
else
HDfprintf(out, "NULL");
} /* end if */
else {
- H5Z_class2_t *filter = HDva_arg(ap, H5Z_class2_t*);
+ H5Z_class2_t *filter = HDva_arg(ap, H5Z_class2_t *);
- HDfprintf(out, "0x%p", filter);
+ HDfprintf(out, "0x%p", (void *)filter);
} /* end else */
break;
case 'e':
- if(ptr) {
- if(vp)
+ if (ptr) {
+ if (vp)
HDfprintf(out, "0x%p", vp);
else
HDfprintf(out, "NULL");
@@ -2589,7 +2590,7 @@ H5_trace(const double *returning, const char *func, const char *type, ...)
else {
H5Z_EDC_t edc = (H5Z_EDC_t)HDva_arg(ap, int);
- if(H5Z_DISABLE_EDC == edc)
+ if (H5Z_DISABLE_EDC == edc)
HDfprintf(out, "H5Z_DISABLE_EDC");
else if (H5Z_ENABLE_EDC == edc)
HDfprintf(out, "H5Z_ENABLE_EDC");
@@ -2599,8 +2600,8 @@ H5_trace(const double *returning, const char *func, const char *type, ...)
break;
case 'f':
- if(ptr) {
- if(vp)
+ if (ptr) {
+ if (vp)
HDfprintf(out, "0x%p", vp);
else
HDfprintf(out, "NULL");
@@ -2608,7 +2609,7 @@ H5_trace(const double *returning, const char *func, const char *type, ...)
else {
H5Z_filter_t id = HDva_arg(ap, H5Z_filter_t);
- if(H5Z_FILTER_DEFLATE == id)
+ if (H5Z_FILTER_DEFLATE == id)
HDfprintf(out, "H5Z_FILTER_DEFLATE");
else
HDfprintf(out, "%ld", (long)id);
@@ -2616,25 +2617,25 @@ H5_trace(const double *returning, const char *func, const char *type, ...)
break;
case 's':
- if(ptr) {
- if(vp) {
+ if (ptr) {
+ if (vp) {
HDfprintf(out, "0x%p", vp);
- if(asize_idx >= 0 && asize[asize_idx] >= 0) {
+ if (asize_idx >= 0 && asize[asize_idx] >= 0) {
ssize_t *p = (ssize_t *)vp;
HDfprintf(out, " {");
- for(i = 0; i < asize[asize_idx]; i++)
- HDfprintf(out, "%s%Zd", (i ? ", " : ""), p[i]);
+ for (i = 0; i < asize[asize_idx]; i++)
+ HDfprintf(out, "%s%zd", (i ? ", " : ""), p[i]);
HDfprintf(out, "}");
} /* end if */
- } /* end if */
+ } /* end if */
else
HDfprintf(out, "NULL");
} /* end if */
else {
ssize_t ssize = HDva_arg(ap, ssize_t);
- HDfprintf(out, "%Zd", ssize);
+ HDfprintf(out, "%zd", ssize);
asize[argno] = (hssize_t)ssize;
} /* end else */
break;
@@ -2646,25 +2647,25 @@ H5_trace(const double *returning, const char *func, const char *type, ...)
break;
default:
- if(HDisupper(type[0]))
+ if (HDisupper(type[0]))
HDfprintf(out, "BADTYPE(%c%c)", type[0], type[1]);
else
HDfprintf(out, "BADTYPE(%c)", type[0]);
goto error;
} /* end switch */
- } /* end for */
+ } /* end for */
/* Display event time for return */
- if(returning && H5_debug_g.ttimes) {
+ if (returning && H5_debug_g.ttimes) {
H5_timer_get_times(function_timer, &function_times);
H5_timer_get_times(running_timer, &running_times);
HDfprintf(out, " @%.6f [dt=%.6f]", (function_times.elapsed - running_times.elapsed),
- (function_times.elapsed - *returning));
+ (function_times.elapsed - *returning));
} /* end if */
error:
HDva_end(ap);
- if(returning)
+ if (returning)
HDfprintf(out, ";\n");
else {
last_call_depth = current_depth++;
@@ -2672,9 +2673,8 @@ error:
} /* end else */
HDfflush(out);
- if(H5_debug_g.ttimes)
+ if (H5_debug_g.ttimes)
return function_times.elapsed;
else
- return 0.0F;
+ return 0.0;
} /* end H5_trace() */
-
generated by cgit v0.12 at 2024-08-26 20:21:15 (GMT)