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

Comparing deliantra/server/server/cfperl.xs (file contents):
Revision 1.273 by root, Sun Apr 6 16:13:22 2008 UTC vs.
Revision 1.303 by root, Tue Sep 23 04:29:11 2008 UTC

…		…
21	* The authors can be reached via e-mail to <support@deliantra.net>	21	* The authors can be reached via e-mail to <support@deliantra.net>
22	*/	22	*/
23		23
24	#include "autoconf.h"	24	#include "autoconf.h"
25		25
26	#define PLUGIN_NAME "perl"
27	#define PLUGIN_VERSION "cfperl 0.5"
28
29	#if HAVE_EXECINFO_H	26	#if HAVE_EXECINFO_H
30	# include <execinfo.h>	27	# include <execinfo.h>
31	#endif	28	#endif
32		29
33	#include <cstdarg>	30	#include <cstdarg>
		31	#include <typeinfo>
34		32
35	#include "global.h"	33	#include "global.h"
36	#include "loader.h"	34	#include "loader.h"
37	#include "../random_maps/random_map.h"	35	#include "../random_maps/random_map.h"
38	#include "evthread.h"	36	#include "evthread.h"
…		…
45		43
46	#if HAVE_MALLOC_H	44	#if HAVE_MALLOC_H
47	# include <malloc.h>	45	# include <malloc.h>
48	#endif	46	#endif
49		47
		48	#if !__GLIBC__
		49	# define malloc_trim(pad) -1
		50	#endif
		51
50	#include <EXTERN.h>	52	#include <EXTERN.h>
51	#include <perl.h>	53	#include <perl.h>
52	#include <XSUB.h>	54	#include <XSUB.h>
53		55
54	#include "CoroAPI.h"	56	#include "CoroAPI.h"
…		…
58		60
59	typedef object_thawer &object_thawer_ref;	61	typedef object_thawer &object_thawer_ref;
60	typedef object_freezer &object_freezer_ref;	62	typedef object_freezer &object_freezer_ref;
61		63
62	typedef std::string std__string;	64	typedef std::string std__string;
63
64	#if IVSIZE >= 8
65	typedef IV val64;
66	# define newSVval64 newSViv
67	# define SvVAL64 SvIV
68	#else
69	typedef double val64;
70	# define newSVval64 newSVnv
71	# define SvVAL64 SvNV
72	#endif
73		65
74	static PerlInterpreter *perl;	66	static PerlInterpreter *perl;
75		67
76	tstamp NOW, runtime;	68	tstamp NOW, runtime;
77		69
…		…
89	*stash_cf,	81	*stash_cf,
90	*stash_cf_object_wrap,	82	*stash_cf_object_wrap,
91	*stash_cf_object_player_wrap,	83	*stash_cf_object_player_wrap,
92	*stash_cf_player_wrap,	84	*stash_cf_player_wrap,
93	*stash_cf_map_wrap,	85	*stash_cf_map_wrap,
		86	*stash_cf_mapspace_wrap,
94	*stash_cf_client_wrap,	87	*stash_cf_client_wrap,
95	*stash_cf_arch_wrap,	88	*stash_cf_arch_wrap,
96	*stash_cf_party_wrap,	89	*stash_cf_party_wrap,
97	*stash_cf_region_wrap,	90	*stash_cf_region_wrap,
98	*stash_cf_living_wrap;	91	*stash_cf_living_wrap;
…		…
437	inline SV to_sv (maptile v) { return newSVattachable (v, stash_cf_map_wrap); }	430	inline SV to_sv (maptile v) { return newSVattachable (v, stash_cf_map_wrap); }
438	inline SV to_sv (archetype v) { return newSVattachable (v, stash_cf_arch_wrap); }	431	inline SV to_sv (archetype v) { return newSVattachable (v, stash_cf_arch_wrap); }
439	inline SV to_sv (region v) { return newSVattachable (v, stash_cf_region_wrap); }	432	inline SV to_sv (region v) { return newSVattachable (v, stash_cf_region_wrap); }
440	inline SV to_sv (partylist v) { return newSVptr (v, stash_cf_party_wrap); }	433	inline SV to_sv (partylist v) { return newSVptr (v, stash_cf_party_wrap); }
441	inline SV to_sv (living v) { return newSVptr (v, stash_cf_living_wrap); }	434	inline SV to_sv (living v) { return newSVptr (v, stash_cf_living_wrap); }
		435	inline SV to_sv (mapspace v) { return newSVptr (v, stash_cf_mapspace_wrap); }
442		436
443	inline SV *to_sv (object & v) { return to_sv (&v); }	437	inline SV *to_sv (object & v) { return to_sv (&v); }
444	inline SV *to_sv (living & v) { return to_sv (&v); }	438	inline SV *to_sv (living & v) { return to_sv (&v); }
445		439
446	inline SV *to_sv (const std::string & v) { return newSVpvn (v.data (), v.size ()); }	440	inline SV *to_sv (const std::string & v) { return newSVpvn (v.data (), v.size ()); }
447	inline SV to_sv (const treasurelist v) { return to_sv (v->name); }	441	inline SV to_sv (const treasurelist v) { return to_sv (v->name); }
448		442
		443	inline SV *to_sv (UUID v) { return newSVpv (v.c_str (), 0); }
		444
449	inline SV *to_sv (UUID v)	445	inline SV to_sv (dynbuf v)
450	{	446	{
451	char buf[128];	447	SV *sv = newSV (0);
452	snprintf (buf, 128, "<1.%" PRIx64 ">", v.seq);	448
453	return newSVpv (buf, 0);	449	sv_upgrade (sv, SVt_PV);
		450	SvGROW (sv, v->size () + 1);
		451	SvPOK_only (sv);
		452	v->linearise (SvPVX (sv));
		453	SvCUR_set (sv, v->size ());
		454	*SvEND (sv) = 0;
		455
		456	return sv;
		457	}
		458
		459	inline SV to_sv (dynbuf_text v)
		460	{
		461	SV sv = to_sv (static_cast<dynbuf > (v));
		462	SvUTF8_on (sv);
		463	return sv;
454	}	464	}
455		465
456	inline void sv_to (SV *sv, shstr &v) { v = SvOK (sv) ? SvPVutf8_nolen (sv) : 0; }	466	inline void sv_to (SV *sv, shstr &v) { v = SvOK (sv) ? SvPVutf8_nolen (sv) : 0; }
457	inline void sv_to (SV sv, char &v) { free (v); v = SvOK (sv) ? strdup (SvPV_nolen (sv)) : 0; }	467	inline void sv_to (SV sv, char &v) { free (v); v = SvOK (sv) ? strdup (SvPV_nolen (sv)) : 0; }
458	inline void sv_to (SV *sv, bool &v) { v = SvIV (sv); }	468	inline void sv_to (SV *sv, bool &v) { v = SvIV (sv); }
…		…
475	inline void sv_to (SV sv, maptile &v) { v = (maptile )(attachable )SvPTR_ornull (sv, "cf::map"); }	485	inline void sv_to (SV sv, maptile &v) { v = (maptile )(attachable )SvPTR_ornull (sv, "cf::map"); }
476	inline void sv_to (SV sv, region &v) { v = (region )(attachable )SvPTR_ornull (sv, "cf::region"); }	486	inline void sv_to (SV sv, region &v) { v = (region )(attachable )SvPTR_ornull (sv, "cf::region"); }
477	inline void sv_to (SV sv, attachable &v) { v = (attachable *)SvPTR_ornull (sv, "cf::attachable"); }	487	inline void sv_to (SV sv, attachable &v) { v = (attachable *)SvPTR_ornull (sv, "cf::attachable"); }
478	inline void sv_to (SV sv, partylist &v) { v = (partylist *)SvPTR_ornull (sv, "cf::party"); }	488	inline void sv_to (SV sv, partylist &v) { v = (partylist *)SvPTR_ornull (sv, "cf::party"); }
479	inline void sv_to (SV sv, living &v) { v = (living *)SvPTR_ornull (sv, "cf::living"); }	489	inline void sv_to (SV sv, living &v) { v = (living *)SvPTR_ornull (sv, "cf::living"); }
		490	inline void sv_to (SV sv, mapspace &v) { v = (mapspace *)SvPTR_ornull (sv, "cf::mapspace"); }
