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

Comparing deliantra/server/server/cfperl.xs (file contents):
Revision 1.116 by root, Sat Dec 30 10:16:11 2006 UTC vs.
Revision 1.131 by root, Mon Jan 8 18:18:35 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	106	assert (!(flags & F_BORROWED));
113	#if 0	107	}
114	assert (!rc_next);	108
115	assert (!refcnt);	109	int
116	#endif	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	flags &= ~F_BORROWED;
		123	refcnt_inc ();
		124	SvREFCNT_dec ((SV *)self);
		125	}
117	}	126	}
118		127
119	// check wether the object really is dead	128	// check wether the object really is dead
120	void	129	void
121	attachable::do_check ()	130	attachable::do_check ()
122	{	131	{
123	if (refcnt > 0)	132	if (refcnt > 0)
124	return;	133	return;
125		134
126	// try to unborrow the refcnt from perl	135	optimise ();
127	if (flags & F_BORROWED)	136
		137	if (self)
128	{	138	{
129	assert (self);//D//TODO//remove when stable	139	if (refcnt + SvREFCNT (self) > 0)
		140	return;
		141
		142	assert (flags & F_BORROWED);
		143
130	flags &= ~F_BORROWED;	144	flags &= ~F_BORROWED;
131	refcnt_inc ();	145	refcnt_inc ();
132	SvREFCNT_dec (self);	146	SvREFCNT_dec (self);
		147	self = 0;
133	}	148	}
134		149
135	if (refcnt > 0 \|\| self)	150	if (refcnt > 0)
136	return;	151	return;
137		152
138	destroy ();	153	destroy ();
139	}	154	}
140		155
141	void	156	void
142	attachable::do_destroy ()	157	attachable::do_destroy ()
143	{	158	{
144	invoke (EVENT_ATTACHABLE_DESTROY, DT_END);	159	invoke (EVENT_ATTACHABLE_DESTROY, DT_END);
145		160
146	//TODO: call generic destroy callback	161	if (self)
		162	hv_clear (self);
		163
147	mortals.push_back (this);	164	mortals.push_back (this);
148	}	165	}
149		166
150	void	167	void
151	attachable::destroy ()	168	attachable::destroy ()
…		…
155		172
156	flags \|= F_DESTROYED;	173	flags \|= F_DESTROYED;
157	do_destroy ();	174	do_destroy ();
158	}	175	}
159		176
		177	void
160	void attachable::check_mortals ()	178	attachable::check_mortals ()
161	{	179	{
162	for (int i = 0; i < mortals.size (); )	180	for (int i = 0; i < mortals.size (); )
163	{	181	{
164	attachable *obj = mortals [i];	182	attachable *obj = mortals [i];
165		183
…		…
209		227
210	static int	228	static int
211	attachable_free (pTHX_ SV sv, MAGIC mg)	229	attachable_free (pTHX_ SV sv, MAGIC mg)
212	{	230	{
213	attachable at = (attachable )mg->mg_ptr;	231	attachable at = (attachable )mg->mg_ptr;
214	assert (!(at->flags & attachable::F_BORROWED));//D//TODO//remove when stable	232	assert (!(at->flags & attachable::F_BORROWED));
215	at->self = 0;	233	at->self = 0;
216	// next line makes sense, but most objects still have refcnt 0 by default	234	// next line makes sense, but most objects still have refcnt 0 by default
217	//at->refcnt_chk ();	235	//at->refcnt_chk ();
218	return 0;	236	return 0;
219	}	237	}
…		…
232	sv_magicext ((SV )obj->self, 0, PERL_MAGIC_ext, &attachable::vtbl, (char )obj, 0);	250	sv_magicext ((SV )obj->self, 0, PERL_MAGIC_ext, &attachable::vtbl, (char )obj, 0);
233		251
234	// borrow the refcnt from the object	252	// borrow the refcnt from the object
235	obj->flags \|= attachable::F_BORROWED;	253	obj->flags \|= attachable::F_BORROWED;
236	obj->refcnt_dec ();	254	obj->refcnt_dec ();
		255
		256	// now bless the object _once_
		257	return sv_bless (newRV_inc ((SV *)obj->self), stash);
237	}	258	}
238		259	else
239	return sv_bless (newRV_inc ((SV *)obj->self), stash);	260	return newRV_inc ((SV *)obj->self);
240	}	261	}
241		262
242	static void	263	static void
243	clearSVptr (SV *sv)	264	clearSVptr (SV *sv)
244	{	265	{
…		…
328	inline void sv_to (SV sv, client &v) { v = (client )(attachable )SvPTR_ornull (sv, "cf::client"); }	349	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"); }	350	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"); }	351	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"); }	352	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"); }	353	inline void sv_to (SV sv, maptile &v) { v = (maptile )(attachable )SvPTR_ornull (sv, "cf::map"); }
		354	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"); }	355	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"); }	356	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"); }	357	inline void sv_to (SV sv, living &v) { v = (living *)SvPTR_ornull (sv, "cf::living"); }
