jyapayne/swig
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Uniquify the argument names used in GOOPS method declarations.

Browse source 
Reported by rm@mh-freiburg.de.


git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk/SWIG@5677 626c5289-ae23-0410-ae9c-e8d60b6d4f22
This commit is contained in:
Matthias Köppe 2004-01-23 15:05:34 +00:00
commit 72c6025d53
1 changed files with 5 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

7
Source/Modules/guile.cxx
View file

@ -703,6 +703,7 @@ public:
String *returns = NewString("");
String *method_signature = NewString("");
String *primitive_args = NewString("");
Hash *scheme_arg_names = NewHash();
int num_results = 1;
String *tmp = NewString("");
String *tm;
@ -823,10 +824,10 @@ public:
SwigType *pn = Getattr(p,"name");
String *argname;
scheme_argnum++;
if (pn)
if (pn && !Getattr(scheme_arg_names, pn))
argname = pn;
else {
/* Anonymous arg -- choose a name that cannot clash */
/* Anonymous arg or re-used argument name -- choose a name that cannot clash */
argname = NewStringf("%%arg%d", scheme_argnum);
}
if (strcmp("void", Char(pt)) != 0) {
@ -838,6 +839,7 @@ public:
Printv(method_signature, " ", argname, NIL);
}
Printv(primitive_args, " ", argname, NIL);
Setattr(scheme_arg_names, argname, p);
}
if (!pn) {
Delete(argname);
@ -1181,6 +1183,7 @@ public:
Delete(doc_body);
Delete(returns);
Delete(tmp);
Delete(scheme_arg_names);
DelWrapper(f);
return SWIG_OK;
}