Used Swig_name_register so that Swig_name_wrapper produces
the correct name without a separate replace call.
This commit is contained in:
parent
504ef74948
commit
7b7e5b0012
1 changed files with 4 additions and 1 deletions
|
|
@ -1906,7 +1906,7 @@ int R::functionWrapper(Node *n) {
|
||||||
int nargs;
|
int nargs;
|
||||||
|
|
||||||
String *wname = Swig_name_wrapper(iname);
|
String *wname = Swig_name_wrapper(iname);
|
||||||
Replace(wname, "_wrap", "R_swig", DOH_REPLACE_FIRST);
|
|
||||||
if(overname)
|
if(overname)
|
||||||
Append(wname, overname);
|
Append(wname, overname);
|
||||||
Setattr(n,"wrap:name", wname);
|
Setattr(n,"wrap:name", wname);
|
||||||
|
|
@ -2924,6 +2924,9 @@ void R::main(int argc, char *argv[]) {
|
||||||
}
|
}
|
||||||
/// copyToR copyToC functions.
|
/// copyToR copyToC functions.
|
||||||
|
|
||||||
|
// Register the naming functions
|
||||||
|
Swig_name_register("wrapper", "R_swig_%f");
|
||||||
|
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
|
||||||
|
|
|
||||||
Loading…
Add table
Add a link
Reference in a new issue