swig/Examples/test-suite/smart_pointer_not.i
William S Fulton 77110db863 Sun studio warning suppression in tests
git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk@12500 626c5289-ae23-0410-ae9c-e8d60b6d4f22
2011-02-20 13:02:21 +00:00

45 lines
613 B
OpenEdge ABL

// Test cases for classes that do *NOT* result in smart-pointer wrapping
%module smart_pointer_not
%{
#if defined(__SUNPRO_CC)
#pragma error_messages (off, arrowrtn) /* Questionable return type for ... */
#endif
%}
%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;
}
};
%}