swig/Examples/test-suite/newobject2.i
Marcelo Matus 1b52cf2b97 add <stdlib.h> for malloc and lua
git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk/SWIG@8657 626c5289-ae23-0410-ae9c-e8d60b6d4f22
2006-01-31 06:16:41 +00:00

47 lines
686 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
%{
#include <stdlib.h>
%}
%{
/* Global initialization (not wrapped) */
int g_fooCount = 0;
%}
%newobject makeFoo();
%inline %{
/* Struct definition */
typedef struct {
int dummy;
} 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;
}
void do_stuff(Foo *f) {
}
%}
%extend Foo {
~Foo() {
free((void *) self);
g_fooCount--;
}
}