diff options
Diffstat (limited to 'src/H5trace.c')
| -rw-r--r-- | src/H5trace.c | 3998 |
1 files changed, 2098 insertions, 1900 deletions
diff --git a/src/H5trace.c b/src/H5trace.c index 3ee3c3c..8e645af 100644 --- a/src/H5trace.c +++ b/src/H5trace.c @@ -115,22 +115,10 @@ * Programmer: Robb Matzke * Tuesday, June 16, 1998 * - * Modifications: - * Robb Matzke, 1999-08-02 - * Added the `a' type letter for haddr_t arguments and `Mt' for - * H5FD_mem_t arguments. - * - * Robb Matzke, 1999-10-25 - * The `Ej' and `En' types are H5E_major_t and H5E_minor_t error - * types. We only print the integer value here. - * - * Robb Matzke, 2002-08-08 - * Better output for nested calls. Show only top-level calls - * if so desired. Show event times if so desired. *------------------------------------------------------------------------- */ double -H5_trace (const double *returning, const char *func, const char *type, ...) +H5_trace(const double *returning, const char *func, const char *type, ...) { va_list ap; char buf[64], *rest; @@ -141,39 +129,40 @@ H5_trace (const double *returning, const char *func, const char *type, ...) void *vp = NULL; FILE *out = H5_debug_g.trace; H5_timer_t event_time; - static H5_timer_t first_time = {(double)0.0, (double)0.0, (double)0.0}; + static H5_timer_t first_time = {0.0, 0.0, 0.0}; static int current_depth = 0; static int last_call_depth = 0; /* FUNC_ENTER() should not be called */ - if(!out) return (double)0.0; /*tracing is off*/ + if(!out) + return 0.0; /*tracing is off*/ va_start(ap, type); if(H5_debug_g.ttop) { if(returning) { if(current_depth > 1) { --current_depth; - return (double)0.0; - } - } else { + return 0.0; + } /* end if */ + } /* end if */ + else { if(current_depth > 0) { /*do not update last_call_depth*/ current_depth++; - return (double)0.0; - } - } - } + return 0.0; + } /* end if */ + } /* end else */ + } /* end if */ /* Get tim for event */ - if(fabs(first_time.etime) < (double)0.0000000001) + if(fabs(first_time.etime) < 0.0000000001) /* That is == 0.0, but direct comparison between floats is bad */ H5_timer_begin(&first_time); if(H5_debug_g.ttimes) H5_timer_begin(&event_time); - else { + else HDmemset(&event_time, 0, sizeof event_time); - } /* Print the first part of the line. This is the indication of the * nesting depth followed by the function name and either start of @@ -181,2019 +170,2228 @@ 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) { - assert(current_depth>0); + 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[128]; + sprintf(tmp, "%.6f", event_time.etime-first_time.etime); fprintf(out, " %*s ", (int)strlen(tmp), ""); - } - for (i=0; i<current_depth; i++) + } /* end if */ + for(i = 0; i < current_depth; i++) fputc('+', out); fprintf(out, "%*s%s = ", 2*current_depth, "", func); - } else { + } /* end if */ + else { /* Continue current line with return value */ fprintf(out, " = "); - } - } else { - if (current_depth>last_call_depth) + } /* end else */ + } /* end if */ + else { + if(current_depth>last_call_depth) fputs(" = <delayed>\n", out); - if (H5_debug_g.ttimes) - fprintf(out, "@%.6f ", event_time.etime-first_time.etime); - for (i=0; i<current_depth; i++) + if(H5_debug_g.ttimes) + fprintf(out, "@%.6f ", event_time.etime - first_time.etime); + for(i = 0; i < current_depth; i++) fputc('+', out); fprintf(out, "%*s%s(", 2*current_depth, "", func); - } + } /* end else */ /* Clear array sizes */ - for (i=0; i<(hssize_t)NELMTS(asize); i++) asize[i] = -1; + 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++) ptr++; - if ('['==*type) { - if ('a'==type[1]) { - asize_idx = (int)HDstrtol(type+2, &rest, 10); - assert(']'==*rest); - type = rest+1; + for(ptr = 0; '*' == *type; type++) + ptr++; + if('[' == *type) { + if('a' == type[1]) { + asize_idx = (int)HDstrtol(type + 2, &rest, 10); + HDassert(']'==*rest); + type = rest + 1; } else { rest = (char *)HDstrchr(type, ']'); - assert(rest); - type = rest+1; + HDassert(rest); + type = rest + 1; asize_idx = -1; } - } else { + } /* end if */ + else asize_idx = -1; - } /* * The argument name. Leave off the `_id' part. If the argument * name is the null pointer then don't print the argument or the * following `='. This is used for return values. */ - argname = va_arg (ap, char*); /*lint !e64 Type mismatch not really occuring */ - if (argname) { - unsigned n = (unsigned)MAX (0, (int)HDstrlen(argname)-3); /*lint !e666 Allow expression with side effects */ - 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 = va_arg(ap, char *); /*lint !e64 Type mismatch not really occuring */ + if(argname) { + unsigned n = (unsigned)MAX (0, (int)HDstrlen(argname) - 3); /*lint !e666 Allow expression with side effects */ + + 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; - } - fprintf (out, "%s%s=", argno?", ":"", argname); - } else { + } /* end if */ + fprintf(out, "%s%s=", argno?", ":"", argname); + } /* end if */ + else argname = ""; - } /* The value */ - if (ptr) vp = va_arg (ap, void*); /*lint !e64 Type mismatch not really occuring */ - switch (type[0]) { - case 'a': - if (ptr) { - if (vp) { - fprintf(out, "0x%lx", (unsigned long)vp); - } else { - fprintf(out, "NULL"); - } - } else { - haddr_t addr = va_arg(ap, haddr_t); /*lint !e732 Loss of sign not really occuring */ - HDfprintf(out, "%a", addr); - } - break; - - case 'b': - if (ptr) { - if (vp) { - fprintf (out, "0x%lx", (unsigned long)vp); - } else { - fprintf(out, "NULL"); - } - } else { - hbool_t bool_var = va_arg (ap, hbool_t); /*lint !e732 Loss of sign not really occuring */ - if (TRUE==bool_var) fprintf (out, "TRUE"); - else if (!bool_var) fprintf (out, "FALSE"); - else fprintf (out, "TRUE(%u)", (unsigned)bool_var); - } - break; - - case 'd': - if (ptr) { - if (vp) { - fprintf (out, "0x%lx", (unsigned long)vp); - } else { - fprintf(out, "NULL"); - } - } else { - double dbl = va_arg (ap, double); - fprintf (out, "%g", dbl); - } - break; - - case 'D': - switch(type[1]) { - case 'a': - if(ptr) { - if(vp) - fprintf (out, "0x%lx", (unsigned long)vp); - else - fprintf(out, "NULL"); - } /* end if */ - else { - H5D_alloc_time_t alloc_time = (H5D_alloc_time_t)va_arg(ap, int); + if(ptr) + vp = va_arg(ap, void *); /*lint !e64 Type mismatch not really occuring */ + switch(type[0]) { + case 'a': + if(ptr) { + if(vp) + fprintf(out, "0x%lx", (unsigned long)vp); + else + fprintf(out, "NULL"); + } /* end if */ + else { + haddr_t addr = va_arg(ap, haddr_t); /*lint !e732 Loss of sign not really occuring */ - switch(alloc_time) { - case H5D_ALLOC_TIME_ERROR: - fprintf(out, "H5D_ALLOC_TIME_ERROR"); - break; + HDfprintf(out, "%a", addr); + } /* end else */ + break; - case H5D_ALLOC_TIME_DEFAULT: - fprintf(out, "H5D_ALLOC_TIME_DEFAULT"); - break; + case 'b': + if(ptr) { + if(vp) + fprintf(out, "0x%lx", (unsigned long)vp); + else + fprintf(out, "NULL"); + } /* end if */ + else { + hbool_t bool_var = va_arg(ap, hbool_t); /*lint !e732 Loss of sign not really occuring */ + + if(TRUE == bool_var) + fprintf(out, "TRUE"); + else if(!bool_var) + fprintf(out, "FALSE"); + else + fprintf(out, "TRUE(%u)", (unsigned)bool_var); + } + break; - case H5D_ALLOC_TIME_EARLY: - fprintf(out, "H5D_ALLOC_TIME_EARLY"); - break; + case 'd': + if(ptr) { + if(vp) + fprintf(out, "0x%lx", (unsigned long)vp); + else + fprintf(out, "NULL"); + } /* end if */ + else { + double dbl = va_arg(ap, double); - case H5D_ALLOC_TIME_LATE: - fprintf(out, "H5D_ALLOC_TIME_LATE"); - break; + fprintf(out, "%g", dbl); + } /* end else */ + break; - case H5D_ALLOC_TIME_INCR: - fprintf(out, "H5D_ALLOC_TIME_INCR"); - break; + case 'D': + switch(type[1]) { + case 'a': + if(ptr) { + if(vp) + fprintf (out, "0x%lx", (unsigned long)vp); + else + fprintf(out, "NULL"); + } /* end if */ + else { + H5D_alloc_time_t alloc_time = (H5D_alloc_time_t)va_arg(ap, int); + + switch(alloc_time) { + case H5D_ALLOC_TIME_ERROR: + fprintf(out, "H5D_ALLOC_TIME_ERROR"); + break; + + case H5D_ALLOC_TIME_DEFAULT: + fprintf(out, "H5D_ALLOC_TIME_DEFAULT"); + break; + + case H5D_ALLOC_TIME_EARLY: + fprintf(out, "H5D_ALLOC_TIME_EARLY"); + break; + + case H5D_ALLOC_TIME_LATE: + fprintf(out, "H5D_ALLOC_TIME_LATE"); + break; + + case H5D_ALLOC_TIME_INCR: + fprintf(out, "H5D_ALLOC_TIME_INCR"); + break; + + default: + fprintf(out, "%ld", (long)alloc_time); + break; + } /* end switch */ + } /* end else */ + break; - default: - fprintf(out, "%ld", (long)alloc_time); - break; - } /* end switch */ - } /* end else */ - break; - - case 'c': - if(ptr) { - if(vp) - fprintf(out, "0x%lx", (unsigned long)vp); - else - fprintf(out, "NULL"); - } /* end if */ - else { - H5FD_mpio_collective_opt_t opt = (H5FD_mpio_collective_opt_t)va_arg(ap, int); + case 'c': + if(ptr) { + if(vp) + fprintf(out, "0x%lx", (unsigned long)vp); + else + fprintf(out, "NULL"); + } /* end if */ + else { + H5FD_mpio_collective_opt_t opt = (H5FD_mpio_collective_opt_t)va_arg(ap, int); + + switch(opt) { + case H5FD_MPIO_COLLECTIVE_IO: + fprintf(out, "H5FD_MPIO_COLLECTIVE_IO"); + break; + + case H5FD_MPIO_INDIVIDUAL_IO: + fprintf(out, "H5FD_MPIO_INDIVIDUAL_IO"); + break; + + default: + fprintf(out, "%ld", (long)opt); + break; + } /* end switch */ + } /* end else */ + break; - switch(opt) { - case H5FD_MPIO_COLLECTIVE_IO: - fprintf(out, "H5FD_MPIO_COLLECTIVE_IO"); - break; + case 'f': + if(ptr) { + if(vp) + fprintf(out, "0x%lx", (unsigned long)vp); + else + fprintf(out, "NULL"); + } /* end if */ + else { + H5D_fill_time_t fill_time = (H5D_fill_time_t)va_arg(ap, int); + + switch(fill_time) { + case H5D_FILL_TIME_ERROR: + fprintf(out, "H5D_FILL_TIME_ERROR"); + break; + + case H5D_FILL_TIME_ALLOC: + fprintf(out, "H5D_FILL_TIME_ALLOC"); + break; + + case H5D_FILL_TIME_NEVER: + fprintf(out, "H5D_FILL_TIME_NEVER"); + break; + + case H5D_FILL_TIME_IFSET: + fprintf(out, "H5D_FILL_TIME_IFSET"); + break; + + default: + fprintf(out, "%ld", (long)fill_time); + break; + } /* end switch */ + } /* end else */ + break; - case H5FD_MPIO_INDIVIDUAL_IO: - fprintf(out, "H5FD_MPIO_INDIVIDUAL_IO"); - break; + case 'F': + if(ptr) { + if(vp) + fprintf(out, "0x%lx", (unsigned long)vp); + else + fprintf(out, "NULL"); + } /* end if */ + else { + H5D_fill_value_t fill_value = (H5D_fill_value_t)va_arg(ap, int); + + switch(fill_value) { + case H5D_FILL_VALUE_ERROR: + fprintf(out, "H5D_FILL_VALUE_ERROR"); + break; + + case H5D_FILL_VALUE_UNDEFINED: + fprintf(out, "H5D_FILL_VALUE_UNDEFINED"); + break; + + case H5D_FILL_VALUE_DEFAULT: + fprintf(out, "H5D_FILL_VALUE_DEFAULT"); + break; + + case H5D_FILL_VALUE_USER_DEFINED: + fprintf(out, "H5D_FILL_VALUE_USER_DEFINED"); + break; + + default: + fprintf(out, "%ld", (long)fill_value); + break; + } /* end switch */ + } /* end else */ + break; - default: - fprintf(out, "%ld", (long)opt); - break; - } /* end switch */ - } /* end else */ - break; - - case 'f': - if(ptr) { - if(vp) - fprintf(out, "0x%lx", (unsigned long)vp); - else - fprintf(out, "NULL"); - } /* end if */ - else { - H5D_fill_time_t fill_time = (H5D_fill_time_t)va_arg(ap, int); + case 'h': + if(ptr) { + if(vp) + fprintf(out, "0x%lx", (unsigned long)vp); + else + fprintf(out, "NULL"); + } /* end if */ + else { + H5FD_mpio_chunk_opt_t opt = (H5FD_mpio_chunk_opt_t)va_arg(ap, int); + + switch(opt) { + case H5FD_MPIO_CHUNK_DEFAULT: + fprintf(out, "H5FD_MPIO_CHUNK_DEFAULT"); + break; + + case H5FD_MPIO_CHUNK_ONE_IO: + fprintf(out, "H5FD_MPIO_CHUNK_ONE_IO"); + break; + + case H5FD_MPIO_CHUNK_MULTI_IO: + fprintf(out, "H5FD_MPIO_CHUNK_MULTI_IO"); + break; + + default: + fprintf(out, "%ld", (long)opt); + break; + } /* end switch */ + } /* end else */ + break; - switch(fill_time) { - case H5D_FILL_TIME_ERROR: - fprintf(out, "H5D_FILL_TIME_ERROR"); - break; + case 'l': + if(ptr) { + if(vp) + fprintf(out, "0x%lx", (unsigned long)vp); + else + fprintf(out, "NULL"); + } /* end if */ + else { + H5D_layout_t layout = (H5D_layout_t)va_arg(ap, int); + + switch(layout) { + case H5D_LAYOUT_ERROR: + fprintf(out, "H5D_LAYOUT_ERROR"); + break; + + case H5D_COMPACT: + fprintf(out, "H5D_COMPACT"); + break; + + case H5D_CONTIGUOUS: + fprintf(out, "H5D_CONTIGUOUS"); + break; + + case H5D_CHUNKED: + fprintf(out, "H5D_CHUNKED"); + break; + + case H5D_NLAYOUTS: + fprintf(out, "H5D_NLAYOUTS"); + break; + + default: + fprintf(out, "%ld", (long)layout); + break; + } /* end switch */ + } /* end else */ + break; - case H5D_FILL_TIME_ALLOC: - fprintf(out, "H5D_FILL_TIME_ALLOC"); - break; + case 's': + if(ptr) { + if(vp) + fprintf(out, "0x%lx", (unsigned long)vp); + else + fprintf(out, "NULL"); + } /* end if */ + else { + H5D_space_status_t space_status = (H5D_space_status_t)va_arg(ap, int); + + switch(space_status) { + case H5D_SPACE_STATUS_NOT_ALLOCATED: + fprintf(out, "H5D_SPACE_STATUS_NOT_ALLOCATED"); + break; + + case H5D_SPACE_STATUS_PART_ALLOCATED: + fprintf(out, "H5D_SPACE_STATUS_PART_ALLOCATED"); + break; + + case H5D_SPACE_STATUS_ALLOCATED: + fprintf(out, "H5D_SPACE_STATUS_ALLOCATED"); + break; + + case H5D_SPACE_STATUS_ERROR: + fprintf(out, "H5D_SPACE_STATUS_ERROR"); + break; + + default: + fprintf(out, "%ld", (long)space_status); + break; + } /* end switch */ + } /* end else */ + break; - case H5D_FILL_TIME_NEVER: - fprintf(out, "H5D_FILL_TIME_NEVER"); - break; + case 't': + if(ptr) { + if(vp) + fprintf(out, "0x%lx", (unsigned long)vp); + else + fprintf(out, "NULL"); + } /* end if */ + else { + H5FD_mpio_xfer_t transfer = (H5FD_mpio_xfer_t)va_arg(ap, int); + + switch(transfer) { + case H5FD_MPIO_INDEPENDENT: + fprintf(out, "H5FD_MPIO_INDEPENDENT"); + break; + + case H5FD_MPIO_COLLECTIVE: + fprintf(out, "H5FD_MPIO_COLLECTIVE"); + break; + + default: + fprintf(out, "%ld", (long)transfer); + break; + } /* end switch */ + } /* end else */ + break; - case H5D_FILL_TIME_IFSET: - fprintf(out, "H5D_FILL_TIME_IFSET"); - break; + default: + fprintf (out, "BADTYPE(D%c)", type[1]); + goto error; + } /* end switch */ + break; - default: - fprintf(out, "%ld", (long)fill_time); - break; - } /* end switch */ - } /* end else */ - break; - - case 'F': - if(ptr) { - if(vp) - fprintf(out, "0x%lx", (unsigned long)vp); - else - fprintf(out, "NULL"); - } /* end if */ - else { - H5D_fill_value_t fill_value = (H5D_fill_value_t)va_arg(ap, int); + case 'e': + if(ptr) { + if(vp) + fprintf(out, "0x%lx", (unsigned long)vp); + else + fprintf(out, "NULL"); + } /* end if */ + else { + herr_t status = va_arg(ap, herr_t); - switch(fill_value) { - case H5D_FILL_VALUE_ERROR: - fprintf(out, "H5D_FILL_VALUE_ERROR"); - break; + if(status >= 0) + fprintf(out, "SUCCEED"); + else + fprintf(out, "FAIL"); + } /* end else */ + break; - case H5D_FILL_VALUE_UNDEFINED: - fprintf(out, "H5D_FILL_VALUE_UNDEFINED"); - break; + case 'E': + switch(type[1]) { + case 'd': + if(ptr) { + if(vp) + fprintf(out, "0x%lx", (unsigned long)vp); + else + fprintf(out, "NULL"); + } /* end if */ + else { + H5E_direction_t direction = (H5E_direction_t)va_arg(ap, int); + + switch(direction) { + case H5E_WALK_UPWARD: + fprintf(out, "H5E_WALK_UPWARD"); + break; + + case H5E_WALK_DOWNWARD: + fprintf(out, "H5E_WALK_DOWNWARD"); + break; + + default: + fprintf(out, "%ld", (long)direction); + break; + } /* end switch */ + } /* end else */ + break; - case H5D_FILL_VALUE_DEFAULT: - fprintf(out, "H5D_FILL_VALUE_DEFAULT"); - break; + case 'e': + if(ptr) { + if(vp) + fprintf(out, "0x%lx", (unsigned long)vp); + else + fprintf(out, "NULL"); + } /* end if */ + else { + H5E_error2_t *error = va_arg(ap, H5E_error2_t *); /*lint !e64 Type mismatch not really occuring */ - case H5D_FILL_VALUE_USER_DEFINED: - fprintf(out, "H5D_FILL_VALUE_USER_DEFINED"); - break; + fprintf(out, "0x%lx", (unsigned long)error); + } /* end else */ + break; - default: - fprintf(out, "%ld", (long)fill_value); - break; - } /* end switch */ - } /* end else */ - break; - - case 'h': - if(ptr) { - if(vp) - fprintf(out, "0x%lx", (unsigned long)vp); - else - fprintf(out, "NULL"); - } /* end if */ - else { - H5FD_mpio_chunk_opt_t opt = (H5FD_mpio_chunk_opt_t)va_arg(ap, int); + case 't': + if(ptr) { + if(vp) + fprintf(out, "0x%lx", (unsigned long)vp); + else + fprintf(out, "NULL"); + } /* end if */ + else { + H5E_type_t etype = (H5E_type_t)va_arg(ap, int); + + switch(etype) { + case H5E_MAJOR: + fprintf(out, "H5E_MAJOR"); + break; + + case H5E_MINOR: + fprintf(out, "H5E_MINOR"); + break; + + default: + fprintf(out, "%ld", (long)etype); + break; + } /* end switch */ + } /* end else */ + break; - switch(opt) { - case H5FD_MPIO_CHUNK_DEFAULT: - fprintf(out, "H5FD_MPIO_CHUNK_DEFAULT"); - break; + default: + fprintf(out, "BADTYPE(E%c)", type[1]); + goto error; + } /* end switch */ + break; - case H5FD_MPIO_CHUNK_ONE_IO: - fprintf(out, "H5FD_MPIO_CHUNK_ONE_IO"); - break; + case 'F': + switch(type[1]) { + case 'd': + if(ptr) { + if(vp) + fprintf(out, "0x%lx", (unsigned long)vp); + else + fprintf(out, "NULL"); + } /* end if */ + else { + H5F_close_degree_t degree = (H5F_close_degree_t)va_arg(ap, int); + + switch(degree) { + case H5F_CLOSE_DEFAULT: + fprintf(out, "H5F_CLOSE_DEFAULT"); + break; + + case H5F_CLOSE_WEAK: + fprintf(out, "H5F_CLOSE_WEAK"); + break; + + case H5F_CLOSE_SEMI: + fprintf(out, "H5F_CLOSE_SEMI"); + break; + + case H5F_CLOSE_STRONG: + fprintf(out, "H5F_CLOSE_STRONG"); + break; + + default: + fprintf(out, "%ld", (long)degree); + break; + } /* end switch */ + } /* end else */ + break; - case H5FD_MPIO_CHUNK_MULTI_IO: - fprintf(out, "H5FD_MPIO_CHUNK_MULTI_IO"); - break; + case 'f': + if(ptr) { + if(vp) + fprintf(out, "0x%lx", (unsigned long)vp); + else + fprintf(out, "NULL"); + } /* end if */ + else { + H5F_file_space_type_t fs_type = (H5F_file_space_type_t)va_arg(ap, int); + + switch(fs_type) { + case H5F_FILE_SPACE_DEFAULT: + fprintf(out, "H5F_FILE_SPACE_DEFAULT"); + break; + + case H5F_FILE_SPACE_ALL_PERSIST: + fprintf(out, "H5F_FILE_SPACE_ALL_PERSIST"); + break; + + case H5F_FILE_SPACE_ALL: + fprintf(out, "H5F_FILE_SPACE_ALL"); + break; + + case H5F_FILE_SPACE_AGGR_VFD: + fprintf(out, "H5F_FILE_SPACE_AGGR_VFD"); + break; + + case H5F_FILE_SPACE_VFD: + fprintf(out, "H5F_FILE_SPACE_VFD"); + break; + + case H5F_FILE_SPACE_NTYPES: + default: + fprintf(out, "%ld", (long)fs_type); + break; + } /* end switch */ + } /* end else */ + break; - default: - fprintf(out, "%ld", (long)opt); - break; - } /* end switch */ - } /* end else */ - break; - - case 'l': - if (ptr) { - if (vp) { - fprintf (out, "0x%lx", (unsigned long)vp); - } else { - fprintf(out, "NULL"); - } - } else { - H5D_layout_t layout = va_arg(ap, H5D_layout_t); /*lint !e64 Type mismatch not really occuring */ - switch (layout) { - case H5D_LAYOUT_ERROR: - fprintf (out, "H5D_LAYOUT_ERROR"); - break; - case H5D_COMPACT: - fprintf (out, "H5D_COMPACT"); - break; - case H5D_CONTIGUOUS: - fprintf (out, "H5D_CONTIGUOUS"); - break; - case H5D_CHUNKED: - fprintf (out, "H5D_CHUNKED"); - break; - case H5D_NLAYOUTS: - fprintf (out, "H5D_NLAYOUTS"); - break; - default: - fprintf (out, "%ld", (long)layout); - break; - } - } - break; - - case 's': - if (ptr) { - if (vp) { - fprintf (out, "0x%lx", (unsigned long)vp); - } else { - fprintf(out, "NULL"); - } - } else { - H5D_space_status_t space_status = va_arg(ap, H5D_space_status_t); /*lint !e64 Type mismatch not really occuring */ - switch(space_status) { - case H5D_SPACE_STATUS_NOT_ALLOCATED: - fprintf (out, "H5D_SPACE_STATUS_NOT_ALLOCATED"); - break; - case H5D_SPACE_STATUS_PART_ALLOCATED: - fprintf (out, "H5D_SPACE_STATUS_PART_ALLOCATED"); - break; - case H5D_SPACE_STATUS_ALLOCATED: - fprintf (out, "H5D_SPACE_STATUS_ALLOCATED"); - break; - case H5D_SPACE_STATUS_ERROR: - fprintf (out, "H5D_SPACE_STATUS_ERROR"); - break; - default: - fprintf (out, "%ld", (long)space_status); - break; - } - } - break; - - case 't': - if (ptr) { - if (vp) { - fprintf (out, "0x%lx", (unsigned long)vp); - } else { - fprintf(out, "NULL"); - } - } else { - H5FD_mpio_xfer_t transfer = va_arg(ap, H5FD_mpio_xfer_t); /*lint !e64 Type mismatch not really occuring */ - switch (transfer) { - case H5FD_MPIO_INDEPENDENT: - fprintf (out, "H5FD_MPIO_INDEPENDENT"); - break; - case H5FD_MPIO_COLLECTIVE: - fprintf (out, "H5FD_MPIO_COLLECTIVE"); - break; - default: - fprintf (out, "%ld", (long)transfer); - break; - } - } - break; - - default: - fprintf (out, "BADTYPE(D%c)", type[1]); - goto error; - } /* end switch */ - break; - - case 'e': - if (ptr) { - if (vp) { - fprintf (out, "0x%lx", (unsigned long)vp); - } else { - fprintf(out, "NULL"); - } - } else { - herr_t status = va_arg (ap, herr_t); - if (status>=0) fprintf (out, "SUCCEED"); - else fprintf (out, "FAIL"); - } - break; - - case 'E': - switch (type[1]) { - case 'd': - if (ptr) { - if (vp) { - fprintf (out, "0x%lx", (unsigned long)vp); - } else { - fprintf(out, "NULL"); - } - } else { - H5E_direction_t direction = va_arg (ap, H5E_direction_t); /*lint !e64 Type mismatch not really occuring */ - switch(direction) { - case H5E_WALK_UPWARD: - fprintf (out, "H5E_WALK_UPWARD"); - break; - case H5E_WALK_DOWNWARD: - fprintf (out, "H5E_WALK_DOWNWARD"); - break; - default: - fprintf (out, "%ld", (long)direction); - break; - } - } - break; - - case 'e': - if(ptr) { - if(vp) - fprintf(out, "0x%lx", (unsigned long)vp); - else - fprintf(out, "NULL"); - } /* end if */ - else { - H5E_error2_t *error = va_arg(ap, H5E_error2_t *); /*lint !e64 Type mismatch not really occuring */ - fprintf(out, "0x%lx", (unsigned long)error); - } /* end else */ - break; - - case 't': - if (ptr) { - if (vp) { - fprintf (out, "0x%lx", (unsigned long)vp); - } else { - fprintf(out, "NULL"); - } - } else { - H5E_type_t etype = va_arg (ap, H5E_type_t); /*lint !e64 Type mismatch not really occuring */ - switch(etype) { - case H5E_MAJOR: - fprintf (out, "H5E_MAJOR"); - break; - case H5E_MINOR: - fprintf (out, "H5E_MINOR"); - break; - default: - fprintf (out, "%ld", (long)etype); - break; - } - } - break; - - default: - fprintf (out, "BADTYPE(E%c)", type[1]); - goto error; - } - break; - - case 'F': - switch(type[1]) { - case 'd': - if(ptr) { - if(vp) - fprintf(out, "0x%lx", (unsigned long)vp); - else - fprintf(out, "NULL"); - } else { - H5F_close_degree_t degree = va_arg(ap, H5F_close_degree_t); /*lint !e64 Type mismatch not really occuring */ - - switch(degree) { - case H5F_CLOSE_DEFAULT: - fprintf(out, "H5F_CLOSE_DEFAULT"); - break; - case H5F_CLOSE_WEAK: - fprintf(out, "H5F_CLOSE_WEAK"); - break; - case H5F_CLOSE_SEMI: - fprintf(out, "H5F_CLOSE_SEMI"); - break; - case H5F_CLOSE_STRONG: - fprintf(out, "H5F_CLOSE_STRONG"); - break; - default: - fprintf(out, "%ld", (long)degree); - break; - } - } - break; - - case 'f': - if(ptr) { - if(vp) - fprintf(out, "0x%lx", (unsigned long)vp); - else - fprintf(out, "NULL"); - } /* end if */ - else { - H5F_file_space_type_t fs_type = va_arg(ap, H5F_file_space_type_t); /*lint !e64 Type mismatch not really occuring */ + case 'm': + if(ptr) { + if(vp) + fprintf(out, "0x%lx", (unsigned long)vp); + else + fprintf(out, "NULL"); + } /* end if */ + else { + H5F_mem_t mem_type = (H5F_mem_t)va_arg(ap, int); + + switch(mem_type) { + case H5FD_MEM_NOLIST: + fprintf(out, "H5FD_MEM_NOLIST"); + break; + + case H5FD_MEM_DEFAULT: + fprintf(out, "H5FD_MEM_DEFAULT"); + break; + + case H5FD_MEM_SUPER: + fprintf(out, "H5FD_MEM_SUPER"); + break; + + case H5FD_MEM_BTREE: + fprintf(out, "H5FD_MEM_BTREE"); + break; + + case H5FD_MEM_DRAW: + fprintf(out, "H5FD_MEM_DRAW"); + break; + + case H5FD_MEM_GHEAP: + fprintf(out, "H5FD_MEM_GHEAP"); + break; + + case H5FD_MEM_LHEAP: + fprintf(out, "H5FD_MEM_LHEAP"); + break; + + case H5FD_MEM_OHDR: + fprintf(out, "H5FD_MEM_OHDR"); + break; + + case H5FD_MEM_NTYPES: + default: + fprintf(out, "%ld", (long)mem_type); + break; + } /* end switch */ + } /* end else */ + break; - switch(fs_type) { - case H5F_FILE_SPACE_DEFAULT: - fprintf(out, "H5F_FILE_SPACE_DEFAULT"); - break; - case H5F_FILE_SPACE_ALL_PERSIST: - fprintf(out, "H5F_FILE_SPACE_ALL_PERSIST"); - break; - case H5F_FILE_SPACE_ALL: - fprintf(out, "H5F_FILE_SPACE_ALL"); - break; - case H5F_FILE_SPACE_AGGR_VFD: - fprintf(out, "H5F_FILE_SPACE_AGGR_VFD"); - break; - case H5F_FILE_SPACE_VFD: - fprintf(out, "H5F_FILE_SPACE_VFD"); - break; - case H5F_FILE_SPACE_NTYPES: - default: - fprintf(out, "%ld", (long)fs_type); - break; - } /* end switch */ - } /* end else */ - break; - - case 'm': - if(ptr) { - if(vp) - fprintf(out, "0x%lx", (unsigned long)vp); - else - fprintf(out, "NULL"); - } /* end if */ - else { - H5F_mem_t mem_type = va_arg(ap, H5F_mem_t); /*lint !e64 Type mismatch not really occuring */ + case 's': + if(ptr) { + if(vp) + fprintf(out, "0x%lx", (unsigned long)vp); + else + fprintf(out, "NULL"); + } /* end if */ + else { + H5F_scope_t scope = (H5F_scope_t)va_arg(ap, int); + + switch(scope) { + case H5F_SCOPE_LOCAL: + fprintf(out, "H5F_SCOPE_LOCAL"); + break; + + case H5F_SCOPE_GLOBAL: + fprintf(out, "H5F_SCOPE_GLOBAL"); + break; + + default: + fprintf(out, "%ld", (long)scope); + break; + } /* end switch */ + } /* end else */ + break; - switch(mem_type) { - case H5FD_MEM_NOLIST: - fprintf(out, "H5FD_MEM_NOLIST"); - break; - case H5FD_MEM_DEFAULT: - fprintf(out, "H5FD_MEM_DEFAULT"); - break; - case H5FD_MEM_SUPER: - fprintf(out, "H5FD_MEM_SUPER"); - break; - case H5FD_MEM_BTREE: - fprintf(out, "H5FD_MEM_BTREE"); - break; - case H5FD_MEM_DRAW: - fprintf(out, "H5FD_MEM_DRAW"); - break; - case H5FD_MEM_GHEAP: - fprintf(out, "H5FD_MEM_GHEAP"); - break; - case H5FD_MEM_LHEAP: - fprintf(out, "H5FD_MEM_LHEAP"); - break; - case H5FD_MEM_OHDR: - fprintf(out, "H5FD_MEM_OHDR"); - break; - case H5FD_MEM_NTYPES: - default: - fprintf(out, "%ld", (long)mem_type); - break; - } /* end switch */ - } /* end else */ - break; - - case 's': - if(ptr) { - if(vp) - fprintf(out, "0x%lx", (unsigned long)vp); - else - fprintf(out, "NULL"); - } else { - H5F_scope_t scope = va_arg(ap, H5F_scope_t); /*lint !e64 Type mismatch not really occuring */ - - switch(scope) { - case H5F_SCOPE_LOCAL: - fprintf(out, "H5F_SCOPE_LOCAL"); - break; - case H5F_SCOPE_GLOBAL: - fprintf(out, "H5F_SCOPE_GLOBAL"); - break; - default: - fprintf(out, "%ld", (long)scope); - break; - } - } - break; - - case 'v': - if(ptr) { - if(vp) - fprintf(out, "0x%lx", (unsigned long)vp); - else - fprintf(out, "NULL"); - } else { - H5F_libver_t libver_vers = va_arg(ap, H5F_libver_t); /*lint !e64 Type mismatch not really occuring */ - - switch(libver_vers) { - case H5F_LIBVER_EARLIEST: - fprintf(out, "H5F_LIBVER_EARLIEST"); - break; - case H5F_LIBVER_LATEST: - fprintf(out, "H5F_LIBVER_LATEST"); - break; - default: - fprintf(out, "%ld", (long)libver_vers); - break; - } - } - break; + case 'v': + if(ptr) { + if(vp) + fprintf(out, "0x%lx", (unsigned long)vp); + else + fprintf(out, "NULL"); + } /* end if */ + else { + H5F_libver_t libver_vers = (H5F_libver_t)va_arg(ap, int); + + switch(libver_vers) { + case H5F_LIBVER_EARLIEST: + fprintf(out, "H5F_LIBVER_EARLIEST"); + break; + + case H5F_LIBVER_LATEST: + fprintf(out, "H5F_LIBVER_LATEST"); + break; + + default: + fprintf(out, "%ld", (long)libver_vers); + break; + } /* end switch */ + } /* end else */ + break; - default: - fprintf(out, "BADTYPE(F%c)", type[1]); - goto error; - } - break; + default: + fprintf(out, "BADTYPE(F%c)", type[1]); + goto error; + } /* end switch */ + break; - case 'G': - switch(type[1]) { + case 'G': + switch(type[1]) { #ifndef H5_NO_DEPRECATED_SYMBOLS - case 'o': - if(ptr) { - if(vp) - fprintf (out, "0x%lx", (unsigned long)vp); - else - fprintf(out, "NULL"); - } else { - H5G_obj_t obj_type = va_arg(ap, H5G_obj_t); /*lint !e64 Type mismatch not really occuring */ - - switch(obj_type) { - case H5G_UNKNOWN: - fprintf(out, "H5G_UNKNOWN"); - break; - - case H5G_GROUP: - fprintf(out, "H5G_GROUP"); - break; - - case H5G_DATASET: - fprintf(out, "H5G_DATASET"); - break; + case 'o': + if(ptr) { + if(vp) + fprintf(out, "0x%lx", (unsigned long)vp); + else + fprintf(out, "NULL"); + } /* end if */ + else { + H5G_obj_t obj_type = (H5G_obj_t)va_arg(ap, int); + + switch(obj_type) { + case H5G_UNKNOWN: + fprintf(out, "H5G_UNKNOWN"); + break; + + case H5G_GROUP: + fprintf(out, "H5G_GROUP"); + break; + + case H5G_DATASET: + fprintf(out, "H5G_DATASET"); + break; + + case H5G_TYPE: + fprintf(out, "H5G_TYPE"); + break; + + case H5G_LINK: + fprintf(out, "H5G_LINK"); + break; + + case H5G_UDLINK: + fprintf(out, "H5G_UDLINK"); + break; + + case H5G_RESERVED_5: + case H5G_RESERVED_6: + case H5G_RESERVED_7: + fprintf(out, "H5G_RESERVED(%ld)", (long)obj_type); + break; + + default: + fprintf(out, "%ld", (long)obj_type); + break; + } /* end switch */ + } /* end else */ + break; - case H5G_TYPE: - fprintf(out, "H5G_TYPE"); - break; + case 's': + if(ptr) { + if(vp) + fprintf (out, "0x%lx", (unsigned long)vp); + else + fprintf(out, "NULL"); + } /* end if */ + else { + H5G_stat_t *statbuf = va_arg(ap, H5G_stat_t*); /*lint !e64 Type mismatch not really occuring */ - case H5G_LINK: - fprintf(out, "H5G_LINK"); - break; + fprintf(out, "0x%lx", (unsigned long)statbuf); + } + break; +#endif /* H5_NO_DEPRECATED_SYMBOLS */ - case H5G_UDLINK: - fprintf(out, "H5G_UDLINK"); - break; + default: + fprintf(out, "BADTYPE(G%c)", type[1]); + goto error; + } + break; - case H5G_RESERVED_5: - case H5G_RESERVED_6: - case H5G_RESERVED_7: - fprintf(out, "H5G_RESERVED(%ld)",(long)obj_type); - break; + case 'h': + if(ptr) { + if(vp) { + fprintf(out, "0x%lx", (unsigned long)vp); + if(asize_idx >= 0 && asize[asize_idx] >= 0) { + hsize_t *p = (hsize_t *)vp; + + fprintf(out, " {"); + 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]); + } /* end for */ + fprintf(out, "}"); + } /* end if */ + } /* end if */ + else + fprintf(out, "NULL"); + } /* end if */ + else { + hsize_t hsize = va_arg(ap, hsize_t); /*lint !e732 Loss of sign not really occuring */ - default: - fprintf(out, "%ld", (long)obj_type); - break; - } /* end switch */ + if(H5S_UNLIMITED == hsize) + HDfprintf(out, "H5S_UNLIMITED"); + else { + HDfprintf(out, "%Hu", hsize); + asize[argno] = (hssize_t)hsize; } /* end else */ - break; - - case 's': - if(ptr) { - if(vp) - fprintf (out, "0x%lx", (unsigned long)vp); - else - fprintf(out, "NULL"); - } else { - H5G_stat_t *statbuf = va_arg(ap, H5G_stat_t*); /*lint !e64 Type mismatch not really occuring */ - - fprintf(out, "0x%lx", (unsigned long)statbuf); - } - break; -#endif /* H5_NO_DEPRECATED_SYMBOLS */ + } /* end else */ + break; - default: - fprintf(out, "BADTYPE(G%c)", type[1]); - goto error; - } - break; - - case 'h': - if (ptr) { - if (vp) { - fprintf (out, "0x%lx", (unsigned long)vp); - if (asize_idx>=0 && asize[asize_idx]>=0) { - hsize_t *p = (hsize_t*)vp; - fprintf(out, " {"); - 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]); - } - } - fprintf(out, "}"); - } - } else { - fprintf(out, "NULL"); - } - } else { - hsize_t hsize = va_arg (ap, hsize_t); /*lint !e732 Loss of sign not really occuring */ - if (H5S_UNLIMITED==hsize) { - HDfprintf(out, "H5S_UNLIMITED"); - } else { - HDfprintf (out, "%Hu", hsize); - asize[argno] = (hssize_t)hsize; - } - } - break; - - case 'H': - switch (type[1]) { - case 's': - if (ptr) { - if (vp) { - fprintf (out, "0x%lx", (unsigned long)vp); - if (asize_idx>=0 && asize[asize_idx]>=0) { - hssize_t *p = (hssize_t*)vp; - fprintf(out, " {"); - for (i=0; i<asize[asize_idx]; i++) { - HDfprintf(out, "%s%Hd", i?", ":"", p[i]); - } - fprintf(out, "}"); - } - } else { - fprintf(out, "NULL"); - } - } else { - hssize_t hssize = va_arg (ap, hssize_t); - HDfprintf (out, "%Hd", hssize); - asize[argno] = (hssize_t)hssize; - } - break; - - default: - fprintf (out, "BADTYPE(H%c)", type[1]); - goto error; - } - break; - - case 'i': - if(ptr) { - if(vp) - fprintf(out, "0x%lx", (unsigned long)vp); - else - fprintf(out, "NULL"); - } /* end if */ - else { - hid_t obj = va_arg (ap, hid_t); - - if(H5P_DEFAULT == obj) - fprintf(out, "H5P_DEFAULT"); - else if(obj < 0) - fprintf(out, "FAIL"); - else { - switch(H5I_TYPE(obj)) { /* Use internal H5I macro instead of function call */ - case H5I_UNINIT: - fprintf(out, "%ld (uninit - error)", (long)obj); - break; - - case H5I_BADID: - fprintf(out, "%ld (error)", (long)obj); - break; - - case H5I_FILE: - fprintf(out, "%ld (file)", (long)obj); - break; - - case H5I_GROUP: - fprintf(out, "%ld (group)", (long)obj); - break; - - case H5I_DATATYPE: - if(obj == H5T_NATIVE_SCHAR_g) - fprintf(out, "H5T_NATIVE_SCHAR"); - else if(obj == H5T_NATIVE_UCHAR_g) - fprintf(out, "H5T_NATIVE_UCHAR"); - else if(obj == H5T_NATIVE_SHORT_g) - fprintf(out, "H5T_NATIVE_SHORT"); - else if(obj == H5T_NATIVE_USHORT_g) - fprintf(out, "H5T_NATIVE_USHORT"); - else if(obj == H5T_NATIVE_INT_g) - fprintf(out, "H5T_NATIVE_INT"); - else if(obj == H5T_NATIVE_UINT_g) - fprintf(out, "H5T_NATIVE_UINT"); - else if(obj == H5T_NATIVE_LONG_g) - fprintf(out, "H5T_NATIVE_LONG"); - else if(obj == H5T_NATIVE_ULONG_g) - fprintf(out, "H5T_NATIVE_ULONG"); - else if(obj == H5T_NATIVE_LLONG_g) - fprintf(out, "H5T_NATIVE_LLONG"); - else if(obj == H5T_NATIVE_ULLONG_g) - fprintf(out, "H5T_NATIVE_ULLONG"); - else if(obj == H5T_NATIVE_FLOAT_g) - fprintf(out, "H5T_NATIVE_FLOAT"); - else if(obj == H5T_NATIVE_DOUBLE_g) - fprintf(out, "H5T_NATIVE_DOUBLE"); -#if H5_SIZEOF_LONG_DOUBLE !=0 - else if(obj == H5T_NATIVE_LDOUBLE_g) - fprintf(out, "H5T_NATIVE_LDOUBLE"); -#endif - 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"); + case 'H': + switch(type[1]) { + case 's': + if(ptr) { + if(vp) { + fprintf(out, "0x%lx", (unsigned long)vp); + if(asize_idx >= 0 && asize[asize_idx] >= 0) { + hssize_t *p = (hssize_t *)vp; + + fprintf(out, " {"); + for(i = 0; i < asize[asize_idx]; i++) + HDfprintf(out, "%s%Hd", (i ? ", " : ""), p[i]); + fprintf(out, "}"); + } /* end if */ + } /* end if */ else - fprintf(out, "%ld (dtype)", (long)obj); - break; - - case H5I_DATASPACE: - fprintf(out, "%ld (dspace)", (long)obj); - /* Save the rank of simple data spaces for arrays */ - /* This may generate recursive call to the library... -QAK */ - { - H5S_t *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; - - case H5I_DATASET: - fprintf(out, "%ld (dset)", (long)obj); - break; - - case H5I_ATTR: - fprintf(out, "%ld (attr)", (long)obj); - break; - - case H5I_REFERENCE: - fprintf(out, "%ld (reference)", (long)obj); - break; - - case H5I_VFL: - fprintf(out, "%ld (file driver)", (long)obj); - break; - - case H5I_GENPROP_CLS: - fprintf(out, "%ld (genprop class)", (long)obj); - break; - - case H5I_GENPROP_LST: - fprintf(out, "%ld (genprop list)", (long)obj); - break; - - case H5I_ERROR_CLASS: - fprintf(out, "%ld (err class)", (long)obj); - break; - - case H5I_ERROR_MSG: - fprintf(out, "%ld (err msg)", (long)obj); - break; - - case H5I_ERROR_STACK: - fprintf(out, "%ld (err stack)", (long)obj); - break; - - case H5I_NTYPES: - fprintf (out, "%ld (ntypes - error)", (long)obj); - break; - - default: - fprintf(out, "%ld (unknown class)", (long)obj); - break; - } /* end switch */ - } /* end else */ - } /* end else */ - break; - - case 'I': - switch (type[1]) { - case 'i': - if(ptr) { - if(vp) - fprintf(out, "0x%lx", (unsigned long)vp); - else - fprintf(out, "NULL"); - } /* end if */ - else { - H5_index_t idx_type = va_arg(ap, H5_index_t); /*lint !e64 Type mismatch not really occuring */ + fprintf(out, "NULL"); + } /* end if */ + else { + hssize_t hssize = va_arg(ap, hssize_t); - switch(idx_type) { - case H5_INDEX_UNKNOWN: - fprintf(out, "H5_INDEX_UNKNOWN"); - break; - case H5_INDEX_NAME: - fprintf(out, "H5_INDEX_NAME"); - break; - case H5_INDEX_CRT_ORDER: - fprintf(out, "H5_INDEX_CRT_ORDER"); - break; - case H5_INDEX_N: - fprintf(out, "H5_INDEX_N"); - break; - default: - fprintf(out, "%ld", (long)idx_type); - break; - } /* end switch */ - } /* end else */ - break; - - case 'o': - if (ptr) { - if (vp) - fprintf (out, "0x%lx", (unsigned long)vp); - else - fprintf(out, "NULL"); - } /* end if */ + HDfprintf(out, "%Hd", hssize); + asize[argno] = (hssize_t)hssize; + } /* end else */ + break; + + default: + fprintf (out, "BADTYPE(H%c)", type[1]); + goto error; + } /* end switch */ + break; + + case 'i': + if(ptr) { + if(vp) + fprintf(out, "0x%lx", (unsigned long)vp); + else + fprintf(out, "NULL"); + } /* end if */ + else { + hid_t obj = va_arg(ap, hid_t); + + if(H5P_DEFAULT == obj) + fprintf(out, "H5P_DEFAULT"); + else if(obj < 0) + fprintf(out, "FAIL"); else { - H5_iter_order_t order = va_arg (ap, H5_iter_order_t); /*lint !e64 Type mismatch not really occuring */ - switch(order) { - case H5_ITER_UNKNOWN: - fprintf(out, "H5_ITER_UNKNOWN"); - break; - case H5_ITER_INC: - fprintf(out, "H5_ITER_INC"); - break; - case H5_ITER_DEC: - fprintf(out, "H5_ITER_DEC"); - break; - case H5_ITER_NATIVE: - fprintf(out, "H5_ITER_NATIVE"); - break; - case H5_ITER_N: - fprintf(out, "H5_ITER_N"); - break; - default: - fprintf(out, "%ld", (long)order); - break; - } /* end switch */ - } /* end else */ - break; - - case 's': - if (ptr) { - if (vp) { - fprintf (out, "0x%lx", (unsigned long)vp); - if (asize_idx>=0 && asize[asize_idx]>=0) { - int *p = (int*)vp; - fprintf(out, " {"); - for (i=0; i<asize[asize_idx]; i++) { - fprintf(out, "%s%d", i?", ":"", p[i]); - } - fprintf(out, "}"); - } - } else { - fprintf(out, "NULL"); - } - } else { - int is = va_arg (ap, int); - fprintf (out, "%d", is); - asize[argno] = is; - } - break; - - case 't': - if (ptr) { - if (vp) { - fprintf (out, "0x%lx", (unsigned long)vp); - } else { - fprintf(out, "NULL"); - } - } else { - H5I_type_t id_type = va_arg (ap, H5I_type_t); /*lint !e64 Type mismatch not really occuring */ - switch (id_type) { + switch(H5I_TYPE(obj)) { /* Use internal H5I macro instead of function call */ case H5I_UNINIT: - fprintf (out, "H5I_UNINIT"); + fprintf(out, "%ld (uninit - error)", (long)obj); break; + case H5I_BADID: - fprintf (out, "H5I_BADID"); + fprintf(out, "%ld (error)", (long)obj); break; + case H5I_FILE: - fprintf (out, "H5I_FILE"); + fprintf(out, "%ld (file)", (long)obj); break; + case H5I_GROUP: - fprintf (out, "H5I_GROUP"); + fprintf(out, "%ld (group)", (long)obj); break; + case H5I_DATATYPE: - fprintf (out, "H5I_DATATYPE"); + if(obj == H5T_NATIVE_SCHAR_g) + fprintf(out, "H5T_NATIVE_SCHAR"); + else if(obj == H5T_NATIVE_UCHAR_g) + fprintf(out, "H5T_NATIVE_UCHAR"); + else if(obj == H5T_NATIVE_SHORT_g) + fprintf(out, "H5T_NATIVE_SHORT"); + else if(obj == H5T_NATIVE_USHORT_g) + fprintf(out, "H5T_NATIVE_USHORT"); + else if(obj == H5T_NATIVE_INT_g) + fprintf(out, "H5T_NATIVE_INT"); + else if(obj == H5T_NATIVE_UINT_g) + fprintf(out, "H5T_NATIVE_UINT"); + else if(obj == H5T_NATIVE_LONG_g) + fprintf(out, "H5T_NATIVE_LONG"); + else if(obj == H5T_NATIVE_ULONG_g) + fprintf(out, "H5T_NATIVE_ULONG"); + else if(obj == H5T_NATIVE_LLONG_g) + fprintf(out, "H5T_NATIVE_LLONG"); + else if(obj == H5T_NATIVE_ULLONG_g) + fprintf(out, "H5T_NATIVE_ULLONG"); + else if(obj == H5T_NATIVE_FLOAT_g) + fprintf(out, "H5T_NATIVE_FLOAT"); + else if(obj == H5T_NATIVE_DOUBLE_g) + fprintf(out, "H5T_NATIVE_DOUBLE"); +#if H5_SIZEOF_LONG_DOUBLE !=0 + else if(obj == H5T_NATIVE_LDOUBLE_g) + fprintf(out, "H5T_NATIVE_LDOUBLE"); +#endif + 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 (dtype)", (long)obj); break; + case H5I_DATASPACE: - fprintf (out, "H5I_DATASPACE"); + fprintf(out, "%ld (dspace)", (long)obj); + /* Save the rank of simple data spaces for arrays */ + /* This may generate recursive call to the library... -QAK */ + { + H5S_t *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; + case H5I_DATASET: - fprintf (out, "H5I_DATASET"); + fprintf(out, "%ld (dset)", (long)obj); break; + case H5I_ATTR: - fprintf (out, "H5I_ATTR"); + fprintf(out, "%ld (attr)", (long)obj); break; + case H5I_REFERENCE: - fprintf (out, "H5I_REFERENCE"); + fprintf(out, "%ld (reference)", (long)obj); break; + case H5I_VFL: - fprintf (out, "H5I_VFL"); + fprintf(out, "%ld (file driver)", (long)obj); break; + case H5I_GENPROP_CLS: - fprintf (out, "H5I_GENPROP_CLS"); + fprintf(out, "%ld (genprop class)", (long)obj); break; + case H5I_GENPROP_LST: - fprintf (out, "H5I_GENPROP_LST"); + fprintf(out, "%ld (genprop list)", (long)obj); break; + case H5I_ERROR_CLASS: - fprintf (out, "H5I_ERROR_CLASS"); + fprintf(out, "%ld (err class)", (long)obj); break; + case H5I_ERROR_MSG: - fprintf (out, "H5I_ERROR_MSG"); + fprintf(out, "%ld (err msg)", (long)obj); break; + case H5I_ERROR_STACK: - fprintf (out, "H5I_ERROR_STACK"); + fprintf(out, "%ld (err stack)", (long)obj); break; + case H5I_NTYPES: - fprintf (out, "H5I_NTYPES"); + fprintf (out, "%ld (ntypes - error)", (long)obj); break; + default: - fprintf (out, "%ld", (long)id_type); + fprintf(out, "%ld (unknown class)", (long)obj); break; - } - } - break; - - case 'u': - if(ptr) { - if(vp) { - fprintf(out, "0x%lx", (unsigned long)vp); - if(asize_idx >= 0 && asize[asize_idx] >= 0) { - unsigned *p = (unsigned*)vp; - - fprintf(out, " {"); - for(i = 0; i < asize[asize_idx]; i++) - HDfprintf(out, "%s%u", i?", ":"", p[i]); - fprintf(out, "}"); + } /* end switch */ + } /* end else */ + } /* end else */ + break; + + case 'I': + switch (type[1]) { + case 'i': + if(ptr) { + if(vp) + fprintf(out, "0x%lx", (unsigned long)vp); + else + fprintf(out, "NULL"); + } /* end if */ + else { + H5_index_t idx_type = (H5_index_t)va_arg(ap, int); + + switch(idx_type) { + case H5_INDEX_UNKNOWN: + fprintf(out, "H5_INDEX_UNKNOWN"); + break; + + case H5_INDEX_NAME: + fprintf(out, "H5_INDEX_NAME"); + break; + + case H5_INDEX_CRT_ORDER: + fprintf(out, "H5_INDEX_CRT_ORDER"); + break; + + case H5_INDEX_N: + fprintf(out, "H5_INDEX_N"); + break; + + default: + fprintf(out, "%ld", (long)idx_type); + break; + } /* end switch */ + } /* end else */ + break; + + case 'o': + if(ptr) { + if(vp) + fprintf(out, "0x%lx", (unsigned long)vp); + else + fprintf(out, "NULL"); + } /* end if */ + else { + H5_iter_order_t order = (H5_iter_order_t)va_arg(ap, int); + + switch(order) { + case H5_ITER_UNKNOWN: + fprintf(out, "H5_ITER_UNKNOWN"); + break; + + case H5_ITER_INC: + fprintf(out, "H5_ITER_INC"); + break; + + case H5_ITER_DEC: + fprintf(out, "H5_ITER_DEC"); + break; + + case H5_ITER_NATIVE: + fprintf(out, "H5_ITER_NATIVE"); + break; + + case H5_ITER_N: + fprintf(out, "H5_ITER_N"); + break; + + default: + fprintf(out, "%ld", (long)order); + break; + } /* end switch */ + } /* end else */ + break; + + case 's': + if(ptr) { + if(vp) { + fprintf(out, "0x%lx", (unsigned long)vp); + if(asize_idx >= 0 && asize[asize_idx] >= 0) { + int *p = (int*)vp; + + fprintf(out, " {"); + for(i = 0; i < asize[asize_idx]; i++) + fprintf(out, "%s%d", (i ? ", " : ""), p[i]); + fprintf(out, "}"); + } /* end if */ } /* end if */ + else + fprintf(out, "NULL"); } /* end if */ - else - fprintf(out, "NULL"); - } /* end if */ - else { - unsigned iu = va_arg(ap, unsigned); /*lint !e732 Loss of sign not really occuring */ + else { + int is = va_arg(ap, int); - fprintf(out, "%u", iu); - asize[argno] = iu; - } /* end else */ - break; - - default: - fprintf (out, "BADTYPE(I%c)", type[1]); - goto error; - } /* end switch */ - break; - - case 'L': - switch(type[1]) { - case 'l': - if(ptr) { - if(vp) - fprintf (out, "0x%lx", (unsigned long)vp); - else - fprintf(out, "NULL"); - } /* end if */ - else { - H5L_type_t link_type = va_arg(ap, H5L_type_t); /*lint !e64 Type mismatch not really occuring */ + fprintf (out, "%d", is); + asize[argno] = is; + } /* end else */ + break; - switch(link_type) { - case H5L_TYPE_ERROR: - fprintf(out, "H5L_TYPE_ERROR"); - break; - case H5L_TYPE_HARD: - fprintf(out, "H5L_TYPE_HARD"); - break; - case H5L_TYPE_SOFT: - fprintf(out, "H5L_TYPE_SOFT"); - break; - case H5L_TYPE_EXTERNAL: - fprintf(out, "H5L_TYPE_EXTERNAL"); - break; - case H5L_TYPE_MAX: - fprintf(out, "H5L_TYPE_MAX"); - break; - default: - fprintf(out, "%ld", (long)link_type); - break; - } /* end switch */ - } /* end else */ - break; - - default: - fprintf(out, "BADTYPE(G%c)", type[1]); - goto error; - } /* end switch */ - break; - - case 'M': - switch (type[1]) { - case 'c': - if (ptr) { - if (vp) { - fprintf (out, "0x%lx", (unsigned long)vp); - } else { - fprintf(out, "NULL"); - } - } else { + case 't': + if(ptr) { + if(vp) + fprintf(out, "0x%lx", (unsigned long)vp); + else + fprintf(out, "NULL"); + } /* end if */ + else { + H5I_type_t id_type = (H5I_type_t)va_arg(ap, int); + + switch (id_type) { + case H5I_UNINIT: + fprintf(out, "H5I_UNINIT"); + break; + + case H5I_BADID: + fprintf(out, "H5I_BADID"); + break; + + case H5I_FILE: + fprintf(out, "H5I_FILE"); + break; + + case H5I_GROUP: + fprintf(out, "H5I_GROUP"); + break; + + case H5I_DATATYPE: + fprintf(out, "H5I_DATATYPE"); + break; + + case H5I_DATASPACE: + fprintf(out, "H5I_DATASPACE"); + break; + + case H5I_DATASET: + fprintf(out, "H5I_DATASET"); + break; + + case H5I_ATTR: + fprintf(out, "H5I_ATTR"); + break; + + case H5I_REFERENCE: + fprintf(out, "H5I_REFERENCE"); + break; + + case H5I_VFL: + fprintf(out, "H5I_VFL"); + break; + + case H5I_GENPROP_CLS: + fprintf(out, "H5I_GENPROP_CLS"); + break; + + case H5I_GENPROP_LST: + fprintf(out, "H5I_GENPROP_LST"); + break; + + case H5I_ERROR_CLASS: + fprintf(out, "H5I_ERROR_CLASS"); + break; + + case H5I_ERROR_MSG: + fprintf(out, "H5I_ERROR_MSG"); + break; + + case H5I_ERROR_STACK: + fprintf(out, "H5I_ERROR_STACK"); + break; + + case H5I_NTYPES: + fprintf(out, "H5I_NTYPES"); + break; + + default: + fprintf(out, "%ld", (long)id_type); + break; + } /* end switch */ + } /* end else */ + break; + + case 'u': + if(ptr) { + if(vp) { + fprintf(out, "0x%lx", (unsigned long)vp); + if(asize_idx >= 0 && asize[asize_idx] >= 0) { + unsigned *p = (unsigned*)vp; + + fprintf(out, " {"); + for(i = 0; i < asize[asize_idx]; i++) + HDfprintf(out, "%s%u", i?", ":"", p[i]); + fprintf(out, "}"); + } /* end if */ + } /* end if */ + else + fprintf(out, "NULL"); + } /* end if */ + else { + unsigned iu = va_arg(ap, unsigned); /*lint !e732 Loss of sign not really occuring */ + + fprintf(out, "%u", iu); + asize[argno] = iu; + } /* end else */ + break; + + default: + fprintf (out, "BADTYPE(I%c)", type[1]); + goto error; + } /* end switch */ + break; + + case 'L': + switch(type[1]) { + case 'l': + if(ptr) { + if(vp) + fprintf (out, "0x%lx", (unsigned long)vp); + else + fprintf(out, "NULL"); + } /* end if */ + else { + H5L_type_t link_type = (H5L_type_t)va_arg(ap, int); + + switch(link_type) { + case H5L_TYPE_ERROR: + fprintf(out, "H5L_TYPE_ERROR"); + break; + + case H5L_TYPE_HARD: + fprintf(out, "H5L_TYPE_HARD"); + break; + + case H5L_TYPE_SOFT: + fprintf(out, "H5L_TYPE_SOFT"); + break; + + case H5L_TYPE_EXTERNAL: + fprintf(out, "H5L_TYPE_EXTERNAL"); + break; + + case H5L_TYPE_MAX: + fprintf(out, "H5L_TYPE_MAX"); + break; + + default: + fprintf(out, "%ld", (long)link_type); + break; + } /* end switch */ + } /* end else */ + break; + + default: + fprintf(out, "BADTYPE(G%c)", type[1]); + goto error; + } /* end switch */ + break; + + case 'M': + switch(type[1]) { + case 'c': + if(ptr) { + if(vp) + fprintf(out, "0x%lx", (unsigned long)vp); + else + fprintf(out, "NULL"); + } /* end if */ #ifdef H5_HAVE_PARALLEL - MPI_Comm comm = va_arg (ap, MPI_Comm); - fprintf (out, "%ld", (long)comm); -#endif - } - break; - case 'i': - if (ptr) { - if (vp) { - fprintf (out, "0x%lx", (unsigned long)vp); - } else { - fprintf(out, "NULL"); - } - } else { + else { + MPI_Comm comm = va_arg(ap, MPI_Comm); + + fprintf(out, "%ld", (long)comm); + } /* end else */ +#endif /* H5_HAVE_PARALLEL */ + break; + + case 'i': + if(ptr) { + if(vp) + fprintf(out, "0x%lx", (unsigned long)vp); + else + fprintf(out, "NULL"); + } /* end if */ #ifdef H5_HAVE_PARALLEL - MPI_Info info = va_arg (ap, MPI_Info); - fprintf (out, "%ld", (long)info); -#endif - } - break; - case 't': - if (ptr) { - if (vp) { - fprintf(out, "0x%lx", (unsigned long)vp); - } else { - fprintf(out, "NULL"); - } - } else { - H5FD_mem_t mt = va_arg(ap, H5FD_mem_t); /*lint !e64 Type mismatch not really occuring */ - switch (mt) { - case H5FD_MEM_NOLIST: - fprintf(out, "H5FD_MEM_NOLIST"); - break; - case H5FD_MEM_DEFAULT: - fprintf(out, "H5FD_MEM_DEFAULT"); - break; - case H5FD_MEM_SUPER: - fprintf(out, "H5FD_MEM_SUPER"); - break; - case H5FD_MEM_BTREE: - fprintf(out, "H5FD_MEM_BTREE"); - break; - case H5FD_MEM_DRAW: - fprintf(out, "H5FD_MEM_DRAW"); - break; - case H5FD_MEM_GHEAP: - fprintf(out, "H5FD_MEM_GHEAP"); - break; - case H5FD_MEM_LHEAP: - fprintf(out, "H5FD_MEM_LHEAP"); - break; - case H5FD_MEM_OHDR: - fprintf(out, "H5FD_MEM_OHDR"); - break; - case H5FD_MEM_NTYPES: - fprintf(out, "H5FD_MEM_NTYPES"); - break; - default: - fprintf(out, "%ld", (long)mt); - break; - } - } - break; - - default: - goto error; - } - break; - - case 'o': - if (ptr) { - if (vp) { - fprintf (out, "0x%lx", (unsigned long)vp); - } else { - fprintf(out, "NULL"); - } - } else { - off_t offset = va_arg (ap, off_t); - fprintf (out, "%ld", (long)offset); - } - break; - - case 'O': - switch(type[1]) { - case 't': - if(ptr) { - if(vp) - fprintf(out, "0x%lx", (unsigned long)vp); - else - fprintf(out, "NULL"); + else { + MPI_Info info = va_arg(ap, MPI_Info); + + fprintf(out, "%ld", (long)info); + } /* end else */ +#endif /* H5_HAVE_PARALLEL */ + break; + + case 't': + if(ptr) { + if(vp) + fprintf(out, "0x%lx", (unsigned long)vp); + else + fprintf(out, "NULL"); + } /* end if */ + else { + H5FD_mem_t mt = (H5FD_mem_t)va_arg(ap, int); + + switch(mt) { + case H5FD_MEM_NOLIST: + fprintf(out, "H5FD_MEM_NOLIST"); + break; + + case H5FD_MEM_DEFAULT: + fprintf(out, "H5FD_MEM_DEFAULT"); + break; + + case H5FD_MEM_SUPER: + fprintf(out, "H5FD_MEM_SUPER"); + break; + + case H5FD_MEM_BTREE: + fprintf(out, "H5FD_MEM_BTREE"); + break; + + case H5FD_MEM_DRAW: + fprintf(out, "H5FD_MEM_DRAW"); + break; + + case H5FD_MEM_GHEAP: + fprintf(out, "H5FD_MEM_GHEAP"); + break; + + case H5FD_MEM_LHEAP: + fprintf(out, "H5FD_MEM_LHEAP"); + break; + + case H5FD_MEM_OHDR: + fprintf(out, "H5FD_MEM_OHDR"); + break; + + case H5FD_MEM_NTYPES: + fprintf(out, "H5FD_MEM_NTYPES"); + break; + + default: + fprintf(out, "%ld", (long)mt); + break; + } /* end switch */ + } /* end else */ + break; + + default: + goto error; + } /* end switch */ + break; + + case 'o': + if(ptr) { + if(vp) + fprintf(out, "0x%lx", (unsigned long)vp); + else + fprintf(out, "NULL"); + } /* end if */ + else { + off_t offset = va_arg(ap, off_t); + + fprintf (out, "%ld", (long)offset); + } /* end else */ + break; + + case 'O': + switch(type[1]) { + case 't': + if(ptr) { + if(vp) + fprintf(out, "0x%lx", (unsigned long)vp); + else + fprintf(out, "NULL"); + } /* end if */ + else { + H5O_type_t objtype = (H5O_type_t)va_arg(ap, int); + + switch(objtype) { + case H5O_TYPE_UNKNOWN: + fprintf(out, "H5O_TYPE_UNKNOWN"); + break; + + case H5O_TYPE_GROUP: + fprintf(out, "H5O_TYPE_GROUP"); + break; + + case H5O_TYPE_DATASET: + fprintf(out, "H5O_TYPE_DATASET"); + break; + + case H5O_TYPE_NAMED_DATATYPE: + fprintf(out, "H5O_TYPE_NAMED_DATATYPE"); + break; + + case H5O_TYPE_NTYPES: + fprintf(out, "H5O_TYPE_TYPES"); + break; + + default: + fprintf(out, "BADTYPE(%ld)", (long)objtype); + break; + } /* end switch */ + } /* end else */ + break; + + default: + fprintf(out, "BADTYPE(S%c)", type[1]); + goto error; + } /* end switch */ + break; + + case 'p': + if(ptr) { + if(vp) + fprintf(out, "0x%lx", (unsigned long)vp); + else + fprintf(out, "NULL"); + } /* end if */ + else { + hid_t pclass_id = va_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))) { + fprintf(out, "%s", class_name); + H5MM_xfree(class_name); } /* end if */ - else { - H5O_type_t objtype = va_arg(ap, H5O_type_t); /*lint !e64 Type mismatch not really occuring */ - switch(objtype) { - case H5O_TYPE_UNKNOWN: - fprintf(out, "H5O_TYPE_UNKNOWN"); - break; - case H5O_TYPE_GROUP: - fprintf(out, "H5O_TYPE_GROUP"); - break; - case H5O_TYPE_DATASET: - fprintf(out, "H5O_TYPE_DATASET"); - break; - case H5O_TYPE_NAMED_DATATYPE: - fprintf(out, "H5O_TYPE_NAMED_DATATYPE"); - break; - case H5O_TYPE_NTYPES: - fprintf(out, "H5O_TYPE_TYPES"); - break; - default: - fprintf(out, "BADTYPE(%ld)", (long)objtype); - break; - } /* end switch */ - } /* end else */ - break; - - default: - fprintf(out, "BADTYPE(S%c)", type[1]); - goto error; - } /* end switch */ - break; - - case 'p': - if (ptr) { - if (vp) { - fprintf (out, "0x%lx", (unsigned long)vp); - } else { - fprintf(out, "NULL"); - } - } else { - hid_t pclass_id = va_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)) && - (class_name = H5P_get_class_name(pclass))!=NULL) { - fprintf(out, "%s", class_name); - H5MM_xfree(class_name); + else + fprintf(out, "%ld", (long)pclass_id); + } /* end else */ + break; + + case 'r': + if(ptr) { + if(vp) + fprintf(out, "0x%lx", (unsigned long)vp); + else + fprintf(out, "NULL"); } /* end if */ else { - fprintf (out, "%ld", (long)pclass_id); + hobj_ref_t ref = va_arg(ap, hobj_ref_t); /*lint !e732 Loss of sign not really occuring */ + + HDfprintf(out, "Reference Object=%a", ref); } /* end else */ - } - break; - - case 'r': - if (ptr) { - if (vp) { - fprintf (out, "0x%lx", (unsigned long)vp); - } else { - fprintf(out, "NULL"); + break; + + case 'R': + switch(type[1]) { + case 't': + if(ptr) { + if(vp) + fprintf(out, "0x%lx", (unsigned long)vp); + else + fprintf(out, "NULL"); + } /* end if */ + else { + H5R_type_t reftype = (H5R_type_t)va_arg(ap, int); + + switch(reftype) { + case H5R_BADTYPE: + fprintf(out, "H5R_BADTYPE"); + break; + + case H5R_OBJECT: + fprintf(out, "H5R_OBJECT"); + break; + + case H5R_DATASET_REGION: + fprintf(out, "H5R_DATASET_REGION"); + break; + + case H5R_MAXTYPE: + fprintf(out, "H5R_MAXTYPE"); + break; + + default: + fprintf(out, "BADTYPE(%ld)", (long)reftype); + break; + } /* end switch */ + } /* end else */ + break; + + default: + fprintf(out, "BADTYPE(S%c)", type[1]); + goto error; } - } else { - hobj_ref_t ref = va_arg (ap, hobj_ref_t); /*lint !e732 Loss of sign not really occuring */ - HDfprintf(out, "Reference Object=%a", ref); - } - break; - - case 'R': - switch (type[1]) { - case 't': - if (ptr) { - if (vp) { - fprintf(out, "0x%lx", (unsigned long)vp); - } else { - fprintf(out, "NULL"); - } - } else { - H5R_type_t reftype = va_arg(ap, H5R_type_t); /*lint !e64 Type mismatch not really occuring */ - switch (reftype) { - case H5R_BADTYPE: - fprintf(out, "H5R_BADTYPE"); - break; - case H5R_OBJECT: - fprintf(out, "H5R_OBJECT"); - break; - case H5R_DATASET_REGION: - fprintf(out, "H5R_DATASET_REGION"); - break; - case H5R_MAXTYPE: - fprintf(out, "H5R_MAXTYPE"); - break; - default: - fprintf(out, "BADTYPE(%ld)", (long)reftype); - break; - } - } - break; + break; - default: - fprintf(out, "BADTYPE(S%c)", type[1]); - goto error; - } - break; - - case 'S': - switch (type[1]) { - case 'c': - if (ptr) { - if (vp) { - fprintf(out, "0x%lx", (unsigned long)vp); - } else { - fprintf(out, "NULL"); - } - } else { - H5S_class_t cls = va_arg(ap, H5S_class_t); /*lint !e64 Type mismatch not really occuring */ - 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_NULL: - fprintf(out, "H5S_NULL"); - break; - default: - fprintf(out, "%ld", (long)cls); - break; - } - } - break; - - case 's': - if (ptr) { - if (vp) { - fprintf(out, "0x%lx", (unsigned long)vp); - } else { - fprintf(out, "NULL"); - } - } else { - H5S_seloper_t so = va_arg(ap, H5S_seloper_t); /*lint !e64 Type mismatch not really occuring */ - switch (so) { - case H5S_SELECT_NOOP: - fprintf(out, "H5S_NOOP"); - break; - case H5S_SELECT_SET: - fprintf(out, "H5S_SELECT_SET"); - break; - case H5S_SELECT_OR: - fprintf(out, "H5S_SELECT_OR"); - break; - case H5S_SELECT_AND: - fprintf(out, "H5S_SELECT_AND"); - break; - case H5S_SELECT_XOR: - fprintf(out, "H5S_SELECT_XOR"); - break; - case H5S_SELECT_NOTB: - fprintf(out, "H5S_SELECT_NOTB"); - break; - case H5S_SELECT_NOTA: - fprintf(out, "H5S_SELECT_NOTA"); - break; - case H5S_SELECT_APPEND: - fprintf(out, "H5S_SELECT_APPEND"); - break; - case H5S_SELECT_PREPEND: - fprintf(out, "H5S_SELECT_PREPEND"); - break; - case H5S_SELECT_INVALID: - fprintf(out, "H5S_SELECT_INVALID"); - break; - default: - fprintf(out, "%ld", (long)so); - break; - } - } - break; + case 'S': + switch(type[1]) { + case 'c': + if(ptr) { + if(vp) + fprintf(out, "0x%lx", (unsigned long)vp); + else + fprintf(out, "NULL"); + } /* end if */ + else { + H5S_class_t cls = (H5S_class_t)va_arg(ap, int); + + 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_NULL: + fprintf(out, "H5S_NULL"); + break; + + default: + fprintf(out, "%ld", (long)cls); + break; + } /* end switch */ + } /* end else */ + break; - case 't': - if (ptr) { - if (vp) { + case 's': + if(ptr) { + if(vp) + fprintf(out, "0x%lx", (unsigned long)vp); + else + fprintf(out, "NULL"); + } /* end if */ + else { + H5S_seloper_t so = (H5S_seloper_t)va_arg(ap, int); + + switch(so) { + case H5S_SELECT_NOOP: + fprintf(out, "H5S_NOOP"); + break; + + case H5S_SELECT_SET: + fprintf(out, "H5S_SELECT_SET"); + break; + + case H5S_SELECT_OR: + fprintf(out, "H5S_SELECT_OR"); + break; + + case H5S_SELECT_AND: + fprintf(out, "H5S_SELECT_AND"); + break; + + case H5S_SELECT_XOR: + fprintf(out, "H5S_SELECT_XOR"); + break; + + case H5S_SELECT_NOTB: + fprintf(out, "H5S_SELECT_NOTB"); + break; + + case H5S_SELECT_NOTA: + fprintf(out, "H5S_SELECT_NOTA"); + break; + + case H5S_SELECT_APPEND: + fprintf(out, "H5S_SELECT_APPEND"); + break; + + case H5S_SELECT_PREPEND: + fprintf(out, "H5S_SELECT_PREPEND"); + break; + + case H5S_SELECT_INVALID: + fprintf(out, "H5S_SELECT_INVALID"); + break; + + default: + fprintf(out, "%ld", (long)so); + break; + } /* end switch */ + } /* end else */ + break; + + case 't': + if(ptr) { + if(vp) + fprintf(out, "0x%lx", (unsigned long)vp); + else + fprintf(out, "NULL"); + } /* end if */ + else { + H5S_sel_type st = (H5S_sel_type)va_arg(ap, int); + + switch(st) { + case H5S_SEL_ERROR: + fprintf(out, "H5S_SEL_ERROR"); + break; + + case H5S_SEL_NONE: + fprintf(out, "H5S_SEL_NONE"); + break; + + case H5S_SEL_POINTS: + fprintf(out, "H5S_SEL_POINTS"); + break; + + case H5S_SEL_HYPERSLABS: + fprintf(out, "H5S_SEL_HYPERSLABS"); + break; + + case H5S_SEL_ALL: + fprintf(out, "H5S_SEL_ALL"); + break; + + case H5S_SEL_N: + fprintf(out, "H5S_SEL_N"); + break; + + default: + fprintf(out, "%ld", (long)st); + break; + } /* end switch */ + } /* end else */ + break; + + default: + fprintf(out, "BADTYPE(S%c)", type[1]); + goto error; + } /* end switch */ + break; + + case 's': + if(ptr) { + if(vp) fprintf(out, "0x%lx", (unsigned long)vp); - } else { + else fprintf(out, "NULL"); - } - } else { - H5S_sel_type st = va_arg(ap, H5S_sel_type); /*lint !e64 Type mismatch not really occuring */ - switch (st) { - case H5S_SEL_ERROR: - fprintf(out, "H5S_SEL_ERROR"); + } /* end if */ + else { + const char *str = va_arg(ap, const char *); /*lint !e64 Type mismatch not really occuring */ + + fprintf(out, "\"%s\"", str); + } /* end else */ + break; + + case 'T': + switch(type[1]) { + case 'c': + if(ptr) { + if(vp) + fprintf(out, "0x%lx", (unsigned long)vp); + else + fprintf(out, "NULL"); + } /* end if */ + else { + H5T_cset_t cset = (H5T_cset_t)va_arg(ap, int); + + switch(cset) { + case H5T_CSET_ERROR: + fprintf(out, "H5T_CSET_ERROR"); + break; + + case H5T_CSET_ASCII: + fprintf(out, "H5T_CSET_ASCII"); + break; + + case H5T_CSET_UTF8: + fprintf(out, "H5T_CSET_UTF8"); + break; + + case H5T_CSET_RESERVED_2: + case H5T_CSET_RESERVED_3: + case H5T_CSET_RESERVED_4: + case H5T_CSET_RESERVED_5: + case H5T_CSET_RESERVED_6: + case H5T_CSET_RESERVED_7: + case H5T_CSET_RESERVED_8: + case H5T_CSET_RESERVED_9: + case H5T_CSET_RESERVED_10: + case H5T_CSET_RESERVED_11: + case H5T_CSET_RESERVED_12: + case H5T_CSET_RESERVED_13: + case H5T_CSET_RESERVED_14: + case H5T_CSET_RESERVED_15: + fprintf(out, "H5T_CSET_RESERVED_%ld", (long)cset); + break; + + default: + fprintf(out, "%ld", (long)cset); + break; + } /* end switch */ + } /* end else */ break; - case H5S_SEL_NONE: - fprintf(out, "H5S_SEL_NONE"); + + case 'd': + if(ptr) { + if(vp) + fprintf(out, "0x%lx", (unsigned long)vp); + else + fprintf(out, "NULL"); + } /* end if */ + else { + H5T_direction_t direct = (H5T_direction_t)va_arg(ap, int); + + switch(direct) { + case H5T_DIR_DEFAULT: + fprintf(out, "H5T_DIR_DEFAULT"); + break; + + case H5T_DIR_ASCEND: + fprintf(out, "H5T_DIR_ASCEND"); + break; + + case H5T_DIR_DESCEND: + fprintf(out, "H5T_DIR_DESCEND"); + break; + + default: + fprintf(out, "%ld", (long)direct); + break; + } /* end switch */ + } /* end else */ break; - case H5S_SEL_POINTS: - fprintf(out, "H5S_SEL_POINTS"); + + case 'e': + if(ptr) { + if(vp) + fprintf(out, "0x%lx", (unsigned long)vp); + else + fprintf(out, "NULL"); + } /* end if */ + else { + H5T_pers_t pers = (H5T_pers_t)va_arg(ap, int); + + switch(pers) { + case H5T_PERS_DONTCARE: + fprintf(out, "H5T_PERS_DONTCARE"); + break; + + case H5T_PERS_SOFT: + fprintf(out, "H5T_PERS_SOFT"); + break; + + case H5T_PERS_HARD: + fprintf(out, "H5T_PERS_HARD"); + break; + + default: + fprintf(out, "%ld", (long)pers); + break; + } /* end switch */ + } /* end else */ break; - case H5S_SEL_HYPERSLABS: - fprintf(out, "H5S_SEL_HYPERSLABS"); + + case 'n': + if(ptr) { + if(vp) + fprintf(out, "0x%lx", (unsigned long)vp); + else + fprintf(out, "NULL"); + } /* end if */ + else { + H5T_norm_t norm = (H5T_norm_t)va_arg(ap, int); + + switch(norm) { + case H5T_NORM_ERROR: + fprintf(out, "H5T_NORM_ERROR"); + break; + + case H5T_NORM_IMPLIED: + fprintf(out, "H5T_NORM_IMPLIED"); + break; + + case H5T_NORM_MSBSET: + fprintf(out, "H5T_NORM_MSBSET"); + break; + + case H5T_NORM_NONE: + fprintf(out, "H5T_NORM_NONE"); + break; + + default: + fprintf(out, "%ld", (long)norm); + break; + } /* end switch */ + } /* end else */ break; - case H5S_SEL_ALL: - fprintf(out, "H5S_SEL_ALL"); + + case 'o': + if(ptr) { + if(vp) + fprintf(out, "0x%lx", (unsigned long)vp); + else + fprintf(out, "NULL"); + } /* end if */ + else { + H5T_order_t order = (H5T_order_t)va_arg(ap, int); + + switch(order) { + case H5T_ORDER_ERROR: + fprintf(out, "H5T_ORDER_ERROR"); + break; + + case H5T_ORDER_LE: + fprintf(out, "H5T_ORDER_LE"); + break; + + case H5T_ORDER_BE: + fprintf(out, "H5T_ORDER_BE"); + break; + + case H5T_ORDER_VAX: + fprintf(out, "H5T_ORDER_VAX"); + break; + + case H5T_ORDER_NONE: + fprintf(out, "H5T_ORDER_NONE"); + break; + + default: + fprintf(out, "%ld", (long)order); + break; + } /* end switch */ + } /* end else */ break; - case H5S_SEL_N: - fprintf(out, "H5S_SEL_N"); + + case 'p': + if(ptr) { + if(vp) + fprintf(out, "0x%lx", (unsigned long)vp); + else + fprintf(out, "NULL"); + } /* end if */ + else { + H5T_pad_t pad = (H5T_pad_t)va_arg(ap, int); + + switch(pad) { + case H5T_PAD_ERROR: + fprintf(out, "H5T_PAD_ERROR"); + break; + + case H5T_PAD_ZERO: + fprintf(out, "H5T_PAD_ZERO"); + break; + + case H5T_PAD_ONE: + fprintf(out, "H5T_PAD_ONE"); + break; + + case H5T_PAD_BACKGROUND: + fprintf(out, "H5T_PAD_BACKGROUND"); + break; + + case H5T_NPAD: + fprintf(out, "H5T_NPAD"); + break; + + default: + fprintf(out, "%ld", (long)pad); + break; + } /* end switch */ + } /* end else */ break; - default: - fprintf(out, "%ld", (long)st); + + case 's': + if(ptr) { + if(vp) + fprintf(out, "0x%lx", (unsigned long)vp); + else + fprintf(out, "NULL"); + } /* end if */ + else { + H5T_sign_t sign = (H5T_sign_t)va_arg(ap, int); + + switch(sign) { + case H5T_SGN_ERROR: + fprintf(out, "H5T_SGN_ERROR"); + break; + + case H5T_SGN_NONE: + fprintf(out, "H5T_SGN_NONE"); + break; + + case H5T_SGN_2: + fprintf(out, "H5T_SGN_2"); + break; + + case H5T_NSGN: + fprintf(out, "H5T_NSGN"); + break; + + default: + fprintf(out, "%ld", (long)sign); + break; + } /* end switch */ + } /* end else */ break; - } - } + + case 't': + if(ptr) { + if(vp) + fprintf(out, "0x%lx", (unsigned long)vp); + else + fprintf(out, "NULL"); + } /* end if */ + else { + H5T_class_t type_class = (H5T_class_t)va_arg(ap, int); + + switch(type_class) { + case H5T_NO_CLASS: + fprintf(out, "H5T_NO_CLASS"); + break; + + case H5T_INTEGER: + fprintf(out, "H5T_INTEGER"); + break; + + case H5T_FLOAT: + fprintf(out, "H5T_FLOAT"); + break; + + case H5T_TIME: + fprintf(out, "H5T_TIME"); + break; + + case H5T_STRING: + fprintf(out, "H5T_STRING"); + break; + + case H5T_BITFIELD: + fprintf(out, "H5T_BITFIELD"); + break; + + case H5T_OPAQUE: + fprintf(out, "H5T_OPAQUE"); + break; + + case H5T_COMPOUND: + fprintf(out, "H5T_COMPOUND"); + break; + + case H5T_REFERENCE: + fprintf(out, "H5T_REFERENCE"); + break; + + case H5T_ENUM: + fprintf(out, "H5T_ENUM"); + break; + + case H5T_VLEN: + fprintf(out, "H5T_VLEN"); + break; + + case H5T_ARRAY: + fprintf(out, "H5T_ARRAY"); + break; + + case H5T_NCLASSES: + fprintf(out, "H5T_NCLASSES"); + break; + + default: + fprintf(out, "%ld", (long)type_class); + break; + } /* end switch */ + } /* end else */ + break; + + case 'z': + if(ptr) { + if(vp) + fprintf(out, "0x%lx", (unsigned long)vp); + else + fprintf(out, "NULL"); + } /* end if */ + else { + H5T_str_t str = (H5T_str_t)va_arg(ap, int); + + switch(str) { + case H5T_STR_ERROR: + fprintf(out, "H5T_STR_ERROR"); + break; + + case H5T_STR_NULLTERM: + fprintf(out, "H5T_STR_NULLTERM"); + break; + + case H5T_STR_NULLPAD: + fprintf(out, "H5T_STR_NULLPAD"); + break; + + case H5T_STR_SPACEPAD: + fprintf(out, "H5T_STR_SPACEPAD"); + break; + + case H5T_STR_RESERVED_3: + case H5T_STR_RESERVED_4: + case H5T_STR_RESERVED_5: + case H5T_STR_RESERVED_6: + case H5T_STR_RESERVED_7: + case H5T_STR_RESERVED_8: + case H5T_STR_RESERVED_9: + case H5T_STR_RESERVED_10: + case H5T_STR_RESERVED_11: + case H5T_STR_RESERVED_12: + case H5T_STR_RESERVED_13: + case H5T_STR_RESERVED_14: + case H5T_STR_RESERVED_15: + fprintf(out, "H5T_STR_RESERVED(%ld)",(long)str); + break; + + default: + fprintf(out, "%ld", (long)str); + break; + } /* end switch */ + } /* end else */ + break; + + default: + fprintf (out, "BADTYPE(T%c)", type[1]); + goto error; + } /* end switch */ break; - default: - fprintf(out, "BADTYPE(S%c)", type[1]); - goto error; - } - break; - - case 's': - if (ptr) { - if (vp) { - fprintf (out, "0x%lx", (unsigned long)vp); - } else { - fprintf(out, "NULL"); - } - } else { - const char *str = va_arg (ap, const char*); /*lint !e64 Type mismatch not really occuring */ - fprintf (out, "\"%s\"", str); - } - break; - - case 'T': - switch (type[1]) { - case 'c': - if (ptr) { - if (vp) { - fprintf (out, "0x%lx", (unsigned long)vp); - } else { - fprintf(out, "NULL"); - } - } else { - H5T_cset_t cset = va_arg (ap, H5T_cset_t); /*lint !e64 Type mismatch not really occuring */ - switch (cset) { - case H5T_CSET_ERROR: - fprintf (out, "H5T_CSET_ERROR"); - break; - case H5T_CSET_ASCII: - fprintf (out, "H5T_CSET_ASCII"); - break; - case H5T_CSET_UTF8: - fprintf (out, "H5T_CSET_UTF8"); - break; - case H5T_CSET_RESERVED_2: - case H5T_CSET_RESERVED_3: - case H5T_CSET_RESERVED_4: - case H5T_CSET_RESERVED_5: - case H5T_CSET_RESERVED_6: - case H5T_CSET_RESERVED_7: - case H5T_CSET_RESERVED_8: - case H5T_CSET_RESERVED_9: - case H5T_CSET_RESERVED_10: - case H5T_CSET_RESERVED_11: - case H5T_CSET_RESERVED_12: - case H5T_CSET_RESERVED_13: - case H5T_CSET_RESERVED_14: - case H5T_CSET_RESERVED_15: - fprintf (out, "H5T_CSET_RESERVED(%ld)",(long)cset); - break; - default: - fprintf (out, "%ld", (long)cset); - break; - } - } - break; - - case 'd': - if (ptr) { - if (vp) { - fprintf (out, "0x%lx", (unsigned long)vp); - } else { - fprintf(out, "NULL"); - } - } else { - H5T_direction_t direct = va_arg (ap, H5T_direction_t); /*lint !e64 Type mismatch not really occuring */ - switch (direct) { - case H5T_DIR_DEFAULT: - fprintf (out, "H5T_DIR_DEFAULT"); - break; - case H5T_DIR_ASCEND: - fprintf (out, "H5T_DIR_ASCEND"); - break; - case H5T_DIR_DESCEND: - fprintf (out, "H5T_DIR_DESCEND"); - break; - default: - fprintf (out, "%ld", (long)direct); - break; - } - } - break; - - case 'e': - if (ptr) { - if (vp) { - fprintf(out, "0x%lx", (unsigned long)vp); - } else { - fprintf(out, "NULL"); - } - } else { - H5T_pers_t pers = va_arg(ap, H5T_pers_t); /*lint !e64 Type mismatch not really occuring */ - switch (pers) { - case H5T_PERS_DONTCARE: - fprintf(out, "H5T_PERS_DONTCARE"); - break; - case H5T_PERS_SOFT: - fprintf(out, "H5T_PERS_SOFT"); - break; - case H5T_PERS_HARD: - fprintf(out, "H5T_PERS_HARD"); - break; - default: - fprintf(out, "%ld", (long)pers); - break; - } - } - break; - - case 'n': - if (ptr) { - if (vp) { - fprintf (out, "0x%lx", (unsigned long)vp); - } else { - fprintf(out, "NULL"); - } - } else { - H5T_norm_t norm = va_arg (ap, H5T_norm_t); /*lint !e64 Type mismatch not really occuring */ - switch (norm) { - case H5T_NORM_ERROR: - fprintf (out, "H5T_NORM_ERROR"); - break; - case H5T_NORM_IMPLIED: - fprintf (out, "H5T_NORM_IMPLIED"); - break; - case H5T_NORM_MSBSET: - fprintf (out, "H5T_NORM_MSBSET"); - break; - case H5T_NORM_NONE: - fprintf (out, "H5T_NORM_NONE"); - break; - default: - fprintf (out, "%ld", (long)norm); - break; - } - } - break; - - case 'o': - if (ptr) { - if (vp) { - fprintf (out, "0x%lx", (unsigned long)vp); - } else { - fprintf(out, "NULL"); - } - } else { - H5T_order_t order = va_arg (ap, H5T_order_t); /*lint !e64 Type mismatch not really occuring */ - switch (order) { - case H5T_ORDER_ERROR: - fprintf (out, "H5T_ORDER_ERROR"); - break; - case H5T_ORDER_LE: - fprintf (out, "H5T_ORDER_LE"); - break; - case H5T_ORDER_BE: - fprintf (out, "H5T_ORDER_BE"); - break; - case H5T_ORDER_VAX: - fprintf (out, "H5T_ORDER_VAX"); - break; - case H5T_ORDER_NONE: - fprintf (out, "H5T_ORDER_NONE"); - break; - default: - fprintf (out, "%ld", (long)order); - break; - } - } - break; - - case 'p': - if(ptr) { - if(vp) - fprintf(out, "0x%lx", (unsigned long)vp); - else - fprintf(out, "NULL"); - } else { - H5T_pad_t pad = (H5T_pad_t)va_arg(ap, H5T_pad_t); /*lint !e64 Type mismatch not really occuring */ - - switch(pad) { - case H5T_PAD_ERROR: - fprintf(out, "H5T_PAD_ERROR"); - break; - - case H5T_PAD_ZERO: - fprintf(out, "H5T_PAD_ZERO"); - break; - - case H5T_PAD_ONE: - fprintf(out, "H5T_PAD_ONE"); - break; - - case H5T_PAD_BACKGROUND: - fprintf(out, "H5T_PAD_BACKGROUND"); - break; - - case H5T_NPAD: - fprintf(out, "H5T_NPAD"); - break; - - default: - fprintf(out, "%ld", (long)pad); - break; - } /* end switch */ - } - break; - - case 's': - if (ptr) { - if (vp) { - fprintf (out, "0x%lx", (unsigned long)vp); - } else { - fprintf(out, "NULL"); - } - } else { - H5T_sign_t sign = va_arg (ap, H5T_sign_t); /*lint !e64 Type mismatch not really occuring */ - switch (sign) { - case H5T_SGN_ERROR: - fprintf (out, "H5T_SGN_ERROR"); - break; - case H5T_SGN_NONE: - fprintf (out, "H5T_SGN_NONE"); - break; - case H5T_SGN_2: - fprintf (out, "H5T_SGN_2"); - break; - case H5T_NSGN: - fprintf (out, "H5T_NSGN"); - break; - default: - fprintf (out, "%ld", (long)sign); - break; - } - } - break; - - case 't': - if (ptr) { - if (vp) { - fprintf (out, "0x%lx", (unsigned long)vp); - } else { - fprintf(out, "NULL"); - } - } else { - H5T_class_t type_class = va_arg(ap, H5T_class_t); /*lint !e64 Type mismatch not really occuring */ - switch (type_class) { - case H5T_NO_CLASS: - fprintf(out, "H5T_NO_CLASS"); - break; - case H5T_INTEGER: - fprintf(out, "H5T_INTEGER"); - break; - case H5T_FLOAT: - fprintf(out, "H5T_FLOAT"); - break; - case H5T_TIME: - fprintf(out, "H5T_TIME"); - break; - case H5T_STRING: - fprintf(out, "H5T_STRING"); - break; - case H5T_BITFIELD: - fprintf(out, "H5T_BITFIELD"); - break; - case H5T_OPAQUE: - fprintf(out, "H5T_OPAQUE"); - break; - case H5T_COMPOUND: - fprintf(out, "H5T_COMPOUND"); - break; - case H5T_REFERENCE: - fprintf(out, "H5T_REFERENCE"); - break; - case H5T_ENUM: - fprintf(out, "H5T_ENUM"); - break; - case H5T_VLEN: - fprintf(out, "H5T_VLEN"); - break; - case H5T_ARRAY: - fprintf(out, "H5T_ARRAY"); - break; - case H5T_NCLASSES: - fprintf(out, "H5T_NCLASSES"); - break; - default: - fprintf(out, "%ld", (long)type_class); - break; - } - } - break; - - case 'z': - if (ptr) { - if (vp) { - fprintf (out, "0x%lx", (unsigned long)vp); - } else { - fprintf(out, "NULL"); - } - } else { - H5T_str_t str = va_arg(ap, H5T_str_t); /*lint !e64 Type mismatch not really occuring */ - switch (str) { - case H5T_STR_ERROR: - fprintf(out, "H5T_STR_ERROR"); - break; - case H5T_STR_NULLTERM: - fprintf(out, "H5T_STR_NULLTERM"); - break; - case H5T_STR_NULLPAD: - fprintf(out, "H5T_STR_NULLPAD"); - break; - case H5T_STR_SPACEPAD: - fprintf(out, "H5T_STR_SPACEPAD"); - break; - case H5T_STR_RESERVED_3: - case H5T_STR_RESERVED_4: - case H5T_STR_RESERVED_5: - case H5T_STR_RESERVED_6: - case H5T_STR_RESERVED_7: - case H5T_STR_RESERVED_8: - case H5T_STR_RESERVED_9: - case H5T_STR_RESERVED_10: - case H5T_STR_RESERVED_11: - case H5T_STR_RESERVED_12: - case H5T_STR_RESERVED_13: - case H5T_STR_RESERVED_14: - case H5T_STR_RESERVED_15: - fprintf(out, "H5T_STR_RESERVED(%ld)",(long)str); - break; - default: - fprintf(out, "%ld", (long)str); - break; - } - } - break; - - default: - fprintf (out, "BADTYPE(T%c)", type[1]); - goto error; - } - break; - - case 't': - if (ptr) { - if (vp) { - fprintf (out, "0x%lx", (unsigned long)vp); - } else { - fprintf(out, "NULL"); - } - } else { - htri_t tri_var = va_arg (ap, htri_t); - if (tri_var>0) fprintf (out, "TRUE"); - else if (!tri_var) fprintf (out, "FALSE"); - else fprintf (out, "FAIL(%d)", (int)tri_var); - } - break; - - case 'x': - if (ptr) { - if (vp) { - fprintf (out, "0x%lx", (unsigned long)vp); - if (asize_idx>=0 && asize[asize_idx]>=0) { - void **p = (void**)vp; - fprintf(out, " {"); - for (i=0; i<asize[asize_idx]; i++) { - if (p[i]) { - fprintf(out, "%s0x%lx", i?", ":"", - (unsigned long)(p[i])); - } else { - fprintf(out, "%sNULL", i?", ":""); - } - } - fprintf(out, "}"); - } - } else { - fprintf(out, "NULL"); - } - } else { - vp = va_arg (ap, void*); /*lint !e64 Type mismatch not really occuring */ - if (vp) { - fprintf (out, "0x%lx", (unsigned long)vp); - } else { - fprintf(out, "NULL"); - } - } - break; - - case 'z': - if (ptr) { - if (vp) { - fprintf (out, "0x%lx", (unsigned long)vp); - if (asize_idx>=0 && asize[asize_idx]>=0) { - size_t *p = (size_t*)vp; - fprintf(out, " {"); - for (i=0; i<asize[asize_idx]; i++) { - HDfprintf(out, "%s%Zu", i?", ":"", p[i]); - } - fprintf(out, "}"); - } - } else { - fprintf(out, "NULL"); - } - } else { - size_t size = va_arg (ap, size_t); /*lint !e732 Loss of sign not really occuring */ + case 't': + if(ptr) { + if(vp) + fprintf(out, "0x%lx", (unsigned long)vp); + else + fprintf(out, "NULL"); + } /* end if */ + else { + htri_t tri_var = va_arg (ap, htri_t); + + if(tri_var>0) + fprintf (out, "TRUE"); + else if(!tri_var) + fprintf (out, "FALSE"); + else + fprintf(out, "FAIL(%d)", (int)tri_var); + } /* end else */ + break; - HDfprintf (out, "%Zu", size); - asize[argno] = (hssize_t)size; - } - break; - - case 'Z': - switch (type[1]) { - case 'a': - if (ptr) { - if (vp) { - fprintf (out, "0x%lx", (unsigned long)vp); - } else { - fprintf(out, "NULL"); - } - } else { - H5Z_SO_scale_type_t scale_type = va_arg (ap, H5Z_SO_scale_type_t); /*lint !e64 Type mismatch not really occuring */ - switch(scale_type) { - case H5Z_SO_FLOAT_DSCALE: - fprintf(out, "H5Z_SO_FLOAT_DSCALE"); - break; - case H5Z_SO_FLOAT_ESCALE: - fprintf(out, "H5Z_SO_FLOAT_ESCALE"); - break; - case H5Z_SO_INT: - fprintf(out, "H5Z_SO_INT"); - break; - default: - fprintf(out, "%ld", (long)scale_type); - break; - } - } - break; - case 'c': - if (ptr) { - if (vp) { - fprintf (out, "0x%lx", (unsigned long)vp); - } else { - fprintf(out, "NULL"); - } - } else { - H5Z_class2_t *filter = va_arg (ap, H5Z_class2_t*); /*lint !e64 Type mismatch not really occuring */ - fprintf (out, "0x%lx", (unsigned long)filter); - } - break; - - case 'e': - if (ptr) { - if (vp) { - fprintf (out, "0x%lx", (unsigned long)vp); - } else { - fprintf(out, "NULL"); - } - } else { - H5Z_EDC_t edc = va_arg (ap, H5Z_EDC_t); /*lint !e64 Type mismatch not really occuring */ - - if (H5Z_DISABLE_EDC==edc) { - fprintf (out, "H5Z_DISABLE_EDC"); - } else if (H5Z_ENABLE_EDC==edc) { - fprintf (out, "H5Z_ENABLE_EDC"); - } else { - fprintf (out, "%ld", (long)edc); - } - } - break; - - case 'f': - if (ptr) { - if (vp) { - fprintf (out, "0x%lx", (unsigned long)vp); - } else { - fprintf(out, "NULL"); - } - } else { - H5Z_filter_t id = va_arg (ap, H5Z_filter_t); + case 'x': + if(ptr) { + if(vp) { + fprintf(out, "0x%lx", (unsigned long)vp); + if(asize_idx >= 0 && asize[asize_idx] >= 0) { + void **p = (void**)vp; + + fprintf(out, " {"); + for(i = 0; i < asize[asize_idx]; i++) { + if(p[i]) + fprintf(out, "%s0x%lx", (i ? ", " : ""), (unsigned long)(p[i])); + else + fprintf(out, "%sNULL", (i ? ", " : "")); + } /* end for */ + fprintf(out, "}"); + } /* end if */ + } /* end if */ + else + fprintf(out, "NULL"); + } /* end if */ + else { + vp = va_arg (ap, void *); /*lint !e64 Type mismatch not really occuring */ - if (H5Z_FILTER_DEFLATE==id) { - fprintf (out, "H5Z_FILTER_DEFLATE"); - } else { - fprintf (out, "%ld", (long)id); - } - } - break; - - case 's': - if (ptr) { - if (vp) { - fprintf (out, "0x%lx", (unsigned long)vp); - if (asize_idx>=0 && asize[asize_idx]>=0) { - ssize_t *p = (ssize_t*)vp; - fprintf(out, " {"); - for (i=0; i<asize[asize_idx]; i++) { - HDfprintf(out, "%s%Zd", i?", ":"", p[i]); - } - fprintf(out, "}"); - } - } else { - fprintf(out, "NULL"); - } - } else { - ssize_t ssize = va_arg (ap, ssize_t); + if(vp) + fprintf(out, "0x%lx", (unsigned long)vp); + else + fprintf(out, "NULL"); + } /* end else */ + break; - HDfprintf (out, "%Zd", ssize); - asize[argno] = (hssize_t)ssize; - } - break; + case 'z': + if(ptr) { + if(vp) { + fprintf(out, "0x%lx", (unsigned long)vp); + if(asize_idx >= 0 && asize[asize_idx] >= 0) { + size_t *p = (size_t *)vp; - default: - fprintf (out, "BADTYPE(Z%c)", type[1]); - goto error; - } - break; + fprintf(out, " {"); + for(i = 0; i < asize[asize_idx]; i++) + HDfprintf(out, "%s%Zu", (i ? ", " : ""), p[i]); + fprintf(out, "}"); + } /* end if */ + } /* end if */ + else + fprintf(out, "NULL"); + } /* end if */ + else { + size_t size = va_arg(ap, size_t); /*lint !e732 Loss of sign not really occuring */ - default: - if (HDisupper (type[0])) { - fprintf (out, "BADTYPE(%c%c)", type[0], type[1]); - } else { - fprintf (out, "BADTYPE(%c)", type[0]); - } - goto error; - } - } + HDfprintf(out, "%Zu", size); + asize[argno] = (hssize_t)size; + } /* end else */ + break; + + case 'Z': + switch (type[1]) { + case 'a': + if(ptr) { + if(vp) + fprintf(out, "0x%lx", (unsigned long)vp); + else + fprintf(out, "NULL"); + } /* end if */ + else { + H5Z_SO_scale_type_t scale_type = (H5Z_SO_scale_type_t)va_arg(ap, int); + + switch(scale_type) { + case H5Z_SO_FLOAT_DSCALE: + fprintf(out, "H5Z_SO_FLOAT_DSCALE"); + break; + + case H5Z_SO_FLOAT_ESCALE: + fprintf(out, "H5Z_SO_FLOAT_ESCALE"); + break; + + case H5Z_SO_INT: + fprintf(out, "H5Z_SO_INT"); + break; + + default: + fprintf(out, "%ld", (long)scale_type); + break; + } /* end switch */ + } /* end else */ + break; + + case 'c': + if(ptr) { + if(vp) + fprintf(out, "0x%lx", (unsigned long)vp); + else + fprintf(out, "NULL"); + } /* end if */ + else { + H5Z_class2_t *filter = va_arg(ap, H5Z_class2_t*); /*lint !e64 Type mismatch not really occuring */ + + fprintf(out, "0x%lx", (unsigned long)filter); + } /* end else */ + break; + case 'e': + if(ptr) { + if(vp) + fprintf(out, "0x%lx", (unsigned long)vp); + else + fprintf(out, "NULL"); + } /* end if */ + else { + H5Z_EDC_t edc = (H5Z_EDC_t)va_arg(ap, int); + + if(H5Z_DISABLE_EDC == edc) + fprintf(out, "H5Z_DISABLE_EDC"); + else if (H5Z_ENABLE_EDC == edc) + fprintf(out, "H5Z_ENABLE_EDC"); + else + fprintf(out, "%ld", (long)edc); + } /* end else */ + break; + + case 'f': + if(ptr) { + if(vp) + fprintf(out, "0x%lx", (unsigned long)vp); + else + fprintf(out, "NULL"); + } /* end if */ + else { + H5Z_filter_t id = va_arg(ap, H5Z_filter_t); + + if(H5Z_FILTER_DEFLATE == id) + fprintf(out, "H5Z_FILTER_DEFLATE"); + else + fprintf(out, "%ld", (long)id); + } /* end else */ + break; + + case 's': + if(ptr) { + if(vp) { + fprintf(out, "0x%lx", (unsigned long)vp); + if(asize_idx >= 0 && asize[asize_idx] >= 0) { + ssize_t *p = (ssize_t *)vp; + + fprintf(out, " {"); + for(i = 0; i < asize[asize_idx]; i++) + HDfprintf(out, "%s%Zd", (i ? ", " : ""), p[i]); + fprintf(out, "}"); + } /* end if */ + } /* end if */ + else + fprintf(out, "NULL"); + } /* end if */ + else { + ssize_t ssize = va_arg(ap, ssize_t); + + HDfprintf(out, "%Zd", ssize); + asize[argno] = (hssize_t)ssize; + } /* end else */ + break; + + default: + fprintf(out, "BADTYPE(Z%c)", type[1]); + goto error; + } /* end switch */ + break; + + default: + if(HDisupper(type[0])) + fprintf(out, "BADTYPE(%c%c)", type[0], type[1]); + else + fprintf(out, "BADTYPE(%c)", type[0]); + goto error; + } /* end switch */ + } /* end for */ /* Display event time for return */ - if (returning && H5_debug_g.ttimes) - fprintf(out, " @%.6f [dt=%.6f]", - event_time.etime - first_time.etime, - event_time.etime - *returning); - - error: - va_end (ap); - if (returning) { - fprintf (out, ";\n"); - } else { + if(returning && H5_debug_g.ttimes) + fprintf(out, " @%.6f [dt=%.6f]", (event_time.etime - first_time.etime), + (event_time.etime - *returning)); + +error: + va_end(ap); + if(returning) + fprintf(out, ";\n"); + else { last_call_depth = current_depth++; fprintf (out, ")"); - } - HDfflush (out); + } /* end else */ + HDfflush(out); + return event_time.etime; } /* end H5_trace() */ |