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

Comparing deliantra/server/include/cfperl.h (file contents):
Revision 1.10 by root, Sun Aug 27 17:59:26 2006 UTC vs.
Revision 1.35 by root, Thu Dec 14 05:09:32 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;	8
9	struct mapstruct;	9	using namespace std;
		10
		11	#include <EXTERN.h>
		12	#include <perl.h>
		13	#include <XSUB.h>
		14
		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
10		30
11	void cfperl_init ();	31	void cfperl_init ();
12	void cfperl_main ();	32	void cfperl_main ();
13		33
14	// could have used templates, but a more traditional C api
15	// uses more explicit typing which is ok for this purpose.
16	enum data_type
17	{
18	DT_END, // no further arguments
19	DT_INT,
20	DT_INT64,
21	DT_DOUBLE,
22	DT_STRING, // 0-terminated string
23	DT_DATA, // string + length
24	DT_OBJECT,
25	DT_MAP,
26	DT_PLAYER,
27	DT_ARCH,
28	DT_PARTY,
29	DT_REGION,
30	DT_AV, // av that needs to be flattened out
31
32	NUM_DATA_TYPES
33	};
34
35	enum event_klass	34	enum event_klass
36	{	35	{
		36	KLASS_NONE,
37	KLASS_GLOBAL,	37	KLASS_GLOBAL,
		38	KLASS_SOCKET,
38	KLASS_PLAYER,	39	KLASS_PLAYER,
39	KLASS_OBJECT,	40	KLASS_OBJECT,
40	KLASS_MAP,	41	KLASS_MAP,
		42	KLASS_COMMAND,
41	};	43	};
42		44
43	enum event_type	45	enum event_type
44	{	46	{
45	# define def(klass,name) EVENT_ ## klass ## _ ## name,	47	# define def(klass,name) EVENT_ ## klass ## _ ## name,
46	# include "eventinc.h"	48	# include "eventinc.h"
47	# undef def	49	# undef def
48	NUM_EVENT_TYPES	50	NUM_EVENT_TYPES
49	};	51	};
50		52
		53	#define ARG_AV(o) DT_AV , static_cast<AV *> (o)
51	#define ARG_INT(v) DT_INT , static_cast<int> (v)	54	#define ARG_INT(v) DT_INT , static_cast<int> (v)
52	#define ARG_INT64(v) DT_INT64 , static_cast<sint64> (v)	55	#define ARG_INT64(v) DT_INT64 , static_cast<sint64> (v)
53	#define ARG_DOUBLE(v) DT_DOUBLE, static_cast<double> (v)	56	#define ARG_DOUBLE(v) DT_DOUBLE, static_cast<double> (v)
54	#define ARG_STRING(v) DT_STRING, static_cast<const char *> (v)	57	#define ARG_STRING(v) DT_STRING, static_cast<const char *> (v)
55	#define ARG_DATA(s,l) DT_DATA , static_cast<const void *> (s), (l)	58	#define ARG_DATA(s,l) DT_DATA , static_cast<const void *> (s), int (l)
56	#define ARG_OBJECT(o) DT_OBJECT, (void )static_cast<struct object > (o)	59	#define ARG_OBJECT(o) DT_OBJECT, (void )static_cast<object > (o)
57	#define ARG_MAP(o) DT_MAP , (void )static_cast<struct mapstruct > (o)	60	#define ARG_MAP(o) DT_MAP , (void )static_cast<maptile > (o)
58	#define ARG_PLAYER(o) DT_PLAYER, (void )static_cast<struct pl > (o)	61	#define ARG_PLAYER(o) DT_PLAYER, (void )static_cast<player > (o)
59	#define ARG_ARCH(o) DT_ARCH , (void )static_cast<struct archetype > (o)	62	#define ARG_ARCH(o) DT_ARCH , (void )static_cast<archetype > (o)
60	#define ARG_PARTY(o) DT_PARTY , (void )static_cast<struct party > (o)	63	#define ARG_PARTY(o) DT_PARTY , (void )static_cast<party > (o)
61	#define ARG_REGION(o) DT_REGION, (void )static_cast<struct region > (o)	64	#define ARG_REGION(o) DT_REGION, (void )static_cast<region > (o)
		65	#define ARG_SOCKET(o) DT_SOCKET, (void )static_cast<client_socket > (o)
