| … | |
… | |
| 61 | #define ARG_REGION(o) DT_REGION, (void *)static_cast<struct region *> (o) |
61 | #define ARG_REGION(o) DT_REGION, (void *)static_cast<struct region *> (o) |
| 62 | |
62 | |
| 63 | // the ", ## __VA_ARGS" is, unfortunately, a gnu-cpp extension |
63 | // the ", ## __VA_ARGS" is, unfortunately, a gnu-cpp extension |
| 64 | |
64 | |
| 65 | // all these return true when the normal event processing should be skipped (if any) |
65 | // all these return true when the normal event processing should be skipped (if any) |
| 66 | #define INVOKE(klass, event, ...) cfperl_invoke (EVENT_ ## klass ## _ ## event, ## __VA_ARGS__, DT_END) |
66 | #define INVOKE_(event, ...) cfperl_invoke (event, ## __VA_ARGS__, DT_END) |
| 67 | |
67 | |
|
|
68 | #define INVOKE(klass, event, ...) INVOKE_(EVENT_ ## klass ## _ ## event, ## __VA_ARGS__) |
| 68 | #define INVOKE_GLOBAL(event, ...) INVOKE (GLOBAL, event, ## __VA_ARGS__) |
69 | #define INVOKE_GLOBAL(event, ...) INVOKE_(EVENT_ ## GLOBAL ## _ ## event, ## __VA_ARGS__) |
| 69 | #define INVOKE_OBJECT(event, op, ...) INVOKE (OBJECT, event, ARG_OBJECT (op), ## __VA_ARGS__) |
70 | #define INVOKE_OBJECT(event, op, ...) INVOKE_(EVENT_ ## OBJECT ## _ ## event, ARG_OBJECT (op), ## __VA_ARGS__) |
| 70 | #define INVOKE_PLAYER(event, pl, ...) INVOKE (PLAYER, event, ARG_PLAYER (pl), ## __VA_ARGS__) |
71 | #define INVOKE_PLAYER(event, pl, ...) INVOKE_(EVENT_ ## PLAYER ## _ ## event, ARG_PLAYER (pl), ## __VA_ARGS__) |
| 71 | #define INVOKE_MAP(event, map, ...) INVOKE (MAP , event, ARG_MAP (map) , ## __VA_ARGS__) |
72 | #define INVOKE_MAP(event, map, ...) INVOKE_(EVENT_ ## MAP ## _ ## event, ARG_MAP (map) , ## __VA_ARGS__) |
| 72 | |
73 | |
| 73 | //TODO should index into @result |
74 | //TODO should index into @result |
| 74 | #define RESULT(idx,type) cfperl_result_ ## type (idx) |
75 | #define RESULT(idx,type) cfperl_result_ ## type (idx) |
| 75 | #define RESULT_INT(idx) RESULT(idx, INT) |
76 | #define RESULT_INT(idx) RESULT(idx, INT) |
| 76 | |
77 | |