480	inline void sv_to (SV sv, object_freezer &v) { v = (object_freezer *)SvPTR_ornull (sv, "cf::object::freezer"); }	491	inline void sv_to (SV sv, object_freezer &v) { v = (object_freezer *)SvPTR_ornull (sv, "cf::object::freezer"); }
481	inline void sv_to (SV sv, object_thawer &v) { v = (object_thawer *)SvPTR_ornull (sv, "cf::object::thawer" ); }	492	inline void sv_to (SV sv, object_thawer &v) { v = (object_thawer *)SvPTR_ornull (sv, "cf::object::thawer" ); }
482		493
483	//inline void sv_to (SV sv, faceinfo &v) { v = &faces [face_find (SvPV_nolen (sv), 0)]; }	494	//inline void sv_to (SV sv, faceinfo &v) { v = &faces [face_find (SvPV_nolen (sv), 0)]; }
484	inline void sv_to (SV sv, treasurelist &v) { v = treasurelist::find (SvPV_nolen (sv)); }	495	inline void sv_to (SV sv, treasurelist &v) { v = treasurelist::find (SvPV_nolen (sv)); }
…		…
501	v.assign (data, len);	512	v.assign (data, len);
502	}	513	}
503		514
504	inline void sv_to (SV *sv, UUID &v)	515	inline void sv_to (SV *sv, UUID &v)
505	{	516	{
506	unsigned int version;	517	if (!v.parse (SvPV_nolen (sv)))
507
508	if (2 != sscanf (SvPV_nolen (sv), "<%d.%" SCNx64 ">", &version, &v.seq) \|\| 1 != version)
509	croak ("unparsable uuid: %s", SvPV_nolen (sv));	518	croak ("unparsable uuid: %s", SvPV_nolen (sv));
510	}	519	}
511		520
512	inline void sv_to (SV *sv, object::flags_t::reference v) { v = SvTRUE (sv); }	521	inline void sv_to (SV *sv, object::flags_t::reference v) { v = SvTRUE (sv); }
513		522
…		…
618	PL_exit_flags \|= PERL_EXIT_DESTRUCT_END;	627	PL_exit_flags \|= PERL_EXIT_DESTRUCT_END;
619		628
620	const char *argv[] = {	629	const char *argv[] = {
621	settings.argv [0],	630	settings.argv [0],
622	"-e"	631	"-e"
623	"use EV; use Coro;" // required for bootstrap	632	"use EV ();"
624	"cf->bootstrap;" // required for datadir :*>	633	"use Coro ();"
		634	"cf->bootstrap;"
625	"unshift @INC, cf::datadir ();"	635	"unshift @INC, cf::datadir ();"
626	"require cf;"	636	"require cf;"
627	};	637	};
628		638
629	if (perl_parse (perl, xs_init, 2, (char **)argv, environ)	639	if (perl_parse (perl, xs_init, 2, (char **)argv, environ)
630	\|\| perl_run (perl))	640	\|\| perl_run (perl))
631	{	641	{
632	printf ("unable to initialize perl-interpreter, aborting.\n");	642	printf ("unable to initialize perl-interpreter, aborting.\n");
633	exit (EXIT_FAILURE);	643	exit (EXIT_FAILURE);
634	}	644	}
635
636	{
637	dSP;
638
639	PUSHMARK (SP);
640	PUTBACK;
641	call_pv ("cf::init", G_DISCARD \| G_VOID);
642	}
643	}	645	}
644		646
645	void cfperl_main ()	647	void cfperl_main ()
646	{	648	{
647	dSP;	649	dSP;
…		…
990	{	992	{
991	CALL_BEGIN (1);	993	CALL_BEGIN (1);
992	CALL_ARG (name);	994	CALL_ARG (name);
993	CALL_CALL ("cf::player::find", G_SCALAR);	995	CALL_CALL ("cf::player::find", G_SCALAR);
994		996
995	player *retval;	997	player *retval = 0;
996
997	if (count)
998	sv_to (POPs, retval);	998	if (count) sv_to (POPs, retval);
999	else	999
1000	retval = 0;	1000	CALL_END;
		1001
		1002	return retval;
		1003	}
		1004
		1005	maptile *
		1006	find_style (const char dirname, const char stylename, int difficulty)
		1007	{
		1008	CALL_BEGIN (3);
		1009	CALL_ARG (dirname);
		1010	CALL_ARG (stylename);
		1011	CALL_ARG (difficulty);
		1012	CALL_CALL ("ext::map_random::find_style", G_SCALAR);
		1013
		1014	maptile *retval = 0;
		1015	if (count) sv_to (POPs, retval);
1001		1016
1002	CALL_END;	1017	CALL_END;
1003		1018
1004	return retval;	1019	return retval;
1005	}	1020	}
…		…
1010	CALL_BEGIN (2);	1025	CALL_BEGIN (2);
1011	CALL_ARG (path);	1026	CALL_ARG (path);
1012	CALL_ARG (origin);	1027	CALL_ARG (origin);
1013	CALL_CALL ("cf::map::find_sync", G_SCALAR);	1028	CALL_CALL ("cf::map::find_sync", G_SCALAR);
1014		1029
1015	maptile *retval;	1030	maptile *retval = 0;
1016
1017	if (count)
1018	sv_to (POPs, retval);	1031	if (count) sv_to (POPs, retval);
1019	else
1020	retval = 0;
1021		1032
1022	CALL_END;	1033	CALL_END;
1023		1034
1024	return retval;	1035	return retval;
1025	}	1036	}
…		…
1031	CALL_ARG (path);	1042	CALL_ARG (path);
1032	CALL_ARG (origin);	1043	CALL_ARG (origin);
1033	CALL_ARG (load);	1044	CALL_ARG (load);
1034	CALL_CALL ("cf::map::find_async", G_SCALAR);	1045	CALL_CALL ("cf::map::find_async", G_SCALAR);
1035		1046
1036	maptile *retval;	1047	maptile *retval = 0;
1037
1038	if (count)
1039	sv_to (POPs, retval);	1048	if (count) sv_to (POPs, retval);
1040	else
1041	retval = 0;
1042		1049
1043	CALL_END;	1050	CALL_END;
1044		1051
1045	return retval;	1052	return retval;
1046	}	1053	}
…		…
1071		1078
1072	CALL_BEGIN (2);	1079	CALL_BEGIN (2);
1073	CALL_ARG (this);	1080	CALL_ARG (this);
1074	CALL_ARG (exit);	1081	CALL_ARG (exit);
1075	CALL_CALL ("cf::object::player::enter_exit", G_VOID);	1082	CALL_CALL ("cf::object::player::enter_exit", G_VOID);
		1083	CALL_END;
		1084	}
		1085
		1086	void
		1087	object::player_goto (const char *path, int x, int y)
		1088	{
		1089	if (type != PLAYER)
		1090	return;
		1091
		1092	CALL_BEGIN (4);
		1093	CALL_ARG (this);
		1094	CALL_ARG (path);
		1095	CALL_ARG (x);
		1096	CALL_ARG (y);
		1097	CALL_CALL ("cf::object::player::goto", G_VOID);
1076	CALL_END;	1098	CALL_END;
1077	}	1099	}
1078		1100
1079	const char *	1101	const char *
1080	object::ref () const	1102	object::ref () const
…		…
1167		1189
1168	stash_cf_object_wrap = gv_stashpv ("cf::object::wrap", 1);	1190	stash_cf_object_wrap = gv_stashpv ("cf::object::wrap", 1);
1169	stash_cf_object_player_wrap = gv_stashpv ("cf::object::player::wrap", 1);	1191	stash_cf_object_player_wrap = gv_stashpv ("cf::object::player::wrap", 1);
1170	stash_cf_player_wrap = gv_stashpv ("cf::player::wrap", 1);	1192	stash_cf_player_wrap = gv_stashpv ("cf::player::wrap", 1);
1171	stash_cf_map_wrap = gv_stashpv ("cf::map::wrap" , 1);	1193	stash_cf_map_wrap = gv_stashpv ("cf::map::wrap" , 1);
		1194	stash_cf_mapspace_wrap = gv_stashpv ("cf::mapspace::wrap" , 1);
