/* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * Copyright by The HDF Group. * * Copyright by the Board of Trustees of the University of Illinois. * * All rights reserved. * * * * This file is part of HDF5. The full HDF5 copyright notice, including * * terms governing use, modification, and redistribution, is contained in * * the files COPYING and Copyright.html. COPYING can be found at the root * * of the source code distribution tree; Copyright.html can be found at the * * root level of an installed copy of the electronic HDF5 document set and * * is linked from the top-level documents page. It can also be found at * * http://hdfgroup.org/HDF5/doc/Copyright.html. If you do not have * * access to either file, you may request a copy from help@hdfgroup.org. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ /*------------------------------------------------------------------------- * * Created: H5trace.c * Aug 21 2006 * Quincey Koziol <koziol@hdfgroup.org> * * Purpose: Internal code for tracing API calls * *------------------------------------------------------------------------- */ /****************/ /* Module Setup */ /****************/ #define H5I_PACKAGE /*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 */ #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 * * Purpose: This function is called whenever an API function is called * and tracing is turned on. If RETURNING is non-zero then * the caller is about to return and RETURNING points to the * time for the corresponding function call event. Otherwise * we print the function name and the arguments. * * The TYPE argument is a string which gives the type of each of * the following argument pairs. Each type is zero or more * asterisks (one for each level of indirection, although some * types have one level of indirection already implied) followed * by either one letter (lower case) or two letters (first one * uppercase). * * The variable argument list consists of pairs of values. Each * pair is a string which is the formal argument name in the * calling function, followed by the argument value. The type * of the argument value is given by the TYPE string. * * Note: The TYPE string is meant to be terse and is generated by a * separate perl script. * * WARNING: DO NOT CALL ANY HDF5 FUNCTION THAT CALLS FUNC_ENTER(). DOING * SO MAY CAUSE H5_trace() TO BE INVOKED RECURSIVELY OR MAY * CAUSE LIBRARY INITIALIZATIONS THAT ARE NOT DESIRED. * * Return: void * * 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, ...) { 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; H5_timer_t event_time; 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 0.0; /*tracing is off*/ va_start (ap, type); if (H5_debug_g.ttop) { if (returning) { if (current_depth>1) { --current_depth; return 0.0; } } else { if (current_depth>0) { /*do not update last_call_depth*/ current_depth++; return 0.0; } } } /* Get tim for event */ 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 { 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 * argument list or start of return value. If this call is for a * 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); --current_depth; if (current_depth<last_call_depth) { /* We are at the beginning of a line */ 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++) fputc('+', out); fprintf(out, "%*s%s = ", 2*current_depth, "", func); } else { /* Continue current line with return value */ fprintf(out, " = "); } } 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++) fputc('+', out); fprintf(out, "%*s%s(", 2*current_depth, "", func); } /* Clear array sizes */ 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) { /* 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; } else { rest = (char *)HDstrchr(type, ']'); assert(rest); type = rest+1; asize_idx = -1; } } 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 = buf; } fprintf (out, "%s%s=", argno?", ":"", argname); } 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"); } } else { H5D_alloc_time_t alloc_time = va_arg (ap, H5D_alloc_time_t); /*lint !e64 Type mismatch not really occuring */ 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; } } break; case 'c': if (ptr) { if (vp) { fprintf (out, "0x%lx", (unsigned long)vp); } else { fprintf(out, "NULL"); } } else { H5FD_mpio_collective_opt_t opt= va_arg(ap, H5FD_mpio_collective_opt_t); /*lint !e64 Type mismatch not really occuring */ 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; } } break; case 'f': if (ptr) { if (vp) { fprintf (out, "0x%lx", (unsigned long)vp); } else { fprintf(out, "NULL"); } } else { H5D_fill_time_t fill_time = va_arg (ap, H5D_fill_time_t); /*lint !e64 Type mismatch not really occuring */ 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; } } break; case 'F': if (ptr) { if (vp) { fprintf (out, "0x%lx", (unsigned long)vp); } else { fprintf(out, "NULL"); } } else { H5D_fill_value_t fill_value = va_arg (ap, H5D_fill_value_t); /*lint !e64 Type mismatch not really occuring */ 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; } } break; case 'h': if (ptr) { if (vp) { fprintf (out, "0x%lx", (unsigned long)vp); } else { fprintf(out, "NULL"); } } else { H5FD_mpio_chunk_opt_t opt = va_arg(ap, H5FD_mpio_chunk_opt_t); /*lint !e64 Type mismatch not really occuring */ 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; } } 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; } 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; } } 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; case H5F_SCOPE_DOWN: fprintf(out, "H5F_SCOPE_DOWN " "/*FOR INTERNAL USE ONLY!*/"); break; } } break; default: fprintf(out, "BADTYPE(F%c)", type[1]); goto error; } break; 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 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 '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 */ 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"); } } 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"); } 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 = 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; } } } 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 */ 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; } /* 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 = 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; } /* 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) { 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; } } 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 = va_arg(ap, H5L_type_t); /*lint !e64 Type mismatch not really occuring */ 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; 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 { #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 { #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"); } /* 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_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; 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 = H5I_object(pclass_id)) && (class_name=H5P_get_class_name(pclass))!=NULL) { fprintf (out, class_name); H5MM_xfree(class_name); } /* end if */ 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"); } } 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; 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 't': if (ptr) { if (vp) { fprintf(out, "0x%lx", (unsigned long)vp); } 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"); 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; } } 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 = 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; } } 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 */ 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_class_t *filter = va_arg (ap, H5Z_class_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); 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); HDfprintf (out, "%Zd", ssize); asize[argno] = (hssize_t)ssize; } break; default: fprintf (out, "BADTYPE(Z%c)", type[1]); goto error; } break; default: if (HDisupper (type[0])) { fprintf (out, "BADTYPE(%c%c)", type[0], type[1]); } else { fprintf (out, "BADTYPE(%c)", type[0]); } goto error; } } /* 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 { last_call_depth = current_depth++; fprintf (out, ")"); } HDfflush (out); return event_time.etime; } /* end H5_trace() */