| … | |
… | |
| 19 | DT_ARCH, |
19 | DT_ARCH, |
| 20 | DT_PARTY, |
20 | DT_PARTY, |
| 21 | DT_REGION, |
21 | DT_REGION, |
| 22 | }; |
22 | }; |
| 23 | |
23 | |
|
|
24 | enum event_klass { |
|
|
25 | KLASS_GLOBAL, |
|
|
26 | KLASS_PLAYER, |
|
|
27 | KLASS_OBJECT, |
|
|
28 | KLASS_MAP, |
|
|
29 | }; |
|
|
30 | |
| 24 | enum event_type { |
31 | enum event_type { |
| 25 | # define def(name) EV_ ## name, |
32 | # define def(klass,name) EV_ ## klass ## name, |
| 26 | # include "eventinc.h" |
33 | # include "eventinc.h" |
| 27 | # undef def |
34 | # undef def |
| 28 | }; |
35 | }; |
| 29 | |
36 | |
| 30 | #define DT_INT(v) DT_INT , (int)(v) |
37 | #define ARG_INT(v) DT_INT , static_cast<int> (v) |
| 31 | #define DT_LONG(v) DT_LONG , (long)(v) |
38 | #define ARG_LONG(v) DT_LONG , static_cast<long> (v) |
| 32 | #define DT_DOUBLE(v) DT_DOUBLE, (double)(v) |
39 | #define ARG_DOUBLE(v) DT_DOUBLE, static_cast<double> (v) |
| 33 | #define DT_STRING(v) DT_STRING, (char *)(v) |
40 | #define ARG_STRING(v) DT_STRING, static_cast<char *> (v) |
| 34 | #define DT_DATA(s,l) DT_DATA , (void *)(s), (l) |
41 | #define ARG_DATA(s,l) DT_DATA , static_cast<void *> (s), (l) |
| 35 | #define DT_OBJECT(o) DT_OBJECT, (object *)(o) |
42 | #define ARG_OBJECT(o) DT_OBJECT, static_cast<struct object *> (o) |
| 36 | #define DT_MAP(o) DT_MAP , (map *)(o) |
43 | #define ARG_MAP(o) DT_MAP , static_cast<struct mapstruct *> (o) |
| 37 | #define DT_PLAYER(o) DT_PLAYER, (player *)(o) |
44 | #define ARG_PLAYER(o) DT_PLAYER, static_cast<struct pl *> (o) |
| 38 | #define DT_ARCH(o) DT_ARCH , (archetype *)(o) |
45 | #define ARG_ARCH(o) DT_ARCH , static_cast<struct archetype *> (o) |
| 39 | #define DT_PARTY(o) DT_PARTY , (party *)(o) |
46 | #define ARG_PARTY(o) DT_PARTY , static_cast<struct party *> (o) |
| 40 | #define DT_REGION(o) DT_REGION, (region *)(o) |
47 | #define ARG_REGION(o) DT_REGION, static_cast<struct region *> (o) |
| 41 | |
48 | |
| 42 | #define INVOKE(event, ...) cfperl_invoke ("cf::invoke" , EV_ # event, __VA_ARGS__, DT_END) |
49 | // the ", ## __VA_ARGS" is, unfortunately, a gnu-cpp extension |
| 43 | // should be called on all objects, should be optimised |
|
|
| 44 | #define INVOKE_ON(object,event, ...) cfperl_invoke ("cf::invoke_on" , EV_ # event, DT_OBJECT(object), __VA_ARGS__, DT_END) |
|
|
| 45 | |
50 | |
| 46 | int cfperl_invoke (const char *klass, event_type event, ...); |
51 | #define INVOKE(klass, event, ...) cfperl_invoke (EV_ ## klass ## event, ## __VA_ARGS__, DT_END) |
| 47 | |
52 | |
|
|
53 | #define INVOKE_GLOBAL(event, ...) INVOKE (GLOBAL, event, ## __VA_ARGS__) |
|
|
54 | #define INVOKE_OBJECT(event, op, ...) INVOKE (OBJECT, event, ARG_OBJECT (op), ## __VA_ARGS__) |
|
|
55 | #define INVOKE_PLAYER(event, pl, ...) INVOKE (PLAYER, event, ARG_PLAYER (pl), ## __VA_ARGS__) |
|
|
56 | #define INVOKE_MAP(event, map, ...) INVOKE (MAP , event, ARG_MAP (map) , ## __VA_ARGS__) |
|
|
57 | |
|
|
58 | int cfperl_invoke (event_type event, ...); |
|
|
59 | void cfperl_free_ob (object *op); |
|
|
60 | |
|
|
61 | void cfperl_init (); |
| 48 | void cfperl_main (); |
62 | void cfperl_main (); |
| 49 | |
63 | |
| 50 | #endif |
64 | #endif |
|
|
65 | |
