/* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

 * 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:   H5Pdxpl.c

 *

 * Purpose:   Data transfer property list class routines

 *

 *-------------------------------------------------------------------------

 */

/****************/

/* Module Setup */

/****************/

#include "H5Pmodule.h" /* This source code file is part of the H5P module */

/***********/

/* Headers */

/***********/

#include "H5private.h"   /* Generic Functions                        */

#include "H5Dprivate.h"  /* Datasets                                 */

#include "H5Eprivate.h"  /* Error handling                           */

#include "H5FDprivate.h" /* File drivers                             */

#include "H5MMprivate.h" /* Memory management                        */

#include "H5Ppkg.h"      /* Property lists                           */

#include "H5VMprivate.h" /* Vector Functions                         */

/****************/

/* Local Macros */

/****************/

/* ======== Data transfer properties ======== */

/* Definitions for maximum temp buffer size property */

#define H5D_XFER_MAX_TEMP_BUF_SIZE sizeof(size_t)

#define H5D_XFER_MAX_TEMP_BUF_DEF  H5D_TEMP_BUF_SIZE

#define H5D_XFER_MAX_TEMP_BUF_ENC  H5P__encode_size_t

#define H5D_XFER_MAX_TEMP_BUF_DEC  H5P__decode_size_t

/* Definitions for type conversion buffer property */

#define H5D_XFER_TCONV_BUF_SIZE sizeof(void *)

#define H5D_XFER_TCONV_BUF_DEF  NULL

/* Definitions for background buffer property */

#define H5D_XFER_BKGR_BUF_SIZE sizeof(void *)

#define H5D_XFER_BKGR_BUF_DEF  NULL

/* Definitions for background buffer type property */

#define H5D_XFER_BKGR_BUF_TYPE_SIZE sizeof(H5T_bkg_t)

#define H5D_XFER_BKGR_BUF_TYPE_DEF  H5T_BKG_NO

#define H5D_XFER_BKGR_BUF_TYPE_ENC  H5P__dxfr_bkgr_buf_type_enc

#define H5D_XFER_BKGR_BUF_TYPE_DEC  H5P__dxfr_bkgr_buf_type_dec

/* Definitions for B-tree node splitting ratio property */

/* (These default B-tree node splitting ratios are also used for splitting

 * group's B-trees as well as chunked dataset's B-trees - QAK)

 */

#define H5D_XFER_BTREE_SPLIT_RATIO_SIZE sizeof(double[3])

#define H5D_XFER_BTREE_SPLIT_RATIO_DEF                                                                       \

    {                                                                                                        \

        0.1, 0.5, 0.9                                                                                        \

    }

#define H5D_XFER_BTREE_SPLIT_RATIO_ENC H5P__dxfr_btree_split_ratio_enc

#define H5D_XFER_BTREE_SPLIT_RATIO_DEC H5P__dxfr_btree_split_ratio_dec

/* Definitions for vlen allocation function property */

#define H5D_XFER_VLEN_ALLOC_SIZE sizeof(H5MM_allocate_t)

#define H5D_XFER_VLEN_ALLOC_DEF  H5D_VLEN_ALLOC

/* Definitions for vlen allocation info property */

#define H5D_XFER_VLEN_ALLOC_INFO_SIZE sizeof(void *)

#define H5D_XFER_VLEN_ALLOC_INFO_DEF  H5D_VLEN_ALLOC_INFO

/* Definitions for vlen free function property */

#define H5D_XFER_VLEN_FREE_SIZE sizeof(H5MM_free_t)

#define H5D_XFER_VLEN_FREE_DEF  H5D_VLEN_FREE

/* Definitions for vlen free info property */

#define H5D_XFER_VLEN_FREE_INFO_SIZE sizeof(void *)

#define H5D_XFER_VLEN_FREE_INFO_DEF  H5D_VLEN_FREE_INFO

/* Definitions for hyperslab vector size property */

/* (Be cautious about increasing the default size, there are arrays allocated

 *      on the stack which depend on it - QAK)

 */

#define H5D_XFER_HYPER_VECTOR_SIZE_SIZE sizeof(size_t)

#define H5D_XFER_HYPER_VECTOR_SIZE_DEF  H5D_IO_VECTOR_SIZE

#define H5D_XFER_HYPER_VECTOR_SIZE_ENC  H5P__encode_size_t

#define H5D_XFER_HYPER_VECTOR_SIZE_DEC  H5P__decode_size_t

/* Parallel I/O properties */

/* Note: Some of these are registered with the DXPL class even when parallel

 *      is disabled, so that property list comparisons of encoded property

 *      lists (between parallel & non-parallel builds) work properly. -QAK

 */

/* Definitions for I/O transfer mode property */

#define H5D_XFER_IO_XFER_MODE_SIZE sizeof(H5FD_mpio_xfer_t)

#define H5D_XFER_IO_XFER_MODE_DEF  H5FD_MPIO_INDEPENDENT

#define H5D_XFER_IO_XFER_MODE_ENC  H5P__dxfr_io_xfer_mode_enc

#define H5D_XFER_IO_XFER_MODE_DEC  H5P__dxfr_io_xfer_mode_dec

/* Definitions for optimization of MPI-IO transfer mode property */

#define H5D_XFER_MPIO_COLLECTIVE_OPT_SIZE  sizeof(H5FD_mpio_collective_opt_t)

#define H5D_XFER_MPIO_COLLECTIVE_OPT_DEF   H5FD_MPIO_COLLECTIVE_IO

#define H5D_XFER_MPIO_COLLECTIVE_OPT_ENC   H5P__dxfr_mpio_collective_opt_enc

#define H5D_XFER_MPIO_COLLECTIVE_OPT_DEC   H5P__dxfr_mpio_collective_opt_dec

#define H5D_XFER_MPIO_CHUNK_OPT_HARD_SIZE  sizeof(H5FD_mpio_chunk_opt_t)

#define H5D_XFER_MPIO_CHUNK_OPT_HARD_DEF   H5FD_MPIO_CHUNK_DEFAULT

#define H5D_XFER_MPIO_CHUNK_OPT_HARD_ENC   H5P__dxfr_mpio_chunk_opt_hard_enc

#define H5D_XFER_MPIO_CHUNK_OPT_HARD_DEC   H5P__dxfr_mpio_chunk_opt_hard_dec

#define H5D_XFER_MPIO_CHUNK_OPT_NUM_SIZE   sizeof(unsigned)

#define H5D_XFER_MPIO_CHUNK_OPT_NUM_DEF    H5D_ONE_LINK_CHUNK_IO_THRESHOLD

#define H5D_XFER_MPIO_CHUNK_OPT_NUM_ENC    H5P__encode_unsigned

#define H5D_XFER_MPIO_CHUNK_OPT_NUM_DEC    H5P__decode_unsigned

#define H5D_XFER_MPIO_CHUNK_OPT_RATIO_SIZE sizeof(unsigned)

