38#include "ws_symbol_export.h"
39#include "ws_attributes.h"
41#define XCEPT_GROUP_ANY 0
42#define XCEPT_CODE_ANY 0
43#define XCEPT_BAD_ALLOC 1
49enum { except_no_call, except_call };
52 unsigned long except_group;
53 unsigned long except_code;
58 const char *
volatile except_message;
59 void *
volatile except_dyndata;
63 void (*except_func)(
void *);
74enum except_stacktype {
75 XCEPT_CLEANUP, XCEPT_CATCHER
80 enum except_stacktype except_type;
95WS_DLL_PUBLIC
int except_init(
void);
96WS_DLL_PUBLIC
void except_deinit(
void);
97WS_DLL_PUBLIC WS_NORETURN
void except_rethrow(
except_t *);
98WS_DLL_PUBLIC WS_NORETURN
void except_throw(
long,
long,
const char *);
99WS_DLL_PUBLIC WS_NORETURN
void except_throwd(
long,
long,
const char *,
void *);
100WS_DLL_PUBLIC WS_NORETURN
void except_vthrowf(
long group,
long code,
const char *fmt, va_list vl);
101WS_DLL_PUBLIC WS_NORETURN
void except_throwf(
long,
long,
const char *, ...)
103WS_DLL_PUBLIC
void (*except_unhandled_catcher(
void (*)(
except_t *)))(
except_t *);
104extern
unsigned long except_code(
except_t *);
105extern
unsigned long except_group(
except_t *);
106extern const
char *except_message(
except_t *);
107extern
void *except_data(
except_t *);
108WS_DLL_PUBLIC
void *except_take_data(
except_t *);
109WS_DLL_PUBLIC
void except_set_allocator(
void *(*)(
size_t),
void (*)(
void *));
110WS_DLL_PUBLIC
void *except_alloc(
size_t);
111WS_DLL_PUBLIC
void except_free(
void *);
113#define except_code(E) ((E)->except_id.except_code)
114#define except_group(E) ((E)->except_id.except_group)
115#define except_message(E) ((E)->except_message)
116#define except_data(E) ((E)->except_dyndata)
130#define except_cleanup_push(F, C) \
132 struct except_stacknode except_sn; \
133 struct except_cleanup except_cl; \
134 except_setup_clean(&except_sn, &except_cl, F, C)
136#define except_cleanup_pop(E) \
139 except_cl.except_func(except_cl.except_context); \
142#define except_checked_cleanup_pop(F, E) \
144 assert (except_cl.except_func == (F)); \
146 except_cl.except_func(except_cl.except_context); \
151#define except_cleanup_push_pfx(pfx, F, C) \
153 struct except_stacknode pfx##_except_sn; \
154 struct except_cleanup pfx##_except_cl; \
155 except_setup_clean(&pfx##_except_sn, &pfx##_except_cl, F, C)
157#define except_cleanup_pop_pfx(pfx, E) \
160 pfx##_except_cl.except_func(pfx##_except_cl.except_context);\
163#define except_checked_cleanup_pop_pfx(pfx, F, E) \
165 assert (pfx##_except_cl.except_func == (F)); \
167 pfx##_except_cl.except_func(pfx##_except_cl.except_context);\
172#define except_try_push(ID, NUM, PPE) \
174 struct except_stacknode except_sn; \
175 struct except_catch except_ch; \
176 except_setup_try(&except_sn, &except_ch, ID, NUM); \
177 if (setjmp(except_ch.except_jmp)) \
178 *(PPE) = &except_ch.except_obj; \
182#define except_try_pop() \
183 except_free(except_ch.except_obj.except_dyndata); \