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

Comparing deliantra/server/server/cfperl.xs (file contents):
Revision 1.151 by root, Tue Jan 23 01:29:51 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];
…		…
227		246
228	static int	247	static int
229	attachable_free (pTHX_ SV sv, MAGIC mg)	248	attachable_free (pTHX_ SV sv, MAGIC mg)
230	{	249	{
231	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	{
232	at->self = 0;	255	at->self = 0;
		256	SvREFCNT_dec (self);
		257	}
		258
233	// 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
234	//at->refcnt_chk ();	260	//at->refcnt_chk ();
235	return 0;	261	return 0;
236	}	262	}
237		263
…		…
245		271
246	if (!obj->self)	272	if (!obj->self)
247	{	273	{
248	obj->self = newHV ();	274	obj->self = newHV ();
249	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);
250		276	obj->flags \|= (obj->flags & 0xc0) << 8;
251	// borrow the refcnt from the object	277	obj->flags &= ~0xc0;//D
252	// it is important thta no refcnt_chk is being executed here	278	obj->flags \|= 0x10;//D
253	obj->refcnt_dec ();
254		279
255	// now bless the object _once_	280	// now bless the object _once_
256	return sv_bless (newRV_inc ((SV *)obj->self), stash);	281	return sv_bless (newRV_inc ((SV *)obj->self), stash);
257	}	282	}
258	else	283	else
…		…
324	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); }
325		350
326	inline SV *to_sv (object & v) { return to_sv (&v); }	351	inline SV *to_sv (object & v) { return to_sv (&v); }
327	inline SV *to_sv (living & v) { return to_sv (&v); }	352	inline SV *to_sv (living & v) { return to_sv (&v); }
328		353
329	inline SV to_sv (facetile v) { return to_sv (v->name); }	354	//inline SV to_sv (faceinfo v) { return to_sv (v->name); }
330	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 ()); }
331		357
332	inline SV *to_sv (UUID v)	358	inline SV *to_sv (UUID v)
333	{	359	{
334	char buf[128];	360	char buf[128];
335	snprintf (buf, 128, "<1,%" PRIx64 ">", v.seq);	361	snprintf (buf, 128, "<1.%" PRIx64 ">", v.seq);
336	return newSVpv (buf, 0);	362	return newSVpv (buf, 0);
337	}	363	}
338		364
339	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; }
340	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; }
…		…
359	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"); }
360	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"); }
361	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"); }
362	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"); }
363		389
364	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)]; }
365	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)); }
366		392
367	template<class T>	393	template<class T>
368	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; }
369		395
…		…
373	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); }
374	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); }
375	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); }
376	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); }
377	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	}
378		411
379	inline void sv_to (SV *sv, UUID &v)	412	inline void sv_to (SV *sv, UUID &v)
380	{	413	{
381	unsigned int version;	414	unsigned int version;
382		415
…		…
573	perl = perl_alloc ();	606	perl = perl_alloc ();
574	perl_construct (perl);	607	perl_construct (perl);
575		608
576	PL_exit_flags \|= PERL_EXIT_DESTRUCT_END;	609	PL_exit_flags \|= PERL_EXIT_DESTRUCT_END;
577		610
578	char *argv[] = {	611	const char *argv[] = {
579	"",	612	"",
580	"-e"	613	"-e"
581	"use Event; use Coro;" // required for bootstrap	614	"use Event; use Coro;" // required for bootstrap
582	"cf->bootstrap;" // required for datadir :*>	615	"cf->bootstrap;" // required for datadir :*>
583	"unshift @INC, cf::datadir ();"	616	"unshift @INC, cf::datadir ();"
584	"require cf;"	617	"require cf;"
585	};	618	};
586		619
587	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))
588	{	622	{
589	printf ("unable to initialize perl-interpreter, aborting.\n");	623	printf ("unable to initialize perl-interpreter, aborting.\n");
590	exit (EXIT_FAILURE);	624	exit (EXIT_FAILURE);
591	}	625	}
		626
		627	{
		628	dSP;
		629
		630	PUSHMARK (SP);
		631	PUTBACK;
		632	call_pv ("cf::init", G_DISCARD \| G_VOID);
		633	}
