swig/Examples/test-suite/exception_order.i
2006-01-21 08:05:56 +00:00

96 lines
1.4 KiB
OpenEdge ABL

%module exception_order
%include "exception.i"
%{
#if defined(_MSC_VER)
#pragma warning(disable: 4290) // C++ exception specification ignored except to indicate a function is not __declspec(nothrow)
#endif
%}
/*
last resource, catch everything but don't override
user's throw declarations.
*/
#if defined(SWIGPERL) || defined(SWIGRUBY)
%exception {
try {
$action
} catch(...) {
SWIG_exception_fail(SWIG_RuntimeError,"postcatch unknown");
}
}
#else
%exception {
try {
$action
} catch(...) {
SWIG_exception(SWIG_RuntimeError,"postcatch unknown");
}
}
#endif
%catches(E1,E2*,ET<int>,ET<double>,...) A::barfoo(int i);
%inline %{
struct E1
{
};
struct E2
{
};
struct E3
{
};
template <class T>
struct ET
{
};
struct A
{
/* caught by the user's throw definition */
int foo() throw(E1)
{
throw E1();
return 0;
}
int bar() throw(E2)
{
throw E2();
return 0;
}
/* caught by %postexception */
int foobar()
{
throw E3();
return 0;
}
int barfoo(int i)
{
if (i == 1) {
throw E1();
} else if (i == 2) {
static E2 *ep = new E2();
throw ep;
} else if (i == 3) {
throw ET<int>();
} else {
throw ET<double>();
}
return 0;
}
};
%}
%template(ET_i) ET<int>;
%template(ET_d) ET<double>;