swig/SWIG/Examples/test-suite/director_exception.i
Mark Rose 99cef9c7da four new director tests
git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk@4449 626c5289-ae23-0410-ae9c-e8d60b6d4f22
2003-03-07 10:30:11 +00:00

54 lines
999 B
OpenEdge ABL

%module(directors="1") director_exception
%{
#include <string>
class Foo {
public:
virtual ~Foo() {}
virtual std::string ping() { return "Foo::ping()"; }
virtual std::string pong() { return "Foo::pong();" + ping(); }
};
Foo *launder(Foo *f) {
return f;
}
// define dummy director exception classes to prevent spurious errors
// in target languages that do not support directors.
#ifndef SWIG_DIRECTORS
class SWIG_DIRECTOR_EXCEPTION {};
class SWIG_DIRECTOR_METHOD_EXCEPTION: public SWIG_DIRECTOR_EXCEPTION {};
#endif
%}
%include "typemaps.i"
%include "exception.i"
%include "std_string.i"
%feature("director:except") {
if ($error != NULL) {
throw SWIG_DIRECTOR_METHOD_EXCEPTION();
}
}
%exception {
try { $action }
catch (SWIG_DIRECTOR_EXCEPTION &e) { SWIG_fail; }
}
%feature("director") Foo;
class Foo {
public:
virtual ~Foo() {}
virtual std::string ping() { return "Foo::ping()"; }
virtual std::string pong() { return "Foo::pong();" + ping(); }
};
Foo *launder(Foo *f);