diff options
| author | Quincey Koziol <koziol@hdfgroup.org> | 2003-10-14 15:46:38 (GMT) |
|---|---|---|
| committer | Quincey Koziol <koziol@hdfgroup.org> | 2003-10-14 15:46:38 (GMT) |
| commit | e2518919c959dbf1bdb0890151cae91293e0594d (patch) | |
| tree | 8a436ae57a310fdce030f1d15ec6084724524785 /src/H5.c | |
| parent | a34ed1f634081df2e6b8e7295eac73d3e31e7346 (diff) | |
| download | hdf5-e2518919c959dbf1bdb0890151cae91293e0594d.zip hdf5-e2518919c959dbf1bdb0890151cae91293e0594d.tar.gz hdf5-e2518919c959dbf1bdb0890151cae91293e0594d.tar.bz2 | |
[svn-r7626] Purpose:
Update dependencies and tracing information
Platforms tested:
Linux 2.4 (verbena) w/FORTRAN
too minor for h5committest
Diffstat (limited to 'src/H5.c')
| -rw-r--r-- | src/H5.c | 94 |
1 files changed, 94 insertions, 0 deletions
@@ -1723,6 +1723,32 @@ H5_trace (const double *returning, const char *func, const char *type, ...) } break; + case 's': + if (ptr) { + if (vp) { + fprintf (out, "0x%lx", (unsigned long)vp); + } else { + fprintf(out, "NULL"); + } + } else { + H5D_space_status_t space_status = va_arg(ap, H5D_space_status_t); + switch (space_status) { + case H5D_SPACE_STATUS_NOT_ALLOCATED: + fprintf (out, "H5D_SPACE_STATUS_NOT_ALLOCATED"); + break; + case H5D_SPACE_STATUS_PART_ALLOCATED: + fprintf (out, "H5D_SPACE_STATUS_PART_ALLOCATED"); + break; + case H5D_SPACE_STATUS_ALLOCATED: + fprintf (out, "H5D_SPACE_STATUS_ALLOCATED"); + break; + default: + fprintf (out, "%ld", (long)space_status); + break; + } + } + break; + case 't': if (ptr) { if (vp) { @@ -1805,6 +1831,29 @@ H5_trace (const double *returning, const char *func, const char *type, ...) } break; + case 't': + if (ptr) { + if (vp) { + fprintf (out, "0x%lx", (unsigned long)vp); + } else { + fprintf(out, "NULL"); + } + } else { + H5E_type_t etype = va_arg (ap, H5E_type_t); + switch (etype) { + case H5E_MAJOR: + fprintf (out, "H5E_MAJOR"); + break; + case H5E_MINOR: + fprintf (out, "H5E_MINOR"); + break; + default: + fprintf (out, "%ld", (long)etype); + break; + } + } + break; + default: fprintf (out, "BADTYPE(E%c)", type[1]); goto error; @@ -1897,6 +1946,38 @@ H5_trace (const double *returning, const char *func, const char *type, ...) } break; + case 'o': + if (ptr) { + if (vp) { + fprintf (out, "0x%lx", (unsigned long)vp); + } else { + fprintf(out, "NULL"); + } + } else { + H5G_obj_t obj_type = va_arg (ap, H5G_obj_t); + switch (obj_type) { + case H5G_UNKNOWN: + fprintf (out, "H5G_UNKNOWN"); + break; + case H5G_LINK: + fprintf (out, "H5G_LINK"); + break; + case H5G_GROUP: + fprintf (out, "H5G_GROUP"); + break; + case H5G_DATASET: + fprintf (out, "H5G_DATASET"); + break; + case H5G_TYPE: + fprintf (out, "H5G_TYPE"); + break; + default: + fprintf (out, "%ld", (long)obj_type); + break; + } + } + break; + case 's': if (ptr) { if (vp) { @@ -2853,6 +2934,19 @@ H5_trace (const double *returning, const char *func, const char *type, ...) case 'Z': switch (type[1]) { + case 'c': + if (ptr) { + if (vp) { + fprintf (out, "0x%lx", (unsigned long)vp); + } else { + fprintf(out, "NULL"); + } + } else { + H5Z_class_t *filter = va_arg (ap, H5Z_class_t*); + fprintf (out, "0x%lx", (unsigned long)filter); + } + break; + case 'e': if (ptr) { if (vp) { |