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

Comparing deliantra/server/server/cfperl.xs (file contents):
Revision 1.119 by root, Sun Dec 31 10:28:36 2006 UTC vs.
Revision 1.160 by elmex, Wed Jan 31 14:11:02 2007 UTC

…		…
32	#include <sproto.h>	32	#include <sproto.h>
33		33
34	#include "cfperl.h"	34	#include "cfperl.h"
35	#include "shstr.h"	35	#include "shstr.h"
36		36
		37	#include <unistd.h>
		38	#if _POSIX_MEMLOCK
		39	# include <sys/mman.h>
		40	#endif
		41
37	#include <EXTERN.h>	42	#include <EXTERN.h>
38	#include <perl.h>	43	#include <perl.h>
39	#include <XSUB.h>	44	#include <XSUB.h>
40		45
41	#include "CoroAPI.h"	46	#include "CoroAPI.h"
…		…
94		99
95	//////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////	100	//////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
96		101
97	unordered_vector<attachable *> attachable::mortals;	102	unordered_vector<attachable *> attachable::mortals;
98		103
99	#if 0
100	attachable *attachable::rc_first;
101
102	attachable::attachable ()
103	{
104	refcnt = 0;
105	rc_next = rc_first;
106	rc_first = this;
107	}
108	#endif
109
110	attachable::~attachable ()	104	attachable::~attachable ()
111	{	105	{
112	assert (!(flags & F_BORROWED));//D//TODO//remove when stable
113	#if 0
114	assert (!rc_next);
115	assert (!refcnt);	106	assert (!self);
116	#endif	107	assert (!cb);
		108	}
		109
		110	int
		111	attachable::refcnt_cnt () const
		112	{
		113	return refcnt + (self ? SvREFCNT (self) - 1 : 0);
		114	}
		115
		116	void
		117	attachable::sever_self ()
		118	{
		119	if (HV *self = this->self)
		120	{
		121	// keep a refcount because sv_unmagic might call attachable_free,
		122	// which might clear self, causing sv_unmagic to crash on a now
		123	// invalid object.
		124	SvREFCNT_inc (self);
		125	hv_clear (self);
		126	sv_unmagic ((SV *)self, PERL_MAGIC_ext);
		127	SvREFCNT_dec (self);
		128
		129	// self must be null now because thats sv_unmagic's job.
		130	assert (!this->self);
		131	}
		132	}
		133
		134	void
		135	attachable::optimise ()
		136	{
		137	if (self
		138	&& SvREFCNT (self) == 1
		139	&& !HvTOTALKEYS (self))
		140	sever_self ();
117	}	141	}
118		142
119	// check wether the object really is dead	143	// check wether the object really is dead
120	void	144	void
121	attachable::do_check ()	145	attachable::do_check ()
122	{	146	{
123	if (refcnt > 0)	147	if (refcnt_cnt () > 0)
124	return;	148	return;
125		149
126	// try to unborrow the refcnt from perl	150	destroy ();
127	if (flags & F_BORROWED)	151	}
		152
		153	void
		154	attachable::do_destroy ()
		155	{
		156	invoke (EVENT_ATTACHABLE_DESTROY, DT_END);
		157
		158	if (cb)
128	{	159	{
129	assert (self);//D//TODO//remove when stable
130	flags &= ~F_BORROWED;
131	refcnt_inc ();
132	SvREFCNT_dec (self);	160	SvREFCNT_dec (cb);
		161	cb = 0;
133	}	162	}
134		163
135	if (refcnt > 0 \|\| self)	164	if (self)
136	return;	165	sever_self ();
137		166
138	destroy ();
139	}
140
141	void
142	attachable::do_destroy ()
143	{
144	invoke (EVENT_ATTACHABLE_DESTROY, DT_END);
145
146	//TODO: call generic destroy callback
147	mortals.push_back (this);	167	mortals.push_back (this);
148	}	168	}
149		169
150	void	170	void
151	attachable::destroy ()	171	attachable::destroy ()
…		…
155		175
156	flags \|= F_DESTROYED;	176	flags \|= F_DESTROYED;
157	do_destroy ();	177	do_destroy ();
158	}	178	}
159		179
		180	void