#define H5D_XFER_MPIO_CHUNK_OPT_RATIO_DEF  H5D_MULTI_CHUNK_IO_COL_THRESHOLD

#define H5D_XFER_MPIO_CHUNK_OPT_RATIO_ENC  H5P__encode_unsigned

#define H5D_XFER_MPIO_CHUNK_OPT_RATIO_DEC  H5P__decode_unsigned

/* Definitions for chunk opt mode property. */

#define H5D_MPIO_ACTUAL_CHUNK_OPT_MODE_SIZE sizeof(H5D_mpio_actual_chunk_opt_mode_t)

#define H5D_MPIO_ACTUAL_CHUNK_OPT_MODE_DEF  H5D_MPIO_NO_CHUNK_OPTIMIZATION

/* Definitions for chunk io mode property. */

#define H5D_MPIO_ACTUAL_IO_MODE_SIZE sizeof(H5D_mpio_actual_io_mode_t)

#define H5D_MPIO_ACTUAL_IO_MODE_DEF  H5D_MPIO_NO_COLLECTIVE

/* Definitions for cause of broken collective io property */

#define H5D_MPIO_NO_COLLECTIVE_CAUSE_SIZE sizeof(uint32_t)

#define H5D_MPIO_NO_COLLECTIVE_CAUSE_DEF  H5D_MPIO_COLLECTIVE

/* Definitions for EDC property */

#define H5D_XFER_EDC_SIZE sizeof(H5Z_EDC_t)

#define H5D_XFER_EDC_DEF  H5Z_ENABLE_EDC

#define H5D_XFER_EDC_ENC  H5P__dxfr_edc_enc

#define H5D_XFER_EDC_DEC  H5P__dxfr_edc_dec

/* Definitions for filter callback function property */

#define H5D_XFER_FILTER_CB_SIZE sizeof(H5Z_cb_t)

#define H5D_XFER_FILTER_CB_DEF                                                                               \

    {                                                                                                        \

        NULL, NULL                                                                                           \

    }

/* Definitions for type conversion callback function property */

#define H5D_XFER_CONV_CB_SIZE sizeof(H5T_conv_cb_t)

#define H5D_XFER_CONV_CB_DEF                                                                                 \

    {                                                                                                        \

        NULL, NULL                                                                                           \

    }

/* Definitions for data transform property */

#define H5D_XFER_XFORM_SIZE  sizeof(void *)

#define H5D_XFER_XFORM_DEF   NULL

#define H5D_XFER_XFORM_SET   H5P__dxfr_xform_set

#define H5D_XFER_XFORM_GET   H5P__dxfr_xform_get

#define H5D_XFER_XFORM_ENC   H5P__dxfr_xform_enc

#define H5D_XFER_XFORM_DEC   H5P__dxfr_xform_dec

#define H5D_XFER_XFORM_DEL   H5P__dxfr_xform_del

#define H5D_XFER_XFORM_COPY  H5P__dxfr_xform_copy

#define H5D_XFER_XFORM_CMP   H5P__dxfr_xform_cmp

#define H5D_XFER_XFORM_CLOSE H5P__dxfr_xform_close

/* Definitions for dataset I/O selection property */

#define H5D_XFER_DSET_IO_SEL_SIZE  sizeof(H5S_t *)

#define H5D_XFER_DSET_IO_SEL_DEF   NULL

#define H5D_XFER_DSET_IO_SEL_COPY  H5P__dxfr_dset_io_hyp_sel_copy

#define H5D_XFER_DSET_IO_SEL_CMP   H5P__dxfr_dset_io_hyp_sel_cmp

#define H5D_XFER_DSET_IO_SEL_CLOSE H5P__dxfr_dset_io_hyp_sel_close

#ifdef QAK

#define H5D_XFER_DSET_IO_SEL_ENC H5P__dxfr_edc_enc

#define H5D_XFER_DSET_IO_SEL_DEC H5P__dxfr_edc_dec

#endif /* QAK */

/* Definition for selection I/O mode property */

#define H5D_XFER_SELECTION_IO_MODE_SIZE sizeof(H5D_selection_io_mode_t)

#define H5D_XFER_SELECTION_IO_MODE_DEF  H5D_SELECTION_IO_MODE_DEFAULT

#define H5D_XFER_SELECTION_IO_MODE_ENC  H5P__dxfr_selection_io_mode_enc

#define H5D_XFER_SELECTION_IO_MODE_DEC  H5P__dxfr_selection_io_mode_dec

/* Definitions for cause of no selection I/O property */

#define H5D_XFER_NO_SELECTION_IO_CAUSE_SIZE sizeof(uint32_t)

#define H5D_XFER_NO_SELECTION_IO_CAUSE_DEF  0

/* Definitions for actual selection I/O mode property */

#define H5D_XFER_ACTUAL_SELECTION_IO_MODE_SIZE sizeof(uint32_t)

#define H5D_XFER_ACTUAL_SELECTION_IO_MODE_DEF  0

/* Definitions for modify write buffer property */

#define H5D_XFER_MODIFY_WRITE_BUF_SIZE sizeof(bool)

#define H5D_XFER_MODIFY_WRITE_BUF_DEF  false

#define H5D_XFER_MODIFY_WRITE_BUF_ENC  H5P__dxfr_modify_write_buf_enc

#define H5D_XFER_MODIFY_WRITE_BUF_DEC  H5P__dxfr_modify_write_buf_dec

/******************/

/* Local Typedefs */

/******************/

/********************/

/* Package Typedefs */

/********************/

/********************/

/* Local Prototypes */

/********************/

/* Property class callbacks */

static herr_t H5P__dxfr_reg_prop(H5P_genclass_t *pclass);

/* Property list callbacks */

static herr_t H5P__dxfr_bkgr_buf_type_enc(const void *value, void **pp, size_t *size);

static herr_t H5P__dxfr_bkgr_buf_type_dec(const void **pp, void *value);

static herr_t H5P__dxfr_btree_split_ratio_enc(const void *value, void **pp, size_t *size);

static herr_t H5P__dxfr_btree_split_ratio_dec(const void **pp, void *value);

static herr_t H5P__dxfr_io_xfer_mode_enc(const void *value, void **pp, size_t *size);

static herr_t H5P__dxfr_io_xfer_mode_dec(const void **pp, void *value);

static herr_t H5P__dxfr_mpio_collective_opt_enc(const void *value, void **pp, size_t *size);

static herr_t H5P__dxfr_mpio_collective_opt_dec(const void **pp, void *value);

static herr_t H5P__dxfr_mpio_chunk_opt_hard_enc(const void *value, void **pp, size_t *size);

static herr_t H5P__dxfr_mpio_chunk_opt_hard_dec(const void **pp, void *value);

static herr_t H5P__dxfr_edc_enc(const void *value, void **pp, size_t *size);

static herr_t H5P__dxfr_edc_dec(const void **pp, void *value);

static herr_t H5P__dxfr_xform_set(hid_t prop_id, const char *name, size_t size, void *value);

