mirror/hdf5
2
0
Fork 0
mirror of https://github.com/HDFGroup/hdf5.git synced 2024-11-21 01:04:10 +08:00
Code Issues Packages Projects Releases Wiki Activity
develop
hdf5/src/H5trace.c
jhendersonHDF 90429f5e7d
Implement support for complex number datatypes (#4630) 
* Implement support for complex number datatypes

Adds the new datatype class H5T_COMPLEX

Adds the new API function H5Tcomplex_create which creates a complex
number datatype from an ID of a base floating-point datatype

Adds the new feature check macros H5_HAVE_COMPLEX_NUMBERS and
H5_HAVE_C99_COMPLEX_NUMBERS

Adds the new datatype size macros H5_SIZEOF_FLOAT_COMPLEX,
H5_SIZEOF_DOUBLE_COMPLEX and H5_SIZEOF_LONG_DOUBLE_COMPLEX

Adds the new datatype ID macros H5T_NATIVE_FLOAT_COMPLEX,
H5T_NATIVE_DOUBLE_COMPLEX, H5T_NATIVE_LDOUBLE_COMPLEX,
H5T_CPLX_IEEE_F16LE, H5T_CPLX_IEEE_F16BE,
H5T_CPLX_IEEE_F32LE, H5T_CPLX_IEEE_F32BE,
H5T_CPLX_IEEE_F64LE and H5T_CPLX_IEEE_F64BE

Adds hard and soft datatype conversion paths between complex number
datatypes and all the integer and floating-point datatypes, as well as
between other complex number datatypes

Adds a special conversion path between complex number datatypes and
array or compound datatypes where the in-memory layout of data is the
same between the datatypes and data can be converted directly

Adds support for complex number datatypes to the h5dump, h5ls and
h5diff/ph5diff tools. Allows h5dump '-m' option to change floating-point
printing format for float complex and double complex datatypes, as well
as long double complex if it has the same size as double complex

Adds minimal support to the h5watch and h5import tools

Adds support for the predefined complex number datatypes and
H5Tcomplex_create function to the Java wrappers. Also adds initial,
untested support to the JNI for future use with HDFView

Adds support for just the H5T_COMPLEX datatype class to the Fortran
wrappers

Adds support for the predefined complex number datatypes and
H5Tcomplex_create function to the high level library H5LT interface
for use with the H5LTtext_to_dtype and H5LTdtype_to_text functions

Changes some usages of "complex" in the library since it conflicts with
the "complex" keyword from the complex.h header. Also changes various
usages of the word "complex" throughout the library to distinguish
compound datatypes from complex datatypes.
2024-10-31 13:54:25 -07:00

4145 lines
176 KiB
C
Raw Permalink Blame History

/* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
* Copyright by The HDF Group. *
* 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 LICENSE 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
*
* 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, bool 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 bool and adds the output to
* the refcounted string (RS) argument.
*
* Return: SUCCEED / FAIL
*
*-------------------------------------------------------------------------
*/
static herr_t
H5_trace_args_bool(H5RS_str_t *rs, bool 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
*
*-------------------------------------------------------------------------
*/
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;
}
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
*
*-------------------------------------------------------------------------
*/
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
*
*-------------------------------------------------------------------------
*/
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 += (isupper(*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)strtol(type + 2, &rest, 10);
assert(0 <= asize_idx && asize_idx < (int)NELMTS(asize));
assert(']' == *rest);
type = rest + 1;
}
else {
rest = (char *)strchr(type, ']');
assert(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 = va_arg(ap, char *);
if (argname)
H5RS_asprintf_cat(rs, "%s%s=", argno ? ", " : "", argname);
/* A pointer/array */
if (ptr) {
vp = va_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 = va_arg(ap, haddr_t);
if (H5_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 = va_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)va_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)va_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': /* bool */
{
/* Can't pass bool to va_arg() */
bool bool_var = (bool)va_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 = va_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 = va_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 = va_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)va_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)va_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)va_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 'C': /* H5D_selection_io_mode_t */
{
H5D_selection_io_mode_t selection_io_mode =
(H5D_selection_io_mode_t)va_arg(ap, int);
switch (selection_io_mode) {
case H5D_SELECTION_IO_MODE_DEFAULT:
H5RS_acat(rs, "H5D_SELECTION_IO_MODE_DEFAULT");
break;
case H5D_SELECTION_IO_MODE_OFF:
H5RS_acat(rs, "H5D_SELECTION_IO_MODE_OFF");
break;
case H5D_SELECTION_IO_MODE_ON:
H5RS_acat(rs, "H5D_SELECTION_IO_MODE_ON");
break;
default:
H5RS_asprintf_cat(rs, "%ld", (long)selection_io_mode);
break;
} /* end switch */
} /* end block */
break;
case 'f': /* H5D_fill_time_t */
{
H5D_fill_time_t fill_time = (H5D_fill_time_t)va_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)va_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)va_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)va_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)va_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 = va_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)va_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)va_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)va_arg(ap, int);
bool 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)va_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)va_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)va_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)va_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)va_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)va_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)va_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
#ifdef H5_HAVE_SUBFILING_VFD
case H5_VFD_SUBFILING:
H5RS_acat(rs, "H5_VFD_SUBFILING");
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 = va_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)va_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)va_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)va_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)va_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 = va_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)va_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)va_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)va_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 = va_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)va_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)va_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)va_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 = va_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)va_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)va_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)va_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)va_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:
H5RS_acat(rs, "H5F_LIBVER_V114");
break;
case H5F_LIBVER_V200:
HDcompile_assert(H5F_LIBVER_LATEST == H5F_LIBVER_V200);
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)va_arg(ap, H5G_iterate_t);
H5RS_asprintf_cat(rs, "%p", (void *)(uintptr_t)git);
} break;
case 'I': /* H5G_info_t */
{
H5G_info_t ginfo = va_arg(ap, H5G_info_t);
H5RS_acat(rs, "{");
switch (ginfo.storage_type) {
case H5G_STORAGE_TYPE_UNKNOWN:
H5RS_asprintf_cat(rs, "H5G_STORAGE_TYPE_UNKNOWN");
break;
case H5G_STORAGE_TYPE_SYMBOL_TABLE:
H5RS_asprintf_cat(rs, "H5G_STORAGE_TYPE_SYMBOL_TABLE");
break;
case H5G_STORAGE_TYPE_COMPACT:
H5RS_asprintf_cat(rs, "H5G_STORAGE_TYPE_COMPACT");
break;
case H5G_STORAGE_TYPE_DENSE:
H5RS_asprintf_cat(rs, "H5G_STORAGE_TYPE_DENSE");
break;
default:
H5RS_asprintf_cat(rs, "%ld", (long)ginfo.storage_type);
break;
}
H5RS_asprintf_cat(rs, ", ");
H5RS_asprintf_cat(rs, "%" PRIuHSIZE ", ", ginfo.nlinks);
H5RS_asprintf_cat(rs, "%" PRId64 ", ", ginfo.max_corder);
H5_trace_args_bool(rs, ginfo.mounted);
H5RS_asprintf_cat(rs, "}");
} break;
case 'o': /* H5G_obj_t */
{
H5G_obj_t obj_type = (H5G_obj_t)va_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 = va_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 = va_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 'c': /* H5_atclose_func_t */
{
H5_atclose_func_t cfunc = (H5_atclose_func_t)va_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 = va_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 = va_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");
#ifdef H5_HAVE__FLOAT16
else if (obj == H5T_NATIVE_FLOAT16_g)
H5RS_acat(rs, "H5T_NATIVE_FLOAT16");
#endif
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");
#ifdef H5_HAVE_COMPLEX_NUMBERS
else if (obj == H5T_NATIVE_FLOAT_COMPLEX_g)
H5RS_acat(rs, "H5T_NATIVE_FLOAT_COMPLEX");
else if (obj == H5T_NATIVE_DOUBLE_COMPLEX_g)
H5RS_acat(rs, "H5T_NATIVE_DOUBLE_COMPLEX");
else if (obj == H5T_NATIVE_LDOUBLE_COMPLEX_g)
H5RS_acat(rs, "H5T_NATIVE_LDOUBLE_COMPLEX");
#endif
else if (obj == H5T_IEEE_F16BE_g)
H5RS_acat(rs, "H5T_IEEE_F16BE");
else if (obj == H5T_IEEE_F16LE_g)
H5RS_acat(rs, "H5T_IEEE_F16LE");
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_COMPLEX_IEEE_F16BE_g)
H5RS_acat(rs, "H5T_COMPLEX_IEEE_F16BE");
else if (obj == H5T_COMPLEX_IEEE_F16LE_g)
H5RS_acat(rs, "H5T_COMPLEX_IEEE_F16LE");
else if (obj == H5T_COMPLEX_IEEE_F32BE_g)
H5RS_acat(rs, "H5T_COMPLEX_IEEE_F32BE");
else if (obj == H5T_COMPLEX_IEEE_F32LE_g)
H5RS_acat(rs, "H5T_COMPLEX_IEEE_F32LE");
else if (obj == H5T_COMPLEX_IEEE_F64BE_g)
H5RS_acat(rs, "H5T_COMPLEX_IEEE_F64BE");
else if (obj == H5T_COMPLEX_IEEE_F64LE_g)
H5RS_acat(rs, "H5T_COMPLEX_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)va_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)va_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)va_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)va_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)va_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)va_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 = va_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)va_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)va_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 = va_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 = va_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)va_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)va_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)va_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)va_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)va_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 = va_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)va_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 = va_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)va_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)va_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 = va_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)va_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)va_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)va_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)va_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 = va_arg(ap, hid_t);
char *class_name = NULL;
H5P_genclass_t *pclass;
/* Get the class name and print it */
/* (This may generate recursive call to the library... -QAK) */
if (NULL != (pclass = (H5P_genclass_t *)H5I_object(pclass_id)) &&
NULL != (class_name = H5P_get_class_name(pclass))) {
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)va_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)va_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)va_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)va_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)va_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)va_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)va_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)va_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)va_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)va_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)va_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 = va_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)va_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)va_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)va_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)va_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 = va_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)va_arg(ap, int);
H5_trace_args_cset(rs, cset);
} /* end block */
break;
case 'C': /* H5T_conv_t */
{
H5T_conv_t tconv = (H5T_conv_t)va_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)va_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)va_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)va_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)va_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)va_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)va_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)va_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)va_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_COMPLEX:
H5RS_acat(rs, "H5T_COMPLEX");
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)va_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 = va_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 = va_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)va_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)va_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)va_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)va_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)va_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)va_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)va_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)va_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)va_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)va_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)va_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)va_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)va_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)va_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)va_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)va_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)va_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)va_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)va_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)va_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)va_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)va_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)va_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)va_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)va_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)va_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)va_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)va_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)va_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)va_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 = va_arg(ap, void *);
if (vp)
H5RS_asprintf_cat(rs, "%p", vp);
else
H5RS_acat(rs, "NULL");
} /* end block */
break;
case 'z': {
size_t size = va_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)va_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 = va_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)va_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 = va_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)va_arg(ap, H5Z_filter_func_t);
H5RS_asprintf_cat(rs, "%p", (void *)(uintptr_t)ffunc);
} /* end block */
break;
case 's': {
ssize_t ssize = va_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 (isupper(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
*
*-------------------------------------------------------------------------
*/
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 bool is_first_invocation = true;
H5_timer_t function_timer = {{0.0, 0.0, 0.0}, {0.0, 0.0, 0.0}, {0.0, 0.0, 0.0}, false};
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) {
assert(current_depth > 0);
--current_depth;
if (current_depth < last_call_depth) {
/* We are at the beginning of a line */
if (H5_debug_g.ttimes) {
char tmp[320];
H5_timer_get_times(function_timer, &function_times);
H5_timer_get_times(running_timer, &running_times);
snprintf(tmp, sizeof(tmp), "%.6f", (function_times.elapsed - running_times.elapsed));
H5RS_asprintf_cat(rs, " %*s ", (int)strlen(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 */
va_start(ap, type);
H5_trace_args(rs, type, ap);
va_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, ")");
}
fputs(H5RS_get_str(rs), out);
fflush(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