62		66
63	// the ", ## __VA_ARGS" is, unfortunately, a gnu-cpp extension	67	// the ", ## __VA_ARGS" is, unfortunately, a gnu-cpp extension
64		68
65	// all these return true when the normal event processing should be skipped (if any)	69	// all these return true when the normal event processing should be skipped (if any)
66	#define INVOKE_(event, ...) cfperl_invoke (event, ## __VA_ARGS__, DT_END)	70	#define INVOKE_(event, ...) cfperl_invoke (event, ## __VA_ARGS__, DT_END)
67		71
68	#define INVOKE(klass, event, ...) INVOKE_(EVENT_ ## klass ## _ ## event, ## __VA_ARGS__)	72	#define INVOKE(klass, event, ...) INVOKE_(EVENT_ ## klass ## _ ## event, ## __VA_ARGS__)
69	#define INVOKE_GLOBAL(event, ...) INVOKE_(EVENT_ ## GLOBAL ## _ ## event, ## __VA_ARGS__)	73	#define INVOKE_GLOBAL(event, ...) INVOKE_(EVENT_ ## GLOBAL ## _ ## event, ## __VA_ARGS__)
70	#define INVOKE_OBJECT(event, op, ...) INVOKE_(EVENT_ ## OBJECT ## _ ## event, ARG_OBJECT (op), ## __VA_ARGS__)	74	#define INVOKE_OBJECT(event, op, ...) INVOKE_(EVENT_ ## OBJECT ## _ ## event, ARG_OBJECT (op), ## __VA_ARGS__)
		75	#define INVOKE_SOCKET(event, ns, ...) INVOKE_(EVENT_ ## SOCKET ## _ ## event, ARG_SOCKET (ns), ## __VA_ARGS__)
71	#define INVOKE_PLAYER(event, pl, ...) INVOKE_(EVENT_ ## PLAYER ## _ ## event, ARG_PLAYER (pl), ## __VA_ARGS__)	76	#define INVOKE_PLAYER(event, pl, ...) INVOKE_(EVENT_ ## PLAYER ## _ ## event, ARG_PLAYER (pl), ## __VA_ARGS__)
72	#define INVOKE_MAP(event, map, ...) INVOKE_(EVENT_ ## MAP ## _ ## event, ARG_MAP (map) , ## __VA_ARGS__)	77	#define INVOKE_MAP(event, map, ...) INVOKE_(EVENT_ ## MAP ## _ ## event, ARG_MAP (map) , ## __VA_ARGS__)
73		78
74	//TODO should index into @result	79	//TODO should index into @result
75	#define RESULT(idx,type) cfperl_result_ ## type (idx)	80	#define RESULT(idx,type) cfperl_result_ ## type (idx)
		81	#define RESULT_DOUBLE(idx) RESULT(idx, DOUBLE)
76	#define RESULT_INT(idx) RESULT(idx, INT)	82	#define RESULT_INT(idx) RESULT(idx, INT)
77		83
78	bool cfperl_invoke (event_type event, ...);	84	bool cfperl_invoke (event_type event, ...);
		85	double cfperl_result_DOUBLE (int idx);
