git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk/SWIG@4141 626c5289-ae23-0410-ae9c-e8d60b6d4f22
29 lines
489 B
OpenEdge ABL
29 lines
489 B
OpenEdge ABL
%module throw_exception
|
|
|
|
// Tests SWIG's automatic exception mechanism
|
|
|
|
%inline %{
|
|
|
|
class Error {
|
|
};
|
|
|
|
class Foo {
|
|
public:
|
|
void test_int() throw(int) {
|
|
throw 37;
|
|
}
|
|
void test_msg() throw(const char *) {
|
|
throw "Dead";
|
|
}
|
|
void test_cls() throw(Error) {
|
|
throw Error();
|
|
}
|
|
void test_multi(int x) throw(int, const char *, Error) {
|
|
if (x == 1) throw 37;
|
|
if (x == 2) throw "Dead";
|
|
if (x == 3) throw Error();
|
|
}
|
|
};
|
|
|
|
%}
|
|
|