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

Comparing deliantra/server/server/cfperl.xs (file contents):
Revision 1.118 by root, Sat Dec 30 20:32:30 2006 UTC vs.
Revision 1.148 by root, Sat Jan 20 23:39:09 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	}
		108
		109	int
		110	attachable::refcnt_cnt () const
		111	{
		112	return refcnt + (self ? SvREFCNT (self) : 0);
		113	}
		114
		115	void
		116	attachable::optimise ()
		117	{
		118	if (self
		119	&& SvREFCNT (self) == 1
		120	&& !HvTOTALKEYS (self))
		121	{
		122	refcnt_inc ();
		123	SvREFCNT_dec ((SV *)self);
		124	}
117	}	125	}
118		126
119	// check wether the object really is dead	127	// check wether the object really is dead
120	void	128	void
121	attachable::do_check ()	129	attachable::do_check ()
122	{	130	{
123	if (refcnt > 0)	131	if (refcnt > 0 \|\| refcnt_cnt () > 0)
124	return;	132	return;
125		133
126	// try to unborrow the refcnt from perl	134	destroy ();
127	if (flags & F_BORROWED)	135
		136	if (self)
128	{	137	{
129	assert (self);//D//TODO//remove when stable	138	hv_clear (self);
130	flags &= ~F_BORROWED;	139	sv_unmagic ((SV *)self, PERL_MAGIC_ext);
131	refcnt_inc ();
132	SvREFCNT_dec (self);	140	SvREFCNT_dec (self);
		141	self = 0;
133	}	142	}
134
135	if (refcnt > 0 \|\| self)
136	return;
137
138	destroy ();
139	}	143	}
140		144
141	void	145	void
142	attachable::do_destroy ()	146	attachable::do_destroy ()
143	{	147	{
144	invoke (EVENT_ATTACHABLE_DESTROY, DT_END);	148	invoke (EVENT_ATTACHABLE_DESTROY, DT_END);
145		149
146	//TODO: call generic destroy callback	150	if (self)
		151	hv_clear (self);
		152
147	mortals.push_back (this);	153	mortals.push_back (this);
148	}	154	}
149		155
150	void	156	void
151	attachable::destroy ()	157	attachable::destroy ()
…		…
155		161
156	flags \|= F_DESTROYED;	162	flags \|= F_DESTROYED;
157	do_destroy ();	163	do_destroy ();
158	}	164	}
159		165
		166	void
160	void attachable::check_mortals ()	167	attachable::check_mortals ()
161	{	168	{
162	for (int i = 0; i < mortals.size (); )	169	for (int i = 0; i < mortals.size (); )
163	{	170	{
164	attachable *obj = mortals [i];	171	attachable *obj = mortals [i];
165		172
…		…
209		216
210	static int	217	static int
211	attachable_free (pTHX_ SV sv, MAGIC mg)	218	attachable_free (pTHX_ SV sv, MAGIC mg)
212	{	219	{
213	attachable at = (attachable )mg->mg_ptr;	220	attachable at = (attachable )mg->mg_ptr;
214	assert (!(at->flags & attachable::F_BORROWED));//D//TODO//remove when stable
215	at->self = 0;	221	at->self = 0;
216	// next line makes sense, but most objects still have refcnt 0 by default	222	// next line makes sense, but most objects still have refcnt 0 by default
217	//at->refcnt_chk ();	223	//at->refcnt_chk ();
218	return 0;	224	return 0;
219	}	225	}
…		…
230	{	236	{
231	obj->self = newHV ();	237	obj->self = newHV ();
232	sv_magicext ((SV )obj->self, 0, PERL_MAGIC_ext, &attachable::vtbl, (char )obj, 0);	238	sv_magicext ((SV )obj->self, 0, PERL_MAGIC_ext, &attachable::vtbl, (char )obj, 0);
233		239
234	// borrow the refcnt from the object	240	// borrow the refcnt from the object
235	obj->flags \|= attachable::F_BORROWED;	241	// it is important thta no refcnt_chk is being executed here
236	obj->refcnt_dec ();	242	obj->refcnt_dec ();
		243
		244	// now bless the object _once_
		245	return sv_bless (newRV_inc ((SV *)obj->self), stash);
237	}	246	}
		247	else
		248	{
		249	SV sv = newRV_inc ((SV )obj->self);
238		250
239	return sv_bless (newRV_inc ((SV *)obj->self), stash);	251	if (Gv_AMG (stash)) // handle overload correctly, as the perl core does not
		252	SvAMAGIC_on (sv);
		253
		254	return sv;
		255	}
240	}	256	}
241		257
242	static void	258	static void
243	clearSVptr (SV *sv)	259	clearSVptr (SV *sv)
244	{	260	{
…		…
297	inline SV to_sv (living v) { return newSVptr (v, stash_cf_living_wrap); }	313	inline SV to_sv (living v) { return newSVptr (v, stash_cf_living_wrap); }
298		314
299	inline SV *to_sv (object & v) { return to_sv (&v); }	315	inline SV *to_sv (object & v) { return to_sv (&v); }
300	inline SV *to_sv (living & v) { return to_sv (&v); }	316	inline SV *to_sv (living & v) { return to_sv (&v); }
301		317
302	//TODO:
303	inline SV to_sv (New_Face v) { return to_sv (v->name); }	318	inline SV to_sv (facetile v) { return to_sv (v->name); }
304	inline SV to_sv (treasurelist v) { return to_sv (v->name); }	319	inline SV to_sv (treasurelist v) { return to_sv (v->name); }
305		320
306	inline SV *to_sv (UUID v)	321	inline SV *to_sv (UUID v)
307	{	322	{
308	char buf[128];	323	char buf[128];
…		…
328	inline void sv_to (SV sv, client &v) { v = (client )(attachable )SvPTR_ornull (sv, "cf::client"); }	343	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"); }	344	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"); }	345	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"); }	346	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"); }	347	inline void sv_to (SV sv, maptile &v) { v = (maptile )(attachable )SvPTR_ornull (sv, "cf::map"); }
		348	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"); }	349	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"); }	350	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"); }	351	inline void sv_to (SV sv, living &v) { v = (living *)SvPTR_ornull (sv, "cf::living"); }
