[ViewVC] Diff of: cvs/deliantra/server/include/cfperl.h

Comparing deliantra/server/include/cfperl.h (file contents):
Revision 1.6 by root, Sat Aug 26 08:44:06 2006 UTC vs.
Revision 1.20 by root, Thu Aug 31 18:59:24 2006 UTC

…		…
2	// cfperl.h perl interface	2	// cfperl.h perl interface
3	//	3	//
4	#ifndef CFPERL_H__	4	#ifndef CFPERL_H__
5	#define CFPERL_H__	5	#define CFPERL_H__
6		6
7	struct pl;	7	#include <cstdio>
8	struct object;
9	struct mapstruct;
10		8
11	// could have used templates, but a more traditional C api	9	using namespace std;
12	// uses more explicit typing which is ok for this purpose.
13	enum data_type
14	{
15	DT_END, // no further arguments
16	DT_INT,
17	DT_INT64,
18	DT_DOUBLE,
19	DT_STRING, // 0-terminated string
20	DT_DATA, // string + length
21	DT_OBJECT,
22	DT_MAP,
23	DT_PLAYER,
24	DT_ARCH,
25	DT_PARTY,
26	DT_REGION,
27		10
28	// following are only for cfapi-compatibility	11	#include <EXTERN.h>
29	DT_INT_PTR,	12	#include <perl.h>
30	DT_INT64_PTR,	13	#include <XSUB.h>
31	DT_DOUBLE_PTR,	14
32	};	15	// optimisations/workaround for functions requiring my_perl in scope (anti-bloat)
		16	#undef localtime
		17	#undef srand48
		18	#undef drand48
		19	#undef srandom
		20	#undef readdir
		21	#undef getprotobyname
		22	#undef gethostbyname
		23	#undef ctime
		24	#undef strerror
		25
		26	// perl bug #40256: perl does overwrite those with reentrant versions
		27	// but does not initialise their state structures.
		28	#undef random
		29	#undef crypt
		30
		31	void cfperl_init ();
		32	void cfperl_boot ();
		33	void cfperl_main ();
33		34
34	enum event_klass	35	enum event_klass
35	{	36	{
		37	KLASS_NONE,
36	KLASS_GLOBAL,	38	KLASS_GLOBAL,
37	KLASS_PLAYER,	39	KLASS_PLAYER,
38	KLASS_OBJECT,	40	KLASS_OBJECT,
39	KLASS_MAP,	41	KLASS_MAP,
40	};	42	};
41		43
42	enum event_type	44	enum event_type
43	{	45	{
44	# define def(klass,name) EV_ ## klass ## _ ## name,	46	# define def(klass,name) EVENT_ ## klass ## _ ## name,
45	# include "eventinc.h"	47	# include "eventinc.h"
46	# undef def	48	# undef def
47	NUM_EVENT_TYPES	49	NUM_EVENT_TYPES
48	};	50	};
49		51
		52	#define ARG_AV(o) DT_AV , static_cast<AV *> (o)
50	#define ARG_INT(v) DT_INT , static_cast<int> (v)	53	#define ARG_INT(v) DT_INT , static_cast<int> (v)
51	#define ARG_INT64(v) DT_INT64 , static_cast<sint64> (v)	54	#define ARG_INT64(v) DT_INT64 , static_cast<sint64> (v)
52	#define ARG_DOUBLE(v) DT_DOUBLE, static_cast<double> (v)	55	#define ARG_DOUBLE(v) DT_DOUBLE, static_cast<double> (v)
53	#define ARG_STRING(v) DT_STRING, static_cast<const char *> (v)	56	#define ARG_STRING(v) DT_STRING, static_cast<const char *> (v)
54	#define ARG_DATA(s,l) DT_DATA , static_cast<const void *> (s), (l)	57	#define ARG_DATA(s,l) DT_DATA , static_cast<const void *> (s), (l)
…		…
60	#define ARG_REGION(o) DT_REGION, (void )static_cast<struct region > (o)	63	#define ARG_REGION(o) DT_REGION, (void )static_cast<struct region > (o)
61		64
62	// the ", ## __VA_ARGS" is, unfortunately, a gnu-cpp extension	65	// the ", ## __VA_ARGS" is, unfortunately, a gnu-cpp extension
63		66
64	// all these return true when the normal event processing should be skipped (if any)	67	// all these return true when the normal event processing should be skipped (if any)
65	#define INVOKE(klass, event, ...) cfperl_invoke (EV_ ## klass ## _ ## event, ## __VA_ARGS__, DT_END)	68	#define INVOKE_(event, ...) cfperl_invoke (event, ## __VA_ARGS__, DT_END)
66		69
		70	#define INVOKE(klass, event, ...) INVOKE_(EVENT_ ## klass ## _ ## event, ## __VA_ARGS__)