static herr_t H5P__dxfr_xform_get(hid_t prop_id, const char *name, size_t size, void *value);

static herr_t H5P__dxfr_xform_enc(const void *value, void **pp, size_t *size);

static herr_t H5P__dxfr_xform_dec(const void **pp, void *value);

static herr_t H5P__dxfr_xform_del(hid_t prop_id, const char *name, size_t size, void *value);

static herr_t H5P__dxfr_xform_copy(const char *name, size_t size, void *value);

static int    H5P__dxfr_xform_cmp(const void *value1, const void *value2, size_t size);

static herr_t H5P__dxfr_xform_close(const char *name, size_t size, void *value);

static herr_t H5P__dxfr_dset_io_hyp_sel_copy(const char *name, size_t size, void *value);

static int    H5P__dxfr_dset_io_hyp_sel_cmp(const void *value1, const void *value2, size_t size);

static herr_t H5P__dxfr_dset_io_hyp_sel_close(const char *name, size_t size, void *value);

static herr_t H5P__dxfr_selection_io_mode_enc(const void *value, void **pp, size_t *size);

static herr_t H5P__dxfr_selection_io_mode_dec(const void **pp, void *value);

static herr_t H5P__dxfr_modify_write_buf_enc(const void *value, void **pp, size_t *size);

static herr_t H5P__dxfr_modify_write_buf_dec(const void **pp, void *value);

/*********************/

/* Package Variables */

/*********************/

/* Data transfer property list class library initialization object */

const H5P_libclass_t H5P_CLS_DXFR[1] = {{

    "data transfer",       /* Class name for debugging     */

    H5P_TYPE_DATASET_XFER, /* Class type                   */

    &H5P_CLS_ROOT_g,            /* Parent class                 */

    &H5P_CLS_DATASET_XFER_g,    /* Pointer to class             */

    &H5P_CLS_DATASET_XFER_ID_g, /* Pointer to class ID          */

    &H5P_LST_DATASET_XFER_ID_g, /* Pointer to default property list ID */

    H5P__dxfr_reg_prop,         /* Default property registration routine */

    NULL, /* Class creation callback      */

    NULL, /* Class creation callback info */

    NULL, /* Class copy callback          */

    NULL, /* Class copy callback info     */

    NULL, /* Class close callback         */

    NULL  /* Class close callback info    */

}};

/*****************************/

/* Library Private Variables */

/*****************************/

/***************************/

/* Local Private Variables */

/***************************/

/* Property value defaults */

static const size_t H5D_def_max_temp_buf_g =

    H5D_XFER_MAX_TEMP_BUF_DEF; /* Default value for maximum temp buffer size */

static const void *H5D_def_tconv_buf_g =

    H5D_XFER_TCONV_BUF_DEF; /* Default value for type conversion buffer */

static const void     *H5D_def_bkgr_buf_g = H5D_XFER_BKGR_BUF_DEF; /* Default value for background buffer */

static const H5T_bkg_t H5D_def_bkgr_buf_type_g = H5D_XFER_BKGR_BUF_TYPE_DEF;

static const double    H5D_def_btree_split_ratio_g[3] =

    H5D_XFER_BTREE_SPLIT_RATIO_DEF; /* Default value for B-tree node split ratios */

static const H5MM_allocate_t H5D_def_vlen_alloc_g =

    H5D_XFER_VLEN_ALLOC_DEF; /* Default value for vlen allocation function */

static const void *H5D_def_vlen_alloc_info_g =

    H5D_XFER_VLEN_ALLOC_INFO_DEF; /* Default value for vlen allocation information */

static const H5MM_free_t H5D_def_vlen_free_g =

    H5D_XFER_VLEN_FREE_DEF; /* Default value for vlen free function */

static const void *H5D_def_vlen_free_info_g =

    H5D_XFER_VLEN_FREE_INFO_DEF; /* Default value for vlen free information */

static const size_t H5D_def_hyp_vec_size_g =

    H5D_XFER_HYPER_VECTOR_SIZE_DEF; /* Default value for vector size */

static const H5FD_mpio_xfer_t H5D_def_io_xfer_mode_g =

    H5D_XFER_IO_XFER_MODE_DEF; /* Default value for I/O transfer mode */

static const H5FD_mpio_chunk_opt_t      H5D_def_mpio_chunk_opt_mode_g      = H5D_XFER_MPIO_CHUNK_OPT_HARD_DEF;

static const H5FD_mpio_collective_opt_t H5D_def_mpio_collective_opt_mode_g = H5D_XFER_MPIO_COLLECTIVE_OPT_DEF;

static const unsigned                   H5D_def_mpio_chunk_opt_num_g       = H5D_XFER_MPIO_CHUNK_OPT_NUM_DEF;

static const unsigned                   H5D_def_mpio_chunk_opt_ratio_g = H5D_XFER_MPIO_CHUNK_OPT_RATIO_DEF;

static const H5D_mpio_actual_chunk_opt_mode_t H5D_def_mpio_actual_chunk_opt_mode_g =

    H5D_MPIO_ACTUAL_CHUNK_OPT_MODE_DEF;

static const H5D_mpio_actual_io_mode_t      H5D_def_mpio_actual_io_mode_g = H5D_MPIO_ACTUAL_IO_MODE_DEF;

static const H5D_mpio_no_collective_cause_t H5D_def_mpio_no_collective_cause_g =

    H5D_MPIO_NO_COLLECTIVE_CAUSE_DEF;

static const H5Z_EDC_t H5D_def_enable_edc_g = H5D_XFER_EDC_DEF;       /* Default value for EDC property */

static const H5Z_cb_t  H5D_def_filter_cb_g  = H5D_XFER_FILTER_CB_DEF; /* Default value for filter callback */

static const H5T_conv_cb_t H5D_def_conv_cb_g =

    H5D_XFER_CONV_CB_DEF; /* Default value for datatype conversion callback */

static const void  *H5D_def_xfer_xform_g = H5D_XFER_XFORM_DEF; /* Default value for data transform */

static const H5S_t *H5D_def_dset_io_sel_g =

    H5D_XFER_DSET_IO_SEL_DEF; /* Default value for dataset I/O selection */

static const H5D_selection_io_mode_t H5D_def_selection_io_mode_g     = H5D_XFER_SELECTION_IO_MODE_DEF;

static const uint32_t                H5D_def_no_selection_io_cause_g = H5D_XFER_NO_SELECTION_IO_CAUSE_DEF;

static const uint32_t H5D_def_actual_selection_io_mode_g             = H5D_XFER_ACTUAL_SELECTION_IO_MODE_DEF;

static const bool     H5D_def_modify_write_buf_g                     = H5D_XFER_MODIFY_WRITE_BUF_DEF;

/*-------------------------------------------------------------------------

 * Function:    H5P__dxfr_reg_prop

 *

 * Purpose:     Register the data transfer property list class's properties

 *

 * Return:      Non-negative on success/Negative on failure

 *

 *-------------------------------------------------------------------------

 */

static herr_t

