swig/Examples/test-suite/newobject2.i
Dave Beazley 12a43edc2d The great merge
git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk/SWIG@4141 626c5289-ae23-0410-ae9c-e8d60b6d4f22
2002-11-30 22:01:28 +00:00

38 lines
618 B
OpenEdge ABL

/**
* The purpose of this test is to confirm that a language module
* correctly handles the case when a C function has been tagged with the
* %newobject directive.
*/
%module newobject2
%{
/* Global initialization (not wrapped) */
int g_fooCount = 0;
%}
%newobject makeFoo();
%inline %{
/* Struct definition */
typedef struct {} Foo;
/* Make one */
Foo *makeFoo() {
Foo *foo = (Foo *) malloc(sizeof(Foo));
g_fooCount++;
return foo;
}
/* Return the number of instances */
int fooCount() {
return g_fooCount;
}
%}
%extend Foo {
~Foo() {
free((void *) self);
g_fooCount--;
}
}