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:
Marcelo Matus 2005-12-23 00:07:49 +00:00
commit c0da62d128
4 changed files with 230 additions and 34 deletions

View file

@ -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 %{