592	}	634	}
593		635
594	void cfperl_main ()	636	void cfperl_main ()
595	{	637	{
596	dSP;	638	dSP;
…		…
817	CALL_BEGIN (0);	859	CALL_BEGIN (0);
818	CALL_CALL ("cf::emergency_save", G_VOID);	860	CALL_CALL ("cf::emergency_save", G_VOID);
819	CALL_END;	861	CALL_END;
820	}	862	}
821		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
822	maptile *	873	maptile *
823	maptile::find_sync (const char path, maptile origin)	874	maptile::find_sync (const char path, maptile origin)
824	{	875	{
825	CALL_BEGIN (2);	876	CALL_BEGIN (2);
826	CALL_ARG (path);	877	CALL_ARG (path);
…		…
1000	# define const_iv(name) { # name, (IV)name },	1051	# define const_iv(name) { # name, (IV)name },
1001	const_iv (llevError)	1052	const_iv (llevError)
1002	const_iv (llevInfo)	1053	const_iv (llevInfo)
1003	const_iv (llevDebug)	1054	const_iv (llevDebug)
1004	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)
1005		1063
1006	const_iv (MAX_TIME)	1064	const_iv (MAX_TIME)
1007	const_iv (PLAYER)	1065	const_iv (PLAYER)
1008	const_iv (TRANSPORT)	1066	const_iv (TRANSPORT)
1009	const_iv (ROD)	1067	const_iv (ROD)
…		…
1544	{	1602	{
1545	// reattach to all attachable objects in the game.	1603	// reattach to all attachable objects in the game.
1546	for_all_clients (ns)	1604	for_all_clients (ns)
1547	ns->reattach ();	1605	ns->reattach ();
1548		1606
1549	for_all_players (pl)
1550	pl->reattach ();
1551
1552	//TODO
1553	//for (map_container::iterator i = maps.begin (); i != maps.end (); ++i)
1554	// i->second->reattach ();
1555
1556	for_all_objects (op)	1607	for_all_objects (op)
1557	op->reattach ();	1608	op->reattach ();
1558	}	1609	}
1559		1610
1560	NV floor (NV x)	1611	NV floor (NV x)
…		…
1600	void	1651	void
1601	sub_generation_inc ()	1652	sub_generation_inc ()
1602	CODE:	1653	CODE:
1603	PL_sub_generation++;	1654	PL_sub_generation++;
1604		1655
1605	char *	1656	const char *
1606	mapdir ()	1657	mapdir ()
1607	PROTOTYPE:	1658	PROTOTYPE:
1608	ALIAS:	1659	ALIAS:
1609	mapdir = 0	1660	mapdir = 0
1610	uniquedir = 1	1661	uniquedir = 1
…		…
1632		1683
1633	void cleanup (const char *cause, bool make_core = false)	1684	void cleanup (const char *cause, bool make_core = false)
1634		1685
1635	void emergency_save ()	1686	void emergency_save ()
1636		1687
		1688	void _exit (int status = EXIT_SUCCESS)
		1689
1637	UV sv_2watcher (SV *w)	1690	UV sv_2watcher (SV *w)
1638	CODE:	1691	CODE:
1639	RETVAL = (UV)GEventAPI->sv_2watcher (w);	1692	RETVAL = (UV)GEventAPI->sv_2watcher (w);
1640	OUTPUT:	1693	OUTPUT:
1641	RETVAL	1694	RETVAL
1642
1643	void _exit (int status = 0)
1644		1695
1645	#if _POSIX_MEMLOCK	1696	#if _POSIX_MEMLOCK
1646		1697
1647	int mlockall (int flags = MCL_CURRENT \| MCL_FUTURE)	1698	int mlockall (int flags = MCL_CURRENT \| MCL_FUTURE)
1648		1699
…		…
1694	RETVAL = newSVpv (resist_plus[atnr], 0);	1745	RETVAL = newSVpv (resist_plus[atnr], 0);
1695	else	1746	else
1696	XSRETURN_UNDEF;	1747	XSRETURN_UNDEF;
1697	OUTPUT: RETVAL	1748	OUTPUT: RETVAL
1698		1749
		1750	bool
		1751	load_resource_file (const char *filename)
		1752
1699	MODULE = cf PACKAGE = cf::attachable	1753	MODULE = cf PACKAGE = cf::attachable
1700		1754
1701	int	1755	int
1702	valid (SV *obj)	1756	valid (SV *obj)
1703	CODE:	1757	CODE:
1704	RETVAL = SvROK (obj) && mg_find (SvRV (obj), PERL_MAGIC_ext);	1758	RETVAL = SvROK (obj) && mg_find (SvRV (obj), PERL_MAGIC_ext);
1705	OUTPUT:	1759	OUTPUT:
1706	RETVAL	1760	RETVAL
1707		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
1708	INCLUDE: $PERL genacc attachable ../include/cfperl.h \|	1779	INCLUDE: $PERL $srcdir/genacc attachable ../include/cfperl.h \|
1709		1780
1710	MODULE = cf PACKAGE = cf::global	1781	MODULE = cf PACKAGE = cf::global
1711		1782
1712	int invoke (SV *klass, int event, ...)	1783	int invoke (SV *klass, int event, ...)
1713	CODE:	1784	CODE:
…		…
1717	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);
1718	OUTPUT: RETVAL	1789	OUTPUT: RETVAL
1719		1790
1720	MODULE = cf PACKAGE = cf::object PREFIX = cf_object_	1791	MODULE = cf PACKAGE = cf::object PREFIX = cf_object_
1721		1792
1722	INCLUDE: $PERL genacc object ../include/object.h \|	1793	INCLUDE: $PERL $srcdir/genacc object ../include/object.h \|
1723		1794
1724	int invoke (object *op, int event, ...)	1795	int invoke (object *op, int event, ...)
1725	CODE:	1796	CODE:
1726	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");
1727	AV av = (AV )sv_2mortal ((SV *)newAV ());	1798	AV av = (AV )sv_2mortal ((SV *)newAV ());
…		…
1729	RETVAL = op->invoke ((event_type)event, ARG_AV (av), DT_END);	1800	RETVAL = op->invoke ((event_type)event, ARG_AV (av), DT_END);
1730	OUTPUT: RETVAL	1801	OUTPUT: RETVAL
1731		1802
1732	SV registry (object op)	1803	SV registry (object op)
1733		1804
1734	void mortals ()
1735	PPCODE:
1736	EXTEND (SP, object::mortals.size ());
1737	for (AUTODECL (i, object::mortals.begin ()); i != object::mortals.end (); ++i)
1738	PUSHs (to_sv (*i));
1739
1740	int objects_size ()	1805	int objects_size ()
1741	CODE:	1806	CODE:
1742	RETVAL = objects.size ();	1807	RETVAL = objects.size ();
1743	OUTPUT: RETVAL	1808	OUTPUT: RETVAL
1744		1809
…		…
1784	void	1849	void
1785	set_animation (object *op, int idx)	1850	set_animation (object *op, int idx)
1786	CODE:	1851	CODE:
1787	SET_ANIMATION (op, idx);	1852	SET_ANIMATION (op, idx);
1788		1853
		1854	int
		1855	num_animations (object *op)
		1856	CODE:
		1857	RETVAL = NUM_ANIMATIONS (op);
		1858	OUTPUT: RETVAL
		1859
