Logo AND Algorithmique Numérique Distribuée

Public GIT Repository
kill dead cruft
[simgrid.git] / include / xbt / ex.h
index 5582bf5..54f8d0f 100644 (file)
 #include <xbt/sysdep.h>
 
 /* required ISO-C standard facilities */
+#include <errno.h>
 #include <stdio.h>
 
+//#define __EX_MCTX_MCSC__ 1
+#define __EX_MCTX_SSJLJ__ 1
 /* the machine context */
 #if defined(__EX_MCTX_MCSC__)
 #include <ucontext.h>            /* POSIX.1 ucontext(3) */
@@ -63,8 +66,8 @@
 
 /* declare the machine context type */
 typedef struct { __ex_mctx_struct } __ex_mctx_t;
-
-/** \ingroup XBT_ex
+/** @addtogroup XBT_ex
  *
  * This module is a small ISO-C++ style exception handling library
  * for use in the ISO-C language. It allows you to use the paradigm 
@@ -82,16 +85,16 @@ typedef struct { __ex_mctx_struct } __ex_mctx_t;
  * These features are brought to you by a modified version of the libex 
  * library, one of the numerous masterpiece of Ralf S. Engelschall.
  *
- * @section Introduction
+ * @section XBT_ex_intro DESCRIPTION
  * 
  * In SimGrid, exceptions is a triple <\a msg , \a category , \a value> 
  * where \a msg is a human-readable text describing the exceptional 
  * condition, \a code an integer describing what went wrong and \a value
  * providing a sort of sub-category. (this is different in the original libex).
  *
- * @section Basic usage
+ * @section XBT_ex_base BASIC USAGE
  *
- * \em xbt_try \b TRIED_BLOCK [\em xbt_cleanup \b CLEANUP_BLOCK] \em xbt_catch (variable) \b CATCH_BLOCK
+ * \em TRY \b TRIED_BLOCK [\em CLEANUP \b CLEANUP_BLOCK] \em CATCH (variable) \b CATCH_BLOCK
  *
  * This is the primary syntactical construct provided. It is modeled after the
  * ISO-C++ try-catch clause and should sound familiar to most of you.
@@ -114,71 +117,39 @@ typedef struct { __ex_mctx_struct } __ex_mctx_t;
  * CATCH_BLOCK block. 
  *
  * Some notes:
- *  - xbt_try, xbt_cleanup and xbt_catch cannot be used separately, they work
+ *  - TRY, CLEANUP and CATCH cannot be used separately, they work
  *    only in combination and form a language clause as a whole.
  *  - In contrast to the syntax of other languages (such as C++ or Jave) there
- *    is only one xbt_catch block and not multiple ones (all exceptions are
- *    of the same C type xbt_t). 
- *  - the variable of xbt_catch can naturally be reused in subsequent 
- *    xbt_catch clauses.
- *  - it is possible to nest xbt_try clauses.
+ *    is only one CATCH block and not multiple ones (all exceptions are
+ *    of the same \em xbt_ex_t C type). 
+ *  - the variable of CATCH can naturally be reused in subsequent 
+ *    CATCH clauses.
+ *  - it is possible to nest TRY clauses.
  *
- * The xbt_try block is a regular ISO-C language statement block, but it is not
+ * The TRY block is a regular ISO-C language statement block, but it is not
  * allowed to jump into it via "goto" or longjmp(3) or out of it via "break",
  * "return", "goto" or longjmp(3) because there is some hidden setup and
  * cleanup that needs to be done regardless of whether an exception is
  * caught. Bypassing these steps will break the exception handling facility.
  *     
- * The xbt_cleanup and xbt_catch blocks are regular ISO-C language statement
- * blocks without any restrictions. You are even allowed to throw (and in the
- * xbt_catch block to re-throw) exceptions.
+ * The CLEANUP and CATCH blocks are regular ISO-C language statement
+ * blocks without any restrictions. You are even allowed to throw (and, in the
+ * CATCH block, to re-throw) exceptions.
  *
- * There is one subtle detail you should remember about xbt_try blocks:
- * Variables used in the xbt_cleanup or xbt_catch clauses must be declared with
+ * There is one subtle detail you should remember about TRY blocks:
+ * Variables used in the CLEANUP or CATCH clauses must be declared with
  * the storage class "volatile", otherwise they might contain outdated
  * information if an exception it thrown.
  *
  *
- * This is because you usually do not know which commands in the xbt_try
+ * This is because you usually do not know which commands in the TRY
  * were already successful before the exception was thrown (logically speaking)
  * and because the underlying ISO-C setjmp(3) facility applies those
  * restrictions (technically speaking). As a matter of fact, value changes
- * between the xbt_try and the xbt_throw may be discarded if you forget the
+ * between the TRY and the THROW may be discarded if you forget the
  * "volatile" keyword. 
  * 
- * @section Advanced usage
- *
- * @subsection xbt_defer DEFERING_BLOCK
- *
- * This directive executes DEFERING_BLOCK while deferring the throwing of
- * exceptions, i.e., exceptions thrown within this block are remembered, but
- * the control flow still continues until the end of the block. At its end, the
- * first exception which occured within the block (if any) is rethrown (any
- * subsequent exceptions are ignored).
- *
- * DEFERING_BLOCK is a regular ISO-C language statement block, but it is not
- * allowed to jump into it via "goto" or longjmp(3) or out of it via "break",
- * "return", "goto" or longjmp(3). It is however allowed to nest xbt_defer
- * clauses.
- *
- * @subsection xbt_shield SHIELDED_BLOCK
- *
- * This directive executes SHIELDED_BLOCK while shielding it against the
- * throwing of exceptions, i.e., any exception thrown from this block or its
- * subroutines are silently ignored.
- *
- * SHIELDED_BLOCK is a regular ISO-C language statement block, but it is not
- * allowed to jump into it via "goto" or longjmp(3) or out of it via "break",
- * "return", "goto" or longjmp(3).  It is however allowed to nest xbt_shield
- * clauses.
- *
- * @subsection Retrieving the current execution condition
- *
- * \a xbt_catching, \a xbt_deferred and \a xbt_shielding return a boolean
- * indicating whether the current scope is within a TRYIED_BLOCK,
- * DEFERING_BLOCK and SHIELDED_BLOCK (respectively)
- *
- * \section PROGRAMMING PITFALLS
+ * \section XBT_ex_pitfalls PROGRAMMING PITFALLS 
  *
  * Exception handling is a very elegant and efficient way of dealing with
  * exceptional situation. Nevertheless it requires additional discipline in
@@ -186,126 +157,91 @@ typedef struct { __ex_mctx_struct } __ex_mctx_t;
  * following code which shows some pitfalls and contains many errors (assuming
  * a mallocex() function which throws an exception if malloc(3) fails):
  *
- \verbatim
-// BAD EXAMPLE
-xbt_try {
-  char *cp1, *cp2, cp3;
-
-  cp1 = mallocex(SMALLAMOUNT);
-  globalcontext->first = cp1;
-  cp2 = mallocex(TOOBIG);
-  cp3 = mallocex(SMALLAMOUNT);
-  strcpy(cp1, "foo");
-  strcpy(cp2, "bar");
-} xbt_cleanup {
-  if (cp3 != NULL) free(cp3);
-  if (cp2 != NULL) free(cp2);
-  if (cp1 != NULL) free(cp1);
-} xbt_catch(ex) {
-  printf("cp3=%s", cp3);
-  ex_rethrow;
-}\endverbatim
-
+ * \dontinclude ex_test.c
+ * \skip BAD_EXAMPLE
+ * \until end_of_bad_example
+ *
  * This example raises a few issues:
- *  -# \b variable scope\n
- *     Variables which are used in the xbt_cleanup or xbt_catch clauses must be
- *     declared before the xbt_try clause, otherwise they only exist inside the
- *     xbt_try block. In the example above, cp1, cp2 and cp3 only exist in the
- *     xbt_try block and are invisible from the xbt_cleanup and xbt_catch
+ *  -# \b variable \b scope \n
+ *     Variables which are used in the CLEANUP or CATCH clauses must be
+ *     declared before the TRY clause, otherwise they only exist inside the
+ *     TRY block. In the example above, cp1, cp2 and cp3 only exist in the
+ *     TRY block and are invisible from the CLEANUP and CATCH
  *     blocks.
- *  -# \b variable initialization \n
- *     Variables which are used in the xbt_cleanup or xbt_catch clauses must
- *     be initialized before the point of the first possible xbt_throw is
- *     reached. In the example above, xbt_cleanup would have trouble using cp3
+ *  -# \b variable \b initialization \n
+ *     Variables which are used in the CLEANUP or CATCH clauses must
+ *     be initialized before the point of the first possible THROW is
+ *     reached. In the example above, CLEANUP would have trouble using cp3
  *     if mallocex() throws a exception when allocating a TOOBIG buffer.
- *  -# \b volatile variable \n
- *     Variables which are used in the xbt_cleanup or xbt_catch clauses MUST BE
+ *  -# \b volatile \b variable \n
+ *     Variables which are used in the CLEANUP or CATCH clauses MUST BE
  *     DECLARED AS "volatile", otherwise they might contain outdated
  *     information when an exception is thrown. 
- *  -# \b clean before catch \n
- *     The xbt_cleanup clause is not only place before the xbt_catch clause in
+ *  -# \b clean \b before \b catch \n
+ *     The CLEANUP clause is not only place before the CATCH clause in
  *     the source code, it also occures before in the control flow. So,
- *     resources being cleaned up cannot be used in the xbt_catch block. In the
- *     example, c3 gets freed before the printf placed in xbt_catch.
- *  -# \b variable uninitialization \n
+ *     resources being cleaned up cannot be used in the CATCH block. In the
+ *     example, c3 gets freed before the printf placed in CATCH.
+ *  -# \b variable \b uninitialization \n
  *     If resources are passed out of the scope of the
- *     xbt_try/xbt_cleanup/xbt_catch construct, they naturally shouldn't get
- *     cleaned up. The example above does free(3) cp1 in xbt_cleanup although
+ *     TRY/CLEANUP/CATCH construct, they naturally shouldn't get
+ *     cleaned up. The example above does free(3) cp1 in CLEANUP although
  *     its value was affected to globalcontext->first, invalidating this
  *     pointer.
 
  * The following is fixed version of the code (annotated with the pitfall items
- * for reference):
- \verbatim
-// GOOD EXAMPLE
-{ / *01* /
-  char * volatile / *03* / cp1 = NULL / *02* /;
-  char * volatile / *03* / cp2 = NULL / *02* /;
-  char * volatile / *03* / cp3 = NULL / *02* /;
-  try {
-    cp1 = mallocex(SMALLAMOUNT);
-    globalcontext->first = cp1;
-    cp1 = NULL / *05 give away* /;
-    cp2 = mallocex(TOOBIG);
-    cp3 = mallocex(SMALLAMOUNT);
-    strcpy(cp1, "foo");
-    strcpy(cp2, "bar");
-  }
-  clean { / *04* /
-    printf("cp3=%s", cp3 == NULL / *02* / ? "" : cp3);
-    if (cp3 != NULL)
-      free(cp3);
-    if (cp2 != NULL)
-      free(cp2);
-    / *05 cp1 was given away * /
-  }
-  catch(ex) {
-    / *05 global context untouched * /
-    rethrow;
-  }
-}\endverbatim
-
+ * for reference): 
+ *
+ * \skip GOOD_EXAMPLE
+ * \until end_of_good_example
  *
  * @{
  */
 
