swig/Examples/test-suite/sneaky1.i
William S Fulton 53ceae6a0a fix for perl keyword
git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk/SWIG@8990 626c5289-ae23-0410-ae9c-e8d60b6d4f22
2006-03-07 23:05:11 +00:00

29 lines
277 B
OpenEdge ABL

%module sneaky1
%{
int add(int x, int y) {
return x+y;
}
int subtract(int x, int y) {
return x-y;
}
int mul(int x, int y) {
return x*y;
}
int divide(int x, int y) {
return x/y;
}
%}
%inline %{
typedef int binop(int,int);
%}
binop add,subtract,mul,divide;