git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk/SWIG@6567 626c5289-ae23-0410-ae9c-e8d60b6d4f22
31 lines
548 B
OpenEdge ABL
31 lines
548 B
OpenEdge ABL
/* This was broken in the perl module. See bug 962115
|
|
It tests basic multiple inheritance */
|
|
|
|
%module multiple_inheritance
|
|
|
|
#ifdef SWIGRUBY
|
|
#pragma SWIG nowarn=802; // Ruby doesn't support multiple inheritance
|
|
#endif
|
|
|
|
#ifdef SWIGJAVA
|
|
#pragma SWIG nowarn=813; // Java doesn't support multiple inheritance
|
|
#endif
|
|
|
|
%inline %{
|
|
|
|
class Bar {
|
|
public:
|
|
virtual int bar() { return 1; }
|
|
};
|
|
|
|
class Foo {
|
|
public:
|
|
virtual int foo() { return 2; }
|
|
};
|
|
|
|
class FooBar : public Foo, public Bar {
|
|
public:
|
|
virtual int fooBar() { return 3; }
|
|
};
|
|
|
|
%}
|