summaryrefslogtreecommitdiffstats
path: root/src/H5E.c
diff options
context:
space:
mode:
authorQuincey Koziol <koziol@hdfgroup.org>1998-01-16 22:23:43 (GMT)
committerQuincey Koziol <koziol@hdfgroup.org>1998-01-16 22:23:43 (GMT)
commitc2c94c31878dc42926661c9cb7e71be620196fc1 (patch)
treeee9ce2ae309882348dc1eafc1d105b5e6646605e /src/H5E.c
parent903e677366a86ea385d5cfe1241f3f53132941de (diff)
downloadhdf5-c2c94c31878dc42926661c9cb7e71be620196fc1.zip
hdf5-c2c94c31878dc42926661c9cb7e71be620196fc1.tar.gz
hdf5-c2c94c31878dc42926661c9cb7e71be620196fc1.tar.bz2
[svn-r157] Reformatted code with indent...
Diffstat (limited to 'src/H5E.c')
-rw-r--r--src/H5E.c778
1 files changed, 384 insertions, 394 deletions
diff --git a/src/H5E.c b/src/H5E.c
index f7d9fd2..680f152 100644
--- a/src/H5E.c
+++ b/src/H5E.c
@@ -1,113 +1,113 @@
/****************************************************************************
-* NCSA HDF *
-* Software Development Group *
-* National Center for Supercomputing Applications *
-* University of Illinois at Urbana-Champaign *
-* 605 E. Springfield, Champaign IL 61820 *
-* *
-* For conditions of distribution and use, see the accompanying *
-* hdf/COPYING file. *
+* NCSA HDF *
+* Software Development Group *
+* National Center for Supercomputing Applications *
+* University of Illinois at Urbana-Champaign *
+* 605 E. Springfield, Champaign IL 61820 *
+* *
+* For conditions of distribution and use, see the accompanying *
+* hdf/COPYING file. *
*
* Notes: It is safe to call HRETURN_ERROR(), HGOTO_ERROR(), HERROR(), and
- * H5ECLEAR within any of these functions except H5E_push() (see
- * comments in H5E_push()). However, some of the H5E API functions
- * don't call H5ECLEAR the the error stack on which they're operating
- * is the thread's global error stack. If the thread's global error
- * stack isn't defined yet, then HRETURN_ERROR(), HGOTO_ERROR(), and
- * HERROR() don't push an error message and H5ECLEAR just returns
- * without doing anything.
-* *
+ * H5ECLEAR within any of these functions except H5E_push() (see
+ * comments in H5E_push()). However, some of the H5E API functions
+ * don't call H5ECLEAR the the error stack on which they're operating
+ * is the thread's global error stack. If the thread's global error
+ * stack isn't defined yet, then HRETURN_ERROR(), HGOTO_ERROR(), and
+ * HERROR() don't push an error message and H5ECLEAR just returns
+ * without doing anything.
+* *
****************************************************************************/
#ifdef RCSID
-static char RcsId[] = "@(#)$Revision$";
+static char RcsId[] = "@(#)$Revision$";
#endif
/* $Id$ */
+#include <H5private.h> /* Generic Functions */
+#include <H5Aprivate.h> /* Atoms */
+#include <H5Eprivate.h> /* Private error routines */
+#include <H5MMprivate.h> /* Memory management */
-#include <H5private.h> /* Generic Functions */
-#include <H5Aprivate.h> /* Atoms */
-#include <H5Eprivate.h> /* Private error routines */
-#include <H5MMprivate.h> /* Memory management */
-
-#define PABLO_MASK H5E_mask
+#define PABLO_MASK H5E_mask
/*-------------------- Locally scoped variables -----------------------------*/
-static const H5E_major_mesg_t H5E_major_mesg_g[] = {
- {H5E_NONE_MAJOR, "No error"},
- {H5E_ARGS, "Invalid arguments to routine"},
- {H5E_RESOURCE, "Resource unavailable"},
- {H5E_INTERNAL, "Internal HDF5 error"},
- {H5E_FILE, "File Accessability"},
- {H5E_IO, "Low-level I/O"},
- {H5E_FUNC, "Function Entry/Exit"},
- {H5E_ATOM, "Object Atom"},
- {H5E_CACHE, "Object Cache"},
- {H5E_BTREE, "B-Tree Node"},
- {H5E_SYM, "Symbol Table"},
- {H5E_HEAP, "Heap"},
- {H5E_OHDR, "Object Header"},
- {H5E_DATATYPE, "Datatype"},
- {H5E_DATASPACE, "Dataspace"},
- {H5E_DATASET, "Dataset"},
- {H5E_STORAGE, "Data Storage"},
- {H5E_TEMPLATE, "Template"},
+static const H5E_major_mesg_t H5E_major_mesg_g[] =
+{
+ {H5E_NONE_MAJOR, "No error"},
+ {H5E_ARGS, "Invalid arguments to routine"},
+ {H5E_RESOURCE, "Resource unavailable"},
+ {H5E_INTERNAL, "Internal HDF5 error"},
+ {H5E_FILE, "File Accessability"},
+ {H5E_IO, "Low-level I/O"},
+ {H5E_FUNC, "Function Entry/Exit"},
+ {H5E_ATOM, "Object Atom"},
+ {H5E_CACHE, "Object Cache"},
+ {H5E_BTREE, "B-Tree Node"},
+ {H5E_SYM, "Symbol Table"},
+ {H5E_HEAP, "Heap"},
+ {H5E_OHDR, "Object Header"},
+ {H5E_DATATYPE, "Datatype"},
+ {H5E_DATASPACE, "Dataspace"},
+ {H5E_DATASET, "Dataset"},
+ {H5E_STORAGE, "Data Storage"},
+ {H5E_TEMPLATE, "Template"},
};
-static const H5E_minor_mesg_t H5E_minor_mesg_g[] = {
- {H5E_NONE_MINOR, "No error"},
+static const H5E_minor_mesg_t H5E_minor_mesg_g[] =
+{
+ {H5E_NONE_MINOR, "No error"},
{H5E_UNINITIALIZED, "Information is uninitialized"},
- {H5E_UNSUPPORTED, "Feature is unsupported"},
- {H5E_BADTYPE, "Incorrect type found"},
- {H5E_BADRANGE, "Argument out of range"},
- {H5E_BADVALUE, "Bad value for argument"},
- {H5E_NOSPACE, "No space available for allocation"},
- {H5E_FILEEXISTS, "File already exists"},
- {H5E_FILEOPEN, "File already open"},
- {H5E_CANTCREATE, "Can't create file"},
- {H5E_CANTOPENFILE, "Can't open file"},
- {H5E_CANTOPENOBJ, "Can't open object"},
- {H5E_NOTHDF5, "Not an HDF5 format file"},
- {H5E_BADFILE, "Bad file ID accessed"},
- {H5E_TRUNCATED, "File has been truncated"},
- {H5E_SEEKERROR, "Seek failed"},
- {H5E_READERROR, "Read failed"},
- {H5E_WRITEERROR, "Write failed"},
- {H5E_CLOSEERROR, "Close failed"},
- {H5E_CANTINIT, "Can't initialize interface"},
- {H5E_ALREADYINIT, "Object already initialized"},
- {H5E_BADATOM, "Can't find atom information"},
- {H5E_CANTREGISTER, "Can't register new atom"},
- {H5E_CANTFLUSH, "Can't flush object from cache"},
- {H5E_CANTLOAD, "Can't load object into cache"},
- {H5E_PROTECT, "Protected object error"},
- {H5E_NOTCACHED, "Object not currently cached"},
- {H5E_NOTFOUND, "Object not found"},
- {H5E_EXISTS, "Object already exists"},
- {H5E_CANTENCODE, "Can't encode value"},
- {H5E_CANTDECODE, "Can't decode value"},
- {H5E_CANTSPLIT, "Can't split node"},
- {H5E_CANTINSERT, "Can't insert object"},
- {H5E_CANTLIST, "Can't list node"},
- {H5E_LINKCOUNT, "Bad object header link count"},
- {H5E_VERSION, "Wrong version number"},
- {H5E_ALIGNMENT, "Alignment error"},
- {H5E_BADMESG, "Unrecognized message"},
- {H5E_COMPLEN, "Name component is too long"},
- {H5E_CWG, "Problem with current working group"},
- {H5E_LINK, "Link count failure"},
+ {H5E_UNSUPPORTED, "Feature is unsupported"},
+ {H5E_BADTYPE, "Incorrect type found"},
+ {H5E_BADRANGE, "Argument out of range"},
+ {H5E_BADVALUE, "Bad value for argument"},
+ {H5E_NOSPACE, "No space available for allocation"},
+ {H5E_FILEEXISTS, "File already exists"},
+ {H5E_FILEOPEN, "File already open"},
+ {H5E_CANTCREATE, "Can't create file"},
+ {H5E_CANTOPENFILE, "Can't open file"},
+ {H5E_CANTOPENOBJ, "Can't open object"},
+ {H5E_NOTHDF5, "Not an HDF5 format file"},
+ {H5E_BADFILE, "Bad file ID accessed"},
+ {H5E_TRUNCATED, "File has been truncated"},
+ {H5E_SEEKERROR, "Seek failed"},
+ {H5E_READERROR, "Read failed"},
+ {H5E_WRITEERROR, "Write failed"},
+ {H5E_CLOSEERROR, "Close failed"},
+ {H5E_CANTINIT, "Can't initialize interface"},
+ {H5E_ALREADYINIT, "Object already initialized"},
+ {H5E_BADATOM, "Can't find atom information"},
+ {H5E_CANTREGISTER, "Can't register new atom"},
+ {H5E_CANTFLUSH, "Can't flush object from cache"},
+ {H5E_CANTLOAD, "Can't load object into cache"},
+ {H5E_PROTECT, "Protected object error"},
+ {H5E_NOTCACHED, "Object not currently cached"},
+ {H5E_NOTFOUND, "Object not found"},
+ {H5E_EXISTS, "Object already exists"},
+ {H5E_CANTENCODE, "Can't encode value"},
+ {H5E_CANTDECODE, "Can't decode value"},
+ {H5E_CANTSPLIT, "Can't split node"},
+ {H5E_CANTINSERT, "Can't insert object"},
+ {H5E_CANTLIST, "Can't list node"},
+ {H5E_LINKCOUNT, "Bad object header link count"},
+ {H5E_VERSION, "Wrong version number"},
+ {H5E_ALIGNMENT, "Alignment error"},
+ {H5E_BADMESG, "Unrecognized message"},
+ {H5E_COMPLEN, "Name component is too long"},
+ {H5E_CWG, "Problem with current working group"},
+ {H5E_LINK, "Link count failure"},
};
/* Interface initialization? */
-static intn interface_initialize_g = FALSE;
+static intn interface_initialize_g = FALSE;
#define INTERFACE_INIT H5E_init_interface
-static herr_t H5E_init_interface(void);
-static void H5E_term_interface (void);
-
-hid_t H5E_thrdid_g = FAIL; /* Thread-specific "global" error-handler ID */
+static herr_t H5E_init_interface(void);
+static void H5E_term_interface(void);
+hid_t H5E_thrdid_g = FAIL; /* Thread-specific "global" error-handler ID */
/*--------------------------------------------------------------------------
NAME
@@ -126,19 +126,18 @@ Modifications:
--------------------------------------------------------------------------*/
static herr_t
-H5E_init_interface (void)
+H5E_init_interface(void)
{
- herr_t ret_value = SUCCEED;
-
- FUNC_ENTER (H5E_init_interface, FAIL);
+ herr_t ret_value = SUCCEED;
- /* Initialize the atom group for the error stacks */
- if ((ret_value=H5Ainit_group (H5_ERR, H5A_ERRSTACK_HASHSIZE, 0,
- (herr_t (*)(void*))H5E_close))!=FAIL) {
- ret_value = H5_add_exit (H5E_term_interface);
- }
+ FUNC_ENTER(H5E_init_interface, FAIL);
- FUNC_LEAVE (ret_value);
+ /* Initialize the atom group for the error stacks */
+ if ((ret_value = H5Ainit_group(H5_ERR, H5A_ERRSTACK_HASHSIZE, 0,
+ (herr_t (*)(void *)) H5E_close)) != FAIL) {
+ ret_value = H5_add_exit(H5E_term_interface);
+ }
+ FUNC_LEAVE(ret_value);
}
/*--------------------------------------------------------------------------
@@ -159,9 +158,9 @@ H5E_init_interface (void)
REVISION LOG
--------------------------------------------------------------------------*/
static void
-H5E_term_interface (void)
+H5E_term_interface(void)
{
- H5Adestroy_group(H5_ERR);
+ H5Adestroy_group(H5_ERR);
}
/*--------------------------------------------------------------------------
@@ -169,7 +168,7 @@ NAME
H5Ecreate -- Create a new error stack
USAGE
hid_t H5Ecreate (initial_stack_size);
- uintn initial_stack_size; IN: Starting size of the error stack
+ uintn initial_stack_size; IN: Starting size of the error stack
RETURNS
The ID of the error stack created on success, FAIL on failure.
@@ -179,33 +178,32 @@ DESCRIPTION
--------------------------------------------------------------------------*/
hid_t
-H5Ecreate (uintn initial_stack_nelmts)
+H5Ecreate(uintn initial_stack_nelmts)
{
- H5E_t *new_stack=NULL; /* Pointer to the new error stack */
- hid_t ret_value = FAIL;
-
- FUNC_ENTER (H5Ecreate, FAIL);
- H5ECLEAR;
-
- /* check args */
- initial_stack_nelmts = MAX (10, MIN (initial_stack_nelmts, 1000));
-
- /* Allocate the stack header */
- new_stack = H5MM_xmalloc (sizeof(H5E_t));
-
- /* Initialize the stack header */
- new_stack->nelmts = initial_stack_nelmts;
- new_stack->top = 0;
- new_stack->stack = H5MM_xcalloc (initial_stack_nelmts, sizeof(H5E_error_t));
- new_stack->push = H5E_push; /* Set the default error handler */
-
- /* Get an atom for the error stack */
- if ((ret_value = H5Aregister_atom (H5_ERR, new_stack))<0) {
- HRETURN_ERROR (H5E_ATOM, H5E_CANTREGISTER, FAIL,
- "unable to register error stack");
- }
-
- FUNC_LEAVE (ret_value);
+ H5E_t *new_stack = NULL; /* Pointer to the new error stack */
+ hid_t ret_value = FAIL;
+
+ FUNC_ENTER(H5Ecreate, FAIL);
+ H5ECLEAR;
+
+ /* check args */
+ initial_stack_nelmts = MAX(10, MIN(initial_stack_nelmts, 1000));
+
+ /* Allocate the stack header */
+ new_stack = H5MM_xmalloc(sizeof(H5E_t));
+
+ /* Initialize the stack header */
+ new_stack->nelmts = initial_stack_nelmts;
+ new_stack->top = 0;
+ new_stack->stack = H5MM_xcalloc(initial_stack_nelmts, sizeof(H5E_error_t));
+ new_stack->push = H5E_push; /* Set the default error handler */
+
+ /* Get an atom for the error stack */
+ if ((ret_value = H5Aregister_atom(H5_ERR, new_stack)) < 0) {
+ HRETURN_ERROR(H5E_ATOM, H5E_CANTREGISTER, FAIL,
+ "unable to register error stack");
+ }
+ FUNC_LEAVE(ret_value);
}
/*--------------------------------------------------------------------------
@@ -213,7 +211,7 @@ NAME
H5Eclose -- Destroy an error stack
USAGE
herr_t H5Eclose (err_stack);
- hid_t err_stack; IN: Error stack to delete
+ hid_t err_stack; IN: Error stack to delete
RETURNS
SUCCEED/FAIL
@@ -223,49 +221,47 @@ DESCRIPTION
--------------------------------------------------------------------------*/
herr_t
-H5Eclose (hid_t estack_id)
+H5Eclose(hid_t estack_id)
{
- FUNC_ENTER (H5Eclose, FAIL);
- H5ECLEAR;
-
- /* check args */
- if (H5_ERR!=H5Aatom_group (estack_id)) {
- HRETURN_ERROR (H5E_ARGS, H5E_BADTYPE, FAIL, "not an error stack");
- }
-
- /*
- * Decrement the reference count. When it reaches zero the error stack
- * will be freed.
- */
- H5A_dec_ref (estack_id);
-
- FUNC_LEAVE (SUCCEED);
+ FUNC_ENTER(H5Eclose, FAIL);
+ H5ECLEAR;
+
+ /* check args */
+ if (H5_ERR != H5Aatom_group(estack_id)) {
+ HRETURN_ERROR(H5E_ARGS, H5E_BADTYPE, FAIL, "not an error stack");
+ }
+ /*
+ * Decrement the reference count. When it reaches zero the error stack
+ * will be freed.
+ */
+ H5A_dec_ref(estack_id);
+
+ FUNC_LEAVE(SUCCEED);
}
-
/*-------------------------------------------------------------------------
- * Function: H5Epush
+ * Function: H5Epush
*
- * Purpose: Pushes a new error record onto error stack ESTACK_ID. The
- * error has major and minor numbers MAJ_NUM and MIN_NUM, the
- * name of a function where the error was detected, the name of
- * the file where the error was detected, and the line within
- * that file. An error description string is also passed to
- * this function.
+ * Purpose: Pushes a new error record onto error stack ESTACK_ID. The
+ * error has major and minor numbers MAJ_NUM and MIN_NUM, the
+ * name of a function where the error was detected, the name of
+ * the file where the error was detected, and the line within
+ * that file. An error description string is also passed to
+ * this function.
*
- * The FUNCTION_NAME is copied (and possibly truncated) into a
- * fixed length character buffer; the FILE_NAME is pointed to
- * without copying it (we assume it's statically allocated from
- * __FILE__); and the DESC argument is strdup'd.
+ * The FUNCTION_NAME is copied (and possibly truncated) into a
+ * fixed length character buffer; the FILE_NAME is pointed to
+ * without copying it (we assume it's statically allocated from
+ * __FILE__); and the DESC argument is strdup'd.
*
- * It is safe to call this function before the thread global
- * error stack is initialized.
+ * It is safe to call this function before the thread global
+ * error stack is initialized.
*
- * Return: Success: SUCCEED
+ * Return: Success: SUCCEED
*
- * Failure: FAIL
+ * Failure: FAIL
*
- * Programmer: Robb Matzke
+ * Programmer: Robb Matzke
* Friday, December 12, 1997
*
* Modifications:
@@ -273,49 +269,48 @@ H5Eclose (hid_t estack_id)
*-------------------------------------------------------------------------
*/
herr_t
-H5Epush (hid_t estack_id, H5E_major_t maj_num, H5E_minor_t min_num,
- const char *function_name, const char *file_name, intn line,
- const char *desc)
+H5Epush(hid_t estack_id, H5E_major_t maj_num, H5E_minor_t min_num,
+ const char *function_name, const char *file_name, intn line,
+ const char *desc)
{
-
- H5E_t *estack = NULL; /* Ptr to the stack to put value on */
-
- /*
- * WARNING WARNING WARNING: We cannot call HERROR() from within this
- * function if ESTACK_ID is the thread global error stack or else we may
- * enter infinite recursion. Furthermore, we also cannot call any other
- * HDF5 macro or function which might call HERROR(). HERROR() is called
- * by HRETURN_ERROR() which could be called by FUNC_ENTER().
- */
-
- /*
- * Clear the thread global error stack only if it isn't the error stack on
- * which we're pushing the new error.
- */
- if (estack_id!=H5E_thrdid_g) H5ECLEAR;
-
- /*
- * check args, but don't call error functions if ESTACK_ID is the thread
- * global error handler.
- */
- if (H5_ERR!=H5Aatom_group (estack_id) ||
- NULL==(estack=H5Aatom_object (estack_id))) {
- HRETURN (FAIL);
- }
- if (!function_name || !file_name || !desc) {
- HRETURN (FAIL);
- }
- if (!estack->push) {
- HRETURN (FAIL);
- }
-
- /* Push the new error. It must be safe to call the push function. */
- if ((estack->push)(estack, maj_num, min_num, function_name, file_name,
- line, desc)<0) {
- HRETURN (FAIL);
- }
-
- return SUCCEED; /*don't use FUNC_LEAVE() here*/
+
+ H5E_t *estack = NULL; /* Ptr to the stack to put value on */
+
+ /*
+ * WARNING WARNING WARNING: We cannot call HERROR() from within this
+ * function if ESTACK_ID is the thread global error stack or else we may
+ * enter infinite recursion. Furthermore, we also cannot call any other
+ * HDF5 macro or function which might call HERROR(). HERROR() is called
+ * by HRETURN_ERROR() which could be called by FUNC_ENTER().
+ */
+
+ /*
+ * Clear the thread global error stack only if it isn't the error stack on
+ * which we're pushing the new error.
+ */
+ if (estack_id != H5E_thrdid_g)
+ H5ECLEAR;
+
+ /*
+ * check args, but don't call error functions if ESTACK_ID is the thread
+ * global error handler.
+ */
+ if (H5_ERR != H5Aatom_group(estack_id) ||
+ NULL == (estack = H5Aatom_object(estack_id))) {
+ HRETURN(FAIL);
+ }
+ if (!function_name || !file_name || !desc) {
+ HRETURN(FAIL);
+ }
+ if (!estack->push) {
+ HRETURN(FAIL);
+ }
+ /* Push the new error. It must be safe to call the push function. */
+ if ((estack->push) (estack, maj_num, min_num, function_name, file_name,
+ line, desc) < 0) {
+ HRETURN(FAIL);
+ }
+ return SUCCEED; /*don't use FUNC_LEAVE() here */
}
/*--------------------------------------------------------------------------
@@ -323,7 +318,7 @@ NAME
H5Eclear -- Clear an error stack for later error entries
USAGE
void H5Eclear(int32 err_hand)
- int32 err_hand; IN: The ID of the error stack to push the error onto.
+ int32 err_hand; IN: The ID of the error stack to push the error onto.
RETURNS
SUCCEED/FAIL
@@ -332,45 +327,43 @@ DESCRIPTION
--------------------------------------------------------------------------*/
herr_t
-H5Eclear (hid_t estack_id)
+H5Eclear(hid_t estack_id)
{
- H5E_t *estack = NULL;
-
- FUNC_ENTER (H5Eclear, FAIL);
-
- /*
- * Normally we would clear the thread error stack since we're entering an
- * API function, but we have to be careful here to not get into an
- * infinite recursion.
- */
- if (estack_id != H5E_thrdid_g) H5ECLEAR;
-
- /* check args */
- if (H5_ERR!=H5Aatom_group (estack_id) ||
- NULL==(estack=H5Aatom_object (estack_id))) {
- HRETURN_ERROR (H5E_ARGS, H5E_BADTYPE, FAIL, "not an error stack");
- }
-
- if (H5E_clear (estack)<0) {
- HRETURN_ERROR (H5E_INTERNAL, H5E_CANTINIT, FAIL,
- "unable to clear error stack");
- }
-
- FUNC_LEAVE (SUCCEED);
+ H5E_t *estack = NULL;
+
+ FUNC_ENTER(H5Eclear, FAIL);
+
+ /*
+ * Normally we would clear the thread error stack since we're entering an
+ * API function, but we have to be careful here to not get into an
+ * infinite recursion.
+ */
+ if (estack_id != H5E_thrdid_g)
+ H5ECLEAR;
+
+ /* check args */
+ if (H5_ERR != H5Aatom_group(estack_id) ||
+ NULL == (estack = H5Aatom_object(estack_id))) {
+ HRETURN_ERROR(H5E_ARGS, H5E_BADTYPE, FAIL, "not an error stack");
+ }
+ if (H5E_clear(estack) < 0) {
+ HRETURN_ERROR(H5E_INTERNAL, H5E_CANTINIT, FAIL,
+ "unable to clear error stack");
+ }
+ FUNC_LEAVE(SUCCEED);
}
-
/*-------------------------------------------------------------------------
- * Function: H5Eprint
+ * Function: H5Eprint
*
- * Purpose: Prints the current contents of error stack ESTACK_ID to the
- * stream FILE.
+ * Purpose: Prints the current contents of error stack ESTACK_ID to the
+ * stream FILE.
*
- * Return: Success: SUCCEED
+ * Return: Success: SUCCEED
*
- * Failure: FAIL
+ * Failure: FAIL
*
- * Programmer: Robb Matzke
+ * Programmer: Robb Matzke
* Friday, December 12, 1997
*
* Modifications:
@@ -378,122 +371,120 @@ H5Eclear (hid_t estack_id)
*-------------------------------------------------------------------------
*/
herr_t
-H5Eprint (hid_t estack_id, FILE *file)
+H5Eprint(hid_t estack_id, FILE * file)
{
- H5E_t *estack = NULL;
-
- FUNC_ENTER (H5Eprint, FAIL);
- /*
- * Don't clear the thread error stack if it's the one we're about to
- * print.
- */
- if (estack_id!=H5E_thrdid_g) H5ECLEAR;
-
- /* check args */
- if (H5_ERR!=H5Aatom_group (estack_id) ||
- NULL==(estack=H5Aatom_object (estack_id))) {
- HRETURN_ERROR (H5E_ARGS, H5E_BADTYPE, FAIL, "not an error stack");
- }
- if (!file) file = stderr;
-
- /* print it */
- if (H5E_print (estack, file)<0) {
- HRETURN_ERROR (H5E_INTERNAL, H5E_CANTINIT, FAIL,
- "can't print error stack");
- }
-
- FUNC_LEAVE (SUCCEED);
+ H5E_t *estack = NULL;
+
+ FUNC_ENTER(H5Eprint, FAIL);
+ /*
+ * Don't clear the thread error stack if it's the one we're about to
+ * print.
+ */
+ if (estack_id != H5E_thrdid_g)
+ H5ECLEAR;
+
+ /* check args */
+ if (H5_ERR != H5Aatom_group(estack_id) ||
+ NULL == (estack = H5Aatom_object(estack_id))) {
+ HRETURN_ERROR(H5E_ARGS, H5E_BADTYPE, FAIL, "not an error stack");
+ }
+ if (!file)
+ file = stderr;
+
+ /* print it */
+ if (H5E_print(estack, file) < 0) {
+ HRETURN_ERROR(H5E_INTERNAL, H5E_CANTINIT, FAIL,
+ "can't print error stack");
+ }
+ FUNC_LEAVE(SUCCEED);
}
-
/*-------------------------------------------------------------------------
- * Function: H5E_close
+ * Function: H5E_close
*
- * Purpose: Frees resources associated with an error stack.
+ * Purpose: Frees resources associated with an error stack.
*
- * Return: Success: SUCCEED
+ * Return: Success: SUCCEED
*
- * Failure: FAIL
+ * Failure: FAIL
*
- * Programmer: Robb Matzke
- * Friday, December 12, 1997
+ * Programmer: Robb Matzke
+ * Friday, December 12, 1997
*
* Modifications:
*
*-------------------------------------------------------------------------
*/
herr_t
-H5E_close (H5E_t *estack)
+H5E_close(H5E_t *estack)
{
- FUNC_ENTER (H5E_close, FAIL);
+ FUNC_ENTER(H5E_close, FAIL);
- /* check args */
- assert (estack);
+ /* check args */
+ assert(estack);
- /* clear error stack, then free it */
- H5E_clear (estack);
- H5MM_xfree (estack->stack);
- H5MM_xfree (estack);
+ /* clear error stack, then free it */
+ H5E_clear(estack);
+ H5MM_xfree(estack->stack);
+ H5MM_xfree(estack);
- FUNC_LEAVE (SUCCEED);
+ FUNC_LEAVE(SUCCEED);
}
-
/*-------------------------------------------------------------------------
- * Function: H5E_clear
+ * Function: H5E_clear
*
- * Purpose: Clears an error stack but does not release the stack.
+ * Purpose: Clears an error stack but does not release the stack.
*
- * Return: Success: SUCCEED
+ * Return: Success: SUCCEED
*
- * Failure: FAIL
+ * Failure: FAIL
*
- * Programmer: Robb Matzke
- * Friday, December 12, 1997
+ * Programmer: Robb Matzke
+ * Friday, December 12, 1997
*
* Modifications:
*
*-------------------------------------------------------------------------
*/
herr_t
-H5E_clear (H5E_t *estack)
+H5E_clear(H5E_t *estack)
{
- int i;
-
- FUNC_ENTER (H5E_clear, FAIL);
+ int i;
- /* check args */
- assert (estack);
+ FUNC_ENTER(H5E_clear, FAIL);
- /* Clear the error descriptions and reset the stack top */
- for (i=0; i<estack->top; i++) {
- H5MM_xfree (estack->stack[i].desc);
- estack->stack[i].desc = NULL;
- }
- estack->top = 0;
-
- FUNC_LEAVE (SUCCEED);
-}
+ /* check args */
+ assert(estack);
+
+ /* Clear the error descriptions and reset the stack top */
+ for (i = 0; i < estack->top; i++) {
+ H5MM_xfree(estack->stack[i].desc);
+ estack->stack[i].desc = NULL;
+ }
+ estack->top = 0;
+ FUNC_LEAVE(SUCCEED);
+}
/*-------------------------------------------------------------------------
- * Function: H5E_push
+ * Function: H5E_push
*
- * Purpose: Push an error onto an error stack. The FUNCTION_NAME is
- * copied (and possibly truncated) into the error record. The
- * FILE_NAME pointer is used directly since we assume it came
- * from the __FILE__ construct and is thus static data. The
- * description, DESC, is strdup'd into the error record.
+ * Purpose: Push an error onto an error stack. The FUNCTION_NAME is
+ * copied (and possibly truncated) into the error record. The
+ * FILE_NAME pointer is used directly since we assume it came
+ * from the __FILE__ construct and is thus static data. The
+ * description, DESC, is strdup'd into the error record.
*
- * Note: Warning: to prevent infinite recursivion this function must
- * not call any other HDF5 function and especially not
- * the HDF5 error handling macros.
+ * Note: Warning: to prevent infinite recursivion this function must
+ * not call any other HDF5 function and especially not
+ * the HDF5 error handling macros.
*
- * Return: Success: SUCCEED
+ * Return: Success: SUCCEED
*
- * Failure: FAIL
+ * Failure: FAIL
*
- * Programmer: Robb Matzke
+ * Programmer: Robb Matzke
* Friday, December 12, 1997
*
* Modifications:
@@ -501,61 +492,59 @@ H5E_clear (H5E_t *estack)
*-------------------------------------------------------------------------
*/
herr_t
-H5E_push (H5E_t *estack, H5E_major_t maj_num, H5E_minor_t min_num,
- const char *function_name, const char *file_name, intn line,
- const char *desc)
+H5E_push(H5E_t *estack, H5E_major_t maj_num, H5E_minor_t min_num,
+ const char *function_name, const char *file_name, intn line,
+ const char *desc)
{
- /* FUNC_ENTER (H5E_push, FAIL); -- can't do this here! */
-
- /* check args */
- assert (estack);
- assert (function_name);
- assert (file_name);
-
- /* Check if we need to expand the stack */
- if (estack->top >= estack->nelmts) {
- /*
- * Ask for new stack that's twice as large. Do not use hdf5 functions
- * to allocate the memory!
- */
- estack->nelmts *= 2;
- estack->stack = realloc (estack->stack,
- estack->nelmts * sizeof(H5E_error_t));
- assert (estack->stack);
- }
-
- /* Push the error onto the error stack */
- estack->stack[estack->top].maj_num = maj_num;
- estack->stack[estack->top].min_num = min_num;
- HDstrncpy (estack->stack[estack->top].func_name, function_name,
- MAX_FUNC_NAME);
- estack->stack[estack->top].func_name[MAX_FUNC_NAME-1] = '\0';
- estack->stack[estack->top].file_name = file_name;
- estack->stack[estack->top].line = line;
-
- /* strdup the description but don't use H5MM_xstrdup() */
- estack->stack[estack->top].desc = malloc (strlen (desc) + 1);
- assert (estack->stack[estack->top].desc);
- strcpy (estack->stack[estack->top].desc, desc);
-
- /* Increment the top of the error stack */
- estack->top++;
-
- return SUCCEED; /*don't use FUNC_LEAVE() here*/
+ /* FUNC_ENTER (H5E_push, FAIL); -- can't do this here! */
+
+ /* check args */
+ assert(estack);
+ assert(function_name);
+ assert(file_name);
+
+ /* Check if we need to expand the stack */
+ if (estack->top >= estack->nelmts) {
+ /*
+ * Ask for new stack that's twice as large. Do not use hdf5 functions
+ * to allocate the memory!
+ */
+ estack->nelmts *= 2;
+ estack->stack = realloc(estack->stack,
+ estack->nelmts * sizeof(H5E_error_t));
+ assert(estack->stack);
+ }
+ /* Push the error onto the error stack */
+ estack->stack[estack->top].maj_num = maj_num;
+ estack->stack[estack->top].min_num = min_num;
+ HDstrncpy(estack->stack[estack->top].func_name, function_name,
+ MAX_FUNC_NAME);
+ estack->stack[estack->top].func_name[MAX_FUNC_NAME - 1] = '\0';
+ estack->stack[estack->top].file_name = file_name;
+ estack->stack[estack->top].line = line;
+
+ /* strdup the description but don't use H5MM_xstrdup() */
+ estack->stack[estack->top].desc = malloc(strlen(desc) + 1);
+ assert(estack->stack[estack->top].desc);
+ strcpy(estack->stack[estack->top].desc, desc);
+
+ /* Increment the top of the error stack */
+ estack->top++;
+
+ return SUCCEED; /*don't use FUNC_LEAVE() here */
}
-
/*-------------------------------------------------------------------------
- * Function: H5E_print
+ * Function: H5E_print
*
- * Purpose: Prints an error stack ESTACK to the stream FILE.
+ * Purpose: Prints an error stack ESTACK to the stream FILE.
*
- * Return: Success: SUCCEED
+ * Return: Success: SUCCEED
*
- * Failure: FAIL
+ * Failure: FAIL
*
- * Programmer: Robb Matzke
+ * Programmer: Robb Matzke
* Friday, December 12, 1997
*
* Modifications:
@@ -563,44 +552,45 @@ H5E_push (H5E_t *estack, H5E_major_t maj_num, H5E_minor_t min_num,
*-------------------------------------------------------------------------
*/
herr_t
-H5E_print (H5E_t *estack, FILE *file)
+H5E_print(H5E_t *estack, FILE * file)
{
- intn i, j;
- const char *maj_str = NULL;
- const char *min_str = NULL;
-
- FUNC_ENTER (H5E_print, FAIL);
-
- /* check args */
- assert (estack);
- assert (file);
-
- if (0==estack->top) HRETURN (SUCCEED);
-
- fprintf (file, "HDF5-DIAG: error stack:\n");
- for (i=0; i<estack->top; i++) {
-
- /* Find major and minor error strings */
- for (j=0, maj_str="??"; j<NELMTS (H5E_major_mesg_g); j++) {
- if (H5E_major_mesg_g[j].error_code==estack->stack[i].maj_num) {
- maj_str = H5E_major_mesg_g[j].str;
- break;
- }
- }
- for (j=0, min_str="??"; j<NELMTS (H5E_minor_mesg_g); j++) {
- if (H5E_minor_mesg_g[j].error_code==estack->stack[i].min_num) {
- min_str = H5E_minor_mesg_g[j].str;
- break;
- }
- }
-
- /* Print error message */
- fprintf (file, " #%03d: %s:%d in %s() error %02d/%02d: %s\n",
- i, estack->stack[i].file_name, estack->stack[i].line,
- estack->stack[i].func_name, estack->stack[i].maj_num,
- estack->stack[i].min_num, estack->stack[i].desc);
- fprintf (file, " %s (%s)\n", maj_str, min_str);
- }
-
- FUNC_LEAVE (SUCCEED);
+ intn i, j;
+ const char *maj_str = NULL;
+ const char *min_str = NULL;
+
+ FUNC_ENTER(H5E_print, FAIL);
+
+ /* check args */
+ assert(estack);
+ assert(file);
+
+ if (0 == estack->top)
+ HRETURN(SUCCEED);
+
+ fprintf(file, "HDF5-DIAG: error stack:\n");
+ for (i = 0; i < estack->top; i++) {
+
+ /* Find major and minor error strings */
+ for (j = 0, maj_str = "??"; j < NELMTS(H5E_major_mesg_g); j++) {
+ if (H5E_major_mesg_g[j].error_code == estack->stack[i].maj_num) {
+ maj_str = H5E_major_mesg_g[j].str;
+ break;
+ }
+ }
+ for (j = 0, min_str = "??"; j < NELMTS(H5E_minor_mesg_g); j++) {
+ if (H5E_minor_mesg_g[j].error_code == estack->stack[i].min_num) {
+ min_str = H5E_minor_mesg_g[j].str;
+ break;
+ }
+ }
+
+ /* Print error message */
+ fprintf(file, " #%03d: %s:%d in %s() error %02d/%02d: %s\n",
+ i, estack->stack[i].file_name, estack->stack[i].line,
+ estack->stack[i].func_name, estack->stack[i].maj_num,
+ estack->stack[i].min_num, estack->stack[i].desc);
+ fprintf(file, " %s (%s)\n", maj_str, min_str);
+ }
+
+ FUNC_LEAVE(SUCCEED);
}