336		358
337	inline void sv_to (SV sv, New_Face &v) { v = &new_faces[FindFace (SvPV_nolen (sv), 0)]; } //TODO	359	inline void sv_to (SV sv, New_Face &v) { v = &new_faces[FindFace (SvPV_nolen (sv), 0)]; } //TODO
…		…
504	}	526	}
505		527
506	attach = 0;	528	attach = 0;
507	}	529	}
508	#endif	530	#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	}
521		531
522	/////////////////////////////////////////////////////////////////////////////	532	/////////////////////////////////////////////////////////////////////////////
523		533
524	extern "C" int cfperl_initPlugin (const char *iversion, f_plug_api gethooksptr)	534	extern "C" int cfperl_initPlugin (const char *iversion, f_plug_api gethooksptr)
525	{	535	{
…		…
828	CALL_CALL ("cf::map::emergency_save", G_VOID);	838	CALL_CALL ("cf::map::emergency_save", G_VOID);
829	CALL_END;	839	CALL_END;
830	}	840	}
831		841
832	maptile *	842	maptile *
833	maptile::find_map (const char path, maptile origin)	843	maptile::find_sync (const char path, maptile origin)
834	{	844	{
835	CALL_BEGIN (2);	845	CALL_BEGIN (2);
836	CALL_ARG (path);	846	CALL_ARG (path);
837	CALL_ARG (origin);	847	CALL_ARG (origin);
838	CALL_CALL ("cf::map::find_map", G_SCALAR);	848	CALL_CALL ("cf::map::find_sync", G_SCALAR);
839		849
840	maptile *retval;	850	maptile *retval;
841		851
842	if (count)	852	if (count)
843	sv_to (POPs, retval);	853	sv_to (POPs, retval);
…		…
848		858
849	return retval;	859	return retval;
850	}	860	}
851		861
852	void	862	void
853	maptile::do_load ()	863	maptile::do_load_sync ()
854	{	864	{
855	CALL_BEGIN (1);	865	CALL_BEGIN (1);
856	CALL_ARG (this);	866	CALL_ARG (this);
857	CALL_CALL ("cf::map::do_load", G_VOID);	867	CALL_CALL ("cf::map::do_load_sync", G_SCALAR);
858	CALL_END;	868	CALL_END;
859	}
860
861	maptile *
862	maptile::customise_for (object *op)
863	{
864	CALL_BEGIN (2);
865	CALL_ARG (this);
866	CALL_ARG (op);
867	CALL_CALL ("cf::map::customise_for", G_SCALAR);
868
869	maptile *retval;
870
871	if (count)
872	sv_to (POPs, retval);
873	else
874	retval = 0;
875
876	CALL_END;
877
878	return retval ? retval : this;
879	}	869	}
880		870
881	void	871	void
882	maptile::change_all_map_light (int change)	872	maptile::change_all_map_light (int change)
883	{	873	{
…		…
902		892
903	/////////////////////////////////////////////////////////////////////////////	893	/////////////////////////////////////////////////////////////////////////////
904		894
905	struct EventAPI *watcher_base::GEventAPI;	895	struct EventAPI *watcher_base::GEventAPI;
906	struct CoroAPI *coroapi::GCoroAPI;	896	struct CoroAPI *coroapi::GCoroAPI;
		897
		898	int coroapi::cede_counter;
907		899
908	static void iw_dispatch (pe_event *ev)	900	static void iw_dispatch (pe_event *ev)
909	{	901	{
910	iw w = (iw )ev->ext_data;	902	iw w = (iw )ev->ext_data;
911	w->call (*w);	903	w->call (*w);
…		…
1317	const_iv (P_BLOCKSVIEW)	1309	const_iv (P_BLOCKSVIEW)
1318	const_iv (P_PLAYER)	1310	const_iv (P_PLAYER)
1319	const_iv (P_NO_MAGIC)	1311	const_iv (P_NO_MAGIC)
1320	const_iv (P_IS_ALIVE)	1312	const_iv (P_IS_ALIVE)
1321	const_iv (P_NO_CLERIC)	1313	const_iv (P_NO_CLERIC)
1322	const_iv (P_NEED_UPDATE)
1323	const_iv (P_OUT_OF_MAP)	1314	const_iv (P_OUT_OF_MAP)
1324	const_iv (P_NEW_MAP)	1315	const_iv (P_NEW_MAP)
		1316	const_iv (P_UPTODATE)
1325		1317
1326	const_iv (UP_OBJ_INSERT)	1318	const_iv (UP_OBJ_INSERT)
1327	const_iv (UP_OBJ_REMOVE)	1319	const_iv (UP_OBJ_REMOVE)
1328	const_iv (UP_OBJ_CHANGE)	1320	const_iv (UP_OBJ_CHANGE)
1329	const_iv (UP_OBJ_FACE)	1321	const_iv (UP_OBJ_FACE)
…		…
1488	const_iv (ST_SETUP)	1480	const_iv (ST_SETUP)
1489	const_iv (ST_PLAYING)	1481	const_iv (ST_PLAYING)
1490	const_iv (ST_CUSTOM)	1482	const_iv (ST_CUSTOM)
1491		1483
1492	const_iv (ST_CHANGE_CLASS)	1484	const_iv (ST_CHANGE_CLASS)
1493	const_iv (ST_CONFIRM_QUIT)
1494	const_iv (ST_GET_PARTY_PASSWORD)
1495		1485
1496	const_iv (IO_HEADER)	1486	const_iv (IO_HEADER)
1497	const_iv (IO_OBJECTS)	1487	const_iv (IO_OBJECTS)
1498	const_iv (IO_UNIQUES)	1488	const_iv (IO_UNIQUES)
		1489
		1490	// random map generator
		1491	const_iv (LAYOUT_NONE)
		1492	const_iv (LAYOUT_ONION)
		1493	const_iv (LAYOUT_MAZE)
		1494	const_iv (LAYOUT_SPIRAL)
		1495	const_iv (LAYOUT_ROGUELIKE)
		1496	const_iv (LAYOUT_SNAKE)
		1497	const_iv (LAYOUT_SQUARE_SPIRAL)
		1498
		1499	const_iv (RMOPT_RANDOM)
		1500	const_iv (RMOPT_CENTERED)
		1501	const_iv (RMOPT_LINEAR)
		1502	const_iv (RMOPT_BOTTOM_C)
		1503	const_iv (RMOPT_BOTTOM_R)
		1504	const_iv (RMOPT_IRR_SPACE)
		1505	const_iv (RMOPT_WALL_OFF)
		1506	const_iv (RMOPT_WALLS_ONLY)
		1507	const_iv (RMOPT_NO_DOORS)
		1508
		1509	const_iv (SYMMETRY_RANDOM)
		1510	const_iv (SYMMETRY_NONE)
		1511	const_iv (SYMMETRY_X)
		1512	const_iv (SYMMETRY_Y)
		1513	const_iv (SYMMETRY_XY)
1499	};	1514	};
1500		1515
1501	for (civ = const_iv + sizeof (const_iv) / sizeof (const_iv [0]); civ-- > const_iv; )	1516	for (civ = const_iv + sizeof (const_iv) / sizeof (const_iv [0]); civ-- > const_iv; )
1502	newCONSTSUB (stash_cf, (char *)civ->name, newSViv (civ->iv));	1517	newCONSTSUB (stash_cf, (char *)civ->name, newSViv (civ->iv));
1503		1518
…		…
1528		1543
1529	void _global_reattach ()	1544	void _global_reattach ()
1530	CODE:	1545	CODE:
1531	{	1546	{
1532	// reattach to all attachable objects in the game.	1547	// reattach to all attachable objects in the game.
1533	for (sockvec::iterator i = clients.begin (); i != clients.end (); ++i)	1548	for_all_clients (ns)
1534	(*i)->reattach ();	1549	ns->reattach ();
1535		1550
1536	for_all_players (pl)	1551	for_all_players (pl)
1537	pl->reattach ();	1552	pl->reattach ();
1538		1553
1539	//TODO	1554	//TODO
1540	//for (map_container::iterator i = maps.begin (); i != maps.end (); ++i)	1555	//for (map_container::iterator i = maps.begin (); i != maps.end (); ++i)
1541	// i->second->reattach ();	1556	// i->second->reattach ();
1542		1557
1543	for (object *op = object::first; op; op = op->next)	1558	for_all_objects (op)
1544	op->reattach ();	1559	op->reattach ();
1545	}	1560	}
1546		1561
1547	NV floor (NV x)	1562	NV floor (NV x)
1548		1563
…		…
1599	case 5: RETVAL = settings.playerdir; break;	1614	case 5: RETVAL = settings.playerdir; break;
1600	case 6: RETVAL = settings.datadir ; break;	1615	case 6: RETVAL = settings.datadir ; break;
1601	}	1616	}
1602	OUTPUT: RETVAL	1617	OUTPUT: RETVAL
1603		1618
		1619	void abort ()
		1620