1172	stash_cf_client_wrap = gv_stashpv ("cf::client::wrap", 1);	1195	stash_cf_client_wrap = gv_stashpv ("cf::client::wrap", 1);
1173	stash_cf_arch_wrap = gv_stashpv ("cf::arch::wrap" , 1);	1196	stash_cf_arch_wrap = gv_stashpv ("cf::arch::wrap" , 1);
1174	stash_cf_party_wrap = gv_stashpv ("cf::party::wrap" , 1);	1197	stash_cf_party_wrap = gv_stashpv ("cf::party::wrap" , 1);
1175	stash_cf_region_wrap = gv_stashpv ("cf::region::wrap", 1);	1198	stash_cf_region_wrap = gv_stashpv ("cf::region::wrap", 1);
1176	stash_cf_living_wrap = gv_stashpv ("cf::living::wrap", 1);	1199	stash_cf_living_wrap = gv_stashpv ("cf::living::wrap", 1);
…		…
1296	const_iv (FLAG_CURSED) const_iv (FLAG_DAMNED) const_iv (FLAG_SEE_ANYWHERE) const_iv (FLAG_KNOWN_MAGICAL)	1319	const_iv (FLAG_CURSED) const_iv (FLAG_DAMNED) const_iv (FLAG_SEE_ANYWHERE) const_iv (FLAG_KNOWN_MAGICAL)
1297	const_iv (FLAG_KNOWN_CURSED) const_iv (FLAG_CAN_USE_SKILL) const_iv (FLAG_BEEN_APPLIED) const_iv (FLAG_READY_SCROLL)	1320	const_iv (FLAG_KNOWN_CURSED) const_iv (FLAG_CAN_USE_SKILL) const_iv (FLAG_BEEN_APPLIED) const_iv (FLAG_READY_SCROLL)
1298	const_iv (FLAG_USE_ROD) const_iv (FLAG_USE_HORN) const_iv (FLAG_MAKE_INVIS) const_iv (FLAG_INV_LOCKED)	1321	const_iv (FLAG_USE_ROD) const_iv (FLAG_USE_HORN) const_iv (FLAG_MAKE_INVIS) const_iv (FLAG_INV_LOCKED)
1299	const_iv (FLAG_IS_WOODED) const_iv (FLAG_IS_HILLY) const_iv (FLAG_READY_SKILL) const_iv (FLAG_READY_WEAPON)	1322	const_iv (FLAG_IS_WOODED) const_iv (FLAG_IS_HILLY) const_iv (FLAG_READY_SKILL) const_iv (FLAG_READY_WEAPON)
1300	const_iv (FLAG_NO_SKILL_IDENT) const_iv (FLAG_BLIND) const_iv (FLAG_SEE_IN_DARK) const_iv (FLAG_IS_CAULDRON)	1323	const_iv (FLAG_NO_SKILL_IDENT) const_iv (FLAG_BLIND) const_iv (FLAG_SEE_IN_DARK) const_iv (FLAG_IS_CAULDRON)
1301	const_iv (FLAG_NO_STEAL) const_iv (FLAG_ONE_HIT) const_iv (FLAG_CLIENT_SENT) const_iv (FLAG_BERSERK)	1324	const_iv (FLAG_NO_STEAL) const_iv (FLAG_ONE_HIT) const_iv (FLAG_DEBUG) const_iv (FLAG_BERSERK)
1302	const_iv (FLAG_NEUTRAL) const_iv (FLAG_NO_ATTACK) const_iv (FLAG_NO_DAMAGE) const_iv (FLAG_OBJ_ORIGINAL)	1325	const_iv (FLAG_NEUTRAL) const_iv (FLAG_NO_ATTACK) const_iv (FLAG_NO_DAMAGE) const_iv (FLAG_OBJ_ORIGINAL)
1303	const_iv (FLAG_ACTIVATE_ON_PUSH) const_iv (FLAG_ACTIVATE_ON_RELEASE) const_iv (FLAG_IS_WATER)	1326	const_iv (FLAG_ACTIVATE_ON_PUSH) const_iv (FLAG_ACTIVATE_ON_RELEASE) const_iv (FLAG_IS_WATER)
1304	const_iv (FLAG_CONTENT_ON_GEN) const_iv (FLAG_IS_A_TEMPLATE) const_iv (FLAG_IS_BUILDABLE)	1327	const_iv (FLAG_CONTENT_ON_GEN) const_iv (FLAG_IS_A_TEMPLATE) const_iv (FLAG_IS_BUILDABLE)
1305	const_iv (FLAG_DESTROY_ON_DEATH) const_iv (FLAG_NO_MAP_SAVE)	1328	const_iv (FLAG_DESTROY_ON_DEATH) const_iv (FLAG_NO_MAP_SAVE)
1306		1329
1307	const_iv (NDI_BLACK) const_iv (NDI_WHITE) const_iv (NDI_NAVY) const_iv (NDI_RED)	1330	const_iv (NDI_BLACK) const_iv (NDI_WHITE) const_iv (NDI_NAVY) const_iv (NDI_RED)
1308	const_iv (NDI_ORANGE) const_iv (NDI_BLUE) const_iv (NDI_DK_ORANGE) const_iv (NDI_GREEN)	1331	const_iv (NDI_ORANGE) const_iv (NDI_BLUE) const_iv (NDI_DK_ORANGE) const_iv (NDI_GREEN)
1309	const_iv (NDI_LT_GREEN) const_iv (NDI_GREY) const_iv (NDI_BROWN) const_iv (NDI_GOLD)	1332	const_iv (NDI_LT_GREEN) const_iv (NDI_GREY) const_iv (NDI_BROWN) const_iv (NDI_GOLD)
1310	const_iv (NDI_TAN) const_iv (NDI_MAX_COLOR) const_iv (NDI_COLOR_MASK) const_iv (NDI_UNIQUE)	1333	const_iv (NDI_TAN) const_iv (NDI_MAX_COLOR) const_iv (NDI_COLOR_MASK) const_iv (NDI_UNIQUE)
1311	const_iv (NDI_ALL) const_iv (NDI_DEF) const_iv (NDI_REPLY) const_iv (NDI_CLIENT_MASK)	1334	const_iv (NDI_ALL) const_iv (NDI_DEF) const_iv (NDI_REPLY) const_iv (NDI_CLIENT_MASK)
1312	const_iv (NDI_NOCREATE) const_iv (NDI_CLEAR)	1335	const_iv (NDI_NOCREATE) const_iv (NDI_CLEAR) const_iv (NDI_VERBATIM)
1313		1336
1314	const_iv (UPD_LOCATION) const_iv (UPD_FLAGS) const_iv (UPD_WEIGHT) const_iv (UPD_FACE)	1337	const_iv (UPD_LOCATION) const_iv (UPD_FLAGS) const_iv (UPD_WEIGHT) const_iv (UPD_FACE)
1315	const_iv (UPD_NAME) const_iv (UPD_ANIM) const_iv (UPD_ANIMSPEED) const_iv (UPD_NROF)	1338	const_iv (UPD_NAME) const_iv (UPD_ANIM) const_iv (UPD_ANIMSPEED) const_iv (UPD_NROF)
1316		1339
1317	const_iv (UPD_SP_MANA) const_iv (UPD_SP_GRACE) const_iv (UPD_SP_DAMAGE)	1340	const_iv (UPD_SP_MANA) const_iv (UPD_SP_GRACE) const_iv (UPD_SP_DAMAGE)
…		…
1369	const_iv (F_CURSED) const_iv (F_DAMNED) const_iv (F_OPEN) const_iv (F_NOPICK)	1392	const_iv (F_CURSED) const_iv (F_DAMNED) const_iv (F_OPEN) const_iv (F_NOPICK)
1370	const_iv (F_LOCKED)	1393	const_iv (F_LOCKED)
1371		1394
1372	const_iv (F_BUY) const_iv (F_SHOP) const_iv (F_SELL)	1395	const_iv (F_BUY) const_iv (F_SHOP) const_iv (F_SELL)
1373		1396
1374	const_iv (P_BLOCKSVIEW) const_iv (P_PLAYER) const_iv (P_NO_MAGIC) const_iv (P_IS_ALIVE)	1397	const_iv (P_BLOCKSVIEW) const_iv (P_NO_MAGIC) const_iv (P_IS_ALIVE)
1375	const_iv (P_NO_CLERIC) const_iv (P_OUT_OF_MAP) const_iv (P_NEW_MAP) const_iv (P_UPTODATE)	1398	const_iv (P_NO_CLERIC) const_iv (P_OUT_OF_MAP) const_iv (P_NEW_MAP) const_iv (P_UPTODATE)
1376		1399
1377	const_iv (UP_OBJ_INSERT) const_iv (UP_OBJ_REMOVE) const_iv (UP_OBJ_CHANGE) const_iv (UP_OBJ_FACE)	1400	const_iv (UP_OBJ_INSERT) const_iv (UP_OBJ_REMOVE) const_iv (UP_OBJ_CHANGE) const_iv (UP_OBJ_FACE)
1378		1401
1379	const_iv (INS_NO_MERGE) const_iv (INS_ABOVE_FLOOR_ONLY) const_iv (INS_NO_WALK_ON)	1402	const_iv (INS_NO_MERGE) const_iv (INS_ABOVE_FLOOR_ONLY) const_iv (INS_NO_WALK_ON)
…		…
1419	const_iv (ATNR_PARALYZE) const_iv (ATNR_TURN_UNDEAD) const_iv (ATNR_FEAR) const_iv (ATNR_CANCELLATION)	1442	const_iv (ATNR_PARALYZE) const_iv (ATNR_TURN_UNDEAD) const_iv (ATNR_FEAR) const_iv (ATNR_CANCELLATION)
1420	const_iv (ATNR_DEPLETE) const_iv (ATNR_DEATH) const_iv (ATNR_CHAOS) const_iv (ATNR_COUNTERSPELL)	1443	const_iv (ATNR_DEPLETE) const_iv (ATNR_DEATH) const_iv (ATNR_CHAOS) const_iv (ATNR_COUNTERSPELL)
1421	const_iv (ATNR_GODPOWER) const_iv (ATNR_HOLYWORD) const_iv (ATNR_BLIND) const_iv (ATNR_INTERNAL)	1444	const_iv (ATNR_GODPOWER) const_iv (ATNR_HOLYWORD) const_iv (ATNR_BLIND) const_iv (ATNR_INTERNAL)
1422	const_iv (ATNR_LIFE_STEALING) const_iv (ATNR_DISEASE)	1445	const_iv (ATNR_LIFE_STEALING) const_iv (ATNR_DISEASE)
1423		1446
1424	const_iv (MAP_IN_MEMORY) const_iv (MAP_SWAPPED) const_iv (MAP_LOADING) const_iv (MAP_SAVING)	1447	const_iv (MAP_ACTIVE) const_iv (MAP_SWAPPED) const_iv (MAP_LOADING) const_iv (MAP_SAVING)
		1448	const_iv (MAP_INACTIVE)