H5P__dxfr_reg_prop(H5P_genclass_t *pclass)

{

    herr_t ret_value = SUCCEED; /* Return value */

    FUNC_ENTER_PACKAGE

    /* Register the max. temp buffer size property */

    if (H5P__register_real(pclass, H5D_XFER_MAX_TEMP_BUF_NAME, H5D_XFER_MAX_TEMP_BUF_SIZE,

                           &H5D_def_max_temp_buf_g, NULL, NULL, NULL, H5D_XFER_MAX_TEMP_BUF_ENC,

                           H5D_XFER_MAX_TEMP_BUF_DEC, NULL, NULL, NULL, NULL) < 0)

        HGOTO_ERROR(H5E_PLIST, H5E_CANTINSERT, FAIL, "can't insert property into class");

    /* Register the type conversion buffer property */

    /* (Note: this property should not have an encode/decode callback -QAK) */

    if (H5P__register_real(pclass, H5D_XFER_TCONV_BUF_NAME, H5D_XFER_TCONV_BUF_SIZE, &H5D_def_tconv_buf_g,

                           NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL) < 0)

        HGOTO_ERROR(H5E_PLIST, H5E_CANTINSERT, FAIL, "can't insert property into class");

    /* Register the background buffer property */

    /* (Note: this property should not have an encode/decode callback -QAK) */

    if (H5P__register_real(pclass, H5D_XFER_BKGR_BUF_NAME, H5D_XFER_BKGR_BUF_SIZE, &H5D_def_bkgr_buf_g, NULL,

                           NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL) < 0)

        HGOTO_ERROR(H5E_PLIST, H5E_CANTINSERT, FAIL, "can't insert property into class");

    /* Register the background buffer type property */

    if (H5P__register_real(pclass, H5D_XFER_BKGR_BUF_TYPE_NAME, H5D_XFER_BKGR_BUF_TYPE_SIZE,

                           &H5D_def_bkgr_buf_type_g, NULL, NULL, NULL, H5D_XFER_BKGR_BUF_TYPE_ENC,

                           H5D_XFER_BKGR_BUF_TYPE_DEC, NULL, NULL, NULL, NULL) < 0)

        HGOTO_ERROR(H5E_PLIST, H5E_CANTINSERT, FAIL, "can't insert property into class");

    /* Register the B-Tree node splitting ratios property */

    if (H5P__register_real(pclass, H5D_XFER_BTREE_SPLIT_RATIO_NAME, H5D_XFER_BTREE_SPLIT_RATIO_SIZE,

                           H5D_def_btree_split_ratio_g, NULL, NULL, NULL, H5D_XFER_BTREE_SPLIT_RATIO_ENC,

                           H5D_XFER_BTREE_SPLIT_RATIO_DEC, NULL, NULL, NULL, NULL) < 0)

        HGOTO_ERROR(H5E_PLIST, H5E_CANTINSERT, FAIL, "can't insert property into class");

    /* Register the vlen allocation function property */

    /* (Note: this property should not have an encode/decode callback -QAK) */

    if (H5P__register_real(pclass, H5D_XFER_VLEN_ALLOC_NAME, H5D_XFER_VLEN_ALLOC_SIZE, &H5D_def_vlen_alloc_g,

                           NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL) < 0)

        HGOTO_ERROR(H5E_PLIST, H5E_CANTINSERT, FAIL, "can't insert property into class");

    /* Register the vlen allocation information property */

    /* (Note: this property should not have an encode/decode callback -QAK) */

    if (H5P__register_real(pclass, H5D_XFER_VLEN_ALLOC_INFO_NAME, H5D_XFER_VLEN_ALLOC_INFO_SIZE,

                           &H5D_def_vlen_alloc_info_g, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL,

                           NULL) < 0)

        HGOTO_ERROR(H5E_PLIST, H5E_CANTINSERT, FAIL, "can't insert property into class");

    /* Register the vlen free function property */

    /* (Note: this property should not have an encode/decode callback -QAK) */

    if (H5P__register_real(pclass, H5D_XFER_VLEN_FREE_NAME, H5D_XFER_VLEN_FREE_SIZE, &H5D_def_vlen_free_g,

                           NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL) < 0)

        HGOTO_ERROR(H5E_PLIST, H5E_CANTINSERT, FAIL, "can't insert property into class");

    /* Register the vlen free information property */

    /* (Note: this property should not have an encode/decode callback -QAK) */

    if (H5P__register_real(pclass, H5D_XFER_VLEN_FREE_INFO_NAME, H5D_XFER_VLEN_FREE_INFO_SIZE,

                           &H5D_def_vlen_free_info_g, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL,

                           NULL) < 0)

        HGOTO_ERROR(H5E_PLIST, H5E_CANTINSERT, FAIL, "can't insert property into class");

    /* Register the vector size property */

    if (H5P__register_real(pclass, H5D_XFER_HYPER_VECTOR_SIZE_NAME, H5D_XFER_HYPER_VECTOR_SIZE_SIZE,

                           &H5D_def_hyp_vec_size_g, NULL, NULL, NULL, H5D_XFER_HYPER_VECTOR_SIZE_ENC,

                           H5D_XFER_HYPER_VECTOR_SIZE_DEC, NULL, NULL, NULL, NULL) < 0)

        HGOTO_ERROR(H5E_PLIST, H5E_CANTINSERT, FAIL, "can't insert property into class");

    /* Register the I/O transfer mode properties */

    if (H5P__register_real(pclass, H5D_XFER_IO_XFER_MODE_NAME, H5D_XFER_IO_XFER_MODE_SIZE,

                           &H5D_def_io_xfer_mode_g, NULL, NULL, NULL, H5D_XFER_IO_XFER_MODE_ENC,

                           H5D_XFER_IO_XFER_MODE_DEC, NULL, NULL, NULL, NULL) < 0)

        HGOTO_ERROR(H5E_PLIST, H5E_CANTINSERT, FAIL, "can't insert property into class");

    if (H5P__register_real(pclass, H5D_XFER_MPIO_COLLECTIVE_OPT_NAME, H5D_XFER_MPIO_COLLECTIVE_OPT_SIZE,

                           &H5D_def_mpio_collective_opt_mode_g, NULL, NULL, NULL,

                           H5D_XFER_MPIO_COLLECTIVE_OPT_ENC, H5D_XFER_MPIO_COLLECTIVE_OPT_DEC, NULL, NULL,

                           NULL, NULL) < 0)

        HGOTO_ERROR(H5E_PLIST, H5E_CANTINSERT, FAIL, "can't insert property into class");

    if (H5P__register_real(pclass, H5D_XFER_MPIO_CHUNK_OPT_HARD_NAME, H5D_XFER_MPIO_CHUNK_OPT_HARD_SIZE,

                           &H5D_def_mpio_chunk_opt_mode_g, NULL, NULL, NULL, H5D_XFER_MPIO_CHUNK_OPT_HARD_ENC,

                           H5D_XFER_MPIO_CHUNK_OPT_HARD_DEC, NULL, NULL, NULL, NULL) < 0)

        HGOTO_ERROR(H5E_PLIST, H5E_CANTINSERT, FAIL, "can't insert property into class");

    if (H5P__register_real(pclass, H5D_XFER_MPIO_CHUNK_OPT_NUM_NAME, H5D_XFER_MPIO_CHUNK_OPT_NUM_SIZE,

                           &H5D_def_mpio_chunk_opt_num_g, NULL, NULL, NULL, H5D_XFER_MPIO_CHUNK_OPT_NUM_ENC,

                           H5D_XFER_MPIO_CHUNK_OPT_NUM_DEC, NULL, NULL, NULL, NULL) < 0)

        HGOTO_ERROR(H5E_PLIST, H5E_CANTINSERT, FAIL, "can't insert property into class");

    if (H5P__register_real(pclass, H5D_XFER_MPIO_CHUNK_OPT_RATIO_NAME, H5D_XFER_MPIO_CHUNK_OPT_RATIO_SIZE,

                           &H5D_def_mpio_chunk_opt_ratio_g, NULL, NULL, NULL,

                           H5D_XFER_MPIO_CHUNK_OPT_RATIO_ENC, H5D_XFER_MPIO_CHUNK_OPT_RATIO_DEC, NULL, NULL,

                           NULL, NULL) < 0)

        HGOTO_ERROR(H5E_PLIST, H5E_CANTINSERT, FAIL, "can't insert property into class");

    /* Register the chunk optimization mode property. */

    /* (Note: this property should not have an encode/decode callback -QAK) */

    if (H5P__register_real(pclass, H5D_MPIO_ACTUAL_CHUNK_OPT_MODE_NAME, H5D_MPIO_ACTUAL_CHUNK_OPT_MODE_SIZE,

                           &H5D_def_mpio_actual_chunk_opt_mode_g, NULL, NULL, NULL, NULL, NULL, NULL, NULL,

                           NULL, NULL) < 0)

        HGOTO_ERROR(H5E_PLIST, H5E_CANTINSERT, FAIL, "can't insert property into class");

    /* Register the actual I/O mode property. */

    /* (Note: this property should not have an encode/decode callback -QAK) */

    if (H5P__register_real(pclass, H5D_MPIO_ACTUAL_IO_MODE_NAME, H5D_MPIO_ACTUAL_IO_MODE_SIZE,

                           &H5D_def_mpio_actual_io_mode_g, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL,

                           NULL) < 0)

        HGOTO_ERROR(H5E_PLIST, H5E_CANTINSERT, FAIL, "can't insert property into class");

    /* Register the local cause of broken collective I/O */

    /* (Note: this property should not have an encode/decode callback -QAK) */

    if (H5P__register_real(pclass, H5D_MPIO_LOCAL_NO_COLLECTIVE_CAUSE_NAME, H5D_MPIO_NO_COLLECTIVE_CAUSE_SIZE,

                           &H5D_def_mpio_no_collective_cause_g, NULL, NULL, NULL, NULL, NULL, NULL, NULL,

                           NULL, NULL) < 0)

        HGOTO_ERROR(H5E_PLIST, H5E_CANTINSERT, FAIL, "can't insert property into class");

    /* Register the global cause of broken collective I/O */

    /* (Note: this property should not have an encode/decode callback -QAK) */

    if (H5P__register_real(pclass, H5D_MPIO_GLOBAL_NO_COLLECTIVE_CAUSE_NAME,

                           H5D_MPIO_NO_COLLECTIVE_CAUSE_SIZE, &H5D_def_mpio_no_collective_cause_g, NULL, NULL,

                           NULL, NULL, NULL, NULL, NULL, NULL, NULL) < 0)

        HGOTO_ERROR(H5E_PLIST, H5E_CANTINSERT, FAIL, "can't insert property into class");

    /* Register the EDC property */

    if (H5P__register_real(pclass, H5D_XFER_EDC_NAME, H5D_XFER_EDC_SIZE, &H5D_def_enable_edc_g, NULL, NULL,

                           NULL, H5D_XFER_EDC_ENC, H5D_XFER_EDC_DEC, NULL, NULL, NULL, NULL) < 0)

        HGOTO_ERROR(H5E_PLIST, H5E_CANTINSERT, FAIL, "can't insert property into class");

    /* Register the filter callback property */

    /* (Note: this property should not have an encode/decode callback -QAK) */

    if (H5P__register_real(pclass, H5D_XFER_FILTER_CB_NAME, H5D_XFER_FILTER_CB_SIZE, &H5D_def_filter_cb_g,

                           NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL) < 0)

        HGOTO_ERROR(H5E_PLIST, H5E_CANTINSERT, FAIL, "can't insert property into class");

    /* Register the type conversion callback property */

    /* (Note: this property should not have an encode/decode callback -QAK) */

    if (H5P__register_real(pclass, H5D_XFER_CONV_CB_NAME, H5D_XFER_CONV_CB_SIZE, &H5D_def_conv_cb_g, NULL,

                           NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL) < 0)

        HGOTO_ERROR(H5E_PLIST, H5E_CANTINSERT, FAIL, "can't insert property into class");

    /* Register the data transform property */

    if (H5P__register_real(pclass, H5D_XFER_XFORM_NAME, H5D_XFER_XFORM_SIZE, &H5D_def_xfer_xform_g, NULL,

                           H5D_XFER_XFORM_SET, H5D_XFER_XFORM_GET, H5D_XFER_XFORM_ENC, H5D_XFER_XFORM_DEC,

                           H5D_XFER_XFORM_DEL, H5D_XFER_XFORM_COPY, H5D_XFER_XFORM_CMP,

                           H5D_XFER_XFORM_CLOSE) < 0)

        HGOTO_ERROR(H5E_PLIST, H5E_CANTINSERT, FAIL, "can't insert property into class");

    /* Register the dataset I/O selection property */

    if (H5P__register_real(pclass, H5D_XFER_DSET_IO_SEL_NAME, H5D_XFER_DSET_IO_SEL_SIZE,

                           &H5D_def_dset_io_sel_g, NULL, NULL, NULL, NULL, NULL, NULL,

                           H5D_XFER_DSET_IO_SEL_COPY, H5D_XFER_DSET_IO_SEL_CMP,

                           H5D_XFER_DSET_IO_SEL_CLOSE) < 0)

        HGOTO_ERROR(H5E_PLIST, H5E_CANTINSERT, FAIL, "can't insert property into class");

    if (H5P__register_real(pclass, H5D_XFER_SELECTION_IO_MODE_NAME, H5D_XFER_SELECTION_IO_MODE_SIZE,

                           &H5D_def_selection_io_mode_g, NULL, NULL, NULL, H5D_XFER_SELECTION_IO_MODE_ENC,

                           H5D_XFER_SELECTION_IO_MODE_DEC, NULL, NULL, NULL, NULL) < 0)

        HGOTO_ERROR(H5E_PLIST, H5E_CANTINSERT, FAIL, "can't insert property into class");

    /* Register the cause of no selection I/O property */

    /* (Note: this property should not have an encode/decode callback) */

    if (H5P__register_real(pclass, H5D_XFER_NO_SELECTION_IO_CAUSE_NAME, H5D_XFER_NO_SELECTION_IO_CAUSE_SIZE,

                           &H5D_def_no_selection_io_cause_g, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL,

                           NULL) < 0)

        HGOTO_ERROR(H5E_PLIST, H5E_CANTINSERT, FAIL, "can't insert property into class");

    /* Register the actual selection I/O mode property */

    /* (Note: this property should not have an encode/decode callback) */

    if (H5P__register_real(pclass, H5D_XFER_ACTUAL_SELECTION_IO_MODE_NAME,

                           H5D_XFER_ACTUAL_SELECTION_IO_MODE_SIZE, &H5D_def_actual_selection_io_mode_g, NULL,

                           NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL) < 0)

        HGOTO_ERROR(H5E_PLIST, H5E_CANTINSERT, FAIL, "can't insert property into class");

    /* Register the modify write buffer property */

    if (H5P__register_real(pclass, H5D_XFER_MODIFY_WRITE_BUF_NAME, H5D_XFER_MODIFY_WRITE_BUF_SIZE,

                           &H5D_def_modify_write_buf_g, NULL, NULL, NULL, H5D_XFER_MODIFY_WRITE_BUF_ENC,

                           H5D_XFER_MODIFY_WRITE_BUF_DEC, NULL, NULL, NULL, NULL) < 0)

        HGOTO_ERROR(H5E_PLIST, H5E_CANTINSERT, FAIL, "can't insert property into class");

done:

    FUNC_LEAVE_NOAPI(ret_value)

} /* end H5P__dxfr_reg_prop() */

/*-------------------------------------------------------------------------

 * Function:       H5P__dxfr_bkgr_buf_type_enc

 *

 * Purpose:        Callback routine which is called whenever the background

 *                 buffer type property in the dataset transfer property list

 *                 is encoded.

 *

 * Return:     Success: Non-negative

 *       Failure: Negative

 *

 *-------------------------------------------------------------------------

 */

static herr_t

H5P__dxfr_bkgr_buf_type_enc(const void *value, void **_pp, size_t *size)

{

    const H5T_bkg_t *bkgr_buf_type = (const H5T_bkg_t *)value; /* Create local alias for values */

    uint8_t        **pp            = (uint8_t **)_pp;

    FUNC_ENTER_PACKAGE_NOERR

    /* Sanity check */

    assert(bkgr_buf_type);

    assert(size);

    if (NULL != *pp)

        /* Encode background buffer type */

        *(*pp)++ = (uint8_t)*bkgr_buf_type;

    /* Size of background buffer type */

    (*size)++;

    FUNC_LEAVE_NOAPI(SUCCEED)

} /* end H5P__dxfr_bkgr_buf_type_enc() */

/*-------------------------------------------------------------------------

 * Function:       H5P__dxfr_bkgr_buf_type_dec

 *

 * Purpose:        Callback routine which is called whenever the background

 *                 buffer type property in the dataset transfer property list

 *                 is decoded.

 *

 * Return:     Success: Non-negative

 *       Failure: Negative

 *

 *-------------------------------------------------------------------------

 */

