diff options
Diffstat (limited to 'src/H5trace.c')
| -rw-r--r-- | src/H5trace.c | 116 |
1 files changed, 90 insertions, 26 deletions
diff --git a/src/H5trace.c b/src/H5trace.c index 1d2e8c2..cb31f87 100644 --- a/src/H5trace.c +++ b/src/H5trace.c @@ -605,32 +605,6 @@ H5_trace (const double *returning, const char *func, const char *type, ...) case 'G': switch(type[1]) { - case 'l': - if(ptr) { - if(vp) - fprintf (out, "0x%lx", (unsigned long)vp); - else - fprintf(out, "NULL"); - } else { - H5L_type_t link_type = va_arg(ap, H5L_type_t); /*lint !e64 Type mismatch not really occuring */ - - switch(link_type) { - case H5L_TYPE_ERROR: - fprintf(out, "H5L_TYPE_ERROR"); - break; - case H5L_TYPE_HARD: - fprintf(out, "H5L_TYPE_HARD"); - break; - case H5L_TYPE_SOFT: - fprintf(out, "H5L_TYPE_SOFT"); - break; - default: - fprintf(out, "%ld", (long)link_type); - break; - } - } - break; - case 'o': if(ptr) { if(vp) @@ -921,6 +895,35 @@ H5_trace (const double *returning, const char *func, const char *type, ...) case 'I': switch (type[1]) { + case 'o': + if (ptr) { + if (vp) + fprintf (out, "0x%lx", (unsigned long)vp); + else + fprintf(out, "NULL"); + } /* end if */ + else { + H5_iter_order_t order = va_arg (ap, H5_iter_order_t); /*lint !e64 Type mismatch not really occuring */ + switch(order) { + case H5_ITER_UNKNOWN: + fprintf(out, "H5_ITER_UNKNOWN"); + break; + case H5_ITER_INC: + fprintf(out, "H5_ITER_INC"); + break; + case H5_ITER_DEC: + fprintf(out, "H5_ITER_DEC"); + break; + case H5_ITER_NATIVE: + fprintf(out, "H5_ITER_NATIVE"); + break; + case H5_ITER_N: + fprintf(out, "H5_ITER_N"); + break; + } /* end switch */ + } /* end else */ + break; + case 's': if (ptr) { if (vp) { @@ -1036,6 +1039,67 @@ H5_trace (const double *returning, const char *func, const char *type, ...) } break; + case 'L': + switch(type[1]) { + case 'i': + if(ptr) { + if(vp) + fprintf (out, "0x%lx", (unsigned long)vp); + else + fprintf(out, "NULL"); + } else { + H5L_index_t idx_type = va_arg(ap, H5L_index_t); /*lint !e64 Type mismatch not really occuring */ + + switch(idx_type) { + case H5L_INDEX_UNKNOWN: + fprintf(out, "H5L_INDEX_UNKNOWN"); + break; + case H5L_INDEX_NAME: + fprintf(out, "H5L_INDEX_NAME"); + break; + case H5L_INDEX_CRT_ORDER: + fprintf(out, "H5L_INDEX_CRT_ORDER"); + break; + case H5L_INDEX_N: + fprintf(out, "H5L_INDEX_N"); + break; + } + } + break; + + case 'l': + if(ptr) { + if(vp) + fprintf (out, "0x%lx", (unsigned long)vp); + else + fprintf(out, "NULL"); + } /* end if */ + else { + H5L_type_t link_type = va_arg(ap, H5L_type_t); /*lint !e64 Type mismatch not really occuring */ + + switch(link_type) { + case H5L_TYPE_ERROR: + fprintf(out, "H5L_TYPE_ERROR"); + break; + case H5L_TYPE_HARD: + fprintf(out, "H5L_TYPE_HARD"); + break; + case H5L_TYPE_SOFT: + fprintf(out, "H5L_TYPE_SOFT"); + break; + default: + fprintf(out, "%ld", (long)link_type); + break; + } /* end switch */ + } /* end else */ + break; + + default: + fprintf(out, "BADTYPE(G%c)", type[1]); + goto error; + } + break; + case 'M': switch (type[1]) { case 'c': |