1789	object find_best_object_match (object op, const char *match)	1860	object find_best_object_match (object op, const char *match)
1790		1861
1791	object find_marked_object (object op)	1862	object find_marked_object (object op)
1792		1863
1793	int need_identify (object *obj);	1864	int need_identify (object *obj);
1794		1865
1795	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
1796		1873
1797	int move (object op, int dir, object originator = op)	1874	int move (object op, int dir, object originator = op)
1798	CODE:	1875	CODE:
1799	RETVAL = move_ob (op, dir, originator);	1876	RETVAL = move_ob (op, dir, originator);
1800	OUTPUT:	1877	OUTPUT:
…		…
1805	manual_apply (applied, applier, flags);	1882	manual_apply (applied, applier, flags);
1806		1883
1807	void apply_below (object *op)	1884	void apply_below (object *op)
1808	CODE:	1885	CODE:
1809	player_apply_below (op);	1886	player_apply_below (op);
		1887
		1888	int cast_heal (object op, object caster, object *spell, int dir = 0)
1810		1889
1811	object cf_object_present_archname_inside (object op, char *whatstr)	1890	object cf_object_present_archname_inside (object op, char *whatstr)
1812		1891
1813	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)
1814		1893
…		…
1999		2078
2000	int command_summon (object op, char params)	2079	int command_summon (object op, char params)
2001		2080
2002	int command_arrest (object op, char params)	2081	int command_arrest (object op, char params)
2003		2082
2004	int command_kick (object op, char params)
2005
2006	int command_banish (object op, char params)
2007
2008		2083
2009	MODULE = cf PACKAGE = cf::player PREFIX = cf_player_	2084	MODULE = cf PACKAGE = cf::player PREFIX = cf_player_
2010		2085
2011	INCLUDE: $PERL genacc player ../include/player.h \|	2086	INCLUDE: $PERL $srcdir/genacc player ../include/player.h \|
2012		2087
2013	int invoke (player *pl, int event, ...)	2088	int invoke (player *pl, int event, ...)
2014	CODE:	2089	CODE:
2015	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");
2016	AV av = (AV )sv_2mortal ((SV *)newAV ());	2091	AV av = (AV )sv_2mortal ((SV *)newAV ());
…		…
2029	pl->orig_stats = pl->ob->stats;	2104	pl->orig_stats = pl->ob->stats;
2030		2105
2031	void cf_player_move (player *pl, int dir)	2106	void cf_player_move (player *pl, int dir)
2032		2107
2033	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);
2034
2035	player *first ()
2036	CODE:
2037	RETVAL = first_player;
2038	OUTPUT: RETVAL
2039		2109
2040	bool	2110	bool
2041	cell_visible (player *pl, int dx, int dy)	2111	cell_visible (player *pl, int dx, int dy)
2042	CODE:	2112	CODE:
2043	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
…		…
2096	RETVAL = map->invoke ((event_type)event, ARG_AV (av), DT_END);	2166	RETVAL = map->invoke ((event_type)event, ARG_AV (av), DT_END);
2097	OUTPUT: RETVAL	2167	OUTPUT: RETVAL
2098		2168
2099	SV registry (maptile map)	2169	SV registry (maptile map)
2100		2170
2101	INCLUDE: $PERL genacc maptile ../include/map.h \|	2171	INCLUDE: $PERL $srcdir/genacc maptile ../include/map.h \|
2102		2172
2103	void	2173	void
2104	maptile::instantiate ()	2174	maptile::instantiate ()
2105		2175
2106	maptile *new ()	2176	maptile *new ()
…		…
2120	EXTEND (SP, THIS->players);	2190	EXTEND (SP, THIS->players);
2121	for_all_players (pl)	2191	for_all_players (pl)
2122	if (pl->ob && pl->ob->map == THIS)	2192	if (pl->ob && pl->ob->map == THIS)
2123	PUSHs (sv_2mortal (to_sv (pl->ob)));	2193	PUSHs (sv_2mortal (to_sv (pl->ob)));
2124	}	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	}
2125		2261
2126	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)
2127		2263
2128	int out_of_map (maptile *map, int x, int y)	2264	int out_of_map (maptile *map, int x, int y)
2129		2265
…		…
2210	OUTPUT: RETVAL	2346	OUTPUT: RETVAL
2211		2347
2212	void fix_walls (maptile *map, int x, int y)	2348	void fix_walls (maptile *map, int x, int y)
2213		2349
2214	void fix_walls_around (maptile *map, int x, int y)	2350	void fix_walls_around (maptile *map, int x, int y)
2215
2216	const char *
2217	region_name (maptile *m)
2218	CODE:
2219	RETVAL = get_name_of_region_for_map (m);
2220	OUTPUT: RETVAL
2221		2351
2222	# worst xs function of my life	2352	# worst xs function of my life
2223	bool	2353	bool
2224	_create_random_map (\	2354	_create_random_map (\
2225	maptile *self,\	2355	maptile *self,\
…		…
2319	PROTOTYPE:	2449	PROTOTYPE:
2320	CODE:	2450	CODE:
2321	RETVAL = first_archetype;	2451	RETVAL = first_archetype;
2322	OUTPUT: RETVAL	2452	OUTPUT: RETVAL
2323		2453
2324	INCLUDE: $PERL genacc archetype ../include/object.h \|	2454	INCLUDE: $PERL $srcdir/genacc archetype ../include/object.h \|
2325		2455
2326	MODULE = cf PACKAGE = cf::party	2456	MODULE = cf PACKAGE = cf::party
2327		2457
2328	partylist *first ()	2458	partylist *first ()
2329	PROTOTYPE:	2459	PROTOTYPE:
2330	CODE:	2460	CODE:
2331	RETVAL = get_firstparty ();	2461	RETVAL = get_firstparty ();
2332	OUTPUT: RETVAL	2462	OUTPUT: RETVAL
2333		2463
2334	INCLUDE: $PERL genacc partylist ../include/player.h \|	2464	INCLUDE: $PERL $srcdir/genacc partylist ../include/player.h \|
2335		2465
2336	MODULE = cf PACKAGE = cf::region	2466	MODULE = cf PACKAGE = cf::region
2337		2467
2338	region *first ()	2468	void
2339	PROTOTYPE:	2469	list ()
2340	CODE:	2470	PPCODE:
2341	RETVAL = first_region;	2471	for_all_regions (rgn)
2342	OUTPUT: RETVAL	2472	XPUSHs (sv_2mortal (to_sv (rgn)));
2343		2473
2344	region find (char name)	2474	region find (char name)
2345	PROTOTYPE: $	2475	PROTOTYPE: $
2346	CODE:	2476	CODE:
2347	RETVAL = get_region_by_name (name);	2477	RETVAL = region::find (name);
2348	OUTPUT: RETVAL	2478	OUTPUT: RETVAL
2349		2479
		2480	region find_fuzzy (char name)
		2481	PROTOTYPE: $
		2482	CODE:
		2483	RETVAL = region::find_fuzzy (name);
		2484	OUTPUT: RETVAL
		2485
2350	INCLUDE: $PERL genacc region ../include/map.h \|	2486	INCLUDE: $PERL $srcdir/genacc region ../include/map.h \|
2351		2487
2352	MODULE = cf PACKAGE = cf::living	2488	MODULE = cf PACKAGE = cf::living
2353		2489
2354	INCLUDE: $PERL genacc living ../include/living.h \|	2490	INCLUDE: $PERL $srcdir/genacc living ../include/living.h \|
2355		2491
2356	MODULE = cf PACKAGE = cf::settings	2492	MODULE = cf PACKAGE = cf::settings
2357		2493
2358	INCLUDE: $PERL genacc Settings ../include/global.h \|	2494	INCLUDE: $PERL $srcdir/genacc Settings ../include/global.h \|
2359		2495
2360	MODULE = cf PACKAGE = cf::client	2496	MODULE = cf PACKAGE = cf::client
2361		2497
2362	INCLUDE: $PERL genacc client ../include/client.h \|	2498	INCLUDE: $PERL $srcdir/genacc client ../include/client.h \|
2363		2499
2364	int invoke (client *ns, int event, ...)	2500	int invoke (client *ns, int event, ...)
2365	CODE:	2501	CODE:
2366	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");
2367	AV av = (AV )sv_2mortal ((SV *)newAV ());	2503	AV av = (AV )sv_2mortal ((SV *)newAV ());
…		…
2386	char *buf = SvPVbyte (packet, len);	2522	char *buf = SvPVbyte (packet, len);
2387		2523
2388	THIS->send_packet (buf, len);	2524	THIS->send_packet (buf, len);
2389	}	2525	}
2390		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.151 by root, Tue Jan 23 01:29:51 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.151 by root, Tue Jan 23 01:29:51 2007 UTC vs.
Revision 1.181 by root, Tue Apr 3 00:21:38 2007 UTC