79	int cfperl_result_INT (int idx);	86	int cfperl_result_INT (int idx);
80		87
81	struct attachable_base	88	struct attachable_base
82	{	89	{
83	void self, cb; // CF+ perl self and callback	90	SV *self; // CF+ perl self
		91	AV *cb; // CF+ callbacks
84	const char *attach; // generic extension attachment information	92	shstr attach; // generic extension attachment information
85		93
86	void clear (); // called when free'ing objects	94	void clear (); // called when free'ing objects
87	void optimise (); // possibly save some memory by destroying unneeded data	95	void optimise (); // possibly save some memory by destroying unneeded data
		96	void instantiate (data_type type, void *obj);
88		97
89	void attachable_init ()	98	void attachable_clear ()
90	{	99	{
91	self = cb = 0;	100	self = 0;
		101	cb = 0;
92	attach = 0;	102	attach = 0;
		103	}
		104
		105	attachable_base ()
		106	{
		107	attachable_clear ();
		108	}
		109
		110	~attachable_base ()
		111	{
		112	clear ();
		113	}
		114
		115	attachable_base (const attachable_base &src)
		116	: self (0), cb (0), attach (src.attach)
		117	{
		118	}
		119
		120	attachable_base &operator =(const attachable_base &src)
		121	{
		122	clear ();
		123	attach = src.attach;
		124	return *this;
93	}	125	}
94	};	126	};
95		127
96	// objects attachable from perl (or any other extension) should include or	128	// objects attachable from perl (or any other extension) should include or
97	// derive using the curiously recurring template pattern, to avoid	129	// derive using the curiously recurring template pattern, to avoid
98	// virtual method calls etc.	130	// virtual method calls etc.
99	template<class subclass>	131	template<class subclass>
100	struct attachable : attachable_base	132	struct attachable : attachable_base
101	{	133	{
102	static data_type get_dt ()	134	void instantiate ()
103	{	135	{
104	subclass::get_dt ();	136	if (attach)
		137	attachable_base::instantiate ((data_type) cftype<subclass>::dt, static_cast<subclass *>(this));
105	}	138	}
106	};	139	};
107		140
108	struct object_freezer	141	struct object_freezer : dynbuf
109	{	142	{
110	const char *filename;	143	AV *av;
111	void *av;
112	int idx;
113		144
114	object_freezer (const char *filename);	145	object_freezer ();
115	~object_freezer ();	146	~object_freezer ();
116		147
117	void put (attachable_base *ext);	148	void put (attachable_base *ext);
118		149
119	template<class subclass>	150	template<class subclass>
120	void put (attachable<subclass> *obj)	151	void put (attachable<subclass> *obj)
121	{	152	{
122	put ((attachable_base *)obj);	153	put ((attachable_base *)obj);
123	}	154	}
124		155
125	void finish ();	156	// used only for user-defined key-value pairs
		157	void put (const shstr &k, const shstr &v)
		158	{
		159	add (k);
		160
		161	if (v)
		162	add (' '), add (v);
		163
		164	add ('\n');
		165	}
		166
		167	//TODO//temporary, used only for saving body locations
		168	void put (const char *k, int v)
		169	{
		170	add (k);
		171	add (' ');
		172	add (sint32 (v));
		173	add ('\n');
		174	}
		175
		176	template<typename T>
		177	void put_string (keyword k, const T &v)
		178	{
		179	int klen = keyword_len [k];
		180	int vlen = v ? strlen (v) + 1 : 0;
		181
		182	char p = (char )alloc (klen + vlen + 1);
		183
		184	memcpy (p, keyword_str [k], klen); p += klen;
		185
		186	if (v)
		187	{
		188	*p++ = ' '; vlen--;
		189	memcpy (p, v, vlen); p += vlen;
		190	}
		191
		192	*p = '\n';
		193	}
		194
		195	void put (keyword k, const char *v)
		196	{
		197	put_string (k, v);
		198	}
		199
		200	void put (keyword k, const shstr &v)
		201	{
		202	put_string (k, v);
		203	}
		204
		205	void put (keyword k, double v)
		206	{
		207	char buf [128];
		208
		209	snprintf (buf, 128, "%.7g", v);
		210
		211	put (k, (const char *)buf);
		212	}
		213
		214	void put_(keyword k, sint64 v)
		215	{
		216	add (keyword_str [k], keyword_len [k]);
		217	add (' ');
		218	add (v);
		219	add ('\n');
		220	}
		221
		222	void put_(keyword k, sint32 v)
		223	{
		224	add (keyword_str [k], keyword_len [k]);
		225	add (' ');
		226	add (v);
		227	add ('\n');
		228	}
		229
		230	void put (keyword kbeg, keyword kend, const shstr &v)
		231	{
		232	add (keyword_str [kbeg], keyword_len [kbeg]); add ('\n');
		233
		234	if (v)
		235	{
		236	add (v);
		237	add ('\n');
		238	}
		239
		240	add (keyword_str [kend], keyword_len [kend]); add ('\n');
		241	}
		242
		243	void put (keyword k, float v) { put (k, (double)v); }
		244	void put (keyword k, signed char v) { put_(k, (sint32)v); }
		245	void put (keyword k, unsigned char v) { put_(k, (sint32)v); }
		246	void put (keyword k, signed short v) { put_(k, (sint32)v); }
		247	void put (keyword k, unsigned short v) { put_(k, (sint32)v); }
		248	void put (keyword k, signed int v) { put_(k, (sint32)v); }
		249	void put (keyword k, unsigned int v) { put_(k, (sint64)v); }
		250	void put (keyword k, signed long v) { put_(k, (sint64)v); }
		251	void put (keyword k, unsigned long v) { put_(k, (sint64)v); }
		252	void put (keyword k, signed long long v) { put_(k, (sint64)v); }
		253	void put (keyword k, unsigned long long v) { put_(k, (sint64)v); }
		254
		255	template<typename T>
		256	void put (keyword k, const T *v)
		257	{
		258	if (v)
		259	put (k, v->name);
		260	else
		261	put (k, (const char *)0);
		262	}
		263
		264	template<typename T>
		265	void put (keyword k, const refptr<T> &v)
		266	{
		267	put (k, (T *)v);
		268	}
		269
		270	bool save (const char *filename);
		271	char *as_string (); // like strdup
		272
		273	operator bool () { return !!av; }
126	};	274	};
		275
		276	// compatibility support, should be removed when no longer needed
		277	int fprintf (object_freezer &freezer, const char *format, ...);
		278	int fputs (const char *s, object_freezer &freezer);