static herr_t

H5P__dxfr_bkgr_buf_type_dec(const void **_pp, void *_value)

{

    H5T_bkg_t      *bkgr_buf_type = (H5T_bkg_t *)_value; /* Background buffer type */

    const uint8_t **pp            = (const uint8_t **)_pp;

    FUNC_ENTER_PACKAGE_NOERR

    /* Sanity checks */

    assert(pp);

    assert(*pp);

    assert(bkgr_buf_type);

    /* Decode background buffer type */

    *bkgr_buf_type = (H5T_bkg_t) * (*pp)++;

    FUNC_LEAVE_NOAPI(SUCCEED)

} /* end H5P__dxfr_bkgr_buf_type_dec() */

/*-------------------------------------------------------------------------

 * Function:       H5P__dxfr_btree_split_ratio_enc

 *

 * Purpose:        Callback routine which is called whenever the B-tree split

 *                 ratio property in the dataset transfer property list

 *                 is encoded.

 *

 * Return:     Success: Non-negative

 *       Failure: Negative

 *

 *-------------------------------------------------------------------------

 */

static herr_t

H5P__dxfr_btree_split_ratio_enc(const void *value, void **_pp, size_t *size)

{

    const double *btree_split_ratio = (const double *)value; /* Create local alias for values */

    uint8_t     **pp                = (uint8_t **)_pp;

    FUNC_ENTER_PACKAGE_NOERR

    /* Sanity check */

    assert(btree_split_ratio);

    assert(size);

    if (NULL != *pp) {

        /* Encode the size of a double*/

        *(*pp)++ = (uint8_t)sizeof(double);

        /* Encode the left split value */

        H5_ENCODE_DOUBLE(*pp, *(const double *)btree_split_ratio);

        btree_split_ratio++;

        /* Encode the middle split value */

        H5_ENCODE_DOUBLE(*pp, *(const double *)btree_split_ratio);

        btree_split_ratio++;

        /* Encode the right split value */

        H5_ENCODE_DOUBLE(*pp, *(const double *)btree_split_ratio);

    } /* end if */

    /* Size of B-tree split ratio values */

    *size += 1 + (3 * sizeof(double));

    FUNC_LEAVE_NOAPI(SUCCEED)

} /* end H5P__dxfr_btree_split_ratio_enc() */

/*-------------------------------------------------------------------------

 * Function:       H5P__dxfr_btree_split_ratio_dec

 *

 * Purpose:        Callback routine which is called whenever the B-tree split

 *                 ratio property in the dataset transfer property list

 *                 is decoded.

 *

 * Return:     Success: Non-negative

 *       Failure: Negative

 *

 *-------------------------------------------------------------------------

 */

static herr_t

H5P__dxfr_btree_split_ratio_dec(const void **_pp, void *_value)

{

    double         *btree_split_ratio = (double *)_value; /* B-tree split ratio */

    unsigned        enc_size;                             /* Size of encoded property */

    const uint8_t **pp        = (const uint8_t **)_pp;

    herr_t          ret_value = SUCCEED; /* Return value */

    FUNC_ENTER_PACKAGE

    /* Sanity checks */

    assert(pp);

    assert(*pp);

    assert(btree_split_ratio);

    /* Decode the size */

    enc_size = *(*pp)++;

    if (enc_size != sizeof(double))

        HGOTO_ERROR(H5E_PLIST, H5E_BADVALUE, FAIL, "double value can't be decoded");

    /* Decode the left, middle & left B-tree split ratios */

    H5_DECODE_DOUBLE(*pp, btree_split_ratio[0]);

    H5_DECODE_DOUBLE(*pp, btree_split_ratio[1]);

    H5_DECODE_DOUBLE(*pp, btree_split_ratio[2]);

done:

    FUNC_LEAVE_NOAPI(ret_value)

} /* end H5P__dxfr_btree_split_ratio_dec() */

