[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.38 by root, Sat Dec 16 03:08:26 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	#include <EventAPI.h>
		16
		17	#include "callback.h"
		18
		19	// optimisations/workaround for functions requiring my_perl in scope (anti-bloat)
		20	#undef localtime
		21	#undef srand48
		22	#undef drand48
		23	#undef srandom
		24	#undef readdir
		25	#undef getprotobyname
		26	#undef gethostbyname
		27	#undef ctime
		28	#undef strerror
		29
		30	// perl bug #40256: perl does overwrite those with reentrant versions
		31	// but does not initialise their state structures.
		32	#undef random
		33	#undef crypt
		34
		35	void cfperl_init ();
		36	void cfperl_main ();
33		37
34	enum event_klass	38	enum event_klass
35	{	39	{
		40	KLASS_NONE,
36	KLASS_GLOBAL,	41	KLASS_GLOBAL,
		42	KLASS_SOCKET,
37	KLASS_PLAYER,	43	KLASS_PLAYER,
38	KLASS_OBJECT,	44	KLASS_OBJECT,
39	KLASS_MAP,	45	KLASS_MAP,
		46	KLASS_COMMAND,
40	};	47	};
41		48
42	enum event_type	49	enum event_type
43	{	50	{
44	# define def(klass,name) EV_ ## klass ## _ ## name,	51	# define def(klass,name) EVENT_ ## klass ## _ ## name,
45	# include "eventinc.h"	52	# include "eventinc.h"
46	# undef def	53	# undef def
47	NUM_EVENT_TYPES	54	NUM_EVENT_TYPES
48	};	55	};
49		56
		57	#define ARG_AV(o) DT_AV , static_cast<AV *> (o)
50	#define ARG_INT(v) DT_INT , static_cast<int> (v)	58	#define ARG_INT(v) DT_INT , static_cast<int> (v)
51	#define ARG_INT64(v) DT_INT64 , static_cast<sint64> (v)	59	#define ARG_INT64(v) DT_INT64 , static_cast<sint64> (v)
52	#define ARG_DOUBLE(v) DT_DOUBLE, static_cast<double> (v)	60	#define ARG_DOUBLE(v) DT_DOUBLE, static_cast<double> (v)
53	#define ARG_STRING(v) DT_STRING, static_cast<const char *> (v)	61	#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)	62	#define ARG_DATA(s,l) DT_DATA , static_cast<const void *> (s), int (l)
55	#define ARG_OBJECT(o) DT_OBJECT, (void )static_cast<struct object > (o)	63	#define ARG_OBJECT(o) DT_OBJECT, (void )static_cast<object > (o)
56	#define ARG_MAP(o) DT_MAP , (void )static_cast<struct mapstruct > (o)	64	#define ARG_MAP(o) DT_MAP , (void )static_cast<maptile > (o)
57	#define ARG_PLAYER(o) DT_PLAYER, (void )static_cast<struct pl > (o)	65	#define ARG_PLAYER(o) DT_PLAYER, (void )static_cast<player > (o)
58	#define ARG_ARCH(o) DT_ARCH , (void )static_cast<struct archetype > (o)	66	#define ARG_ARCH(o) DT_ARCH , (void )static_cast<archetype > (o)
59	#define ARG_PARTY(o) DT_PARTY , (void )static_cast<struct party > (o)	67	#define ARG_PARTY(o) DT_PARTY , (void )static_cast<party > (o)
60	#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)
61		70
62	// the ", ## __VA_ARGS" is, unfortunately, a gnu-cpp extension	71	// the ", ## __VA_ARGS" is, unfortunately, a gnu-cpp extension
63		72
64	// 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)
65	#define INVOKE(klass, event, ...) cfperl_invoke (EV_ ## klass ## _ ## event, ## __VA_ARGS__, DT_END)	74	#define INVOKE_(event, ...) cfperl_invoke (event, ## __VA_ARGS__, DT_END)
66		75
		76	#define INVOKE(klass, event, ...) INVOKE_(EVENT_ ## klass ## _ ## event, ## __VA_ARGS__)
67	#define INVOKE_GLOBAL(event, ...) INVOKE (GLOBAL, event, ## __VA_ARGS__)	77	#define INVOKE_GLOBAL(event, ...) INVOKE_(EVENT_ ## GLOBAL ## _ ## event, ## __VA_ARGS__)
68	#define INVOKE_OBJECT(event, op, ...) INVOKE (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__)
69	#define INVOKE_PLAYER(event, pl, ...) INVOKE (PLAYER, event, ARG_PLAYER (pl), ## __VA_ARGS__)	80	#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__)	81	#define INVOKE_MAP(event, map, ...) INVOKE_(EVENT_ ## MAP ## _ ## event, ARG_MAP (map) , ## __VA_ARGS__)
71		82
		83	//TODO should index into @result
		84	#define RESULT(idx,type) cfperl_result_ ## type (idx)
		85	#define RESULT_DOUBLE(idx) RESULT(idx, DOUBLE)
		86	#define RESULT_INT(idx) RESULT(idx, INT)
		87
		88	bool cfperl_invoke (event_type event, ...);
		89	double cfperl_result_DOUBLE (int idx);
		90	int cfperl_result_INT (int idx);
		91
72	struct extendable_base	92	struct attachable_base
73	{	93	{
74	void self, cb; // CF+ perl self and callback	94	SV *self; // CF+ perl self
		95	AV *cb; // CF+ callbacks
75	const char *attach; // generic extension attachment information	96	shstr attach; // generic extension attachment information
76		97
77	void clear (); // called when free'ing objects	98	void clear (); // called when free'ing objects
78	void optimise (); // possibly save some memory by destroying unneeded data	99	void optimise (); // possibly save some memory by destroying unneeded data
79	void reattach (data_type type, void *self); // called after swapin	100	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		101
		102	void attachable_clear ()
		103	{
		104	self = 0;
		105	cb = 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;
		129	}
		130	};
		131
84	// objects extendable from perl (or any other extension) should include or	132	// objects attachable from perl (or any other extension) should include or
85	// derive using the curiously recurring template pattern, to avoid	133	// derive using the curiously recurring template pattern, to avoid
86	// virtual method calls etc.	134	// virtual method calls etc.
87	template<class subclass>	135	template<class subclass>
88	struct extendable : extendable_base	136	struct attachable : attachable_base
89	{	137	{
90	void clear ()
91	{
92	if (self \|\| cb)
93	extendable_base::clear ();
94	}
95	void instantiate ()	138	void instantiate ()
96	{	139	{
97	if (attach)	140	if (attach)
98	extendable_base::instantiate (	141	attachable_base::instantiate ((data_type) cftype<subclass>::dt, static_cast<subclass *>(this));
99	static_cast<subclass *>(this)->get_dt (),	142	}
100	static_cast<subclass *>(this)	143	};
		144
		145	struct object_freezer : dynbuf
		146	{
		147	AV *av;
		148
		149	object_freezer ();
		150	~object_freezer ();
		151
		152	void put (attachable_base *ext);
		153
		154	template<class subclass>
		155	void put (attachable<subclass> *obj)
		156	{
		157	put ((attachable_base *)obj);
		158	}
		159
		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
		172	void put (const char *k, int v)
		173	{
		174	add (k);
		175	add (' ');
		176	add (sint32 (v));
		177	add ('\n');
		178	}
		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)
101	);	191	{
102	}	192	*p++ = ' '; vlen--;
103	void reattach ()	193	memcpy (p, v, vlen); p += vlen;
104	{
105	if (attach)
106	extendable_base::reattach (
107	static_cast<subclass *>(this)->get_dt (),
108	static_cast<subclass *>(this)
109	);	194	}
		195
		196	*p = '\n';
110	}	197	}
111	void clone (subclass *destination)	198
		199	void put (keyword k, const char *v)
112	{	200	{
113	if (self \|\| cb)	201	put_string (k, v);
114	extendable_base::clone (	202	}
115	static_cast<subclass *>(this)->get_dt (),	203
116	static_cast<subclass *>(this),	204	void put (keyword k, const shstr &v)
117	destination	205	{
		206	put_string (k, v);
		207	}
		208
		209	void put (keyword k, double v)
		210	{
		211	char buf [128];
		212
		213	snprintf (buf, 128, "%.7g", v);
		214
		215	put (k, (const char *)buf);
		216	}
		217
		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	}
		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)
118	);	239	{
119	}	240	add (v);
120	};	241	add ('\n');
		242	}