127		279
128	struct object_thawer	280	struct object_thawer
129	{	281	{
130	void *av;	282	SV *text; // text part
131	int idx;	283	AV *av; // perl part
		284	char *line; // current beginning of line
		285	char *last_value;
		286
		287	operator bool () { return !!text; }
132		288
133	object_thawer (const char *filename = 0);	289	object_thawer (const char *filename = 0);
		290	object_thawer (const char data, AV perlav);
134	~object_thawer ();	291	~object_thawer ();
135		292
136	void get (data_type type, void obj, attachable_base ext);	293	void get (data_type type, void obj, attachable_base ext, int oid);
137		294
138	template<class subclass>	295	template<class subclass>
139	void get (attachable<subclass> *obj)	296	void get (attachable<subclass> *obj, int oid)
140	{	297	{
141	if (av)	298	if (av)
142	get (subclass::get_dt (), (subclass *)obj, obj);	299	get ((data_type) cftype<subclass>::dt, (subclass *)obj, obj, oid);
143	}	300	}
144		301
145	void finish ();	302	keyword get_kv (); // also parse value for later use
		303
		304	const char *get_str () { return last_value; } // may be 0
		305
		306	void get (shstr &sh) const;
		307	void get_ornull (shstr &sh) const { sh = last_value; }
		308	void get_ml (keyword kend, shstr &sh);
		309
		310	sint32 get_sint32 () const;
		311	sint64 get_sint64 () const;
		312	double get_double () const;
		313
		314	void get (float &v) { v = get_double (); }
		315	void get (double &v) { v = get_double (); }
		316
		317	void get (sint8 &i) { i = get_sint32 (); }
		318	void get (uint8 &i) { i = get_sint32 (); }
		319	void get (sint16 &i) { i = get_sint32 (); }
		320	void get (uint16 &i) { i = get_sint32 (); }
		321	void get (sint32 &i) { i = get_sint32 (); }
		322
		323	void get (uint32 &i) { i = get_sint64 (); }
		324	void get (sint64 &i) { i = get_sint64 (); }
146	};	325	};
		326
		327	char fgets (char s, int n, object_thawer &thawer);
147		328
148	#endif	329	#endif
149		330

Diff Legend

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

Comparing deliantra/server/include/cfperl.h (file contents): Revision 1.10 by root, Sun Aug 27 17:59:26 2006 UTC vs. Revision 1.35 by root, Thu Dec 14 05:09:32 2006 UTC

Diff Legend

Comparing deliantra/server/include/cfperl.h (file contents):
Revision 1.10 by root, Sun Aug 27 17:59:26 2006 UTC vs.
Revision 1.35 by root, Thu Dec 14 05:09:32 2006 UTC