1425		1449
1426	const_iv (KLASS_ATTACHABLE) const_iv (KLASS_GLOBAL) const_iv (KLASS_OBJECT)	1450	const_iv (KLASS_ATTACHABLE) const_iv (KLASS_GLOBAL) const_iv (KLASS_OBJECT)
1427	const_iv (KLASS_CLIENT) const_iv (KLASS_PLAYER) const_iv (KLASS_MAP)	1451	const_iv (KLASS_CLIENT) const_iv (KLASS_PLAYER) const_iv (KLASS_MAP)
1428		1452
1429	const_iv (VERSION_CS) const_iv (VERSION_SC)	1453	const_iv (VERSION_CS) const_iv (VERSION_SC)
…		…
1444		1468
1445	const_iv (SYMMETRY_RANDOM) const_iv (SYMMETRY_NONE) const_iv (SYMMETRY_X)	1469	const_iv (SYMMETRY_RANDOM) const_iv (SYMMETRY_NONE) const_iv (SYMMETRY_X)
1446	const_iv (SYMMETRY_Y) const_iv (SYMMETRY_XY)	1470	const_iv (SYMMETRY_Y) const_iv (SYMMETRY_XY)
1447		1471
1448	const_iv (GT_ENVIRONMENT) const_iv (GT_INVISIBLE) const_iv (GT_STARTEQUIP)	1472	const_iv (GT_ENVIRONMENT) const_iv (GT_INVISIBLE) const_iv (GT_STARTEQUIP)
1449	const_iv (GT_APPLY) const_iv (GT_ONLY_GOOD) const_iv (GT_UPDATE_INV)	1473	const_iv (GT_APPLY) const_iv (GT_ONLY_GOOD) const_iv (GT_MINIMAL)
1450	const_iv (GT_MINIMAL)
1451		1474
1452	const_iv (FT_FACE) const_iv (FT_MUSIC) const_iv (FT_SOUND)	1475	const_iv (FT_FACE) const_iv (FT_MUSIC) const_iv (FT_SOUND)
1453	const_iv (FT_RSRC) const_iv (FT_NUM)	1476	const_iv (FT_RSRC) const_iv (FT_NUM)
1454	};	1477	};
1455		1478
…		…
1477	av_store (av, eiv->iv, newRV_noinc ((SV *)event));	1500	av_store (av, eiv->iv, newRV_noinc ((SV *)event));
1478	newCONSTSUB (stash_cf, (char *)eiv->name, newSViv (eiv->iv));	1501	newCONSTSUB (stash_cf, (char *)eiv->name, newSViv (eiv->iv));
1479	}	1502	}
1480	}	1503	}
1481		1504
		1505	void _gv_clear (SV *gv)
		1506	CODE:
		1507	assert (SvTYPE (gv) == SVt_PVGV);
		1508	# define f(sv) { SV sv_ = (SV )(sv); sv = 0; SvREFCNT_dec (sv_); }
		1509	f (GvGP (gv)->gp_form);
		1510	f (GvGP (gv)->gp_io);
		1511	f (GvGP (gv)->gp_sv);
		1512	f (GvGP (gv)->gp_av);
		1513	f (GvGP (gv)->gp_hv);
		1514	f (GvGP (gv)->gp_cv);
		1515	GvCVGEN (gv) = 0;
		1516	GvMULTI_off (gv);
		1517	# undef f
		1518
