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
|