+typedef enum {
+  unknown_error=0,  /**< unknown error */
+  arg_error,        /**< Invalid argument */
+  mismatch_error,   /**< The provided ID does not match */
+  
+  system_error,   /**< a syscall did fail */
+  network_error,  /**< error while sending/receiving data */
+  timeout_error,  /**< not quick enough, dude */
+  thread_error    /**< error while [un]locking */
+} xbt_errcat_t;
+
+const char *xbt_errcat_name(xbt_error_t errcode);
+
 /** @brief Structure describing an exception */
 typedef struct {
-  char *msg;      /**< human readable message; to be freed */
-  int   category; /**< category like HTTP (what went wrong) */
-  int   value;    /**< like errno (why did it went wrong) */
+  char        *msg;      /**< human readable message; to be freed */
+  xbt_errcat_t category; /**< category like HTTP (what went wrong) */
+  int          value;    /**< like errno (why did it went wrong) */
   /* throw point */
   char *host;     /* NULL for localhost; hostname:port if remote */
   char *procname; 
   char *file;     /**< to be freed only for remote exceptions */
   int   line;     
   char *func;     /**< to be freed only for remote exceptions */
-} ex_t;
+  /* Backtrace */
+  void *bt[10];
+  int   used;
+} xbt_ex_t;
 
 /* declare the context type (private) */
 typedef struct {
     __ex_mctx_t  *ctx_mctx;     /* permanent machine context of enclosing try/catch */
-    int           ctx_deferred; /* permanent flag whether exception is deferred */
-    int           ctx_deferring;/* permanent counter of exception deferring level */
-    int           ctx_defer;    /* temporary flag for exception deferring macro */
-    int           ctx_shielding;/* permanent counter of exception shielding level */
-    int           ctx_shield;   /* temporary flag for exception shielding macro */
     int           ctx_caught;   /* temporary flag whether exception was caught */
-    volatile ex_t ctx_ex;       /* temporary exception storage */
+    volatile xbt_ex_t ctx_ex;       /* temporary exception storage */
 } ex_ctx_t;
 
 /* the static and dynamic initializers for a context structure */
 #define XBT_CTX_INITIALIZER \