1482	void _connect_to_perl ()	1519	void _connect_to_perl ()
1483		1520
1484	void _recalc_want ()	1521	void _recalc_want ()
1485		1522
1486	void _global_reattach ()	1523	void _global_reattach ()
…		…
1534	}	1571	}
1535		1572
1536	SvCUR_set (data_sv, dst - SvPVX (data_sv));	1573	SvCUR_set (data_sv, dst - SvPVX (data_sv));
1537	}	1574	}
1538		1575
		1576	void init_anim ()
		1577
		1578	void init_globals ()
		1579
		1580	void init_experience ()
		1581
		1582	void init_attackmess ()
		1583
		1584	void init_dynamic ()
		1585
		1586	void init_block ()
		1587
		1588	void load_settings ()
		1589
		1590	void load_materials ()
		1591
		1592	void init_uuid ()
		1593	CODE:
		1594	UUID::init ();
		1595
		1596	void init_signals ()
		1597
		1598	void init_commands ()
		1599
		1600	void init_skills ()
		1601
		1602	void init_beforeplay ()
		1603
1539	void evthread_start (int aiofd)	1604	void evthread_start (int aiofd)
1540		1605
1541	void cede_to_tick ()	1606	void cede_to_tick ()
1542	CODE:	1607	CODE:
1543	coroapi::cede_to_tick ();	1608	coroapi::cede_to_tick ();
…		…
1586	NV floor (NV x)	1651	NV floor (NV x)
1587		1652
1588	NV ceil (NV x)	1653	NV ceil (NV x)
1589		1654
1590	NV rndm (...)	1655	NV rndm (...)
		1656	ALIAS:
		1657	rmg_rndm = 1
1591	CODE:	1658	CODE:
		1659	{
		1660	rand_gen &gen = ix ? rmg_rndm : rndm;
1592	switch (items)	1661	switch (items)
1593	{	1662	{
1594	case 0: RETVAL = rndm (); break;	1663	case 0: RETVAL = gen (); break;
1595	case 1: RETVAL = rndm (SvUV (ST (0))); break;	1664	case 1: RETVAL = gen (SvUV (ST (0))); break;
1596	case 2: RETVAL = rndm (SvIV (ST (0)), SvIV (ST (1))); break;	1665	case 2: RETVAL = gen (SvIV (ST (0)), SvIV (ST (1))); break;
1597	default: croak ("cf::rndm requires none, one or two parameters."); break;	1666	default: croak ("cf::rndm requires none, one or two parameters."); break;
1598	}	1667	}
		1668	}