1604	void emergency_save ()	1621	void emergency_save ()
1605		1622
1606	void _exit (int status = 0)	1623	void _exit (int status = 0)
		1624
		1625	#if _POSIX_MEMLOCK
		1626
		1627	int mlockall (int flags = MCL_CURRENT \| MCL_FUTURE)
		1628
		1629	int munlockall ()
		1630
		1631	#endif
1607		1632
1608	int find_animation (char *text)	1633	int find_animation (char *text)
1609	PROTOTYPE: $	1634	PROTOTYPE: $
1610		1635
1611	int random_roll (int min, int max, object *op, int goodbad);	1636	int random_roll (int min, int max, object *op, int goodbad);
…		…
1658	CODE:	1683	CODE:
1659	RETVAL = SvROK (obj) && mg_find (SvRV (obj), PERL_MAGIC_ext);	1684	RETVAL = SvROK (obj) && mg_find (SvRV (obj), PERL_MAGIC_ext);
1660	OUTPUT:	1685	OUTPUT:
1661	RETVAL	1686	RETVAL
1662		1687
1663	#bool	1688	INCLUDE: $PERL genacc attachable ../include/cfperl.h \|
1664	#destroyed (attachable *at)
1665	#
1666	#void
1667	#destroy (attachable *at)
1668		1689
1669	MODULE = cf PACKAGE = cf::global	1690	MODULE = cf PACKAGE = cf::global
1670		1691
1671	int invoke (SV *klass, int event, ...)	1692	int invoke (SV *klass, int event, ...)
1672	CODE:	1693	CODE:
…		…
1917	RETVAL = op->contr;	1938	RETVAL = op->contr;
1918	OUTPUT: RETVAL	1939	OUTPUT: RETVAL
1919		1940
1920	void check_score (object *op)	1941	void check_score (object *op)
1921		1942
1922	void cf_player_message (object obj, char txt, int flags = NDI_ORANGE \| NDI_UNIQUE)	1943	void message (object op, char txt, int flags = NDI_ORANGE \| NDI_UNIQUE)
		1944	CODE:
		1945	new_draw_info (flags, 0, op, txt);
