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;
|
||||
|
||||
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");
|
||||
|
||||
}
|
||||
}
|
||||
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue