git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk/SWIG@4141 626c5289-ae23-0410-ae9c-e8d60b6d4f22
39 lines
496 B
OpenEdge ABL
39 lines
496 B
OpenEdge ABL
// Test cases for classes that do *NOT* result in smart-pointer wrapping
|
|
%module smart_pointer_not
|
|
|
|
%inline %{
|
|
struct Foo {
|
|
int x;
|
|
int getx() { return x; }
|
|
};
|
|
|
|
class Bar {
|
|
Foo *f;
|
|
public:
|
|
Bar(Foo *f) : f(f) { }
|
|
Foo operator->() {
|
|
return *f;
|
|
}
|
|
};
|
|
|
|
class Spam {
|
|
Foo *f;
|
|
public:
|
|
Spam(Foo *f) : f(f) { }
|
|
Foo &operator->() {
|
|
return *f;
|
|
}
|
|
};
|
|
|
|
class Grok {
|
|
Foo *f;
|
|
public:
|
|
Grok(Foo *f) : f(f) { }
|
|
Foo **operator->() {
|
|
return &f;
|
|
}
|
|
};
|
|
|
|
%}
|
|
|
|
|