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

Comparing deliantra/server/server/cfperl.xs (file contents):
Revision 1.121 by root, Sun Dec 31 18:10:41 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)
…		…
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 ();
…		…
1597	}	1643	}
1598	OUTPUT: RETVAL	1644	OUTPUT: RETVAL
1599		1645
1600	void abort ()	1646	void abort ()
1601		1647
		1648	void fork_abort (char *cause = "cf::fork_abort")
		1649
		1650	void cleanup (const char *cause, bool make_core = false)
		1651
1602	void emergency_save ()	1652	void emergency_save ()
1603		1653
1604	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
1605		1669
1606	int find_animation (char *text)	1670	int find_animation (char *text)
1607	PROTOTYPE: $	1671	PROTOTYPE: $
1608		1672
1609	int random_roll (int min, int max, object *op, int goodbad);	1673	int random_roll (int min, int max, object *op, int goodbad);
…		…
1656	CODE:	1720	CODE:
1657	RETVAL = SvROK (obj) && mg_find (SvRV (obj), PERL_MAGIC_ext);	1721	RETVAL = SvROK (obj) && mg_find (SvRV (obj), PERL_MAGIC_ext);
1658	OUTPUT:	1722	OUTPUT:
1659	RETVAL	1723	RETVAL
1660		1724
1661	#bool	1725	int mortals_size ()
1662	#destroyed (attachable *at)	1726	CODE:
1663	#	1727	RETVAL = attachable::mortals.size ();
1664	#void	1728	OUTPUT: RETVAL
1665	#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 \|
1666		1736
1667	MODULE = cf PACKAGE = cf::global	1737	MODULE = cf PACKAGE = cf::global
1668		1738
1669	int invoke (SV *klass, int event, ...)	1739	int invoke (SV *klass, int event, ...)
1670	CODE:	1740	CODE:
…		…
1686	RETVAL = op->invoke ((event_type)event, ARG_AV (av), DT_END);	1756	RETVAL = op->invoke ((event_type)event, ARG_AV (av), DT_END);
1687	OUTPUT: RETVAL	1757	OUTPUT: RETVAL
1688		1758
1689	SV registry (object op)	1759	SV registry (object op)
1690		1760
1691	void mortals ()	1761	int objects_size ()
1692	PPCODE:	1762	CODE:
1693	EXTEND (SP, object::mortals.size ());
1694	for (AUTODECL (i, object::mortals.begin ()); i != object::mortals.end (); ++i)
1695	PUSHs (to_sv (*i));
1696
1697	object *first ()
1698	CODE:
1699	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;
1700	OUTPUT: RETVAL	1779	OUTPUT: RETVAL
1701		1780
1702	# missing properties	1781	# missing properties
1703		1782
1704	object head (object op)	1783	object head (object op)
1705	PROTOTYPE: $	1784	PROTOTYPE: $
1706	CODE:	1785	CODE:
1707	RETVAL = op->head ? op->head : op;	1786	RETVAL = op->head_ ();
1708	OUTPUT: RETVAL	1787	OUTPUT: RETVAL
1709		1788
1710	int is_head (object *op)	1789	int is_head (object *op)
1711	PROTOTYPE: $	1790	PROTOTYPE: $
1712	CODE:	1791	CODE:
1713	RETVAL = !op->head;	1792	RETVAL = op->head_ () == op;
1714	OUTPUT: RETVAL	1793	OUTPUT: RETVAL
1715		1794
1716	void	1795	void
1717	inv (object *obj)	1796	inv (object *obj)
1718	PROTOTYPE: $	1797	PROTOTYPE: $
…		…
1725		1804
1726	void	1805	void
1727	set_animation (object *op, int idx)	1806	set_animation (object *op, int idx)
1728	CODE:	1807	CODE:
1729	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
1730		1815
1731	object find_best_object_match (object op, const char *match)	1816	object find_best_object_match (object op, const char *match)
1732		1817
1733	object find_marked_object (object op)	1818	object find_marked_object (object op)
1734		1819
…		…
1809		1894
1810	void drop (object who, object op)	1895	void drop (object who, object op)
1811		1896
1812	void pick_up (object who, object op)	1897	void pick_up (object who, object op)
1813		1898
1814	object cf_object_insert_object (object op, object *container)
1815
1816	object cf_object_insert_in_ob (object ob, object *where)
1817
1818	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)
1819		1900
1820	void update_object (object *op, int action)	1901	void update_object (object *op, int action)
1821		1902
1822	object cf_create_object_by_name (const char name)	1903	object cf_create_object_by_name (const char name)
…		…
1941	void esrv_update_item (object op, int what, object item)	2022	void esrv_update_item (object op, int what, object item)
1942	C_ARGS: what, op, item	2023	C_ARGS: what, op, item
1943		2024
1944	void clear_los (object *op)	2025	void clear_los (object *op)
1945		2026
1946	int command_teleport (object op, char params)
1947
1948	int command_summon (object op, char params)	2027	int command_summon (object op, char params)
1949		2028
1950	int command_arrest (object op, char params)	2029	int command_arrest (object op, char params)
1951		2030
1952	int command_kick (object op, char params)	2031	int command_kick (object op, char params)
…		…
1973	CODE:	2052	CODE:
1974	pl->ob->stats.hp = pl->ob->stats.maxhp;	2053	pl->ob->stats.hp = pl->ob->stats.maxhp;
1975	pl->ob->stats.sp = pl->ob->stats.maxsp;	2054	pl->ob->stats.sp = pl->ob->stats.maxsp;
1976	pl->ob->stats.grace = pl->ob->stats.maxgrace;	2055	pl->ob->stats.grace = pl->ob->stats.maxgrace;
1977	pl->orig_stats = pl->ob->stats;	2056	pl->orig_stats = pl->ob->stats;
1978
1979	player cf_player_find (char name)
1980	PROTOTYPE: $
1981		2057
1982	void cf_player_move (player *pl, int dir)	2058	void cf_player_move (player *pl, int dir)
1983		2059
1984	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);
1985		2061
…		…
2031	if (y) sv_to (y, pl->bed_y);	2107	if (y) sv_to (y, pl->bed_y);
2032		2108
2033	void	2109	void
2034	list ()	2110	list ()
2035	PPCODE:	2111	PPCODE:
2036	for (player *pl = first_player; pl; pl = pl->next)	2112	for_all_players (pl)
2037	XPUSHs (sv_2mortal (to_sv (pl)));	2113	XPUSHs (sv_2mortal (to_sv (pl)));
2038
2039	bool
2040	peaceful (player *pl, bool new_setting = 0)
2041	PROTOTYPE: $;$
2042	CODE:
2043	RETVAL = pl->peaceful;
2044	if (items > 1)
2045	pl->peaceful = new_setting;
2046	OUTPUT:
2047	RETVAL
2048
2049	living *
2050	orig_stats (player *pl)
2051	CODE:
2052	RETVAL = &pl->orig_stats;
2053	OUTPUT: RETVAL
2054
2055	living *
2056	last_stats (player *pl)
2057	CODE:
2058	RETVAL = &pl->last_stats;
2059	OUTPUT: RETVAL
2060		2114
2061		2115
2062	MODULE = cf PACKAGE = cf::map PREFIX = cf_map_	2116	MODULE = cf PACKAGE = cf::map PREFIX = cf_map_
2063		2117
2064	int invoke (maptile *map, int event, ...)	2118	int invoke (maptile *map, int event, ...)
…		…
2080	PROTOTYPE:	2134	PROTOTYPE:
2081	CODE:	2135	CODE:
2082	RETVAL = new maptile;	2136	RETVAL = new maptile;
2083	OUTPUT:	2137	OUTPUT:
2084	RETVAL	2138	RETVAL
2085
2086	void
2087	maptile::destroy ()
2088		2139
2089	void	2140	void
2090	maptile::players ()	2141	maptile::players ()
2091	PPCODE:	2142	PPCODE:
2092	if (GIMME_V == G_SCALAR)	2143	if (GIMME_V == G_SCALAR)
…		…
2097	for_all_players (pl)	2148	for_all_players (pl)
2098	if (pl->ob && pl->ob->map == THIS)	2149	if (pl->ob && pl->ob->map == THIS)
2099	PUSHs (sv_2mortal (to_sv (pl->ob)));	2150	PUSHs (sv_2mortal (to_sv (pl->ob)));
2100	}	2151	}
2101		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
2102	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)
2103		2172
2104	int out_of_map (maptile *map, int x, int y)	2173	int out_of_map (maptile *map, int x, int y)
2105		2174
2106	void	2175	void
…		…
2122		2191
2123	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)
2124	C_ARGS: str, map, nx, ny	2193	C_ARGS: str, map, nx, ny
2125		2194
2126	void	2195	void
2127	cf_map_normalise (maptile *map, int x, int y)	2196	get_map_flags (maptile *map, int x, int y)
2128	PPCODE:	2197	PPCODE:
2129	{	2198	{
2130	maptile *nmap = 0;	2199	maptile *nmap = 0;
2131	I16 nx = 0, ny = 0;	2200	I16 nx = 0, ny = 0;
2132	int flags = get_map_flags (map, &nmap, x, y, &nx, &ny);	2201	int flags = get_map_flags (map, &nmap, x, y, &nx, &ny);
…		…
2181	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;
2182	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;
2183	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;
2184	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;
2185	}	2254	}
2186	OUTPUT:	2255	OUTPUT: RETVAL
2187	RETVAL
2188		2256
2189	void fix_walls (maptile *map, int x, int y)	2257	void fix_walls (maptile *map, int x, int y)
2190		2258
2191	void fix_walls_around (maptile *map, int x, int y)	2259	void fix_walls_around (maptile *map, int x, int y)
2192		2260
2193	# worst xs function of my life	2261	# worst xs function of my life
2194	maptile *	2262	bool
2195	_create_random_map (\	2263	_create_random_map (\
2196	char *path,\	2264	maptile *self,\
2197	char *wallstyle,\	2265	char *wallstyle,\
2198	char *wall_name,\	2266	char *wall_name,\
2199	char *floorstyle,\	2267	char *floorstyle,\
2200	char *monsterstyle,\	2268	char *monsterstyle,\
2201	char *treasurestyle,\	2269	char *treasurestyle,\
…		…
2205	char *origin_map,\	2273	char *origin_map,\
2206	char *final_map,\	2274	char *final_map,\
2207	char *exitstyle,\	2275	char *exitstyle,\
2208	char *this_map,\	2276	char *this_map,\
2209	char *exit_on_final_map,\	2277	char *exit_on_final_map,\
2210	int Xsize,\	2278	int xsize,\
2211	int Ysize,\	2279	int ysize,\
2212	int expand2x,\	2280	int expand2x,\
2213	int layoutoptions1,\	2281	int layoutoptions1,\
2214	int layoutoptions2,\	2282	int layoutoptions2,\
2215	int layoutoptions3,\	2283	int layoutoptions3,\
2216	int symmetry,\	2284	int symmetry,\
…		…
2221	int dungeon_depth,\	2289	int dungeon_depth,\
2222	int decoroptions,\	2290	int decoroptions,\
2223	int orientation,\	2291	int orientation,\
2224	int origin_y,\	2292	int origin_y,\
2225	int origin_x,\	2293	int origin_x,\
2226	int random_seed,\	2294	U32 random_seed,\
2227	val64 total_map_hp,\	2295	val64 total_map_hp,\
2228	int map_layout_style,\	2296	int map_layout_style,\
2229	int treasureoptions,\	2297	int treasureoptions,\
2230	int symmetry_used,\	2298	int symmetry_used,\
2231	region *region\	2299	region *region,\
		2300	char *custom\
2232	)	2301	)
2233	CODE:	2302	CODE:
2234	{	2303	{
2235	random_map_params rmp;	2304	random_map_params rmp;
2236	memset (&rmp, 0, sizeof (rmp)); // just to be sure
2237		2305
2238	assign (rmp.wallstyle , wallstyle);	2306	assign (rmp.wallstyle , wallstyle);
2239	assign (rmp.wall_name , wall_name);	2307	assign (rmp.wall_name , wall_name);
2240	assign (rmp.floorstyle , floorstyle);	2308	assign (rmp.floorstyle , floorstyle);
2241	assign (rmp.monsterstyle , monsterstyle);	2309	assign (rmp.monsterstyle , monsterstyle);
2242	assign (rmp.treasurestyle , treasurestyle);	2310	assign (rmp.treasurestyle , treasurestyle);
2243	assign (rmp.layoutstyle , layoutstyle);	2311	assign (rmp.layoutstyle , layoutstyle);
2244	assign (rmp.doorstyle , doorstyle);	2312	assign (rmp.doorstyle , doorstyle);
2245	assign (rmp.decorstyle , decorstyle);	2313	assign (rmp.decorstyle , decorstyle);
2246	assign (rmp.origin_map , origin_map);
2247	assign (rmp.final_map , final_map);
2248	assign (rmp.exitstyle , exitstyle);	2314	assign (rmp.exitstyle , exitstyle);
2249	assign (rmp.this_map , this_map);
2250	assign (rmp.exit_on_final_map, exit_on_final_map);	2315	assign (rmp.exit_on_final_map, exit_on_final_map);
2251		2316
		2317	rmp.origin_map = origin_map;
		2318	rmp.final_map = final_map;
		2319	rmp.this_map = this_map;
2252	rmp.Xsize = Xsize;	2320	rmp.xsize = xsize;
2253	rmp.Ysize = Ysize;	2321	rmp.ysize = ysize;
2254	rmp.expand2x = expand2x;	2322	rmp.expand2x = expand2x;
2255	rmp.layoutoptions1 = layoutoptions1;	2323	rmp.layoutoptions1 = layoutoptions1;
2256	rmp.layoutoptions2 = layoutoptions2;	2324	rmp.layoutoptions2 = layoutoptions2;
2257	rmp.layoutoptions3 = layoutoptions3;	2325	rmp.layoutoptions3 = layoutoptions3;
2258	rmp.symmetry = symmetry;	2326	rmp.symmetry = symmetry;
…		…
2269	rmp.total_map_hp = total_map_hp;	2337	rmp.total_map_hp = total_map_hp;
2270	rmp.map_layout_style = map_layout_style;	2338	rmp.map_layout_style = map_layout_style;
2271	rmp.treasureoptions = treasureoptions;	2339	rmp.treasureoptions = treasureoptions;
2272	rmp.symmetry_used = symmetry_used;	2340	rmp.symmetry_used = symmetry_used;
2273	rmp.region = region;	2341	rmp.region = region;
		2342	rmp.custom = custom;
2274		2343
2275	RETVAL = generate_random_map (path, &rmp);	2344	RETVAL = self->generate_random_map (&rmp);
2276	}	2345	}
2277	OUTPUT:	2346	OUTPUT:
2278	RETVAL	2347	RETVAL
2279		2348
2280	MODULE = cf PACKAGE = cf::arch	2349	MODULE = cf PACKAGE = cf::arch
…		…
2303		2372
2304	INCLUDE: $PERL genacc partylist ../include/player.h \|	2373	INCLUDE: $PERL genacc partylist ../include/player.h \|
2305		2374
2306	MODULE = cf PACKAGE = cf::region	2375	MODULE = cf PACKAGE = cf::region
2307		2376
2308	region *first ()	2377	region *first ()
2309	PROTOTYPE:	2378	PROTOTYPE:
2310	CODE:	2379	CODE:
2311	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);
2312	OUTPUT: RETVAL	2387	OUTPUT: RETVAL
2313		2388
2314	INCLUDE: $PERL genacc region ../include/map.h \|	2389	INCLUDE: $PERL genacc region ../include/map.h \|
2315		2390
2316	MODULE = cf PACKAGE = cf::living	2391	MODULE = cf PACKAGE = cf::living
…		…
2350	char *buf = SvPVbyte (packet, len);	2425	char *buf = SvPVbyte (packet, len);
2351		2426
2352	THIS->send_packet (buf, len);	2427	THIS->send_packet (buf, len);
2353	}	2428	}
2354		2429
2355	void
2356	client::destroy ()
2357

Diff Legend

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

Comparing deliantra/server/server/cfperl.xs (file contents): Revision 1.121 by root, Sun Dec 31 18:10:41 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.121 by root, Sun Dec 31 18:10:41 2006 UTC vs.
Revision 1.160 by elmex, Wed Jan 31 14:11:02 2007 UTC