自学教程：C++ HGOTO_ERROR函数代码示例

/*------------------------------------------------------------------------- * Function:	H5O_drvinfo_decode * * Purpose:	Decode a shared message table message and return a pointer *              to a newly allocated H5O_drvinfo_t struct. * * Return:	Success:	Ptr to new message in native struct. *		Failure:	NULL * * Programmer:  Quincey Koziol *              Mar  1, 2007 * *------------------------------------------------------------------------- */static void *H5O_drvinfo_decode(H5F_t H5_ATTR_UNUSED *f, H5O_t H5_ATTR_UNUSED *open_oh,    unsigned H5_ATTR_UNUSED mesg_flags, unsigned H5_ATTR_UNUSED *ioflags,    size_t H5_ATTR_UNUSED p_size, const uint8_t *p){    H5O_drvinfo_t	*mesg;          /* Native message */    void		*ret_value = NULL;      /* Return value */    FUNC_ENTER_NOAPI_NOINIT    /* Sanity check */    HDassert(f);    HDassert(p);    /* Version of message */    if(*p++ != H5O_DRVINFO_VERSION)        HGOTO_ERROR(H5E_OHDR, H5E_CANTLOAD, NULL, "bad version number for message")    /* Allocate space for message */    if(NULL == (mesg = (H5O_drvinfo_t *)H5MM_calloc(sizeof(H5O_drvinfo_t))))	HGOTO_ERROR(H5E_RESOURCE, H5E_NOSPACE, NULL, "memory allocation failed for driver info message")    /* Retrieve driver name */    HDmemcpy(mesg->name, p, 8);    mesg->name[8] = '/0';    p += 8;    /* Decode buffer size */    UINT16DECODE(p, mesg->len);    HDassert(mesg->len);    /* Allocate space for buffer */    if(NULL == (mesg->buf = (uint8_t *)H5MM_malloc(mesg->len))) {        mesg = (H5O_drvinfo_t *)H5MM_xfree(mesg);	HGOTO_ERROR(H5E_RESOURCE, H5E_NOSPACE, NULL, "memory allocation failed for driver info buffer")    } /* end if */

/*------------------------------------------------------------------------- * Function:	H5Pget_preserve * * Purpose:	The inverse of H5Pset_preserve() * * Return:	Success:	TRUE or FALSE * *		Failure:	Negative * * Programmer:	Robb Matzke *              Tuesday, March 17, 1998 * * Modifications: * *------------------------------------------------------------------------- */intH5Pget_preserve(hid_t plist_id){    H5T_bkg_t need_bkg;         /* Background value */    H5P_genplist_t *plist;      /* Property list pointer */    int ret_value;              /* return value */    FUNC_ENTER_API(H5Pget_preserve, FAIL);    H5TRACE1("Is","i",plist_id);    /* Get the plist structure */    if(NULL == (plist = H5P_object_verify(plist_id,H5P_DATASET_XFER)))        HGOTO_ERROR(H5E_ATOM, H5E_BADATOM, FAIL, "can't find object for ID");    /* Get value */    if (H5P_get(plist,H5D_XFER_BKGR_BUF_TYPE_NAME,&need_bkg)<0)        HGOTO_ERROR(H5E_PLIST, H5E_CANTGET, FAIL, "unable to get value");    /* Set return value */    ret_value= need_bkg ? TRUE : FALSE;done:    FUNC_LEAVE_API(ret_value);}

/*------------------------------------------------------------------------- * Function:	H5Pset_sizes * * Purpose:	Sets file size-of addresses and sizes.	PLIST_ID should be a *		file creation property list.  A value of zero causes the *		property to not change. * * Return:	Non-negative on success/Negative on failure * * Programmer:	Robb Matzke *		Tuesday, January  6, 1998 * * Modifications: * *------------------------------------------------------------------------- */herr_tH5Pset_sizes(hid_t plist_id, size_t sizeof_addr, size_t sizeof_size){    H5P_genplist_t *plist;      /* Property list pointer */    herr_t ret_value=SUCCEED;   /* return value */    FUNC_ENTER_API(H5Pset_sizes, FAIL);    H5TRACE3("e","izz",plist_id,sizeof_addr,sizeof_size);    /* Check arguments */    if (sizeof_addr) {        if (sizeof_addr != 2 && sizeof_addr != 4 &&                sizeof_addr != 8 && sizeof_addr != 16)            HGOTO_ERROR(H5E_ARGS, H5E_BADVALUE, FAIL, "file haddr_t size is not valid");    }    if (sizeof_size) {        if (sizeof_size != 2 && sizeof_size != 4 &&                sizeof_size != 8 && sizeof_size != 16)            HGOTO_ERROR(H5E_ARGS, H5E_BADVALUE, FAIL, "file size_t size is not valid");    }    /* Get the plist structure */    if(NULL == (plist = H5P_object_verify(plist_id,H5P_FILE_CREATE)))        HGOTO_ERROR(H5E_ATOM, H5E_BADATOM, FAIL, "can't find object for ID");    /* Set value */    if (sizeof_addr)        if(H5P_set(plist, H5F_CRT_ADDR_BYTE_NUM_NAME, &sizeof_addr) < 0)            HGOTO_ERROR(H5E_PLIST, H5E_CANTSET, FAIL, "can't set byte number for an address");    if (sizeof_size)        if(H5P_set(plist, H5F_CRT_OBJ_BYTE_NUM_NAME, &sizeof_size) < 0)            HGOTO_ERROR(H5E_PLIST, H5E_CANTSET, FAIL, "can't set byte number for object ");done:    FUNC_LEAVE_API(ret_value);}

/*------------------------------------------------------------------------- * Function:	H5Pget_istore_k * * Purpose:	Queries the 1/2 rank of an indexed storage B-tree.  See *		H5Pset_istore_k() for details.	The argument IK may be the *		null pointer. * * Return:	Success:	Non-negative, size returned through IK * *		Failure:	Negative * * Programmer:	Robb Matzke *		Wednesday, January  7, 1998 * * Modifications: * *		Raymond Lu, Oct 14, 2001 *		Changed to the new generic property list. * *------------------------------------------------------------------------- */herr_tH5Pget_istore_k(hid_t plist_id, unsigned *ik /*out */ ){    unsigned btree_k[H5B_NUM_BTREE_ID];    H5P_genplist_t *plist;      /* Property list pointer */    herr_t ret_value=SUCCEED;   /* return value */    FUNC_ENTER_API(H5Pget_istore_k, FAIL);    H5TRACE2("e","ix",plist_id,ik);    /* Get the plist structure */    if(NULL == (plist = H5P_object_verify(plist_id,H5P_FILE_CREATE)))        HGOTO_ERROR(H5E_ATOM, H5E_BADATOM, FAIL, "can't find object for ID");    /* Get value */    if (ik) {        if(H5P_get(plist, H5F_CRT_BTREE_RANK_NAME, btree_k) < 0)            HGOTO_ERROR(H5E_PLIST, H5E_CANTGET, FAIL, "can't get rank for btree interanl nodes");        *ik = btree_k[H5B_ISTORE_ID];    }done:    FUNC_LEAVE_API(ret_value);}

/*------------------------------------------------------------------------- * Function:	H5Pset_edc_check * * Purpose:     Enable or disable error-detecting for a dataset reading *              process.  This error-detecting algorithm is whichever *              user chooses earlier.  This function cannot control *              writing process. * * Return:	Non-negative on success/Negative on failure * * Programmer:	Raymond Lu *              Jan 3, 2003 * * Modifications: * *------------------------------------------------------------------------- */herr_tH5Pset_edc_check(hid_t plist_id, H5Z_EDC_t check){    H5P_genplist_t *plist;      /* Property list pointer */    herr_t ret_value=SUCCEED;   /* return value */    FUNC_ENTER_API(H5Pset_edc_check, FAIL);    H5TRACE2("e","iZe",plist_id,check);    /* Check argument */    if (check != H5Z_ENABLE_EDC && check != H5Z_DISABLE_EDC)        HGOTO_ERROR(H5E_ARGS, H5E_BADVALUE, FAIL, "not a valid value");    /* Get the plist structure */    if(NULL == (plist = H5P_object_verify(plist_id,H5P_DATASET_XFER)))        HGOTO_ERROR(H5E_ATOM, H5E_BADATOM, FAIL, "can't find object for ID");    /* Update property list */    if (H5P_set(plist,H5D_XFER_EDC_NAME,&check)<0)        HGOTO_ERROR(H5E_PLIST, H5E_CANTSET, FAIL, "unable to set value");done:    FUNC_LEAVE_API(ret_value);}

/*------------------------------------------------------------------------- * Function:	H5O_shared_read * * Purpose:	Reads a message referred to by a shared message. * * Return:	Success:	Ptr to message in native format.  The message *				should be freed by calling H5O_msg_reset(). * *		Failure:	NULL * * Programmer:	Quincey Koziol *		[email
C++ HH函数代码示例
C++ HFree函数代码示例