1599	OUTPUT:	1669	OUTPUT:
1600	RETVAL	1670	RETVAL
1601		1671
1602	NV clamp (NV value, NV min_value, NV max_value)	1672	NV clamp (NV value, NV min_value, NV max_value)
1603	CODE:	1673	CODE:
…		…
1628	octet_string path_combine (octet_string base, octet_string path)	1698	octet_string path_combine (octet_string base, octet_string path)
1629	PROTOTYPE: $$	1699	PROTOTYPE: $$
1630		1700
1631	octet_string path_combine_and_normalize (octet_string base, octet_string path)	1701	octet_string path_combine_and_normalize (octet_string base, octet_string path)
1632	PROTOTYPE: $$	1702	PROTOTYPE: $$
1633
1634	void
1635	mallinfo ()
1636	PPCODE:
1637	{
1638	#if __GLIBC__
1639	struct mallinfo mai = mallinfo ();
1640	EXTEND (SP, 10*2);
1641	PUSHs (sv_2mortal (newSVpv ("arena" , 0))); PUSHs (sv_2mortal (newSViv (mai.arena)));
1642	PUSHs (sv_2mortal (newSVpv ("ordblks" , 0))); PUSHs (sv_2mortal (newSViv (mai.ordblks)));
1643	PUSHs (sv_2mortal (newSVpv ("smblks" , 0))); PUSHs (sv_2mortal (newSViv (mai.smblks)));
1644	PUSHs (sv_2mortal (newSVpv ("hblks" , 0))); PUSHs (sv_2mortal (newSViv (mai.hblks)));
1645	PUSHs (sv_2mortal (newSVpv ("hblkhd" , 0))); PUSHs (sv_2mortal (newSViv (mai.hblkhd)));
1646	PUSHs (sv_2mortal (newSVpv ("usmblks" , 0))); PUSHs (sv_2mortal (newSViv (mai.usmblks)));
1647	PUSHs (sv_2mortal (newSVpv ("fsmblks" , 0))); PUSHs (sv_2mortal (newSViv (mai.fsmblks)));
1648	PUSHs (sv_2mortal (newSVpv ("uordblks", 0))); PUSHs (sv_2mortal (newSViv (mai.uordblks)));
1649	PUSHs (sv_2mortal (newSVpv ("fordblks", 0))); PUSHs (sv_2mortal (newSViv (mai.fordblks)));
1650	PUSHs (sv_2mortal (newSVpv ("keepcost", 0))); PUSHs (sv_2mortal (newSViv (mai.keepcost)));
1651	#endif
1652	EXTEND (SP, 2*2);
1653	PUSHs (sv_2mortal (newSVpv ("slice_alloc", 0))); PUSHs (sv_2mortal (newSVuv (slice_alloc)));
1654	PUSHs (sv_2mortal (newSVpv ("shstr_alloc", 0))); PUSHs (sv_2mortal (newSVuv (shstr_alloc)));
1655	}
1656		1703
1657	void	1704	void
1658	sub_generation_inc ()	1705	sub_generation_inc ()
1659	CODE:	1706	CODE:
1660	PL_sub_generation++;	1707	PL_sub_generation++;
…		…
1697		1744
1698	#if _POSIX_MEMLOCK	1745	#if _POSIX_MEMLOCK
1699		1746
1700	int mlockall (int flags = MCL_CURRENT \| MCL_FUTURE)	1747	int mlockall (int flags = MCL_CURRENT \| MCL_FUTURE)
1701	INIT:	1748	INIT:
		1749	#if __GLIBC__
		1750	mallopt (M_TOP_PAD, 1024 * 1024);
		1751	mallopt (M_MMAP_THRESHOLD, 1024 * 1024 * 128);
		1752	mallopt (M_MMAP_MAX, 0); // likely bug-workaround, also frees memory
1702	mallopt (M_PERTURB, 0xaa); // bug-workaround for linux glibc+mlockall+calloc	1753	mallopt (M_PERTURB, 0xee); // bug-workaround for linux glibc+mlockall+calloc
		1754	#endif
1703		1755
1704	int munlockall ()	1756	int munlockall ()
1705		1757
1706	#endif	1758	#endif
		1759
		1760	int
		1761	malloc_trim (IV pad = 0)
		1762
		1763	void
		1764	mallinfo ()
		1765	PPCODE:
		1766	{
		1767	#if __GLIBC__
		1768	struct mallinfo mai = mallinfo ();
		1769	EXTEND (SP, 10*2);
		1770	PUSHs (sv_2mortal (newSVpv ("arena" , 0))); PUSHs (sv_2mortal (newSViv (mai.arena)));
		1771	PUSHs (sv_2mortal (newSVpv ("ordblks" , 0))); PUSHs (sv_2mortal (newSViv (mai.ordblks)));
		1772	PUSHs (sv_2mortal (newSVpv ("smblks" , 0))); PUSHs (sv_2mortal (newSViv (mai.smblks)));
		1773	PUSHs (sv_2mortal (newSVpv ("hblks" , 0))); PUSHs (sv_2mortal (newSViv (mai.hblks)));
		1774	PUSHs (sv_2mortal (newSVpv ("hblkhd" , 0))); PUSHs (sv_2mortal (newSViv (mai.hblkhd)));
		1775	PUSHs (sv_2mortal (newSVpv ("usmblks" , 0))); PUSHs (sv_2mortal (newSViv (mai.usmblks)));
		1776	PUSHs (sv_2mortal (newSVpv ("fsmblks" , 0))); PUSHs (sv_2mortal (newSViv (mai.fsmblks)));
		1777	PUSHs (sv_2mortal (newSVpv ("uordblks", 0))); PUSHs (sv_2mortal (newSViv (mai.uordblks)));
		1778	PUSHs (sv_2mortal (newSVpv ("fordblks", 0))); PUSHs (sv_2mortal (newSViv (mai.fordblks)));
		1779	PUSHs (sv_2mortal (newSVpv ("keepcost", 0))); PUSHs (sv_2mortal (newSViv (mai.keepcost)));
		1780	#endif
		1781	EXTEND (SP, 2*2);
		1782	PUSHs (sv_2mortal (newSVpv ("slice_alloc", 0))); PUSHs (sv_2mortal (newSVuv (slice_alloc)));
		1783	PUSHs (sv_2mortal (newSVpv ("shstr_alloc", 0))); PUSHs (sv_2mortal (newSVuv (shstr_alloc)));
		1784	PUSHs (sv_2mortal (newSVpv ("objects" , 0))); PUSHs (sv_2mortal (newSVuv (objects.size () * sizeof (object))));
		1785	}
