summaryrefslogtreecommitdiffstats
path: root/src/H5Tconv.c
diff options
context:
space:
mode:
Diffstat (limited to 'src/H5Tconv.c')
-rw-r--r--src/H5Tconv.c174
1 files changed, 84 insertions, 90 deletions
diff --git a/src/H5Tconv.c b/src/H5Tconv.c
index 8fcfe02..739876d 100644
--- a/src/H5Tconv.c
+++ b/src/H5Tconv.c
@@ -5,29 +5,28 @@
* Programmer: Robb Matzke <robb@arborea.spizella.com>
* Tuesday, January 13, 1998
*
- * Purpose: Data type conversions.
+ * Purpose: Data type conversions.
*/
-#define H5T_PACKAGE /*suppress error about including H5Tpkg */
+#define H5T_PACKAGE /*suppress error about including H5Tpkg */
#include <H5Eprivate.h>
#include <H5Tpkg.h>
/* Interface initialization */
-static intn interface_initialize_g = FALSE;
+static intn interface_initialize_g = FALSE;
#define INTERFACE_INIT NULL
-
/*-------------------------------------------------------------------------
- * Function: H5T_conv_noop
+ * Function: H5T_conv_noop
*
- * Purpose: The no-op conversion. The library knows about this
- * conversion without it being registered.
+ * Purpose: The no-op conversion. The library knows about this
+ * conversion without it being registered.
*
- * Return: Success: SUCCEED
+ * Return: Success: SUCCEED
*
- * Failure: never fails
+ * Failure: never fails
*
- * Programmer: Robb Matzke
+ * Programmer: Robb Matzke
* Wednesday, January 14, 1998
*
* Modifications:
@@ -35,27 +34,26 @@ static intn interface_initialize_g = FALSE;
*-------------------------------------------------------------------------
*/
herr_t
-H5T_conv_noop (hid_t src_id, hid_t dst_id, size_t nelmts,
- void *buf, const void *background)
+H5T_conv_noop(hid_t src_id, hid_t dst_id, size_t nelmts,
+ void *buf, const void *background)
{
- FUNC_ENTER (H5T_conv_noop, FAIL);
- FUNC_LEAVE (SUCCEED);
+ FUNC_ENTER(H5T_conv_noop, FAIL);
+ FUNC_LEAVE(SUCCEED);
}
-
/*-------------------------------------------------------------------------
- * Function: H5T_conv_order
+ * Function: H5T_conv_order
*
- * Purpose: Convert one type to another when byte order is the only
- * difference.
+ * Purpose: Convert one type to another when byte order is the only
+ * difference.
*
- * Note: This is a soft conversion function.
+ * Note: This is a soft conversion function.
*
- * Return: Success: SUCCEED
+ * Return: Success: SUCCEED
*
- * Failure: FAIL
+ * Failure: FAIL
*
- * Programmer: Robb Matzke
+ * Programmer: Robb Matzke
* Tuesday, January 13, 1998
*
* Modifications:
@@ -63,78 +61,74 @@ H5T_conv_noop (hid_t src_id, hid_t dst_id, size_t nelmts,
*-------------------------------------------------------------------------
*/
herr_t
-H5T_conv_order (hid_t src_id, hid_t dst_id, size_t nelmts,
- void *_buf, const void *background)
+H5T_conv_order(hid_t src_id, hid_t dst_id, size_t nelmts,
+ void *_buf, const void *background)
{
- uint8 *buf = (uint8*)_buf;
- uint8 tmp;
- H5T_t *src = NULL;
- H5T_t *dst = NULL;
- intn i, j, md;
-
- FUNC_ENTER (H5T_conv_order, FAIL);
+ uint8 *buf = (uint8 *) _buf;
+ uint8 tmp;
+ H5T_t *src = NULL;
+ H5T_t *dst = NULL;
+ intn i, j, md;
- /* Check args */
- if (H5_DATATYPE!=H5Aatom_group (src_id) ||
- NULL==(src=H5Aatom_object (src_id)) ||
- H5_DATATYPE!=H5Aatom_group (dst_id) ||
- NULL==(dst=H5Aatom_object (dst_id))) {
- HRETURN_ERROR (H5E_ARGS, H5E_BADTYPE, FAIL, "not a data type");
- }
- if (background) {
- HRETURN_ERROR (H5E_ARGS, H5E_UNSUPPORTED, FAIL,
- "background values not supported in this conv path");
- }
-
- if (!buf) {
- /* Capability query */
- if (src->size!=dst->size ||
- 0!=src->u.atomic.offset ||
- 0!=dst->u.atomic.offset ||
- !((H5T_ORDER_BE==src->u.atomic.order &&
- H5T_ORDER_LE==dst->u.atomic.order) ||
- (H5T_ORDER_LE==src->u.atomic.order &&
- H5T_ORDER_BE==dst->u.atomic.order))) {
- HRETURN_ERROR (H5E_DATATYPE, H5E_UNSUPPORTED, FAIL,
- "conversion not supported");
- }
-
- switch (src->type) {
- case H5T_INTEGER:
- /* nothing to check */
- break;
+ FUNC_ENTER(H5T_conv_order, FAIL);
- case H5T_FLOAT:
- if (src->u.atomic.u.f.sign!=dst->u.atomic.u.f.sign ||
- src->u.atomic.u.f.epos!=dst->u.atomic.u.f.epos ||
- src->u.atomic.u.f.esize!=dst->u.atomic.u.f.esize ||
- src->u.atomic.u.f.ebias!=dst->u.atomic.u.f.ebias ||
- src->u.atomic.u.f.mpos!=dst->u.atomic.u.f.mpos ||
- src->u.atomic.u.f.msize!=dst->u.atomic.u.f.msize ||
- src->u.atomic.u.f.norm!=dst->u.atomic.u.f.norm ||
- src->u.atomic.u.f.pad!=dst->u.atomic.u.f.pad) {
- HRETURN_ERROR (H5E_DATATYPE, H5E_UNSUPPORTED, FAIL,
- "conversion not supported");
- }
- break;
+ /* Check args */
+ if (H5_DATATYPE != H5Aatom_group(src_id) ||
+ NULL == (src = H5Aatom_object(src_id)) ||
+ H5_DATATYPE != H5Aatom_group(dst_id) ||
+ NULL == (dst = H5Aatom_object(dst_id))) {
+ HRETURN_ERROR(H5E_ARGS, H5E_BADTYPE, FAIL, "not a data type");
+ }
+ if (background) {
+ HRETURN_ERROR(H5E_ARGS, H5E_UNSUPPORTED, FAIL,
+ "background values not supported in this conv path");
+ }
+ if (!buf) {
+ /* Capability query */
+ if (src->size != dst->size ||
+ 0 != src->u.atomic.offset ||
+ 0 != dst->u.atomic.offset ||
+ !((H5T_ORDER_BE == src->u.atomic.order &&
+ H5T_ORDER_LE == dst->u.atomic.order) ||
+ (H5T_ORDER_LE == src->u.atomic.order &&
+ H5T_ORDER_BE == dst->u.atomic.order))) {
+ HRETURN_ERROR(H5E_DATATYPE, H5E_UNSUPPORTED, FAIL,
+ "conversion not supported");
+ }
+ switch (src->type) {
+ case H5T_INTEGER:
+ /* nothing to check */
+ break;
- default:
- HRETURN_ERROR (H5E_DATATYPE, H5E_UNSUPPORTED, FAIL,
- "conversion not supported");
- }
- HRETURN (SUCCEED);
- }
-
+ case H5T_FLOAT:
+ if (src->u.atomic.u.f.sign != dst->u.atomic.u.f.sign ||
+ src->u.atomic.u.f.epos != dst->u.atomic.u.f.epos ||
+ src->u.atomic.u.f.esize != dst->u.atomic.u.f.esize ||
+ src->u.atomic.u.f.ebias != dst->u.atomic.u.f.ebias ||
+ src->u.atomic.u.f.mpos != dst->u.atomic.u.f.mpos ||
+ src->u.atomic.u.f.msize != dst->u.atomic.u.f.msize ||
+ src->u.atomic.u.f.norm != dst->u.atomic.u.f.norm ||
+ src->u.atomic.u.f.pad != dst->u.atomic.u.f.pad) {
+ HRETURN_ERROR(H5E_DATATYPE, H5E_UNSUPPORTED, FAIL,
+ "conversion not supported");
+ }
+ break;
- /* The conversion */
- md = src->size / 2;
- for (i=0; i<nelmts; i++, buf+=src->size) {
- for (j=0; j<md; j++) {
- tmp = buf[j];
- buf[j] = buf[src->size-(j+1)];
- buf[src->size-(j+1)] = tmp;
- }
- }
+ default:
+ HRETURN_ERROR(H5E_DATATYPE, H5E_UNSUPPORTED, FAIL,
+ "conversion not supported");
+ }
+ HRETURN(SUCCEED);
+ }
+ /* The conversion */
+ md = src->size / 2;
+ for (i = 0; i < nelmts; i++, buf += src->size) {
+ for (j = 0; j < md; j++) {
+ tmp = buf[j];
+ buf[j] = buf[src->size - (j + 1)];
+ buf[src->size - (j + 1)] = tmp;
+ }
+ }
- FUNC_LEAVE (SUCCEED);
+ FUNC_LEAVE(SUCCEED);
}
generated by cgit v0.12 at 2024-07-04 20:30:15 (GMT)