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

Comparing deliantra/server/server/cfperl.xs (file contents):
Revision 1.150 by root, Tue Jan 23 01:05:18 2007 UTC vs.
Revision 1.181 by root, Tue Apr 3 00:21:38 2007 UTC

…		…
4		4
5	/*	5	/*
6	* This code is placed under the GNU General Public Licence (GPL)	6	* This code is placed under the GNU General Public Licence (GPL)
7	*	7	*
8	* Copyright (C) 2001-2005 by Chachkoff Yann	8	* Copyright (C) 2001-2005 by Chachkoff Yann
9	* Copyright (C) 2006 by Marc Lehmann <cf@schmorp.de>	9	* Copyright (C) 2006,2007 by Marc Lehmann <cf@schmorp.de>
10	*	10	*
11	* This program is free software; you can redistribute it and/or modify	11	* This program is free software; you can redistribute it and/or modify
12	* it under the terms of the GNU General Public License as published by	12	* it under the terms of the GNU General Public License as published by
13	* the Free Software Foundation; either version 2 of the License, or	13	* the Free Software Foundation; either version 2 of the License, or
14	* (at your option) any later version.	14	* (at your option) any later version.
…		…
29	#include <plugin_common.h>	29	#include <plugin_common.h>
30	#include <sounds.h>	30	#include <sounds.h>
31	#include <cstdarg>	31	#include <cstdarg>
32	#include <sproto.h>	32	#include <sproto.h>
33		33
		34	#include "loader.h"
34	#include "cfperl.h"	35	#include "cfperl.h"
35	#include "shstr.h"	36	#include "shstr.h"
36		37
37	#include <unistd.h>	38	#include <unistd.h>
38	#if _POSIX_MEMLOCK	39	#if _POSIX_MEMLOCK
…		…
101		102
102	unordered_vector<attachable *> attachable::mortals;	103	unordered_vector<attachable *> attachable::mortals;
103		104
104	attachable::~attachable ()	105	attachable::~attachable ()
105	{	106	{
		107	flags \|=0x3300;//D
106	assert (!self);	108	assert (!self);
		109	assert (!cb);
107	}	110	}
108		111
109	int	112	int
110	attachable::refcnt_cnt () const	113	attachable::refcnt_cnt () const
111	{	114	{
112	return refcnt + (self ? SvREFCNT (self) : 0);	115	return refcnt + (self ? SvREFCNT (self) - 1 : 0);
		116	}
		117
		118	void
		119	attachable::sever_self ()
		120	{
		121	if (HV *self = this->self)
		122	{
		123	// keep a refcount because sv_unmagic might call attachable_free,
		124	// which might clear self, causing sv_unmagic to crash on a now
		125	// invalid object.
		126	SvREFCNT_inc (self);
		127	hv_clear (self);
		128	sv_unmagic ((SV *)self, PERL_MAGIC_ext);
		129	SvREFCNT_dec (self);
		130
		131	// self must be null now because thats sv_unmagic's job.
		132	assert (!this->self);
		133	flags \|= 0x80; // severed //D
		134	}
113	}	135	}
114		136
115	void	137	void
116	attachable::optimise ()	138	attachable::optimise ()
117	{	139	{
118	if (self	140	if (self
119	&& SvREFCNT (self) == 1	141	&& SvREFCNT (self) == 1
120	&& !HvTOTALKEYS (self))	142	&& !HvTOTALKEYS (self))
		143	flags \|= 0x40,//D
		144	sever_self ();
		145	}
		146
		147	// check wether the object really is dead
		148	void
		149	attachable::do_check ()
		150	{
		151	if (refcnt_cnt () > 0)
		152	return;
		153
		154	destroy ();
		155	}
		156
		157	void
		158	attachable::do_destroy ()
		159	{
		160	invoke (EVENT_ATTACHABLE_DESTROY, DT_END);
		161
		162	if (cb)
121	{	163	{
122	refcnt_inc ();
123	SvREFCNT_dec ((SV *)self);	164	SvREFCNT_dec (cb);
		165	cb = 0;
124	}	166	}
125	}
126
127	// check wether the object really is dead
128	void
129	attachable::do_check ()
130	{
131	if (refcnt > 0 \|\| refcnt_cnt () > 0)
132	return;
133
134	destroy ();
135		167
136	if (self)	168	if (self)
137	{	169	sever_self ();
138	hv_clear (self);
139	sv_unmagic ((SV *)self, PERL_MAGIC_ext);
140	SvREFCNT_dec (self);
141	self = 0;
142	}
143	}
144		170
145	void	171	flags \|= 0x20; //D
146	attachable::do_destroy ()
147	{
148	invoke (EVENT_ATTACHABLE_DESTROY, DT_END);
149
150	if (self)
151	hv_clear (self);
152
153	mortals.push_back (this);	172	mortals.push_back (this);
154	}	173	}
155		174
156	void	175	void
157	attachable::destroy ()	176	attachable::destroy ()
…		…
173	if (i >= mortals.size ())	192	if (i >= mortals.size ())
174	{	193	{
175	i = 0;	194	i = 0;
176		195
177	if (mortals.size () > 1000)	196	if (mortals.size () > 1000)
178	fprintf (stderr, "mortal queue size (%d) exceeds 1000.\n", mortals.size ());	197	fprintf (stderr, "mortal queue size (%d) exceeds 1000.\n", (int)mortals.size ());
179		198
180	break;	199	break;
181	}	200	}
182		201
183	attachable *obj = mortals [i];	202	attachable *obj = mortals [i];
184		203
185	obj->refcnt_chk (); // unborrow from perl, if necessary	204	obj->refcnt_chk (); // unborrow from perl, if necessary
186		205
187	if (obj->refcnt > 0 \|\| obj->self)	206	//if (obj->refcnt > 0 \|\| obj->self)
		207	if (obj->refcnt \|\| obj->self)
188	{	208	{
189	//printf ("%p rc %d\n", obj, obj->refcnt_cnt ());//D	209	//printf ("%p rc %d\n", obj, obj->refcnt_cnt ());//D
190	++i; // further delay freeing	210	++i; // further delay freeing
191		211
192	if (!(i & 0x3ff))	212	if (!(i & 0x3ff))
…		…
226		246
227	static int	247	static int
228	attachable_free (pTHX_ SV sv, MAGIC mg)	248	attachable_free (pTHX_ SV sv, MAGIC mg)
229	{	249	{
230	attachable at = (attachable )mg->mg_ptr;	250	attachable at = (attachable )mg->mg_ptr;
		251
		252	//TODO: check if transaction behaviour is really required here
		253	if (SV self = (SV )at->self)
		254	{
231	at->self = 0;	255	at->self = 0;
		256	SvREFCNT_dec (self);
		257	}
		258
232	// next line makes sense, but most objects still have refcnt 0 by default	259	// next line makes sense, but most objects still have refcnt 0 by default
233	//at->refcnt_chk ();	260	//at->refcnt_chk ();
234	return 0;	261	return 0;
235	}	262	}
236		263
…		…
244		271
245	if (!obj->self)	272	if (!obj->self)
246	{	273	{
247	obj->self = newHV ();	274	obj->self = newHV ();
248	sv_magicext ((SV )obj->self, 0, PERL_MAGIC_ext, &attachable::vtbl, (char )obj, 0);	275	sv_magicext ((SV )obj->self, 0, PERL_MAGIC_ext, &attachable::vtbl, (char )obj, 0);
249		276	obj->flags \|= (obj->flags & 0xc0) << 8;
250	// borrow the refcnt from the object	277	obj->flags &= ~0xc0;//D
251	// it is important thta no refcnt_chk is being executed here	278	obj->flags \|= 0x10;//D
252	obj->refcnt_dec ();
253		279
254	// now bless the object _once_	280	// now bless the object _once_
255	return sv_bless (newRV_inc ((SV *)obj->self), stash);	281	return sv_bless (newRV_inc ((SV *)obj->self), stash);
256	}	282	}
257	else	283	else
…		…
323	inline SV to_sv (living v) { return newSVptr (v, stash_cf_living_wrap); }	349	inline SV to_sv (living v) { return newSVptr (v, stash_cf_living_wrap); }
324		350
325	inline SV *to_sv (object & v) { return to_sv (&v); }	351	inline SV *to_sv (object & v) { return to_sv (&v); }
326	inline SV *to_sv (living & v) { return to_sv (&v); }	352	inline SV *to_sv (living & v) { return to_sv (&v); }
327		353
328	inline SV to_sv (facetile v) { return to_sv (v->name); }	354	//inline SV to_sv (faceinfo v) { return to_sv (v->name); }
329	inline SV to_sv (treasurelist v) { return to_sv (v->name); }	355	inline SV to_sv (treasurelist v) { return to_sv (v->name); }
		356	inline SV *to_sv (std::string & v) { return newSVpvn (v.data (), v.size ()); }
330		357
331	inline SV *to_sv (UUID v)	358	inline SV *to_sv (UUID v)
332	{	359	{
333	char buf[128];	360	char buf[128];
334	snprintf (buf, 128, "<1,%" PRIx64 ">", v.seq);	361	snprintf (buf, 128, "<1.%" PRIx64 ">", v.seq);
335	return newSVpv (buf, 0);	362	return newSVpv (buf, 0);
336	}	363	}
337		364
338	inline void sv_to (SV *sv, shstr &v) { v = SvOK (sv) ? SvPV_nolen (sv) : 0; }	365	inline void sv_to (SV *sv, shstr &v) { v = SvOK (sv) ? SvPV_nolen (sv) : 0; }
339	inline void sv_to (SV sv, char &v) { free (v); v = SvOK (sv) ? strdup (SvPV_nolen (sv)) : 0; }	366	inline void sv_to (SV sv, char &v) { free (v); v = SvOK (sv) ? strdup (SvPV_nolen (sv)) : 0; }
…		…
358	inline void sv_to (SV sv, attachable &v) { v = (attachable *)SvPTR_ornull (sv, "cf::attachable"); }	385	inline void sv_to (SV sv, attachable &v) { v = (attachable *)SvPTR_ornull (sv, "cf::attachable"); }
359	inline void sv_to (SV sv, partylist &v) { v = (partylist *)SvPTR_ornull (sv, "cf::party"); }	386	inline void sv_to (SV sv, partylist &v) { v = (partylist *)SvPTR_ornull (sv, "cf::party"); }
360	inline void sv_to (SV sv, region &v) { v = (region *)SvPTR_ornull (sv, "cf::region"); }	387	inline void sv_to (SV sv, region &v) { v = (region *)SvPTR_ornull (sv, "cf::region"); }
361	inline void sv_to (SV sv, living &v) { v = (living *)SvPTR_ornull (sv, "cf::living"); }	388	inline void sv_to (SV sv, living &v) { v = (living *)SvPTR_ornull (sv, "cf::living"); }
362		389
363	inline void sv_to (SV sv, facetile &v) { v = &new_faces[FindFace (SvPV_nolen (sv), 0)]; }	390	//inline void sv_to (SV sv, faceinfo &v) { v = &faces [face_find (SvPV_nolen (sv), 0)]; }
364	inline void sv_to (SV sv, treasurelist &v) { v = find_treasurelist (SvPV_nolen (sv)); }	391	inline void sv_to (SV sv, treasurelist &v) { v = find_treasurelist (SvPV_nolen (sv)); }
365		392
366	template<class T>	393	template<class T>
367	inline void sv_to (SV sv, refptr<T> &v) { T tmp; sv_to (sv, tmp); v = tmp; }	394	inline void sv_to (SV sv, refptr<T> &v) { T tmp; sv_to (sv, tmp); v = tmp; }
368		395
…		…
372	inline void sv_to (SV *sv, rangetype &v) { v = (rangetype) SvIV (sv); }	399	inline void sv_to (SV *sv, rangetype &v) { v = (rangetype) SvIV (sv); }
373	inline void sv_to (SV *sv, bowtype_t &v) { v = (bowtype_t) SvIV (sv); }	400	inline void sv_to (SV *sv, bowtype_t &v) { v = (bowtype_t) SvIV (sv); }
374	inline void sv_to (SV *sv, petmode_t &v) { v = (petmode_t) SvIV (sv); }	401	inline void sv_to (SV *sv, petmode_t &v) { v = (petmode_t) SvIV (sv); }
375	inline void sv_to (SV *sv, usekeytype &v) { v = (usekeytype) SvIV (sv); }	402	inline void sv_to (SV *sv, usekeytype &v) { v = (usekeytype) SvIV (sv); }
376	inline void sv_to (SV *sv, unapplymode &v) { v = (unapplymode) SvIV (sv); }	403	inline void sv_to (SV *sv, unapplymode &v) { v = (unapplymode) SvIV (sv); }
		404
		405	inline void sv_to (SV *sv, std::string &v)
		406	{
		407	STRLEN len;
		408	char *data = SvPVbyte (sv, len);
		409	v.assign (data, len);
		410	}
377		411
378	inline void sv_to (SV *sv, UUID &v)	412	inline void sv_to (SV *sv, UUID &v)
379	{	413	{
380	unsigned int version;	414	unsigned int version;
381		415
…		…
572	perl = perl_alloc ();	606	perl = perl_alloc ();
573	perl_construct (perl);	607	perl_construct (perl);
574		608
575	PL_exit_flags \|= PERL_EXIT_DESTRUCT_END;	609	PL_exit_flags \|= PERL_EXIT_DESTRUCT_END;
576		610
577	char *argv[] = {	611	const char *argv[] = {
578	"",	612	"",
579	"-e"	613	"-e"
580	"use Event; use Coro;" // required for bootstrap	614	"use Event; use Coro;" // required for bootstrap
581	"cf->bootstrap;" // required for datadir :*>	615	"cf->bootstrap;" // required for datadir :*>
582	"unshift @INC, cf::datadir ();"	616	"unshift @INC, cf::datadir ();"
583	"require cf;"	617	"require cf;"
584	};	618	};
585		619
586	if (perl_parse (perl, xs_init, 2, argv, (char **)NULL) \|\| perl_run (perl))	620	if (perl_parse (perl, xs_init, 2, (char )argv, (char )NULL)
		621	\|\| perl_run (perl))
587	{	622	{
588	printf ("unable to initialize perl-interpreter, aborting.\n");	623	printf ("unable to initialize perl-interpreter, aborting.\n");
589	exit (EXIT_FAILURE);	624	exit (EXIT_FAILURE);
590	}	625	}
		626
		627	{
		628	dSP;
		629
		630	PUSHMARK (SP);
		631	PUTBACK;
		632	call_pv ("cf::init", G_DISCARD \| G_VOID);
		633	}
591	}	634	}
592		635
593	void cfperl_main ()	636	void cfperl_main ()
594	{	637	{
595	dSP;	638	dSP;
…		…
816	CALL_BEGIN (0);	859	CALL_BEGIN (0);
817	CALL_CALL ("cf::emergency_save", G_VOID);	860	CALL_CALL ("cf::emergency_save", G_VOID);
818	CALL_END;	861	CALL_END;
819	}	862	}
820		863
		864	void
		865	cfperl_cleanup (int make_core)
		866	{
		867	CALL_BEGIN (1);
		868	CALL_ARG (make_core);
		869	CALL_CALL ("cf::post_cleanup", G_VOID);
		870	CALL_END;
		871	}
		872
821	maptile *	873	maptile *
822	maptile::find_sync (const char path, maptile origin)	874	maptile::find_sync (const char path, maptile origin)
823	{	875	{
824	CALL_BEGIN (2);	876	CALL_BEGIN (2);
825	CALL_ARG (path);	877	CALL_ARG (path);
…		…
999	# define const_iv(name) { # name, (IV)name },	1051	# define const_iv(name) { # name, (IV)name },
1000	const_iv (llevError)	1052	const_iv (llevError)
1001	const_iv (llevInfo)	1053	const_iv (llevInfo)
1002	const_iv (llevDebug)	1054	const_iv (llevDebug)
1003	const_iv (llevMonster)	1055	const_iv (llevMonster)
		1056
		1057	const_iv (Map0Cmd)
		1058	const_iv (Map1Cmd)
		1059	const_iv (Map1aCmd)
		1060
		1061	const_iv (MAP_CLIENT_X)
		1062	const_iv (MAP_CLIENT_Y)
1004		1063
1005	const_iv (MAX_TIME)	1064	const_iv (MAX_TIME)
1006	const_iv (PLAYER)	1065	const_iv (PLAYER)
1007	const_iv (TRANSPORT)	1066	const_iv (TRANSPORT)
1008	const_iv (ROD)	1067	const_iv (ROD)
…		…
1543	{	1602	{
1544	// reattach to all attachable objects in the game.	1603	// reattach to all attachable objects in the game.
1545	for_all_clients (ns)	1604	for_all_clients (ns)
1546	ns->reattach ();	1605	ns->reattach ();
1547		1606
1548	for_all_players (pl)
1549	pl->reattach ();
1550
1551	//TODO
1552	//for (map_container::iterator i = maps.begin (); i != maps.end (); ++i)
1553	// i->second->reattach ();
1554
1555	for_all_objects (op)	1607	for_all_objects (op)
1556	op->reattach ();	1608	op->reattach ();
1557	}	1609	}
1558		1610
1559	NV floor (NV x)	1611	NV floor (NV x)
…		…
1599	void	1651	void
1600	sub_generation_inc ()	1652	sub_generation_inc ()
1601	CODE:	1653	CODE:
1602	PL_sub_generation++;	1654	PL_sub_generation++;
1603		1655
1604	char *	1656	const char *
1605	mapdir ()	1657	mapdir ()
1606	PROTOTYPE:	1658	PROTOTYPE:
1607	ALIAS:	1659	ALIAS:
1608	mapdir = 0	1660	mapdir = 0
1609	uniquedir = 1	1661	uniquedir = 1
…		…
1631		1683
1632	void cleanup (const char *cause, bool make_core = false)	1684	void cleanup (const char *cause, bool make_core = false)
1633		1685
1634	void emergency_save ()	1686	void emergency_save ()
1635		1687
		1688	void _exit (int status = EXIT_SUCCESS)
		1689
1636	UV sv_2watcher (SV *w)	1690	UV sv_2watcher (SV *w)
1637	CODE:	1691	CODE:
1638	RETVAL = (UV)GEventAPI->sv_2watcher (w);	1692	RETVAL = (UV)GEventAPI->sv_2watcher (w);
1639	OUTPUT:	1693	OUTPUT:
1640	RETVAL	1694	RETVAL
1641
1642	void _exit (int status = 0)
1643		1695
1644	#if _POSIX_MEMLOCK	1696	#if _POSIX_MEMLOCK
1645		1697
1646	int mlockall (int flags = MCL_CURRENT \| MCL_FUTURE)	1698	int mlockall (int flags = MCL_CURRENT \| MCL_FUTURE)
1647		1699
…		…
1693	RETVAL = newSVpv (resist_plus[atnr], 0);	1745	RETVAL = newSVpv (resist_plus[atnr], 0);
1694	else	1746	else
1695	XSRETURN_UNDEF;	1747	XSRETURN_UNDEF;
1696	OUTPUT: RETVAL	1748	OUTPUT: RETVAL
1697		1749
		1750	bool
		1751	load_resource_file (const char *filename)
		1752
1698	MODULE = cf PACKAGE = cf::attachable	1753	MODULE = cf PACKAGE = cf::attachable
1699		1754
1700	int	1755	int
1701	valid (SV *obj)	1756	valid (SV *obj)
1702	CODE:	1757	CODE:
1703	RETVAL = SvROK (obj) && mg_find (SvRV (obj), PERL_MAGIC_ext);	1758	RETVAL = SvROK (obj) && mg_find (SvRV (obj), PERL_MAGIC_ext);
1704	OUTPUT:	1759	OUTPUT:
1705	RETVAL	1760	RETVAL
1706		1761
		1762	void
		1763	debug_trace (attachable *obj, bool on = true)
		1764	CODE:
		1765	obj->flags &= ~attachable::F_DEBUG_TRACE;
		1766	if (on)
		1767	obj->flags \|= attachable::F_DEBUG_TRACE;
		1768
		1769	int mortals_size ()
		1770	CODE:
		1771	RETVAL = attachable::mortals.size ();
		1772	OUTPUT: RETVAL
		1773
		1774	#object *mortals (U32 index)
		1775	# CODE:
		1776	# RETVAL = index < attachable::mortals.size () ? attachable::mortals [index] : 0;
		1777	# OUTPUT: RETVAL
		1778
1707	INCLUDE: $PERL genacc attachable ../include/cfperl.h \|	1779	INCLUDE: $PERL $srcdir/genacc attachable ../include/cfperl.h \|
1708		1780
1709	MODULE = cf PACKAGE = cf::global	1781	MODULE = cf PACKAGE = cf::global
1710		1782
1711	int invoke (SV *klass, int event, ...)	1783	int invoke (SV *klass, int event, ...)
1712	CODE:	1784	CODE:
…		…
1716	RETVAL = gbl_ev.invoke ((event_type)event, ARG_AV (av), DT_END);	1788	RETVAL = gbl_ev.invoke ((event_type)event, ARG_AV (av), DT_END);
1717	OUTPUT: RETVAL	1789	OUTPUT: RETVAL
1718		1790
1719	MODULE = cf PACKAGE = cf::object PREFIX = cf_object_	1791	MODULE = cf PACKAGE = cf::object PREFIX = cf_object_
1720		1792
1721	INCLUDE: $PERL genacc object ../include/object.h \|	1793	INCLUDE: $PERL $srcdir/genacc object ../include/object.h \|
1722		1794
1723	int invoke (object *op, int event, ...)	1795	int invoke (object *op, int event, ...)
1724	CODE:	1796	CODE:
1725	if (KLASS_OF (event) != KLASS_OBJECT) croak ("event class must be OBJECT");	1797	if (KLASS_OF (event) != KLASS_OBJECT) croak ("event class must be OBJECT");
1726	AV av = (AV )sv_2mortal ((SV *)newAV ());	1798	AV av = (AV )sv_2mortal ((SV *)newAV ());
…		…
1728	RETVAL = op->invoke ((event_type)event, ARG_AV (av), DT_END);	1800	RETVAL = op->invoke ((event_type)event, ARG_AV (av), DT_END);
1729	OUTPUT: RETVAL	1801	OUTPUT: RETVAL
1730		1802
1731	SV registry (object op)	1803	SV registry (object op)
1732		1804
1733	void mortals ()
1734	PPCODE:
1735	EXTEND (SP, object::mortals.size ());
1736	for (AUTODECL (i, object::mortals.begin ()); i != object::mortals.end (); ++i)
1737	PUSHs (to_sv (*i));
1738
1739	int objects_size ()	1805	int objects_size ()
1740	CODE:	1806	CODE:
1741	RETVAL = objects.size ();	1807	RETVAL = objects.size ();
1742	OUTPUT: RETVAL	1808	OUTPUT: RETVAL
1743		1809
…		…
1783	void	1849	void
1784	set_animation (object *op, int idx)	1850	set_animation (object *op, int idx)
1785	CODE:	1851	CODE:
1786	SET_ANIMATION (op, idx);	1852	SET_ANIMATION (op, idx);
1787		1853
		1854	int
		1855	num_animations (object *op)
		1856	CODE:
		1857	RETVAL = NUM_ANIMATIONS (op);
		1858	OUTPUT: RETVAL
		1859
1788	object find_best_object_match (object op, const char *match)	1860	object find_best_object_match (object op, const char *match)
1789		1861
1790	object find_marked_object (object op)	1862	object find_marked_object (object op)
1791		1863
1792	int need_identify (object *obj);	1864	int need_identify (object *obj);
1793		1865
1794	int apply_shop_mat (object shop_mat, object op);	1866	int apply_shop_mat (object shop_mat, object op);
		1867
		1868	int move_player (object *op, int dir)
		1869	CODE:
		1870	RETVAL = move_player (op, dir);
		1871	OUTPUT:
		1872	RETVAL
1795		1873
1796	int move (object op, int dir, object originator = op)	1874	int move (object op, int dir, object originator = op)
1797	CODE:	1875	CODE:
1798	RETVAL = move_ob (op, dir, originator);	1876	RETVAL = move_ob (op, dir, originator);
1799	OUTPUT:	1877	OUTPUT:
…		…
1804	manual_apply (applied, applier, flags);	1882	manual_apply (applied, applier, flags);
1805		1883
1806	void apply_below (object *op)	1884	void apply_below (object *op)
1807	CODE:	1885	CODE:
1808	player_apply_below (op);	1886	player_apply_below (op);
		1887
		1888	int cast_heal (object op, object caster, object *spell, int dir = 0)
1809		1889
1810	object cf_object_present_archname_inside (object op, char *whatstr)	1890	object cf_object_present_archname_inside (object op, char *whatstr)
1811		1891
1812	int cf_object_transfer (object op, int x, int y, int r = 0, object_ornull orig = 0)	1892	int cf_object_transfer (object op, int x, int y, int r = 0, object_ornull orig = 0)
1813		1893
…		…
1998		2078
1999	int command_summon (object op, char params)	2079	int command_summon (object op, char params)
2000		2080
2001	int command_arrest (object op, char params)	2081	int command_arrest (object op, char params)
2002		2082
2003	int command_kick (object op, char params)
2004
2005	int command_banish (object op, char params)
2006
2007		2083
2008	MODULE = cf PACKAGE = cf::player PREFIX = cf_player_	2084	MODULE = cf PACKAGE = cf::player PREFIX = cf_player_
2009		2085
2010	INCLUDE: $PERL genacc player ../include/player.h \|	2086	INCLUDE: $PERL $srcdir/genacc player ../include/player.h \|
2011		2087
2012	int invoke (player *pl, int event, ...)	2088	int invoke (player *pl, int event, ...)
2013	CODE:	2089	CODE:
2014	if (KLASS_OF (event) != KLASS_PLAYER) croak ("event class must be PLAYER");	2090	if (KLASS_OF (event) != KLASS_PLAYER) croak ("event class must be PLAYER");
2015	AV av = (AV )sv_2mortal ((SV *)newAV ());	2091	AV av = (AV )sv_2mortal ((SV *)newAV ());
…		…
2028	pl->orig_stats = pl->ob->stats;	2104	pl->orig_stats = pl->ob->stats;
2029		2105
2030	void cf_player_move (player *pl, int dir)	2106	void cf_player_move (player *pl, int dir)
2031		2107
2032	void play_sound_player_only (player *pl, int soundnum, int x = 0, int y = 0);	2108	void play_sound_player_only (player *pl, int soundnum, int x = 0, int y = 0);
2033
2034	player *first ()
2035	CODE:
2036	RETVAL = first_player;
2037	OUTPUT: RETVAL
2038		2109
2039	bool	2110	bool
2040	cell_visible (player *pl, int dx, int dy)	2111	cell_visible (player *pl, int dx, int dy)
2041	CODE:	2112	CODE:
2042	RETVAL = FABS (dx) <= pl->ns->mapx / 2 && FABS (dy) <= pl->ns->mapy / 2	2113	RETVAL = FABS (dx) <= pl->ns->mapx / 2 && FABS (dy) <= pl->ns->mapy / 2
…		…
2095	RETVAL = map->invoke ((event_type)event, ARG_AV (av), DT_END);	2166	RETVAL = map->invoke ((event_type)event, ARG_AV (av), DT_END);
2096	OUTPUT: RETVAL	2167	OUTPUT: RETVAL
2097		2168
2098	SV registry (maptile map)	2169	SV registry (maptile map)
2099		2170
2100	INCLUDE: $PERL genacc maptile ../include/map.h \|	2171	INCLUDE: $PERL $srcdir/genacc maptile ../include/map.h \|
2101		2172
2102	void	2173	void
2103	maptile::instantiate ()	2174	maptile::instantiate ()
2104		2175
2105	maptile *new ()	2176	maptile *new ()
…		…
2119	EXTEND (SP, THIS->players);	2190	EXTEND (SP, THIS->players);
2120	for_all_players (pl)	2191	for_all_players (pl)
2121	if (pl->ob && pl->ob->map == THIS)	2192	if (pl->ob && pl->ob->map == THIS)
2122	PUSHs (sv_2mortal (to_sv (pl->ob)));	2193	PUSHs (sv_2mortal (to_sv (pl->ob)));
2123	}	2194	}
		2195
		2196	void
		2197	maptile::add_underlay (SV data, int offset, int stride, SV palette)
		2198	CODE:
		2199	{
		2200	if (!SvROK (palette) \|\| SvTYPE (SvRV (palette)) != SVt_PVAV)
		2201	croak ("maptile::add_underlay: palette must be arrayref");
		2202
		2203	palette = SvRV (palette);
		2204
		2205	STRLEN idxlen;
		2206	const uint8_t idx = (const uint8_t )SvPVbyte (data, idxlen);
		2207
		2208	for (int x = 0; x < THIS->width; ++x)
		2209	for (int y = 0; y < THIS->height; ++y)
		2210	{
		2211	for (object *op = THIS->at (x, y).bot; op; op = op->above)
		2212	if (op->flag [FLAG_IS_FLOOR])
		2213	goto skip_space;
		2214
		2215	{
		2216	int offs = offset + y * stride + x;
		2217	if (IN_RANGE_EXC (offs, 0, idxlen))
		2218	{
		2219	if (SV *elem = av_fetch ((AV )palette, idx [offs], 0))
		2220	{
		2221	object ob = get_archetype (SvPVutf8_nolen (elem));
		2222	ob->flag [FLAG_NO_MAP_SAVE] = true;
		2223	THIS->insert (ob, x, y, 0, INS_ABOVE_FLOOR_ONLY);
		2224	}
		2225	}
		2226	}
		2227
		2228	skip_space: ;
		2229	}
		2230	}
		2231
		2232	void
		2233	maptile::set_regiondata (SV data, int offset, int stride, SV palette)
		2234	CODE:
		2235	{
		2236	if (!SvROK (palette) \|\| SvTYPE (SvRV (palette)) != SVt_PVAV)
		2237	croak ("maptile::set_regiondata: palette must be arrayref");
		2238
		2239	palette = SvRV (palette);
		2240
		2241	STRLEN idxlen;
		2242	const uint8_t idx = (const uint8_t )SvPVbyte (data, idxlen);
		2243
		2244	region regionmap = (region )malloc (
		2245	(av_len ((AV )palette) + 1) sizeof (region *));
		2246	uint8_t *regions = salloc<uint8_t> (THIS->size ());
		2247
		2248	for (int i = av_len ((AV *)palette) + 1; i--; )
		2249	regionmap [i] = region::find (
		2250	SvPVutf8_nolen (av_fetch ((AV )palette, i, 1)));
		2251
		2252	for (int y = 0; y < THIS->height; ++y)
		2253	memcpy (regions + y * THIS->width, idx + offset + y * stride, THIS->width);
		2254
		2255	sfree (THIS->regions, THIS->size ());
		2256	free (THIS->regionmap);
		2257
		2258	THIS->regions = regions;
		2259	THIS->regionmap = regionmap;
		2260	}
2124		2261
2125	void play_sound_map (maptile *map, int x, int y, int sound_num)	2262	void play_sound_map (maptile *map, int x, int y, int sound_num)
2126		2263
2127	int out_of_map (maptile *map, int x, int y)	2264	int out_of_map (maptile *map, int x, int y)
2128		2265
…		…
2209	OUTPUT: RETVAL	2346	OUTPUT: RETVAL
2210		2347
2211	void fix_walls (maptile *map, int x, int y)	2348	void fix_walls (maptile *map, int x, int y)
2212		2349
2213	void fix_walls_around (maptile *map, int x, int y)	2350	void fix_walls_around (maptile *map, int x, int y)
2214
2215	const char *
2216	region_name (maptile *m)
2217	CODE:
2218	RETVAL = get_name_of_region_for_map (m);
2219	OUTPUT: RETVAL
2220		2351
2221	# worst xs function of my life	2352	# worst xs function of my life
2222	bool	2353	bool
2223	_create_random_map (\	2354	_create_random_map (\
2224	maptile *self,\	2355	maptile *self,\
…		…
2318	PROTOTYPE:	2449	PROTOTYPE:
2319	CODE:	2450	CODE:
2320	RETVAL = first_archetype;	2451	RETVAL = first_archetype;
2321	OUTPUT: RETVAL	2452	OUTPUT: RETVAL
2322		2453
2323	INCLUDE: $PERL genacc archetype ../include/object.h \|	2454	INCLUDE: $PERL $srcdir/genacc archetype ../include/object.h \|
2324		2455
2325	MODULE = cf PACKAGE = cf::party	2456	MODULE = cf PACKAGE = cf::party
2326		2457
2327	partylist *first ()	2458	partylist *first ()
2328	PROTOTYPE:	2459	PROTOTYPE:
2329	CODE:	2460	CODE:
2330	RETVAL = get_firstparty ();	2461	RETVAL = get_firstparty ();
2331	OUTPUT: RETVAL	2462	OUTPUT: RETVAL
2332		2463
2333	INCLUDE: $PERL genacc partylist ../include/player.h \|	2464	INCLUDE: $PERL $srcdir/genacc partylist ../include/player.h \|
2334		2465
2335	MODULE = cf PACKAGE = cf::region	2466	MODULE = cf PACKAGE = cf::region
2336		2467
2337	region *first ()	2468	void
2338	PROTOTYPE:	2469	list ()
2339	CODE:	2470	PPCODE:
2340	RETVAL = first_region;	2471	for_all_regions (rgn)
2341	OUTPUT: RETVAL	2472	XPUSHs (sv_2mortal (to_sv (rgn)));
2342		2473
2343	region find (char name)	2474	region find (char name)
2344	PROTOTYPE: $	2475	PROTOTYPE: $
2345	CODE:	2476	CODE:
2346	RETVAL = get_region_by_name (name);	2477	RETVAL = region::find (name);
2347	OUTPUT: RETVAL	2478	OUTPUT: RETVAL
2348		2479
		2480	region find_fuzzy (char name)
		2481	PROTOTYPE: $
		2482	CODE:
		2483	RETVAL = region::find_fuzzy (name);
		2484	OUTPUT: RETVAL
		2485
2349	INCLUDE: $PERL genacc region ../include/map.h \|	2486	INCLUDE: $PERL $srcdir/genacc region ../include/map.h \|
2350		2487
2351	MODULE = cf PACKAGE = cf::living	2488	MODULE = cf PACKAGE = cf::living
2352		2489
2353	INCLUDE: $PERL genacc living ../include/living.h \|	2490	INCLUDE: $PERL $srcdir/genacc living ../include/living.h \|
2354		2491
2355	MODULE = cf PACKAGE = cf::settings	2492	MODULE = cf PACKAGE = cf::settings
2356		2493
2357	INCLUDE: $PERL genacc Settings ../include/global.h \|	2494	INCLUDE: $PERL $srcdir/genacc Settings ../include/global.h \|
2358		2495
2359	MODULE = cf PACKAGE = cf::client	2496	MODULE = cf PACKAGE = cf::client
2360		2497
2361	INCLUDE: $PERL genacc client ../include/client.h \|	2498	INCLUDE: $PERL $srcdir/genacc client ../include/client.h \|
2362		2499
2363	int invoke (client *ns, int event, ...)	2500	int invoke (client *ns, int event, ...)
2364	CODE:	2501	CODE:
2365	if (KLASS_OF (event) != KLASS_CLIENT) croak ("event class must be CLIENT");	2502	if (KLASS_OF (event) != KLASS_CLIENT) croak ("event class must be CLIENT");
2366	AV av = (AV )sv_2mortal ((SV *)newAV ());	2503	AV av = (AV )sv_2mortal ((SV *)newAV ());
…		…
2385	char *buf = SvPVbyte (packet, len);	2522	char *buf = SvPVbyte (packet, len);
2386		2523
2387	THIS->send_packet (buf, len);	2524	THIS->send_packet (buf, len);
2388	}	2525	}
2389		2526
		2527	MODULE = cf PACKAGE = cf::face PREFIX = face_
		2528
		2529	INCLUDE: $PERL $srcdir/genacc faceset ../include/face.h \|
		2530
		2531	faceidx face_find (const char *name, faceidx defidx = 0)
		2532
		2533	faceidx alloc (const char *name)
		2534	CODE:
		2535	{
		2536	do
		2537	{
		2538	RETVAL = faces.size ();
		2539	faces.resize (RETVAL + 1);
		2540	}
		2541	while (!RETVAL); // crude way to leave index 0
		2542
		2543	faces [RETVAL].name = name;
		2544	facehash.insert (std::make_pair (faces [RETVAL].name, RETVAL));
		2545
		2546	if (!strcmp (name, BLANK_FACE_NAME)) blank_face = RETVAL;
		2547	if (!strcmp (name, EMPTY_FACE_NAME)) empty_face = RETVAL;
		2548	}
		2549	OUTPUT: RETVAL
		2550
		2551	void set (faceidx idx, int visibility, int magicmap)
		2552	CODE:
		2553	faceinfo *f = face_info (idx);
		2554	assert (f);
		2555	f->visibility = visibility;
		2556	f->magicmap = magicmap;
		2557
		2558	void set_smooth (faceidx idx, faceidx smooth)
		2559	CODE:
		2560	faceinfo *f = face_info (idx);
		2561	assert (f);
		2562	f->smooth = smooth;
		2563
		2564	void set_data (faceidx idx, int faceset, SV data, SV chksum)
		2565	CODE:
		2566	facedata *d = face_data (idx, faceset);
		2567	assert (d);
		2568	sv_to (data, d->data);
		2569	STRLEN clen;
		2570	char *cdata = SvPVbyte (chksum, clen);
		2571	memcpy (d->chksum, cdata, min (CHKSUM_SIZE, clen));
		2572
		2573	void invalidate (faceidx idx)
		2574	CODE:
		2575	for_all_clients (ns)
		2576	ns->faces_sent [idx] = false;
		2577
		2578	void invalidate_all ()
		2579	CODE:
		2580	for_all_clients (ns)
		2581	ns->faces_sent.reset ();
		2582

Diff Legend

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

Comparing deliantra/server/server/cfperl.xs (file contents): Revision 1.150 by root, Tue Jan 23 01:05:18 2007 UTC vs. Revision 1.181 by root, Tue Apr 3 00:21:38 2007 UTC

Diff Legend

Comparing deliantra/server/server/cfperl.xs (file contents):
Revision 1.150 by root, Tue Jan 23 01:05:18 2007 UTC vs.
Revision 1.181 by root, Tue Apr 3 00:21:38 2007 UTC