| … | |
… | |
| 27 | */ |
27 | */ |
| 28 | |
28 | |
| 29 | #ifndef CALLBACK_H__ |
29 | #ifndef CALLBACK_H__ |
| 30 | #define CALLBACK_H__ |
30 | #define CALLBACK_H__ |
| 31 | |
31 | |
|
|
32 | #define CALLBACK_H_VERSION 2 |
|
|
33 | |
|
|
34 | template<class signature> |
|
|
35 | struct callback_funtype_trait; |
|
|
36 | |
|
|
37 | template<int arity, class signature> |
|
|
38 | struct callback_get_impl; |
|
|
39 | |
| 32 | EOF |
40 | EOF |
| 33 | |
41 | |
| 34 | for my $a (0..7) { |
42 | for my $a (0..10) { |
| 35 | my $CLASS = join "", map ", class A$_", 1..$a; |
43 | my $CLASS = join "", map ", class A$_", 1..$a; |
| 36 | my $TYPE = join ", ", map "A$_", 1..$a; |
44 | my $TYPE = join ", ", map "A$_", 1..$a; |
| 37 | my $ARG = join ", ", map "a$_", 1..$a; |
45 | my $ARG = join ", ", map "a$_", 1..$a; |
| 38 | my $TYPEARG = join ", ", map "A$_ a$_", 1..$a; |
46 | my $TYPEARG = join ", ", map "A$_ a$_", 1..$a; |
|
|
47 | my $TYPEDEFS = join " ", map "typedef A$_ arg$_\_type;", 1..$a; |
|
|
48 | my $TYPEvoid = $TYPE ? $TYPE : "void"; |
|
|
49 | my $_TYPE = $TYPE ? ", $TYPE" : ""; |
| 39 | my $_ARG = $ARG ? ", $ARG" : ""; |
50 | my $_ARG = $ARG ? ", $ARG" : ""; |
| 40 | my $_TYPEARG = $TYPEARG ? ", $TYPEARG" : ""; |
51 | my $_TYPEARG = $TYPEARG ? ", $TYPEARG" : ""; |
|
|
52 | my $_TTYPE = $a ? join "", map ", typename T::arg$_\_type", 1..$a : ""; |
| 41 | |
53 | |
| 42 | print <<EOF; |
54 | print <<EOF; |
| 43 | template<class R$CLASS> |
55 | template<class R$CLASS> |
| 44 | class callback$a { |
56 | class callback$a |
|
|
57 | { |
| 45 | struct object { }; |
58 | struct object { }; |
|
|
59 | |
|
|
60 | typedef R (object::*ptr_type)($TYPE); |
| 46 | |
61 | |
| 47 | void *obj; |
62 | void *obj; |
| 48 | R (object::*meth)($TYPE); |
63 | R (object::*meth)($TYPE); |
| 49 | |
64 | |
| 50 | /* a proxy is a kind of recipe on how to call a specific class method */ |
65 | /* a proxy is a kind of recipe on how to call a specific class method */ |
| … | |
… | |
| 81 | { |
96 | { |
| 82 | return call ($ARG); |
97 | return call ($ARG); |
| 83 | } |
98 | } |
| 84 | }; |
99 | }; |
| 85 | |
100 | |
|
|
101 | template<class R$CLASS> |
|
|
102 | struct callback_funtype_trait$a |
|
|
103 | { |
|
|
104 | static const int arity = $a; |
|
|
105 | typedef R type ($TYPEvoid); |
|
|
106 | typedef R result_type; |
|
|
107 | $TYPEDEFS |
|
|
108 | }; |
|
|
109 | |
|
|
110 | template<class R$CLASS> |
|
|
111 | struct callback_funtype_trait<R ($TYPE)> : callback_funtype_trait$a<R$_TYPE> |
|
|
112 | { |
|
|
113 | }; |
|
|
114 | |
|
|
115 | template<class signature> |
|
|
116 | struct callback_get_impl<$a, signature> |
|
|
117 | { |
|
|
118 | typedef callback_funtype_trait<signature> T; |
|
|
119 | typedef callback$a<typename T::result_type$_TTYPE> type; |
|
|
120 | }; |
|
|
121 | |
| 86 | EOF |
122 | EOF |
| 87 | } |
123 | } |
| 88 | |
124 | |
| 89 | print <<EOF |
125 | print <<EOF |
|
|
126 | |
|
|
127 | template<class signature> |
|
|
128 | struct callback : callback_get_impl<callback_funtype_trait<signature>::arity, signature>::type |
|
|
129 | { |
|
|
130 | typedef typename callback_get_impl<callback_funtype_trait<signature>::arity, signature>::type base_type; |
|
|
131 | |
|
|
132 | template<class O, class M> |
|
|
133 | explicit callback (O object, M method) |
|
|
134 | : base_type (object, method) |
|
|
135 | { |
|
|
136 | } |
|
|
137 | }; |
|
|
138 | |
| 90 | #endif |
139 | #endif |
| 91 | EOF |
140 | EOF |
| 92 | |
141 | |
