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

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

Diff Legend

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

Comparing deliantra/server/include/cfperl.h (file contents): Revision 1.17 by root, Thu Aug 31 06:23:19 2006 UTC vs. Revision 1.34 by root, Mon Dec 11 23:35:37 2006 UTC

Diff Legend

Comparing deliantra/server/include/cfperl.h (file contents):
Revision 1.17 by root, Thu Aug 31 06:23:19 2006 UTC vs.
Revision 1.34 by root, Mon Dec 11 23:35:37 2006 UTC