swig/Examples/test-suite/varargs.i
William S Fulton 0ace507bd5 more %varargs tests
git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk/SWIG@7091 626c5289-ae23-0410-ae9c-e8d60b6d4f22
2005-03-21 22:03:28 +00:00

38 lines
769 B
OpenEdge ABL

// Tests SWIG's *default* handling of varargs. The default behavior is to simply ignore the varargs.
%module varargs
%varargs(int mode = 0) test_def;
%varargs(int mode = 0) Foo::Foo;
%varargs(int mode = 0) Foo::statictest(const char*fmt, ...);
%inline %{
char *test(const char *fmt, ...) {
return (char *) fmt;
}
const char *test_def(const char *fmt, ...) {
return fmt;
}
class Foo {
public:
char *str;
Foo() {
str = NULL;
}
Foo(const char *fmt, ...) {
str = new char[strlen(fmt) + 1];
strcpy(str, fmt);
}
~Foo() {
delete [] str;
}
char *test(const char *fmt, ...) {
return (char *) fmt;
}
static char *statictest(const char *fmt, ...) {
return (char *) fmt;
}
};
%}