/* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
 * Copyright by The HDF Group.                                               *
 * Copyright by the Board of Trustees of the University of Illinois.         *
 * 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 files COPYING and Copyright.html.  COPYING can be found at the root   *
 * of the source code distribution tree; Copyright.html can be found at the  *
 * root level of an installed copy of the electronic HDF5 document set and   *
 * is linked from the top-level documents page.  It can also be found at     *
 * http://hdfgroup.org/HDF5/doc/Copyright.html.  If you do not have          *
 * access to either file, you may request a copy from help@hdfgroup.org.     *
 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */

/*
 *  Header file for error values, etc.
 */
#ifndef _H5Eprivate_H
#define _H5Eprivate_H

#include "H5Epublic.h"

/* Private headers needed by this file */
#include "H5private.h"

/* Typedef for error stack (defined in H5Epkg.h) */
typedef struct H5E_t H5E_t;

/*
 * HERROR macro, used to facilitate error reporting between a FUNC_ENTER()
 * and a FUNC_LEAVE() within a function body.  The arguments are the major
 * error number, the minor error number, and a description of the error.
 */
#if defined(_MSC_VER) && (_MSC_VER < 1400)
#  define HERROR(maj_id, min_id, args) H5E_printf_stack(NULL, __FILE__, FUNC, __LINE__, H5E_ERR_CLS_g, maj_id, min_id, args)
#else
#  define HERROR(maj_id, min_id, ...) H5E_printf_stack(NULL, __FILE__, FUNC, __LINE__, H5E_ERR_CLS_g, maj_id, min_id, __VA_ARGS__)
#endif

/*
 * HCOMMON_ERROR macro, used by HDONE_ERROR and HGOTO_ERROR
 * (Shouldn't need to be used outside this header file)
 */
#if defined(_MSC_VER) && (_MSC_VER < 1400)
#define HCOMMON_ERROR(maj, min, args)                        \
   HERROR(maj, min, args);                  \
   err_occurred = TRUE;
#else
#define HCOMMON_ERROR(maj, min, ...)                        \
   HERROR(maj, min, __VA_ARGS__);                  \
   err_occurred = TRUE;
#endif

/*
 * HDONE_ERROR macro, used to facilitate error reporting between a
 * FUNC_ENTER() and a FUNC_LEAVE() within a function body, but _AFTER_ the
 * "done:" label.  The arguments are
 * the major error number, the minor error number, a return value, and a
 * description of the error.
 * (This macro can also be used to push an error and set the return value
 *      without jumping to any labels)
 */
#if defined(_MSC_VER) && (_MSC_VER < 1400)
#define HDONE_ERROR(maj, min, ret_val, args) {              \
   HCOMMON_ERROR(maj, min, args);                \
   ret_value = ret_val;                                                       \
}
#else
#define HDONE_ERROR(maj, min, ret_val, ...) {              \
   HCOMMON_ERROR(maj, min, __VA_ARGS__);                \
   ret_value = ret_val;                                                       \
}
#endif

/*
 * HGOTO_ERROR macro, used to facilitate error reporting between a
 * FUNC_ENTER() and a FUNC_LEAVE() within a function body.  The arguments are
 * the major error number, the minor error number, the return value, and an
 * error string.  The return value is assigned to a variable `ret_value' and
 * control branches to the `done' label.
 */
#if defined(_MSC_VER) && (_MSC_VER < 1400)
#define HGOTO_ERROR(maj, min, ret_val, args) {              \
   HCOMMON_ERROR(maj, min, args);                \
   HGOTO_DONE(ret_val)                          \
}
#else
#define HGOTO_ERROR(maj, min, ret_val, ...) {              \
   HCOMMON_ERROR(maj, min, __VA_ARGS__);                \
   HGOTO_DONE(ret_val)                          \
}
#endif

/*
 * HGOTO_DONE macro, used to facilitate normal return between a FUNC_ENTER()
 * and a FUNC_LEAVE() within a function body. The argument is the return
 * value which is assigned to the `ret_value' variable.   Control branches to
 * the `done' label.
 */
#define HGOTO_DONE(ret_val) {ret_value = ret_val; goto done;}

/* Library-private functions defined in H5E package */
H5_DLL herr_t H5E_init(void);
H5_DLL herr_t H5E_push_stack(H5E_t *estack, const char *file, const char *func,
    unsigned line, hid_t cls_id, hid_t maj_id, hid_t min_id, const char *desc);
H5_DLL herr_t H5E_printf_stack(H5E_t *estack, const char *file, const char *func,
    unsigned line, hid_t cls_id, hid_t maj_id, hid_t min_id, const char *fmt, ...);
H5_DLL herr_t H5E_clear_stack(H5E_t *estack);
H5_DLL herr_t H5E_dump_api_stack(int is_api);

/*
 * Macros handling system error messages as described in C standard.
 * These macros assume errnum is a valid system error code.
 */

/* Retrieve the error code description string and push it onto the error
 * stack.
 */
#define  HSYS_DONE_ERROR(majorcode, minorcode, retcode, str) {          \
    int myerrno = errno;                    \
    HDONE_ERROR(majorcode, minorcode, retcode, "%s, errno = %d, error message = '%s'", str, myerrno, HDstrerror(myerrno));            \
}
#define  HSYS_GOTO_ERROR(majorcode, minorcode, retcode, str) {          \
    int myerrno = errno;                    \
    HGOTO_ERROR(majorcode, minorcode, retcode, "%s, errno = %d, error message = '%s'", str, myerrno, HDstrerror(myerrno));            \
}

#ifdef H5_HAVE_PARALLEL
/*
 * MPI error handling macros.
 */

extern  char  H5E_mpi_error_str[MPI_MAX_ERROR_STRING];
extern  int  H5E_mpi_error_str_len;

#define  HMPI_ERROR(mpierr){                  \
    MPI_Error_string(mpierr, H5E_mpi_error_str, &H5E_mpi_error_str_len);      \
    HERROR(H5E_INTERNAL, H5E_MPIERRSTR, H5E_mpi_error_str);                   \
}
#define  HMPI_DONE_ERROR(retcode, str, mpierr){              \
    HMPI_ERROR(mpierr);                    \
    HDONE_ERROR(H5E_INTERNAL, H5E_MPI, retcode, str);            \
}
#define  HMPI_GOTO_ERROR(retcode, str, mpierr){              \
    HMPI_ERROR(mpierr);                    \
    HGOTO_ERROR(H5E_INTERNAL, H5E_MPI, retcode, str);            \
}
#endif /* H5_HAVE_PARALLEL */

#endif /* _H5Eprivate_H */