160	void attachable::check_mortals ()	181	attachable::check_mortals ()
161	{	182	{
162	for (int i = 0; i < mortals.size (); )	183	static int i = 0;
		184
		185	for (;;)
163	{	186	{
		187	if (i >= mortals.size ())
		188	{
		189	i = 0;
		190
		191	if (mortals.size () > 1000)
		192	fprintf (stderr, "mortal queue size (%d) exceeds 1000.\n", (int)mortals.size ());
		193
		194	break;
		195	}
		196
164	attachable *obj = mortals [i];	197	attachable *obj = mortals [i];
165		198
166	obj->refcnt_chk (); // unborrow from perl, if necessary	199	obj->refcnt_chk (); // unborrow from perl, if necessary
167		200
		201	//if (obj->refcnt > 0 \|\| obj->self)
168	if (obj->refcnt \|\| obj->self)	202	if (obj->refcnt \|\| obj->self)
169	{	203	{
170	#if 0	204	//printf ("%p rc %d\n", obj, obj->refcnt_cnt ());//D
171	if (mortals.size() > 5)fprintf (stderr, "%d delaying %d:%p:%s %d (self %p:%d)\n", time(0),i, obj, typeid (*obj).name (),
172	obj->refcnt, obj->self, obj->self ? SvREFCNT(obj->self): - 1);//D
173	#endif
174
175	++i; // further delay freeing	205	++i; // further delay freeing
		206
		207	if (!(i & 0x3ff))
		208	break;
176	}//D	209	}
177	else	210	else
178	{	211	{
179	//Dfprintf (stderr, "deleteing %d:%p:%s\n", i, obj,typeid (*obj).name ());//D
180	mortals.erase (i);	212	mortals.erase (i);
181	delete obj;	213	delete obj;
182	}	214	}
183	}	215	}
184	}	216	}
…		…
209		241
210	static int	242	static int
211	attachable_free (pTHX_ SV sv, MAGIC mg)	243	attachable_free (pTHX_ SV sv, MAGIC mg)
212	{	244	{
213	attachable at = (attachable )mg->mg_ptr;	245	attachable at = (attachable )mg->mg_ptr;
214	assert (!(at->flags & attachable::F_BORROWED));//D//TODO//remove when stable	246
		247	//TODO: check if transaction behaviour is really required here
		248	if (SV self = (SV )at->self)
		249	{
215	at->self = 0;	250	at->self = 0;
		251	SvREFCNT_dec (self);
		252	}
		253
216	// next line makes sense, but most objects still have refcnt 0 by default	254	// next line makes sense, but most objects still have refcnt 0 by default
217	//at->refcnt_chk ();	255	//at->refcnt_chk ();
218	return 0;	256	return 0;
219	}	257	}
220		258
…		…
229	if (!obj->self)	267	if (!obj->self)
230	{	268	{
231	obj->self = newHV ();	269	obj->self = newHV ();
232	sv_magicext ((SV )obj->self, 0, PERL_MAGIC_ext, &attachable::vtbl, (char )obj, 0);	270	sv_magicext ((SV )obj->self, 0, PERL_MAGIC_ext, &attachable::vtbl, (char )obj, 0);
233		271
234	// borrow the refcnt from the object	272	// now bless the object _once_
235	obj->flags \|= attachable::F_BORROWED;	273	return sv_bless (newRV_inc ((SV *)obj->self), stash);
236	obj->refcnt_dec ();
237	}	274	}
		275	else
		276	{
		277	SV sv = newRV_inc ((SV )obj->self);
238		278
239	return sv_bless (newRV_inc ((SV *)obj->self), stash);	279	if (Gv_AMG (stash)) // handle overload correctly, as the perl core does not
		280	SvAMAGIC_on (sv);
		281
		282	return sv;
		283	}
240	}	284	}
241		285
242	static void	286	static void
243	clearSVptr (SV *sv)	287	clearSVptr (SV *sv)
244	{	288	{
…		…
297	inline SV to_sv (living v) { return newSVptr (v, stash_cf_living_wrap); }	341	inline SV to_sv (living v) { return newSVptr (v, stash_cf_living_wrap); }
298		342
299	inline SV *to_sv (object & v) { return to_sv (&v); }	343	inline SV *to_sv (object & v) { return to_sv (&v); }
300	inline SV *to_sv (living & v) { return to_sv (&v); }	344	inline SV *to_sv (living & v) { return to_sv (&v); }
301		345
302	//TODO:
303	inline SV to_sv (New_Face v) { return to_sv (v->name); }	346	inline SV to_sv (facetile v) { return to_sv (v->name); }
304	inline SV to_sv (treasurelist v) { return to_sv (v->name); }	347	inline SV to_sv (treasurelist v) { return to_sv (v->name); }
305		348
306	inline SV *to_sv (UUID v)	349	inline SV *to_sv (UUID v)
307	{	350	{
308	char buf[128];	351	char buf[128];
309	snprintf (buf, 128, "<1,%" PRIx64 ">", v.seq);	352	snprintf (buf, 128, "<1.%" PRIx64 ">", v.seq);
310	return newSVpv (buf, 0);	353	return newSVpv (buf, 0);
311	}	354	}
312		355
313	inline void sv_to (SV *sv, shstr &v) { v = SvOK (sv) ? SvPV_nolen (sv) : 0; }	356	inline void sv_to (SV *sv, shstr &v) { v = SvOK (sv) ? SvPV_nolen (sv) : 0; }
314	inline void sv_to (SV sv, char &v) { free (v); v = SvOK (sv) ? strdup (SvPV_nolen (sv)) : 0; }	357	inline void sv_to (SV sv, char &v) { free (v); v = SvOK (sv) ? strdup (SvPV_nolen (sv)) : 0; }
…		…
328	inline void sv_to (SV sv, client &v) { v = (client )(attachable )SvPTR_ornull (sv, "cf::client"); }	371	inline void sv_to (SV sv, client &v) { v = (client )(attachable )SvPTR_ornull (sv, "cf::client"); }
329	inline void sv_to (SV sv, player &v) { v = (player )(attachable )SvPTR_ornull (sv, "cf::player"); }	372	inline void sv_to (SV sv, player &v) { v = (player )(attachable )SvPTR_ornull (sv, "cf::player"); }
330	inline void sv_to (SV sv, object &v) { v = (object )(attachable )SvPTR_ornull (sv, "cf::object"); }	373	inline void sv_to (SV sv, object &v) { v = (object )(attachable )SvPTR_ornull (sv, "cf::object"); }
331	inline void sv_to (SV sv, archetype &v) { v = (archetype )(attachable )SvPTR_ornull (sv, "cf::arch"); }	374	inline void sv_to (SV sv, archetype &v) { v = (archetype )(attachable )SvPTR_ornull (sv, "cf::arch"); }
332	inline void sv_to (SV sv, maptile &v) { v = (maptile )(attachable )SvPTR_ornull (sv, "cf::map"); }	375	inline void sv_to (SV sv, maptile &v) { v = (maptile )(attachable )SvPTR_ornull (sv, "cf::map"); }
		376	inline void sv_to (SV sv, attachable &v) { v = (attachable *)SvPTR_ornull (sv, "cf::attachable"); }
333	inline void sv_to (SV sv, partylist &v) { v = (partylist *)SvPTR_ornull (sv, "cf::party"); }	377	inline void sv_to (SV sv, partylist &v) { v = (partylist *)SvPTR_ornull (sv, "cf::party"); }
334	inline void sv_to (SV sv, region &v) { v = (region *)SvPTR_ornull (sv, "cf::region"); }	378	inline void sv_to (SV sv, region &v) { v = (region *)SvPTR_ornull (sv, "cf::region"); }
335	inline void sv_to (SV sv, living &v) { v = (living *)SvPTR_ornull (sv, "cf::living"); }	379	inline void sv_to (SV sv, living &v) { v = (living *)SvPTR_ornull (sv, "cf::living"); }
336		380
337	inline void sv_to (SV sv, New_Face &v) { v = &new_faces[FindFace (SvPV_nolen (sv), 0)]; } //TODO	381	inline void sv_to (SV sv, facetile &v) { v = &new_faces[FindFace (SvPV_nolen (sv), 0)]; }
338	inline void sv_to (SV sv, treasurelist &v) { v = find_treasurelist (SvPV_nolen (sv)); } // TODO	382	inline void sv_to (SV sv, treasurelist &v) { v = find_treasurelist (SvPV_nolen (sv)); }
339		383
340	template<class T>	384	template<class T>
341	inline void sv_to (SV sv, refptr<T> &v) { T tmp; sv_to (sv, tmp); v = tmp; }	385	inline void sv_to (SV sv, refptr<T> &v) { T tmp; sv_to (sv, tmp); v = tmp; }
342		386
343	template<int N>	387	template<int N>
…		…
478	{	522	{
479	if (!ext->cb)	523	if (!ext->cb)
480	ext->cb = newAV ();	524	ext->cb = newAV ();
481		525
482	return newRV_inc ((SV *)ext->cb);	526	return newRV_inc ((SV *)ext->cb);
483	}
484
485	#if 0
486	void attachable::clear ()
487	{
488	if (self)
489	{
490	// disconnect Perl from C, to avoid crashes
491	sv_unmagic (SvRV ((SV *)self), PERL_MAGIC_ext);
492
493	// clear the perl hash, might or might not be a good idea
494	hv_clear ((HV )SvRV ((SV )self));
495
496	SvREFCNT_dec (self);
497	self = 0;
498	}
499
500	if (cb)
501	{
502	SvREFCNT_dec (cb);
503	cb = 0;
504	}
505
506	attach = 0;
507	}
508	#endif
509
510	void attachable::optimise ()
511	{
512	if (self
513	&& SvREFCNT (self) == 1
514	&& !HvTOTALKEYS (self))
515	{
516	flags &= ~F_BORROWED;
517	refcnt_inc ();
518	SvREFCNT_dec ((SV *)self);
519	}
520	}	527	}
521		528
522	/////////////////////////////////////////////////////////////////////////////	529	/////////////////////////////////////////////////////////////////////////////
523		530
524	extern "C" int cfperl_initPlugin (const char *iversion, f_plug_api gethooksptr)	531	extern "C" int cfperl_initPlugin (const char *iversion, f_plug_api gethooksptr)
…		…
820	}	827	}
821		828
822	/////////////////////////////////////////////////////////////////////////////	829	/////////////////////////////////////////////////////////////////////////////
823		830
824	void	831	void
825	maptile::emergency_save ()	832	cfperl_emergency_save ()
826	{	833	{
827	CALL_BEGIN (0);	834	CALL_BEGIN (0);
828	CALL_CALL ("cf::map::emergency_save", G_VOID);	835	CALL_CALL ("cf::emergency_save", G_VOID);
829	CALL_END;	836	CALL_END;
830	}	837	}
831		838
832	maptile *	839	maptile *
833	maptile::load_map_sync (const char path, maptile origin)	840	maptile::find_sync (const char path, maptile origin)
834	{	841	{
835	CALL_BEGIN (2);	842	CALL_BEGIN (2);
836	CALL_ARG (path);	843	CALL_ARG (path);
837	CALL_ARG (origin);	844	CALL_ARG (origin);
838	CALL_CALL ("cf::map::load_map_sync", G_SCALAR);	845	CALL_CALL ("cf::map::find_sync", G_SCALAR);
839		846
840	maptile *retval;	847	maptile *retval;
841		848
842	if (count)	849	if (count)
843	sv_to (POPs, retval);	850	sv_to (POPs, retval);
…		…
845	retval = 0;	852	retval = 0;
846		853
847	CALL_END;	854	CALL_END;
848		855
849	return retval;	856	return retval;
		857	}
		858
		859	maptile *
		860	maptile::find_async (const char path, maptile origin)
		861	{
		862	CALL_BEGIN (2);
		863	CALL_ARG (path);
		864	CALL_ARG (origin);
		865	CALL_CALL ("cf::map::find_async", G_SCALAR);
		866
		867	maptile *retval;
		868
		869	if (count)
		870	sv_to (POPs, retval);
		871	else
		872	retval = 0;
		873
		874	CALL_END;
		875
		876	return retval;
		877	}
		878
		879	void
		880	maptile::do_load_sync ()
		881	{
		882	CALL_BEGIN (1);
		883	CALL_ARG (this);
		884	CALL_CALL ("cf::map::do_load_sync", G_SCALAR);
		885	CALL_END;
850	}	886	}
851		887
852	void	888	void
853	maptile::change_all_map_light (int change)	889	maptile::change_all_map_light (int change)
854	{	890	{
…		…
874	/////////////////////////////////////////////////////////////////////////////	910	/////////////////////////////////////////////////////////////////////////////
875		911
876	struct EventAPI *watcher_base::GEventAPI;	912	struct EventAPI *watcher_base::GEventAPI;
877	struct CoroAPI *coroapi::GCoroAPI;	913	struct CoroAPI *coroapi::GCoroAPI;
878		914
		915	int coroapi::cede_counter;
		916
879	static void iw_dispatch (pe_event *ev)	917	static void iw_dispatch (pe_event *ev)
880	{	918	{
881	iw w = (iw )ev->ext_data;	919	iw w = (iw )ev->ext_data;
882	w->call (*w);	920	w->call (*w);
883	}	921	}
…		…
885	void	923	void
886	iw::alloc ()	924	iw::alloc ()
887	{	925	{
888	pe = GEventAPI->new_idle (0, 0);	926	pe = GEventAPI->new_idle (0, 0);
889		927
		928	WaREENTRANT_off (pe);
890	pe->base.callback = (void *)iw_dispatch;	929	pe->base.callback = (void *)iw_dispatch;
891	pe->base.ext_data = (void *)this;	930	pe->base.ext_data = (void *)this;
892	}	931	}
893		932
894	static void iow_dispatch (pe_event *ev)	933	static void iow_dispatch (pe_event *ev)
…		…
900	void	939	void
901	iow::alloc ()	940	iow::alloc ()
902	{	941	{
903	pe = GEventAPI->new_io (0, 0);	942	pe = GEventAPI->new_io (0, 0);
904		943
		944	WaREENTRANT_off (pe);
905	pe->base.callback = (void *)iow_dispatch;	945	pe->base.callback = (void *)iow_dispatch;
906	pe->base.ext_data = (void *)this;	946	pe->base.ext_data = (void *)this;
907		947
908	pe->fd = -1;	948	pe->fd = -1;
909	pe->poll = 0;	949	pe->poll = 0;
…		…
1237	const_iv (FLAG_ACTIVATE_ON_RELEASE)	1277	const_iv (FLAG_ACTIVATE_ON_RELEASE)
1238	const_iv (FLAG_IS_WATER)	1278	const_iv (FLAG_IS_WATER)
1239	const_iv (FLAG_CONTENT_ON_GEN)	1279	const_iv (FLAG_CONTENT_ON_GEN)
1240	const_iv (FLAG_IS_A_TEMPLATE)	1280	const_iv (FLAG_IS_A_TEMPLATE)
1241	const_iv (FLAG_IS_BUILDABLE)	1281	const_iv (FLAG_IS_BUILDABLE)
		1282	const_iv (FLAG_DESTROY_ON_DEATH)
		1283	const_iv (FLAG_NO_MAP_SAVE)
1242		1284
1243	const_iv (NDI_BLACK)	1285	const_iv (NDI_BLACK)
1244	const_iv (NDI_WHITE)	1286	const_iv (NDI_WHITE)
1245	const_iv (NDI_NAVY)	1287	const_iv (NDI_NAVY)
1246	const_iv (NDI_RED)	1288	const_iv (NDI_RED)
…		…
1288	const_iv (P_BLOCKSVIEW)	1330	const_iv (P_BLOCKSVIEW)
1289	const_iv (P_PLAYER)	1331	const_iv (P_PLAYER)
1290	const_iv (P_NO_MAGIC)	1332	const_iv (P_NO_MAGIC)
1291	const_iv (P_IS_ALIVE)	1333	const_iv (P_IS_ALIVE)
1292	const_iv (P_NO_CLERIC)	1334	const_iv (P_NO_CLERIC)
1293	const_iv (P_NEED_UPDATE)
1294	const_iv (P_OUT_OF_MAP)	1335	const_iv (P_OUT_OF_MAP)
1295	const_iv (P_NEW_MAP)	1336	const_iv (P_NEW_MAP)
		1337	const_iv (P_UPTODATE)
1296		1338
1297	const_iv (UP_OBJ_INSERT)	1339	const_iv (UP_OBJ_INSERT)
1298	const_iv (UP_OBJ_REMOVE)	1340	const_iv (UP_OBJ_REMOVE)
1299	const_iv (UP_OBJ_CHANGE)	1341	const_iv (UP_OBJ_CHANGE)
1300	const_iv (UP_OBJ_FACE)	1342	const_iv (UP_OBJ_FACE)
…		…
1431	const_iv (ATNR_BLIND)	1473	const_iv (ATNR_BLIND)
1432	const_iv (ATNR_INTERNAL)	1474	const_iv (ATNR_INTERNAL)
1433	const_iv (ATNR_LIFE_STEALING)	1475	const_iv (ATNR_LIFE_STEALING)
1434	const_iv (ATNR_DISEASE)	1476	const_iv (ATNR_DISEASE)
1435		1477
1436	const_iv (MAP_FLUSH)
1437	const_iv (MAP_PLAYER_UNIQUE)
1438	const_iv (MAP_BLOCK)
1439	const_iv (MAP_STYLE)
1440	const_iv (MAP_OVERLAY)
1441
1442	const_iv (MAP_IN_MEMORY)	1478	const_iv (MAP_IN_MEMORY)
1443	const_iv (MAP_SWAPPED)	1479	const_iv (MAP_SWAPPED)
1444	const_iv (MAP_LOADING)	1480	const_iv (MAP_LOADING)
1445	const_iv (MAP_SAVING)	1481	const_iv (MAP_SAVING)
1446		1482
…		…
1459	const_iv (ST_SETUP)	1495	const_iv (ST_SETUP)
1460	const_iv (ST_PLAYING)	1496	const_iv (ST_PLAYING)
1461	const_iv (ST_CUSTOM)	1497	const_iv (ST_CUSTOM)
1462		1498
1463	const_iv (ST_CHANGE_CLASS)	1499	const_iv (ST_CHANGE_CLASS)
1464	const_iv (ST_CONFIRM_QUIT)
1465	const_iv (ST_GET_PARTY_PASSWORD)
1466		1500
1467	const_iv (IO_HEADER)	1501	const_iv (IO_HEADER)
1468	const_iv (IO_OBJECTS)	1502	const_iv (IO_OBJECTS)
1469	const_iv (IO_UNIQUES)	1503	const_iv (IO_UNIQUES)
1470		1504
…		…
1524		1558
1525	void _global_reattach ()	1559	void _global_reattach ()
1526	CODE:	1560	CODE:
1527	{	1561	{
1528	// reattach to all attachable objects in the game.	1562	// reattach to all attachable objects in the game.
1529	for (sockvec::iterator i = clients.begin (); i != clients.end (); ++i)	1563	for_all_clients (ns)
1530	(*i)->reattach ();	1564	ns->reattach ();
1531		1565
1532	for_all_players (pl)	1566	for_all_players (pl)
1533	pl->reattach ();	1567	pl->reattach ();
1534		1568
1535	//TODO	1569	//TODO
1536	//for (map_container::iterator i = maps.begin (); i != maps.end (); ++i)	1570	//for (map_container::iterator i = maps.begin (); i != maps.end (); ++i)
1537	// i->second->reattach ();	1571	// i->second->reattach ();
1538		1572
1539	for (object *op = object::first; op; op = op->next)	1573	for_all_objects (op)
1540	op->reattach ();	1574	op->reattach ();
1541	}	1575	}
1542		1576
1543	NV floor (NV x)	1577	NV floor (NV x)
1544		1578
1545	NV ceil (NV x)	1579	NV ceil (NV x)
		1580
		1581	NV rndm (...)
		1582	CODE:
		1583	switch (items)
		1584	{
		1585	case 0: RETVAL = rndm (); break;
		1586	case 1: RETVAL = rndm (SvUV (ST (0))); break;
		1587	case 2: RETVAL = rndm (SvIV (ST (0)), SvIV (ST (1))); break;
		1588	default: croak ("cf::rndm requires none, one or two parameters."); break;
		1589	}
		1590	OUTPUT:
		1591	RETVAL
1546		1592
1547	void server_tick ()	1593	void server_tick ()
1548	CODE:	1594	CODE:
1549	runtime = SvNVx (sv_runtime);	1595	runtime = SvNVx (sv_runtime);
1550	server_tick ();	1596	server_tick ();
…		…
1595	case 5: RETVAL = settings.playerdir; break;	1641	case 5: RETVAL = settings.playerdir; break;
1596	case 6: RETVAL = settings.datadir ; break;	1642	case 6: RETVAL = settings.datadir ; break;
1597	}	1643	}
1598	OUTPUT: RETVAL	1644	OUTPUT: RETVAL
1599		1645
		1646	void abort ()
		1647
		1648	void fork_abort (char *cause = "cf::fork_abort")
		1649
		1650	void cleanup (const char *cause, bool make_core = false)
		1651
1600	void emergency_save ()	1652	void emergency_save ()
1601		1653
1602	void _exit (int status = 0)	1654	void _exit (int status = EXIT_SUCCESS)
		1655
		1656	UV sv_2watcher (SV *w)
		1657	CODE:
		1658	RETVAL = (UV)GEventAPI->sv_2watcher (w);
		1659	OUTPUT:
		1660	RETVAL
		1661
		1662	#if _POSIX_MEMLOCK
		1663
		1664	int mlockall (int flags = MCL_CURRENT \| MCL_FUTURE)
		1665
		1666	int munlockall ()
		1667
		1668	#endif
1603		1669
1604	int find_animation (char *text)	1670	int find_animation (char *text)
1605	PROTOTYPE: $	1671	PROTOTYPE: $
1606		1672
1607	int random_roll (int min, int max, object *op, int goodbad);	1673	int random_roll (int min, int max, object *op, int goodbad);
…		…
1654	CODE:	1720	CODE:
1655	RETVAL = SvROK (obj) && mg_find (SvRV (obj), PERL_MAGIC_ext);	1721	RETVAL = SvROK (obj) && mg_find (SvRV (obj), PERL_MAGIC_ext);
1656	OUTPUT:	1722	OUTPUT:
1657	RETVAL	1723	RETVAL
1658		1724
1659	#bool	1725	int mortals_size ()
1660	#destroyed (attachable *at)	1726	CODE:
1661	#	1727	RETVAL = attachable::mortals.size ();
1662	#void	1728	OUTPUT: RETVAL
1663	#destroy (attachable *at)	1729
		1730	#object *mortals (U32 index)
		1731	# CODE:
		1732	# RETVAL = index < attachable::mortals.size () ? attachable::mortals [index] : 0;
		1733	# OUTPUT: RETVAL
		1734
		1735	INCLUDE: $PERL genacc attachable ../include/cfperl.h \|
1664		1736
1665	MODULE = cf PACKAGE = cf::global	1737	MODULE = cf PACKAGE = cf::global
1666		1738
1667	int invoke (SV *klass, int event, ...)	1739	int invoke (SV *klass, int event, ...)
1668	CODE:	1740	CODE:
…		…
1684	RETVAL = op->invoke ((event_type)event, ARG_AV (av), DT_END);	1756	RETVAL = op->invoke ((event_type)event, ARG_AV (av), DT_END);
1685	OUTPUT: RETVAL	1757	OUTPUT: RETVAL
1686		1758
1687	SV registry (object op)	1759	SV registry (object op)
1688		1760
1689	void mortals ()	1761	int objects_size ()
1690	PPCODE:	1762	CODE:
1691	EXTEND (SP, object::mortals.size ());
1692	for (AUTODECL (i, object::mortals.begin ()); i != object::mortals.end (); ++i)
1693	PUSHs (to_sv (*i));
1694
1695	object *first ()
1696	CODE:
1697	RETVAL = object::first;	1763	RETVAL = objects.size ();
		1764	OUTPUT: RETVAL
		1765
		1766	object *objects (U32 index)
		1767	CODE:
		1768	RETVAL = index < objects.size () ? objects [index] : 0;
		1769	OUTPUT: RETVAL
		1770
		1771	int actives_size ()
		1772	CODE:
		1773	RETVAL = actives.size ();
		1774	OUTPUT: RETVAL
		1775
		1776	object *actives (U32 index)
		1777	CODE:
		1778	RETVAL = index < actives.size () ? actives [index] : 0;
1698	OUTPUT: RETVAL	1779	OUTPUT: RETVAL
1699		1780
1700	# missing properties	1781	# missing properties
1701		1782
1702	object head (object op)	1783	object head (object op)
1703	PROTOTYPE: $	1784	PROTOTYPE: $
1704	CODE:	1785	CODE:
1705	RETVAL = op->head ? op->head : op;	1786	RETVAL = op->head_ ();
1706	OUTPUT: RETVAL	1787	OUTPUT: RETVAL
1707		1788
1708	int is_head (object *op)	1789	int is_head (object *op)
1709	PROTOTYPE: $	1790	PROTOTYPE: $
1710	CODE:	1791	CODE:
1711	RETVAL = !op->head;	1792	RETVAL = op->head_ () == op;
1712	OUTPUT: RETVAL	1793	OUTPUT: RETVAL
1713		1794
1714	void	1795	void
1715	inv (object *obj)	1796	inv (object *obj)
1716	PROTOTYPE: $	1797	PROTOTYPE: $
…		…
1723		1804
1724	void	1805	void
1725	set_animation (object *op, int idx)	1806	set_animation (object *op, int idx)
1726	CODE:	1807	CODE:
1727	SET_ANIMATION (op, idx);	1808	SET_ANIMATION (op, idx);
		1809
		1810	int
		1811	num_animations (object *op)
		1812	CODE:
		1813	RETVAL = NUM_ANIMATIONS (op);
		1814	OUTPUT: RETVAL
1728		1815
1729	object find_best_object_match (object op, const char *match)	1816	object find_best_object_match (object op, const char *match)
1730		1817
1731	object find_marked_object (object op)	1818	object find_marked_object (object op)
1732		1819
…		…
1807		1894
1808	void drop (object who, object op)	1895	void drop (object who, object op)
1809		1896
1810	void pick_up (object who, object op)	1897	void pick_up (object who, object op)
1811		1898
1812	object cf_object_insert_object (object op, object *container)
1813
1814	object cf_object_insert_in_ob (object ob, object *where)
1815
1816	int cf_object_teleport (object op, maptile map, int x, int y)	1899	int cf_object_teleport (object op, maptile map, int x, int y)
1817		1900
1818	void update_object (object *op, int action)	1901	void update_object (object *op, int action)
1819		1902
1820	object cf_create_object_by_name (const char name)	1903	object cf_create_object_by_name (const char name)
…		…
1913	RETVAL = op->contr;	1996	RETVAL = op->contr;
1914	OUTPUT: RETVAL	1997	OUTPUT: RETVAL
1915		1998
1916	void check_score (object *op)	1999	void check_score (object *op)
1917		2000
1918	void cf_player_message (object obj, char txt, int flags = NDI_ORANGE \| NDI_UNIQUE)	2001	void message (object op, char txt, int flags = NDI_ORANGE \| NDI_UNIQUE)
		2002	CODE:
		2003	new_draw_info (flags, 0, op, txt);
1919		2004
1920	object cf_player_send_inventory (object op)	2005	object cf_player_send_inventory (object op)
1921		2006
1922	char cf_player_get_ip (object op)	2007	char cf_player_get_ip (object op)
1923	ALIAS: ip = 0	2008	ALIAS: ip = 0
…		…
1936		2021
1937	void esrv_update_item (object op, int what, object item)	2022	void esrv_update_item (object op, int what, object item)
1938	C_ARGS: what, op, item	2023	C_ARGS: what, op, item
1939		2024
1940	void clear_los (object *op)	2025	void clear_los (object *op)
1941
1942	int command_teleport (object op, char params)
1943		2026
1944	int command_summon (object op, char params)	2027	int command_summon (object op, char params)
1945		2028
1946	int command_arrest (object op, char params)	2029	int command_arrest (object op, char params)
1947		2030
…		…
1969	CODE:	2052	CODE:
1970	pl->ob->stats.hp = pl->ob->stats.maxhp;	2053	pl->ob->stats.hp = pl->ob->stats.maxhp;
1971	pl->ob->stats.sp = pl->ob->stats.maxsp;	2054	pl->ob->stats.sp = pl->ob->stats.maxsp;
1972	pl->ob->stats.grace = pl->ob->stats.maxgrace;	2055	pl->ob->stats.grace = pl->ob->stats.maxgrace;
1973	pl->orig_stats = pl->ob->stats;	2056	pl->orig_stats = pl->ob->stats;
1974
1975	player cf_player_find (char name)
1976	PROTOTYPE: $
1977		2057
1978	void cf_player_move (player *pl, int dir)	2058	void cf_player_move (player *pl, int dir)
1979		2059
1980	void play_sound_player_only (player *pl, int soundnum, int x = 0, int y = 0);	2060	void play_sound_player_only (player *pl, int soundnum, int x = 0, int y = 0);
1981		2061
…		…
2027	if (y) sv_to (y, pl->bed_y);	2107	if (y) sv_to (y, pl->bed_y);
2028		2108
2029	void	2109	void
2030	list ()	2110	list ()
2031	PPCODE:	2111	PPCODE:
2032	for (player *pl = first_player; pl; pl = pl->next)	2112	for_all_players (pl)
2033	XPUSHs (sv_2mortal (to_sv (pl)));	2113	XPUSHs (sv_2mortal (to_sv (pl)));
2034
2035	bool
2036	peaceful (player *pl, bool new_setting = 0)
2037	PROTOTYPE: $;$
2038	CODE:
2039	RETVAL = pl->peaceful;
2040	if (items > 1)
2041	pl->peaceful = new_setting;
2042	OUTPUT:
2043	RETVAL
2044
2045	living *
2046	orig_stats (player *pl)
2047	CODE:
2048	RETVAL = &pl->orig_stats;
2049	OUTPUT: RETVAL
2050
2051	living *
2052	last_stats (player *pl)
2053	CODE:
2054	RETVAL = &pl->last_stats;
2055	OUTPUT: RETVAL
2056		2114
2057		2115
2058	MODULE = cf PACKAGE = cf::map PREFIX = cf_map_	2116	MODULE = cf PACKAGE = cf::map PREFIX = cf_map_
2059		2117
2060	int invoke (maptile *map, int event, ...)	2118	int invoke (maptile *map, int event, ...)
…		…
2076	PROTOTYPE:	2134	PROTOTYPE:
2077	CODE:	2135	CODE:
2078	RETVAL = new maptile;	2136	RETVAL = new maptile;
2079	OUTPUT:	2137	OUTPUT:
2080	RETVAL	2138	RETVAL
2081
2082	void
2083	maptile::destroy ()
2084		2139
2085	void	2140	void
2086	maptile::players ()	2141	maptile::players ()
2087	PPCODE:	2142	PPCODE:
2088	if (GIMME_V == G_SCALAR)	2143	if (GIMME_V == G_SCALAR)
…		…
2093	for_all_players (pl)	2148	for_all_players (pl)
2094	if (pl->ob && pl->ob->map == THIS)	2149	if (pl->ob && pl->ob->map == THIS)
2095	PUSHs (sv_2mortal (to_sv (pl->ob)));	2150	PUSHs (sv_2mortal (to_sv (pl->ob)));
2096	}	2151	}
2097		2152
		2153	void
		2154	maptile::set_regiondata (SV data, SV plt)
		2155	CODE:
		2156	{
		2157	if (!SvROK (plt) \|\| SvTYPE (SvRV (plt)) != SVt_PVAV)
		2158	croak ("maptile::set_regiondata needs arrayref as plt arg");
		2159
		2160	AV av = (AV )SvRV (plt);
		2161
		2162	region regionmap = (region )malloc ((av_len (av) + 1) * sizeof (region *));
		2163
		2164	for (int i = av_len (av) + 1; i--; )
		2165	regionmap [i] = region::find (SvPVutf8_nolen (*av_fetch (av, i, 1)));
		2166
		2167	THIS->regions = salloc<uint8_t> (THIS->size (), (uint8_t *)SvPVbyte_nolen (data));
		2168	THIS->regionmap = regionmap;
		2169	}
		2170
