mirror of https://github.com/swig/swig
73 lines
1.1 KiB
OpenEdge ABL
73 lines
1.1 KiB
OpenEdge ABL
%module(directors="1") director_detect
|
|
#pragma SWIG nowarn=SWIGWARN_TYPEMAP_THREAD_UNSAFE,SWIGWARN_TYPEMAP_DIRECTOROUT_PTR
|
|
|
|
%warnfilter(SWIGWARN_JAVA_COVARIANT_RET,
|
|
SWIGWARN_CSHARP_COVARIANT_RET) cloner; /* Java, C# covariant return types */
|
|
|
|
%{
|
|
#include <string>
|
|
#include <iostream>
|
|
%}
|
|
|
|
%include <std_string.i>
|
|
|
|
%feature("director") Bar;
|
|
%feature("director") Foo;
|
|
|
|
%newobject Foo::cloner();
|
|
%newobject Foo::get_class();
|
|
%newobject Bar::cloner();
|
|
%newobject Bar::get_class();
|
|
|
|
|
|
%inline {
|
|
namespace foo { typedef int Int; }
|
|
|
|
struct A
|
|
{
|
|
};
|
|
|
|
typedef A B;
|
|
|
|
struct Foo {
|
|
virtual ~Foo() {}
|
|
virtual Foo* cloner() = 0;
|
|
virtual int get_value() = 0;
|
|
virtual A* get_class() = 0;
|
|
|
|
virtual void just_do_it() = 0;
|
|
};
|
|
|
|
class Bar : public Foo
|
|
{
|
|
public:
|
|
Foo* baseclass()
|
|
{
|
|
return this;
|
|
}
|
|
|
|
Bar* cloner()
|
|
{
|
|
return new Bar();
|
|
}
|
|
|
|
|
|
foo::Int get_value()
|
|
{
|
|
return 1;
|
|
}
|
|
|
|
B* get_class()
|
|
{
|
|
return new B();
|
|
}
|
|
|
|
void just_do_it()
|
|
{
|
|
}
|
|
};
|
|
}
|
|
|
|
|
|
|