1923		1946
1924	object cf_player_send_inventory (object op)	1947	object cf_player_send_inventory (object op)
1925		1948
1926	char cf_player_get_ip (object op)	1949	char cf_player_get_ip (object op)
1927	ALIAS: ip = 0	1950	ALIAS: ip = 0
…		…
1973	CODE:	1996	CODE:
1974	pl->ob->stats.hp = pl->ob->stats.maxhp;	1997	pl->ob->stats.hp = pl->ob->stats.maxhp;
1975	pl->ob->stats.sp = pl->ob->stats.maxsp;	1998	pl->ob->stats.sp = pl->ob->stats.maxsp;
1976	pl->ob->stats.grace = pl->ob->stats.maxgrace;	1999	pl->ob->stats.grace = pl->ob->stats.maxgrace;
1977	pl->orig_stats = pl->ob->stats;	2000	pl->orig_stats = pl->ob->stats;
1978
1979	player cf_player_find (char name)
1980	PROTOTYPE: $
1981		2001
1982	void cf_player_move (player *pl, int dir)	2002	void cf_player_move (player *pl, int dir)
1983		2003
1984	void play_sound_player_only (player *pl, int soundnum, int x = 0, int y = 0);	2004	void play_sound_player_only (player *pl, int soundnum, int x = 0, int y = 0);
1985		2005
…		…
2031	if (y) sv_to (y, pl->bed_y);	2051	if (y) sv_to (y, pl->bed_y);
2032		2052
2033	void	2053	void
2034	list ()	2054	list ()
2035	PPCODE:	2055	PPCODE:
2036	for (player *pl = first_player; pl; pl = pl->next)	2056	for_all_players (pl)
2037	XPUSHs (sv_2mortal (to_sv (pl)));	2057	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		2058
2061		2059
2062	MODULE = cf PACKAGE = cf::map PREFIX = cf_map_	2060	MODULE = cf PACKAGE = cf::map PREFIX = cf_map_
2063		2061
2064	int invoke (maptile *map, int event, ...)	2062	int invoke (maptile *map, int event, ...)
…		…
2082	RETVAL = new maptile;	2080	RETVAL = new maptile;
2083	OUTPUT:	2081	OUTPUT:
2084	RETVAL	2082	RETVAL
2085		2083
2086	void	2084	void
2087	maptile::destroy ()	2085	maptile::players ()
		2086	PPCODE:
		2087	if (GIMME_V == G_SCALAR)
		2088	XPUSHs (sv_2mortal (to_sv (THIS->players)));
		2089	else if (GIMME_V == G_ARRAY)
		2090	{
		2091	EXTEND (SP, THIS->players);
		2092	for_all_players (pl)
		2093	if (pl->ob && pl->ob->map == THIS)
		2094	PUSHs (sv_2mortal (to_sv (pl->ob)));
		2095	}