2098	void play_sound_map (maptile *map, int x, int y, int sound_num)	2171	void play_sound_map (maptile *map, int x, int y, int sound_num)
2099		2172
2100	int out_of_map (maptile *map, int x, int y)	2173	int out_of_map (maptile *map, int x, int y)
2101		2174
2102	void	2175	void
…		…
2118		2191
2119	object* cf_map_present_arch_by_name (maptile map, const char str, int nx, int ny)	2192	object* cf_map_present_arch_by_name (maptile map, const char str, int nx, int ny)
2120	C_ARGS: str, map, nx, ny	2193	C_ARGS: str, map, nx, ny
2121		2194
2122	void	2195	void
2123	cf_map_normalise (maptile *map, int x, int y)	2196	get_map_flags (maptile *map, int x, int y)
2124	PPCODE:	2197	PPCODE:
2125	{	2198	{
2126	maptile *nmap = 0;	2199	maptile *nmap = 0;
2127	I16 nx = 0, ny = 0;	2200	I16 nx = 0, ny = 0;
2128	int flags = get_map_flags (map, &nmap, x, y, &nx, &ny);	2201	int flags = get_map_flags (map, &nmap, x, y, &nx, &ny);
…		…
2177	case 4: RETVAL = newSVuv ( GET_MAP_MOVE_BLOCK (obj, x, y)); break;	2250	case 4: RETVAL = newSVuv ( GET_MAP_MOVE_BLOCK (obj, x, y)); break;
2178	case 5: RETVAL = newSVuv ( GET_MAP_MOVE_SLOW (obj, x, y)); break;	2251	case 5: RETVAL = newSVuv ( GET_MAP_MOVE_SLOW (obj, x, y)); break;
2179	case 6: RETVAL = newSVuv ( GET_MAP_MOVE_ON (obj, x, y)); break;	2252	case 6: RETVAL = newSVuv ( GET_MAP_MOVE_ON (obj, x, y)); break;
2180	case 7: RETVAL = newSVuv ( GET_MAP_MOVE_OFF (obj, x, y)); break;	2253	case 7: RETVAL = newSVuv ( GET_MAP_MOVE_OFF (obj, x, y)); break;
2181	}	2254	}
2182	OUTPUT:	2255	OUTPUT: RETVAL
2183	RETVAL
2184		2256
2185	void fix_walls (maptile *map, int x, int y)	2257	void fix_walls (maptile *map, int x, int y)
2186		2258
2187	void fix_walls_around (maptile *map, int x, int y)	2259	void fix_walls_around (maptile *map, int x, int y)
2188		2260
2189	# worst xs function of my life	2261	# worst xs function of my life
2190	maptile *	2262	bool
2191	_create_random_map (\	2263	_create_random_map (\
2192	char *path,\	2264	maptile *self,\
2193	char *wallstyle,\	2265	char *wallstyle,\
2194	char *wall_name,\	2266	char *wall_name,\
2195	char *floorstyle,\	2267	char *floorstyle,\
2196	char *monsterstyle,\	2268	char *monsterstyle,\
2197	char *treasurestyle,\	2269	char *treasurestyle,\
…		…
2201	char *origin_map,\	2273	char *origin_map,\
2202	char *final_map,\	2274	char *final_map,\
2203	char *exitstyle,\	2275	char *exitstyle,\
2204	char *this_map,\	2276	char *this_map,\
2205	char *exit_on_final_map,\	2277	char *exit_on_final_map,\
2206	int Xsize,\	2278	int xsize,\
2207	int Ysize,\	2279	int ysize,\
2208	int expand2x,\	2280	int expand2x,\
2209	int layoutoptions1,\	2281	int layoutoptions1,\
2210	int layoutoptions2,\	2282	int layoutoptions2,\
2211	int layoutoptions3,\	2283	int layoutoptions3,\
2212	int symmetry,\	2284	int symmetry,\
…		…
2217	int dungeon_depth,\	2289	int dungeon_depth,\
2218	int decoroptions,\	2290	int decoroptions,\
2219	int orientation,\	2291	int orientation,\
2220	int origin_y,\	2292	int origin_y,\
2221	int origin_x,\	2293	int origin_x,\
2222	int random_seed,\	2294	U32 random_seed,\
2223	val64 total_map_hp,\	2295	val64 total_map_hp,\
2224	int map_layout_style,\	2296	int map_layout_style,\
2225	int treasureoptions,\	2297	int treasureoptions,\
2226	int symmetry_used,\	2298	int symmetry_used,\
2227	region *region\	2299	region *region,\
		2300	char *custom\
2228	)	2301	)
2229	CODE:	2302	CODE:
2230	{	2303	{
2231	random_map_params rmp;	2304	random_map_params rmp;
2232		2305
…		…
2236	assign (rmp.monsterstyle , monsterstyle);	2309	assign (rmp.monsterstyle , monsterstyle);
2237	assign (rmp.treasurestyle , treasurestyle);	2310	assign (rmp.treasurestyle , treasurestyle);
2238	assign (rmp.layoutstyle , layoutstyle);	2311	assign (rmp.layoutstyle , layoutstyle);
2239	assign (rmp.doorstyle , doorstyle);	2312	assign (rmp.doorstyle , doorstyle);
2240	assign (rmp.decorstyle , decorstyle);	2313	assign (rmp.decorstyle , decorstyle);
2241	assign (rmp.origin_map , origin_map);
2242	assign (rmp.final_map , final_map);
2243	assign (rmp.exitstyle , exitstyle);	2314	assign (rmp.exitstyle , exitstyle);
2244	assign (rmp.this_map , this_map);
2245	assign (rmp.exit_on_final_map, exit_on_final_map);	2315	assign (rmp.exit_on_final_map, exit_on_final_map);
2246		2316
		2317	rmp.origin_map = origin_map;
		2318	rmp.final_map = final_map;
		2319	rmp.this_map = this_map;
2247	rmp.Xsize = Xsize;	2320	rmp.xsize = xsize;
2248	rmp.Ysize = Ysize;	2321	rmp.ysize = ysize;
2249	rmp.expand2x = expand2x;	2322	rmp.expand2x = expand2x;
2250	rmp.layoutoptions1 = layoutoptions1;	2323	rmp.layoutoptions1 = layoutoptions1;
2251	rmp.layoutoptions2 = layoutoptions2;	2324	rmp.layoutoptions2 = layoutoptions2;
2252	rmp.layoutoptions3 = layoutoptions3;	2325	rmp.layoutoptions3 = layoutoptions3;
2253	rmp.symmetry = symmetry;	2326	rmp.symmetry = symmetry;
…		…
2264	rmp.total_map_hp = total_map_hp;	2337	rmp.total_map_hp = total_map_hp;
2265	rmp.map_layout_style = map_layout_style;	2338	rmp.map_layout_style = map_layout_style;
2266	rmp.treasureoptions = treasureoptions;	2339	rmp.treasureoptions = treasureoptions;
2267	rmp.symmetry_used = symmetry_used;	2340	rmp.symmetry_used = symmetry_used;
2268	rmp.region = region;	2341	rmp.region = region;
		2342	rmp.custom = custom;
2269		2343
2270	RETVAL = generate_random_map (path, &rmp);	2344	RETVAL = self->generate_random_map (&rmp);
2271	}	2345	}
2272	OUTPUT:	2346	OUTPUT:
2273	RETVAL	2347	RETVAL
2274		2348
2275	MODULE = cf PACKAGE = cf::arch	2349	MODULE = cf PACKAGE = cf::arch
…		…
2298		2372
2299	INCLUDE: $PERL genacc partylist ../include/player.h \|	2373	INCLUDE: $PERL genacc partylist ../include/player.h \|
2300		2374
2301	MODULE = cf PACKAGE = cf::region	2375	MODULE = cf PACKAGE = cf::region
2302		2376
2303	region *first ()	2377	region *first ()
2304	PROTOTYPE:	2378	PROTOTYPE:
2305	CODE:	2379	CODE:
2306	RETVAL = first_region;	2380	RETVAL = first_region;
		2381	OUTPUT: RETVAL
		2382
		2383	region find (char name)
		2384	PROTOTYPE: $
		2385	CODE:
		2386	RETVAL = region::find (name);
2307	OUTPUT: RETVAL	2387	OUTPUT: RETVAL
2308		2388
2309	INCLUDE: $PERL genacc region ../include/map.h \|	2389	INCLUDE: $PERL genacc region ../include/map.h \|
2310		2390
2311	MODULE = cf PACKAGE = cf::living	2391	MODULE = cf PACKAGE = cf::living
…		…
2345	char *buf = SvPVbyte (packet, len);	2425	char *buf = SvPVbyte (packet, len);
2346		2426
2347	THIS->send_packet (buf, len);	2427	THIS->send_packet (buf, len);
2348	}	2428	}
2349		2429
2350	void
2351	client::destroy ()
2352

Diff Legend

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

Comparing deliantra/server/server/cfperl.xs (file contents): Revision 1.119 by root, Sun Dec 31 10:28:36 2006 UTC vs. Revision 1.160 by elmex, Wed Jan 31 14:11:02 2007 UTC

Diff Legend

Comparing deliantra/server/server/cfperl.xs (file contents):
Revision 1.119 by root, Sun Dec 31 10:28:36 2006 UTC vs.
Revision 1.160 by elmex, Wed Jan 31 14:11:02 2007 UTC