/*-------------------------------------------------------------------------

 * Function:    H5P__dxfr_xform_set

 *

 * Purpose:     Copies a data transform property when it's set for a property list

 *

 * Return:      Success:        Non-negative

 *              Failure:        Negative

 *

 *-------------------------------------------------------------------------

 */

static herr_t

H5P__dxfr_xform_set(hid_t H5_ATTR_UNUSED prop_id, const char H5_ATTR_UNUSED *name, size_t H5_ATTR_UNUSED size,

                    void *value)

{

    herr_t ret_value = SUCCEED; /* Return value */

    FUNC_ENTER_PACKAGE

    /* Sanity check */

    assert(value);

    /* Make copy of data transform */

    if (H5Z_xform_copy((H5Z_data_xform_t **)value) < 0)

        HGOTO_ERROR(H5E_PLIST, H5E_CANTCOPY, FAIL, "error copying the data transform info");

done:

    FUNC_LEAVE_NOAPI(ret_value)

} /* end H5P__dxfr_xform_set() */

/*-------------------------------------------------------------------------

 * Function:    H5P__dxfr_xform_get

 *

 * Purpose:     Copies a data transform property when it's retrieved for a property list

 *

 * Return:      Success:        Non-negative

 *              Failure:        Negative

 *

 *-------------------------------------------------------------------------

 */

static herr_t

H5P__dxfr_xform_get(hid_t H5_ATTR_UNUSED prop_id, const char H5_ATTR_UNUSED *name, size_t H5_ATTR_UNUSED size,

                    void *value)

{

    herr_t ret_value = SUCCEED; /* Return value */

    FUNC_ENTER_PACKAGE

    /* Sanity check */

    assert(value);

    /* Make copy of data transform */

    if (H5Z_xform_copy((H5Z_data_xform_t **)value) < 0)

        HGOTO_ERROR(H5E_PLIST, H5E_CANTCOPY, FAIL, "error copying the data transform info");

done:

    FUNC_LEAVE_NOAPI(ret_value)

} /* end H5P__dxfr_xform_get() */

/*-------------------------------------------------------------------------

 * Function:       H5P__dxfr_xform_enc

 *

 * Purpose:        Callback routine which is called whenever the data transform

 *                 property in the dataset transfer property list

 *                 is encoded.

 *

 * Return:     Success: Non-negative

 *       Failure: Negative

 *

 *-------------------------------------------------------------------------

 */

static herr_t

H5P__dxfr_xform_enc(const void *value, void **_pp, size_t *size)

{

    const H5Z_data_xform_t *data_xform_prop =

        *(const H5Z_data_xform_t *const *)value; /* Create local alias for values */

    const char *pexp      = NULL;                /* Pointer to transform expression */

    size_t      len       = 0;                   /* Length of transform expression */

    uint8_t   **pp        = (uint8_t **)_pp;

    herr_t      ret_value = SUCCEED; /* Return value */

    FUNC_ENTER_PACKAGE

    /* Sanity check */

    HDcompile_assert(sizeof(size_t) <= sizeof(uint64_t));

    assert(size);

    /* Check for data transform set */

    if (NULL != data_xform_prop) {

        /* Get the transform expression */

        if (NULL == (pexp = H5Z_xform_extract_xform_str(data_xform_prop)))

            HGOTO_ERROR(H5E_PLIST, H5E_CANTGET, FAIL, "failed to retrieve transform expression");

        /* Get the transform string expression size */

        len = strlen(pexp) + 1;

    } /* end if */

    if (NULL != *pp) {

        uint64_t enc_value;

        unsigned enc_size;

        /* encode the length of the prefix */

        enc_value = (uint64_t)len;

        enc_size  = H5VM_limit_enc_size(enc_value);

        assert(enc_size < 256);

        *(*pp)++ = (uint8_t)enc_size;

        UINT64ENCODE_VAR(*pp, enc_value, enc_size);

        if (NULL != data_xform_prop) {

            /* Sanity check */

            assert(pexp);

            /* Copy the expression into the buffer */

            H5MM_memcpy(*pp, (const uint8_t *)pexp, len);

            *pp += len;

            *pp[0] = '\0';

        } /* end if */

    }     /* end if */

    /* Size of encoded data transform */

    *size += (1 + H5VM_limit_enc_size((uint64_t)len));

    if (NULL != pexp)

        *size += len;

done:

    FUNC_LEAVE_NOAPI(ret_value)

} /* end H5P__dxfr_xform_enc() */

/*-------------------------------------------------------------------------

 * Function:       H5P__dxfr_xform_dec

 *

 * Purpose:        Callback routine which is called whenever the data transform

 *                 property in the dataset transfer property list

 *                 is decoded.

 *

 * Return:     Success: Non-negative

 *       Failure: Negative

 *

 *-------------------------------------------------------------------------

 */

static herr_t

H5P__dxfr_xform_dec(const void **_pp, void *_value)

{

    H5Z_data_xform_t **data_xform_prop = (H5Z_data_xform_t **)_value; /* New data xform property */

    size_t             len;                                           /* Length of encoded string */

    const uint8_t    **pp = (const uint8_t **)_pp;

    unsigned           enc_size;

    uint64_t           enc_value;

    herr_t             ret_value = SUCCEED; /* Return value */

    FUNC_ENTER_PACKAGE

    /* Sanity checks */

    assert(pp);

    assert(*pp);

    assert(data_xform_prop);

    HDcompile_assert(sizeof(size_t) <= sizeof(uint64_t));

    /* Decode the length of xform expression */

    enc_size = *(*pp)++;

    assert(enc_size < 256);

    UINT64DECODE_VAR(*pp, enc_value, enc_size);

    len = (size_t)enc_value;

    if (0 != len) {

        if (NULL == (*data_xform_prop = H5Z_xform_create((const char *)*pp)))

            HGOTO_ERROR(H5E_PLIST, H5E_CANTCREATE, FAIL, "unable to create data transform info");

        *pp += len;

    } /* end if */

    else

        *data_xform_prop = H5D_XFER_XFORM_DEF;

done:

    FUNC_LEAVE_NOAPI(ret_value)

} /* end H5P__dxfr_xform_dec() */

/*-------------------------------------------------------------------------

 * Function: H5P__dxfr_xform_del

 *

 * Purpose: Frees memory allocated by H5P_dxfr_xform_set

 *

 * Return: Success: SUCCEED, Failure: FAIL

 *

 *-------------------------------------------------------------------------

 */

static herr_t

H5P__dxfr_xform_del(hid_t H5_ATTR_UNUSED prop_id, const char H5_ATTR_UNUSED *name, size_t H5_ATTR_UNUSED size,

                    void *value)