67	#define INVOKE_GLOBAL(event, ...) INVOKE (GLOBAL, event, ## __VA_ARGS__)	71	#define INVOKE_GLOBAL(event, ...) INVOKE_(EVENT_ ## GLOBAL ## _ ## event, ## __VA_ARGS__)
68	#define INVOKE_OBJECT(event, op, ...) INVOKE (OBJECT, event, ARG_OBJECT (op), ## __VA_ARGS__)	72	#define INVOKE_OBJECT(event, op, ...) INVOKE_(EVENT_ ## OBJECT ## _ ## event, ARG_OBJECT (op), ## __VA_ARGS__)
69	#define INVOKE_PLAYER(event, pl, ...) INVOKE (PLAYER, event, ARG_PLAYER (pl), ## __VA_ARGS__)	73	#define INVOKE_PLAYER(event, pl, ...) INVOKE_(EVENT_ ## PLAYER ## _ ## event, ARG_PLAYER (pl), ## __VA_ARGS__)
70	#define INVOKE_MAP(event, map, ...) INVOKE (MAP , event, ARG_MAP (map) , ## __VA_ARGS__)	74	#define INVOKE_MAP(event, map, ...) INVOKE_(EVENT_ ## MAP ## _ ## event, ARG_MAP (map) , ## __VA_ARGS__)
71		75
		76	//TODO should index into @result
		77	#define RESULT(idx,type) cfperl_result_ ## type (idx)
		78	#define RESULT_INT(idx) RESULT(idx, INT)
		79
		80	bool cfperl_invoke (event_type event, ...);
		81	int cfperl_result_INT (int idx);
		82
72	struct extendable_base	83	struct attachable_base
73	{	84	{
74	void self, cb; // CF+ perl self and callback	85	SV *self;
		86	AV *cb; // CF+ perl self and callback
75	const char *attach; // generic extension attachment information	87	const char *attach; // generic extension attachment information
76		88
77	void clear (); // called when free'ing objects	89	void clear (); // called when free'ing objects
78	void optimise (); // possibly save some memory by destroying unneeded data	90	void optimise (); // possibly save some memory by destroying unneeded data
79	void reattach (data_type type, void *self); // called after swapin	91	void instantiate (data_type type, void *obj);
80	void instantiate (data_type type, void *self); // called on first instantiation
81	void clone (data_type type, void self, void dest);
82	};
83		92
		93	void attachable_init ()
		94	{
		95	self = 0;
		96	cb = 0;
		97	attach = 0;
		98	}
		99	};
		100
