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

Fix display of template classnames in generated R code

Browse source
This commit is contained in:
William S Fulton 2020-01-30 08:34:07 +00:00
commit 88ef6e0931
1 changed files with 5 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

9
Source/Modules/r.cxx
View file

@ -1126,8 +1126,8 @@ int R::OutputMemberReferenceMethod(String *className, int isSet,
} }
Printf(f->code, "}\n"); Printf(f->code, "}\n");
String *classname_str = SwigType_namestr(className);
Printf(out, "# Start of accessor method for %s\n", className); Printf(out, "# Start of accessor method for %s\n", classname_str);
Printf(out, "setMethod('$%s', '_p%s', ", Printf(out, "setMethod('$%s', '_p%s', ",
isSet ? "<-" : "", isSet ? "<-" : "",
getRClassName(className)); getRClassName(className));
@ -1143,11 +1143,12 @@ int R::OutputMemberReferenceMethod(String *className, int isSet,
Printf(out, ");\n"); Printf(out, ");\n");
} }
Printf(out, "# end of accessor method for %s\n", classname_str);
Delete(classname_str);
DelWrapper(attr); DelWrapper(attr);
DelWrapper(f); DelWrapper(f);
Printf(out, "# end of accessor method for %s\n", className);
return SWIG_OK; return SWIG_OK;
} }