swig/Examples/test-suite/overload_extend.i
2004-10-06 17:32:03 +00:00

52 lines
753 B
OpenEdge ABL

%module overload_extend
#ifndef __cplusplus
%typemap(default) double y "$1=1000;";
#endif
#pragma SWIG nowarn=-302
%extend Foo {
int test() { return 0; }
int test(int x) { x = 0; return 1; }
int test(char *s) { s = 0; return 2; }
#ifdef __cplusplus
double test(double x, double y = 1000) { return x + y; }
#else
double test(double x, double y) { return x + y; }
#endif
};
%inline %{
struct Foo {
#ifdef __cplusplus
int test() { return -1; }
#endif
};
%}
%extend Bar {
#ifdef __cplusplus
Bar() {
return new Bar();
}
~Bar() {
if (self) delete self;
}
#else
Bar() {
return (Bar *) malloc(sizeof(Bar));
}
~Bar() {
if (self) free(self);
}
#endif
}
%inline %{
typedef struct {
} Bar;
%}