{

    herr_t ret_value = SUCCEED; /* Return value */

    FUNC_ENTER_PACKAGE

    assert(value);

    if (H5Z_xform_destroy(*(H5Z_data_xform_t **)value) < 0)

        HGOTO_ERROR(H5E_PLIST, H5E_CANTCLOSEOBJ, FAIL, "error closing the parse tree");

done:

    FUNC_LEAVE_NOAPI(ret_value)

} /* end H5P__dxfr_xform_del() */

/*-------------------------------------------------------------------------

 * Function: H5P__dxfr_xform_copy

 *

 * Purpose: Creates a copy of the user's data transform string and its

 *              associated parse tree.

 *

 * Return: Success: SUCCEED, Failure: FAIL

 *

 *-------------------------------------------------------------------------

 */

static herr_t

H5P__dxfr_xform_copy(const char H5_ATTR_UNUSED *name, size_t H5_ATTR_UNUSED size, void *value)

{

    herr_t ret_value = SUCCEED; /* Return value */

    FUNC_ENTER_PACKAGE

    /* Sanity check */

    assert(value);

    /* Make copy of data transform */

    if (H5Z_xform_copy((H5Z_data_xform_t **)value) < 0)

        HGOTO_ERROR(H5E_PLIST, H5E_CANTCOPY, FAIL, "error copying the data transform info");

done:

    FUNC_LEAVE_NOAPI(ret_value)

} /* end H5P__dxfr_xform_copy() */

/*-------------------------------------------------------------------------

 * Function: H5P__dxfr_xform_cmp

 *

 * Purpose: Compare two data transforms.

 *

 * Return: positive if VALUE1 is greater than VALUE2, negative if VALUE2 is

 *    greater than VALUE1 and zero if VALUE1 and VALUE2 are equal.

 *

 *-------------------------------------------------------------------------

 */

static int

H5P__dxfr_xform_cmp(const void *_xform1, const void *_xform2, size_t H5_ATTR_UNUSED size)

{

    const H5Z_data_xform_t *const *xform1 =

        (const H5Z_data_xform_t *const *)_xform1; /* Create local aliases for values */

    const H5Z_data_xform_t *const *xform2 =

        (const H5Z_data_xform_t *const *)_xform2; /* Create local aliases for values */

    const char *pexp1, *pexp2;                    /* Pointers to transform expressions */

    herr_t      ret_value = 0;                    /* Return value */

    FUNC_ENTER_PACKAGE_NOERR

    /* Sanity check */

    assert(xform1);

    assert(xform2);

    assert(size == sizeof(H5Z_data_xform_t *));

    /* Check for a property being set */

    if (*xform1 == NULL && *xform2 != NULL)

        HGOTO_DONE(-1);

    if (*xform1 != NULL && *xform2 == NULL)

        HGOTO_DONE(1);

    if (*xform1) {

        assert(*xform2);

        /* Get the transform expressions */

        pexp1 = H5Z_xform_extract_xform_str(*xform1);

        pexp2 = H5Z_xform_extract_xform_str(*xform2);

        /* Check for property expressions */

        if (pexp1 == NULL && pexp2 != NULL)

            HGOTO_DONE(-1);

        if (pexp1 != NULL && pexp2 == NULL)

            HGOTO_DONE(1);

        if (pexp1) {

            assert(pexp2);

            ret_value = strcmp(pexp1, pexp2);

        } /* end if */

    }     /* end if */

done:

    FUNC_LEAVE_NOAPI(ret_value)

} /* end H5P__dxfr_xform_cmp() */

/*-------------------------------------------------------------------------

 * Function: H5P__dxfr_xform_close

 *

 * Purpose: Frees memory allocated by H5P_dxfr_xform_set

 *

 * Return: Success: SUCCEED, Failure: FAIL

 *

 *-------------------------------------------------------------------------

 */

static herr_t

H5P__dxfr_xform_close(const char H5_ATTR_UNUSED *name, size_t H5_ATTR_UNUSED size, void *value)

{

    herr_t ret_value = SUCCEED; /* Return value */

    FUNC_ENTER_PACKAGE

    assert(value);

    if (H5Z_xform_destroy(*(H5Z_data_xform_t **)value) < 0)

        HGOTO_ERROR(H5E_PLIST, H5E_CANTCLOSEOBJ, FAIL, "error closing the parse tree");

done:

    FUNC_LEAVE_NOAPI(ret_value)

} /* end H5P__dxfr_xform_close() */

/*-------------------------------------------------------------------------

 * Function:  H5Pset_data_transform

 *

 * Purpose: Sets data transform expression.

 *

 * Return:  Non-negative on success/Negative on failure

 *

 *-------------------------------------------------------------------------

 */

herr_t

H5Pset_data_transform(hid_t plist_id, const char *expression)

{

    H5P_genplist_t   *plist;                     /* Property list pointer */

    H5Z_data_xform_t *data_xform_prop = NULL;    /* New data xform property */

    herr_t            ret_value       = SUCCEED; /* return value */

    FUNC_ENTER_API(FAIL)

    /* Check arguments */

    if (expression == NULL)

        HGOTO_ERROR(H5E_ARGS, H5E_BADVALUE, FAIL, "expression cannot be NULL");

    /* Get the plist structure */

    if (NULL == (plist = H5P_object_verify(plist_id, H5P_DATASET_XFER, false)))

        HGOTO_ERROR(H5E_ID, H5E_BADID, FAIL, "can't find object for ID");

    /* See if a data transform is already set, and free it if it is */

    if (H5P_peek(plist, H5D_XFER_XFORM_NAME, &data_xform_prop) < 0)

        HGOTO_ERROR(H5E_PLIST, H5E_CANTGET, FAIL, "error getting data transform expression");

    /* Destroy previous data transform property */

    if (H5Z_xform_destroy(data_xform_prop) < 0)

        HGOTO_ERROR(H5E_PLIST, H5E_CLOSEERROR, FAIL, "unable to release data transform expression");

    /* Create data transform info from expression */

    if (NULL == (data_xform_prop = H5Z_xform_create(expression)))

        HGOTO_ERROR(H5E_PLIST, H5E_NOSPACE, FAIL, "unable to create data transform info");

    /* Update property list (takes ownership of transform) */

    if (H5P_poke(plist, H5D_XFER_XFORM_NAME, &data_xform_prop) < 0)

        HGOTO_ERROR(H5E_PLIST, H5E_CANTSET, FAIL, "Error setting data transform expression");

done:

    if (ret_value < 0)

        if (data_xform_prop && H5Z_xform_destroy(data_xform_prop) < 0)

            HDONE_ERROR(H5E_PLIST, H5E_CLOSEERROR, FAIL, "unable to release data transform expression");

    FUNC_LEAVE_API(ret_value)

} /* end H5Pset_data_transform() */

/*-------------------------------------------------------------------------

 * Function:  H5Pget_data_transform

 *

 * Purpose: Gets data transform expression.

 *

 * Return:  Non-negative on success/Negative on failure

 *

 * Comments:

 *  If `expression' is non-NULL then write up to `size' bytes into that