2088		2096
2089	void play_sound_map (maptile *map, int x, int y, int sound_num)	2097	void play_sound_map (maptile *map, int x, int y, int sound_num)
2090		2098
2091	int out_of_map (maptile *map, int x, int y)	2099	int out_of_map (maptile *map, int x, int y)
2092		2100
…		…
2168	case 4: RETVAL = newSVuv ( GET_MAP_MOVE_BLOCK (obj, x, y)); break;	2176	case 4: RETVAL = newSVuv ( GET_MAP_MOVE_BLOCK (obj, x, y)); break;
2169	case 5: RETVAL = newSVuv ( GET_MAP_MOVE_SLOW (obj, x, y)); break;	2177	case 5: RETVAL = newSVuv ( GET_MAP_MOVE_SLOW (obj, x, y)); break;
2170	case 6: RETVAL = newSVuv ( GET_MAP_MOVE_ON (obj, x, y)); break;	2178	case 6: RETVAL = newSVuv ( GET_MAP_MOVE_ON (obj, x, y)); break;
2171	case 7: RETVAL = newSVuv ( GET_MAP_MOVE_OFF (obj, x, y)); break;	2179	case 7: RETVAL = newSVuv ( GET_MAP_MOVE_OFF (obj, x, y)); break;
2172	}	2180	}
2173	OUTPUT:	2181	OUTPUT: RETVAL
		2182
		2183	void fix_walls (maptile *map, int x, int y)
		2184
		2185	void fix_walls_around (maptile *map, int x, int y)
		2186
		2187	const char *
		2188	region_name (maptile *m)
		2189	CODE:
		2190	RETVAL = get_name_of_region_for_map (m);
		2191	OUTPUT: RETVAL
		2192
		2193	# worst xs function of my life
		2194	maptile *
		2195	_create_random_map (\
		2196	char *path,\
		2197	char *wallstyle,\
		2198	char *wall_name,\
		2199	char *floorstyle,\
		2200	char *monsterstyle,\
		2201	char *treasurestyle,\
		2202	char *layoutstyle,\
		2203	char *doorstyle,\
		2204	char *decorstyle,\
		2205	char *origin_map,\
		2206	char *final_map,\
		2207	char *exitstyle,\
		2208	char *this_map,\
		2209	char *exit_on_final_map,\
		2210	int Xsize,\
		2211	int Ysize,\
		2212	int expand2x,\
		2213	int layoutoptions1,\
		2214	int layoutoptions2,\
		2215	int layoutoptions3,\
		2216	int symmetry,\
		2217	int difficulty,\
		2218	int difficulty_given,\
		2219	float difficulty_increase,\
		2220	int dungeon_level,\
		2221	int dungeon_depth,\
		2222	int decoroptions,\
		2223	int orientation,\
		2224	int origin_y,\
		2225	int origin_x,\
		2226	int random_seed,\
		2227	val64 total_map_hp,\
		2228	int map_layout_style,\
		2229	int treasureoptions,\
		2230	int symmetry_used,\
		2231	region *region\
		2232	)
		2233	CODE:
		2234	{
		2235	random_map_params rmp;
		2236
		2237	assign (rmp.wallstyle , wallstyle);
		2238	assign (rmp.wall_name , wall_name);
		2239	assign (rmp.floorstyle , floorstyle);
		2240	assign (rmp.monsterstyle , monsterstyle);
		2241	assign (rmp.treasurestyle , treasurestyle);
		2242	assign (rmp.layoutstyle , layoutstyle);
		2243	assign (rmp.doorstyle , doorstyle);
		2244	assign (rmp.decorstyle , decorstyle);
		2245	assign (rmp.exitstyle , exitstyle);
		2246	assign (rmp.exit_on_final_map, exit_on_final_map);
		2247
		2248	rmp.origin_map = origin_map;
		2249	rmp.final_map = final_map;
		2250	rmp.this_map = this_map;
		2251	rmp.Xsize = Xsize;
		2252	rmp.Ysize = Ysize;
		2253	rmp.expand2x = expand2x;
		2254	rmp.layoutoptions1 = layoutoptions1;
		2255	rmp.layoutoptions2 = layoutoptions2;
		2256	rmp.layoutoptions3 = layoutoptions3;
		2257	rmp.symmetry = symmetry;
		2258	rmp.difficulty = difficulty;
		2259	rmp.difficulty_given = difficulty_given;
		2260	rmp.difficulty_increase = difficulty_increase;
		2261	rmp.dungeon_level = dungeon_level;
		2262	rmp.dungeon_depth = dungeon_depth;
		2263	rmp.decoroptions = decoroptions;
		2264	rmp.orientation = orientation;
		2265	rmp.origin_y = origin_y;
		2266	rmp.origin_x = origin_x;
		2267	rmp.random_seed = random_seed;
		2268	rmp.total_map_hp = total_map_hp;
		2269	rmp.map_layout_style = map_layout_style;
		2270	rmp.treasureoptions = treasureoptions;
		2271	rmp.symmetry_used = symmetry_used;
		2272	rmp.region = region;
		2273
		2274	RETVAL = generate_random_map (path, &rmp);
		2275	}
		2276	OUTPUT:
2174	RETVAL	2277	RETVAL
2175
2176	void fix_walls (maptile *map, int x, int y)
2177
2178	void fix_walls_around (maptile *map, int x, int y)
2179		2278
2180	MODULE = cf PACKAGE = cf::arch	2279	MODULE = cf PACKAGE = cf::arch
2181		2280
2182	archetype find (const char name)	2281	archetype find (const char name)
2183	CODE:	2282	CODE:
…		…
2199	PROTOTYPE:	2298	PROTOTYPE:
2200	CODE:	2299	CODE:
2201	RETVAL = get_firstparty ();	2300	RETVAL = get_firstparty ();
2202	OUTPUT: RETVAL	2301	OUTPUT: RETVAL
2203		2302
2204	partylist next (partylist party)	2303	INCLUDE: $PERL genacc partylist ../include/player.h \|
2205	CODE:
2206	RETVAL = party->next;
2207	OUTPUT: RETVAL
2208
2209	const char name (partylist party)
2210	CODE:
2211	RETVAL = party->partyname;
2212	OUTPUT: RETVAL
2213
2214	const char password (partylist party)
2215	CODE:
2216	RETVAL = party->passwd;
2217	OUTPUT: RETVAL
2218		2304
2219	MODULE = cf PACKAGE = cf::region	2305	MODULE = cf PACKAGE = cf::region
2220		2306
2221	region *first ()	2307	region *first ()
2222	PROTOTYPE:	2308	PROTOTYPE:
2223	CODE:	2309	CODE:
2224	RETVAL = first_region;	2310	RETVAL = first_region;
2225	OUTPUT: RETVAL	2311	OUTPUT: RETVAL
2226		2312
2227	region next (region reg)	2313	region find (char name)
		2314	PROTOTYPE: $
