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

The code for list attributes was adding a spurtious comma, which caused

Browse source 
code breakage in newer versions of R.


git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk@9846 626c5289-ae23-0410-ae9c-e8d60b6d4f22
This commit is contained in:
Joseph Wang 2007-06-04 04:36:05 +00:00
commit 30cf4d39eb
1 changed files with 5 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

6
Source/Modules/r.cxx
View file

@ -1004,6 +1004,7 @@ int R::OutputMemberReferenceMethod(String *className, int isSet,
Printf(f->code, "%saccessorFuns = list(", tab8);
Node *itemList = NewHash();
bool has_prev = false;
for(j = 0; j < numMems; j+=3) {
String *item = Getitem(el, j);
if (Getattr(itemList, item))
@ -1032,7 +1033,10 @@ int R::OutputMemberReferenceMethod(String *className, int isSet,
} else {
pitem = Copy(item);
}
Printf(f->code, "'%s' = %s%s", pitem, dup, j < numMems - 3 ? ", " : "");
if (has_prev)
Printf(f->code, ", ");
Printf(f->code, "'%s' = %s", pitem, dup);
has_prev = true;
Delete(pitem);
}
Delete(itemList);