swig/Examples/test-suite/grouping.i
Dave Beazley 12a43edc2d The great merge
git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk/SWIG@4141 626c5289-ae23-0410-ae9c-e8d60b6d4f22
2002-11-30 22:01:28 +00:00

31 lines
355 B
OpenEdge ABL

%module grouping
%inline %{
typedef int Integer;
int (test1)(int x) {
return x;
}
int *(test2)(int x) {
static int y;
y = x;
return &y;
}
int (test3) = 37;
typedef Integer (UnaryOp)(Integer);
Integer do_unary(Integer x, UnaryOp *f) {
return (*f)(x);
}
int negate(int x) {
return -x;
}
%}
%constant UnaryOp *NEGATE = negate;