2228	CODE:	2315	CODE:
2229	RETVAL = reg->next;	2316	RETVAL = get_region_by_name (name);
2230	OUTPUT: RETVAL	2317	OUTPUT: RETVAL
2231		2318
2232	const char name (region reg)	2319	INCLUDE: $PERL genacc region ../include/map.h \|
2233	CODE:
2234	RETVAL = reg->name;
2235	OUTPUT: RETVAL
2236
2237	region parent (region reg)
2238	CODE:
2239	RETVAL = reg->parent;
2240	OUTPUT: RETVAL
2241
2242	const char longname (region reg)
2243	CODE:
2244	RETVAL = reg->longname;
2245	OUTPUT: RETVAL
2246
2247	const char msg (region reg)
2248	CODE:
2249	RETVAL = reg->msg;
2250	OUTPUT: RETVAL
2251		2320
2252	MODULE = cf PACKAGE = cf::living	2321	MODULE = cf PACKAGE = cf::living
2253		2322
2254	INCLUDE: $PERL genacc living ../include/living.h \|	2323	INCLUDE: $PERL genacc living ../include/living.h \|
2255		2324
…		…
2286	char *buf = SvPVbyte (packet, len);	2355	char *buf = SvPVbyte (packet, len);
2287		2356
2288	THIS->send_packet (buf, len);	2357	THIS->send_packet (buf, len);
2289	}	2358	}
2290		2359
2291	void
2292	client::destroy ()
2293

Diff Legend

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

Comparing deliantra/server/server/cfperl.xs (file contents): Revision 1.116 by root, Sat Dec 30 10:16:11 2006 UTC vs. Revision 1.131 by root, Mon Jan 8 18:18:35 2007 UTC

Diff Legend

Comparing deliantra/server/server/cfperl.xs (file contents):
Revision 1.116 by root, Sat Dec 30 10:16:11 2006 UTC vs.
Revision 1.131 by root, Mon Jan 8 18:18:35 2007 UTC