20bf783966
git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk/SWIG@4766 626c5289-ae23-0410-ae9c-e8d60b6d4f22
31 lines
321 B
OpenEdge ABL
31 lines
321 B
OpenEdge ABL
%module exception_order
|
|
|
|
%include "exception.i"
|
|
|
|
#if 1
|
|
%exception {
|
|
try {
|
|
$action
|
|
} catch(...) {
|
|
SWIG_exception(SWIG_RuntimeError,"Unknown exception");
|
|
}
|
|
}
|
|
|
|
#endif
|
|
|
|
%inline %{
|
|
|
|
|
|
struct E
|
|
{
|
|
};
|
|
|
|
struct A
|
|
{
|
|
int foo() throw(E)
|
|
{
|
|
throw E();
|
|
return 0;
|
|
}
|
|
};
|
|
%}
|