Examples/test-suite/grouping.i


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31

%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;