git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk@4637 626c5289-ae23-0410-ae9c-e8d60b6d4f22
28 lines
391 B
OpenEdge ABL
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; }
|
|
};
|