1707		1786
1708	int find_animation (utf8_string text)	1787	int find_animation (utf8_string text)
1709	PROTOTYPE: $	1788	PROTOTYPE: $
1710		1789
1711	int random_roll (int min, int max, object *op, int goodbad);	1790	int random_roll (int min, int max, object *op, int goodbad);
…		…
1749	RETVAL = newSVpv (resist_plus[atnr], 0);	1828	RETVAL = newSVpv (resist_plus[atnr], 0);
1750	else	1829	else
1751	XSRETURN_UNDEF;	1830	XSRETURN_UNDEF;
1752	OUTPUT: RETVAL	1831	OUTPUT: RETVAL
1753		1832
		1833	UUID
		1834	uuid_cur ()
		1835	CODE:
		1836	RETVAL = UUID::cur;
		1837	OUTPUT:
		1838	RETVAL
		1839
		1840	UUID
		1841	uuid_gen ()
		1842	CODE:
		1843	RETVAL = UUID::gen ();
		1844	OUTPUT:
		1845	RETVAL
		1846
		1847	val64
		1848	uuid_seq (UUID uuid)
		1849	CODE:
		1850	RETVAL = uuid.seq;
		1851	OUTPUT:
		1852	RETVAL
		1853
		1854	UUID
		1855	uuid_str (val64 seq)
		1856	CODE:
		1857	RETVAL.seq = seq;
		1858	OUTPUT:
		1859	RETVAL
		1860
		1861	void
		1862	coin_names ()
		1863	PPCODE:
		1864	EXTEND (SP, NUM_COINS);
		1865	for (int i = 0; i < NUM_COINS; ++i)
		1866	PUSHs (sv_2mortal (newSVpv (coins [i], 0)));
		1867
		1868	void
		1869	coin_archetypes ()
		1870	PPCODE:
		1871	EXTEND (SP, NUM_COINS);
		1872	for (int i = 0; i < NUM_COINS; ++i)
		1873	PUSHs (sv_2mortal (to_sv (archetype::find (coins [i]))));
		1874
1754	bool	1875	bool
1755	load_resource_file (octet_string filename)	1876	load_resource_file_ (octet_string filename)
		1877
		1878	void
		1879	fix_weight ()
1756		1880
1757	MODULE = cf PACKAGE = cf::attachable	1881	MODULE = cf PACKAGE = cf::attachable
1758		1882
1759	int	1883	int
1760	valid (SV *obj)	1884	valid (SV *obj)
…		…
1824	object *actives (U32 index)	1948	object *actives (U32 index)
1825	CODE:	1949	CODE:
1826	RETVAL = index < actives.size () ? actives [index] : 0;	1950	RETVAL = index < actives.size () ? actives [index] : 0;
1827	OUTPUT: RETVAL	1951	OUTPUT: RETVAL
1828		1952
		1953	int mortals_size ()
		1954	CODE:
		1955	RETVAL = attachable::mortals.size ();
		1956	OUTPUT: RETVAL
		1957
1829	const char *slot_use_name (U32 slot)	1958	const char *slot_use_name (U32 slot)
1830	ALIAS:	1959	ALIAS:
1831	slot_nonuse_name = 1	1960	slot_nonuse_name = 1
1832	CODE:	1961	CODE:
1833	{	1962	{
…		…
1911	void apply_below (object *op)	2040	void apply_below (object *op)
1912	CODE:	2041	CODE:
1913	player_apply_below (op);	2042	player_apply_below (op);
1914		2043
1915	int cast_heal (object op, object caster, object *spell, int dir = 0)	2044	int cast_heal (object op, object caster, object *spell, int dir = 0)
1916
1917	#//TODO
1918	object clone_ (object op, int recursive = 0)
1919	CODE:
1920	if (recursive)
1921	RETVAL = object_create_clone (op);
1922	else
1923	{
1924	RETVAL = object::create ();
1925	op->copy_to (RETVAL);
1926	}
1927	OUTPUT: RETVAL
1928		2045
1929	int pay_item (object op, object buyer)	2046	int pay_item (object op, object buyer)
1930	CODE:	2047	CODE:
1931	RETVAL = pay_for_item (op, buyer);	2048	RETVAL = pay_for_item (op, buyer);
1932	OUTPUT: RETVAL	2049	OUTPUT: RETVAL
…		…
2010	CODE:	2127	CODE:
2011	{	2128	{
2012	RETVAL = insert_ob_in_map_at (ob, where, orig, flag, x, y);	2129	RETVAL = insert_ob_in_map_at (ob, where, orig, flag, x, y);
2013	}	2130	}
2014		2131
2015	const_utf8_string get_ob_key_value (object *op, utf8_string key)	2132	shstr
		2133	object::kv_get (shstr key)
2016		2134
2017	bool set_ob_key_value (object *op, utf8_string key, utf8_string value = 0, int add_key = 1)	2135	void
		2136	object::kv_del (shstr key)
		2137
		2138	void
		2139	object::kv_set (shstr key, shstr value)
2018		2140
2019	object get_nearest_player (object ob)	2141	object get_nearest_player (object ob)
2020	ALIAS: nearest_player = 0	2142	ALIAS: nearest_player = 0
2021	PREINIT:	2143	PREINIT:
2022	extern object get_nearest_player (object );	2144	extern object get_nearest_player (object );
…		…
2024	void rangevector (object ob, object other, int flags = 0)	2146	void rangevector (object ob, object other, int flags = 0)
2025	PROTOTYPE: $$;$	2147	PROTOTYPE: $$;$
2026	PPCODE:	2148	PPCODE:
2027	{	2149	{
2028	rv_vector rv;	2150	rv_vector rv;
		2151
		2152	PUTBACK;
2029	get_rangevector (ob, other, &rv, flags);	2153	get_rangevector (ob, other, &rv, flags);
		2154	SPAGAIN;
		2155
2030	EXTEND (SP, 5);	2156	EXTEND (SP, 5);
2031	PUSHs (newSVuv (rv.distance));	2157	PUSHs (newSVuv (rv.distance));
2032	PUSHs (newSViv (rv.distance_x));	2158	PUSHs (newSViv (rv.distance_x));
2033	PUSHs (newSViv (rv.distance_y));	2159	PUSHs (newSViv (rv.distance_y));
2034	PUSHs (newSViv (rv.direction));	2160	PUSHs (newSViv (rv.direction));
…		…
2044	base_name (object *op, int plural = op->nrof > 1)	2170	base_name (object *op, int plural = op->nrof > 1)
2045	CODE:	2171	CODE:
2046	RETVAL = query_base_name (op, plural);	2172	RETVAL = query_base_name (op, plural);
2047	OUTPUT: RETVAL	2173	OUTPUT: RETVAL
2048		2174
2049	object decrease_ob_nr (object op, unsigned long i)
2050
2051	# return the tail of an object, excluding itself	2175	# return the tail of an object, excluding itself
2052	void	2176	void
2053	tail (object *op)	2177	tail (object *op)
2054	PPCODE:	2178	PPCODE:
2055	while ((op = op->more))	2179	while ((op = op->more))
…		…
2127	if (len > MAXSOCKBUF)	2251	if (len > MAXSOCKBUF)
2128	pl->failmsg ("[packet too long for client]");	2252	pl->failmsg ("[packet too long for client]");
2129	else if (pl->ns)	2253	else if (pl->ns)
2130	pl->ns->send_packet (buf, len);	2254	pl->ns->send_packet (buf, len);
2131	}	2255	}
2132
2133	int
2134	listening (player *pl, int new_value = -1)
2135	CODE:
2136	RETVAL = pl->listening;
2137	if (new_value >= 0)
2138	pl->listening = new_value;
2139	OUTPUT:
2140	RETVAL
2141		2256
2142	void savebed (player pl, SV map_path = 0, SV x = 0, SV y = 0)	2257	void savebed (player pl, SV map_path = 0, SV x = 0, SV y = 0)
2143	PROTOTYPE: $;$$$	2258	PROTOTYPE: $;$$$
2144	PPCODE:	2259	PPCODE:
2145	if (GIMME_V != G_VOID)	2260	if (GIMME_V != G_VOID)
…		…
2300	}	2415	}
2301		2416
2302	void	2417	void
2303	maptile::create_region_treasure ()	2418	maptile::create_region_treasure ()
2304	CODE:	2419	CODE:
2305	{
2306	object *op = object::create ();
2307	op->type = FLOOR;
2308	op->map = THIS;
2309
2310	for (int x = 0; x < THIS->width; ++x)	2420	for (int x = 0; x < THIS->width; ++x)
2311	for (int y = 0; y < THIS->height; ++y)	2421	for (int y = 0; y < THIS->height; ++y)
2312	{	2422	{
2313	region *rgn = THIS->region (x, y);	2423	region *rgn = THIS->region (x, y);
2314		2424
2315	//fprintf (stderr, "%d,%d %f %p\n", x, y, rgn->treasure_density,rgn->treasure);//D	2425	//fprintf (stderr, "%d,%d %f %p\n", x, y, rgn->treasure_density,rgn->treasure);//D
		2426	if (object *op = THIS->at (x, y).top)
2316	if (rgn->treasure && rndm () < rgn->treasure_density)	2427	if (rgn->treasure && rndm () < rgn->treasure_density)
2317	{
2318	op->x = x;
2319	op->y = y;
2320	create_treasure (rgn->treasure, op, GT_ENVIRONMENT, THIS->difficulty);	2428	create_treasure (rgn->treasure, op, GT_ENVIRONMENT, THIS->difficulty);
2321	}
2322	}	2429	}
2323
2324	op->destroy ();
2325	}
2326		2430
2327	int out_of_map (maptile *map, int x, int y)	2431	int out_of_map (maptile *map, int x, int y)
2328		2432
2329	void	2433	void
2330	trigger (maptile *map, long connection, bool state = true)	2434	trigger (maptile *map, long connection, bool state = true)
…		…
2343	get_map_flags (maptile *map, int x, int y)	2447	get_map_flags (maptile *map, int x, int y)
2344	PPCODE:	2448	PPCODE:
2345	{	2449	{
2346	maptile *nmap = 0;	2450	maptile *nmap = 0;
2347	I16 nx = 0, ny = 0;	2451	I16 nx = 0, ny = 0;
		2452
		2453	PUTBACK;
2348	int flags = get_map_flags (map, &nmap, x, y, &nx, &ny);	2454	int flags = get_map_flags (map, &nmap, x, y, &nx, &ny);
		2455	SPAGAIN;
2349		2456
2350	EXTEND (SP, 4);	2457	EXTEND (SP, 4);
2351	PUSHs (sv_2mortal (newSViv (flags)));	2458	PUSHs (sv_2mortal (newSViv (flags)));
2352		2459
2353	if (GIMME_V == G_ARRAY)	2460	if (GIMME_V == G_ARRAY)
…		…
2356	PUSHs (sv_2mortal (newSViv (nx)));	2463	PUSHs (sv_2mortal (newSViv (nx)));
2357	PUSHs (sv_2mortal (newSViv (ny)));	2464	PUSHs (sv_2mortal (newSViv (ny)));
2358	}	2465	}
2359	}	2466	}
2360		2467
		2468	mapspace *
		2469	ms (maptile *map, unsigned int x, unsigned int y)
		2470	PROTOTYPE: $$$
		2471	CODE:
		2472	{
		2473	maptile *nmap = 0;
		2474	I16 nx, ny;
		2475
		2476	PUTBACK;
		2477	get_map_flags (map, &nmap, x, y, &nx, &ny);
		2478	SPAGAIN;
		2479
		2480	if (!nmap)
		2481	XSRETURN_UNDEF;
		2482
		2483	RETVAL = &nmap->at (nx, ny);
		2484	}
		2485	OUTPUT:
		2486	RETVAL
		2487