336		352
337	inline void sv_to (SV sv, New_Face &v) { v = &new_faces[FindFace (SvPV_nolen (sv), 0)]; } //TODO	353	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	354	inline void sv_to (SV sv, treasurelist &v) { v = find_treasurelist (SvPV_nolen (sv)); }
339		355
340	template<class T>	356	template<class T>
341	inline void sv_to (SV sv, refptr<T> &v) { T tmp; sv_to (sv, tmp); v = tmp; }	357	inline void sv_to (SV sv, refptr<T> &v) { T tmp; sv_to (sv, tmp); v = tmp; }
342		358
343	template<int N>	359	template<int N>
…		…
478	{	494	{
479	if (!ext->cb)	495	if (!ext->cb)
480	ext->cb = newAV ();	496	ext->cb = newAV ();
481		497
482	return newRV_inc ((SV *)ext->cb);	498	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	}	499	}
521		500
522	/////////////////////////////////////////////////////////////////////////////	501	/////////////////////////////////////////////////////////////////////////////
523		502
524	extern "C" int cfperl_initPlugin (const char *iversion, f_plug_api gethooksptr)	503	extern "C" int cfperl_initPlugin (const char *iversion, f_plug_api gethooksptr)
…		…
820	}	799	}
821		800
822	/////////////////////////////////////////////////////////////////////////////	801	/////////////////////////////////////////////////////////////////////////////
823		802
824	void	803	void
825	maptile::emergency_save ()	804	cfperl_emergency_save ()
826	{	805	{
827	CALL_BEGIN (0);	806	CALL_BEGIN (0);
828	CALL_CALL ("cf::map::emergency_save", G_VOID);	807	CALL_CALL ("cf::emergency_save", G_VOID);
829	CALL_END;	808	CALL_END;
830	}	809	}
831		810
832	maptile *	811	maptile *
833	maptile::find_map (const char path, maptile origin)	812	maptile::find_sync (const char path, maptile origin)
834	{	813	{
835	CALL_BEGIN (2);	814	CALL_BEGIN (2);
836	CALL_ARG (path);	815	CALL_ARG (path);
837	CALL_ARG (origin);	816	CALL_ARG (origin);
838	CALL_CALL ("cf::map::find_map", G_SCALAR);	817	CALL_CALL ("cf::map::find_sync", G_SCALAR);
839		818
840	maptile *retval;	819	maptile *retval;
841		820
842	if (count)	821	if (count)
843	sv_to (POPs, retval);	822	sv_to (POPs, retval);
…		…
847	CALL_END;	826	CALL_END;
848		827
849	return retval;	828	return retval;
850	}	829	}
851		830
852	void
853	maptile::do_load ()
854	{
855	CALL_BEGIN (1);
856	CALL_ARG (this);
857	CALL_CALL ("cf::map::do_load", G_VOID);
858	CALL_END;
859	}
860
861	maptile *	831	maptile *
862	maptile::customise_for (object *op)	832	maptile::find_async (const char path, maptile origin)
863	{	833	{
864	CALL_BEGIN (2);	834	CALL_BEGIN (2);
865	CALL_ARG (this);	835	CALL_ARG (path);
866	CALL_ARG (op);	836	CALL_ARG (origin);
867	CALL_CALL ("cf::map::customise_for", G_SCALAR);	837	CALL_CALL ("cf::map::find_async", G_SCALAR);
868		838
869	maptile *retval;	839	maptile *retval;
870		840
871	if (count)	841	if (count)
872	sv_to (POPs, retval);	842	sv_to (POPs, retval);
873	else	843	else
874	retval = 0;	844	retval = 0;
875		845
876	CALL_END;	846	CALL_END;
877		847
878	return retval ? retval : this;	848	return retval;
		849	}
		850
		851	void
		852	maptile::do_load_sync ()
		853	{
		854	CALL_BEGIN (1);
		855	CALL_ARG (this);
		856	CALL_CALL ("cf::map::do_load_sync", G_SCALAR);
		857	CALL_END;
879	}	858	}
880		859
881	void	860	void
882	maptile::change_all_map_light (int change)	861	maptile::change_all_map_light (int change)
883	{	862	{
…		…
902		881
903	/////////////////////////////////////////////////////////////////////////////	882	/////////////////////////////////////////////////////////////////////////////
904		883
905	struct EventAPI *watcher_base::GEventAPI;	884	struct EventAPI *watcher_base::GEventAPI;
906	struct CoroAPI *coroapi::GCoroAPI;	885	struct CoroAPI *coroapi::GCoroAPI;
		886
		887	int coroapi::cede_counter;
907		888
908	static void iw_dispatch (pe_event *ev)	889	static void iw_dispatch (pe_event *ev)
909	{	890	{
910	iw w = (iw )ev->ext_data;	891	iw w = (iw )ev->ext_data;
911	w->call (*w);	892	w->call (*w);
…		…
1266	const_iv (FLAG_ACTIVATE_ON_RELEASE)	1247	const_iv (FLAG_ACTIVATE_ON_RELEASE)
1267	const_iv (FLAG_IS_WATER)	1248	const_iv (FLAG_IS_WATER)
1268	const_iv (FLAG_CONTENT_ON_GEN)	1249	const_iv (FLAG_CONTENT_ON_GEN)
1269	const_iv (FLAG_IS_A_TEMPLATE)	1250	const_iv (FLAG_IS_A_TEMPLATE)
1270	const_iv (FLAG_IS_BUILDABLE)	1251	const_iv (FLAG_IS_BUILDABLE)
		1252	const_iv (FLAG_DESTROY_ON_DEATH)
		1253	const_iv (FLAG_NO_MAP_SAVE)
1271		1254
1272	const_iv (NDI_BLACK)	1255	const_iv (NDI_BLACK)
1273	const_iv (NDI_WHITE)	1256	const_iv (NDI_WHITE)
1274	const_iv (NDI_NAVY)	1257	const_iv (NDI_NAVY)
1275	const_iv (NDI_RED)	1258	const_iv (NDI_RED)
…		…
1317	const_iv (P_BLOCKSVIEW)	1300	const_iv (P_BLOCKSVIEW)
1318	const_iv (P_PLAYER)	1301	const_iv (P_PLAYER)
1319	const_iv (P_NO_MAGIC)	1302	const_iv (P_NO_MAGIC)
1320	const_iv (P_IS_ALIVE)	1303	const_iv (P_IS_ALIVE)
1321	const_iv (P_NO_CLERIC)	1304	const_iv (P_NO_CLERIC)
1322	const_iv (P_NEED_UPDATE)
1323	const_iv (P_OUT_OF_MAP)	1305	const_iv (P_OUT_OF_MAP)
1324	const_iv (P_NEW_MAP)	1306	const_iv (P_NEW_MAP)
		1307	const_iv (P_UPTODATE)
1325		1308
1326	const_iv (UP_OBJ_INSERT)	1309	const_iv (UP_OBJ_INSERT)
1327	const_iv (UP_OBJ_REMOVE)	1310	const_iv (UP_OBJ_REMOVE)
1328	const_iv (UP_OBJ_CHANGE)	1311	const_iv (UP_OBJ_CHANGE)
1329	const_iv (UP_OBJ_FACE)	1312	const_iv (UP_OBJ_FACE)
…		…
1460	const_iv (ATNR_BLIND)	1443	const_iv (ATNR_BLIND)
1461	const_iv (ATNR_INTERNAL)	1444	const_iv (ATNR_INTERNAL)
1462	const_iv (ATNR_LIFE_STEALING)	1445	const_iv (ATNR_LIFE_STEALING)
1463	const_iv (ATNR_DISEASE)	1446	const_iv (ATNR_DISEASE)
1464		1447
1465	const_iv (MAP_FLUSH)
1466	const_iv (MAP_PLAYER_UNIQUE)
1467	const_iv (MAP_BLOCK)
1468	const_iv (MAP_STYLE)
1469	const_iv (MAP_OVERLAY)
1470
1471	const_iv (MAP_IN_MEMORY)	1448	const_iv (MAP_IN_MEMORY)
1472	const_iv (MAP_SWAPPED)	1449	const_iv (MAP_SWAPPED)
1473	const_iv (MAP_LOADING)	1450	const_iv (MAP_LOADING)
1474	const_iv (MAP_SAVING)	1451	const_iv (MAP_SAVING)
1475		1452
…		…
1488	const_iv (ST_SETUP)	1465	const_iv (ST_SETUP)
1489	const_iv (ST_PLAYING)	1466	const_iv (ST_PLAYING)
1490	const_iv (ST_CUSTOM)	1467	const_iv (ST_CUSTOM)
1491		1468
1492	const_iv (ST_CHANGE_CLASS)	1469	const_iv (ST_CHANGE_CLASS)
1493	const_iv (ST_CONFIRM_QUIT)
1494	const_iv (ST_GET_PARTY_PASSWORD)
1495		1470
1496	const_iv (IO_HEADER)	1471	const_iv (IO_HEADER)
1497	const_iv (IO_OBJECTS)	1472	const_iv (IO_OBJECTS)
1498	const_iv (IO_UNIQUES)	1473	const_iv (IO_UNIQUES)
1499		1474
…		…
1553		1528
1554	void _global_reattach ()	1529	void _global_reattach ()
1555	CODE:	1530	CODE:
1556	{	1531	{
1557	// reattach to all attachable objects in the game.	1532	// reattach to all attachable objects in the game.
1558	for (sockvec::iterator i = clients.begin (); i != clients.end (); ++i)	1533	for_all_clients (ns)
1559	(*i)->reattach ();	1534	ns->reattach ();
1560		1535
1561	for_all_players (pl)	1536	for_all_players (pl)
1562	pl->reattach ();	1537	pl->reattach ();
1563		1538
1564	//TODO	1539	//TODO
1565	//for (map_container::iterator i = maps.begin (); i != maps.end (); ++i)	1540	//for (map_container::iterator i = maps.begin (); i != maps.end (); ++i)
1566	// i->second->reattach ();	1541	// i->second->reattach ();
1567		1542
1568	for (object *op = object::first; op; op = op->next)	1543	for_all_objects (op)
1569	op->reattach ();	1544	op->reattach ();
1570	}	1545	}
1571		1546
1572	NV floor (NV x)	1547	NV floor (NV x)
1573		1548
1574	NV ceil (NV x)	1549	NV ceil (NV x)
		1550
		1551	NV rndm (...)
		1552	CODE:
		1553	switch (items)
		1554	{
		1555	case 0: RETVAL = rndm (); break;
		1556	case 1: RETVAL = rndm (SvUV (ST (0))); break;
		1557	case 2: RETVAL = rndm (SvIV (ST (0)), SvIV (ST (1))); break;
		1558	default: croak ("cf::rndm requires none, one or two parameters."); break;
		1559	}
		1560	OUTPUT:
		1561	RETVAL
1575		1562
1576	void server_tick ()	1563	void server_tick ()
1577	CODE:	1564	CODE:
1578	runtime = SvNVx (sv_runtime);	1565	runtime = SvNVx (sv_runtime);
1579	server_tick ();	1566	server_tick ();
…		…
1624	case 5: RETVAL = settings.playerdir; break;	1611	case 5: RETVAL = settings.playerdir; break;
1625	case 6: RETVAL = settings.datadir ; break;	1612	case 6: RETVAL = settings.datadir ; break;
1626	}	1613	}
1627	OUTPUT: RETVAL	1614	OUTPUT: RETVAL
1628		1615
		1616	void abort ()
		1617
		1618	void fork_abort (char *cause = "cf::fork_abort")
		1619
		1620	void cleanup (const char *cause, bool make_core = false)
		1621
1629	void emergency_save ()	1622	void emergency_save ()
1630		1623
1631	void _exit (int status = 0)	1624	void _exit (int status = 0)
		1625
		1626	#if _POSIX_MEMLOCK
		1627
		1628	int mlockall (int flags = MCL_CURRENT \| MCL_FUTURE)
		1629
		1630	int munlockall ()
		1631
		1632	#endif
1632		1633
1633	int find_animation (char *text)	1634	int find_animation (char *text)
1634	PROTOTYPE: $	1635	PROTOTYPE: $
1635		1636
1636	int random_roll (int min, int max, object *op, int goodbad);	1637	int random_roll (int min, int max, object *op, int goodbad);
…		…
1683	CODE:	1684	CODE:
1684	RETVAL = SvROK (obj) && mg_find (SvRV (obj), PERL_MAGIC_ext);	1685	RETVAL = SvROK (obj) && mg_find (SvRV (obj), PERL_MAGIC_ext);
1685	OUTPUT:	1686	OUTPUT:
1686	RETVAL	1687	RETVAL
1687		1688
1688	#bool	1689	INCLUDE: $PERL genacc attachable ../include/cfperl.h \|
1689	#destroyed (attachable *at)
1690	#
1691	#void
1692	#destroy (attachable *at)
1693		1690
1694	MODULE = cf PACKAGE = cf::global	1691	MODULE = cf PACKAGE = cf::global
1695		1692
1696	int invoke (SV *klass, int event, ...)	1693	int invoke (SV *klass, int event, ...)
1697	CODE:	1694	CODE:
…		…
1719	PPCODE:	1716	PPCODE:
1720	EXTEND (SP, object::mortals.size ());	1717	EXTEND (SP, object::mortals.size ());
1721	for (AUTODECL (i, object::mortals.begin ()); i != object::mortals.end (); ++i)	1718	for (AUTODECL (i, object::mortals.begin ()); i != object::mortals.end (); ++i)
1722	PUSHs (to_sv (*i));	1719	PUSHs (to_sv (*i));
1723		1720
1724	object *first ()	1721	int objects_size ()
1725	CODE:	1722	CODE:
1726	RETVAL = object::first;	1723	RETVAL = objects.size ();
		1724	OUTPUT: RETVAL
		1725
		1726	object *objects (U32 index)
		1727	CODE:
		1728	RETVAL = index < objects.size () ? objects [index] : 0;
		1729	OUTPUT: RETVAL
		1730
		1731	int actives_size ()
		1732	CODE:
		1733	RETVAL = actives.size ();
		1734	OUTPUT: RETVAL
		1735
		1736	object *actives (U32 index)
		1737	CODE:
		1738	RETVAL = index < actives.size () ? actives [index] : 0;
1727	OUTPUT: RETVAL	1739	OUTPUT: RETVAL
1728		1740
1729	# missing properties	1741	# missing properties
1730		1742
1731	object head (object op)	1743	object head (object op)
1732	PROTOTYPE: $	1744	PROTOTYPE: $
1733	CODE:	1745	CODE:
1734	RETVAL = op->head ? op->head : op;	1746	RETVAL = op->head_ ();
1735	OUTPUT: RETVAL	1747	OUTPUT: RETVAL
1736		1748
1737	int is_head (object *op)	1749	int is_head (object *op)
1738	PROTOTYPE: $	1750	PROTOTYPE: $
1739	CODE:	1751	CODE:
1740	RETVAL = !op->head;	1752	RETVAL = op->head_ () == op;
1741	OUTPUT: RETVAL	1753	OUTPUT: RETVAL
1742		1754
1743	void	1755	void
1744	inv (object *obj)	1756	inv (object *obj)
1745	PROTOTYPE: $	1757	PROTOTYPE: $
…		…
1836		1848
1837	void drop (object who, object op)	1849	void drop (object who, object op)
1838		1850
1839	void pick_up (object who, object op)	1851	void pick_up (object who, object op)
1840		1852
1841	object cf_object_insert_object (object op, object *container)
1842
1843	object cf_object_insert_in_ob (object ob, object *where)
1844
1845	int cf_object_teleport (object op, maptile map, int x, int y)	1853	int cf_object_teleport (object op, maptile map, int x, int y)
1846		1854
1847	void update_object (object *op, int action)	1855	void update_object (object *op, int action)
1848		1856
1849	object cf_create_object_by_name (const char name)	1857	object cf_create_object_by_name (const char name)
…		…
1942	RETVAL = op->contr;	1950	RETVAL = op->contr;
1943	OUTPUT: RETVAL	1951	OUTPUT: RETVAL
1944		1952
1945	void check_score (object *op)	1953	void check_score (object *op)
1946		1954
1947	void cf_player_message (object obj, char txt, int flags = NDI_ORANGE \| NDI_UNIQUE)	1955	void message (object op, char txt, int flags = NDI_ORANGE \| NDI_UNIQUE)
		1956	CODE:
		1957	new_draw_info (flags, 0, op, txt);
1948		1958
1949	object cf_player_send_inventory (object op)	1959	object cf_player_send_inventory (object op)
1950		1960
1951	char cf_player_get_ip (object op)	1961	char cf_player_get_ip (object op)
1952	ALIAS: ip = 0	1962	ALIAS: ip = 0
…		…
1965		1975
1966	void esrv_update_item (object op, int what, object item)	1976	void esrv_update_item (object op, int what, object item)
1967	C_ARGS: what, op, item	1977	C_ARGS: what, op, item
1968		1978
1969	void clear_los (object *op)	1979	void clear_los (object *op)
1970
1971	int command_teleport (object op, char params)
1972		1980
1973	int command_summon (object op, char params)	1981	int command_summon (object op, char params)
1974		1982
1975	int command_arrest (object op, char params)	1983	int command_arrest (object op, char params)
1976		1984
…		…
1998	CODE:	2006	CODE:
1999	pl->ob->stats.hp = pl->ob->stats.maxhp;	2007	pl->ob->stats.hp = pl->ob->stats.maxhp;
2000	pl->ob->stats.sp = pl->ob->stats.maxsp;	2008	pl->ob->stats.sp = pl->ob->stats.maxsp;
2001	pl->ob->stats.grace = pl->ob->stats.maxgrace;	2009	pl->ob->stats.grace = pl->ob->stats.maxgrace;
2002	pl->orig_stats = pl->ob->stats;	2010	pl->orig_stats = pl->ob->stats;
2003
2004	player cf_player_find (char name)
2005	PROTOTYPE: $
2006		2011
2007	void cf_player_move (player *pl, int dir)	2012	void cf_player_move (player *pl, int dir)
2008		2013
2009	void play_sound_player_only (player *pl, int soundnum, int x = 0, int y = 0);	2014	void play_sound_player_only (player *pl, int soundnum, int x = 0, int y = 0);
2010		2015
…		…
2056	if (y) sv_to (y, pl->bed_y);	2061	if (y) sv_to (y, pl->bed_y);
2057		2062
2058	void	2063	void
2059	list ()	2064	list ()
2060	PPCODE:	2065	PPCODE:
2061	for (player *pl = first_player; pl; pl = pl->next)	2066	for_all_players (pl)
2062	XPUSHs (sv_2mortal (to_sv (pl)));	2067	XPUSHs (sv_2mortal (to_sv (pl)));
2063
2064	bool
2065	peaceful (player *pl, bool new_setting = 0)
2066	PROTOTYPE: $;$
2067	CODE:
2068	RETVAL = pl->peaceful;
2069	if (items > 1)
2070	pl->peaceful = new_setting;
2071	OUTPUT:
2072	RETVAL
2073
2074	living *
2075	orig_stats (player *pl)
2076	CODE:
2077	RETVAL = &pl->orig_stats;
2078	OUTPUT: RETVAL
2079
2080	living *
2081	last_stats (player *pl)
2082	CODE:
2083	RETVAL = &pl->last_stats;
2084	OUTPUT: RETVAL
2085		2068
2086		2069
2087	MODULE = cf PACKAGE = cf::map PREFIX = cf_map_	2070	MODULE = cf PACKAGE = cf::map PREFIX = cf_map_
2088		2071
2089	int invoke (maptile *map, int event, ...)	2072	int invoke (maptile *map, int event, ...)
…		…
2105	PROTOTYPE:	2088	PROTOTYPE:
2106	CODE:	2089	CODE:
2107	RETVAL = new maptile;	2090	RETVAL = new maptile;
2108	OUTPUT:	2091	OUTPUT:
2109	RETVAL	2092	RETVAL
2110
2111	void
2112	maptile::destroy ()
2113		2093
2114	void	2094	void
2115	maptile::players ()	2095	maptile::players ()
2116	PPCODE:	2096	PPCODE:
2117	if (GIMME_V == G_SCALAR)	2097	if (GIMME_V == G_SCALAR)
…		…
2147		2127
2148	object* cf_map_present_arch_by_name (maptile map, const char str, int nx, int ny)	2128	object* cf_map_present_arch_by_name (maptile map, const char str, int nx, int ny)
2149	C_ARGS: str, map, nx, ny	2129	C_ARGS: str, map, nx, ny
2150		2130
2151	void	2131	void
2152	cf_map_normalise (maptile *map, int x, int y)	2132	get_map_flags (maptile *map, int x, int y)
2153	PPCODE:	2133	PPCODE:
2154	{	2134	{
2155	maptile *nmap = 0;	2135	maptile *nmap = 0;
2156	I16 nx = 0, ny = 0;	2136	I16 nx = 0, ny = 0;
2157	int flags = get_map_flags (map, &nmap, x, y, &nx, &ny);	2137	int flags = get_map_flags (map, &nmap, x, y, &nx, &ny);
…		…
2206	case 4: RETVAL = newSVuv ( GET_MAP_MOVE_BLOCK (obj, x, y)); break;	2186	case 4: RETVAL = newSVuv ( GET_MAP_MOVE_BLOCK (obj, x, y)); break;
2207	case 5: RETVAL = newSVuv ( GET_MAP_MOVE_SLOW (obj, x, y)); break;	2187	case 5: RETVAL = newSVuv ( GET_MAP_MOVE_SLOW (obj, x, y)); break;
2208	case 6: RETVAL = newSVuv ( GET_MAP_MOVE_ON (obj, x, y)); break;	2188	case 6: RETVAL = newSVuv ( GET_MAP_MOVE_ON (obj, x, y)); break;
2209	case 7: RETVAL = newSVuv ( GET_MAP_MOVE_OFF (obj, x, y)); break;	2189	case 7: RETVAL = newSVuv ( GET_MAP_MOVE_OFF (obj, x, y)); break;
2210	}	2190	}
2211	OUTPUT:	2191	OUTPUT: RETVAL
2212	RETVAL
2213		2192
2214	void fix_walls (maptile *map, int x, int y)	2193	void fix_walls (maptile *map, int x, int y)
2215		2194
2216	void fix_walls_around (maptile *map, int x, int y)	2195	void fix_walls_around (maptile *map, int x, int y)
2217		2196
		2197	const char *
		2198	region_name (maptile *m)
		2199	CODE:
		2200	RETVAL = get_name_of_region_for_map (m);
		2201	OUTPUT: RETVAL
		2202
2218	# worst xs function of my life	2203	# worst xs function of my life
2219	maptile *	2204	bool
2220	_create_random_map (\	2205	_create_random_map (\
2221	char *path,\	2206	maptile *self,\
2222	char *wallstyle,\	2207	char *wallstyle,\
2223	char *wall_name,\	2208	char *wall_name,\
2224	char *floorstyle,\	2209	char *floorstyle,\
2225	char *monsterstyle,\	2210	char *monsterstyle,\
2226	char *treasurestyle,\	2211	char *treasurestyle,\
…		…
2230	char *origin_map,\	2215	char *origin_map,\
2231	char *final_map,\	2216	char *final_map,\
2232	char *exitstyle,\	2217	char *exitstyle,\
2233	char *this_map,\	2218	char *this_map,\
2234	char *exit_on_final_map,\	2219	char *exit_on_final_map,\
2235	int Xsize,\	2220	int xsize,\
2236	int Ysize,\	2221	int ysize,\
2237	int expand2x,\	2222	int expand2x,\
2238	int layoutoptions1,\	2223	int layoutoptions1,\
2239	int layoutoptions2,\	2224	int layoutoptions2,\
2240	int layoutoptions3,\	2225	int layoutoptions3,\
2241	int symmetry,\	2226	int symmetry,\
…		…
2246	int dungeon_depth,\	2231	int dungeon_depth,\
2247	int decoroptions,\	2232	int decoroptions,\
2248	int orientation,\	2233	int orientation,\
2249	int origin_y,\	2234	int origin_y,\
2250	int origin_x,\	2235	int origin_x,\
2251	int random_seed,\	2236	U32 random_seed,\
2252	val64 total_map_hp,\	2237	val64 total_map_hp,\
2253	int map_layout_style,\	2238	int map_layout_style,\
2254	int treasureoptions,\	2239	int treasureoptions,\
2255	int symmetry_used,\	2240	int symmetry_used,\
2256	region *region\	2241	region *region,\
		2242	char *custom\
2257	)	2243	)
2258	CODE:	2244	CODE:
2259	{	2245	{
2260	random_map_params rmp;	2246	random_map_params rmp;
2261		2247
…		…
2265	assign (rmp.monsterstyle , monsterstyle);	2251	assign (rmp.monsterstyle , monsterstyle);
2266	assign (rmp.treasurestyle , treasurestyle);	2252	assign (rmp.treasurestyle , treasurestyle);
2267	assign (rmp.layoutstyle , layoutstyle);	2253	assign (rmp.layoutstyle , layoutstyle);
2268	assign (rmp.doorstyle , doorstyle);	2254	assign (rmp.doorstyle , doorstyle);
2269	assign (rmp.decorstyle , decorstyle);	2255	assign (rmp.decorstyle , decorstyle);
2270	assign (rmp.origin_map , origin_map);
2271	assign (rmp.final_map , final_map);
2272	assign (rmp.exitstyle , exitstyle);	2256	assign (rmp.exitstyle , exitstyle);
2273	assign (rmp.this_map , this_map);
2274	assign (rmp.exit_on_final_map, exit_on_final_map);	2257	assign (rmp.exit_on_final_map, exit_on_final_map);
2275		2258
		2259	rmp.origin_map = origin_map;
		2260	rmp.final_map = final_map;
		2261	rmp.this_map = this_map;
2276	rmp.Xsize = Xsize;	2262	rmp.xsize = xsize;
2277	rmp.Ysize = Ysize;	2263	rmp.ysize = ysize;
2278	rmp.expand2x = expand2x;	2264	rmp.expand2x = expand2x;
2279	rmp.layoutoptions1 = layoutoptions1;	2265	rmp.layoutoptions1 = layoutoptions1;
2280	rmp.layoutoptions2 = layoutoptions2;	2266	rmp.layoutoptions2 = layoutoptions2;
2281	rmp.layoutoptions3 = layoutoptions3;	2267	rmp.layoutoptions3 = layoutoptions3;
2282	rmp.symmetry = symmetry;	2268	rmp.symmetry = symmetry;
…		…
2293	rmp.total_map_hp = total_map_hp;	2279	rmp.total_map_hp = total_map_hp;
2294	rmp.map_layout_style = map_layout_style;	2280	rmp.map_layout_style = map_layout_style;
2295	rmp.treasureoptions = treasureoptions;	2281	rmp.treasureoptions = treasureoptions;
2296	rmp.symmetry_used = symmetry_used;	2282	rmp.symmetry_used = symmetry_used;
2297	rmp.region = region;	2283	rmp.region = region;
		2284	rmp.custom = custom;
2298		2285
2299	RETVAL = generate_random_map (path, &rmp);	2286	RETVAL = self->generate_random_map (&rmp);
2300	}	2287	}
2301	OUTPUT:	2288	OUTPUT:
2302	RETVAL	2289	RETVAL
2303		2290
2304	MODULE = cf PACKAGE = cf::arch	2291	MODULE = cf PACKAGE = cf::arch
…		…
2323	PROTOTYPE:	2310	PROTOTYPE:
2324	CODE:	2311	CODE:
2325	RETVAL = get_firstparty ();	2312	RETVAL = get_firstparty ();
2326	OUTPUT: RETVAL	2313	OUTPUT: RETVAL
2327		2314
2328	partylist next (partylist party)	2315	INCLUDE: $PERL genacc partylist ../include/player.h \|
2329	CODE:
2330	RETVAL = party->next;
2331	OUTPUT: RETVAL
2332
2333	const char name (partylist party)
2334	CODE:
2335	RETVAL = party->partyname;
2336	OUTPUT: RETVAL
2337
2338	const char password (partylist party)
2339	CODE:
2340	RETVAL = party->passwd;
2341	OUTPUT: RETVAL
2342		2316
2343	MODULE = cf PACKAGE = cf::region	2317	MODULE = cf PACKAGE = cf::region
2344		2318
2345	region *first ()	2319	region *first ()
2346	PROTOTYPE:	2320	PROTOTYPE:
2347	CODE:	2321	CODE:
2348	RETVAL = first_region;	2322	RETVAL = first_region;
2349	OUTPUT: RETVAL	2323	OUTPUT: RETVAL
2350		2324
2351	region next (region reg)	2325	region find (char name)
		2326	PROTOTYPE: $
2352	CODE:	2327	CODE:
2353	RETVAL = reg->next;	2328	RETVAL = get_region_by_name (name);
2354	OUTPUT: RETVAL	2329	OUTPUT: RETVAL
2355		2330
2356	const char name (region reg)	2331	INCLUDE: $PERL genacc region ../include/map.h \|
2357	CODE:
2358	RETVAL = reg->name;
2359	OUTPUT: RETVAL
2360
2361	region parent (region reg)
2362	CODE:
2363	RETVAL = reg->parent;
2364	OUTPUT: RETVAL
2365
2366	const char longname (region reg)
2367	CODE:
2368	RETVAL = reg->longname;
2369	OUTPUT: RETVAL
2370
2371	const char msg (region reg)
2372	CODE:
2373	RETVAL = reg->msg;
2374	OUTPUT: RETVAL
2375		2332
2376	MODULE = cf PACKAGE = cf::living	2333	MODULE = cf PACKAGE = cf::living
2377		2334
2378	INCLUDE: $PERL genacc living ../include/living.h \|	2335	INCLUDE: $PERL genacc living ../include/living.h \|
2379		2336
…		…
2410	char *buf = SvPVbyte (packet, len);	2367	char *buf = SvPVbyte (packet, len);
2411		2368
2412	THIS->send_packet (buf, len);	2369	THIS->send_packet (buf, len);
2413	}	2370	}
2414		2371
2415	void
2416	client::destroy ()
2417

Diff Legend

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

Comparing deliantra/server/server/cfperl.xs (file contents): Revision 1.118 by root, Sat Dec 30 20:32:30 2006 UTC vs. Revision 1.148 by root, Sat Jan 20 23:39:09 2007 UTC

Diff Legend

Comparing deliantra/server/server/cfperl.xs (file contents):
Revision 1.118 by root, Sat Dec 30 20:32:30 2006 UTC vs.
Revision 1.148 by root, Sat Jan 20 23:39:09 2007 UTC