121		243
122	bool cfperl_invoke (event_type event, ...);	244	add (keyword_str [kend], keyword_len [kend]); add ('\n');
123	void cfperl_free_ob (struct object *op);	245	}
124		246
125	void cfperl_init ();	247	void put (keyword k, float v) { put (k, (double)v); }
126	void cfperl_main ();	248	void put (keyword k, signed char v) { put_(k, (sint32)v); }
		249	void put (keyword k, unsigned char v) { put_(k, (sint32)v); }
		250	void put (keyword k, signed short v) { put_(k, (sint32)v); }
		251	void put (keyword k, unsigned short v) { put_(k, (sint32)v); }
		252	void put (keyword k, signed int v) { put_(k, (sint32)v); }
		253	void put (keyword k, unsigned int v) { put_(k, (sint64)v); }
		254	void put (keyword k, signed long v) { put_(k, (sint64)v); }
		255	void put (keyword k, unsigned long v) { put_(k, (sint64)v); }
		256	void put (keyword k, signed long long v) { put_(k, (sint64)v); }
		257	void put (keyword k, unsigned long long v) { put_(k, (sint64)v); }
		258
		259	template<typename T>
		260	void put (keyword k, const T *v)
		261	{
		262	if (v)
		263	put (k, v->name);
		264	else
		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);
		272	}
		273
		274	bool save (const char *filename);
		275	char *as_string (); // like strdup
		276
		277	operator bool () { return !!av; }
		278	};
		279
		280	// compatibility support, should be removed when no longer needed
		281	int fprintf (object_freezer &freezer, const char *format, ...);
		282	int fputs (const char *s, object_freezer &freezer);
		283
		284	struct object_thawer
		285	{
		286	SV *text; // text part
		287	AV *av; // perl part
		288	char *line; // current beginning of line
		289	char *last_value;
		290
		291	operator bool () { return !!text; }
		292
		293	object_thawer (const char *filename = 0);
		294	object_thawer (const char data, AV perlav);
		295	~object_thawer ();
		296
		297	void get (data_type type, void obj, attachable_base ext, int oid);
		298
		299	template<class subclass>
		300	void get (attachable<subclass> *obj, int oid)
		301	{
		302	if (av)
		303	get ((data_type) cftype<subclass>::dt, (subclass *)obj, obj, oid);
		304	}
		305
		306	keyword get_kv (); // also parse value for later use
		307
		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 ();
		388	};
127		389
128	#endif	390	#endif
129		391

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.38 by root, Sat Dec 16 03:08:26 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.38 by root, Sat Dec 16 03:08:26 2006 UTC