2361	void	2488	void
2362	at (maptile *map, unsigned int x, unsigned int y)	2489	at (maptile *map, unsigned int x, unsigned int y)
2363	PROTOTYPE: $$$	2490	PROTOTYPE: $$$
2364	PPCODE:	2491	PPCODE:
2365	{	2492	{
2366	object *o;
2367	maptile *nmap = 0;	2493	maptile *nmap = 0;
2368	I16 nx, ny;	2494	I16 nx, ny;
2369		2495
		2496	PUTBACK;
2370	get_map_flags (map, &nmap, x, y, &nx, &ny);	2497	get_map_flags (map, &nmap, x, y, &nx, &ny);
		2498	SPAGAIN;
2371		2499
2372	if (nmap)	2500	if (nmap)
2373	for (o = GET_MAP_OB (nmap, nx, ny); o; o = o->above)	2501	for (object *o = nmap->at (nx, ny).bot; o; o = o->above)
2374	XPUSHs (sv_2mortal (to_sv (o)));	2502	XPUSHs (sv_2mortal (to_sv (o)));
2375	}	2503	}
2376		2504
2377	SV *	2505	SV *
2378	bot_at (maptile *obj, unsigned int x, unsigned int y)	2506	bot_at (maptile *obj, unsigned int x, unsigned int y)
…		…
2491	RETVAL = self->generate_random_map (&rmp);	2619	RETVAL = self->generate_random_map (&rmp);
2492	}	2620	}
2493	OUTPUT:	2621	OUTPUT:
2494	RETVAL	2622	RETVAL
2495		2623
		2624	MODULE = cf PACKAGE = cf::mapspace
		2625
		2626	INCLUDE: $PERL $srcdir/genacc mapspace ../include/map.h \|
		2627
2496	MODULE = cf PACKAGE = cf::arch	2628	MODULE = cf PACKAGE = cf::arch
2497		2629
2498	int archetypes_size ()	2630	int archetypes_size ()
2499	CODE:	2631	CODE:
2500	RETVAL = archetypes.size ();	2632	RETVAL = archetypes.size ();

Diff Legend

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

Comparing deliantra/server/server/cfperl.xs (file contents): Revision 1.273 by root, Sun Apr 6 16:13:22 2008 UTC vs. Revision 1.303 by root, Tue Sep 23 04:29:11 2008 UTC

Diff Legend

Comparing deliantra/server/server/cfperl.xs (file contents):
Revision 1.273 by root, Sun Apr 6 16:13:22 2008 UTC vs.
Revision 1.303 by root, Tue Sep 23 04:29:11 2008 UTC