summaryrefslogtreecommitdiff
path: root/Examples/test-suite/typedef_mptr.i
blob: 7579289c5ef0d8f190e561d68c3e9f9b30f77e19 (plain)
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
32
33
34
35
36
37
38
39
40
41
// Tests typedef through member pointers

%module typedef_mptr

%{
#if defined(__SUNPRO_CC)
#pragma error_messages (off, badargtype2w) /* Formal argument ... is being passed extern "C" ... */
#pragma error_messages (off, wbadinit) /* Using extern "C" ... to initialize ... */
#endif
%}

#if defined(SWIGPYTHON) || defined(SWIGOCAML)

%inline %{

class Foo {
public:
    int add(int x, int y) {
        return x+y;
    }
    int sub(int x, int y) {
        return x-y;
    }
    int do_op(int x, int y, int (Foo::*op)(int, int)) {
	return (this->*op)(x,y);
    }
};

typedef Foo FooObj;
typedef int Integer;

Integer do_op(Foo *f, Integer x, Integer y, Integer (FooObj::*op)(Integer, Integer)) {
    return f->do_op(x,y,op);
}
%}
#endif

#if defined(SWIGPYTHON) || defined(SWIGOCAML)
%constant int (Foo::*add)(int,int) = &Foo::add;
%constant Integer (FooObj::*sub)(Integer,Integer) = &FooObj::sub;
#endif