/* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 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 COPYING file, which can be found at the root of the source code * * distribution tree, or in https://support.hdfgroup.org/ftp/HDF5/releases. * * 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 * * Purpose: Internal code for tracing API calls * *------------------------------------------------------------------------- */ /****************/ /* Module Setup */ /****************/ #define H5I_FRIEND /*suppress error about including H5Ipkg */ /***********/ /* Headers */ /***********/ #include "H5private.h" /* Generic Functions */ #include "H5Dprivate.h" /* Datasets */ #include "H5Eprivate.h" /* Error handling */ #include "H5FDprivate.h" /* File drivers */ #include "H5Ipkg.h" /* IDs */ #include "H5MMprivate.h" /* Memory management */ #include "H5VLprivate.h" /* Virtual Object Layer */ #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: Execution time for an API call * * Programmer: Robb Matzke * Tuesday, June 16, 1998 * *------------------------------------------------------------------------- */ 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.0F, 0.0F, 0.0F}; static int current_depth = 0; static int last_call_depth = 0; /* FUNC_ENTER() should not be called */ if(!out) return 0.0F; /*tracing is off*/ HDva_start(ap, type); if(H5_debug_g.ttop) { if(returning) { if(current_depth > 1) { --current_depth; return 0.0F; } /* end if */ } /* end if */ else { if(current_depth > 0) { /*do not update last_call_depth*/ current_depth++; return 0.0F; } /* end if */ } /* end else */ } /* end if */ /* Get time for event */ if(H5_DBL_ABS_EQUAL(first_time.etime, H5_DOUBLE(0.0))) 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) { HDassert(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[320]; HDsprintf(tmp, "%.6f", event_time.etime-first_time.etime); HDfprintf(out, " %*s ", (int)HDstrlen(tmp), ""); } /* end if */ for(i = 0; i < current_depth; i++) HDfputc('+', out); HDfprintf(out, "%*s%s = ", 2*current_depth, "", func); } /* end if */ else { /* Continue current line with return value */ HDfprintf(out, " = "); } /* end else */ } /* end if */ else { if(current_depth>last_call_depth) HDfputs(" = \n", out); if(H5_debug_g.ttimes) HDfprintf(out, "@%.6f ", event_time.etime - first_time.etime); for(i = 0; i < current_depth; i++) HDfputc('+', out); HDfprintf(out, "%*s%s(", 2*current_depth, "", func); } /* end else */ /* 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); HDassert(0 <= asize_idx && asize_idx < (int) NELMTS(asize)); HDassert(']'==*rest); type = rest + 1; } else { rest = (char *)HDstrchr(type, ']'); HDassert(rest); type = rest + 1; asize_idx = -1; } } /* 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 = HDva_arg(ap, char *); if(argname) { unsigned n = (unsigned)MAX (0, (int)HDstrlen(argname) - 3); 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; } /* end if */ HDfprintf(out, "%s%s=", argno?", ":"", argname); } /* end if */ else argname = ""; /* The value */ if(ptr) vp = HDva_arg(ap, void *); switch(type[0]) { case 'a': if(ptr) { if(vp) HDfprintf(out, "0x%lx", (unsigned long)vp); else HDfprintf(out, "NULL"); } /* end if */ else { haddr_t addr = HDva_arg(ap, haddr_t); HDfprintf(out, "%a", addr); } /* end else */ break; case 'b': if(ptr) { if(vp) HDfprintf(out, "0x%lx", (unsigned long)vp); else HDfprintf(out, "NULL"); } /* end if */ else { /* Can't pass hbool_t to HDva_arg() */ hbool_t bool_var = (hbool_t)HDva_arg(ap, int); if(TRUE == bool_var) HDfprintf(out, "TRUE"); else if(!bool_var) HDfprintf(out, "FALSE"); else HDfprintf(out, "TRUE(%u)", (unsigned)bool_var); } break; case 'd': if(ptr) { if(vp) HDfprintf(out, "0x%lx", (unsigned long)vp); else HDfprintf(out, "NULL"); } /* end if */ else { double dbl = HDva_arg(ap, double); HDfprintf(out, "%g", dbl); } /* end else */ break; case 'D': switch(type[1]) { case 'a': if(ptr) { if(vp) HDfprintf (out, "0x%lx", (unsigned long)vp); else HDfprintf(out, "NULL"); } /* end if */ else { H5D_alloc_time_t alloc_time = (H5D_alloc_time_t)HDva_arg(ap, int); switch(alloc_time) { case H5D_ALLOC_TIME_ERROR: HDfprintf(out, "H5D_ALLOC_TIME_ERROR"); break; case H5D_ALLOC_TIME_DEFAULT: HDfprintf(out, "H5D_ALLOC_TIME_DEFAULT"); break; case H5D_ALLOC_TIME_EARLY: HDfprintf(out, "H5D_ALLOC_TIME_EARLY"); break; case H5D_ALLOC_TIME_LATE: HDfprintf(out, "H5D_ALLOC_TIME_LATE"); break; case H5D_ALLOC_TIME_INCR: HDfprintf(out, "H5D_ALLOC_TIME_INCR"); break; default: HDfprintf(out, "%ld", (long)alloc_time); break; } /* end switch */ } /* end else */ break; case 'c': if(ptr) { if(vp) HDfprintf(out, "0x%lx", (unsigned long)vp); else HDfprintf(out, "NULL"); } /* end if */ else { H5FD_mpio_collective_opt_t opt = (H5FD_mpio_collective_opt_t)HDva_arg(ap, int); switch(opt) { case H5FD_MPIO_COLLECTIVE_IO: HDfprintf(out, "H5FD_MPIO_COLLECTIVE_IO"); break; case H5FD_MPIO_INDIVIDUAL_IO: HDfprintf(out, "H5FD_MPIO_INDIVIDUAL_IO"); break; default: HDfprintf(out, "%ld", (long)opt); break; } /* end switch */ } /* end else */ break; case 'f': if(ptr) { if(vp) HDfprintf(out, "0x%lx", (unsigned long)vp); else HDfprintf(out, "NULL"); } /* end if */ else { H5D_fill_time_t fill_time = (H5D_fill_time_t)HDva_arg(ap, int); switch(fill_time) { case H5D_FILL_TIME_ERROR: HDfprintf(out, "H5D_FILL_TIME_ERROR"); break; case H5D_FILL_TIME_ALLOC: HDfprintf(out, "H5D_FILL_TIME_ALLOC"); break; case H5D_FILL_TIME_NEVER: HDfprintf(out, "H5D_FILL_TIME_NEVER"); break; case H5D_FILL_TIME_IFSET: HDfprintf(out, "H5D_FILL_TIME_IFSET"); break; default: HDfprintf(out, "%ld", (long)fill_time); break; } /* end switch */ } /* end else */ break; case 'F': if(ptr) { if(vp) HDfprintf(out, "0x%lx", (unsigned long)vp); else HDfprintf(out, "NULL"); } /* end if */ else { H5D_fill_value_t fill_value = (H5D_fill_value_t)HDva_arg(ap, int); switch(fill_value) { case H5D_FILL_VALUE_ERROR: HDfprintf(out, "H5D_FILL_VALUE_ERROR"); break; case H5D_FILL_VALUE_UNDEFINED: HDfprintf(out, "H5D_FILL_VALUE_UNDEFINED"); break; case H5D_FILL_VALUE_DEFAULT: HDfprintf(out, "H5D_FILL_VALUE_DEFAULT"); break; case H5D_FILL_VALUE_USER_DEFINED: HDfprintf(out, "H5D_FILL_VALUE_USER_DEFINED"); break; default: HDfprintf(out, "%ld", (long)fill_value); break; } /* end switch */ } /* end else */ break; case 'h': if(ptr) { if(vp) HDfprintf(out, "0x%lx", (unsigned long)vp); else HDfprintf(out, "NULL"); } /* end if */ else { H5FD_mpio_chunk_opt_t opt = (H5FD_mpio_chunk_opt_t)HDva_arg(ap, int); switch(opt) { case H5FD_MPIO_CHUNK_DEFAULT: HDfprintf(out, "H5FD_MPIO_CHUNK_DEFAULT"); break; case H5FD_MPIO_CHUNK_ONE_IO: HDfprintf(out, "H5FD_MPIO_CHUNK_ONE_IO"); break; case H5FD_MPIO_CHUNK_MULTI_IO: HDfprintf(out, "H5FD_MPIO_CHUNK_MULTI_IO"); break; default: HDfprintf(out, "%ld", (long)opt); break; } /* end switch */ } /* end else */ break; case 'i': if(ptr) { if(vp) HDfprintf(out, "0x%lx", (unsigned long)vp); else HDfprintf(out, "NULL"); } /* end if */ else { H5D_mpio_actual_io_mode_t actual_io_mode = (H5D_mpio_actual_io_mode_t)HDva_arg(ap, int); switch(actual_io_mode) { case H5D_MPIO_NO_COLLECTIVE: HDfprintf(out, "H5D_MPIO_NO_COLLECTIVE"); break; case H5D_MPIO_CHUNK_INDEPENDENT: HDfprintf(out, "H5D_MPIO_CHUNK_INDEPENDENT"); break; case H5D_MPIO_CHUNK_COLLECTIVE: HDfprintf(out, "H5D_MPIO_CHUNK_COLLECTIVE"); break; case H5D_MPIO_CHUNK_MIXED: HDfprintf(out, "H5D_MPIO_CHUNK_MIXED"); break; case H5D_MPIO_CONTIGUOUS_COLLECTIVE: HDfprintf(out, "H5D_MPIO_CONTIGUOUS_COLLECTIVE"); break; default: HDfprintf(out, "%ld", (long)actual_io_mode); break; } /* end switch */ } /* end else */ break; case 'k': if(ptr) { if(vp) HDfprintf(out, "0x%lx", (unsigned long)vp); else HDfprintf(out, "NULL"); } /* end if */ else { H5D_chunk_index_t idx = (H5D_chunk_index_t)HDva_arg(ap, int); switch(idx) { case H5D_CHUNK_IDX_BTREE: HDfprintf(out, "H5D_CHUNK_IDX_BTREE"); break; case H5D_CHUNK_IDX_NONE: HDfprintf(out, "H5D_CHUNK_IDX_NONE"); break; case H5D_CHUNK_IDX_FARRAY: HDfprintf(out, "H5D_CHUNK_IDX_FARRAY"); break; case H5D_CHUNK_IDX_EARRAY: HDfprintf(out, "H5D_CHUNK_IDX_EARRAY"); break; case H5D_CHUNK_IDX_BT2: HDfprintf(out, "H5D_CHUNK_IDX_BT2"); break; case H5D_CHUNK_IDX_SINGLE: HDfprintf(out, "H5D_CHUNK_IDX_SINGLE"); break; case H5D_CHUNK_IDX_NTYPES: HDfprintf(out, "ERROR: H5D_CHUNK_IDX_NTYPES (invalid value)"); break; default: HDfprintf(out, "UNKNOWN VALUE: %ld", (long)idx); break; } /* end switch */ } /* end else */ break; case 'l': if(ptr) { if(vp) HDfprintf(out, "0x%lx", (unsigned long)vp); else HDfprintf(out, "NULL"); } /* end if */ else { H5D_layout_t layout = (H5D_layout_t)HDva_arg(ap, int); switch(layout) { case H5D_LAYOUT_ERROR: HDfprintf(out, "H5D_LAYOUT_ERROR"); break; case H5D_COMPACT: HDfprintf(out, "H5D_COMPACT"); break; case H5D_CONTIGUOUS: HDfprintf(out, "H5D_CONTIGUOUS"); break; case H5D_CHUNKED: HDfprintf(out, "H5D_CHUNKED"); break; case H5D_VIRTUAL: HDfprintf(out, "H5D_VIRTUAL"); break; case H5D_NLAYOUTS: HDfprintf(out, "H5D_NLAYOUTS"); break; default: HDfprintf(out, "%ld", (long)layout); break; } /* end switch */ } /* end else */ break; case 'n': if(ptr) { if(vp) HDfprintf(out, "0x%lx", (unsigned long)vp); else HDfprintf(out, "NULL"); } /* end if */ else { H5D_mpio_no_collective_cause_t nocol_cause_mode = (H5D_mpio_no_collective_cause_t)HDva_arg(ap, int); hbool_t flag_already_displayed = FALSE; /* Check for all bit-flags which might be set */ if(nocol_cause_mode & H5D_MPIO_COLLECTIVE) { HDfprintf(out, "H5D_MPIO_COLLECTIVE"); flag_already_displayed = TRUE; } /* end if */ if(nocol_cause_mode & H5D_MPIO_SET_INDEPENDENT) { HDfprintf(out, "%sH5D_MPIO_SET_INDEPENDENT", flag_already_displayed ? " | " : ""); flag_already_displayed = TRUE; } /* end if */ if(nocol_cause_mode & H5D_MPIO_DATATYPE_CONVERSION) { HDfprintf(out, "%sH5D_MPIO_DATATYPE_CONVERSION", flag_already_displayed ? " | " : ""); flag_already_displayed = TRUE; } /* end if */ if(nocol_cause_mode & H5D_MPIO_DATA_TRANSFORMS) { HDfprintf(out, "%sH5D_MPIO_DATA_TRANSFORMS", flag_already_displayed ? " | " : ""); flag_already_displayed = TRUE; } /* end if */ if(nocol_cause_mode & H5D_MPIO_MPI_OPT_TYPES_ENV_VAR_DISABLED) { HDfprintf(out, "%sH5D_MPIO_MPI_OPT_TYPES_ENV_VAR_DISABLED", flag_already_displayed ? " | " : ""); flag_already_displayed = TRUE; } /* end if */ if(nocol_cause_mode & H5D_MPIO_NOT_SIMPLE_OR_SCALAR_DATASPACES) { HDfprintf(out, "%sH5D_MPIO_NOT_SIMPLE_OR_SCALAR_DATASPACES", flag_already_displayed ? " | " : ""); flag_already_displayed = TRUE; } /* end if */ if(nocol_cause_mode & H5D_MPIO_NOT_CONTIGUOUS_OR_CHUNKED_DATASET) { HDfprintf(out, "%sH5D_MPIO_NOT_CONTIGUOUS_OR_CHUNKED_DATASET", flag_already_displayed ? " | " : ""); flag_already_displayed = TRUE; } /* end if */ /* Display '' if there's no flags set */ if(!flag_already_displayed) HDfprintf(out, ""); } /* end else */ break; case 'o': if(ptr) { if(vp) HDfprintf(out, "0x%lx", (unsigned long)vp); else HDfprintf(out, "NULL"); } /* end if */ else { H5D_mpio_actual_chunk_opt_mode_t chunk_opt_mode = (H5D_mpio_actual_chunk_opt_mode_t)HDva_arg(ap, int); switch(chunk_opt_mode) { case H5D_MPIO_NO_CHUNK_OPTIMIZATION: HDfprintf(out, "H5D_MPIO_NO_CHUNK_OPTIMIZATION"); break; case H5D_MPIO_LINK_CHUNK: HDfprintf(out, "H5D_MPIO_LINK_CHUNK"); break; case H5D_MPIO_MULTI_CHUNK: HDfprintf(out, "H5D_MPIO_MULTI_CHUNK"); break; default: HDfprintf(out, "%ld", (long)chunk_opt_mode); break; } /* end switch */ } /* end else */ break; case 's': if(ptr) { if(vp) HDfprintf(out, "0x%lx", (unsigned long)vp); else HDfprintf(out, "NULL"); } /* end if */ else { H5D_space_status_t space_status = (H5D_space_status_t)HDva_arg(ap, int); switch(space_status) { case H5D_SPACE_STATUS_NOT_ALLOCATED: HDfprintf(out, "H5D_SPACE_STATUS_NOT_ALLOCATED"); break; case H5D_SPACE_STATUS_PART_ALLOCATED: HDfprintf(out, "H5D_SPACE_STATUS_PART_ALLOCATED"); break; case H5D_SPACE_STATUS_ALLOCATED: HDfprintf(out, "H5D_SPACE_STATUS_ALLOCATED"); break; case H5D_SPACE_STATUS_ERROR: HDfprintf(out, "H5D_SPACE_STATUS_ERROR"); break; default: HDfprintf(out, "%ld", (long)space_status); break; } /* end switch */ } /* end else */ break; case 't': if(ptr) { if(vp) HDfprintf(out, "0x%lx", (unsigned long)vp); else HDfprintf(out, "NULL"); } /* end if */ else { H5FD_mpio_xfer_t transfer = (H5FD_mpio_xfer_t)HDva_arg(ap, int); switch(transfer) { case H5FD_MPIO_INDEPENDENT: HDfprintf(out, "H5FD_MPIO_INDEPENDENT"); break; case H5FD_MPIO_COLLECTIVE: HDfprintf(out, "H5FD_MPIO_COLLECTIVE"); break; default: HDfprintf(out, "%ld", (long)transfer); break; } /* end switch */ } /* end else */ break; case 'v': if(ptr) { if(vp) HDfprintf(out, "0x%lx", (unsigned long)vp); else HDfprintf(out, "NULL"); } /* end if */ else { H5D_vds_view_t view = (H5D_vds_view_t)HDva_arg(ap, int); switch(view) { case H5D_VDS_ERROR: HDfprintf(out, "H5D_VDS_ERROR"); break; case H5D_VDS_FIRST_MISSING: HDfprintf(out, "H5D_VDS_FIRST_MISSING"); break; case H5D_VDS_LAST_AVAILABLE: HDfprintf(out, "H5D_VDS_LAST_AVAILABLE"); break; default: HDfprintf(out, "%ld", (long)view); break; } /* end switch */ } /* end else */ break; default: HDfprintf (out, "BADTYPE(D%c)", type[1]); goto error; } /* end switch */ break; case 'e': if(ptr) { if(vp) HDfprintf(out, "0x%lx", (unsigned long)vp); else HDfprintf(out, "NULL"); } /* end if */ else { herr_t status = HDva_arg(ap, herr_t); if(status >= 0) HDfprintf(out, "SUCCEED"); else HDfprintf(out, "FAIL"); } /* end else */ break; case 'E': switch(type[1]) { case 'd': if(ptr) { if(vp) HDfprintf(out, "0x%lx", (unsigned long)vp); else HDfprintf(out, "NULL"); } /* end if */ else { H5E_direction_t direction = (H5E_direction_t)HDva_arg(ap, int); switch(direction) { case H5E_WALK_UPWARD: HDfprintf(out, "H5E_WALK_UPWARD"); break; case H5E_WALK_DOWNWARD: HDfprintf(out, "H5E_WALK_DOWNWARD"); break; default: HDfprintf(out, "%ld", (long)direction); break; } /* end switch */ } /* end else */ break; case 'e': if(ptr) { if(vp) HDfprintf(out, "0x%lx", (unsigned long)vp); else HDfprintf(out, "NULL"); } /* end if */ else { H5E_error2_t *error = HDva_arg(ap, H5E_error2_t *); HDfprintf(out, "0x%lx", (unsigned long)error); } /* end else */ break; case 's': if(ptr) { if(vp) HDfprintf(out, "0x%lx", (unsigned long)vp); else HDfprintf(out, "NULL"); } /* end if */ else { H5ES_status_t status = (H5ES_status_t)HDva_arg(ap, int); switch(status) { case H5ES_STATUS_IN_PROGRESS: HDfprintf(out, "H5ES_STATUS_IN_PROGRESS"); break; case H5ES_STATUS_SUCCEED: HDfprintf(out, "H5ES_STATUS_SUCCEED"); break; case H5ES_STATUS_FAIL: HDfprintf(out, "H5ES_STATUS_FAIL"); break; case H5ES_STATUS_CANCELED: HDfprintf(out, "H5ES_STATUS_CANCELED"); break; default: HDfprintf(out, "%ld", (long)status); break; } /* end switch */ } /* end else */ break; case 't': if(ptr) { if(vp) HDfprintf(out, "0x%lx", (unsigned long)vp); else HDfprintf(out, "NULL"); } /* end if */ else { H5E_type_t etype = (H5E_type_t)HDva_arg(ap, int); switch(etype) { case H5E_MAJOR: HDfprintf(out, "H5E_MAJOR"); break; case H5E_MINOR: HDfprintf(out, "H5E_MINOR"); break; default: HDfprintf(out, "%ld", (long)etype); break; } /* end switch */ } /* end else */ break; default: HDfprintf(out, "BADTYPE(E%c)", type[1]); goto error; } /* end switch */ break; case 'F': switch(type[1]) { case 'd': if(ptr) { if(vp) HDfprintf(out, "0x%lx", (unsigned long)vp); else HDfprintf(out, "NULL"); } /* end if */ else { H5F_close_degree_t degree = (H5F_close_degree_t)HDva_arg(ap, int); switch(degree) { case H5F_CLOSE_DEFAULT: HDfprintf(out, "H5F_CLOSE_DEFAULT"); break; case H5F_CLOSE_WEAK: HDfprintf(out, "H5F_CLOSE_WEAK"); break; case H5F_CLOSE_SEMI: HDfprintf(out, "H5F_CLOSE_SEMI"); break; case H5F_CLOSE_STRONG: HDfprintf(out, "H5F_CLOSE_STRONG"); break; default: HDfprintf(out, "%ld", (long)degree); break; } /* end switch */ } /* end else */ break; case 'f': if(ptr) { if(vp) HDfprintf(out, "0x%lx", (unsigned long)vp); else HDfprintf(out, "NULL"); } /* end if */ else { H5F_fspace_strategy_t fs_strategy = (H5F_fspace_strategy_t)HDva_arg(ap, int); switch(fs_strategy) { case H5F_FSPACE_STRATEGY_FSM_AGGR: HDfprintf(out, "H5F_FSPACE_STRATEGY_FSM_AGGR"); break; case H5F_FSPACE_STRATEGY_PAGE: HDfprintf(out, "H5F_FSPACE_STRATEGY_PAGE"); break; case H5F_FSPACE_STRATEGY_AGGR: HDfprintf(out, "H5F_FSPACE_STRATEGY_AGGR"); break; case H5F_FSPACE_STRATEGY_NONE: HDfprintf(out, "H5F_FSPACE_STRATEGY_NONE"); break; case H5F_FSPACE_STRATEGY_NTYPES: default: HDfprintf(out, "%ld", (long)fs_strategy); break; } /* end switch */ } /* end else */ break; case 'm': if(ptr) { if(vp) HDfprintf(out, "0x%lx", (unsigned long)vp); else HDfprintf(out, "NULL"); } /* end if */ else { H5F_mem_t mem_type = (H5F_mem_t)HDva_arg(ap, int); switch(mem_type) { case H5FD_MEM_NOLIST: HDfprintf(out, "H5FD_MEM_NOLIST"); break; case H5FD_MEM_DEFAULT: HDfprintf(out, "H5FD_MEM_DEFAULT"); break; case H5FD_MEM_SUPER: HDfprintf(out, "H5FD_MEM_SUPER"); break; case H5FD_MEM_BTREE: HDfprintf(out, "H5FD_MEM_BTREE"); break; case H5FD_MEM_DRAW: HDfprintf(out, "H5FD_MEM_DRAW"); break; case H5FD_MEM_GHEAP: HDfprintf(out, "H5FD_MEM_GHEAP"); break; case H5FD_MEM_LHEAP: HDfprintf(out, "H5FD_MEM_LHEAP"); break; case H5FD_MEM_OHDR: HDfprintf(out, "H5FD_MEM_OHDR"); break; case H5FD_MEM_NTYPES: default: HDfprintf(out, "%ld", (long)mem_type); break; } /* end switch */ } /* end else */ break; case 's': if(ptr) { if(vp) HDfprintf(out, "0x%lx", (unsigned long)vp); else HDfprintf(out, "NULL"); } /* end if */ else { H5F_scope_t scope = (H5F_scope_t)HDva_arg(ap, int); switch(scope) { case H5F_SCOPE_LOCAL: HDfprintf(out, "H5F_SCOPE_LOCAL"); break; case H5F_SCOPE_GLOBAL: HDfprintf(out, "H5F_SCOPE_GLOBAL"); break; default: HDfprintf(out, "%ld", (long)scope); break; } /* end switch */ } /* end else */ break; case 't': if(ptr) { if(vp) HDfprintf(out, "0x%lx", (unsigned long)vp); else HDfprintf(out, "NULL"); } /* end if */ break; case 'v': if(ptr) { if(vp) HDfprintf(out, "0x%lx", (unsigned long)vp); else HDfprintf(out, "NULL"); } /* end if */ else { H5F_libver_t libver_vers = (H5F_libver_t)HDva_arg(ap, int); switch(libver_vers) { case H5F_LIBVER_EARLIEST: HDfprintf(out, "H5F_LIBVER_EARLIEST"); break; case H5F_LIBVER_V18: HDfprintf(out, "H5F_LIBVER_V18"); break; case H5F_LIBVER_V110: HDfprintf(out, "H5F_LIBVER_V110"); break; case H5F_LIBVER_V112: HDfprintf(out, "H5F_LIBVER_V112"); break; case H5F_LIBVER_V114: HDcompile_assert(H5F_LIBVER_LATEST == H5F_LIBVER_V114); HDfprintf(out, "H5F_LIBVER_LATEST"); break; case H5F_LIBVER_ERROR: case H5F_LIBVER_NBOUNDS: default: HDfprintf(out, "%ld", (long)libver_vers); break; } /* end switch */ } /* end else */ break; default: HDfprintf(out, "BADTYPE(F%c)", type[1]); goto error; } /* end switch */ break; case 'G': switch(type[1]) { #ifndef H5_NO_DEPRECATED_SYMBOLS case 'o': if(ptr) { if(vp) HDfprintf(out, "0x%lx", (unsigned long)vp); else HDfprintf(out, "NULL"); } /* end if */ else { H5G_obj_t obj_type = (H5G_obj_t)HDva_arg(ap, int); switch(obj_type) { case H5G_UNKNOWN: HDfprintf(out, "H5G_UNKNOWN"); break; case H5G_GROUP: HDfprintf(out, "H5G_GROUP"); break; case H5G_DATASET: HDfprintf(out, "H5G_DATASET"); break; case H5G_TYPE: HDfprintf(out, "H5G_TYPE"); break; case H5G_LINK: HDfprintf(out, "H5G_LINK"); break; case H5G_UDLINK: HDfprintf(out, "H5G_UDLINK"); break; case H5G_RESERVED_5: case H5G_RESERVED_6: case H5G_RESERVED_7: HDfprintf(out, "H5G_RESERVED(%ld)", (long)obj_type); break; default: HDfprintf(out, "%ld", (long)obj_type); break; } /* end switch */ } /* end else */ break; case 's': if(ptr) { if(vp) HDfprintf (out, "0x%lx", (unsigned long)vp); else HDfprintf(out, "NULL"); } /* end if */ else { H5G_stat_t *statbuf = HDva_arg(ap, H5G_stat_t*); HDfprintf(out, "0x%lx", (unsigned long)statbuf); } break; #endif /* H5_NO_DEPRECATED_SYMBOLS */ default: HDfprintf(out, "BADTYPE(G%c)", type[1]); goto error; } break; case 'h': if(ptr) { if(vp) { HDfprintf(out, "0x%lx", (unsigned long)vp); if(asize_idx >= 0 && asize[asize_idx] >= 0) { hsize_t *p = (hsize_t *)vp; HDfprintf(out, " {"); for(i = 0; i < asize[asize_idx]; i++) { if(H5S_UNLIMITED == p[i]) HDfprintf(out, "%sH5S_UNLIMITED", (i ? ", " : "")); else HDfprintf(out, "%s%Hu", (i ? ", " : ""), p[i]); } /* end for */ HDfprintf(out, "}"); } /* end if */ } /* end if */ else HDfprintf(out, "NULL"); } /* end if */ else { hsize_t hsize = HDva_arg(ap, hsize_t); if(H5S_UNLIMITED == hsize) HDfprintf(out, "H5S_UNLIMITED"); else { HDfprintf(out, "%Hu", hsize); asize[argno] = (hssize_t)hsize; } /* end else */ } /* end else */ break; case 'H': switch(type[1]) { case 's': if(ptr) { if(vp) { HDfprintf(out, "0x%lx", (unsigned long)vp); if(asize_idx >= 0 && asize[asize_idx] >= 0) { hssize_t *p = (hssize_t *)vp; HDfprintf(out, " {"); for(i = 0; i < asize[asize_idx]; i++) HDfprintf(out, "%s%Hd", (i ? ", " : ""), p[i]); HDfprintf(out, "}"); } /* end if */ } /* end if */ else HDfprintf(out, "NULL"); } /* end if */ else { hssize_t hssize = HDva_arg(ap, hssize_t); HDfprintf(out, "%Hd", hssize); asize[argno] = (hssize_t)hssize; } /* end else */ break; default: HDfprintf (out, "BADTYPE(H%c)", type[1]); goto error; } /* end switch */ break; case 'i': if(ptr) { if(vp) HDfprintf(out, "0x%lx", (unsigned long)vp); else HDfprintf(out, "NULL"); } /* end if */ else { hid_t obj = HDva_arg(ap, hid_t); if(H5P_DEFAULT == obj) HDfprintf(out, "H5P_DEFAULT"); else if(obj < 0) HDfprintf(out, "FAIL"); else { switch(H5I_TYPE(obj)) { /* Use internal H5I macro instead of function call */ case H5I_UNINIT: HDfprintf(out, "%ld (uninit - error)", (long)obj); break; case H5I_BADID: HDfprintf(out, "%ld (error)", (long)obj); break; case H5I_FILE: HDfprintf(out, "%ld (file)", (long)obj); break; case H5I_GROUP: HDfprintf(out, "%ld (group)", (long)obj); break; case H5I_DATATYPE: if(obj == H5T_NATIVE_SCHAR_g) HDfprintf(out, "H5T_NATIVE_SCHAR"); else if(obj == H5T_NATIVE_UCHAR_g) HDfprintf(out, "H5T_NATIVE_UCHAR"); else if(obj == H5T_NATIVE_SHORT_g) HDfprintf(out, "H5T_NATIVE_SHORT"); else if(obj == H5T_NATIVE_USHORT_g) HDfprintf(out, "H5T_NATIVE_USHORT"); else if(obj == H5T_NATIVE_INT_g) HDfprintf(out, "H5T_NATIVE_INT"); else if(obj == H5T_NATIVE_UINT_g) HDfprintf(out, "H5T_NATIVE_UINT"); else if(obj == H5T_NATIVE_LONG_g) HDfprintf(out, "H5T_NATIVE_LONG"); else if(obj == H5T_NATIVE_ULONG_g) HDfprintf(out, "H5T_NATIVE_ULONG"); else if(obj == H5T_NATIVE_LLONG_g) HDfprintf(out, "H5T_NATIVE_LLONG"); else if(obj == H5T_NATIVE_ULLONG_g) HDfprintf(out, "H5T_NATIVE_ULLONG"); else if(obj == H5T_NATIVE_FLOAT_g) HDfprintf(out, "H5T_NATIVE_FLOAT"); else if(obj == H5T_NATIVE_DOUBLE_g) HDfprintf(out, "H5T_NATIVE_DOUBLE"); #if H5_SIZEOF_LONG_DOUBLE !=0 else if(obj == H5T_NATIVE_LDOUBLE_g) HDfprintf(out, "H5T_NATIVE_LDOUBLE"); #endif else if(obj == H5T_IEEE_F32BE_g) HDfprintf(out, "H5T_IEEE_F32BE"); else if(obj == H5T_IEEE_F32LE_g) HDfprintf(out, "H5T_IEEE_F32LE"); else if(obj == H5T_IEEE_F64BE_g) HDfprintf(out, "H5T_IEEE_F64BE"); else if(obj == H5T_IEEE_F64LE_g) HDfprintf(out, "H5T_IEEE_F64LE"); else if(obj == H5T_STD_I8BE_g) HDfprintf(out, "H5T_STD_I8BE"); else if(obj == H5T_STD_I8LE_g) HDfprintf(out, "H5T_STD_I8LE"); else if(obj == H5T_STD_I16BE_g) HDfprintf(out, "H5T_STD_I16BE"); else if(obj == H5T_STD_I16LE_g) HDfprintf(out, "H5T_STD_I16LE"); else if(obj == H5T_STD_I32BE_g) HDfprintf(out, "H5T_STD_I32BE"); else if(obj == H5T_STD_I32LE_g) HDfprintf(out, "H5T_STD_I32LE"); else if(obj == H5T_STD_I64BE_g) HDfprintf(out, "H5T_STD_I64BE"); else if(obj == H5T_STD_I64LE_g) HDfprintf(out, "H5T_STD_I64LE"); else if(obj == H5T_STD_U8BE_g) HDfprintf(out, "H5T_STD_U8BE"); else if(obj == H5T_STD_U8LE_g) HDfprintf(out, "H5T_STD_U8LE"); else if(obj == H5T_STD_U16BE_g) HDfprintf(out, "H5T_STD_U16BE"); else if(obj == H5T_STD_U16LE_g) HDfprintf(out, "H5T_STD_U16LE"); else if(obj == H5T_STD_U32BE_g) HDfprintf(out, "H5T_STD_U32BE"); else if(obj == H5T_STD_U32LE_g) HDfprintf(out, "H5T_STD_U32LE"); else if(obj == H5T_STD_U64BE_g) HDfprintf(out, "H5T_STD_U64BE"); else if(obj == H5T_STD_U64LE_g) HDfprintf(out, "H5T_STD_U64LE"); else if(obj == H5T_STD_B8BE_g) HDfprintf(out, "H5T_STD_B8BE"); else if(obj == H5T_STD_B8LE_g) HDfprintf(out, "H5T_STD_B8LE"); else if(obj == H5T_STD_B16BE_g) HDfprintf(out, "H5T_STD_B16BE"); else if(obj == H5T_STD_B16LE_g) HDfprintf(out, "H5T_STD_B16LE"); else if(obj == H5T_STD_B32BE_g) HDfprintf(out, "H5T_STD_B32BE"); else if(obj == H5T_STD_B32LE_g) HDfprintf(out, "H5T_STD_B32LE"); else if(obj == H5T_STD_B64BE_g) HDfprintf(out, "H5T_STD_B64BE"); else if(obj == H5T_STD_B64LE_g) HDfprintf(out, "H5T_STD_B64LE"); else if(obj == H5T_C_S1_g) HDfprintf(out, "H5T_C_S1"); else if(obj == H5T_FORTRAN_S1_g) HDfprintf(out, "H5T_FORTRAN_S1"); else HDfprintf(out, "%ld (dtype)", (long)obj); break; case H5I_DATASPACE: HDfprintf(out, "%ld (dspace)", (long)obj); /* Save the rank of simple dataspaces 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: HDfprintf(out, "%ld (dset)", (long)obj); break; case H5I_ATTR: HDfprintf(out, "%ld (attr)", (long)obj); break; case H5I_MAP: HDfprintf(out, "%ld (map)", (long)obj); break; case H5I_VFL: HDfprintf(out, "%ld (file driver)", (long)obj); break; case H5I_VOL: HDfprintf(out, "%ld (VOL plugin)", (long)obj); break; case H5I_GENPROP_CLS: HDfprintf(out, "%ld (genprop class)", (long)obj); break; case H5I_GENPROP_LST: HDfprintf(out, "%ld (genprop list)", (long)obj); break; case H5I_ERROR_CLASS: HDfprintf(out, "%ld (err class)", (long)obj); break; case H5I_ERROR_MSG: HDfprintf(out, "%ld (err msg)", (long)obj); break; case H5I_ERROR_STACK: HDfprintf(out, "%ld (err stack)", (long)obj); break; case H5I_SPACE_SEL_ITER: HDfprintf(out, "%ld (dataspace selection iterator)", (long)obj); break; case H5I_NTYPES: HDfprintf (out, "%ld (ntypes - error)", (long)obj); break; default: HDfprintf(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) HDfprintf(out, "0x%lx", (unsigned long)vp); else HDfprintf(out, "NULL"); } /* end if */ else { H5_index_t idx_type = (H5_index_t)HDva_arg(ap, int); switch(idx_type) { case H5_INDEX_UNKNOWN: HDfprintf(out, "H5_INDEX_UNKNOWN"); break; case H5_INDEX_NAME: HDfprintf(out, "H5_INDEX_NAME"); break; case H5_INDEX_CRT_ORDER: HDfprintf(out, "H5_INDEX_CRT_ORDER"); break; case H5_INDEX_N: HDfprintf(out, "H5_INDEX_N"); break; default: HDfprintf(out, "%ld", (long)idx_type); break; } /* end switch */ } /* end else */ break; case 'o': if(ptr) { if(vp) HDfprintf(out, "0x%lx", (unsigned long)vp); else HDfprintf(out, "NULL"); } /* end if */ else { H5_iter_order_t order = (H5_iter_order_t)HDva_arg(ap, int); switch(order) { case H5_ITER_UNKNOWN: HDfprintf(out, "H5_ITER_UNKNOWN"); break; case H5_ITER_INC: HDfprintf(out, "H5_ITER_INC"); break; case H5_ITER_DEC: HDfprintf(out, "H5_ITER_DEC"); break; case H5_ITER_NATIVE: HDfprintf(out, "H5_ITER_NATIVE"); break; case H5_ITER_N: HDfprintf(out, "H5_ITER_N"); break; default: HDfprintf(out, "%ld", (long)order); break; } /* end switch */ } /* end else */ break; case 's': if(ptr) { if(vp) { HDfprintf(out, "0x%lx", (unsigned long)vp); if(asize_idx >= 0 && asize[asize_idx] >= 0) { int *p = (int*)vp; HDfprintf(out, " {"); for(i = 0; i < asize[asize_idx]; i++) HDfprintf(out, "%s%d", (i ? ", " : ""), p[i]); HDfprintf(out, "}"); } /* end if */ } /* end if */ else HDfprintf(out, "NULL"); } /* end if */ else { int is = HDva_arg(ap, int); HDfprintf (out, "%d", is); asize[argno] = is; } /* end else */ break; case 't': if(ptr) { if(vp) HDfprintf(out, "0x%lx", (unsigned long)vp); else HDfprintf(out, "NULL"); } /* end if */ else { H5I_type_t id_type = (H5I_type_t)HDva_arg(ap, int); switch (id_type) { case H5I_UNINIT: HDfprintf(out, "H5I_UNINIT"); break; case H5I_BADID: HDfprintf(out, "H5I_BADID"); break; case H5I_FILE: HDfprintf(out, "H5I_FILE"); break; case H5I_GROUP: HDfprintf(out, "H5I_GROUP"); break; case H5I_DATATYPE: HDfprintf(out, "H5I_DATATYPE"); break; case H5I_DATASPACE: HDfprintf(out, "H5I_DATASPACE"); break; case H5I_DATASET: HDfprintf(out, "H5I_DATASET"); break; case H5I_ATTR: HDfprintf(out, "H5I_ATTR"); break; case H5I_MAP: HDfprintf(out, "H5I_MAP"); break; case H5I_VFL: HDfprintf(out, "H5I_VFL"); break; case H5I_VOL: HDfprintf(out, "H5I_VOL"); break; case H5I_GENPROP_CLS: HDfprintf(out, "H5I_GENPROP_CLS"); break; case H5I_GENPROP_LST: HDfprintf(out, "H5I_GENPROP_LST"); break; case H5I_ERROR_CLASS: HDfprintf(out, "H5I_ERROR_CLASS"); break; case H5I_ERROR_MSG: HDfprintf(out, "H5I_ERROR_MSG"); break; case H5I_ERROR_STACK: HDfprintf(out, "H5I_ERROR_STACK"); break; case H5I_SPACE_SEL_ITER: HDfprintf(out, "H5I_SPACE_SEL_ITER"); break; case H5I_NTYPES: HDfprintf(out, "H5I_NTYPES"); break; default: HDfprintf(out, "%ld", (long)id_type); break; } /* end switch */ } /* end else */ break; case 'u': if(ptr) { if(vp) { HDfprintf(out, "0x%lx", (unsigned long)vp); if(asize_idx >= 0 && asize[asize_idx] >= 0) { unsigned *p = (unsigned*)vp; HDfprintf(out, " {"); for(i = 0; i < asize[asize_idx]; i++) HDfprintf(out, "%s%u", i?", ":"", p[i]); HDfprintf(out, "}"); } /* end if */ } /* end if */ else HDfprintf(out, "NULL"); } /* end if */ else { unsigned iu = HDva_arg(ap, unsigned); HDfprintf(out, "%u", iu); asize[argno] = iu; } /* end else */ break; default: HDfprintf (out, "BADTYPE(I%c)", type[1]); goto error; } /* end switch */ break; case 'L': switch(type[1]) { case 'l': if(ptr) { if(vp) HDfprintf (out, "0x%lx", (unsigned long)vp); else HDfprintf(out, "NULL"); } /* end if */ else { H5L_type_t link_type = (H5L_type_t)HDva_arg(ap, int); switch(link_type) { case H5L_TYPE_ERROR: HDfprintf(out, "H5L_TYPE_ERROR"); break; case H5L_TYPE_HARD: HDfprintf(out, "H5L_TYPE_HARD"); break; case H5L_TYPE_SOFT: HDfprintf(out, "H5L_TYPE_SOFT"); break; case H5L_TYPE_EXTERNAL: HDfprintf(out, "H5L_TYPE_EXTERNAL"); break; case H5L_TYPE_MAX: HDfprintf(out, "H5L_TYPE_MAX"); break; default: HDfprintf(out, "%ld", (long)link_type); break; } /* end switch */ } /* end else */ break; default: HDfprintf(out, "BADTYPE(G%c)", type[1]); goto error; } /* end switch */ break; case 'M': switch(type[1]) { case 'c': if(ptr) { if(vp) HDfprintf(out, "0x%lx", (unsigned long)vp); else HDfprintf(out, "NULL"); } /* end if */ #ifdef H5_HAVE_PARALLEL else { MPI_Comm comm = HDva_arg(ap, MPI_Comm); HDfprintf(out, "%ld", (long)comm); } /* end else */ #endif /* H5_HAVE_PARALLEL */ break; case 'i': if(ptr) { if(vp) HDfprintf(out, "0x%lx", (unsigned long)vp); else HDfprintf(out, "NULL"); } /* end if */ #ifdef H5_HAVE_PARALLEL else { MPI_Info info = HDva_arg(ap, MPI_Info); HDfprintf(out, "%ld", (long)info); } /* end else */ #endif /* H5_HAVE_PARALLEL */ break; case 't': if(ptr) { if(vp) HDfprintf(out, "0x%lx", (unsigned long)vp); else HDfprintf(out, "NULL"); } /* end if */ else { H5FD_mem_t mt = (H5FD_mem_t)HDva_arg(ap, int); switch(mt) { case H5FD_MEM_NOLIST: HDfprintf(out, "H5FD_MEM_NOLIST"); break; case H5FD_MEM_DEFAULT: HDfprintf(out, "H5FD_MEM_DEFAULT"); break; case H5FD_MEM_SUPER: HDfprintf(out, "H5FD_MEM_SUPER"); break; case H5FD_MEM_BTREE: HDfprintf(out, "H5FD_MEM_BTREE"); break; case H5FD_MEM_DRAW: HDfprintf(out, "H5FD_MEM_DRAW"); break; case H5FD_MEM_GHEAP: HDfprintf(out, "H5FD_MEM_GHEAP"); break; case H5FD_MEM_LHEAP: HDfprintf(out, "H5FD_MEM_LHEAP"); break; case H5FD_MEM_OHDR: HDfprintf(out, "H5FD_MEM_OHDR"); break; case H5FD_MEM_NTYPES: HDfprintf(out, "H5FD_MEM_NTYPES"); break; default: HDfprintf(out, "%ld", (long)mt); break; } /* end switch */ } /* end else */ break; default: goto error; } /* end switch */ break; case 'o': if(ptr) { if(vp) HDfprintf(out, "0x%lx", (unsigned long)vp); else HDfprintf(out, "NULL"); } /* end if */ else { off_t offset = HDva_arg(ap, off_t); HDfprintf (out, "%ld", (long)offset); } /* end else */ break; case 'O': switch(type[1]) { case 't': if(ptr) { if(vp) HDfprintf(out, "0x%lx", (unsigned long)vp); else HDfprintf(out, "NULL"); } /* end if */ else { H5O_type_t objtype = (H5O_type_t)HDva_arg(ap, int); switch(objtype) { case H5O_TYPE_UNKNOWN: HDfprintf(out, "H5O_TYPE_UNKNOWN"); break; case H5O_TYPE_GROUP: HDfprintf(out, "H5O_TYPE_GROUP"); break; case H5O_TYPE_DATASET: HDfprintf(out, "H5O_TYPE_DATASET"); break; case H5O_TYPE_NAMED_DATATYPE: HDfprintf(out, "H5O_TYPE_NAMED_DATATYPE"); break; case H5O_TYPE_MAP: HDfprintf(out, "H5O_TYPE_MAP"); break; case H5O_TYPE_NTYPES: HDfprintf(out, "H5O_TYPE_NTYPES"); break; default: HDfprintf(out, "BADTYPE(%ld)", (long)objtype); break; } /* end switch */ } /* end else */ break; default: HDfprintf(out, "BADTYPE(S%c)", type[1]); goto error; } /* end switch */ break; case 'p': if(ptr) { if(vp) HDfprintf(out, "0x%lx", (unsigned long)vp); else HDfprintf(out, "NULL"); } /* end if */ else { hid_t pclass_id = HDva_arg(ap, hid_t); char *class_name = NULL; H5P_genclass_t *pclass; /* Get the class name and print it */ /* (This may generate recursive call to the library... -QAK) */ if(NULL != (pclass = (H5P_genclass_t *)H5I_object(pclass_id)) && NULL != (class_name = H5P_get_class_name(pclass))) { HDfprintf(out, "%s", class_name); H5MM_xfree(class_name); } /* end if */ else HDfprintf(out, "%ld", (long)pclass_id); } /* end else */ break; case 'r': if(ptr) { if(vp) HDfprintf(out, "0x%lx", (unsigned long)vp); else HDfprintf(out, "NULL"); } /* end if */ else { hobj_ref_t ref = HDva_arg(ap, hobj_ref_t); HDfprintf(out, "Reference Object=%a", ref); } /* end else */ break; case 'R': switch(type[1]) { case 't': if(ptr) { if(vp) HDfprintf(out, "0x%lx", (unsigned long)vp); else HDfprintf(out, "NULL"); } /* end if */ else { H5R_type_t reftype = (H5R_type_t)HDva_arg(ap, int); switch(reftype) { case H5R_BADTYPE: HDfprintf(out, "H5R_BADTYPE"); break; case H5R_OBJECT: HDfprintf(out, "H5R_OBJECT"); break; case H5R_DATASET_REGION: HDfprintf(out, "H5R_DATASET_REGION"); break; case H5R_MAXTYPE: HDfprintf(out, "H5R_MAXTYPE"); break; default: HDfprintf(out, "BADTYPE(%ld)", (long)reftype); break; } /* end switch */ } /* end else */ break; default: HDfprintf(out, "BADTYPE(S%c)", type[1]); goto error; } break; case 'S': switch(type[1]) { case 'c': if(ptr) { if(vp) HDfprintf(out, "0x%lx", (unsigned long)vp); else HDfprintf(out, "NULL"); } /* end if */ else { H5S_class_t cls = (H5S_class_t)HDva_arg(ap, int); switch(cls) { case H5S_NO_CLASS: HDfprintf(out, "H5S_NO_CLASS"); break; case H5S_SCALAR: HDfprintf(out, "H5S_SCALAR"); break; case H5S_SIMPLE: HDfprintf(out, "H5S_SIMPLE"); break; case H5S_NULL: HDfprintf(out, "H5S_NULL"); break; default: HDfprintf(out, "%ld", (long)cls); break; } /* end switch */ } /* end else */ break; case 's': if(ptr) { if(vp) HDfprintf(out, "0x%lx", (unsigned long)vp); else HDfprintf(out, "NULL"); } /* end if */ else { H5S_seloper_t so = (H5S_seloper_t)HDva_arg(ap, int); switch(so) { case H5S_SELECT_NOOP: HDfprintf(out, "H5S_NOOP"); break; case H5S_SELECT_SET: HDfprintf(out, "H5S_SELECT_SET"); break; case H5S_SELECT_OR: HDfprintf(out, "H5S_SELECT_OR"); break; case H5S_SELECT_AND: HDfprintf(out, "H5S_SELECT_AND"); break; case H5S_SELECT_XOR: HDfprintf(out, "H5S_SELECT_XOR"); break; case H5S_SELECT_NOTB: HDfprintf(out, "H5S_SELECT_NOTB"); break; case H5S_SELECT_NOTA: HDfprintf(out, "H5S_SELECT_NOTA"); break; case H5S_SELECT_APPEND: HDfprintf(out, "H5S_SELECT_APPEND"); break; case H5S_SELECT_PREPEND: HDfprintf(out, "H5S_SELECT_PREPEND"); break; case H5S_SELECT_INVALID: HDfprintf(out, "H5S_SELECT_INVALID"); break; default: HDfprintf(out, "%ld", (long)so); break; } /* end switch */ } /* end else */ break; case 't': if(ptr) { if(vp) HDfprintf(out, "0x%lx", (unsigned long)vp); else HDfprintf(out, "NULL"); } /* end if */ else { H5S_sel_type st = (H5S_sel_type)HDva_arg(ap, int); switch(st) { case H5S_SEL_ERROR: HDfprintf(out, "H5S_SEL_ERROR"); break; case H5S_SEL_NONE: HDfprintf(out, "H5S_SEL_NONE"); break; case H5S_SEL_POINTS: HDfprintf(out, "H5S_SEL_POINTS"); break; case H5S_SEL_HYPERSLABS: HDfprintf(out, "H5S_SEL_HYPERSLABS"); break; case H5S_SEL_ALL: HDfprintf(out, "H5S_SEL_ALL"); break; case H5S_SEL_N: HDfprintf(out, "H5S_SEL_N"); break; default: HDfprintf(out, "%ld", (long)st); break; } /* end switch */ } /* end else */ break; default: HDfprintf(out, "BADTYPE(S%c)", type[1]); goto error; } /* end switch */ break; case 's': if(ptr) { if(vp) HDfprintf(out, "0x%lx", (unsigned long)vp); else HDfprintf(out, "NULL"); } /* end if */ else { const char *str = HDva_arg(ap, const char *); HDfprintf(out, "\"%s\"", str); } /* end else */ break; case 'T': switch(type[1]) { case 'c': if(ptr) { if(vp) HDfprintf(out, "0x%lx", (unsigned long)vp); else HDfprintf(out, "NULL"); } /* end if */ else { H5T_cset_t cset = (H5T_cset_t)HDva_arg(ap, int); switch(cset) { case H5T_CSET_ERROR: HDfprintf(out, "H5T_CSET_ERROR"); break; case H5T_CSET_ASCII: HDfprintf(out, "H5T_CSET_ASCII"); break; case H5T_CSET_UTF8: HDfprintf(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: HDfprintf(out, "H5T_CSET_RESERVED_%ld", (long)cset); break; default: HDfprintf(out, "%ld", (long)cset); break; } /* end switch */ } /* end else */ break; case 'd': if(ptr) { if(vp) HDfprintf(out, "0x%lx", (unsigned long)vp); else HDfprintf(out, "NULL"); } /* end if */ else { H5T_direction_t direct = (H5T_direction_t)HDva_arg(ap, int); switch(direct) { case H5T_DIR_DEFAULT: HDfprintf(out, "H5T_DIR_DEFAULT"); break; case H5T_DIR_ASCEND: HDfprintf(out, "H5T_DIR_ASCEND"); break; case H5T_DIR_DESCEND: HDfprintf(out, "H5T_DIR_DESCEND"); break; default: HDfprintf(out, "%ld", (long)direct); break; } /* end switch */ } /* end else */ break; case 'e': if(ptr) { if(vp) HDfprintf(out, "0x%lx", (unsigned long)vp); else HDfprintf(out, "NULL"); } /* end if */ else { H5T_pers_t pers = (H5T_pers_t)HDva_arg(ap, int); switch(pers) { case H5T_PERS_DONTCARE: HDfprintf(out, "H5T_PERS_DONTCARE"); break; case H5T_PERS_SOFT: HDfprintf(out, "H5T_PERS_SOFT"); break; case H5T_PERS_HARD: HDfprintf(out, "H5T_PERS_HARD"); break; default: HDfprintf(out, "%ld", (long)pers); break; } /* end switch */ } /* end else */ break; case 'n': if(ptr) { if(vp) HDfprintf(out, "0x%lx", (unsigned long)vp); else HDfprintf(out, "NULL"); } /* end if */ else { H5T_norm_t norm = (H5T_norm_t)HDva_arg(ap, int); switch(norm) { case H5T_NORM_ERROR: HDfprintf(out, "H5T_NORM_ERROR"); break; case H5T_NORM_IMPLIED: HDfprintf(out, "H5T_NORM_IMPLIED"); break; case H5T_NORM_MSBSET: HDfprintf(out, "H5T_NORM_MSBSET"); break; case H5T_NORM_NONE: HDfprintf(out, "H5T_NORM_NONE"); break; default: HDfprintf(out, "%ld", (long)norm); break; } /* end switch */ } /* end else */ break; case 'o': if(ptr) { if(vp) HDfprintf(out, "0x%lx", (unsigned long)vp); else HDfprintf(out, "NULL"); } /* end if */ else { H5T_order_t order = (H5T_order_t)HDva_arg(ap, int); switch(order) { case H5T_ORDER_ERROR: HDfprintf(out, "H5T_ORDER_ERROR"); break; case H5T_ORDER_LE: HDfprintf(out, "H5T_ORDER_LE"); break; case H5T_ORDER_BE: HDfprintf(out, "H5T_ORDER_BE"); break; case H5T_ORDER_VAX: HDfprintf(out, "H5T_ORDER_VAX"); break; case H5T_ORDER_MIXED: HDfprintf(out, "H5T_ORDER_MIXED"); break; case H5T_ORDER_NONE: HDfprintf(out, "H5T_ORDER_NONE"); break; default: HDfprintf(out, "%ld", (long)order); break; } /* end switch */ } /* end else */ break; case 'p': if(ptr) { if(vp) HDfprintf(out, "0x%lx", (unsigned long)vp); else HDfprintf(out, "NULL"); } /* end if */ else { H5T_pad_t pad = (H5T_pad_t)HDva_arg(ap, int); switch(pad) { case H5T_PAD_ERROR: HDfprintf(out, "H5T_PAD_ERROR"); break; case H5T_PAD_ZERO: HDfprintf(out, "H5T_PAD_ZERO"); break; case H5T_PAD_ONE: HDfprintf(out, "H5T_PAD_ONE"); break; case H5T_PAD_BACKGROUND: HDfprintf(out, "H5T_PAD_BACKGROUND"); break; case H5T_NPAD: HDfprintf(out, "H5T_NPAD"); break; default: HDfprintf(out, "%ld", (long)pad); break; } /* end switch */ } /* end else */ break; case 's': if(ptr) { if(vp) HDfprintf(out, "0x%lx", (unsigned long)vp); else HDfprintf(out, "NULL"); } /* end if */ else { H5T_sign_t sign = (H5T_sign_t)HDva_arg(ap, int); switch(sign) { case H5T_SGN_ERROR: HDfprintf(out, "H5T_SGN_ERROR"); break; case H5T_SGN_NONE: HDfprintf(out, "H5T_SGN_NONE"); break; case H5T_SGN_2: HDfprintf(out, "H5T_SGN_2"); break; case H5T_NSGN: HDfprintf(out, "H5T_NSGN"); break; default: HDfprintf(out, "%ld", (long)sign); break; } /* end switch */ } /* end else */ break; case 't': if(ptr) { if(vp) HDfprintf(out, "0x%lx", (unsigned long)vp); else HDfprintf(out, "NULL"); } /* end if */ else { H5T_class_t type_class = (H5T_class_t)HDva_arg(ap, int); switch(type_class) { case H5T_NO_CLASS: HDfprintf(out, "H5T_NO_CLASS"); break; case H5T_INTEGER: HDfprintf(out, "H5T_INTEGER"); break; case H5T_FLOAT: HDfprintf(out, "H5T_FLOAT"); break; case H5T_TIME: HDfprintf(out, "H5T_TIME"); break; case H5T_STRING: HDfprintf(out, "H5T_STRING"); break; case H5T_BITFIELD: HDfprintf(out, "H5T_BITFIELD"); break; case H5T_OPAQUE: HDfprintf(out, "H5T_OPAQUE"); break; case H5T_COMPOUND: HDfprintf(out, "H5T_COMPOUND"); break; case H5T_REFERENCE: HDfprintf(out, "H5T_REFERENCE"); break; case H5T_ENUM: HDfprintf(out, "H5T_ENUM"); break; case H5T_VLEN: HDfprintf(out, "H5T_VLEN"); break; case H5T_ARRAY: HDfprintf(out, "H5T_ARRAY"); break; case H5T_NCLASSES: HDfprintf(out, "H5T_NCLASSES"); break; default: HDfprintf(out, "%ld", (long)type_class); break; } /* end switch */ } /* end else */ break; case 'z': if(ptr) { if(vp) HDfprintf(out, "0x%lx", (unsigned long)vp); else HDfprintf(out, "NULL"); } /* end if */ else { H5T_str_t str = (H5T_str_t)HDva_arg(ap, int); switch(str) { case H5T_STR_ERROR: HDfprintf(out, "H5T_STR_ERROR"); break; case H5T_STR_NULLTERM: HDfprintf(out, "H5T_STR_NULLTERM"); break; case H5T_STR_NULLPAD: HDfprintf(out, "H5T_STR_NULLPAD"); break; case H5T_STR_SPACEPAD: HDfprintf(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: HDfprintf(out, "H5T_STR_RESERVED(%ld)",(long)str); break; default: HDfprintf(out, "%ld", (long)str); break; } /* end switch */ } /* end else */ break; default: HDfprintf (out, "BADTYPE(T%c)", type[1]); goto error; } /* end switch */ break; case 't': if(ptr) { if(vp) HDfprintf(out, "0x%lx", (unsigned long)vp); else HDfprintf(out, "NULL"); } /* end if */ else { htri_t tri_var = HDva_arg (ap, htri_t); if(tri_var>0) HDfprintf (out, "TRUE"); else if(!tri_var) HDfprintf (out, "FALSE"); else HDfprintf(out, "FAIL(%d)", (int)tri_var); } /* end else */ break; case 'U': switch(type[1]) { case 'l': if(ptr) { if(vp) { HDfprintf(out, "0x%lx", (unsigned long)vp); if(asize_idx >= 0 && asize[asize_idx] >= 0) { unsigned long *p = (unsigned long *)vp; HDfprintf(out, " {"); for(i = 0; i < asize[asize_idx]; i++) HDfprintf(out, "%s%lu", i?", ":"", p[i]); HDfprintf(out, "}"); } /* end if */ } /* end if */ else HDfprintf(out, "NULL"); } /* end if */ else { unsigned long iul = HDva_arg(ap, unsigned long); HDfprintf(out, "%lu", iul); asize[argno] = (hssize_t)iul; } /* end else */ break; case 'L': if(ptr) { if(vp) { HDfprintf(out, "0x%lx", (unsigned long)vp); if(asize_idx >= 0 && asize[asize_idx] >= 0) { unsigned long long *p = (unsigned long long *)vp; HDfprintf(out, " {"); for(i = 0; i < asize[asize_idx]; i++) HDfprintf(out, "%s%llu", i?", ":"", p[i]); HDfprintf(out, "}"); } /* end if */ } /* end if */ else HDfprintf(out, "NULL"); } /* end if */ else { unsigned long long iull = HDva_arg(ap, unsigned long long); HDfprintf(out, "%llu", iull); asize[argno] = (hssize_t)iull; } /* end else */ break; default: HDfprintf (out, "BADTYPE(U%c)", type[1]); goto error; } /* end switch */ break; case 'V': switch(type[1]) { case 'a': if(ptr) { if(vp) HDfprintf (out, "0x%lx", (unsigned long)vp); else HDfprintf(out, "NULL"); } /* end if */ else { H5VL_attr_get_t get = (H5VL_attr_get_t)HDva_arg(ap, int); switch(get) { case H5VL_ATTR_GET_SPACE: HDfprintf(out, "H5VL_ATTR_GET_SPACE"); break; case H5VL_ATTR_GET_TYPE: HDfprintf(out, "H5VL_ATTR_GET_TYPE"); break; case H5VL_ATTR_GET_ACPL: HDfprintf(out, "H5VL_ATTR_GET_ACPL"); break; case H5VL_ATTR_GET_NAME: HDfprintf(out, "H5VL_ATTR_GET_NAME"); break; case H5VL_ATTR_GET_STORAGE_SIZE: HDfprintf(out, "H5VL_ATTR_GET_STORAGE_SIZE"); break; case H5VL_ATTR_GET_INFO: HDfprintf(out, "H5VL_ATTR_GET_INFO"); break; default: HDfprintf(out, "%ld", (long)get); break; } /* end switch */ } /* end else */ break; case 'b': if(ptr) { if(vp) HDfprintf (out, "0x%lx", (unsigned long)vp); else HDfprintf(out, "NULL"); } /* end if */ else { H5VL_attr_specific_t specific = (H5VL_attr_specific_t)HDva_arg(ap, int); switch(specific) { case H5VL_ATTR_DELETE: HDfprintf(out, "H5VL_ATTR_DELETE"); break; case H5VL_ATTR_EXISTS: HDfprintf(out, "H5VL_ATTR_EXISTS"); break; case H5VL_ATTR_ITER: HDfprintf(out, "H5VL_ATTR_ITER"); break; case H5VL_ATTR_RENAME: HDfprintf(out, "H5VL_ATTR_RENAME"); break; default: HDfprintf(out, "%ld", (long)specific); break; } /* end switch */ } /* end else */ break; case 'B': if(ptr) { if(vp) HDfprintf (out, "0x%lx", (unsigned long)vp); else HDfprintf(out, "NULL"); } /* end if */ else { H5VL_blob_specific_t specific = (H5VL_blob_specific_t)HDva_arg(ap, int); switch(specific) { case H5VL_BLOB_DELETE: HDfprintf(out, "H5VL_BLOB_DELETE"); break; case H5VL_BLOB_GETSIZE: HDfprintf(out, "H5VL_BLOB_GETSIZE"); break; case H5VL_BLOB_ISNULL: HDfprintf(out, "H5VL_BLOB_ISNULL"); break; case H5VL_BLOB_SETNULL: HDfprintf(out, "H5VL_BLOB_SETNULL"); break; default: HDfprintf(out, "%ld", (long)specific); break; } /* end switch */ } /* end else */ break; case 'C': if(ptr) { if(vp) HDfprintf (out, "0x%lx", (unsigned long)vp); else HDfprintf(out, "NULL"); } /* end if */ else { H5VL_class_value_t class_val = (H5VL_class_value_t)HDva_arg(ap, H5VL_class_value_t); if(H5_VOL_NATIVE == class_val) HDfprintf(out, "H5_VOL_NATIVE"); else HDfprintf(out, "%ld", (long)class_val); } /* end else */ break; case 'c': if(ptr) { if(vp) HDfprintf (out, "0x%lx", (unsigned long)vp); else HDfprintf(out, "NULL"); } /* end if */ else { H5VL_dataset_get_t get = (H5VL_dataset_get_t)HDva_arg(ap, int); switch(get) { case H5VL_DATASET_GET_SPACE: HDfprintf(out, "H5VL_DATASET_GET_SPACE"); break; case H5VL_DATASET_GET_SPACE_STATUS: HDfprintf(out, "H5VL_DATASET_GET_SPACE_STATUS"); break; case H5VL_DATASET_GET_TYPE: HDfprintf(out, "H5VL_DATASET_GET_TYPE"); break; case H5VL_DATASET_GET_DCPL: HDfprintf(out, "H5VL_DATASET_GET_DCPL"); break; case H5VL_DATASET_GET_DAPL: HDfprintf(out, "H5VL_DATASET_GET_DAPL"); break; case H5VL_DATASET_GET_STORAGE_SIZE: HDfprintf(out, "H5VL_DATASET_GET_STORAGE_SIZE"); break; case H5VL_DATASET_GET_OFFSET: HDfprintf(out, "H5VL_DATASET_GET_OFFSET"); break; default: HDfprintf(out, "%ld", (long)get); break; } /* end switch */ } /* end else */ break; case 'd': if(ptr) { if(vp) HDfprintf (out, "0x%lx", (unsigned long)vp); else HDfprintf(out, "NULL"); } /* end if */ else { H5VL_dataset_specific_t specific = (H5VL_dataset_specific_t)HDva_arg(ap, int); switch(specific) { case H5VL_DATASET_SET_EXTENT: HDfprintf(out, "H5VL_DATASET_SET_EXTENT"); break; case H5VL_DATASET_FLUSH: HDfprintf(out, "H5VL_DATASET_FLUSH"); break; case H5VL_DATASET_REFRESH: HDfprintf(out, "H5VL_DATASET_REFRESH"); break; default: HDfprintf(out, "%ld", (long)specific); break; } /* end switch */ } /* end else */ break; case 'e': if(ptr) { if(vp) HDfprintf (out, "0x%lx", (unsigned long)vp); else HDfprintf(out, "NULL"); } /* end if */ else { H5VL_datatype_get_t get = (H5VL_datatype_get_t)HDva_arg(ap, int); switch(get) { case H5VL_DATATYPE_GET_BINARY: HDfprintf(out, "H5VL_DATATYPE_GET_BINARY"); break; case H5VL_DATATYPE_GET_TCPL: HDfprintf(out, "H5VL_DATATYPE_GET_TCPL"); break; default: HDfprintf(out, "%ld", (long)get); break; } /* end switch */ } /* end else */ break; case 'f': if(ptr) { if(vp) HDfprintf (out, "0x%lx", (unsigned long)vp); else HDfprintf(out, "NULL"); } /* end if */ else { H5VL_datatype_specific_t specific = (H5VL_datatype_specific_t)HDva_arg(ap, int); switch(specific) { case H5VL_DATATYPE_FLUSH: HDfprintf(out, "H5VL_DATATYPE_FLUSH"); break; case H5VL_DATATYPE_REFRESH: HDfprintf(out, "H5VL_DATATYPE_REFRESH"); break; default: HDfprintf(out, "%ld", (long)specific); break; } /* end switch */ } /* end else */ break; case 'g': if(ptr) { if(vp) HDfprintf (out, "0x%lx", (unsigned long)vp); else HDfprintf(out, "NULL"); } /* end if */ else { H5VL_file_get_t get = (H5VL_file_get_t)HDva_arg(ap, int); switch(get) { case H5VL_FILE_GET_FAPL: HDfprintf(out, "H5VL_FILE_GET_FAPL"); break; case H5VL_FILE_GET_FCPL: HDfprintf(out, "H5VL_FILE_GET_FCPL"); break; case H5VL_FILE_GET_INTENT: HDfprintf(out, "H5VL_FILE_GET_INTENT"); break; case H5VL_FILE_GET_FILENO: HDfprintf(out, "H5VL_FILE_GET_FILENO"); break; case H5VL_FILE_GET_NAME: HDfprintf(out, "H5VL_FILE_GET_NAME"); break; case H5VL_FILE_GET_OBJ_COUNT: HDfprintf(out, "H5VL_FILE_GET_OBJ_COUNT"); break; case H5VL_FILE_GET_OBJ_IDS: HDfprintf(out, "H5VL_FILE_GET_OBJ_IDS"); break; default: HDfprintf(out, "%ld", (long)get); break; } /* end switch */ } /* end else */ break; case 'h': if(ptr) { if(vp) HDfprintf (out, "0x%lx", (unsigned long)vp); else HDfprintf(out, "NULL"); } /* end if */ else { H5VL_file_specific_t specific = (H5VL_file_specific_t)HDva_arg(ap, int); switch(specific) { case H5VL_FILE_FLUSH: HDfprintf(out, "H5VL_FILE_FLUSH"); break; case H5VL_FILE_REOPEN: HDfprintf(out, "H5VL_FILE_REOPEN"); break; case H5VL_FILE_MOUNT: HDfprintf(out, "H5VL_FILE_MOUNT"); break; case H5VL_FILE_UNMOUNT: HDfprintf(out, "H5VL_FILE_UNMOUNT"); break; case H5VL_FILE_IS_ACCESSIBLE: HDfprintf(out, "H5VL_FILE_IS_ACCESSIBLE"); break; case H5VL_FILE_DELETE: HDfprintf(out, "H5VL_FILE_DELETE"); break; default: HDfprintf(out, "%ld", (long)specific); break; } /* end switch */ } /* end else */ break; case 'i': if(ptr) { if(vp) HDfprintf (out, "0x%lx", (unsigned long)vp); else HDfprintf(out, "NULL"); } /* end if */ else { H5VL_group_get_t get = (H5VL_group_get_t)HDva_arg(ap, int); switch(get) { case H5VL_GROUP_GET_GCPL: HDfprintf(out, "H5VL_GROUP_GET_GCPL"); break; case H5VL_GROUP_GET_INFO: HDfprintf(out, "H5VL_GROUP_GET_INFO"); break; default: HDfprintf(out, "%ld", (long)get); break; } /* end switch */ } /* end else */ break; case 'j': if(ptr) { if(vp) HDfprintf (out, "0x%lx", (unsigned long)vp); else HDfprintf(out, "NULL"); } /* end if */ else { H5VL_group_specific_t specific = (H5VL_group_specific_t)HDva_arg(ap, int); switch(specific) { case H5VL_GROUP_FLUSH: HDfprintf(out, "H5VL_GROUP_FLUSH"); break; case H5VL_GROUP_REFRESH: HDfprintf(out, "H5VL_GROUP_REFRESH"); break; default: HDfprintf(out, "%ld", (long)specific); break; } /* end switch */ } /* end else */ break; case 'k': if(ptr) { if(vp) HDfprintf (out, "0x%lx", (unsigned long)vp); else HDfprintf(out, "NULL"); } /* end if */ else { H5VL_link_create_type_t create = (H5VL_link_create_type_t)HDva_arg(ap, int); switch(create) { case H5VL_LINK_CREATE_HARD: HDfprintf(out, "H5VL_LINK_CREATE_HARD"); break; case H5VL_LINK_CREATE_SOFT: HDfprintf(out, "H5VL_LINK_CREATE_SOFT"); break; case H5VL_LINK_CREATE_UD: HDfprintf(out, "H5VL_LINK_CREATE_UD"); break; default: HDfprintf(out, "%ld", (long)create); break; } /* end switch */ } /* end else */ break; case 'l': if(ptr) { if(vp) HDfprintf (out, "0x%lx", (unsigned long)vp); else HDfprintf(out, "NULL"); } /* end if */ else { H5VL_link_get_t get = (H5VL_link_get_t)HDva_arg(ap, int); switch(get) { case H5VL_LINK_GET_INFO: HDfprintf(out, "H5VL_LINK_GET_INFO"); break; case H5VL_LINK_GET_NAME: HDfprintf(out, "H5VL_LINK_GET_NAME"); break; case H5VL_LINK_GET_VAL: HDfprintf(out, "H5VL_LINK_GET_VAL"); break; default: HDfprintf(out, "%ld", (long)get); break; } /* end switch */ } /* end else */ break; case 'm': if(ptr) { if(vp) HDfprintf (out, "0x%lx", (unsigned long)vp); else HDfprintf(out, "NULL"); } /* end if */ else { H5VL_link_specific_t specific = (H5VL_link_specific_t)HDva_arg(ap, int); switch(specific) { case H5VL_LINK_DELETE: HDfprintf(out, "H5VL_LINK_DELETE"); break; case H5VL_LINK_EXISTS: HDfprintf(out, "H5VL_LINK_EXISTS"); break; case H5VL_LINK_ITER: HDfprintf(out, "H5VL_LINK_ITER"); break; default: HDfprintf(out, "%ld", (long)specific); break; } /* end switch */ } /* end else */ break; case 'n': if(ptr) { if(vp) HDfprintf (out, "0x%lx", (unsigned long)vp); else HDfprintf(out, "NULL"); } /* end if */ else { H5VL_object_get_t get = (H5VL_object_get_t)HDva_arg(ap, int); switch(get) { case H5VL_REF_GET_REGION: HDfprintf(out, "H5VL_REF_GET_REGION"); break; case H5VL_REF_GET_TYPE: HDfprintf(out, "H5VL_REF_GET_TYPE"); break; case H5VL_REF_GET_NAME: HDfprintf(out, "H5VL_REF_GET_NAME"); break; case H5VL_OBJECT_GET_NAME: HDfprintf(out, "H5VL_OBJECT_GET_NAME"); break; default: HDfprintf(out, "%ld", (long)get); break; } /* end switch */ } /* end else */ break; case 'o': if(ptr) { if(vp) HDfprintf (out, "0x%lx", (unsigned long)vp); else HDfprintf(out, "NULL"); } /* end if */ else { H5VL_object_specific_t specific = (H5VL_object_specific_t)HDva_arg(ap, int); switch(specific) { case H5VL_OBJECT_CHANGE_REF_COUNT: HDfprintf(out, "H5VL_OBJECT_CHANGE_REF_COUNT"); break; case H5VL_OBJECT_EXISTS: HDfprintf(out, "H5VL_OBJECT_EXISTS"); break; case H5VL_OBJECT_VISIT: HDfprintf(out, "H5VL_OBJECT_VISIT"); break; case H5VL_REF_CREATE: HDfprintf(out, "H5VL_REF_CREATE"); break; case H5VL_OBJECT_FLUSH: HDfprintf(out, "H5VL_OBJECT_FLUSH"); break; case H5VL_OBJECT_REFRESH: HDfprintf(out, "H5VL_OBJECT_REFRESH"); break; default: HDfprintf(out, "%ld", (long)specific); break; } /* end switch */ } /* end else */ break; case 'r': if(ptr) { if(vp) HDfprintf (out, "0x%lx", (unsigned long)vp); else HDfprintf(out, "NULL"); } /* end if */ else { H5VL_request_specific_t specific = (H5VL_request_specific_t)HDva_arg(ap, int); switch(specific) { case H5VL_REQUEST_WAITANY: HDfprintf(out, "H5VL_REQUEST_WAITANY"); break; case H5VL_REQUEST_WAITSOME: HDfprintf(out, "H5VL_REQUEST_WAITSOME"); break; case H5VL_REQUEST_WAITALL: HDfprintf(out, "H5VL_REQUEST_WAITALL"); break; default: HDfprintf(out, "%ld", (long)specific); break; } /* end switch */ } /* end else */ break; default: HDfprintf(out, "BADTYPE(Z%c)", type[1]); goto error; } /* end switch */ break; case 'x': if(ptr) { if(vp) { HDfprintf(out, "0x%lx", (unsigned long)vp); if(asize_idx >= 0 && asize[asize_idx] >= 0) { void **p = (void**)vp; HDfprintf(out, " {"); for(i = 0; i < asize[asize_idx]; i++) { if(p[i]) HDfprintf(out, "%s0x%lx", (i ? ", " : ""), (unsigned long)(p[i])); else HDfprintf(out, "%sNULL", (i ? ", " : "")); } /* end for */ HDfprintf(out, "}"); } /* end if */ } /* end if */ else HDfprintf(out, "NULL"); } /* end if */ else { vp = HDva_arg (ap, void *); if(vp) HDfprintf(out, "0x%lx", (unsigned long)vp); else HDfprintf(out, "NULL"); } /* end else */ break; case 'z': if(ptr) { if(vp) { HDfprintf(out, "0x%lx", (unsigned long)vp); if(asize_idx >= 0 && asize[asize_idx] >= 0) { size_t *p = (size_t *)vp; HDfprintf(out, " {"); for(i = 0; i < asize[asize_idx]; i++) HDfprintf(out, "%s%Zu", (i ? ", " : ""), p[i]); HDfprintf(out, "}"); } /* end if */ } /* end if */ else HDfprintf(out, "NULL"); } /* end if */ else { size_t size = HDva_arg(ap, size_t); HDfprintf(out, "%Zu", size); asize[argno] = (hssize_t)size; } /* end else */ break; case 'Z': switch (type[1]) { case 'a': if(ptr) { if(vp) HDfprintf(out, "0x%lx", (unsigned long)vp); else HDfprintf(out, "NULL"); } /* end if */ else { H5Z_SO_scale_type_t scale_type = (H5Z_SO_scale_type_t)HDva_arg(ap, int); switch(scale_type) { case H5Z_SO_FLOAT_DSCALE: HDfprintf(out, "H5Z_SO_FLOAT_DSCALE"); break; case H5Z_SO_FLOAT_ESCALE: HDfprintf(out, "H5Z_SO_FLOAT_ESCALE"); break; case H5Z_SO_INT: HDfprintf(out, "H5Z_SO_INT"); break; default: HDfprintf(out, "%ld", (long)scale_type); break; } /* end switch */ } /* end else */ break; case 'c': if(ptr) { if(vp) HDfprintf(out, "0x%lx", (unsigned long)vp); else HDfprintf(out, "NULL"); } /* end if */ else { H5Z_class2_t *filter = HDva_arg(ap, H5Z_class2_t*); HDfprintf(out, "0x%lx", (unsigned long)filter); } /* end else */ break; case 'e': if(ptr) { if(vp) HDfprintf(out, "0x%lx", (unsigned long)vp); else HDfprintf(out, "NULL"); } /* end if */ else { H5Z_EDC_t edc = (H5Z_EDC_t)HDva_arg(ap, int); if(H5Z_DISABLE_EDC == edc) HDfprintf(out, "H5Z_DISABLE_EDC"); else if (H5Z_ENABLE_EDC == edc) HDfprintf(out, "H5Z_ENABLE_EDC"); else HDfprintf(out, "%ld", (long)edc); } /* end else */ break; case 'f': if(ptr) { if(vp) HDfprintf(out, "0x%lx", (unsigned long)vp); else HDfprintf(out, "NULL"); } /* end if */ else { H5Z_filter_t id = HDva_arg(ap, H5Z_filter_t); if(H5Z_FILTER_DEFLATE == id) HDfprintf(out, "H5Z_FILTER_DEFLATE"); else HDfprintf(out, "%ld", (long)id); } /* end else */ break; case 's': if(ptr) { if(vp) { HDfprintf(out, "0x%lx", (unsigned long)vp); if(asize_idx >= 0 && asize[asize_idx] >= 0) { ssize_t *p = (ssize_t *)vp; HDfprintf(out, " {"); for(i = 0; i < asize[asize_idx]; i++) HDfprintf(out, "%s%Zd", (i ? ", " : ""), p[i]); HDfprintf(out, "}"); } /* end if */ } /* end if */ else HDfprintf(out, "NULL"); } /* end if */ else { ssize_t ssize = HDva_arg(ap, ssize_t); HDfprintf(out, "%Zd", ssize); asize[argno] = (hssize_t)ssize; } /* end else */ break; default: HDfprintf(out, "BADTYPE(Z%c)", type[1]); goto error; } /* end switch */ break; default: if(HDisupper(type[0])) HDfprintf(out, "BADTYPE(%c%c)", type[0], type[1]); else HDfprintf(out, "BADTYPE(%c)", type[0]); goto error; } /* end switch */ } /* end for */ /* Display event time for return */ if(returning && H5_debug_g.ttimes) HDfprintf(out, " @%.6f [dt=%.6f]", (event_time.etime - first_time.etime), (event_time.etime - *returning)); error: HDva_end(ap); if(returning) HDfprintf(out, ";\n"); else { last_call_depth = current_depth++; HDfprintf (out, ")"); } /* end else */ HDfflush(out); return event_time.etime; } /* end H5_trace() */