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