fix %varargs

git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk/SWIG@7093 626c5289-ae23-0410-ae9c-e8d60b6d4f22
This commit is contained in:
William S Fulton 2005-03-21 22:06:12 +00:00
commit 175e89dc8f
2 changed files with 23 additions and 45 deletions

View file

@ -1137,9 +1137,30 @@ static int is_cfunction(Node *n) {
static void default_arguments(Node *n) {
Node *function = n;
/* Do not add in functions if kwargs is being used or if user wants old default argument wrapping
(one wrapped method per function irrespective of number of default arguments) */
if (function) {
ParmList *varargs = Getattr(function,"feature:varargs");
if (varargs) {
/* Handles the %varargs directive by looking for "feature:varargs" and
* substituting ... with an alternative set of arguments. */
Parm *p = Getattr(function,"parms");
Parm *pp = 0;
while (p) {
SwigType *t = Getattr(p,"type");
if (Strcmp(t,"v(...)") == 0) {
if (pp) {
set_nextSibling(pp,Copy(varargs));
} else {
Setattr(function,"parms", Copy(varargs));
}
break;
}
pp = p;
p = nextSibling(p);
}
}
/* Do not add in functions if kwargs is being used or if user wants old default argument wrapping
(one wrapped method per function irrespective of number of default arguments) */
if (compact_default_args
|| is_cfunction(function)
|| Getattr(function,"feature:compactdefaultargs")