… | |
… | |
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 | |