mirror of https://github.com/swig/swig
61 lines
1.2 KiB
OpenEdge ABL
61 lines
1.2 KiB
OpenEdge ABL
%module(directors="1") director_overload
|
|
|
|
#ifdef SWIGOCAML
|
|
%warnfilter(SWIGWARN_PARSE_KEYWORD) method;
|
|
#endif
|
|
|
|
%feature("director");
|
|
|
|
#ifdef SWIGPYTHON
|
|
%feature("director:except") {
|
|
if ($error != NULL) {
|
|
throw Swig::DirectorMethodException();
|
|
}
|
|
}
|
|
#endif
|
|
|
|
#ifdef SWIGRUBY
|
|
// Catch ruby exceptions in directors
|
|
%feature("director:except") {
|
|
throw Swig::DirectorMethodException($error);
|
|
}
|
|
#endif
|
|
|
|
%inline %{
|
|
|
|
class OverloadedClass
|
|
{
|
|
public:
|
|
virtual ~OverloadedClass() {}
|
|
virtual void method1() const {}
|
|
virtual void method2() const {}
|
|
virtual void method3() const {}
|
|
// test overloaded method, but not directly after the first method
|
|
virtual void method2(bool b) const {}
|
|
};
|
|
|
|
class OverloadedPointers
|
|
{
|
|
public:
|
|
virtual ~OverloadedPointers() {}
|
|
virtual void method(int *p) const {}
|
|
virtual void method(double *p) const {}
|
|
virtual void method(bool &r) const {}
|
|
virtual void method(short &r) const {}
|
|
virtual void method(OverloadedClass *p) const {}
|
|
virtual void method(OverloadedPointers *p) const {}
|
|
virtual void notover(int *p) const {}
|
|
};
|
|
|
|
class OverloadedGetSet
|
|
{
|
|
int v;
|
|
public:
|
|
OverloadedGetSet() : v(42) { }
|
|
virtual ~OverloadedGetSet() { }
|
|
virtual int rw() const { return v; }
|
|
virtual void rw(int new_v) { v = new_v; }
|
|
};
|
|
|
|
%}
|