Used Swig_name_register so that Swig_name_wrapper produces

the correct name without a separate replace call.
This commit is contained in:
Richard Beare 2018-09-11 09:58:33 +10:00
commit 7b7e5b0012

View file

@ -1906,7 +1906,7 @@ int R::functionWrapper(Node *n) {
int nargs;
String *wname = Swig_name_wrapper(iname);
Replace(wname, "_wrap", "R_swig", DOH_REPLACE_FIRST);
if(overname)
Append(wname, overname);
Setattr(n,"wrap:name", wname);
@ -2924,6 +2924,9 @@ void R::main(int argc, char *argv[]) {
}
/// copyToR copyToC functions.
// Register the naming functions
Swig_name_register("wrapper", "R_swig_%f");
}
}