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

Comparing deliantra/server/include/cfperl.h (file contents):
Revision 1.19 by root, Thu Aug 31 17:54:14 2006 UTC vs.
Revision 1.38 by root, Sat Dec 16 03:08:26 2006 UTC

…		…
8		8
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>
		14
		15	#include <EventAPI.h>
		16
		17	#include "callback.h"
13		18
14	// optimisations/workaround for functions requiring my_perl in scope (anti-bloat)	19	// optimisations/workaround for functions requiring my_perl in scope (anti-bloat)
15	#undef localtime	20	#undef localtime
16	#undef srand48	21	#undef srand48
17	#undef drand48	22	#undef drand48
…		…
26	// but does not initialise their state structures.	31	// but does not initialise their state structures.
27	#undef random	32	#undef random
28	#undef crypt	33	#undef crypt
29		34
30	void cfperl_init ();	35	void cfperl_init ();
31	void cfperl_boot ();
32	void cfperl_main ();	36	void cfperl_main ();
33		37
34	enum event_klass	38	enum event_klass
35	{	39	{
36	KLASS_NONE,	40	KLASS_NONE,
37	KLASS_GLOBAL,	41	KLASS_GLOBAL,
		42	KLASS_SOCKET,
38	KLASS_PLAYER,	43	KLASS_PLAYER,
39	KLASS_OBJECT,	44	KLASS_OBJECT,
40	KLASS_MAP,	45	KLASS_MAP,
		46	KLASS_COMMAND,
41	};	47	};
42		48
43	enum event_type	49	enum event_type
44	{	50	{
45	# define def(klass,name) EVENT_ ## klass ## _ ## name,	51	# define def(klass,name) EVENT_ ## klass ## _ ## name,
…		…
51	#define ARG_AV(o) DT_AV , static_cast<AV *> (o)	57	#define ARG_AV(o) DT_AV , static_cast<AV *> (o)
52	#define ARG_INT(v) DT_INT , static_cast<int> (v)	58	#define ARG_INT(v) DT_INT , static_cast<int> (v)
53	#define ARG_INT64(v) DT_INT64 , static_cast<sint64> (v)	59	#define ARG_INT64(v) DT_INT64 , static_cast<sint64> (v)
54	#define ARG_DOUBLE(v) DT_DOUBLE, static_cast<double> (v)	60	#define ARG_DOUBLE(v) DT_DOUBLE, static_cast<double> (v)
55	#define ARG_STRING(v) DT_STRING, static_cast<const char *> (v)	61	#define ARG_STRING(v) DT_STRING, static_cast<const char *> (v)
56	#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)
57	#define ARG_OBJECT(o) DT_OBJECT, (void )static_cast<struct object > (o)	63	#define ARG_OBJECT(o) DT_OBJECT, (void )static_cast<object > (o)
58	#define ARG_MAP(o) DT_MAP , (void )static_cast<struct mapstruct > (o)	64	#define ARG_MAP(o) DT_MAP , (void )static_cast<maptile > (o)
59	#define ARG_PLAYER(o) DT_PLAYER, (void )static_cast<struct pl > (o)	65	#define ARG_PLAYER(o) DT_PLAYER, (void )static_cast<player > (o)
60	#define ARG_ARCH(o) DT_ARCH , (void )static_cast<struct archetype > (o)	66	#define ARG_ARCH(o) DT_ARCH , (void )static_cast<archetype > (o)
61	#define ARG_PARTY(o) DT_PARTY , (void )static_cast<struct party > (o)	67	#define ARG_PARTY(o) DT_PARTY , (void )static_cast<party > (o)
62	#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)
63		70
64	// the ", ## __VA_ARGS" is, unfortunately, a gnu-cpp extension	71	// the ", ## __VA_ARGS" is, unfortunately, a gnu-cpp extension
65		72
66	// 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)
67	#define INVOKE_(event, ...) cfperl_invoke (event, ## __VA_ARGS__, DT_END)	74	#define INVOKE_(event, ...) cfperl_invoke (event, ## __VA_ARGS__, DT_END)
68		75
69	#define INVOKE(klass, event, ...) INVOKE_(EVENT_ ## klass ## _ ## event, ## __VA_ARGS__)	76	#define INVOKE(klass, event, ...) INVOKE_(EVENT_ ## klass ## _ ## event, ## __VA_ARGS__)
70	#define INVOKE_GLOBAL(event, ...) INVOKE_(EVENT_ ## GLOBAL ## _ ## event, ## __VA_ARGS__)	77	#define INVOKE_GLOBAL(event, ...) INVOKE_(EVENT_ ## GLOBAL ## _ ## event, ## __VA_ARGS__)
71	#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__)
72	#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__)
73	#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__)
74		82
75	//TODO should index into @result	83	//TODO should index into @result
76	#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)
77	#define RESULT_INT(idx) RESULT(idx, INT)	86	#define RESULT_INT(idx) RESULT(idx, INT)
78		87
79	bool cfperl_invoke (event_type event, ...);	88	bool cfperl_invoke (event_type event, ...);
		89	double cfperl_result_DOUBLE (int idx);
80	int cfperl_result_INT (int idx);	90	int cfperl_result_INT (int idx);
81		91
82	struct attachable_base	92	struct attachable_base
83	{	93	{
84	SV *self;	94	SV *self; // CF+ perl self
85	AV *cb; // CF+ perl self and callback	95	AV *cb; // CF+ callbacks
86	const char *attach; // generic extension attachment information	96	shstr attach; // generic extension attachment information
87		97
88	void clear (); // called when free'ing objects	98	void clear (); // called when free'ing objects
89	void optimise (); // possibly save some memory by destroying unneeded data	99	void optimise (); // possibly save some memory by destroying unneeded data
90	void instantiate (data_type type, void *obj);	100	void instantiate (data_type type, void *obj);
91		101
92	void attachable_init ()	102	void attachable_clear ()
93	{	103	{
94	self = 0;	104	self = 0;
95	cb = 0;	105	cb = 0;
96	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;
97	}	129	}
98	};	130	};
99		131
100	// objects attachable from perl (or any other extension) should include or	132	// objects attachable from perl (or any other extension) should include or
101	// derive using the curiously recurring template pattern, to avoid	133	// derive using the curiously recurring template pattern, to avoid
…		…
123	void put (attachable<subclass> *obj)	155	void put (attachable<subclass> *obj)
124	{	156	{
125	put ((attachable_base *)obj);	157	put ((attachable_base *)obj);
126	}	158	}
127		159
128	void put (const char k, const char v); //TODO//temporary	160	// used only for user-defined key-value pairs
		161	void put (const shstr &k, const shstr &v)
		162	{
		163	add (k);
		164
		165	if (v)
		166	add (' '), add (v);
		167
		168	add ('\n');
		169	}
		170
		171	//TODO//temporary, used only for saving body locations
129	void put (const char *k, int v); //TODO//temporary	172	void put (const char *k, int v)
		173	{
		174	add (k);
		175	add (' ');
		176	add (sint32 (v));
		177	add ('\n');
		178	}
130		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
131	void put (keyword k, const char *v);	199	void put (keyword k, const char *v)
		200	{
		201	put_string (k, v);
		202	}
		203
		204	void put (keyword k, const shstr &v)
		205	{
		206	put_string (k, v);
		207	}
		208
132	void put (keyword k, double v);	209	void put (keyword k, double v)
133	void put (keyword k, float v) { put (k, (double)v); }	210	{
		211	char buf [128];
134		212
135	void put_ (keyword k, sint32 v);	213	snprintf (buf, 128, "%.7g", v);
		214
		215	put (k, (const char *)buf);
		216	}
		217
136	void put_ (keyword k, sint64 v);	218	void put_(keyword k, sint64 v)
		219	{
		220	add (keyword_str [k], keyword_len [k]);
		221	add (' ');
		222	add (v);
		223	add ('\n');
		224	}
137		225
		226	void put_(keyword k, sint32 v)
		227	{
		228	add (keyword_str [k], keyword_len [k]);
		229	add (' ');
		230	add (v);
		231	add ('\n');
		232	}
		233
		234	void put (keyword kbeg, keyword kend, const shstr &v)
		235	{
		236	add (keyword_str [kbeg], keyword_len [kbeg]); add ('\n');
		237
		238	if (v)
		239	{
		240	add (v);
		241	add ('\n');
		242	}
		243
		244	add (keyword_str [kend], keyword_len [kend]); add ('\n');
		245	}
		246
		247	void put (keyword k, float v) { put (k, (double)v); }
138	void put (keyword k, signed char v) { put_(k, (sint32)v); }	248	void put (keyword k, signed char v) { put_(k, (sint32)v); }
139	void put (keyword k, unsigned char v) { put_(k, (sint32)v); }	249	void put (keyword k, unsigned char v) { put_(k, (sint32)v); }
140	void put (keyword k, signed short v) { put_(k, (sint32)v); }	250	void put (keyword k, signed short v) { put_(k, (sint32)v); }
141	void put (keyword k, unsigned short v) { put_(k, (sint32)v); }	251	void put (keyword k, unsigned short v) { put_(k, (sint32)v); }
142	void put (keyword k, signed int v) { put_(k, (sint32)v); }	252	void put (keyword k, signed int v) { put_(k, (sint32)v); }
…		…
144	void put (keyword k, signed long v) { put_(k, (sint64)v); }	254	void put (keyword k, signed long v) { put_(k, (sint64)v); }
145	void put (keyword k, unsigned long v) { put_(k, (sint64)v); }	255	void put (keyword k, unsigned long v) { put_(k, (sint64)v); }
146	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); }
147	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); }
148		258
149	void put (keyword kbeg, keyword kend, const char *v); // multiline
150
151	template<typename T>	259	template<typename T>
152	void put (keyword k, T *v)	260	void put (keyword k, const T *v)
153	{	261	{
		262	if (v)
		263	put (k, v->name);
		264	else
154	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);
155	}	272	}
156		273
157	bool save (const char *filename);	274	bool save (const char *filename);
		275	char *as_string (); // like strdup
