ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/deliantra/server/include/cfperl.h
(Generate patch)

Comparing deliantra/server/include/cfperl.h (file contents):
Revision 1.2 by root, Thu Aug 24 17:29:30 2006 UTC vs.
Revision 1.5 by root, Fri Aug 25 17:11:53 2006 UTC

… …
7// could have used templates, but a more traditional C api 7// could have used templates, but a more traditional C api
8// uses more explicit typing which is ok for this purpose. 8// uses more explicit typing which is ok for this purpose.
9enum data_type { 9enum data_type {
10 DT_END, // no further arguments 10 DT_END, // no further arguments
11 DT_INT, 11 DT_INT,
12 DT_LONG, 12 DT_INT64,
13 DT_DOUBLE, 13 DT_DOUBLE,
14 DT_STRING, // 0-terminated string 14 DT_STRING, // 0-terminated string
15 DT_DATA, // string + length 15 DT_DATA, // string + length
16 DT_OBJECT, 16 DT_OBJECT,
17 DT_MAP, 17 DT_MAP,
18 DT_PLAYER, 18 DT_PLAYER,
19 DT_ARCH, 19 DT_ARCH,
20 DT_PARTY, 20 DT_PARTY,
21 DT_REGION, 21 DT_REGION,
22
23 // following are only for cfapi-compatibility
24 DT_INT_PTR,
25 DT_INT64_PTR,
26 DT_DOUBLE_PTR,
27};
28
29enum event_klass {
30 KLASS_GLOBAL,
31 KLASS_PLAYER,
32 KLASS_OBJECT,
33 KLASS_MAP,
22}; 34};
23 35
24enum event_type { 36enum event_type {
25# define def(name) EV_ ## name, 37# define def(klass,name) EV_ ## klass ## _ ## name,
26# include "eventinc.h" 38# include "eventinc.h"
27# undef def 39# undef def
40 NUM_EVENT_TYPES
28}; 41};
29 42
30#define DT_INT(v) DT_INT , (int)(v) 43#define ARG_INT(v) DT_INT , static_cast<int> (v)
31#define DT_LONG(v) DT_LONG , (long)(v) 44#define ARG_INT64(v) DT_INT64 , static_cast<sint64> (v)
32#define DT_DOUBLE(v) DT_DOUBLE, (double)(v) 45#define ARG_DOUBLE(v) DT_DOUBLE, static_cast<double> (v)
33#define DT_STRING(v) DT_STRING, (char *)(v) 46#define ARG_STRING(v) DT_STRING, static_cast<const char *> (v)
34#define DT_DATA(s,l) DT_DATA , (void *)(s), (l) 47#define ARG_DATA(s,l) DT_DATA , static_cast<const void *> (s), (l)
35#define DT_OBJECT(o) DT_OBJECT, (object *)(o) 48#define ARG_OBJECT(o) DT_OBJECT, static_cast<struct object *> (o)
36#define DT_MAP(o) DT_MAP , (map *)(o) 49#define ARG_MAP(o) DT_MAP , static_cast<struct mapstruct *> (o)
37#define DT_PLAYER(o) DT_PLAYER, (player *)(o) 50#define ARG_PLAYER(o) DT_PLAYER, static_cast<struct pl *> (o)
38#define DT_ARCH(o) DT_ARCH , (archetype *)(o) 51#define ARG_ARCH(o) DT_ARCH , static_cast<struct archetype *> (o)
39#define DT_PARTY(o) DT_PARTY , (party *)(o) 52#define ARG_PARTY(o) DT_PARTY , static_cast<struct party *> (o)
40#define DT_REGION(o) DT_REGION, (region *)(o) 53#define ARG_REGION(o) DT_REGION, static_cast<struct region *> (o)
41 54
42#define INVOKE(event, ...) cfperl_invoke ("cf::invoke" , EV_ # event, __VA_ARGS__, DT_END) 55// 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 56
46int cfperl_invoke (const char *klass, event_type event, ...); 57// all these return true when the normal event processing should be skipped (if any)
58#define INVOKE(klass, event, ...) cfperl_invoke (EV_ ## klass ## _ ## event, ## __VA_ARGS__, DT_END)
47 59
60#define INVOKE_GLOBAL(event, ...) INVOKE (GLOBAL, event, ## __VA_ARGS__)
61#define INVOKE_OBJECT(event, op, ...) INVOKE (OBJECT, event, ARG_OBJECT (op), ## __VA_ARGS__)
62#define INVOKE_PLAYER(event, pl, ...) INVOKE (PLAYER, event, ARG_PLAYER (pl), ## __VA_ARGS__)
63#define INVOKE_MAP(event, map, ...) INVOKE (MAP , event, ARG_MAP (map) , ## __VA_ARGS__)
64
65bool cfperl_invoke (event_type event, ...);
66void cfperl_free_ob (object *op);
67
68void cfperl_init ();
48void cfperl_main (); 69void cfperl_main ();
49 70
50#endif 71#endif
72

Diff Legend

– Removed lines
+ Added lines
< Changed lines
> Changed lines