diff options
| author | Quincey Koziol <koziol@hdfgroup.org> | 2006-11-17 21:02:48 (GMT) |
|---|---|---|
| committer | Quincey Koziol <koziol@hdfgroup.org> | 2006-11-17 21:02:48 (GMT) |
| commit | 7205052027f271177c84f5df4f17df5a8f344294 (patch) | |
| tree | 952dba343bda5ba19845ce10bd4579b70236ceac /src/H5trace.c | |
| parent | 0ede5b8c9c70e7e86b0d0aba1382bbe685ca3c62 (diff) | |
| download | hdf5-7205052027f271177c84f5df4f17df5a8f344294.zip hdf5-7205052027f271177c84f5df4f17df5a8f344294.tar.gz hdf5-7205052027f271177c84f5df4f17df5a8f344294.tar.bz2 | |
[svn-r12940] Description:
Add some more types to tracing script and regenerate TRACE macros, etc.
Tested on:
Linux/32 2.4 (heping)
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': |