84	// objects extendable from perl (or any other extension) should include or	101	// objects attachable from perl (or any other extension) should include or
85	// derive using the curiously recurring template pattern, to avoid	102	// derive using the curiously recurring template pattern, to avoid
86	// virtual method calls etc.	103	// virtual method calls etc.
87	template<class subclass>	104	template<class subclass>
88	struct extendable : extendable_base	105	struct attachable : attachable_base
89	{	106	{
90	void clear ()
91	{
92	if (self \|\| cb)
93	extendable_base::clear ();
94	}
95	void instantiate ()	107	void instantiate ()
96	{	108	{
97	if (attach)	109	if (attach)
98	extendable_base::instantiate (	110	attachable_base::instantiate ((data_type) cftype<subclass>::dt, static_cast<subclass *>(this));
99	static_cast<subclass *>(this)->get_dt (),	111	}
100	static_cast<subclass *>(this)	112	};
		113
		114	struct object_freezer : dynbuf
		115	{
		116	AV *av;
		117
		118	object_freezer ();
		119	~object_freezer ();
		120
		121	void put (attachable_base *ext);
		122
		123	template<class subclass>
		124	void put (attachable<subclass> *obj)
		125	{
		126	put ((attachable_base *)obj);
		127	}
		128
		129	//TODO//temporary
		130	void put (const char k, const char v)
		131	{
		132	add (k);
		133
		134	//if (v)
		135	add (' '); //TODO//cf compatibility always add space
		136	if (v)
		137	add (v);
		138
		139	add ('\n');
		140	}
		141
		142	//TODO//temporary
		143	void put (const char *k, int v)
		144	{
		145	add (k);
		146	add (' ');
		147	add (sint32 (v));
		148	add ('\n');
		149	}
		150
		151	void put (keyword k, const char *v)
		152	{
		153	int klen = keyword_len [k];
		154	int vlen = v ? strlen (v) : 0;
		155
		156	char p = (char )alloc (klen + 1 + vlen + 1);
		157
		158	memcpy (p, keyword_str [k], klen); p += klen;
		159	*p++ = ' '; //TODO//cf compatibility always add space
		160	memcpy (p, v, vlen); p += vlen;
		161	*p = '\n';
		162	}
		163
		164	void put (keyword k, double v)
		165	{
		166	char buf [128];
		167
		168	snprintf (buf, 128, "%.7g", v);
		169
		170	put (k, (const char *)buf);
		171	}
		172
		173	void put_(keyword k, sint64 v)
		174	{
		175	add (keyword_str [k], keyword_len [k]);
		176	add (' ');
		177	add (v);
		178	add ('\n');
		179	}
		180
		181	void put_(keyword k, sint32 v)
		182	{
		183	add (keyword_str [k], keyword_len [k]);
		184	add (' ');
		185	add (v);
		186	add ('\n');
		187	}
		188
		189	void put (keyword kbeg, keyword kend, const char *v)
		190	{
		191	add (keyword_str [kbeg], keyword_len [kbeg]); add ('\n');
		192
		193	if (v)
101	);	194	{
102	}	195	add (v);
103	void reattach ()	196	add ('\n');
104	{
105	if (attach)
106	extendable_base::reattach (
107	static_cast<subclass *>(this)->get_dt (),
108	static_cast<subclass *>(this)
109	);	197	}
110	}
111	void clone (subclass *destination)
112	{
113	if (self \|\| cb)
114	extendable_base::clone (
115	static_cast<subclass *>(this)->get_dt (),
116	static_cast<subclass *>(this),
117	destination
118	);
119	}
120	};
121		198
122	bool cfperl_invoke (event_type event, ...);	199	add (keyword_str [kend], keyword_len [kend]); add ('\n');
123	void cfperl_free_ob (struct object *op);	200	}
124		201
125	void cfperl_init ();	202	void put (keyword k, float v) { put (k, (double)v); }
126	void cfperl_main ();	203	void put (keyword k, signed char v) { put_(k, (sint32)v); }
		204	void put (keyword k, unsigned char v) { put_(k, (sint32)v); }
		205	void put (keyword k, signed short v) { put_(k, (sint32)v); }
		206	void put (keyword k, unsigned short v) { put_(k, (sint32)v); }
		207	void put (keyword k, signed int v) { put_(k, (sint32)v); }
		208	void put (keyword k, unsigned int v) { put_(k, (sint64)v); }
		209	void put (keyword k, signed long v) { put_(k, (sint64)v); }
		210	void put (keyword k, unsigned long v) { put_(k, (sint64)v); }
		211	void put (keyword k, signed long long v) { put_(k, (sint64)v); }
		212	void put (keyword k, unsigned long long v) { put_(k, (sint64)v); }
		213
		214	template<typename T>
		215	void put (keyword k, T *v)
		216	{
		217	put (k, v ? (const char *)v->name : 0);
		218	}
		219
		220	bool save (const char *filename);
		221
		222	operator bool () { return !!av; }
		223	};
		224
		225	// compatibility support, should be removed when no longer needed
		226	int fprintf (object_freezer &freezer, const char *format, ...);
		227	int fputs (const char *s, object_freezer &freezer);
		228
		229	// a single key-value line from a file
		230	struct token {
		231	keyword k;
		232	const char *v;
		233
		234	token (keyword k, const char *v = 0) : k(k), v(v) { }
		235	};
		236
		237	struct object_thawer
		238	{
		239	AV *av;
		240	FILE *fp;
		241	char line[1024];
		242
		243	object_thawer (const char *filename = 0);
		244	~object_thawer ();
		245
		246	void get (data_type type, void obj, attachable_base ext, int oid);
		247
		248	template<class subclass>
		249	void get (attachable<subclass> *obj, int oid)
		250	{
		251	if (av)
		252	get ((data_type) cftype<subclass>::dt, (subclass *)obj, obj, oid);
		253	}
		254
		255	token get_token ();
		256
		257	operator FILE *() { return fp; }
		258	};
127		259
128	#endif	260	#endif
129		261

Diff Legend

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

Comparing deliantra/server/include/cfperl.h (file contents): Revision 1.6 by root, Sat Aug 26 08:44:06 2006 UTC vs. Revision 1.20 by root, Thu Aug 31 18:59:24 2006 UTC

Diff Legend

Comparing deliantra/server/include/cfperl.h (file contents):
Revision 1.6 by root, Sat Aug 26 08:44:06 2006 UTC vs.
Revision 1.20 by root, Thu Aug 31 18:59:24 2006 UTC