swig/SWIG/Examples/test-suite/extend_placement.i
Dave Beazley 4bc26e78ca new tests
git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk@4637 626c5289-ae23-0410-ae9c-e8d60b6d4f22
2003-03-27 22:54:37 +00:00

28 lines
391 B
OpenEdge ABL

%module extend_placement
// Tests placement of %extend directives
// Before the class
%extend Foo {
Foo() { return new Foo(); }
~Foo() { delete self;}
int spam(int x) { return x; }
};
%inline %{
class Foo { };
%}
// After the class
%inline %{
class Bar { };
%}
%extend Bar {
Bar() { return new Bar(); }
~Bar() { delete self;}
int spam(int x) { return x; }
};