-    { NULL, 0, 0, 0, 0, 0, 0, { /* content */ NULL, 0, 0, \
-                                /*throw point*/ NULL, NULL, NULL, 0, NULL } }
+    { NULL, 0, { /* content */ NULL, 0, 0, \
+                 /* throw point*/ NULL, NULL, NULL, 0, NULL,\
+                 /* backtrace */ {NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL},0 } }
 #define XBT_CTX_INITIALIZE(ctx) \
     do { \
         (ctx)->ctx_mctx        = NULL; \
-        (ctx)->ctx_deferred    = 0;    \
-        (ctx)->ctx_deferring   = 0;    \
-        (ctx)->ctx_defer       = 0;    \
-        (ctx)->ctx_shielding   = 0;    \
-        (ctx)->ctx_shield      = 0;    \
         (ctx)->ctx_caught      = 0;    \
         (ctx)->ctx_ex.msg      = NULL; \
         (ctx)->ctx_ex.category = 0;    \
@@ -315,6 +251,17 @@ typedef struct {
         (ctx)->ctx_ex.file     = NULL; \
         (ctx)->ctx_ex.line     = 0;    \
         (ctx)->ctx_ex.func     = NULL; \
+        (ctx)->ctx_ex.bt[0]    = NULL; \
+        (ctx)->ctx_ex.bt[1]    = NULL; \
+        (ctx)->ctx_ex.bt[2]    = NULL; \
+        (ctx)->ctx_ex.bt[3]    = NULL; \
+        (ctx)->ctx_ex.bt[4]    = NULL; \
+        (ctx)->ctx_ex.bt[5]    = NULL; \
+        (ctx)->ctx_ex.bt[6]    = NULL; \
+        (ctx)->ctx_ex.bt[7]    = NULL; \
+        (ctx)->ctx_ex.bt[8]    = NULL; \
+        (ctx)->ctx_ex.bt[9]    = NULL; \
+        (ctx)->ctx_ex.used     = 0; \
     } while (0)
 
 /* the exception context */
@@ -323,14 +270,14 @@ extern ex_ctx_cb_t __xbt_ex_ctx;
 extern ex_ctx_t *__xbt_ex_ctx_default(void);
 
 /* the termination handler */
-typedef void (*ex_term_cb_t)(ex_t *);
+typedef void (*ex_term_cb_t)(xbt_ex_t *);
 extern ex_term_cb_t __xbt_ex_terminate;
-extern void __xbt_ex_terminate_default(ex_t *e);
+extern void __xbt_ex_terminate_default(xbt_ex_t *e)  __attribute__((__noreturn__));
 
 /** @brief Introduce a block where exception may be dealed with 
  *  @hideinitializer
  */
-#define xbt_try \
+#define TRY \
     { \
         ex_ctx_t *__xbt_ex_ctx_ptr = __xbt_ex_ctx(); \
         int __ex_cleanup = 0; \
@@ -344,12 +291,11 @@ extern void __xbt_ex_terminate_default(ex_t *e);
 /** @brief optional(!) block for cleanup 
  *  @hideinitializer
  */
-#define xbt_cleanup \
+#define CLEANUP \
             else { \
             } \
             __xbt_ex_ctx_ptr->ctx_caught = 0; \
-        } \
-        else { \
+        } else { \
             __ex_mctx_restored(&__ex_mctx_me); \
             __xbt_ex_ctx_ptr->ctx_caught = 1; \
         } \
@@ -361,13 +307,12 @@ extern void __xbt_ex_terminate_default(ex_t *e);
 /** @brief the block for catching (ie, deal with) an exception 
  *  @hideinitializer
  */
-#define xbt_catch(e) \
+#define CATCH(e) \
             else { \
             } \
             if (!(__ex_cleanup)) \
                 __xbt_ex_ctx_ptr->ctx_caught = 0; \
-        } \
-        else { \
+        } else { \
             if (!(__ex_cleanup)) { \
                 __ex_mctx_restored(&__ex_mctx_me); \
                 __xbt_ex_ctx_ptr->ctx_caught = 1; \
@@ -383,97 +328,89 @@ extern void __xbt_ex_terminate_default(ex_t *e);
 /** @brief Build an exception from the supplied arguments and throws it
  *  @hideinitializer
  *
- * If called from within a sg_try/sg_catch construct, this exception 
- * is copied into the sg_catch relevant variable program control flow 
- * is derouted to the sg_catch (after the optional sg_cleanup). 
+ *  @param c: category code (integer)
+ *  @param v: value (integer)
+ *  @param m: message text
+ *
+ * If called from within a TRY/CATCH construct, this exception 
+ * is copied into the CATCH relevant variable program control flow 
+ * is derouted to the CATCH (after the optional sg_cleanup). 
  *
- * If no sg_try/sg_catch conctruct embeeds this call, the program calls
+ * If no TRY/CATCH construct embeeds this call, the program calls
  * abort(3). 
  *
- * The sg_throw can be performed everywhere, including inside sg_try
- * sg_cleanup and sg_catch blocks.
+ * The THROW can be performed everywhere, including inside TRY
+ * CLEANUP and CATCH blocks.
  */
-#define xbt_throw(c,v,m) \
-    ((   __xbt_ex_ctx()->ctx_shielding > 0 \
-      || (__xbt_ex_ctx()->ctx_deferring > 0 && __xbt_ex_ctx()->ctx_deferred == 1)) ? 0 : \
-     (__xbt_ex_ctx()->ctx_ex.msg      = bprintf(m), \
-      __xbt_ex_ctx()->ctx_ex.category = (c), \
-      __xbt_ex_ctx()->ctx_ex.value    = (v), \
-      __xbt_ex_ctx()->ctx_ex.host     = (char*)NULL, \
-      __xbt_ex_ctx()->ctx_ex.procname = strdup(xbt_procname()), \
-      __xbt_ex_ctx()->ctx_ex.file     = (char*)__FILE__, \
-      __xbt_ex_ctx()->ctx_ex.line     = __LINE__, \
-      __xbt_ex_ctx()->ctx_ex.func     = (char*)_XBT_FUNCTION, \
-      __xbt_ex_ctx()->ctx_deferred     = 1, \
-      (__xbt_ex_ctx()->ctx_deferring > 0 ? 0 : \
-       (__xbt_ex_ctx()->ctx_mctx == NULL \
-        ? (__xbt_ex_terminate((ex_t *)&(__xbt_ex_ctx()->ctx_ex)), -1) \
-        : (__ex_mctx_restore(__xbt_ex_ctx()->ctx_mctx), 1) ))))
+#include <execinfo.h>
+#define _THROW(c,v,m) \
+  do { /* change this sequence into one block */                               \
+     /* build the exception */ \
+     __xbt_ex_ctx()->ctx_ex.msg      = (m); \
+     __xbt_ex_ctx()->ctx_ex.category = (c); \
+     __xbt_ex_ctx()->ctx_ex.value    = (v);  \
+     __xbt_ex_ctx()->ctx_ex.host     = (char*)NULL;                            \
+     __xbt_ex_ctx()->ctx_ex.procname = strdup(xbt_procname());                 \
+     __xbt_ex_ctx()->ctx_ex.file     = (char*)__FILE__;                        \
+     __xbt_ex_ctx()->ctx_ex.line     = __LINE__;                               \
+     __xbt_ex_ctx()->ctx_ex.func     = (char*)_XBT_FUNCTION;                   \
+     __xbt_ex_ctx()->ctx_ex.used     = backtrace((void**)__xbt_ex_ctx()->ctx_ex.bt,10);\
+     /* deal with the exception */                                             \
+     if (__xbt_ex_ctx()->ctx_mctx == NULL)                                     \
+       __xbt_ex_terminate((xbt_ex_t *)&(__xbt_ex_ctx()->ctx_ex)); /* not catched */\
+     else                                                                      \
+       __ex_mctx_restore(__xbt_ex_ctx()->ctx_mctx); /* catched somewhere */    \
+     abort();/* nope, stupid GCC, we won't survive a THROW (this won't be reached) */ \
+  } while (0)
+
+#define THROW0(c,v,m)                   _THROW(c,v,bprintf(m))
+#define THROW1(c,v,m,a1)                _THROW(c,v,bprintf(m,a1))
+#define THROW2(c,v,m,a1,a2)             _THROW(c,v,bprintf(m,a1,a2))
+#define THROW3(c,v,m,a1,a2,a3)          _THROW(c,v,bprintf(m,a1,a2,a3))
+#define THROW4(c,v,m,a1,a2,a3,a4)       _THROW(c,v,bprintf(m,a1,a2,a3,a4))
+#define THROW5(c,v,m,a1,a2,a3,a4,a5)    _THROW(c,v,bprintf(m,a1,a2,a3,a4,a5))
+#define THROW6(c,v,m,a1,a2,a3,a4,a5,a6) _THROW(c,v,bprintf(m,a1,a2,a3,a4,a5,a6))
+
+#define THROW_IMPOSSIBLE     THROW0(unknown_error,0,"The Impossible Did Happen (yet again)")
+#define DIE_IMPOSSIBLE       xbt_assert0(0,"The Impossible Did Happen (yet again)")
+#define THROW_UNIMPLEMENTED  THROW1(unknown_error,0,"Function %s unimplemented",__FUNCTION__)
 
 /** @brief re-throwing of an already caught exception (ie, pass it to the upper catch block) 
  *  @hideinitializer
  */
-#define xbt_rethrow \
-    ((   __xbt_ex_ctx()->ctx_shielding > 0 \
-      || __xbt_ex_ctx()->ctx_deferring > 0) ? 0 : \
-      (  __xbt_ex_ctx()->ctx_mctx == NULL \
-       ? (__xbt_ex_terminate((ex_t *)&(__xbt_ex_ctx()->ctx_ex)), -1) \
-       : (__ex_mctx_restore(__xbt_ex_ctx()->ctx_mctx), 1) ))
+#define RETHROW \
+  do { \
+   if (__xbt_ex_ctx()->ctx_mctx == NULL) \
+     __xbt_ex_terminate((xbt_ex_t *)&(__xbt_ex_ctx()->ctx_ex)); \
+   else \
+     __ex_mctx_restore(__xbt_ex_ctx()->ctx_mctx); \
+   abort();\
+  } while(0)
 
-/** @brief shield an operation from exception handling 
+/** @brief like RETHROW, but adding some details to the message
  *  @hideinitializer
  */
-#define xbt_shield \
-    for (__xbt_ex_ctx()->ctx_shielding++, \
-         __xbt_ex_ctx()->ctx_shield =  1; \
-         __xbt_ex_ctx()->ctx_shield == 1; \
-         __xbt_ex_ctx()->ctx_shield =  0, \
-         __xbt_ex_ctx()->ctx_shielding--)
 
-/** @brief defer immediate exception handling 
- *  @hideinitializer
- */
-#define xbt_defer \
-    for (((__xbt_ex_ctx()->ctx_deferring)++ == 0 ? __xbt_ex_ctx()->ctx_deferred = 0 : 0), \
-         __xbt_ex_ctx()->ctx_defer =  1;  \
-         __xbt_ex_ctx()->ctx_defer == 1;  \
-         __xbt_ex_ctx()->ctx_defer =  0,  \
-         ((--(__xbt_ex_ctx()->ctx_deferring) == 0 && __xbt_ex_ctx()->ctx_deferred == 1) ? xbt_rethrow : 0))
 
-/** @brief exception handling tests 
- *  @hideinitializer
- */
-#define xbt_catching \
-    (__xbt_ex_ctx()->ctx_mctx != NULL)
-/** @brief exception handling tests 
- *  @hideinitializer
- */
-#define xbt_shielding \
-    (__xbt_ex_ctx()->ctx_shielding > 0)
-/** @brief exception handling tests 
- *  @hideinitializer
- */
-#define xbt_deferring \
-    (__xbt_ex_ctx()->ctx_deferring > 0)
+#define _XBT_PRE_RETHROW \
+  do {                                                               \
+    char *_xbt_ex_internal_msg = __xbt_ex_ctx()->ctx_ex.msg;         \
+    __xbt_ex_ctx()->ctx_ex.msg = bprintf(
+#define _XBT_POST_RETHROW \
+ _xbt_ex_internal_msg); \
+    free(_xbt_ex_internal_msg);                                      \
+    RETHROW;                                                         \
+  } while (0)
 
-/* optional namespace mapping */
-#if defined(__EX_NS_UCCXX__)
-#define Try      xbt_try
-#define Cleanup  xbt_cleanup
-#define Catch    xbt_catch
-#define Throw    xbt_throw
-#define Rethrow  xbt_rethrow
-#define Shield   xbt_shield
-#define Defer    xbt_defer
-#elif defined(__EX_NS_CXX__) || (!defined(__cplusplus) && !defined(__EX_NS_CUSTOM__))
-#define try      xbt_try
-#define cleanup  xbt_cleanup
-#define catch    xbt_catch
-#define throw    xbt_throw
-#define rethrow  xbt_rethrow
-#define shield   xbt_shield
-#define defer    xbt_defer
-#endif
+#define RETHROW0(msg)           _XBT_PRE_RETHROW msg,          _XBT_POST_RETHROW
+#define RETHROW1(msg,a)         _XBT_PRE_RETHROW msg,a,        _XBT_POST_RETHROW
+#define RETHROW2(msg,a,b)       _XBT_PRE_RETHROW msg,a,b,      _XBT_POST_RETHROW
+#define RETHROW3(msg,a,b,c)     _XBT_PRE_RETHROW msg,a,b,c,    _XBT_POST_RETHROW
+#define RETHROW4(msg,a,b,c,d)   _XBT_PRE_RETHROW msg,a,b,c,    _XBT_POST_RETHROW
+#define RETHROW5(msg,a,b,c,d,e) _XBT_PRE_RETHROW msg,a,b,c,d,e _XBT_POST_RETHROW
+
+void xbt_ex_free(xbt_ex_t e);
+const char * xbt_ex_catname(xbt_errcat_t cat);
 
 /** @} */
 #endif /* __XBT_EX_H__ */