implement the rank-cast dispatch mechanism, which is now the default behavior in perl
git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk/SWIG@8045 626c5289-ae23-0410-ae9c-e8d60b6d4f22
This commit is contained in:
parent
ae09b70a40
commit
c0da62d128
4 changed files with 230 additions and 34 deletions
|
|
@ -106,6 +106,23 @@ static char *bar(void *) {
|
|||
return (char *) "bar:void *";
|
||||
}
|
||||
};
|
||||
|
||||
|
||||
char *fint(int) {
|
||||
return (char*) "fint:int";
|
||||
}
|
||||
|
||||
char *fdouble(double) {
|
||||
return (char*) "fdouble:double";
|
||||
}
|
||||
|
||||
char *num(int) {
|
||||
return (char*) "num:int";
|
||||
}
|
||||
char *num(double) {
|
||||
return (char*) "num:double";
|
||||
}
|
||||
|
||||
%}
|
||||
|
||||
%inline %{
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue