mirrors/hdf5
2
0
Fork 0
mirror of https://github.com/HDFGroup/hdf5.git synced 2026-09-25 04:09:44 +03:00
Code Issues Packages Projects Releases Wiki Activity
Files
fcf41b3cd60df51af9be529e379a9dd6c488d088
hdf5/src/H5trace.c
T
Dana Robinsonandgithub-actions fcf41b3cd6 Onion VFD (#1953) 
* Onion VFD feature

* Fixes onion VFD errors with non-sec2 backing store VFDs

* Disables the onion VFD tests w/ ph5diff

* Disables non-sec2 VFDs as onion VFD backing stores

* Committing clang-format changes

* Formatted source

* Typo

* Adds onion VFD tools tests to CMake

* Fixes for v16 API compatibility

* Memset structs to avoid bad frees on errors

* H5Dwrite() calls now use H5T_NATIVE_INT as the memory type vs LE

* Properly decodes checksums on BE machines

* Be more careful about uint64_t to haddr_t/hsize_t conversions

* Another fix for BE data comparison

* Removed double underscores from onion constants

* Replace hard-coded onion header string w/ constant

* Fixes cleanup paths in H5FD__onion_ingest_history()

* Fixed use of size_t revision numbers

* Fix h5dump revision count format string

Co-authored-by: github-actions <41898282+github-actions[bot]@users.noreply.github.com>
2022-08-02 12:54:40 -07:00

4082 lines
173 KiB
C
Raw Blame History

/* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
* 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://www.hdfgroup.org/licenses. *
* 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 */
/****************/
#include "H5module.h" /* This source code file is part of the H5 module */
#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 "H5Rprivate.h" /* References */
#include "H5Ipkg.h" /* IDs */
#include "H5Mpublic.h" /* Maps */
#include "H5MMprivate.h" /* Memory management */
#include "H5RSprivate.h" /* Reference-counted strings */
#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 */
/********************/
static herr_t H5_trace_args_bool(H5RS_str_t *rs, hbool_t val);
static herr_t H5_trace_args_cset(H5RS_str_t *rs, H5T_cset_t cset);
static herr_t H5_trace_args_close_degree(H5RS_str_t *rs, H5F_close_degree_t degree);
/*********************/
/* Package Variables */
/*********************/
/*****************************/
/* Library Private Variables */
/*****************************/
/*******************/
/* Local Variables */
/*******************/
/*-------------------------------------------------------------------------
* Function: H5_trace_args_bool
*
* Purpose: This routine formats an hbool_t and adds the output to
* the refcounted string (RS) argument.
*
* Return: SUCCEED / FAIL
*
* Programmer: Quincey Koziol
* Monday, September 21, 2020
*
*-------------------------------------------------------------------------
*/
static herr_t
H5_trace_args_bool(H5RS_str_t *rs, hbool_t val)
{
/* FUNC_ENTER() should not be called */
if (TRUE == val)
H5RS_acat(rs, "TRUE");
else if (!val)
H5RS_acat(rs, "FALSE");
else
H5RS_asprintf_cat(rs, "TRUE(%u)", (unsigned)val);
return SUCCEED;
} /* end H5_trace_args_bool() */
/*-------------------------------------------------------------------------
* Function: H5_trace_args_cset
*
* Purpose: This routine formats an H5T_cset_t and adds the output to
* the refcounted string (RS) argument.
*
* Return: SUCCEED / FAIL
*
* Programmer: Quincey Koziol
* Sunday, September 20, 2020
*
*-------------------------------------------------------------------------
*/
static herr_t
H5_trace_args_cset(H5RS_str_t *rs, H5T_cset_t cset)
{
/* FUNC_ENTER() should not be called */
switch (cset) {
case H5T_CSET_ERROR:
H5RS_acat(rs, "H5T_CSET_ERROR");
break;
case H5T_CSET_ASCII:
H5RS_acat(rs, "H5T_CSET_ASCII");
break;
case H5T_CSET_UTF8:
H5RS_acat(rs, "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:
H5RS_asprintf_cat(rs, "H5T_CSET_RESERVED_%ld", (long)cset);
break;
default:
H5RS_asprintf_cat(rs, "%ld", (long)cset);
break;
} /* end switch */
return SUCCEED;
} /* end H5_trace_args_cset() */
/*-------------------------------------------------------------------------
* Function: H5_trace_args_close_degree
*
* Purpose: This routine formats an H5F_close_degree_t and adds the output to
* the refcounted string (RS) argument.
*
* Return: SUCCEED / FAIL
*
* Programmer: Quincey Koziol
* Monday, September 21, 2020
*
*-------------------------------------------------------------------------
*/
static herr_t
H5_trace_args_close_degree(H5RS_str_t *rs, H5F_close_degree_t degree)
{
/* FUNC_ENTER() should not be called */
switch (degree) {
case H5F_CLOSE_DEFAULT:
H5RS_acat(rs, "H5F_CLOSE_DEFAULT");
break;
case H5F_CLOSE_WEAK:
H5RS_acat(rs, "H5F_CLOSE_WEAK");
break;
case H5F_CLOSE_SEMI:
H5RS_acat(rs, "H5F_CLOSE_SEMI");
break;
case H5F_CLOSE_STRONG:
H5RS_acat(rs, "H5F_CLOSE_STRONG");
break;
default:
H5RS_asprintf_cat(rs, "%ld", (long)degree);
break;
} /* end switch */
return SUCCEED;
} /* end H5_trace_args_cset() */
/*-------------------------------------------------------------------------
* Function: H5_trace_args
*
* Purpose: This routine formats a set of function arguments, placing the
* resulting string in the refcounted string (RS) argument.
*
* The TYPE argument is a string which gives the type of each of
* the following argument pairs. Each type begins with 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.
*
* Return: SUCCEED / FAIL
*
* Programmer: Quincey Koziol
* Saturday, September 19, 2020
*
*-------------------------------------------------------------------------
*/
herr_t
H5_trace_args(H5RS_str_t *rs, const char *type, va_list ap)
{
const char *argname;
int argno = 0, ptr, asize_idx;
hssize_t asize[16];
hssize_t i;
void *vp = NULL;
/* FUNC_ENTER() should not be called */
/* 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++;
/* Array parameter, possibly with another argument as the array size */
if ('[' == *type) {
char *rest;
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. 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)
H5RS_asprintf_cat(rs, "%s%s=", argno ? ", " : "", argname);
else
argname = "";
/* A pointer/array */
if (ptr) {
vp = HDva_arg(ap, void *);
if (vp) {
switch (type[0]) {
case 'h': /* hsize_t */
H5RS_asprintf_cat(rs, "%p", vp);
if (asize_idx >= 0 && asize[asize_idx] >= 0) {
hsize_t *p = (hsize_t *)vp;
H5RS_acat(rs, " {");
for (i = 0; i < asize[asize_idx]; i++) {
if (H5S_UNLIMITED == p[i])
H5RS_asprintf_cat(rs, "%sH5S_UNLIMITED", (i ? ", " : ""));
else
H5RS_asprintf_cat(rs, "%s%" PRIuHSIZE, (i ? ", " : ""), p[i]);
} /* end for */
H5RS_acat(rs, "}");
} /* end if */
break;
case 'H':
if ('s' == type[1]) { /* hssize_t */
H5RS_asprintf_cat(rs, "%p", vp);
if (asize_idx >= 0 && asize[asize_idx] >= 0) {
hssize_t *p = (hssize_t *)vp;
H5RS_acat(rs, " {");
for (i = 0; i < asize[asize_idx]; i++)
H5RS_asprintf_cat(rs, "%s%" PRIdHSIZE, (i ? ", " : ""), p[i]);
H5RS_acat(rs, "}");
} /* end if */
} /* end if */
else
H5RS_asprintf_cat(rs, "%p", vp);
break;
case 'I':
if ('s' == type[1]) { /* int / int32_t */
H5RS_asprintf_cat(rs, "%p", vp);
if (asize_idx >= 0 && asize[asize_idx] >= 0) {
int *p = (int *)vp;
H5RS_acat(rs, " {");
for (i = 0; i < asize[asize_idx]; i++)
H5RS_asprintf_cat(rs, "%s%d", (i ? ", " : ""), p[i]);
H5RS_acat(rs, "}");
} /* end if */
} /* end if */
else if ('u' == type[1]) { /* unsigned / uint32_t */
H5RS_asprintf_cat(rs, "%p", vp);
if (asize_idx >= 0 && asize[asize_idx] >= 0) {
unsigned *p = (unsigned *)vp;
H5RS_acat(rs, " {");
for (i = 0; i < asize[asize_idx]; i++)
H5RS_asprintf_cat(rs, "%s%u", i ? ", " : "", p[i]);
H5RS_acat(rs, "}");
} /* end if */
} /* end else-if */
else
H5RS_asprintf_cat(rs, "%p", vp);
break;
case 's': /* char* */
/* Strings have one level of indirection by default, pointers
* to strings have 2 or more.
*/
if (ptr > 1)
H5RS_asprintf_cat(rs, "%p", vp);
else
H5RS_asprintf_cat(rs, "\"%s\"", (const char *)vp);
break;
case 'U':
if ('l' == type[1]) { /* unsigned long */
H5RS_asprintf_cat(rs, "%p", vp);
if (asize_idx >= 0 && asize[asize_idx] >= 0) {
unsigned long *p = (unsigned long *)vp;
H5RS_acat(rs, " {");
for (i = 0; i < asize[asize_idx]; i++)
H5RS_asprintf_cat(rs, "%s%lu", i ? ", " : "", p[i]);
H5RS_acat(rs, "}");
} /* end if */
} /* end if */
else if ('L' == type[1]) { /* unsigned long long / uint64_t */
H5RS_asprintf_cat(rs, "%p", vp);
if (asize_idx >= 0 && asize[asize_idx] >= 0) {
unsigned long long *p = (unsigned long long *)vp;
H5RS_acat(rs, " {");
for (i = 0; i < asize[asize_idx]; i++)
H5RS_asprintf_cat(rs, "%s%llu", i ? ", " : "", p[i]);
H5RS_acat(rs, "}");
} /* end if */
} /* end else-if */
else
H5RS_asprintf_cat(rs, "%p", vp);
break;
case 'x': /* void */
H5RS_asprintf_cat(rs, "%p", vp);
if (asize_idx >= 0 && asize[asize_idx] >= 0) {
void **p = (void **)vp;
H5RS_acat(rs, " {");
for (i = 0; i < asize[asize_idx]; i++) {
if (p[i])
H5RS_asprintf_cat(rs, "%s%p", (i ? ", " : ""), p[i]);
else
H5RS_asprintf_cat(rs, "%sNULL", (i ? ", " : ""));
} /* end for */
H5RS_acat(rs, "}");
} /* end if */
break;
case 'z': /* size_t */
H5RS_asprintf_cat(rs, "%p", vp);
if (asize_idx >= 0 && asize[asize_idx] >= 0) {
size_t *p = (size_t *)vp;
H5RS_acat(rs, " {");
for (i = 0; i < asize[asize_idx]; i++)
H5RS_asprintf_cat(rs, "%s%zu", (i ? ", " : ""), p[i]);
H5RS_acat(rs, "}");
} /* end if */
break;
case 'Z':
if ('s' == type[1]) { /* ssize_t */
H5RS_asprintf_cat(rs, "%p", vp);
if (asize_idx >= 0 && asize[asize_idx] >= 0) {
ssize_t *p = (ssize_t *)vp;
H5RS_acat(rs, " {");
for (i = 0; i < asize[asize_idx]; i++)
H5RS_asprintf_cat(rs, "%s%zd", (i ? ", " : ""), p[i]);
H5RS_acat(rs, "}");
} /* end if */
} /* end if */
else
H5RS_asprintf_cat(rs, "%p", vp);
break;
default:
H5RS_asprintf_cat(rs, "%p", vp);
} /* end switch */
} /* end if */
else
H5RS_acat(rs, "NULL");
} /* end if */
/* A value */
else {
switch (type[0]) {
case 'a': /* haddr_t */
{
haddr_t addr = HDva_arg(ap, haddr_t);
if (H5F_addr_defined(addr))
H5RS_asprintf_cat(rs, "%" PRIuHADDR, addr);
else
H5RS_acat(rs, "UNDEF");
} /* end block */
break;
case 'A':
switch (type[1]) {
case 'i': /* H5A_info_t */
{
H5A_info_t ainfo = HDva_arg(ap, H5A_info_t);
H5RS_acat(rs, "{");
H5_trace_args_bool(rs, ainfo.corder_valid);
H5RS_asprintf_cat(rs, ", %u, ", ainfo.corder);
H5_trace_args_cset(rs, ainfo.cset);
H5RS_asprintf_cat(rs, "%" PRIuHSIZE "}", ainfo.data_size);
} /* end block */
break;
#ifndef H5_NO_DEPRECATED_SYMBOLS
case 'o': /* H5A_operator1_t */
{
H5A_operator1_t aop1 = (H5A_operator1_t)HDva_arg(ap, H5A_operator1_t);
H5RS_asprintf_cat(rs, "%p", (void *)(uintptr_t)aop1);
} /* end block */
break;
#endif /* H5_NO_DEPRECATED_SYMBOLS */
case 'O': /* H5A_operator2_t */
{
H5A_operator2_t aop2 = (H5A_operator2_t)HDva_arg(ap, H5A_operator2_t);
H5RS_asprintf_cat(rs, "%p", (void *)(uintptr_t)aop2);
} /* end block */
break;
default:
H5RS_asprintf_cat(rs, "BADTYPE(A%c)", type[1]);
goto error;
} /* end switch */
break;
case 'b': /* hbool_t */
{
/* Can't pass hbool_t to HDva_arg() */
hbool_t bool_var = (hbool_t)HDva_arg(ap, int);
H5_trace_args_bool(rs, bool_var);
} /* end block */
break;
case 'C':
switch (type[1]) {
case 'c': /* H5AC_cache_config_t */
{
H5AC_cache_config_t cc = HDva_arg(ap, H5AC_cache_config_t);
H5RS_asprintf_cat(rs, "{%d, ", cc.version);
H5_trace_args_bool(rs, cc.rpt_fcn_enabled);
H5RS_acat(rs, ", ");
H5_trace_args_bool(rs, cc.open_trace_file);
H5RS_acat(rs, ", ");
H5_trace_args_bool(rs, cc.close_trace_file);
H5RS_asprintf_cat(rs, ", '%s', ", cc.trace_file_name);
H5RS_acat(rs, ", ");
H5_trace_args_bool(rs, cc.evictions_enabled);
H5RS_acat(rs, ", ");
H5_trace_args_bool(rs, cc.set_initial_size);
H5RS_asprintf_cat(rs, ", %zu, ", cc.initial_size);
H5RS_asprintf_cat(rs, "%f, ", cc.min_clean_fraction);
H5RS_asprintf_cat(rs, "%zu, ", cc.max_size);
H5RS_asprintf_cat(rs, "%zu, ", cc.min_size);
H5RS_asprintf_cat(rs, "%ld, ", cc.epoch_length);
switch (cc.incr_mode) {
case H5C_incr__off:
H5RS_acat(rs, "H5C_incr__off");
break;
case H5C_incr__threshold:
H5RS_acat(rs, "H5C_incr__threshold");
break;
default:
H5RS_asprintf_cat(rs, "%ld", (long)cc.incr_mode);
break;
} /* end switch */
H5RS_asprintf_cat(rs, ", %f, ", cc.lower_hr_threshold);
H5RS_asprintf_cat(rs, "%f, ", cc.increment);
H5_trace_args_bool(rs, cc.apply_max_increment);
H5RS_asprintf_cat(rs, ", %zu, ", cc.max_increment);
switch (cc.flash_incr_mode) {
case H5C_flash_incr__off:
H5RS_acat(rs, "H5C_flash_incr__off");
break;
case H5C_flash_incr__add_space:
H5RS_acat(rs, "H5C_flash_incr__add_space");
break;
default:
H5RS_asprintf_cat(rs, "%ld", (long)cc.flash_incr_mode);
break;
} /* end switch */
H5RS_asprintf_cat(rs, ", %f, ", cc.flash_multiple);
H5RS_asprintf_cat(rs, "%f, ", cc.flash_threshold);
switch (cc.decr_mode) {
case H5C_decr__off:
H5RS_acat(rs, "H5C_decr__off");
break;
case H5C_decr__threshold:
H5RS_acat(rs, "H5C_decr__threshold");
break;
case H5C_decr__age_out:
H5RS_acat(rs, "H5C_decr__age_out");
break;
case H5C_decr__age_out_with_threshold:
H5RS_acat(rs, "H5C_decr__age_out_with_threshold");
break;
default:
H5RS_asprintf_cat(rs, "%ld", (long)cc.decr_mode);
break;
} /* end switch */
H5RS_asprintf_cat(rs, ", %f, ", cc.upper_hr_threshold);
H5RS_asprintf_cat(rs, "%f, ", cc.decrement);
H5_trace_args_bool(rs, cc.apply_max_decrement);
H5RS_asprintf_cat(rs, ", %zu, ", cc.max_decrement);
H5RS_asprintf_cat(rs, "%d, ", cc.epochs_before_eviction);
H5_trace_args_bool(rs, cc.apply_empty_reserve);
H5RS_asprintf_cat(rs, ", %f, ", cc.empty_reserve);
H5RS_asprintf_cat(rs, "%zu, ", cc.dirty_bytes_threshold);
H5RS_asprintf_cat(rs, "%d}", cc.metadata_write_strategy);
} /* end block */
break;
case 'C': /* H5AC_cache_image_config_t */
{
H5AC_cache_image_config_t cic = HDva_arg(ap, H5AC_cache_image_config_t);
H5RS_asprintf_cat(rs, "{%d, ", cic.version);
H5_trace_args_bool(rs, cic.generate_image);
H5RS_acat(rs, ", ");
H5_trace_args_bool(rs, cic.save_resize_status);
H5RS_acat(rs, ", ");
H5RS_asprintf_cat(rs, "%d}", cic.entry_ageout);
} /* end block */
break;
default:
H5RS_asprintf_cat(rs, "BADTYPE(C%c)", type[1]);
goto error;
} /* end switch */
break;
case 'd': /* double */
{
double dbl = HDva_arg(ap, double);
H5RS_asprintf_cat(rs, "%g", dbl);
} /* end block */
break;
case 'D':
switch (type[1]) {
case 'a': /* H5D_alloc_time_t */
{
H5D_alloc_time_t alloc_time = (H5D_alloc_time_t)HDva_arg(ap, int);
switch (alloc_time) {
case H5D_ALLOC_TIME_ERROR:
H5RS_acat(rs, "H5D_ALLOC_TIME_ERROR");
break;
case H5D_ALLOC_TIME_DEFAULT:
H5RS_acat(rs, "H5D_ALLOC_TIME_DEFAULT");
break;
case H5D_ALLOC_TIME_EARLY:
H5RS_acat(rs, "H5D_ALLOC_TIME_EARLY");
break;
case H5D_ALLOC_TIME_LATE:
H5RS_acat(rs, "H5D_ALLOC_TIME_LATE");
break;
case H5D_ALLOC_TIME_INCR:
H5RS_acat(rs, "H5D_ALLOC_TIME_INCR");
break;
default:
H5RS_asprintf_cat(rs, "%ld", (long)alloc_time);
break;
} /* end switch */
} /* end block */
break;
case 'A': /* H5D_append_cb_t */
{
H5D_append_cb_t dapp = (H5D_append_cb_t)HDva_arg(ap, H5D_append_cb_t);
H5RS_asprintf_cat(rs, "%p", (void *)(uintptr_t)dapp);
} /* end block */
break;
case 'c': /* H5FD_mpio_collective_opt_t */
{
H5FD_mpio_collective_opt_t opt = (H5FD_mpio_collective_opt_t)HDva_arg(ap, int);
switch (opt) {
case H5FD_MPIO_COLLECTIVE_IO:
H5RS_acat(rs, "H5FD_MPIO_COLLECTIVE_IO");
break;
case H5FD_MPIO_INDIVIDUAL_IO:
H5RS_acat(rs, "H5FD_MPIO_INDIVIDUAL_IO");
break;
default:
H5RS_asprintf_cat(rs, "%ld", (long)opt);
break;
} /* end switch */
} /* end block */
break;
case 'f': /* H5D_fill_time_t */
{
H5D_fill_time_t fill_time = (H5D_fill_time_t)HDva_arg(ap, int);
switch (fill_time) {
case H5D_FILL_TIME_ERROR:
H5RS_acat(rs, "H5D_FILL_TIME_ERROR");
break;
case H5D_FILL_TIME_ALLOC:
H5RS_acat(rs, "H5D_FILL_TIME_ALLOC");
break;
case H5D_FILL_TIME_NEVER:
H5RS_acat(rs, "H5D_FILL_TIME_NEVER");
break;
case H5D_FILL_TIME_IFSET:
H5RS_acat(rs, "H5D_FILL_TIME_IFSET");
break;
default:
H5RS_asprintf_cat(rs, "%ld", (long)fill_time);
break;
} /* end switch */
} /* end block */
break;
case 'F': /* H5D_fill_value_t */
{
H5D_fill_value_t fill_value = (H5D_fill_value_t)HDva_arg(ap, int);
switch (fill_value) {
case H5D_FILL_VALUE_ERROR:
H5RS_acat(rs, "H5D_FILL_VALUE_ERROR");
break;
case H5D_FILL_VALUE_UNDEFINED:
H5RS_acat(rs, "H5D_FILL_VALUE_UNDEFINED");
break;
case H5D_FILL_VALUE_DEFAULT:
H5RS_acat(rs, "H5D_FILL_VALUE_DEFAULT");
break;
case H5D_FILL_VALUE_USER_DEFINED:
H5RS_acat(rs, "H5D_FILL_VALUE_USER_DEFINED");
break;
default:
H5RS_asprintf_cat(rs, "%ld", (long)fill_value);
break;
} /* end switch */
} /* end block */
break;
case 'g': /* H5D_gather_func_t */
{
H5D_gather_func_t gop = (H5D_gather_func_t)HDva_arg(ap, H5D_gather_func_t);
H5RS_asprintf_cat(rs, "%p", (void *)(uintptr_t)gop);
} /* end block */
break;
case 'h': /* H5FD_mpio_chunk_opt_t */
{
H5FD_mpio_chunk_opt_t opt = (H5FD_mpio_chunk_opt_t)HDva_arg(ap, int);
switch (opt) {
case H5FD_MPIO_CHUNK_DEFAULT:
H5RS_acat(rs, "H5FD_MPIO_CHUNK_DEFAULT");
break;
case H5FD_MPIO_CHUNK_ONE_IO:
H5RS_acat(rs, "H5FD_MPIO_CHUNK_ONE_IO");
break;
case H5FD_MPIO_CHUNK_MULTI_IO:
H5RS_acat(rs, "H5FD_MPIO_CHUNK_MULTI_IO");
break;
default:
H5RS_asprintf_cat(rs, "%ld", (long)opt);
break;
} /* end switch */
} /* end block */
break;
case 'i': /* H5D_mpio_actual_io_mode_t */
{
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:
H5RS_acat(rs, "H5D_MPIO_NO_COLLECTIVE");
break;
case H5D_MPIO_CHUNK_INDEPENDENT:
H5RS_acat(rs, "H5D_MPIO_CHUNK_INDEPENDENT");
break;
case H5D_MPIO_CHUNK_COLLECTIVE:
H5RS_acat(rs, "H5D_MPIO_CHUNK_COLLECTIVE");
break;
case H5D_MPIO_CHUNK_MIXED:
H5RS_acat(rs, "H5D_MPIO_CHUNK_MIXED");
break;
case H5D_MPIO_CONTIGUOUS_COLLECTIVE:
H5RS_acat(rs, "H5D_MPIO_CONTIGUOUS_COLLECTIVE");
break;
default:
H5RS_asprintf_cat(rs, "%ld", (long)actual_io_mode);
break;
} /* end switch */
} /* end block */
break;
case 'I': /* H5FD_file_image_callbacks_t */
{
H5FD_file_image_callbacks_t ficb = HDva_arg(ap, H5FD_file_image_callbacks_t);
H5RS_asprintf_cat(rs, "{%p, ", (void *)(uintptr_t)ficb.image_malloc);
H5RS_asprintf_cat(rs, "%p, ", (void *)(uintptr_t)ficb.image_memcpy);
H5RS_asprintf_cat(rs, "%p, ", (void *)(uintptr_t)ficb.image_realloc);
H5RS_asprintf_cat(rs, "%p, ", (void *)(uintptr_t)ficb.image_free);
H5RS_asprintf_cat(rs, "%p, ", (void *)(uintptr_t)ficb.udata_copy);
H5RS_asprintf_cat(rs, "%p, ", (void *)(uintptr_t)ficb.udata_free);
H5RS_asprintf_cat(rs, "%p}", ficb.udata);
} /* end block */
break;
case 'k': /* H5D_chunk_index_t */
{
H5D_chunk_index_t idx = (H5D_chunk_index_t)HDva_arg(ap, int);
switch (idx) {
case H5D_CHUNK_IDX_BTREE:
H5RS_acat(rs, "H5D_CHUNK_IDX_BTREE");
break;
case H5D_CHUNK_IDX_NONE:
H5RS_acat(rs, "H5D_CHUNK_IDX_NONE");
break;
case H5D_CHUNK_IDX_FARRAY:
H5RS_acat(rs, "H5D_CHUNK_IDX_FARRAY");
break;
case H5D_CHUNK_IDX_EARRAY:
H5RS_acat(rs, "H5D_CHUNK_IDX_EARRAY");
break;
case H5D_CHUNK_IDX_BT2:
H5RS_acat(rs, "H5D_CHUNK_IDX_BT2");
break;
case H5D_CHUNK_IDX_SINGLE:
H5RS_acat(rs, "H5D_CHUNK_IDX_SINGLE");
break;
case H5D_CHUNK_IDX_NTYPES:
H5RS_acat(rs, "ERROR: H5D_CHUNK_IDX_NTYPES (invalid value)");
break;
default:
H5RS_asprintf_cat(rs, "UNKNOWN VALUE: %ld", (long)idx);
break;
} /* end switch */
} /* end block */
break;
case 'l': /* H5D_layout_t */
{
H5D_layout_t layout = (H5D_layout_t)HDva_arg(ap, int);
switch (layout) {
case H5D_LAYOUT_ERROR:
H5RS_acat(rs, "H5D_LAYOUT_ERROR");
break;
case H5D_COMPACT:
H5RS_acat(rs, "H5D_COMPACT");
break;
case H5D_CONTIGUOUS:
H5RS_acat(rs, "H5D_CONTIGUOUS");
break;
case H5D_CHUNKED:
H5RS_acat(rs, "H5D_CHUNKED");
break;
case H5D_VIRTUAL:
H5RS_acat(rs, "H5D_VIRTUAL");
break;
case H5D_NLAYOUTS:
H5RS_acat(rs, "H5D_NLAYOUTS");
break;
default:
H5RS_asprintf_cat(rs, "%ld", (long)layout);
break;
} /* end switch */
} /* end block */
break;
case 'n': /* H5D_mpio_no_collective_cause_t */
{
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) {
H5RS_acat(rs, "H5D_MPIO_COLLECTIVE");
flag_already_displayed = TRUE;
} /* end if */
if (nocol_cause_mode & H5D_MPIO_SET_INDEPENDENT) {
H5RS_asprintf_cat(rs, "%sH5D_MPIO_SET_INDEPENDENT",
flag_already_displayed ? " | " : "");
flag_already_displayed = TRUE;
} /* end if */
if (nocol_cause_mode & H5D_MPIO_DATATYPE_CONVERSION) {
H5RS_asprintf_cat(rs, "%sH5D_MPIO_DATATYPE_CONVERSION",
flag_already_displayed ? " | " : "");
flag_already_displayed = TRUE;
} /* end if */
if (nocol_cause_mode & H5D_MPIO_DATA_TRANSFORMS) {
H5RS_asprintf_cat(rs, "%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) {
H5RS_asprintf_cat(rs, "%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) {
H5RS_asprintf_cat(rs, "%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) {
H5RS_asprintf_cat(rs, "%sH5D_MPIO_NOT_CONTIGUOUS_OR_CHUNKED_DATASET",
flag_already_displayed ? " | " : "");
flag_already_displayed = TRUE;
} /* end if */
/* Display '<none>' if there's no flags set */
if (!flag_already_displayed)
H5RS_acat(rs, "<none>");
} /* end block */
break;
case 'o': /* H5D_mpio_actual_chunk_opt_mode_t */
{
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:
H5RS_acat(rs, "H5D_MPIO_NO_CHUNK_OPTIMIZATION");
break;
case H5D_MPIO_LINK_CHUNK:
H5RS_acat(rs, "H5D_MPIO_LINK_CHUNK");
break;
case H5D_MPIO_MULTI_CHUNK:
H5RS_acat(rs, "H5D_MPIO_MULTI_CHUNK");
break;
default:
H5RS_asprintf_cat(rs, "%ld", (long)chunk_opt_mode);
break;
} /* end switch */
} /* end block */
break;
case 'O': /* H5D_operator_t */
{
H5D_operator_t dop = (H5D_operator_t)HDva_arg(ap, H5D_operator_t);
H5RS_asprintf_cat(rs, "%p", (void *)(uintptr_t)dop);
} /* end block */
break;
case 's': /* H5D_space_status_t */
{
H5D_space_status_t space_status = (H5D_space_status_t)HDva_arg(ap, int);
switch (space_status) {
case H5D_SPACE_STATUS_NOT_ALLOCATED:
H5RS_acat(rs, "H5D_SPACE_STATUS_NOT_ALLOCATED");
break;
case H5D_SPACE_STATUS_PART_ALLOCATED:
H5RS_acat(rs, "H5D_SPACE_STATUS_PART_ALLOCATED");
break;
case H5D_SPACE_STATUS_ALLOCATED:
H5RS_acat(rs, "H5D_SPACE_STATUS_ALLOCATED");
break;
case H5D_SPACE_STATUS_ERROR:
H5RS_acat(rs, "H5D_SPACE_STATUS_ERROR");
break;
default:
H5RS_asprintf_cat(rs, "%ld", (long)space_status);
break;
} /* end switch */
} /* end block */
break;
case 'S': /* H5D_scatter_func_t */
{
H5D_scatter_func_t sop = (H5D_scatter_func_t)HDva_arg(ap, H5D_scatter_func_t);
H5RS_asprintf_cat(rs, "%p", (void *)(uintptr_t)sop);
} /* end block */
break;
case 't': /* H5FD_mpio_xfer_t */
{
H5FD_mpio_xfer_t transfer = (H5FD_mpio_xfer_t)HDva_arg(ap, int);
switch (transfer) {
case H5FD_MPIO_INDEPENDENT:
H5RS_acat(rs, "H5FD_MPIO_INDEPENDENT");
break;
case H5FD_MPIO_COLLECTIVE:
H5RS_acat(rs, "H5FD_MPIO_COLLECTIVE");
break;
default:
H5RS_asprintf_cat(rs, "%ld", (long)transfer);
break;
} /* end switch */
} /* end block */
break;
case 'v': /* H5D_vds_view_t */
{
H5D_vds_view_t view = (H5D_vds_view_t)HDva_arg(ap, int);
switch (view) {
case H5D_VDS_ERROR:
H5RS_acat(rs, "H5D_VDS_ERROR");
break;
case H5D_VDS_FIRST_MISSING:
H5RS_acat(rs, "H5D_VDS_FIRST_MISSING");
break;
case H5D_VDS_LAST_AVAILABLE:
H5RS_acat(rs, "H5D_VDS_LAST_AVAILABLE");
break;
default:
H5RS_asprintf_cat(rs, "%ld", (long)view);
break;
} /* end switch */
} /* end block */
break;
case 'V': /* H5FD_class_value_t */
{
H5FD_class_value_t class_val =
(H5FD_class_value_t)HDva_arg(ap, H5FD_class_value_t);
switch (class_val) {
case H5_VFD_INVALID:
H5RS_acat(rs, "H5_VFD_INVALID");
break;
case H5_VFD_SEC2:
H5RS_acat(rs, "H5_VFD_SEC2");
break;
case H5_VFD_CORE:
H5RS_acat(rs, "H5_VFD_CORE");
break;
case H5_VFD_LOG:
H5RS_acat(rs, "H5_VFD_LOG");
break;
case H5_VFD_FAMILY:
H5RS_acat(rs, "H5_VFD_FAMILY");
break;
case H5_VFD_MULTI:
H5RS_acat(rs, "H5_VFD_MULTI");
break;
case H5_VFD_STDIO:
H5RS_acat(rs, "H5_VFD_STDIO");
break;
#ifdef H5_HAVE_PARALLEL
case H5_VFD_MPIO:
H5RS_acat(rs, "H5_VFD_MPIO");
break;
#endif
#ifdef H5_HAVE_DIRECT
case H5_VFD_DIRECT:
H5RS_acat(rs, "H5_VFD_DIRECT");
break;
#endif
#ifdef H5_HAVE_MIRROR_VFD
case H5_VFD_MIRROR:
H5RS_acat(rs, "H5_VFD_MIRROR");
break;
#endif
#ifdef H5_HAVE_LIBHDFS
case H5_VFD_HDFS:
H5RS_acat(rs, "H5_VFD_HDFS");
break;
#endif
#ifdef H5_HAVE_ROS3_VFD
case H5_VFD_ROS3:
H5RS_acat(rs, "H5_VFD_ROS3");
break;
#endif
case H5_VFD_ONION:
H5RS_acat(rs, "H5_VFD_ONION");
break;
default:
H5RS_asprintf_cat(rs, "%ld", (long)class_val);
break;
}
} /* end block */
break;
default:
H5RS_asprintf_cat(rs, "BADTYPE(D%c)", type[1]);
goto error;
} /* end switch */
break;
case 'e': /* herr_t */
{
herr_t status = HDva_arg(ap, herr_t);
if (status >= 0)
H5RS_acat(rs, "SUCCEED");
else
H5RS_acat(rs, "FAIL");
} /* end block */
break;
case 'E':
switch (type[1]) {
#ifndef H5_NO_DEPRECATED_SYMBOLS
case 'a': /* H5E_auto1_t */
{
H5E_auto1_t eauto1 = (H5E_auto1_t)HDva_arg(ap, H5E_auto1_t);
H5RS_asprintf_cat(rs, "%p", (void *)(uintptr_t)eauto1);
} /* end block */
break;
#endif /* H5_NO_DEPRECATED_SYMBOLS */
case 'A': /* H5E_auto2_t */
{
H5E_auto2_t eauto2 = (H5E_auto2_t)HDva_arg(ap, H5E_auto2_t);
H5RS_asprintf_cat(rs, "%p", (void *)(uintptr_t)eauto2);
} /* end block */
break;
case 'C': /* H5ES_event_complete_func_t */
{
H5ES_event_complete_func_t cfunc =
(H5ES_event_complete_func_t)HDva_arg(ap, H5ES_event_complete_func_t);
H5RS_asprintf_cat(rs, "%p", (void *)(uintptr_t)cfunc);
} /* end block */
break;
case 'd': /* H5E_direction_t */
{
H5E_direction_t direction = (H5E_direction_t)HDva_arg(ap, int);
switch (direction) {
case H5E_WALK_UPWARD:
H5RS_acat(rs, "H5E_WALK_UPWARD");
break;
case H5E_WALK_DOWNWARD:
H5RS_acat(rs, "H5E_WALK_DOWNWARD");
break;
default:
H5RS_asprintf_cat(rs, "%ld", (long)direction);
break;
} /* end switch */
} /* end block */
break;
case 'e': /* H5E_error_t */
{
H5E_error2_t *error = HDva_arg(ap, H5E_error2_t *);
H5RS_asprintf_cat(rs, "%p", (void *)error);
} /* end block */
break;
case 'I': /* H5ES_event_insert_func_t */
{
H5ES_event_insert_func_t ifunc =
(H5ES_event_insert_func_t)HDva_arg(ap, H5ES_event_insert_func_t);
H5RS_asprintf_cat(rs, "%p", (void *)(uintptr_t)ifunc);
} /* end block */
break;
case 's': /* H5ES_status_t */
{
H5ES_status_t status = (H5ES_status_t)HDva_arg(ap, int);
switch (status) {
case H5ES_STATUS_IN_PROGRESS:
H5RS_acat(rs, "H5ES_STATUS_IN_PROGRESS");
break;
case H5ES_STATUS_SUCCEED:
H5RS_acat(rs, "H5ES_STATUS_SUCCEED");
break;
case H5ES_STATUS_CANCELED:
H5RS_acat(rs, "H5ES_STATUS_CANCELED");
break;
case H5ES_STATUS_FAIL:
H5RS_acat(rs, "H5ES_STATUS_FAIL");
break;
default:
H5RS_asprintf_cat(rs, "%ld", (long)status);
break;
} /* end switch */
} /* end block */
break;
case 't': /* H5E_type_t */
{
H5E_type_t etype = (H5E_type_t)HDva_arg(ap, int);
switch (etype) {
case H5E_MAJOR:
H5RS_acat(rs, "H5E_MAJOR");
break;
case H5E_MINOR:
H5RS_acat(rs, "H5E_MINOR");
break;
default:
H5RS_asprintf_cat(rs, "%ld", (long)etype);
break;
} /* end switch */
} /* end block */
break;
default:
H5RS_asprintf_cat(rs, "BADTYPE(E%c)", type[1]);
goto error;
} /* end switch */
break;
case 'F':
switch (type[1]) {
case 'C': /* H5FD_class_t */
{
H5FD_class_t cls = HDva_arg(ap, H5FD_class_t);
H5RS_asprintf_cat(rs, "{'%s', %" PRIuHADDR ", ", cls.name, cls.maxaddr);
H5_trace_args_close_degree(rs, cls.fc_degree);
H5RS_acat(rs, ", ...}");
} /* end block */
break;
case 'd': /* H5F_close_degree_t */
{
H5F_close_degree_t degree = (H5F_close_degree_t)HDva_arg(ap, int);
H5_trace_args_close_degree(rs, degree);
} /* end block */
break;
case 'f': /* H5F_fspace_strategy_t */
{
H5F_fspace_strategy_t fs_strategy = (H5F_fspace_strategy_t)HDva_arg(ap, int);
switch (fs_strategy) {
case H5F_FSPACE_STRATEGY_FSM_AGGR:
H5RS_acat(rs, "H5F_FSPACE_STRATEGY_FSM_AGGR");
break;
case H5F_FSPACE_STRATEGY_PAGE:
H5RS_acat(rs, "H5F_FSPACE_STRATEGY_PAGE");
break;
case H5F_FSPACE_STRATEGY_AGGR:
H5RS_acat(rs, "H5F_FSPACE_STRATEGY_AGGR");
break;
case H5F_FSPACE_STRATEGY_NONE:
H5RS_acat(rs, "H5F_FSPACE_STRATEGY_NONE");
break;
case H5F_FSPACE_STRATEGY_NTYPES:
default:
H5RS_asprintf_cat(rs, "%ld", (long)fs_strategy);
break;
} /* end switch */
} /* end block */
break;
case 'F': /* H5F_flush_cb_t */
{
H5F_flush_cb_t fflsh = (H5F_flush_cb_t)HDva_arg(ap, H5F_flush_cb_t);
H5RS_asprintf_cat(rs, "%p", (void *)(uintptr_t)fflsh);
} /* end block */
break;
case 'I': /* H5F_info2_t */
{
H5F_info2_t fi2 = HDva_arg(ap, H5F_info2_t);
H5RS_asprintf_cat(rs, "{{%u, %" PRIuHSIZE ", %" PRIuHSIZE "}, ",
fi2.super.version, fi2.super.super_size,
fi2.super.super_ext_size);
H5RS_asprintf_cat(rs, "{%u, %" PRIuHSIZE ", %" PRIuHSIZE "}, ", fi2.free.version,
fi2.free.meta_size, fi2.free.tot_space);
H5RS_asprintf_cat(rs, "{%u, %" PRIuHSIZE ", {%" PRIuHSIZE ", %" PRIuHSIZE "}}}",
fi2.sohm.version, fi2.sohm.hdr_size,
fi2.sohm.msgs_info.index_size, fi2.sohm.msgs_info.heap_size);
} /* end block */
break;
case 'm': /* H5F_mem_t */
{
H5F_mem_t mem_type = (H5F_mem_t)HDva_arg(ap, int);
switch (mem_type) {
case H5FD_MEM_NOLIST:
H5RS_acat(rs, "H5FD_MEM_NOLIST");
break;
case H5FD_MEM_DEFAULT:
H5RS_acat(rs, "H5FD_MEM_DEFAULT");
break;
case H5FD_MEM_SUPER:
H5RS_acat(rs, "H5FD_MEM_SUPER");
break;
case H5FD_MEM_BTREE:
H5RS_acat(rs, "H5FD_MEM_BTREE");
break;
case H5FD_MEM_DRAW:
H5RS_acat(rs, "H5FD_MEM_DRAW");
break;
case H5FD_MEM_GHEAP:
H5RS_acat(rs, "H5FD_MEM_GHEAP");
break;
case H5FD_MEM_LHEAP:
H5RS_acat(rs, "H5FD_MEM_LHEAP");
break;
case H5FD_MEM_OHDR:
H5RS_acat(rs, "H5FD_MEM_OHDR");
break;
case H5FD_MEM_NTYPES:
default:
H5RS_asprintf_cat(rs, "%ld", (long)mem_type);
break;
} /* end switch */
} /* end block */
break;
case 's': /* H5F_scope_t */
{
H5F_scope_t scope = (H5F_scope_t)HDva_arg(ap, int);
switch (scope) {
case H5F_SCOPE_LOCAL:
H5RS_acat(rs, "H5F_SCOPE_LOCAL");
break;
case H5F_SCOPE_GLOBAL:
H5RS_acat(rs, "H5F_SCOPE_GLOBAL");
break;
default:
H5RS_asprintf_cat(rs, "%ld", (long)scope);
break;
} /* end switch */
} /* end block */
break;
case 't': /* H5F_file_space_type_t */
{
H5F_file_space_type_t fspace_type = (H5F_file_space_type_t)HDva_arg(ap, int);
switch (fspace_type) {
case H5F_FILE_SPACE_DEFAULT:
H5RS_acat(rs, "H5F_FILE_SPACE_DEFAULT");
break;
case H5F_FILE_SPACE_ALL_PERSIST:
H5RS_acat(rs, "H5F_FILE_SPACE_ALL_PERSIST");
break;
case H5F_FILE_SPACE_ALL:
H5RS_acat(rs, "H5F_FILE_SPACE_ALL");
break;
case H5F_FILE_SPACE_AGGR_VFD:
H5RS_acat(rs, "H5F_FILE_SPACE_AGGR_VFD");
break;
case H5F_FILE_SPACE_VFD:
H5RS_acat(rs, "H5F_FILE_SPACE_VFD");
break;
case H5F_FILE_SPACE_NTYPES:
default:
H5RS_asprintf_cat(rs, "%ld", (long)fspace_type);
break;
} /* end switch */
} /* end block */
break;
case 'v': /* H5F_libver_t */
{
H5F_libver_t libver_vers = (H5F_libver_t)HDva_arg(ap, int);
switch (libver_vers) {
case H5F_LIBVER_EARLIEST:
H5RS_acat(rs, "H5F_LIBVER_EARLIEST");
break;
case H5F_LIBVER_V18:
H5RS_acat(rs, "H5F_LIBVER_V18");
break;
case H5F_LIBVER_V110:
H5RS_acat(rs, "H5F_LIBVER_V110");
break;
case H5F_LIBVER_V112:
H5RS_acat(rs, "H5F_LIBVER_V112");
break;
case H5F_LIBVER_V114:
HDcompile_assert(H5F_LIBVER_LATEST == H5F_LIBVER_V114);
H5RS_acat(rs, "H5F_LIBVER_LATEST");
break;
case H5F_LIBVER_ERROR:
case H5F_LIBVER_NBOUNDS:
default:
H5RS_asprintf_cat(rs, "%ld", (long)libver_vers);
break;
} /* end switch */
} /* end block */
break;
default:
H5RS_asprintf_cat(rs, "BADTYPE(F%c)", type[1]);
goto error;
} /* end switch */
break;
case 'G':
switch (type[1]) {
#ifndef H5_NO_DEPRECATED_SYMBOLS
case 'i': /* H5G_iterate_t */
{
H5G_iterate_t git = (H5G_iterate_t)HDva_arg(ap, H5G_iterate_t);
H5RS_asprintf_cat(rs, "%p", (void *)(uintptr_t)git);
} /* end block */
break;
case 'o': /* H5G_obj_t */
{
H5G_obj_t obj_type = (H5G_obj_t)HDva_arg(ap, int);
switch (obj_type) {
case H5G_UNKNOWN:
H5RS_acat(rs, "H5G_UNKNOWN");
break;
case H5G_GROUP:
H5RS_acat(rs, "H5G_GROUP");
break;
case H5G_DATASET:
H5RS_acat(rs, "H5G_DATASET");
break;
case H5G_TYPE:
H5RS_acat(rs, "H5G_TYPE");
break;
case H5G_LINK:
H5RS_acat(rs, "H5G_LINK");
break;
case H5G_UDLINK:
H5RS_acat(rs, "H5G_UDLINK");
break;
case H5G_RESERVED_5:
case H5G_RESERVED_6:
case H5G_RESERVED_7:
H5RS_asprintf_cat(rs, "H5G_RESERVED(%ld)", (long)obj_type);
break;
default:
H5RS_asprintf_cat(rs, "%ld", (long)obj_type);
break;
} /* end switch */
} /* end block */
break;
case 's': /* H5G_stat_t */
{
H5G_stat_t *statbuf = HDva_arg(ap, H5G_stat_t *);
H5RS_asprintf_cat(rs, "%p", (void *)statbuf);
} /* end block */
break;
#endif /* H5_NO_DEPRECATED_SYMBOLS */
default:
H5RS_asprintf_cat(rs, "BADTYPE(G%c)", type[1]);
goto error;
} /* end switch */
break;
case 'h': /* hsize_t */
{
hsize_t hsize = HDva_arg(ap, hsize_t);
if (H5S_UNLIMITED == hsize)
H5RS_acat(rs, "H5S_UNLIMITED");
else {
H5RS_asprintf_cat(rs, "%" PRIuHSIZE, hsize);
asize[argno] = (hssize_t)hsize;
} /* end else */
} /* end block */
break;
case 'H':
switch (type[1]) {
case 'a': /* H5_alloc_stats_t */
{
H5_alloc_stats_t stats = HDva_arg(ap, H5_alloc_stats_t);
H5RS_asprintf_cat(rs, "{%llu, %zu, %zu, %zu, %zu, %zu, %zu}",
stats.total_alloc_bytes, stats.curr_alloc_bytes,
stats.peak_alloc_bytes, stats.max_block_size,
stats.total_alloc_blocks_count, stats.curr_alloc_blocks_count,
stats.peak_alloc_blocks_count);
} /* end block */
break;
case 'c': /* H5_atclose_func_t */
{
H5_atclose_func_t cfunc = (H5_atclose_func_t)HDva_arg(ap, H5_atclose_func_t);
H5RS_asprintf_cat(rs, "%p", (void *)(uintptr_t)cfunc);
} /* end block */
break;
case 's': /* hssize_t */
{
hssize_t hssize = HDva_arg(ap, hssize_t);
H5RS_asprintf_cat(rs, "%" PRIdHSIZE, hssize);
asize[argno] = (hssize_t)hssize;
} /* end block */
break;
default:
H5RS_asprintf_cat(rs, "BADTYPE(H%c)", type[1]);
goto error;
} /* end switch */
break;
case 'i': /* hid_t (and H5E_major_t / H5E_minor_t) */
{
hid_t obj = HDva_arg(ap, hid_t);
if (H5P_DEFAULT == obj)
H5RS_acat(rs, "H5P_DEFAULT");
else if (obj < 0)
H5RS_acat(rs, "FAIL");
else {
switch (H5I_TYPE(obj)) { /* Use internal H5I macro instead of function call */
case H5I_UNINIT:
H5RS_asprintf_cat(rs, "0x%0llx (uninit - error)", (unsigned long long)obj);
break;
case H5I_BADID:
H5RS_asprintf_cat(rs, "0x%0llx (badid - error)", (unsigned long long)obj);
break;
case H5I_FILE:
H5RS_asprintf_cat(rs, "0x%0llx (file)", (unsigned long long)obj);
break;
case H5I_GROUP:
H5RS_asprintf_cat(rs, "0x%0llx (group)", (unsigned long long)obj);
break;
case H5I_DATATYPE:
if (obj == H5T_NATIVE_SCHAR_g)
H5RS_acat(rs, "H5T_NATIVE_SCHAR");
else if (obj == H5T_NATIVE_UCHAR_g)
H5RS_acat(rs, "H5T_NATIVE_UCHAR");
else if (obj == H5T_NATIVE_SHORT_g)
H5RS_acat(rs, "H5T_NATIVE_SHORT");
else if (obj == H5T_NATIVE_USHORT_g)
H5RS_acat(rs, "H5T_NATIVE_USHORT");
else if (obj == H5T_NATIVE_INT_g)
H5RS_acat(rs, "H5T_NATIVE_INT");
else if (obj == H5T_NATIVE_UINT_g)
H5RS_acat(rs, "H5T_NATIVE_UINT");
else if (obj == H5T_NATIVE_LONG_g)
H5RS_acat(rs, "H5T_NATIVE_LONG");
else if (obj == H5T_NATIVE_ULONG_g)
H5RS_acat(rs, "H5T_NATIVE_ULONG");
else if (obj == H5T_NATIVE_LLONG_g)
H5RS_acat(rs, "H5T_NATIVE_LLONG");
else if (obj == H5T_NATIVE_ULLONG_g)
H5RS_acat(rs, "H5T_NATIVE_ULLONG");
else if (obj == H5T_NATIVE_FLOAT_g)
H5RS_acat(rs, "H5T_NATIVE_FLOAT");
else if (obj == H5T_NATIVE_DOUBLE_g)
H5RS_acat(rs, "H5T_NATIVE_DOUBLE");
else if (obj == H5T_NATIVE_LDOUBLE_g)
H5RS_acat(rs, "H5T_NATIVE_LDOUBLE");
else if (obj == H5T_IEEE_F32BE_g)
H5RS_acat(rs, "H5T_IEEE_F32BE");
else if (obj == H5T_IEEE_F32LE_g)
H5RS_acat(rs, "H5T_IEEE_F32LE");
else if (obj == H5T_IEEE_F64BE_g)
H5RS_acat(rs, "H5T_IEEE_F64BE");
else if (obj == H5T_IEEE_F64LE_g)
H5RS_acat(rs, "H5T_IEEE_F64LE");
else if (obj == H5T_STD_I8BE_g)
H5RS_acat(rs, "H5T_STD_I8BE");
else if (obj == H5T_STD_I8LE_g)
H5RS_acat(rs, "H5T_STD_I8LE");
else if (obj == H5T_STD_I16BE_g)
H5RS_acat(rs, "H5T_STD_I16BE");
else if (obj == H5T_STD_I16LE_g)
H5RS_acat(rs, "H5T_STD_I16LE");
else if (obj == H5T_STD_I32BE_g)
H5RS_acat(rs, "H5T_STD_I32BE");
else if (obj == H5T_STD_I32LE_g)
H5RS_acat(rs, "H5T_STD_I32LE");
else if (obj == H5T_STD_I64BE_g)
H5RS_acat(rs, "H5T_STD_I64BE");
else if (obj == H5T_STD_I64LE_g)
H5RS_acat(rs, "H5T_STD_I64LE");
else if (obj == H5T_STD_U8BE_g)
H5RS_acat(rs, "H5T_STD_U8BE");
else if (obj == H5T_STD_U8LE_g)
H5RS_acat(rs, "H5T_STD_U8LE");
else if (obj == H5T_STD_U16BE_g)
H5RS_acat(rs, "H5T_STD_U16BE");
else if (obj == H5T_STD_U16LE_g)
H5RS_acat(rs, "H5T_STD_U16LE");
else if (obj == H5T_STD_U32BE_g)
H5RS_acat(rs, "H5T_STD_U32BE");
else if (obj == H5T_STD_U32LE_g)
H5RS_acat(rs, "H5T_STD_U32LE");
else if (obj == H5T_STD_U64BE_g)
H5RS_acat(rs, "H5T_STD_U64BE");
else if (obj == H5T_STD_U64LE_g)
H5RS_acat(rs, "H5T_STD_U64LE");
else if (obj == H5T_STD_B8BE_g)
H5RS_acat(rs, "H5T_STD_B8BE");
else if (obj == H5T_STD_B8LE_g)
H5RS_acat(rs, "H5T_STD_B8LE");
else if (obj == H5T_STD_B16BE_g)
H5RS_acat(rs, "H5T_STD_B16BE");
else if (obj == H5T_STD_B16LE_g)
H5RS_acat(rs, "H5T_STD_B16LE");
else if (obj == H5T_STD_B32BE_g)
H5RS_acat(rs, "H5T_STD_B32BE");
else if (obj == H5T_STD_B32LE_g)
H5RS_acat(rs, "H5T_STD_B32LE");
else if (obj == H5T_STD_B64BE_g)
H5RS_acat(rs, "H5T_STD_B64BE");
else if (obj == H5T_STD_B64LE_g)
H5RS_acat(rs, "H5T_STD_B64LE");
else if (obj == H5T_C_S1_g)
H5RS_acat(rs, "H5T_C_S1");
else if (obj == H5T_FORTRAN_S1_g)
H5RS_acat(rs, "H5T_FORTRAN_S1");
else
H5RS_asprintf_cat(rs, "0x%0llx (dtype)", (unsigned long long)obj);
break;
case H5I_DATASPACE:
H5RS_asprintf_cat(rs, "0x%0llx (dspace)", (unsigned long 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:
H5RS_asprintf_cat(rs, "0x%0llx (dset)", (unsigned long long)obj);
break;
case H5I_ATTR:
H5RS_asprintf_cat(rs, "0x%0llx (attr)", (unsigned long long)obj);
break;
case H5I_MAP:
H5RS_asprintf_cat(rs, "0x%0llx (map)", (unsigned long long)obj);
break;
case H5I_VFL:
H5RS_asprintf_cat(rs, "0x%0llx (file driver)", (unsigned long long)obj);
break;
case H5I_VOL:
H5RS_asprintf_cat(rs, "0x%0llx (VOL plugin)", (unsigned long long)obj);
break;
case H5I_GENPROP_CLS:
H5RS_asprintf_cat(rs, "0x%0llx (genprop class)", (unsigned long long)obj);
break;
case H5I_GENPROP_LST:
H5RS_asprintf_cat(rs, "0x%0llx (genprop list)", (unsigned long long)obj);
break;
case H5I_ERROR_CLASS:
H5RS_asprintf_cat(rs, "0x%0llx (err class)", (unsigned long long)obj);
break;
case H5I_ERROR_MSG:
H5RS_asprintf_cat(rs, "0x%0llx (err msg)", (unsigned long long)obj);
break;
case H5I_ERROR_STACK:
H5RS_asprintf_cat(rs, "0x%0llx (err stack)", (unsigned long long)obj);
break;
case H5I_SPACE_SEL_ITER:
H5RS_asprintf_cat(rs, "0x%0llx (dataspace selection iterator)",
(unsigned long long)obj);
break;
case H5I_EVENTSET:
H5RS_asprintf_cat(rs, "0x%0llx (event set)", (unsigned long long)obj);
break;
case H5I_NTYPES:
H5RS_asprintf_cat(rs, "0x%0llx (ntypes - error)", (unsigned long long)obj);
break;
default:
H5RS_asprintf_cat(rs, "0x%0llx (unknown class)", (unsigned long long)obj);
break;
} /* end switch */
} /* end else */
} /* end block */
break;
case 'I':
switch (type[1]) {
case 'D': /* H5I_future_discard_func_t */
{
H5I_future_discard_func_t ifdisc =
(H5I_future_discard_func_t)HDva_arg(ap, H5I_future_discard_func_t);
H5RS_asprintf_cat(rs, "%p", (void *)(uintptr_t)ifdisc);
} /* end block */
break;
case 'f': /* H5I_free_t */
{
H5I_free_t ifree = (H5I_free_t)HDva_arg(ap, H5I_free_t);
H5RS_asprintf_cat(rs, "%p", (void *)(uintptr_t)ifree);
} /* end block */
break;
case 'i': /* H5_index_t */
{
H5_index_t idx_type = (H5_index_t)HDva_arg(ap, int);
switch (idx_type) {
case H5_INDEX_UNKNOWN:
H5RS_acat(rs, "H5_INDEX_UNKNOWN");
break;
case H5_INDEX_NAME:
H5RS_acat(rs, "H5_INDEX_NAME");
break;
case H5_INDEX_CRT_ORDER:
H5RS_acat(rs, "H5_INDEX_CRT_ORDER");
break;
case H5_INDEX_N:
H5RS_acat(rs, "H5_INDEX_N");
break;
default:
H5RS_asprintf_cat(rs, "%ld", (long)idx_type);
break;
} /* end switch */
} /* end block */
break;
case 'I': /* H5I_iterate_func_t */
{
H5I_iterate_func_t iiter = (H5I_iterate_func_t)HDva_arg(ap, H5I_iterate_func_t);
H5RS_asprintf_cat(rs, "%p", (void *)(uintptr_t)iiter);
} /* end block */
break;
case 'o': /* H5_iter_order_t */
{
H5_iter_order_t order = (H5_iter_order_t)HDva_arg(ap, int);
switch (order) {
case H5_ITER_UNKNOWN:
H5RS_acat(rs, "H5_ITER_UNKNOWN");
break;
case H5_ITER_INC:
H5RS_acat(rs, "H5_ITER_INC");
break;
case H5_ITER_DEC:
H5RS_acat(rs, "H5_ITER_DEC");
break;
case H5_ITER_NATIVE:
H5RS_acat(rs, "H5_ITER_NATIVE");
break;
case H5_ITER_N:
H5RS_acat(rs, "H5_ITER_N");
break;
default:
H5RS_asprintf_cat(rs, "%ld", (long)order);
break;
} /* end switch */
} /* end block */
break;
case 'R': /* H5I_future_realize_func_t */
{
H5I_future_realize_func_t ifreal =
(H5I_future_realize_func_t)HDva_arg(ap, H5I_future_realize_func_t);
H5RS_asprintf_cat(rs, "%p", (void *)(uintptr_t)ifreal);
} /* end block */
break;
case 's': /* int / int32_t */
{
int is = HDva_arg(ap, int);
H5RS_asprintf_cat(rs, "%d", is);
asize[argno] = is;
} /* end block */
break;
case 'S': /* H5I_search_func_t */
{
H5I_search_func_t isearch = (H5I_search_func_t)HDva_arg(ap, H5I_search_func_t);
H5RS_asprintf_cat(rs, "%p", (void *)(uintptr_t)isearch);
} /* end block */
break;
case 't': /* H5I_type_t */
{
H5I_type_t id_type = (H5I_type_t)HDva_arg(ap, int);
switch (id_type) {
case H5I_UNINIT:
H5RS_acat(rs, "H5I_UNINIT");
break;
case H5I_BADID:
H5RS_acat(rs, "H5I_BADID");
break;
case H5I_FILE:
H5RS_acat(rs, "H5I_FILE");
break;
case H5I_GROUP:
H5RS_acat(rs, "H5I_GROUP");
break;
case H5I_DATATYPE:
H5RS_acat(rs, "H5I_DATATYPE");
break;
case H5I_DATASPACE:
H5RS_acat(rs, "H5I_DATASPACE");
break;
case H5I_DATASET:
H5RS_acat(rs, "H5I_DATASET");
break;
case H5I_ATTR:
H5RS_acat(rs, "H5I_ATTR");
break;
case H5I_MAP:
H5RS_acat(rs, "H5I_MAP");
break;
case H5I_VFL:
H5RS_acat(rs, "H5I_VFL");
break;
case H5I_VOL:
H5RS_acat(rs, "H5I_VOL");
break;
case H5I_GENPROP_CLS:
H5RS_acat(rs, "H5I_GENPROP_CLS");
break;
case H5I_GENPROP_LST:
H5RS_acat(rs, "H5I_GENPROP_LST");
break;
case H5I_ERROR_CLASS:
H5RS_acat(rs, "H5I_ERROR_CLASS");
break;
case H5I_ERROR_MSG:
H5RS_acat(rs, "H5I_ERROR_MSG");
break;
case H5I_ERROR_STACK:
H5RS_acat(rs, "H5I_ERROR_STACK");
break;
case H5I_SPACE_SEL_ITER:
H5RS_acat(rs, "H5I_SPACE_SEL_ITER");
break;
case H5I_EVENTSET:
H5RS_acat(rs, "H5I_EVENTSET");
break;
case H5I_NTYPES:
H5RS_acat(rs, "H5I_NTYPES");
break;
default:
H5RS_asprintf_cat(rs, "%ld", (long)id_type);
break;
} /* end switch */
} /* end block */
break;
case 'u': /* unsigned / uint32_t */
{
unsigned iu = HDva_arg(ap, unsigned);
H5RS_asprintf_cat(rs, "%u", iu);
asize[argno] = iu;
} /* end block */
break;
default:
H5RS_asprintf_cat(rs, "BADTYPE(I%c)", type[1]);
goto error;
} /* end switch */
break;
case 'k': /* H5O_token_t */
{
H5O_token_t token = HDva_arg(ap, H5O_token_t);
int j;
for (j = 0; j < H5O_MAX_TOKEN_SIZE; j++)
H5RS_asprintf_cat(rs, "%02x", token.__data[j]);
} /* end block */
break;
case 'L':
switch (type[1]) {
#ifndef H5_NO_DEPRECATED_SYMBOLS
case 'i': /* H5L_iterate1_t */
{
H5L_iterate1_t liter = (H5L_iterate1_t)HDva_arg(ap, H5L_iterate1_t);
H5RS_asprintf_cat(rs, "%p", (void *)(uintptr_t)liter);
} /* end block */
break;
#endif /* H5_NO_DEPRECATED_SYMBOLS */
case 'I': /* H5L_iterate2_t */
{
H5L_iterate2_t liter = (H5L_iterate2_t)HDva_arg(ap, H5L_iterate2_t);
H5RS_asprintf_cat(rs, "%p", (void *)(uintptr_t)liter);
} /* end block */
break;
case 'l': /* H5L_type_t (or H5G_link_t) */
{
H5L_type_t link_type = (H5L_type_t)HDva_arg(ap, int);
switch (link_type) {
case H5L_TYPE_ERROR:
H5RS_acat(rs, "H5L_TYPE_ERROR");
break;
case H5L_TYPE_HARD:
H5RS_acat(rs, "H5L_TYPE_HARD");
break;
case H5L_TYPE_SOFT:
H5RS_acat(rs, "H5L_TYPE_SOFT");
break;
case H5L_TYPE_EXTERNAL:
H5RS_acat(rs, "H5L_TYPE_EXTERNAL");
break;
case H5L_TYPE_MAX:
H5RS_acat(rs, "H5L_TYPE_MAX");
break;
default:
H5RS_asprintf_cat(rs, "%ld", (long)link_type);
break;
} /* end switch */
} /* end block */
break;
case 't': /* H5L_elink_traverse_t */
{
H5L_elink_traverse_t elt =
(H5L_elink_traverse_t)HDva_arg(ap, H5L_elink_traverse_t);
H5RS_asprintf_cat(rs, "%p", (void *)(uintptr_t)elt);
} /* end block */
break;
default:
H5RS_asprintf_cat(rs, "BADTYPE(G%c)", type[1]);
goto error;
} /* end switch */
break;
case 'M':
switch (type[1]) {
case 'a': /* H5MM_allocate_t */
{
H5MM_allocate_t afunc = (H5MM_allocate_t)HDva_arg(ap, H5MM_allocate_t);
H5RS_asprintf_cat(rs, "%p", (void *)(uintptr_t)afunc);
} /* end block */
break;
#ifdef H5_HAVE_PARALLEL
case 'c': /* MPI_Comm */
{
MPI_Comm comm = HDva_arg(ap, MPI_Comm);
H5RS_asprintf_cat(rs, "%ld", (long)comm);
} /* end block */
break;
#endif /* H5_HAVE_PARALLEL */
case 'f': /* H5MM_free_t */
{
H5MM_free_t ffunc = (H5MM_free_t)HDva_arg(ap, H5MM_free_t);
H5RS_asprintf_cat(rs, "%p", (void *)(uintptr_t)ffunc);
} /* end block */
break;
#ifdef H5_HAVE_PARALLEL
case 'i': /* MPI_Info */
{
MPI_Info info = HDva_arg(ap, MPI_Info);
H5RS_asprintf_cat(rs, "%ld", (long)info);
} /* end block */
break;
#endif /* H5_HAVE_PARALLEL */
#ifdef H5_HAVE_MAP_API
case 'I': /* H5M_iterate_t */
{
H5M_iterate_t miter = (H5M_iterate_t)HDva_arg(ap, H5M_iterate_t);
H5RS_asprintf_cat(rs, "%p", (void *)(uintptr_t)miter);
} /* end block */
break;
#endif /* H5_HAVE_MAP_API */
case 't': /* H5FD_mem_t */
{
H5FD_mem_t mt = (H5FD_mem_t)HDva_arg(ap, int);
switch (mt) {
case H5FD_MEM_NOLIST:
H5RS_acat(rs, "H5FD_MEM_NOLIST");
break;
case H5FD_MEM_DEFAULT:
H5RS_acat(rs, "H5FD_MEM_DEFAULT");
break;
case H5FD_MEM_SUPER:
H5RS_acat(rs, "H5FD_MEM_SUPER");
break;
case H5FD_MEM_BTREE:
H5RS_acat(rs, "H5FD_MEM_BTREE");
break;
case H5FD_MEM_DRAW:
H5RS_acat(rs, "H5FD_MEM_DRAW");
break;
case H5FD_MEM_GHEAP:
H5RS_acat(rs, "H5FD_MEM_GHEAP");
break;
case H5FD_MEM_LHEAP:
H5RS_acat(rs, "H5FD_MEM_LHEAP");
break;
case H5FD_MEM_OHDR:
H5RS_acat(rs, "H5FD_MEM_OHDR");
break;
case H5FD_MEM_NTYPES:
H5RS_acat(rs, "H5FD_MEM_NTYPES");
break;
default:
H5RS_asprintf_cat(rs, "%ld", (long)mt);
break;
} /* end switch */
} /* end block */
break;
default:
goto error;
} /* end switch */
break;
case 'o': /* off_t */
{
off_t offset = HDva_arg(ap, off_t);
H5RS_asprintf_cat(rs, "%ld", (long)offset);
} /* end block */
break;
case 'O':
switch (type[1]) {
#ifndef H5_NO_DEPRECATED_SYMBOLS
case 'i': /* H5O_iterate1_t */
{
H5O_iterate1_t oiter = (H5O_iterate1_t)HDva_arg(ap, H5O_iterate1_t);
H5RS_asprintf_cat(rs, "%p", (void *)(uintptr_t)oiter);
} /* end block */
break;
#endif /* H5_NO_DEPRECATED_SYMBOLS */
case 'I': /* H5O_iterate2_t */
{
H5O_iterate2_t oiter2 = (H5O_iterate2_t)HDva_arg(ap, H5O_iterate2_t);
H5RS_asprintf_cat(rs, "%p", (void *)(uintptr_t)oiter2);
} /* end block */
break;
case 's': /* H5O_mcdt_search_cb_t */
{
H5O_mcdt_search_cb_t osrch =
(H5O_mcdt_search_cb_t)HDva_arg(ap, H5O_mcdt_search_cb_t);
H5RS_asprintf_cat(rs, "%p", (void *)(uintptr_t)osrch);
} /* end block */
break;
case 't': /* H5O_type_t */
{
H5O_type_t objtype = (H5O_type_t)HDva_arg(ap, int);
switch (objtype) {
case H5O_TYPE_UNKNOWN:
H5RS_acat(rs, "H5O_TYPE_UNKNOWN");
break;
case H5O_TYPE_GROUP:
H5RS_acat(rs, "H5O_TYPE_GROUP");
break;
case H5O_TYPE_DATASET:
H5RS_acat(rs, "H5O_TYPE_DATASET");
break;
case H5O_TYPE_NAMED_DATATYPE:
H5RS_acat(rs, "H5O_TYPE_NAMED_DATATYPE");
break;
case H5O_TYPE_MAP:
H5RS_acat(rs, "H5O_TYPE_MAP");
break;
case H5O_TYPE_NTYPES:
H5RS_acat(rs, "H5O_TYPE_NTYPES");
break;
default:
H5RS_asprintf_cat(rs, "BADTYPE(%ld)", (long)objtype);
break;
} /* end switch */
} /* end block */
break;
default:
H5RS_asprintf_cat(rs, "BADTYPE(S%c)", type[1]);
goto error;
} /* end switch */
break;
case 'p': /* H5P_class_t */
{
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))) {
H5RS_asprintf_cat(rs, "%s", class_name);
H5MM_xfree(class_name);
} /* end if */
else
H5RS_asprintf_cat(rs, "%ld", (long)pclass_id);
} /* end block */
break;
case 'P':
switch (type[1]) {
case 'c': /* H5P_cls_create_func_t */
{
H5P_cls_create_func_t pcls_crt =
(H5P_cls_create_func_t)HDva_arg(ap, H5P_cls_create_func_t);
H5RS_asprintf_cat(rs, "%p", (void *)(uintptr_t)pcls_crt);
} /* end block */
break;
case 'C': /* H5P_prp_create_func_t */
{
H5P_prp_create_func_t prp_crt =
(H5P_prp_create_func_t)HDva_arg(ap, H5P_prp_create_func_t);
H5RS_asprintf_cat(rs, "%p", (void *)(uintptr_t)prp_crt);
} /* end block */
break;
case 'D': /* H5P_prp_delete_func_t */
{
H5P_prp_delete_func_t prp_del =
(H5P_prp_delete_func_t)HDva_arg(ap, H5P_prp_delete_func_t);
H5RS_asprintf_cat(rs, "%p", (void *)(uintptr_t)prp_del);
} /* end block */
break;
case 'G': /* H5P_prp_get_func_t */
{
H5P_prp_get_func_t prp_get = (H5P_prp_get_func_t)HDva_arg(ap, H5P_prp_get_func_t);
H5RS_asprintf_cat(rs, "%p", (void *)(uintptr_t)prp_get);
} /* end block */
break;
case 'i': /* H5P_iterate_t */
{
H5P_iterate_t piter = (H5P_iterate_t)HDva_arg(ap, H5P_iterate_t);
H5RS_asprintf_cat(rs, "%p", (void *)(uintptr_t)piter);
} /* end block */
break;
case 'l': /* H5P_cls_close_func_t */
{
H5P_cls_close_func_t pcls_cls =
(H5P_cls_close_func_t)HDva_arg(ap, H5P_cls_close_func_t);
H5RS_asprintf_cat(rs, "%p", (void *)(uintptr_t)pcls_cls);
} /* end block */
break;
case 'L': /* H5P_prp_close_func_t */
{
H5P_prp_close_func_t prp_cls =
(H5P_prp_close_func_t)HDva_arg(ap, H5P_prp_close_func_t);
H5RS_asprintf_cat(rs, "%p", (void *)(uintptr_t)prp_cls);
} /* end block */
break;
case 'M': /* H5P_prp_compare_func_t */
{
H5P_prp_compare_func_t prp_cmp =
(H5P_prp_compare_func_t)HDva_arg(ap, H5P_prp_compare_func_t);
H5RS_asprintf_cat(rs, "%p", (void *)(uintptr_t)prp_cmp);
} /* end block */
break;
case 'o': /* H5P_cls_copy_func_t */
{
H5P_cls_copy_func_t pcls_cpy =
(H5P_cls_copy_func_t)HDva_arg(ap, H5P_cls_copy_func_t);
H5RS_asprintf_cat(rs, "%p", (void *)(uintptr_t)pcls_cpy);
} /* end block */
break;
case 'O': /* H5P_prp_copy_func_t */
{
H5P_prp_copy_func_t prp_cpy =
(H5P_prp_copy_func_t)HDva_arg(ap, H5P_prp_copy_func_t);
H5RS_asprintf_cat(rs, "%p", (void *)(uintptr_t)prp_cpy);
} /* end block */
break;
case 'S': /* H5P_prp_set_func_t */
{
H5P_prp_set_func_t prp_set = (H5P_prp_set_func_t)HDva_arg(ap, H5P_prp_set_func_t);
H5RS_asprintf_cat(rs, "%p", (void *)(uintptr_t)prp_set);
} /* end block */
break;
default:
H5RS_asprintf_cat(rs, "BADTYPE(P%c)", type[1]);
goto error;
} /* end switch */
break;
case 'R':
switch (type[1]) {
case 'd': /* hdset_reg_ref_t */
{
/* Note! region references are array types */
H5RS_acat(rs, "Reference Region");
goto error;
} /* end block */
break;
case 'o': /* hobj_ref_t */
{
hobj_ref_t ref = HDva_arg(ap, hobj_ref_t);
H5RS_asprintf_cat(rs, "Reference Object=%" PRIuHADDR, ref);
} /* end block */
break;
case 'r': /* H5R_ref_t */
{
/* Note! reference types are opaque types */
H5RS_acat(rs, "Reference Opaque");
goto error;
} /* end block */
break;
case 't': /* H5R_type_t */
{
H5R_type_t reftype = (H5R_type_t)HDva_arg(ap, int);
switch (reftype) {
case H5R_BADTYPE:
H5RS_acat(rs, "H5R_BADTYPE");
break;
case H5R_OBJECT1:
H5RS_acat(rs, "H5R_OBJECT1");
break;
case H5R_DATASET_REGION1:
H5RS_acat(rs, "H5R_DATASET_REGION1");
break;
case H5R_OBJECT2:
H5RS_acat(rs, "H5R_OBJECT2");
break;
case H5R_DATASET_REGION2:
H5RS_acat(rs, "H5R_DATASET_REGION2");
break;
case H5R_ATTR:
H5RS_acat(rs, "H5R_ATTR");
break;
case H5R_MAXTYPE:
H5RS_acat(rs, "H5R_MAXTYPE");
break;
default:
H5RS_asprintf_cat(rs, "BADTYPE(%ld)", (long)reftype);
break;
} /* end switch */
} /* end block */
break;
default:
H5RS_asprintf_cat(rs, "BADTYPE(S%c)", type[1]);
goto error;
} /* end switch */
break;
case 'S':
switch (type[1]) {
case 'c': /* H5S_class_t */
{
H5S_class_t cls = (H5S_class_t)HDva_arg(ap, int);
switch (cls) {
case H5S_NO_CLASS:
H5RS_acat(rs, "H5S_NO_CLASS");
break;
case H5S_SCALAR:
H5RS_acat(rs, "H5S_SCALAR");
break;
case H5S_SIMPLE:
H5RS_acat(rs, "H5S_SIMPLE");
break;
case H5S_NULL:
H5RS_acat(rs, "H5S_NULL");
break;
default:
H5RS_asprintf_cat(rs, "%ld", (long)cls);
break;
} /* end switch */
} /* end block */
break;
case 's': /* H5S_seloper_t */
{
H5S_seloper_t so = (H5S_seloper_t)HDva_arg(ap, int);
switch (so) {
case H5S_SELECT_NOOP:
H5RS_acat(rs, "H5S_NOOP");
break;
case H5S_SELECT_SET:
H5RS_acat(rs, "H5S_SELECT_SET");
break;
case H5S_SELECT_OR:
H5RS_acat(rs, "H5S_SELECT_OR");
break;
case H5S_SELECT_AND:
H5RS_acat(rs, "H5S_SELECT_AND");
break;
case H5S_SELECT_XOR:
H5RS_acat(rs, "H5S_SELECT_XOR");
break;
case H5S_SELECT_NOTB:
H5RS_acat(rs, "H5S_SELECT_NOTB");
break;
case H5S_SELECT_NOTA:
H5RS_acat(rs, "H5S_SELECT_NOTA");
break;
case H5S_SELECT_APPEND:
H5RS_acat(rs, "H5S_SELECT_APPEND");
break;
case H5S_SELECT_PREPEND:
H5RS_acat(rs, "H5S_SELECT_PREPEND");
break;
case H5S_SELECT_INVALID:
H5RS_acat(rs, "H5S_SELECT_INVALID");
break;
default:
H5RS_asprintf_cat(rs, "%ld", (long)so);
break;
} /* end switch */
} /* end block */
break;
case 't': /* H5S_sel_type */
{
H5S_sel_type st = (H5S_sel_type)HDva_arg(ap, int);
switch (st) {
case H5S_SEL_ERROR:
H5RS_acat(rs, "H5S_SEL_ERROR");
break;
case H5S_SEL_NONE:
H5RS_acat(rs, "H5S_SEL_NONE");
break;
case H5S_SEL_POINTS:
H5RS_acat(rs, "H5S_SEL_POINTS");
break;
case H5S_SEL_HYPERSLABS:
H5RS_acat(rs, "H5S_SEL_HYPERSLABS");
break;
case H5S_SEL_ALL:
H5RS_acat(rs, "H5S_SEL_ALL");
break;
case H5S_SEL_N:
H5RS_acat(rs, "H5S_SEL_N");
break;
default:
H5RS_asprintf_cat(rs, "%ld", (long)st);
break;
} /* end switch */
} /* end block */
break;
default:
H5RS_asprintf_cat(rs, "BADTYPE(S%c)", type[1]);
goto error;
} /* end switch */
break;
case 't': /* htri_t */
{
htri_t tri_var = HDva_arg(ap, htri_t);
if (tri_var > 0)
H5RS_acat(rs, "TRUE");
else if (!tri_var)
H5RS_acat(rs, "FALSE");
else
H5RS_asprintf_cat(rs, "FAIL(%d)", (int)tri_var);
} /* end block */
break;
case 'T':
switch (type[1]) {
case 'c': /* H5T_cset_t */
{
H5T_cset_t cset = (H5T_cset_t)HDva_arg(ap, int);
H5_trace_args_cset(rs, cset);
} /* end block */
break;
case 'C': /* H5T_conv_t */
{
H5T_conv_t tconv = (H5T_conv_t)HDva_arg(ap, H5T_conv_t);
H5RS_asprintf_cat(rs, "%p", (void *)(uintptr_t)tconv);
} /* end block */
break;
case 'd': /* H5T_direction_t */
{
H5T_direction_t direct = (H5T_direction_t)HDva_arg(ap, int);
switch (direct) {
case H5T_DIR_DEFAULT:
H5RS_acat(rs, "H5T_DIR_DEFAULT");
break;
case H5T_DIR_ASCEND:
H5RS_acat(rs, "H5T_DIR_ASCEND");
break;
case H5T_DIR_DESCEND:
H5RS_acat(rs, "H5T_DIR_DESCEND");
break;
default:
H5RS_asprintf_cat(rs, "%ld", (long)direct);
break;
} /* end switch */
} /* end block */
break;
case 'e': /* H5T_pers_t */
{
H5T_pers_t pers = (H5T_pers_t)HDva_arg(ap, int);
switch (pers) {
case H5T_PERS_DONTCARE:
H5RS_acat(rs, "H5T_PERS_DONTCARE");
break;
case H5T_PERS_SOFT:
H5RS_acat(rs, "H5T_PERS_SOFT");
break;
case H5T_PERS_HARD:
H5RS_acat(rs, "H5T_PERS_HARD");
break;
default:
H5RS_asprintf_cat(rs, "%ld", (long)pers);
break;
} /* end switch */
} /* end block */
break;
case 'E': /* H5T_conv_except_func_t */
{
H5T_conv_except_func_t conv_ex =
(H5T_conv_except_func_t)HDva_arg(ap, H5T_conv_except_func_t);
H5RS_asprintf_cat(rs, "%p", (void *)(uintptr_t)conv_ex);
} /* end block */
break;
case 'n': /* H5T_norm_t */
{
H5T_norm_t norm = (H5T_norm_t)HDva_arg(ap, int);
switch (norm) {
case H5T_NORM_ERROR:
H5RS_acat(rs, "H5T_NORM_ERROR");
break;
case H5T_NORM_IMPLIED:
H5RS_acat(rs, "H5T_NORM_IMPLIED");
break;
case H5T_NORM_MSBSET:
H5RS_acat(rs, "H5T_NORM_MSBSET");
break;
case H5T_NORM_NONE:
H5RS_acat(rs, "H5T_NORM_NONE");
break;
default:
H5RS_asprintf_cat(rs, "%ld", (long)norm);
break;
} /* end switch */
} /* end block */
break;
case 'o': /* H5T_order_t */
{
H5T_order_t order = (H5T_order_t)HDva_arg(ap, int);
switch (order) {
case H5T_ORDER_ERROR:
H5RS_acat(rs, "H5T_ORDER_ERROR");
break;
case H5T_ORDER_LE:
H5RS_acat(rs, "H5T_ORDER_LE");
break;
case H5T_ORDER_BE:
H5RS_acat(rs, "H5T_ORDER_BE");
break;
case H5T_ORDER_VAX:
H5RS_acat(rs, "H5T_ORDER_VAX");
break;
case H5T_ORDER_MIXED:
H5RS_acat(rs, "H5T_ORDER_MIXED");
break;
case H5T_ORDER_NONE:
H5RS_acat(rs, "H5T_ORDER_NONE");
break;
default:
H5RS_asprintf_cat(rs, "%ld", (long)order);
break;
} /* end switch */
} /* end block */
break;
case 'p': /* H5T_pad_t */
{
H5T_pad_t pad = (H5T_pad_t)HDva_arg(ap, int);
switch (pad) {
case H5T_PAD_ERROR:
H5RS_acat(rs, "H5T_PAD_ERROR");
break;
case H5T_PAD_ZERO:
H5RS_acat(rs, "H5T_PAD_ZERO");
break;
case H5T_PAD_ONE:
H5RS_acat(rs, "H5T_PAD_ONE");
break;
case H5T_PAD_BACKGROUND:
H5RS_acat(rs, "H5T_PAD_BACKGROUND");
break;
case H5T_NPAD:
H5RS_acat(rs, "H5T_NPAD");
break;
default:
H5RS_asprintf_cat(rs, "%ld", (long)pad);
break;
} /* end switch */
} /* end block */
break;
case 's': /* H5T_sign_t */
{
H5T_sign_t sign = (H5T_sign_t)HDva_arg(ap, int);
switch (sign) {
case H5T_SGN_ERROR:
H5RS_acat(rs, "H5T_SGN_ERROR");
break;
case H5T_SGN_NONE:
H5RS_acat(rs, "H5T_SGN_NONE");
break;
case H5T_SGN_2:
H5RS_acat(rs, "H5T_SGN_2");
break;
case H5T_NSGN:
H5RS_acat(rs, "H5T_NSGN");
break;
default:
H5RS_asprintf_cat(rs, "%ld", (long)sign);
break;
} /* end switch */
} /* end block */
break;
case 't': /* H5T_class_t */
{
H5T_class_t type_class = (H5T_class_t)HDva_arg(ap, int);
switch (type_class) {
case H5T_NO_CLASS:
H5RS_acat(rs, "H5T_NO_CLASS");
break;
case H5T_INTEGER:
H5RS_acat(rs, "H5T_INTEGER");
break;
case H5T_FLOAT:
H5RS_acat(rs, "H5T_FLOAT");
break;
case H5T_TIME:
H5RS_acat(rs, "H5T_TIME");
break;
case H5T_STRING:
H5RS_acat(rs, "H5T_STRING");
break;
case H5T_BITFIELD:
H5RS_acat(rs, "H5T_BITFIELD");
break;
case H5T_OPAQUE:
H5RS_acat(rs, "H5T_OPAQUE");
break;
case H5T_COMPOUND:
H5RS_acat(rs, "H5T_COMPOUND");
break;
case H5T_REFERENCE:
H5RS_acat(rs, "H5T_REFERENCE");
break;
case H5T_ENUM:
H5RS_acat(rs, "H5T_ENUM");
break;
case H5T_VLEN:
H5RS_acat(rs, "H5T_VLEN");
break;
case H5T_ARRAY:
H5RS_acat(rs, "H5T_ARRAY");
break;
case H5T_NCLASSES:
H5RS_acat(rs, "H5T_NCLASSES");
break;
default:
H5RS_asprintf_cat(rs, "%ld", (long)type_class);
break;
} /* end switch */
} /* end block */
break;
case 'z': /* H5T_str_t */
{
H5T_str_t str = (H5T_str_t)HDva_arg(ap, int);
switch (str) {
case H5T_STR_ERROR:
H5RS_acat(rs, "H5T_STR_ERROR");
break;
case H5T_STR_NULLTERM:
H5RS_acat(rs, "H5T_STR_NULLTERM");
break;
case H5T_STR_NULLPAD:
H5RS_acat(rs, "H5T_STR_NULLPAD");
break;
case H5T_STR_SPACEPAD:
H5RS_acat(rs, "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:
H5RS_asprintf_cat(rs, "H5T_STR_RESERVED(%ld)", (long)str);
break;
default:
H5RS_asprintf_cat(rs, "%ld", (long)str);
break;
} /* end switch */
} /* end block */
break;
default:
H5RS_asprintf_cat(rs, "BADTYPE(T%c)", type[1]);
goto error;
} /* end switch */
break;
case 'U':
switch (type[1]) {
case 'l': /* unsigned long */
{
unsigned long iul = HDva_arg(ap, unsigned long);
H5RS_asprintf_cat(rs, "%lu", iul);
asize[argno] = (hssize_t)iul;
} /* end block */
break;
case 'L': /* unsigned long long / uint64_t */
{
unsigned long long iull = HDva_arg(ap, unsigned long long);
H5RS_asprintf_cat(rs, "%llu", iull);
asize[argno] = (hssize_t)iull;
} /* end block */
break;
default:
H5RS_asprintf_cat(rs, "BADTYPE(U%c)", type[1]);
goto error;
} /* end switch */
break;
case 'V':
switch (type[1]) {
case 'a': /* H5VL_attr_get_t */
{
H5VL_attr_get_t get = (H5VL_attr_get_t)HDva_arg(ap, int);
switch (get) {
case H5VL_ATTR_GET_SPACE:
H5RS_acat(rs, "H5VL_ATTR_GET_SPACE");
break;
case H5VL_ATTR_GET_TYPE:
H5RS_acat(rs, "H5VL_ATTR_GET_TYPE");
break;
case H5VL_ATTR_GET_ACPL:
H5RS_acat(rs, "H5VL_ATTR_GET_ACPL");
break;
case H5VL_ATTR_GET_NAME:
H5RS_acat(rs, "H5VL_ATTR_GET_NAME");
break;
case H5VL_ATTR_GET_STORAGE_SIZE:
H5RS_acat(rs, "H5VL_ATTR_GET_STORAGE_SIZE");
break;
case H5VL_ATTR_GET_INFO:
H5RS_acat(rs, "H5VL_ATTR_GET_INFO");
break;
default:
H5RS_asprintf_cat(rs, "%ld", (long)get);
break;
} /* end switch */
} /* end block */
break;
case 'A': /* H5VL_blob_optional_t */
{
H5VL_blob_optional_t optional = (H5VL_blob_optional_t)HDva_arg(ap, int);
H5RS_asprintf_cat(rs, "%ld", (long)optional);
} /* end block */
break;
case 'b': /* H5VL_attr_specific_t */
{
H5VL_attr_specific_t specific = (H5VL_attr_specific_t)HDva_arg(ap, int);
switch (specific) {
case H5VL_ATTR_DELETE:
H5RS_acat(rs, "H5VL_ATTR_DELETE");
break;
case H5VL_ATTR_DELETE_BY_IDX:
H5RS_acat(rs, "H5VL_ATTR_DELETE_BY_IDX");
break;
case H5VL_ATTR_EXISTS:
H5RS_acat(rs, "H5VL_ATTR_EXISTS");
break;
case H5VL_ATTR_ITER:
H5RS_acat(rs, "H5VL_ATTR_ITER");
break;
case H5VL_ATTR_RENAME:
H5RS_acat(rs, "H5VL_ATTR_RENAME");
break;
default:
H5RS_asprintf_cat(rs, "%ld", (long)specific);
break;
} /* end switch */
} /* end block */
break;
case 'B': /* H5VL_blob_specific_t */
{
H5VL_blob_specific_t specific = (H5VL_blob_specific_t)HDva_arg(ap, int);
switch (specific) {
case H5VL_BLOB_DELETE:
H5RS_acat(rs, "H5VL_BLOB_DELETE");
break;
case H5VL_BLOB_ISNULL:
H5RS_acat(rs, "H5VL_BLOB_ISNULL");
break;
case H5VL_BLOB_SETNULL:
H5RS_acat(rs, "H5VL_BLOB_SETNULL");
break;
default:
H5RS_asprintf_cat(rs, "%ld", (long)specific);
break;
} /* end switch */
} /* end block */
break;
case 'c': /* H5VL_dataset_get_t */
{
H5VL_dataset_get_t get = (H5VL_dataset_get_t)HDva_arg(ap, int);
switch (get) {
case H5VL_DATASET_GET_SPACE:
H5RS_acat(rs, "H5VL_DATASET_GET_SPACE");
break;
case H5VL_DATASET_GET_SPACE_STATUS:
H5RS_acat(rs, "H5VL_DATASET_GET_SPACE_STATUS");
break;
case H5VL_DATASET_GET_TYPE:
H5RS_acat(rs, "H5VL_DATASET_GET_TYPE");
break;
case H5VL_DATASET_GET_DCPL:
H5RS_acat(rs, "H5VL_DATASET_GET_DCPL");
break;
case H5VL_DATASET_GET_DAPL:
H5RS_acat(rs, "H5VL_DATASET_GET_DAPL");
break;
case H5VL_DATASET_GET_STORAGE_SIZE:
H5RS_acat(rs, "H5VL_DATASET_GET_STORAGE_SIZE");
break;
default:
H5RS_asprintf_cat(rs, "%ld", (long)get);
break;
} /* end switch */
} /* end block */
break;
case 'C': /* H5VL_class_value_t */
{
H5VL_class_value_t class_val =
(H5VL_class_value_t)HDva_arg(ap, H5VL_class_value_t);
if (H5_VOL_NATIVE == class_val)
H5RS_acat(rs, "H5_VOL_NATIVE");
else
H5RS_asprintf_cat(rs, "%ld", (long)class_val);
} /* end block */
break;
case 'd': /* H5VL_dataset_specific_t */
{
H5VL_dataset_specific_t specific = (H5VL_dataset_specific_t)HDva_arg(ap, int);
switch (specific) {
case H5VL_DATASET_SET_EXTENT:
H5RS_acat(rs, "H5VL_DATASET_SET_EXTENT");
break;
case H5VL_DATASET_FLUSH:
H5RS_acat(rs, "H5VL_DATASET_FLUSH");
break;
case H5VL_DATASET_REFRESH:
H5RS_acat(rs, "H5VL_DATASET_REFRESH");
break;
default:
H5RS_asprintf_cat(rs, "%ld", (long)specific);
break;
} /* end switch */
} /* end block */
break;
case 'e': /* H5VL_datatype_get_t */
{
H5VL_datatype_get_t get = (H5VL_datatype_get_t)HDva_arg(ap, int);
switch (get) {
case H5VL_DATATYPE_GET_BINARY_SIZE:
H5RS_acat(rs, "H5VL_DATATYPE_GET_BINARY_SIZE");
break;
case H5VL_DATATYPE_GET_BINARY:
H5RS_acat(rs, "H5VL_DATATYPE_GET_BINARY");
break;
case H5VL_DATATYPE_GET_TCPL:
H5RS_acat(rs, "H5VL_DATATYPE_GET_TCPL");
break;
default:
H5RS_asprintf_cat(rs, "%ld", (long)get);
break;
} /* end switch */
} /* end block */
break;
case 'f': /* H5VL_datatype_specific_t */
{
H5VL_datatype_specific_t specific = (H5VL_datatype_specific_t)HDva_arg(ap, int);
switch (specific) {
case H5VL_DATATYPE_FLUSH:
H5RS_acat(rs, "H5VL_DATATYPE_FLUSH");
break;
case H5VL_DATATYPE_REFRESH:
H5RS_acat(rs, "H5VL_DATATYPE_REFRESH");
break;
default:
H5RS_asprintf_cat(rs, "%ld", (long)specific);
break;
} /* end switch */
} /* end block */
break;
case 'g': /* H5VL_file_get_t */
{
H5VL_file_get_t get = (H5VL_file_get_t)HDva_arg(ap, int);
switch (get) {
case H5VL_FILE_GET_CONT_INFO:
H5RS_acat(rs, "H5VL_FILE_GET_CONT_INFO");
break;
case H5VL_FILE_GET_FAPL:
H5RS_acat(rs, "H5VL_FILE_GET_FAPL");
break;
case H5VL_FILE_GET_FCPL:
H5RS_acat(rs, "H5VL_FILE_GET_FCPL");
break;
case H5VL_FILE_GET_FILENO:
H5RS_acat(rs, "H5VL_FILE_GET_FILENO");
break;
case H5VL_FILE_GET_INTENT:
H5RS_acat(rs, "H5VL_FILE_GET_INTENT");
break;
case H5VL_FILE_GET_NAME:
H5RS_acat(rs, "H5VL_FILE_GET_NAME");
break;
case H5VL_FILE_GET_OBJ_COUNT:
H5RS_acat(rs, "H5VL_FILE_GET_OBJ_COUNT");
break;
case H5VL_FILE_GET_OBJ_IDS:
H5RS_acat(rs, "H5VL_FILE_GET_OBJ_IDS");
break;
default:
H5RS_asprintf_cat(rs, "%ld", (long)get);
break;
} /* end switch */
} /* end block */
break;
case 'h': /* H5VL_file_specific_t */
{
H5VL_file_specific_t specific = (H5VL_file_specific_t)HDva_arg(ap, int);
switch (specific) {
case H5VL_FILE_FLUSH:
H5RS_acat(rs, "H5VL_FILE_FLUSH");
break;
case H5VL_FILE_REOPEN:
H5RS_acat(rs, "H5VL_FILE_REOPEN");
break;
case H5VL_FILE_IS_ACCESSIBLE:
H5RS_acat(rs, "H5VL_FILE_IS_ACCESSIBLE");
break;
case H5VL_FILE_DELETE:
H5RS_acat(rs, "H5VL_FILE_DELETE");
break;
case H5VL_FILE_IS_EQUAL:
H5RS_acat(rs, "H5VL_FILE_IS_EQUAL");
break;
default:
H5RS_asprintf_cat(rs, "%ld", (long)specific);
break;
} /* end switch */
} /* end block */
break;
case 'i': /* H5VL_group_get_t */
{
H5VL_group_get_t get = (H5VL_group_get_t)HDva_arg(ap, int);
switch (get) {
case H5VL_GROUP_GET_GCPL:
H5RS_acat(rs, "H5VL_GROUP_GET_GCPL");
break;
case H5VL_GROUP_GET_INFO:
H5RS_acat(rs, "H5VL_GROUP_GET_INFO");
break;
default:
H5RS_asprintf_cat(rs, "%ld", (long)get);
break;
} /* end switch */
} /* end block */
break;
case 'j': /* H5VL_group_specific_t */
{
H5VL_group_specific_t specific = (H5VL_group_specific_t)HDva_arg(ap, int);
switch (specific) {
case H5VL_GROUP_MOUNT:
H5RS_acat(rs, "H5VL_GROUP_MOUNT");
break;
case H5VL_GROUP_UNMOUNT:
H5RS_acat(rs, "H5VL_GROUP_UNMOUNT");
break;
case H5VL_GROUP_FLUSH:
H5RS_acat(rs, "H5VL_GROUP_FLUSH");
break;
case H5VL_GROUP_REFRESH:
H5RS_acat(rs, "H5VL_GROUP_REFRESH");
break;
default:
H5RS_asprintf_cat(rs, "%ld", (long)specific);
break;
} /* end switch */
} /* end block */
break;
case 'k': /* H5VL_link_create_t */
{
H5VL_link_create_t create = (H5VL_link_create_t)HDva_arg(ap, int);
switch (create) {
case H5VL_LINK_CREATE_HARD:
H5RS_acat(rs, "H5VL_LINK_CREATE_HARD");
break;
case H5VL_LINK_CREATE_SOFT:
H5RS_acat(rs, "H5VL_LINK_CREATE_SOFT");
break;
case H5VL_LINK_CREATE_UD:
H5RS_acat(rs, "H5VL_LINK_CREATE_UD");
break;
default:
H5RS_asprintf_cat(rs, "%ld", (long)create);
break;
} /* end switch */
} /* end block */
break;
case 'l': /* H5VL_link_get_t */
{
H5VL_link_get_t get = (H5VL_link_get_t)HDva_arg(ap, int);
switch (get) {
case H5VL_LINK_GET_INFO:
H5RS_acat(rs, "H5VL_LINK_GET_INFO");
break;
case H5VL_LINK_GET_NAME:
H5RS_acat(rs, "H5VL_LINK_GET_NAME");
break;
case H5VL_LINK_GET_VAL:
H5RS_acat(rs, "H5VL_LINK_GET_VAL");
break;
default:
H5RS_asprintf_cat(rs, "%ld", (long)get);
break;
} /* end switch */
} /* end block */
break;
case 'L': /* H5VL_get_conn_lvl_t */
{
H5VL_get_conn_lvl_t get = (H5VL_get_conn_lvl_t)HDva_arg(ap, int);
switch (get) {
case H5VL_GET_CONN_LVL_CURR:
H5RS_acat(rs, "H5VL_GET_CONN_LVL_CURR");
break;
case H5VL_GET_CONN_LVL_TERM:
H5RS_acat(rs, "H5VL_GET_CONN_LVL_TERM");
break;
default:
H5RS_asprintf_cat(rs, "%ld", (long)get);
break;
} /* end switch */
} /* end block */
break;
case 'm': /* H5VL_link_specific_t */
{
H5VL_link_specific_t specific = (H5VL_link_specific_t)HDva_arg(ap, int);
switch (specific) {
case H5VL_LINK_DELETE:
H5RS_acat(rs, "H5VL_LINK_DELETE");
break;
case H5VL_LINK_EXISTS:
H5RS_acat(rs, "H5VL_LINK_EXISTS");
break;
case H5VL_LINK_ITER:
H5RS_acat(rs, "H5VL_LINK_ITER");
break;
default:
H5RS_asprintf_cat(rs, "%ld", (long)specific);
break;
} /* end switch */
} /* end block */
break;
case 'n': /* H5VL_object_get_t */
{
H5VL_object_get_t get = (H5VL_object_get_t)HDva_arg(ap, int);
switch (get) {
case H5VL_OBJECT_GET_FILE:
H5RS_acat(rs, "H5VL_OBJECT_GET_FILE");
break;
case H5VL_OBJECT_GET_NAME:
H5RS_acat(rs, "H5VL_OBJECT_GET_NAME");
break;
case H5VL_OBJECT_GET_TYPE:
H5RS_acat(rs, "H5VL_OBJECT_GET_TYPE");
break;
case H5VL_OBJECT_GET_INFO:
H5RS_acat(rs, "H5VL_OBJECT_GET_INFO");
break;
default:
H5RS_asprintf_cat(rs, "%ld", (long)get);
break;
} /* end switch */
} /* end block */
break;
case 'N': /* H5VL_request_notify_t */
{
H5VL_request_notify_t vlrnot =
(H5VL_request_notify_t)HDva_arg(ap, H5VL_request_notify_t);
H5RS_asprintf_cat(rs, "%p", (void *)(uintptr_t)vlrnot);
} /* end block */
break;
case 'o': /* H5VL_object_specific_t */
{
H5VL_object_specific_t specific = (H5VL_object_specific_t)HDva_arg(ap, int);
switch (specific) {
case H5VL_OBJECT_CHANGE_REF_COUNT:
H5RS_acat(rs, "H5VL_OBJECT_CHANGE_REF_COUNT");
break;
case H5VL_OBJECT_EXISTS:
H5RS_acat(rs, "H5VL_OBJECT_EXISTS");
break;
case H5VL_OBJECT_LOOKUP:
H5RS_acat(rs, "H5VL_OBJECT_LOOKUP");
break;
case H5VL_OBJECT_VISIT:
H5RS_acat(rs, "H5VL_OBJECT_VISIT");
break;
case H5VL_OBJECT_FLUSH:
H5RS_acat(rs, "H5VL_OBJECT_FLUSH");
break;
case H5VL_OBJECT_REFRESH:
H5RS_acat(rs, "H5VL_OBJECT_REFRESH");
break;
default:
H5RS_asprintf_cat(rs, "%ld", (long)specific);
break;
} /* end switch */
} /* end block */
break;
case 'r': /* H5VL_request_specific_t */
{
H5VL_request_specific_t specific = (H5VL_request_specific_t)HDva_arg(ap, int);
switch (specific) {
case H5VL_REQUEST_GET_ERR_STACK:
H5RS_acat(rs, "H5VL_REQUEST_GET_ERR_STACK");
break;
case H5VL_REQUEST_GET_EXEC_TIME:
H5RS_acat(rs, "H5VL_REQUEST_GET_EXEC_TIME");
break;
default:
H5RS_asprintf_cat(rs, "%ld", (long)specific);
break;
} /* end switch */
} /* end block */
break;
case 's': /* H5VL_attr_optional_t */
{
H5VL_attr_optional_t optional = (H5VL_attr_optional_t)HDva_arg(ap, int);
switch (optional) {
#ifndef H5_NO_DEPRECATED_SYMBOLS
case H5VL_NATIVE_ATTR_ITERATE_OLD:
H5RS_acat(rs, "H5VL_NATIVE_ATTR_ITERATE_OLD");
break;
#endif /* H5_NO_DEPRECATED_SYMBOLS */
default:
H5RS_asprintf_cat(rs, "%ld", (long)optional);
break;
} /* end switch */
} /* end block */
break;
case 'S': /* H5VL_subclass_t */
{
H5VL_subclass_t subclass = (H5VL_subclass_t)HDva_arg(ap, int);
switch (subclass) {
case H5VL_SUBCLS_NONE:
H5RS_acat(rs, "H5VL_SUBCLS_NONE");
break;
case H5VL_SUBCLS_INFO:
H5RS_acat(rs, "H5VL_SUBCLS_INFO");
break;
case H5VL_SUBCLS_WRAP:
H5RS_acat(rs, "H5VL_SUBCLS_WRAP");
break;
case H5VL_SUBCLS_ATTR:
H5RS_acat(rs, "H5VL_SUBCLS_ATTR");
break;
case H5VL_SUBCLS_DATASET:
H5RS_acat(rs, "H5VL_SUBCLS_DATASET");
break;
case H5VL_SUBCLS_DATATYPE:
H5RS_acat(rs, "H5VL_SUBCLS_DATATYPE");
break;
case H5VL_SUBCLS_FILE:
H5RS_acat(rs, "H5VL_SUBCLS_FILE");
break;
case H5VL_SUBCLS_GROUP:
H5RS_acat(rs, "H5VL_SUBCLS_GROUP");
break;
case H5VL_SUBCLS_LINK:
H5RS_acat(rs, "H5VL_SUBCLS_LINK");
break;
case H5VL_SUBCLS_OBJECT:
H5RS_acat(rs, "H5VL_SUBCLS_OBJECT");
break;
case H5VL_SUBCLS_REQUEST:
H5RS_acat(rs, "H5VL_SUBCLS_REQUEST");
break;
case H5VL_SUBCLS_BLOB:
H5RS_acat(rs, "H5VL_SUBCLS_BLOB");
break;
case H5VL_SUBCLS_TOKEN:
H5RS_acat(rs, "H5VL_SUBCLS_TOKEN");
break;
default:
H5RS_asprintf_cat(rs, "%ld", (long)subclass);
break;
} /* end switch */
} /* end block */
break;
case 't': /* H5VL_dataset_optional_t */
{
H5VL_dataset_optional_t optional = (H5VL_dataset_optional_t)HDva_arg(ap, int);
switch (optional) {
case H5VL_NATIVE_DATASET_FORMAT_CONVERT:
H5RS_acat(rs, "H5VL_NATIVE_DATASET_FORMAT_CONVERT");
break;
case H5VL_NATIVE_DATASET_GET_CHUNK_INDEX_TYPE:
H5RS_acat(rs, "H5VL_NATIVE_DATASET_GET_CHUNK_INDEX_TYPE");
break;
case H5VL_NATIVE_DATASET_GET_CHUNK_STORAGE_SIZE:
H5RS_acat(rs, "H5VL_NATIVE_DATASET_GET_CHUNK_STORAGE_SIZE");
break;
case H5VL_NATIVE_DATASET_GET_NUM_CHUNKS:
H5RS_acat(rs, "H5VL_NATIVE_DATASET_GET_NUM_CHUNKS");
break;
case H5VL_NATIVE_DATASET_GET_CHUNK_INFO_BY_IDX:
H5RS_acat(rs, "H5VL_NATIVE_DATASET_GET_CHUNK_INFO_BY_IDX");
break;
case H5VL_NATIVE_DATASET_GET_CHUNK_INFO_BY_COORD:
H5RS_acat(rs, "H5VL_NATIVE_DATASET_GET_CHUNK_INFO_BY_COORD");
break;
case H5VL_NATIVE_DATASET_CHUNK_READ:
H5RS_acat(rs, "H5VL_NATIVE_DATASET_CHUNK_READ");
break;
case H5VL_NATIVE_DATASET_CHUNK_WRITE:
H5RS_acat(rs, "H5VL_NATIVE_DATASET_CHUNK_WRITE");
break;
case H5VL_NATIVE_DATASET_GET_VLEN_BUF_SIZE:
H5RS_acat(rs, "H5VL_NATIVE_DATASET_GET_VLEN_BUF_SIZE");
break;
case H5VL_NATIVE_DATASET_GET_OFFSET:
H5RS_acat(rs, "H5VL_NATIVE_DATASET_GET_OFFSET");
break;
default:
H5RS_asprintf_cat(rs, "%ld", (long)optional);
break;
} /* end switch */
} /* end block */
break;
case 'u': /* H5VL_datatype_optional_t */
{
H5VL_datatype_optional_t optional = (H5VL_datatype_optional_t)HDva_arg(ap, int);
H5RS_asprintf_cat(rs, "%ld", (long)optional);
} /* end block */
break;
case 'v': /* H5VL_file_optional_t */
{
H5VL_file_optional_t optional = (H5VL_file_optional_t)HDva_arg(ap, int);
switch (optional) {
case H5VL_NATIVE_FILE_CLEAR_ELINK_CACHE:
H5RS_acat(rs, "H5VL_NATIVE_FILE_CLEAR_ELINK_CACHE");
break;
case H5VL_NATIVE_FILE_GET_FILE_IMAGE:
H5RS_acat(rs, "H5VL_NATIVE_FILE_GET_FILE_IMAGE");
break;
case H5VL_NATIVE_FILE_GET_FREE_SECTIONS:
H5RS_acat(rs, "H5VL_NATIVE_FILE_GET_FREE_SECTIONS");
break;
case H5VL_NATIVE_FILE_GET_FREE_SPACE:
H5RS_acat(rs, "H5VL_NATIVE_FILE_GET_FREE_SPACE");
break;
case H5VL_NATIVE_FILE_GET_INFO:
H5RS_acat(rs, "H5VL_NATIVE_FILE_GET_INFO");
break;
case H5VL_NATIVE_FILE_GET_MDC_CONF:
H5RS_acat(rs, "H5VL_NATIVE_FILE_GET_MDC_CONF");
break;
case H5VL_NATIVE_FILE_GET_MDC_HR:
H5RS_acat(rs, "H5VL_NATIVE_FILE_GET_MDC_HR");
break;
case H5VL_NATIVE_FILE_GET_MDC_SIZE:
H5RS_acat(rs, "H5VL_NATIVE_FILE_GET_MDC_SIZE");
break;
case H5VL_NATIVE_FILE_GET_SIZE:
H5RS_acat(rs, "H5VL_NATIVE_FILE_GET_SIZE");
break;
case H5VL_NATIVE_FILE_GET_VFD_HANDLE:
H5RS_acat(rs, "H5VL_NATIVE_FILE_GET_VFD_HANDLE");
break;
case H5VL_NATIVE_FILE_RESET_MDC_HIT_RATE:
H5RS_acat(rs, "H5VL_NATIVE_FILE_RESET_MDC_HIT_RATE");
break;
case H5VL_NATIVE_FILE_SET_MDC_CONFIG:
H5RS_acat(rs, "H5VL_NATIVE_FILE_SET_MDC_CONFIG");
break;
case H5VL_NATIVE_FILE_GET_METADATA_READ_RETRY_INFO:
H5RS_acat(rs, "H5VL_NATIVE_FILE_GET_METADATA_READ_RETRY_INFO");
break;
case H5VL_NATIVE_FILE_START_SWMR_WRITE:
H5RS_acat(rs, "H5VL_NATIVE_FILE_START_SWMR_WRITE");
break;
case H5VL_NATIVE_FILE_START_MDC_LOGGING:
H5RS_acat(rs, "H5VL_NATIVE_FILE_START_MDC_LOGGING");
break;
case H5VL_NATIVE_FILE_STOP_MDC_LOGGING:
H5RS_acat(rs, "H5VL_NATIVE_FILE_STOP_MDC_LOGGING");
break;
case H5VL_NATIVE_FILE_GET_MDC_LOGGING_STATUS:
H5RS_acat(rs, "H5VL_NATIVE_FILE_GET_MDC_LOGGING_STATUS");
break;
case H5VL_NATIVE_FILE_FORMAT_CONVERT:
H5RS_acat(rs, "H5VL_NATIVE_FILE_FORMAT_CONVERT");
break;
case H5VL_NATIVE_FILE_RESET_PAGE_BUFFERING_STATS:
H5RS_acat(rs, "H5VL_NATIVE_FILE_RESET_PAGE_BUFFERING_STATS");
break;
case H5VL_NATIVE_FILE_GET_PAGE_BUFFERING_STATS:
H5RS_acat(rs, "H5VL_NATIVE_FILE_GET_PAGE_BUFFERING_STATS");
break;
case H5VL_NATIVE_FILE_GET_MDC_IMAGE_INFO:
H5RS_acat(rs, "H5VL_NATIVE_FILE_GET_MDC_IMAGE_INFO");
break;
case H5VL_NATIVE_FILE_GET_EOA:
H5RS_acat(rs, "H5VL_NATIVE_FILE_GET_EOA");
break;
case H5VL_NATIVE_FILE_INCR_FILESIZE:
H5RS_acat(rs, "H5VL_NATIVE_FILE_INCR_FILESIZE");
break;
case H5VL_NATIVE_FILE_SET_LIBVER_BOUNDS:
H5RS_acat(rs, "H5VL_NATIVE_FILE_SET_LIBVER_BOUNDS");
break;
case H5VL_NATIVE_FILE_GET_MIN_DSET_OHDR_FLAG:
H5RS_acat(rs, "H5VL_NATIVE_FILE_GET_MIN_DSET_OHDR_FLAG");
break;
case H5VL_NATIVE_FILE_SET_MIN_DSET_OHDR_FLAG:
H5RS_acat(rs, "H5VL_NATIVE_FILE_SET_MIN_DSET_OHDR_FLAG");
break;
#ifdef H5_HAVE_PARALLEL
case H5VL_NATIVE_FILE_GET_MPI_ATOMICITY:
H5RS_acat(rs, "H5VL_NATIVE_FILE_GET_MPI_ATOMICITY");
break;
case H5VL_NATIVE_FILE_SET_MPI_ATOMICITY:
H5RS_acat(rs, "H5VL_NATIVE_FILE_SET_MPI_ATOMICITY");
break;
#endif /* H5_HAVE_PARALLEL */
case H5VL_NATIVE_FILE_POST_OPEN:
H5RS_acat(rs, "H5VL_NATIVE_FILE_POST_OPEN");
break;
default:
H5RS_asprintf_cat(rs, "%ld", (long)optional);
break;
} /* end switch */
} /* end block */
break;
case 'w': /* H5VL_group_optional_t */
{
H5VL_group_optional_t optional = (H5VL_group_optional_t)HDva_arg(ap, int);
switch (optional) {
#ifndef H5_NO_DEPRECATED_SYMBOLS
case H5VL_NATIVE_GROUP_ITERATE_OLD:
H5RS_acat(rs, "H5VL_NATIVE_GROUP_ITERATE_OLD");
break;
case H5VL_NATIVE_GROUP_GET_OBJINFO:
H5RS_acat(rs, "H5VL_NATIVE_GROUP_GET_OBJINFO");
break;
#endif /* H5_NO_DEPRECATED_SYMBOLS */
default:
H5RS_asprintf_cat(rs, "%ld", (long)optional);
break;
} /* end switch */
} /* end block */
break;
case 'x': /* H5VL_link_optional_t */
{
H5VL_link_optional_t optional = (H5VL_link_optional_t)HDva_arg(ap, int);
H5RS_asprintf_cat(rs, "%ld", (long)optional);
} /* end block */
break;
case 'y': /* H5VL_object_optional_t */
{
H5VL_object_optional_t optional = (H5VL_object_optional_t)HDva_arg(ap, int);
switch (optional) {
case H5VL_NATIVE_OBJECT_GET_COMMENT:
H5RS_acat(rs, "H5VL_NATIVE_OBJECT_GET_COMMENT");
break;
case H5VL_NATIVE_OBJECT_SET_COMMENT:
H5RS_acat(rs, "H5VL_NATIVE_OBJECT_SET_COMMENT");
break;
case H5VL_NATIVE_OBJECT_DISABLE_MDC_FLUSHES:
H5RS_acat(rs, "H5VL_NATIVE_OBJECT_DISABLE_MDC_FLUSHES");
break;
case H5VL_NATIVE_OBJECT_ENABLE_MDC_FLUSHES:
H5RS_acat(rs, "H5VL_NATIVE_OBJECT_ENABLE_MDC_FLUSHES");
break;
case H5VL_NATIVE_OBJECT_ARE_MDC_FLUSHES_DISABLED:
H5RS_acat(rs, "H5VL_NATIVE_OBJECT_ARE_MDC_FLUSHES_DISABLED");
break;
case H5VL_NATIVE_OBJECT_GET_NATIVE_INFO:
H5RS_acat(rs, "H5VL_NATIVE_OBJECT_GET_NATIVE_INFO");
break;
default:
H5RS_asprintf_cat(rs, "%ld", (long)optional);
break;
} /* end switch */
} /* end block */
break;
case 'z': /* H5VL_request_optional_t */
{
H5VL_request_optional_t optional = (H5VL_request_optional_t)HDva_arg(ap, int);
H5RS_asprintf_cat(rs, "%ld", (long)optional);
} /* end block */
break;
default:
H5RS_asprintf_cat(rs, "BADTYPE(Z%c)", type[1]);
goto error;
} /* end switch */
break;
case 'x': { /* void / va_list */
vp = HDva_arg(ap, void *);
if (vp)
H5RS_asprintf_cat(rs, "%p", vp);
else
H5RS_acat(rs, "NULL");
} /* end block */
break;
case 'z': {
size_t size = HDva_arg(ap, size_t);
H5RS_asprintf_cat(rs, "%zu", size);
asize[argno] = (hssize_t)size;
} /* end block */
break;
case 'Z':
switch (type[1]) {
case 'a': /* H5Z_SO_scale_type_t */
{
H5Z_SO_scale_type_t scale_type = (H5Z_SO_scale_type_t)HDva_arg(ap, int);
switch (scale_type) {
case H5Z_SO_FLOAT_DSCALE:
H5RS_acat(rs, "H5Z_SO_FLOAT_DSCALE");
break;
case H5Z_SO_FLOAT_ESCALE:
H5RS_acat(rs, "H5Z_SO_FLOAT_ESCALE");
break;
case H5Z_SO_INT:
H5RS_acat(rs, "H5Z_SO_INT");
break;
default:
H5RS_asprintf_cat(rs, "%ld", (long)scale_type);
break;
} /* end switch */
} /* end block */
break;
case 'c': /* H5Z_class2_t */
{
H5Z_class2_t *filter = HDva_arg(ap, H5Z_class2_t *);
H5RS_asprintf_cat(rs, "%p", (void *)filter);
} /* end block */
break;
case 'e': /* H5Z_EDC_t */
{
H5Z_EDC_t edc = (H5Z_EDC_t)HDva_arg(ap, int);
if (H5Z_DISABLE_EDC == edc)
H5RS_acat(rs, "H5Z_DISABLE_EDC");
else if (H5Z_ENABLE_EDC == edc)
H5RS_acat(rs, "H5Z_ENABLE_EDC");
else
H5RS_asprintf_cat(rs, "%ld", (long)edc);
} /* end block */
break;
case 'f': /* H5Z_filter_t */
{
H5Z_filter_t id = HDva_arg(ap, H5Z_filter_t);
if (H5Z_FILTER_NONE == id)
H5RS_acat(rs, "H5Z_FILTER_NONE");
else if (H5Z_FILTER_DEFLATE == id)
H5RS_acat(rs, "H5Z_FILTER_DEFLATE");
else if (H5Z_FILTER_SHUFFLE == id)
H5RS_acat(rs, "H5Z_FILTER_SHUFFLE");
else if (H5Z_FILTER_FLETCHER32 == id)
H5RS_acat(rs, "H5Z_FILTER_FLETCHER32");
else if (H5Z_FILTER_SZIP == id)
H5RS_acat(rs, "H5Z_FILTER_SZIP");
else if (H5Z_FILTER_NBIT == id)
H5RS_acat(rs, "H5Z_FILTER_NBIT");
else if (H5Z_FILTER_SCALEOFFSET == id)
H5RS_acat(rs, "H5Z_FILTER_SCALEOFFSET");
else
H5RS_asprintf_cat(rs, "%ld", (long)id);
} /* end block */
break;
case 'F': /* H5Z_filter_func_t */
{
H5Z_filter_func_t ffunc = (H5Z_filter_func_t)HDva_arg(ap, H5Z_filter_func_t);
H5RS_asprintf_cat(rs, "%p", (void *)(uintptr_t)ffunc);
} /* end block */
break;
case 's': {
ssize_t ssize = HDva_arg(ap, ssize_t);
H5RS_asprintf_cat(rs, "%zd", ssize);
asize[argno] = (hssize_t)ssize;
} /* end block */
break;
default:
H5RS_asprintf_cat(rs, "BADTYPE(Z%c)", type[1]);
goto error;
} /* end switch */
break;
case '#':
H5RS_acat(rs, "Unsupported type slipped through!");
break;
case '!':
H5RS_acat(rs, "Unknown type slipped through!");
break;
default:
if (HDisupper(type[0]))
H5RS_asprintf_cat(rs, "BADTYPE(%c%c)", type[0], type[1]);
else
H5RS_asprintf_cat(rs, "BADTYPE(%c)", type[0]);
goto error;
} /* end switch */
} /* end else */
} /* end for */
return SUCCEED;
error:
return FAIL;
} /* end H5_trace_args() */
/*-------------------------------------------------------------------------
* 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;
H5RS_str_t *rs = NULL;
hssize_t i;
FILE *out = H5_debug_g.trace;
static hbool_t is_first_invocation = TRUE;
H5_timer_t function_timer;
H5_timevals_t function_times = {0.0, 0.0, 0.0};
static H5_timer_t running_timer;
H5_timevals_t running_times;
static int current_depth = 0;
static int last_call_depth = 0;
/* FUNC_ENTER() should not be called */
if (!out)
return 0.0; /* Tracing is off */
/* Initialize the timer for this function */
if (H5_debug_g.ttimes)
H5_timer_init(&function_timer);
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 time for event if the trace times flag is set */
if (is_first_invocation && H5_debug_g.ttimes) {
/* Start the library-wide timer */
is_first_invocation = FALSE;
H5_timer_init(&running_timer);
H5_timer_start(&running_timer);
}
/* Start the timer for this function */
if (H5_debug_g.ttimes)
H5_timer_start(&function_timer);
/* Create the ref-counted string */
rs = H5RS_create(NULL);
/* 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];
H5_timer_get_times(function_timer, &function_times);
H5_timer_get_times(running_timer, &running_times);
HDsnprintf(tmp, sizeof(tmp), "%.6f", (function_times.elapsed - running_times.elapsed));
H5RS_asprintf_cat(rs, " %*s ", (int)HDstrlen(tmp), "");
}
for (i = 0; i < current_depth; i++)
H5RS_aputc(rs, '+');
H5RS_asprintf_cat(rs, "%*s%s = ", 2 * current_depth, "", func);
}
else
/* Continue current line with return value */
H5RS_acat(rs, " = ");
}
else {
if (current_depth > last_call_depth)
H5RS_acat(rs, " = <delayed>\n");
if (H5_debug_g.ttimes) {
H5_timer_get_times(function_timer, &function_times);
H5_timer_get_times(running_timer, &running_times);
H5RS_asprintf_cat(rs, "@%.6f ", (function_times.elapsed - running_times.elapsed));
}
for (i = 0; i < current_depth; i++)
H5RS_aputc(rs, '+');
H5RS_asprintf_cat(rs, "%*s%s(", 2 * current_depth, "", func);
}
/* Format arguments into the refcounted string */
HDva_start(ap, type);
H5_trace_args(rs, type, ap);
HDva_end(ap);
/* Display event time for return */
if (returning && H5_debug_g.ttimes) {
H5_timer_get_times(function_timer, &function_times);
H5_timer_get_times(running_timer, &running_times);
H5RS_asprintf_cat(rs, " @%.6f [dt=%.6f]", (function_times.elapsed - running_times.elapsed),
(function_times.elapsed - *returning));
}
/* Display generated string */
if (returning)
H5RS_acat(rs, ";\n");
else {
last_call_depth = current_depth++;
H5RS_acat(rs, ")");
}
HDfputs(H5RS_get_str(rs), out);
HDfflush(out);
H5RS_decr(rs);
if (H5_debug_g.ttimes)
return function_times.elapsed;
else
return 0.0;
} /* end H5_trace() */
Reference in New Issue View Git Blame Copy Permalink