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

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

…		…
9	using namespace std;	9	using namespace std;
10		10
11	#include <EXTERN.h>	11	#include <EXTERN.h>
12	#include <perl.h>	12	#include <perl.h>
13	#include <XSUB.h>	13	#include <XSUB.h>
		14
		15	#include <EventAPI.h>
		16
		17	#include "callback.h"
14		18
15	// optimisations/workaround for functions requiring my_perl in scope (anti-bloat)	19	// optimisations/workaround for functions requiring my_perl in scope (anti-bloat)
16	#undef localtime	20	#undef localtime
17	#undef srand48	21	#undef srand48
18	#undef drand48	22	#undef drand48
…		…
27	// but does not initialise their state structures.	31	// but does not initialise their state structures.
28	#undef random	32	#undef random
29	#undef crypt	33	#undef crypt
30		34
31	void cfperl_init ();	35	void cfperl_init ();
32	void cfperl_boot ();
33	void cfperl_main ();	36	void cfperl_main ();
34		37
35	enum event_klass	38	enum event_klass
36	{	39	{
37	KLASS_NONE,	40	KLASS_NONE,
38	KLASS_GLOBAL,	41	KLASS_GLOBAL,
		42	KLASS_SOCKET,
39	KLASS_PLAYER,	43	KLASS_PLAYER,
40	KLASS_OBJECT,	44	KLASS_OBJECT,
41	KLASS_MAP,	45	KLASS_MAP,
		46	KLASS_COMMAND,
42	};	47	};
43		48
44	enum event_type	49	enum event_type
45	{	50	{
46	# define def(klass,name) EVENT_ ## klass ## _ ## name,	51	# define def(klass,name) EVENT_ ## klass ## _ ## name,
…		…
52	#define ARG_AV(o) DT_AV , static_cast<AV *> (o)	57	#define ARG_AV(o) DT_AV , static_cast<AV *> (o)
53	#define ARG_INT(v) DT_INT , static_cast<int> (v)	58	#define ARG_INT(v) DT_INT , static_cast<int> (v)
54	#define ARG_INT64(v) DT_INT64 , static_cast<sint64> (v)	59	#define ARG_INT64(v) DT_INT64 , static_cast<sint64> (v)
55	#define ARG_DOUBLE(v) DT_DOUBLE, static_cast<double> (v)	60	#define ARG_DOUBLE(v) DT_DOUBLE, static_cast<double> (v)
56	#define ARG_STRING(v) DT_STRING, static_cast<const char *> (v)	61	#define ARG_STRING(v) DT_STRING, static_cast<const char *> (v)
57	#define ARG_DATA(s,l) DT_DATA , static_cast<const void *> (s), (l)	62	#define ARG_DATA(s,l) DT_DATA , static_cast<const void *> (s), int (l)
58	#define ARG_OBJECT(o) DT_OBJECT, (void )static_cast<struct object > (o)	63	#define ARG_OBJECT(o) DT_OBJECT, (void )static_cast<object > (o)
59	#define ARG_MAP(o) DT_MAP , (void )static_cast<struct mapstruct > (o)	64	#define ARG_MAP(o) DT_MAP , (void )static_cast<maptile > (o)
60	#define ARG_PLAYER(o) DT_PLAYER, (void )static_cast<struct pl > (o)	65	#define ARG_PLAYER(o) DT_PLAYER, (void )static_cast<player > (o)
61	#define ARG_ARCH(o) DT_ARCH , (void )static_cast<struct archetype > (o)	66	#define ARG_ARCH(o) DT_ARCH , (void )static_cast<archetype > (o)
62	#define ARG_PARTY(o) DT_PARTY , (void )static_cast<struct party > (o)	67	#define ARG_PARTY(o) DT_PARTY , (void )static_cast<party > (o)
63	#define ARG_REGION(o) DT_REGION, (void )static_cast<struct region > (o)	68	#define ARG_REGION(o) DT_REGION, (void )static_cast<region > (o)
		69	#define ARG_SOCKET(o) DT_SOCKET, (void )static_cast<client > (o)
64		70
65	// the ", ## __VA_ARGS" is, unfortunately, a gnu-cpp extension	71	// the ", ## __VA_ARGS" is, unfortunately, a gnu-cpp extension
66		72
67	// all these return true when the normal event processing should be skipped (if any)	73	// all these return true when the normal event processing should be skipped (if any)
68	#define INVOKE_(event, ...) cfperl_invoke (event, ## __VA_ARGS__, DT_END)	74	#define INVOKE_(event, ...) cfperl_invoke (event, ## __VA_ARGS__, DT_END)
69		75
70	#define INVOKE(klass, event, ...) INVOKE_(EVENT_ ## klass ## _ ## event, ## __VA_ARGS__)	76	#define INVOKE(klass, event, ...) INVOKE_(EVENT_ ## klass ## _ ## event, ## __VA_ARGS__)
71	#define INVOKE_GLOBAL(event, ...) INVOKE_(EVENT_ ## GLOBAL ## _ ## event, ## __VA_ARGS__)	77	#define INVOKE_GLOBAL(event, ...) INVOKE_(EVENT_ ## GLOBAL ## _ ## event, ## __VA_ARGS__)
72	#define INVOKE_OBJECT(event, op, ...) INVOKE_(EVENT_ ## OBJECT ## _ ## event, ARG_OBJECT (op), ## __VA_ARGS__)	78	#define INVOKE_OBJECT(event, op, ...) INVOKE_(EVENT_ ## OBJECT ## _ ## event, ARG_OBJECT (op), ## __VA_ARGS__)
		79	#define INVOKE_SOCKET(event, ns, ...) INVOKE_(EVENT_ ## SOCKET ## _ ## event, ARG_SOCKET (ns), ## __VA_ARGS__)
73	#define INVOKE_PLAYER(event, pl, ...) INVOKE_(EVENT_ ## PLAYER ## _ ## event, ARG_PLAYER (pl), ## __VA_ARGS__)	80	#define INVOKE_PLAYER(event, pl, ...) INVOKE_(EVENT_ ## PLAYER ## _ ## event, ARG_PLAYER (pl), ## __VA_ARGS__)
74	#define INVOKE_MAP(event, map, ...) INVOKE_(EVENT_ ## MAP ## _ ## event, ARG_MAP (map) , ## __VA_ARGS__)	81	#define INVOKE_MAP(event, map, ...) INVOKE_(EVENT_ ## MAP ## _ ## event, ARG_MAP (map) , ## __VA_ARGS__)
75		82
76	//TODO should index into @result	83	//TODO should index into @result
77	#define RESULT(idx,type) cfperl_result_ ## type (idx)	84	#define RESULT(idx,type) cfperl_result_ ## type (idx)
		85	#define RESULT_DOUBLE(idx) RESULT(idx, DOUBLE)
78	#define RESULT_INT(idx) RESULT(idx, INT)	86	#define RESULT_INT(idx) RESULT(idx, INT)
79		87
80	bool cfperl_invoke (event_type event, ...);	88	bool cfperl_invoke (event_type event, ...);
		89	double cfperl_result_DOUBLE (int idx);
81	int cfperl_result_INT (int idx);	90	int cfperl_result_INT (int idx);
82		91
83	struct attachable_base	92	struct attachable_base
84	{	93	{
85	SV *self;	94	SV *self; // CF+ perl self
86	AV *cb; // CF+ perl self and callback	95	AV *cb; // CF+ callbacks
87	const char *attach; // generic extension attachment information	96	shstr attach; // generic extension attachment information
88		97
89	void clear (); // called when free'ing objects	98	void clear (); // called when free'ing objects
90	void optimise (); // possibly save some memory by destroying unneeded data	99	void optimise (); // possibly save some memory by destroying unneeded data
91	void instantiate (data_type type, void *obj);	100	void instantiate (data_type type, void *obj);
92		101
93	void attachable_init ()	102	void attachable_clear ()
94	{	103	{
95	self = 0;	104	self = 0;
96	cb = 0;	105	cb = 0;
97	attach = 0;	106	attach = 0;
		107	}
		108
		109	attachable_base ()
		110	{
		111	attachable_clear ();
		112	}
		113
		114	~attachable_base ()
		115	{
		116	clear ();
		117	}
		118
		119	attachable_base (const attachable_base &src)
		120	: self (0), cb (0), attach (src.attach)
		121	{
		122	}
		123
		124	attachable_base &operator =(const attachable_base &src)
		125	{
		126	clear ();
		127	attach = src.attach;
		128	return *this;
98	}	129	}
99	};	130	};
100		131
101	// objects attachable from perl (or any other extension) should include or	132	// objects attachable from perl (or any other extension) should include or
102	// derive using the curiously recurring template pattern, to avoid	133	// derive using the curiously recurring template pattern, to avoid
…		…
124	void put (attachable<subclass> *obj)	155	void put (attachable<subclass> *obj)
125	{	156	{
126	put ((attachable_base *)obj);	157	put ((attachable_base *)obj);
127	}	158	}
128		159
129	//TODO//temporary	160	// used only for user-defined key-value pairs
130	void put (const char k, const char v)	161	void put (const shstr &k, const shstr &v)
131	{	162	{
132	add (k);	163	add (k);
133		164
134	//if (v)
135	add (' '); //TODO//cf compatibility always add space
136	if (v)	165	if (v)
137	add (v);	166	add (' '), add (v);
138		167
139	add ('\n');	168	add ('\n');
140	}	169	}
141		170
142	//TODO//temporary	171	//TODO//temporary, used only for saving body locations
143	void put (const char *k, int v)	172	void put (const char *k, int v)
144	{	173	{
145	add (k);	174	add (k);
146	add (' ');	175	add (' ');
147	add (sint32 (v));	176	add (sint32 (v));
148	add ('\n');	177	add ('\n');
149	}	178	}
150		179
		180	template<typename T>
		181	void put_string (keyword k, const T &v)
		182	{
		183	int klen = keyword_len [k];
		184	int vlen = v ? strlen (v) + 1 : 0;
		185
		186	char p = (char )alloc (klen + vlen + 1);
		187
		188	memcpy (p, keyword_str [k], klen); p += klen;
		189
		190	if (v)
		191	{
		192	*p++ = ' '; vlen--;
		193	memcpy (p, v, vlen); p += vlen;
		194	}
		195
		196	*p = '\n';
		197	}
		198
151	void put (keyword k, const char *v)	199	void put (keyword k, const char *v)
152	{	200	{
153	int klen = keyword_len [k];	201	put_string (k, v);
154	int vlen = v ? strlen (v) : 0;	202	}
155		203
156	char p = (char )alloc (klen + 1 + vlen + 1);	204	void put (keyword k, const shstr &v)
157		205	{
158	memcpy (p, keyword_str [k], klen); p += klen;	206	put_string (k, v);
159	*p++ = ' '; //TODO//cf compatibility always add space
160	memcpy (p, v, vlen); p += vlen;
161	*p = '\n';
162	}	207	}
163		208
164	void put (keyword k, double v)	209	void put (keyword k, double v)
165	{	210	{
166	char buf [128];	211	char buf [128];
…		…
184	add (' ');	229	add (' ');
185	add (v);	230	add (v);
186	add ('\n');	231	add ('\n');
187	}	232	}
188		233
189	void put (keyword kbeg, keyword kend, const char *v)	234	void put (keyword kbeg, keyword kend, const shstr &v)
190	{	235	{
191	add (keyword_str [kbeg], keyword_len [kbeg]); add ('\n');	236	add (keyword_str [kbeg], keyword_len [kbeg]); add ('\n');
192		237
193	if (v)	238	if (v)
194	{	239	{
…		…
210	void put (keyword k, unsigned long v) { put_(k, (sint64)v); }	255	void put (keyword k, unsigned long v) { put_(k, (sint64)v); }
211	void put (keyword k, signed long long v) { put_(k, (sint64)v); }	256	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); }	257	void put (keyword k, unsigned long long v) { put_(k, (sint64)v); }
213		258
214	template<typename T>	259	template<typename T>
215	void put (keyword k, T *v)	260	void put (keyword k, const T *v)
216	{	261	{
		262	if (v)
		263	put (k, v->name);
		264	else
217	put (k, v ? (const char *)v->name : 0);	265	put (k, (const char *)0);
		266	}
		267
		268	template<typename T>
		269	void put (keyword k, const refptr<T> &v)
		270	{
		271	put (k, (T *)v);
218	}	272	}
219		273
220	bool save (const char *filename);	274	bool save (const char *filename);
		275	char *as_string (); // like strdup
221		276
222	operator bool () { return !!av; }	277	operator bool () { return !!av; }
223	};	278	};
224		279
225	// compatibility support, should be removed when no longer needed	280	// compatibility support, should be removed when no longer needed
226	int fprintf (object_freezer &freezer, const char *format, ...);	281	int fprintf (object_freezer &freezer, const char *format, ...);
227	int fputs (const char *s, object_freezer &freezer);	282	int fputs (const char *s, object_freezer &freezer);
228		283
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	284	struct object_thawer
238	{	285	{
239	AV *av;	286	SV *text; // text part
240	FILE *fp;	287	AV *av; // perl part
241	char line[1024];	288	char *line; // current beginning of line
		289	char *last_value;
		290
		291	operator bool () { return !!text; }
242		292
243	object_thawer (const char *filename = 0);	293	object_thawer (const char *filename = 0);
		294	object_thawer (const char data, AV perlav);
244	~object_thawer ();	295	~object_thawer ();
245		296
246	void get (data_type type, void obj, attachable_base ext, int oid);	297	void get (data_type type, void obj, attachable_base ext, int oid);
247		298
248	template<class subclass>	299	template<class subclass>
…		…
250	{	301	{
251	if (av)	302	if (av)
252	get ((data_type) cftype<subclass>::dt, (subclass *)obj, obj, oid);	303	get ((data_type) cftype<subclass>::dt, (subclass *)obj, obj, oid);
253	}	304	}
254		305
255	token get_token ();	306	keyword get_kv (); // also parse value for later use
256		307
257	operator FILE *() { return fp; }	308	const char *get_str () { return last_value; } // may be 0
		309
		310	void get (shstr &sh) const;
		311	void get_ornull (shstr &sh) const { sh = last_value; }
		312	void get_ml (keyword kend, shstr &sh);
		313
		314	sint32 get_sint32 () const;
		315	sint64 get_sint64 () const;
		316	double get_double () const;
		317
		318	void get (float &v) { v = get_double (); }
		319	void get (double &v) { v = get_double (); }
		320
		321	void get (sint8 &i) { i = get_sint32 (); }
		322	void get (uint8 &i) { i = get_sint32 (); }
		323	void get (sint16 &i) { i = get_sint32 (); }
		324	void get (uint16 &i) { i = get_sint32 (); }
		325	void get (sint32 &i) { i = get_sint32 (); }
		326
		327	void get (uint32 &i) { i = get_sint64 (); }
		328	void get (sint64 &i) { i = get_sint64 (); }
		329	};
		330
		331	char fgets (char s, int n, object_thawer &thawer);
		332
		333	struct watcher_base
		334	{
		335	static struct EventAPI *GEventAPI;
		336	};
		337
		338	template<class base>
		339	struct watcher : watcher_base
		340	{
		341	base *pe;
		342
		343	void start (bool repeat = false) { GEventAPI->start ((pe_watcher *)pe, repeat); }
		344	void stop (bool cancel_events = false) { GEventAPI->stop ((pe_watcher *)pe, cancel_events); }
		345	void now () { GEventAPI->now ((pe_watcher *)pe); }
		346	void suspend () { GEventAPI->suspend ((pe_watcher *)pe); }
		347	void resume () { GEventAPI->resume ((pe_watcher *)pe); }
		348
		349	void prio (int new_prio) { ((pe_watcher *)pe)->prio = new_prio; }
		350
		351	~watcher ()
		352	{
		353	cancel ();
		354	}
		355
		356	private:
		357	void cancel () { GEventAPI->cancel ((pe_watcher *)pe); } // private
		358	};
		359
		360	struct iw : watcher<pe_idle>, callback<void (iw &)>
		361	{
		362	template<class O, class M>
		363	iw (O object, M method)
		364	: callback<void (iw &)> (object, method)
		365	{
		366	alloc ();
		367	}
		368
		369	private:
		370	void alloc ();
		371	};
		372
		373	struct iow : watcher<pe_io>, callback<void (iow &, int)>
		374	{
		375	template<class O, class M>
		376	iow (O object, M method)
		377	: callback<void (iow &, int)> (object, method)
		378	{
		379	alloc ();
		380	}
		381
		382	void fd (int fd);
		383	int poll ();
		384	void poll (int events);
		385
		386	private:
		387	void alloc ();
258	};	388	};
259		389
260	#endif	390	#endif
261		391

Diff Legend

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

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

Diff Legend

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