158		276
159	operator bool () { return !!av; }	277	operator bool () { return !!av; }
160	};	278	};
161		279
162	// compatibility support, should be removed when no longer needed	280	// compatibility support, should be removed when no longer needed
163	int fprintf (object_freezer &freezer, const char *format, ...);	281	int fprintf (object_freezer &freezer, const char *format, ...);
164	int fputs (const char *s, object_freezer &freezer);	282	int fputs (const char *s, object_freezer &freezer);
165		283
166	// a single key-value line from a file
167	struct token {
168	keyword k;
169	const char *v;
170
171	token (keyword k, const char *v = 0) : k(k), v(v) { }
172	};
173
174	struct object_thawer	284	struct object_thawer
175	{	285	{
176	AV *av;	286	SV *text; // text part
177	FILE *fp;	287	AV *av; // perl part
178	char line[1024];	288	char *line; // current beginning of line
		289	char *last_value;
		290
		291	operator bool () { return !!text; }
179		292
180	object_thawer (const char *filename = 0);	293	object_thawer (const char *filename = 0);
		294	object_thawer (const char data, AV perlav);
181	~object_thawer ();	295	~object_thawer ();
182		296
183	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);
184		298
185	template<class subclass>	299	template<class subclass>
…		…
187	{	301	{
188	if (av)	302	if (av)
189	get ((data_type) cftype<subclass>::dt, (subclass *)obj, obj, oid);	303	get ((data_type) cftype<subclass>::dt, (subclass *)obj, obj, oid);
190	}	304	}
191		305
192	token get_token ();	306	keyword get_kv (); // also parse value for later use
193		307
194	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 ();
195	};	388	};
196		389
197	#endif	390	#endif
198		391

Diff Legend

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

Comparing deliantra/server/include/cfperl.h (file contents): Revision 1.19 by root, Thu Aug 31 17:54:14 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.19 by root, Thu Aug 31 17:54:14 2006 UTC vs.
Revision 1.38 by root, Sat Dec 16 03:08:26 2006 UTC