mirror of https://github.com/swig/swig
95 lines
2.5 KiB
OpenEdge ABL
95 lines
2.5 KiB
OpenEdge ABL
%module(ruby_minherit="1") multiple_inheritance_interfaces
|
|
|
|
%warnfilter(SWIGWARN_D_MULTIPLE_INHERITANCE,
|
|
SWIGWARN_PHP_MULTIPLE_INHERITANCE); /* languages not supporting multiple inheritance */
|
|
|
|
#if defined(SWIGJAVA) || defined(SWIGCSHARP)
|
|
%include "swiginterface.i"
|
|
%interface_custom("A", "IA", IA)
|
|
%interface_custom("B", "IB", IB)
|
|
%interface_custom("%(strip:[I])s", "I%s", IC) // same as %interface_custom("C", "IC", IC)
|
|
#endif
|
|
|
|
%inline %{
|
|
struct IA {
|
|
virtual void ia() {};
|
|
virtual void ia(const char *s, bool b = true) {}
|
|
virtual void ia(int i) {}
|
|
virtual ~IA() {}
|
|
};
|
|
struct IB { virtual ~IB() {} virtual void ib() {} };
|
|
struct IC : IA, IB {};
|
|
struct D : IC {};
|
|
struct E : D {};
|
|
%}
|
|
|
|
#if defined(SWIGJAVA) || defined(SWIGCSHARP)
|
|
%interface_custom("J", "IJ", IJ)
|
|
%interface_custom("K", "IK", IK)
|
|
%interface_custom("L", "IL", IL)
|
|
#endif
|
|
%inline %{
|
|
struct IJ { virtual ~IJ() {}; virtual void ij() {} };
|
|
struct IK : IJ {};
|
|
struct IL : IK {};
|
|
struct M : IL {};
|
|
%}
|
|
|
|
#if defined(SWIGJAVA) || defined(SWIGCSHARP)
|
|
%interface_custom("Q", "IQ", IQ)
|
|
#endif
|
|
%inline %{
|
|
struct P { virtual ~P() {} virtual void p() {} };
|
|
struct IQ { virtual ~IQ() {} virtual void iq() {} };
|
|
struct R : IQ, P {};
|
|
struct S : P, IQ {};
|
|
struct T : IQ {};
|
|
struct U : R {};
|
|
struct V : S {};
|
|
struct W : T {};
|
|
%}
|
|
|
|
#if defined(SWIGJAVA) || defined(SWIGCSHARP)
|
|
%interface_impl(BaseOverloaded);
|
|
#endif
|
|
%inline %{
|
|
struct BaseOverloaded {
|
|
typedef P PTypedef;
|
|
virtual ~BaseOverloaded() {}
|
|
virtual void identical_overload(int i, const PTypedef &pp = PTypedef()) {}
|
|
};
|
|
|
|
struct DerivedOverloaded : public BaseOverloaded {
|
|
virtual void identical_overload(int i, const PTypedef &p = PTypedef()) {}
|
|
};
|
|
%}
|
|
|
|
|
|
#if defined(SWIGJAVA) || defined(SWIGCSHARP)
|
|
%interface(Space::X)
|
|
#endif
|
|
|
|
// Test the csinterfacemodifiers and javainterfacemodifiers typemaps.
|
|
#if defined(SWIGCSHARP)
|
|
/* change access from default "public class" to "internal class" */
|
|
%typemap(csclassmodifiers) InternalAccess "internal class"
|
|
/* The following modifiers are also needed with the above access modifier change */
|
|
%typemap(csclassmodifiers) Space::X "internal class"
|
|
%typemap(csinterfacemodifiers) Space::X "internal interface"
|
|
#elif defined(SWIGJAVA)
|
|
%typemap(javaclassmodifiers) InternalAccess "final /*notpublic*/ class"
|
|
%typemap(javaclassmodifiers) Space::X "final class"
|
|
%typemap(javainterfacemodifiers) Space::X "/*notpublic*/ interface"
|
|
#endif
|
|
|
|
%inline %{
|
|
struct InternalAccess {};
|
|
namespace Space {
|
|
class X {
|
|
public:
|
|
virtual void x(const InternalAccess& date) const = 0;
|
|
virtual ~X() {}
|
|
};
|
|
}
|
|
%}
|