Add VarThrowsExpr
This commit is contained in:
parent
6b6d715653
commit
8923eb681a
@ -14,7 +14,7 @@
|
|||||||
#endif
|
#endif
|
||||||
|
|
||||||
#define WITH99_MAJOR 3
|
#define WITH99_MAJOR 3
|
||||||
#define WITH99_MINOR 1
|
#define WITH99_MINOR 2
|
||||||
#define WITH99_PATCH 0
|
#define WITH99_PATCH 0
|
||||||
|
|
||||||
#define WITH99_VERSION_COMPATIBLE(x, y, z) (WITH99_MAJOR == (x) && ((WITH99_MINOR == (y) && WITH99_PATCH >= (z)) || (WITH99_MINOR > (y))))
|
#define WITH99_VERSION_COMPATIBLE(x, y, z) (WITH99_MAJOR == (x) && ((WITH99_MINOR == (y) && WITH99_PATCH >= (z)) || (WITH99_MINOR > (y))))
|
||||||
|
@ -29,6 +29,13 @@
|
|||||||
ML99_just(v((deinit)))\
|
ML99_just(v((deinit)))\
|
||||||
)
|
)
|
||||||
|
|
||||||
|
#define WITH99_resource_VarThrowsExpr_IMPL(type, var, init, deinit, errorexpr) \
|
||||||
|
ML99_tuple(\
|
||||||
|
ML99_just(v(type var)),\
|
||||||
|
ML99_just(v( ((var = init), (errorexpr)) )),\
|
||||||
|
ML99_just(v((deinit)))\
|
||||||
|
)
|
||||||
|
|
||||||
#define WITH99_resource_Call_IMPL(init, deinit) \
|
#define WITH99_resource_Call_IMPL(init, deinit) \
|
||||||
ML99_tuple(\
|
ML99_tuple(\
|
||||||
ML99_nothing(),\
|
ML99_nothing(),\
|
||||||
|
Loading…
x
Reference in New Issue
Block a user