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

Comparing deliantra/server/server/cfperl.xs (file contents):
Revision 1.272 by root, Wed Apr 2 11:13:56 2008 UTC vs.
Revision 1.304 by root, Wed Oct 1 05:50:19 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
…		…
617		626
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	"-e0"
623	"use EV; use Coro;" // required for bootstrap
624	"cf->bootstrap;" // required for datadir :*>
625	"unshift @INC, cf::datadir ();"
626	"require cf;"
627	};	632	};
628		633
629	if (perl_parse (perl, xs_init, 2, (char **)argv, environ)	634	if (perl_parse (perl, xs_init, 2, (char **)argv, environ)
630	\|\| perl_run (perl))	635	\|\| perl_run (perl))
631	{	636	{
632	printf ("unable to initialize perl-interpreter, aborting.\n");	637	printf ("unable to initialize perl-interpreter, aborting.\n");
633	exit (EXIT_FAILURE);	638	exit (EXIT_FAILURE);
634	}	639	}
635		640
		641	eval_pv (
		642	"#line 1 'cfperl init'\n"
		643	"use EV ();\n"
		644	"use Coro ();\n"
		645	"cf->bootstrap;\n"
		646	"unshift @INC, cf::datadir ();\n"
		647	"require cf;\n",
		648	0
		649	);
		650
		651	if (SvTRUE (ERRSV))
636	{	652	{
637	dSP;	653	printf ("unable to bootstrap perl, aborting:\n%s", SvPV_nolen (ERRSV));
638		654	exit (EXIT_FAILURE);
639	PUSHMARK (SP);
640	PUTBACK;
641	call_pv ("cf::init", G_DISCARD \| G_VOID);
642	}	655	}
643	}	656	}
644		657
645	void cfperl_main ()	658	void cfperl_main ()
646	{	659	{
647	dSP;	660	dSP;
…		…
990	{	1003	{
991	CALL_BEGIN (1);	1004	CALL_BEGIN (1);
992	CALL_ARG (name);	1005	CALL_ARG (name);
993	CALL_CALL ("cf::player::find", G_SCALAR);	1006	CALL_CALL ("cf::player::find", G_SCALAR);
994		1007
995	player *retval;	1008	player *retval = 0;
996
997	if (count)
998	sv_to (POPs, retval);	1009	if (count) sv_to (POPs, retval);
999	else	1010
1000	retval = 0;	1011	CALL_END;
		1012
		1013	return retval;
		1014	}
		1015
		1016	maptile *
		1017	find_style (const char dirname, const char stylename, int difficulty)
		1018	{
		1019	CALL_BEGIN (3);
		1020	CALL_ARG (dirname);
		1021	CALL_ARG (stylename);
		1022	CALL_ARG (difficulty);
		1023	CALL_CALL ("ext::map_random::find_style", G_SCALAR);
		1024
		1025	maptile *retval = 0;
		1026	if (count) sv_to (POPs, retval);
1001		1027
1002	CALL_END;	1028	CALL_END;
1003		1029
1004	return retval;	1030	return retval;
1005	}	1031	}
…		…
1010	CALL_BEGIN (2);	1036	CALL_BEGIN (2);
1011	CALL_ARG (path);	1037	CALL_ARG (path);
1012	CALL_ARG (origin);	1038	CALL_ARG (origin);
1013	CALL_CALL ("cf::map::find_sync", G_SCALAR);	1039	CALL_CALL ("cf::map::find_sync", G_SCALAR);
1014		1040
1015	maptile *retval;	1041	maptile *retval = 0;
1016
1017	if (count)
1018	sv_to (POPs, retval);	1042	if (count) sv_to (POPs, retval);
1019	else
1020	retval = 0;
1021		1043
1022	CALL_END;	1044	CALL_END;
1023		1045
1024	return retval;	1046	return retval;
1025	}	1047	}
…		…
1031	CALL_ARG (path);	1053	CALL_ARG (path);
1032	CALL_ARG (origin);	1054	CALL_ARG (origin);
1033	CALL_ARG (load);	1055	CALL_ARG (load);
1034	CALL_CALL ("cf::map::find_async", G_SCALAR);	1056	CALL_CALL ("cf::map::find_async", G_SCALAR);
1035		1057
1036	maptile *retval;	1058	maptile *retval = 0;
1037
1038	if (count)
1039	sv_to (POPs, retval);	1059	if (count) sv_to (POPs, retval);
1040	else
1041	retval = 0;
1042		1060
1043	CALL_END;	1061	CALL_END;
1044		1062
1045	return retval;	1063	return retval;
1046	}	1064	}
…		…
1071		1089
1072	CALL_BEGIN (2);	1090	CALL_BEGIN (2);
1073	CALL_ARG (this);	1091	CALL_ARG (this);
1074	CALL_ARG (exit);	1092	CALL_ARG (exit);
1075	CALL_CALL ("cf::object::player::enter_exit", G_VOID);	1093	CALL_CALL ("cf::object::player::enter_exit", G_VOID);
		1094	CALL_END;
		1095	}
		1096
		1097	void
		1098	object::player_goto (const char *path, int x, int y)
		1099	{
		1100	if (type != PLAYER)
		1101	return;
		1102
		1103	CALL_BEGIN (4);
		1104	CALL_ARG (this);
		1105	CALL_ARG (path);
		1106	CALL_ARG (x);
		1107	CALL_ARG (y);
		1108	CALL_CALL ("cf::object::player::goto", G_VOID);
1076	CALL_END;	1109	CALL_END;
1077	}	1110	}
1078		1111
1079	const char *	1112	const char *
1080	object::ref () const	1113	object::ref () const
…		…
1167		1200
1168	stash_cf_object_wrap = gv_stashpv ("cf::object::wrap", 1);	1201	stash_cf_object_wrap = gv_stashpv ("cf::object::wrap", 1);
1169	stash_cf_object_player_wrap = gv_stashpv ("cf::object::player::wrap", 1);	1202	stash_cf_object_player_wrap = gv_stashpv ("cf::object::player::wrap", 1);
1170	stash_cf_player_wrap = gv_stashpv ("cf::player::wrap", 1);	1203	stash_cf_player_wrap = gv_stashpv ("cf::player::wrap", 1);
1171	stash_cf_map_wrap = gv_stashpv ("cf::map::wrap" , 1);	1204	stash_cf_map_wrap = gv_stashpv ("cf::map::wrap" , 1);
		1205	stash_cf_mapspace_wrap = gv_stashpv ("cf::mapspace::wrap" , 1);
1172	stash_cf_client_wrap = gv_stashpv ("cf::client::wrap", 1);	1206	stash_cf_client_wrap = gv_stashpv ("cf::client::wrap", 1);
1173	stash_cf_arch_wrap = gv_stashpv ("cf::arch::wrap" , 1);	1207	stash_cf_arch_wrap = gv_stashpv ("cf::arch::wrap" , 1);
1174	stash_cf_party_wrap = gv_stashpv ("cf::party::wrap" , 1);	1208	stash_cf_party_wrap = gv_stashpv ("cf::party::wrap" , 1);
1175	stash_cf_region_wrap = gv_stashpv ("cf::region::wrap", 1);	1209	stash_cf_region_wrap = gv_stashpv ("cf::region::wrap", 1);
1176	stash_cf_living_wrap = gv_stashpv ("cf::living::wrap", 1);	1210	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)	1330	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)	1331	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)	1332	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)	1333	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)	1334	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)	1335	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)	1336	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)	1337	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)	1338	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)	1339	const_iv (FLAG_DESTROY_ON_DEATH) const_iv (FLAG_NO_MAP_SAVE)
1306		1340
1307	const_iv (NDI_BLACK) const_iv (NDI_WHITE) const_iv (NDI_NAVY) const_iv (NDI_RED)	1341	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)	1342	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)	1343	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)	1344	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)	1345	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)	1346	const_iv (NDI_NOCREATE) const_iv (NDI_CLEAR) const_iv (NDI_VERBATIM)
1313		1347
1314	const_iv (UPD_LOCATION) const_iv (UPD_FLAGS) const_iv (UPD_WEIGHT) const_iv (UPD_FACE)	1348	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)	1349	const_iv (UPD_NAME) const_iv (UPD_ANIM) const_iv (UPD_ANIMSPEED) const_iv (UPD_NROF)
1316		1350
1317	const_iv (UPD_SP_MANA) const_iv (UPD_SP_GRACE) const_iv (UPD_SP_DAMAGE)	1351	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)	1403	const_iv (F_CURSED) const_iv (F_DAMNED) const_iv (F_OPEN) const_iv (F_NOPICK)
1370	const_iv (F_LOCKED)	1404	const_iv (F_LOCKED)
1371		1405
1372	const_iv (F_BUY) const_iv (F_SHOP) const_iv (F_SELL)	1406	const_iv (F_BUY) const_iv (F_SHOP) const_iv (F_SELL)
1373		1407
1374	const_iv (P_BLOCKSVIEW) const_iv (P_PLAYER) const_iv (P_NO_MAGIC) const_iv (P_IS_ALIVE)	1408	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)	1409	const_iv (P_NO_CLERIC) const_iv (P_OUT_OF_MAP) const_iv (P_NEW_MAP) const_iv (P_UPTODATE)
1376		1410
1377	const_iv (UP_OBJ_INSERT) const_iv (UP_OBJ_REMOVE) const_iv (UP_OBJ_CHANGE) const_iv (UP_OBJ_FACE)	1411	const_iv (UP_OBJ_INSERT) const_iv (UP_OBJ_REMOVE) const_iv (UP_OBJ_CHANGE) const_iv (UP_OBJ_FACE)
1378		1412
1379	const_iv (INS_NO_MERGE) const_iv (INS_ABOVE_FLOOR_ONLY) const_iv (INS_NO_WALK_ON)	1413	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)	1453	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)	1454	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)	1455	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)	1456	const_iv (ATNR_LIFE_STEALING) const_iv (ATNR_DISEASE)
1423		1457
1424	const_iv (MAP_IN_MEMORY) const_iv (MAP_SWAPPED) const_iv (MAP_LOADING) const_iv (MAP_SAVING)	1458	const_iv (MAP_ACTIVE) const_iv (MAP_SWAPPED) const_iv (MAP_LOADING) const_iv (MAP_SAVING)
		1459	const_iv (MAP_INACTIVE)
1425		1460
1426	const_iv (KLASS_ATTACHABLE) const_iv (KLASS_GLOBAL) const_iv (KLASS_OBJECT)	1461	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)	1462	const_iv (KLASS_CLIENT) const_iv (KLASS_PLAYER) const_iv (KLASS_MAP)
1428		1463
1429	const_iv (VERSION_CS) const_iv (VERSION_SC)	1464	const_iv (VERSION_CS) const_iv (VERSION_SC)
…		…
1444		1479
1445	const_iv (SYMMETRY_RANDOM) const_iv (SYMMETRY_NONE) const_iv (SYMMETRY_X)	1480	const_iv (SYMMETRY_RANDOM) const_iv (SYMMETRY_NONE) const_iv (SYMMETRY_X)
1446	const_iv (SYMMETRY_Y) const_iv (SYMMETRY_XY)	1481	const_iv (SYMMETRY_Y) const_iv (SYMMETRY_XY)
1447		1482
1448	const_iv (GT_ENVIRONMENT) const_iv (GT_INVISIBLE) const_iv (GT_STARTEQUIP)	1483	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)	1484	const_iv (GT_APPLY) const_iv (GT_ONLY_GOOD) const_iv (GT_MINIMAL)
1450	const_iv (GT_MINIMAL)
1451		1485
1452	const_iv (FT_FACE) const_iv (FT_MUSIC) const_iv (FT_SOUND)	1486	const_iv (FT_FACE) const_iv (FT_MUSIC) const_iv (FT_SOUND)
1453	const_iv (FT_RSRC) const_iv (FT_NUM)	1487	const_iv (FT_RSRC) const_iv (FT_NUM)
1454	};	1488	};
1455		1489
…		…
1477	av_store (av, eiv->iv, newRV_noinc ((SV *)event));	1511	av_store (av, eiv->iv, newRV_noinc ((SV *)event));
1478	newCONSTSUB (stash_cf, (char *)eiv->name, newSViv (eiv->iv));	1512	newCONSTSUB (stash_cf, (char *)eiv->name, newSViv (eiv->iv));
1479	}	1513	}
1480	}	1514	}
1481		1515
		1516	void _gv_clear (SV *gv)
		1517	CODE:
		1518	assert (SvTYPE (gv) == SVt_PVGV);
		1519	# define f(sv) { SV sv_ = (SV )(sv); sv = 0; SvREFCNT_dec (sv_); }
		1520	f (GvGP (gv)->gp_form);
		1521	f (GvGP (gv)->gp_io);
		1522	f (GvGP (gv)->gp_sv);
		1523	f (GvGP (gv)->gp_av);
		1524	f (GvGP (gv)->gp_hv);
		1525	f (GvGP (gv)->gp_cv);
		1526	GvCVGEN (gv) = 0;
		1527	GvMULTI_off (gv);
		1528	# undef f
		1529
1482	void _connect_to_perl ()	1530	void _connect_to_perl ()
1483		1531
1484	void _recalc_want ()	1532	void _recalc_want ()
1485		1533
		1534	# not used by default anymore
1486	void _global_reattach ()	1535	void _global_reattach ()
1487	CODE:	1536	CODE:
1488	{	1537	{
1489	// reattach to all attachable objects in the game.	1538	// reattach to all attachable objects in the game.
1490	for_all_clients (ns)	1539	for_all_clients (ns)
…		…
1534	}	1583	}
1535		1584
1536	SvCUR_set (data_sv, dst - SvPVX (data_sv));	1585	SvCUR_set (data_sv, dst - SvPVX (data_sv));
1537	}	1586	}
1538		1587
		1588	void init_anim ()
		1589
		1590	void init_globals ()
		1591
		1592	void init_experience ()
		1593
		1594	void init_attackmess ()
		1595
		1596	void init_dynamic ()
		1597
		1598	void init_block ()
		1599
		1600	void load_settings ()
		1601
		1602	void load_materials ()
		1603
		1604	void init_uuid ()
		1605	CODE:
		1606	UUID::init ();
		1607
		1608	void init_signals ()
		1609
		1610	void init_commands ()
		1611
		1612	void init_skills ()
		1613
		1614	void init_beforeplay ()
		1615
1539	void evthread_start ()	1616	void evthread_start (int aiofd)
1540		1617
1541	void cede_to_tick ()	1618	void cede_to_tick ()
1542	CODE:	1619	CODE:
1543	coroapi::cede_to_tick ();	1620	coroapi::cede_to_tick ();
1544		1621
…		…
1586	NV floor (NV x)	1663	NV floor (NV x)
1587		1664
1588	NV ceil (NV x)	1665	NV ceil (NV x)
1589		1666
1590	NV rndm (...)	1667	NV rndm (...)
		1668	ALIAS:
		1669	rmg_rndm = 1
1591	CODE:	1670	CODE:
		1671	{
		1672	rand_gen &gen = ix ? rmg_rndm : rndm;
1592	switch (items)	1673	switch (items)
1593	{	1674	{
1594	case 0: RETVAL = rndm (); break;	1675	case 0: RETVAL = gen (); break;
1595	case 1: RETVAL = rndm (SvUV (ST (0))); break;	1676	case 1: RETVAL = gen (SvUV (ST (0))); break;
1596	case 2: RETVAL = rndm (SvIV (ST (0)), SvIV (ST (1))); break;	1677	case 2: RETVAL = gen (SvIV (ST (0)), SvIV (ST (1))); break;
1597	default: croak ("cf::rndm requires none, one or two parameters."); break;	1678	default: croak ("cf::rndm requires none, one or two parameters."); break;
1598	}	1679	}
		1680	}
1599	OUTPUT:	1681	OUTPUT:
1600	RETVAL	1682	RETVAL
1601		1683
1602	NV clamp (NV value, NV min_value, NV max_value)	1684	NV clamp (NV value, NV min_value, NV max_value)
1603	CODE:	1685	CODE:
…		…
1628	octet_string path_combine (octet_string base, octet_string path)	1710	octet_string path_combine (octet_string base, octet_string path)
1629	PROTOTYPE: $$	1711	PROTOTYPE: $$
1630		1712
1631	octet_string path_combine_and_normalize (octet_string base, octet_string path)	1713	octet_string path_combine_and_normalize (octet_string base, octet_string path)
1632	PROTOTYPE: $$	1714	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		1715
1657	void	1716	void
1658	sub_generation_inc ()	1717	sub_generation_inc ()
1659	CODE:	1718	CODE:
1660	PL_sub_generation++;	1719	PL_sub_generation++;
…		…
1697		1756
1698	#if _POSIX_MEMLOCK	1757	#if _POSIX_MEMLOCK
1699		1758
1700	int mlockall (int flags = MCL_CURRENT \| MCL_FUTURE)	1759	int mlockall (int flags = MCL_CURRENT \| MCL_FUTURE)
1701	INIT:	1760	INIT:
		1761	#if __GLIBC__
		1762	mallopt (M_TOP_PAD, 1024 * 1024);
		1763	mallopt (M_MMAP_THRESHOLD, 1024 * 1024 * 128);
		1764	mallopt (M_MMAP_MAX, 0); // likely bug-workaround, also frees memory
1702	mallopt (M_PERTURB, 0xaa); // bug-workaround for linux glibc+mlockall+calloc	1765	mallopt (M_PERTURB, 0xee); // bug-workaround for linux glibc+mlockall+calloc
		1766	#endif
1703		1767
1704	int munlockall ()	1768	int munlockall ()
1705		1769
1706	#endif	1770	#endif
		1771
		1772	int
		1773	malloc_trim (IV pad = 0)
		1774
		1775	void
		1776	mallinfo ()
		1777	PPCODE:
		1778	{
		1779	#if __GLIBC__
		1780	struct mallinfo mai = mallinfo ();
		1781	EXTEND (SP, 10*2);
		1782	PUSHs (sv_2mortal (newSVpv ("arena" , 0))); PUSHs (sv_2mortal (newSViv (mai.arena)));
		1783	PUSHs (sv_2mortal (newSVpv ("ordblks" , 0))); PUSHs (sv_2mortal (newSViv (mai.ordblks)));
		1784	PUSHs (sv_2mortal (newSVpv ("smblks" , 0))); PUSHs (sv_2mortal (newSViv (mai.smblks)));
		1785	PUSHs (sv_2mortal (newSVpv ("hblks" , 0))); PUSHs (sv_2mortal (newSViv (mai.hblks)));
		1786	PUSHs (sv_2mortal (newSVpv ("hblkhd" , 0))); PUSHs (sv_2mortal (newSViv (mai.hblkhd)));
		1787	PUSHs (sv_2mortal (newSVpv ("usmblks" , 0))); PUSHs (sv_2mortal (newSViv (mai.usmblks)));
		1788	PUSHs (sv_2mortal (newSVpv ("fsmblks" , 0))); PUSHs (sv_2mortal (newSViv (mai.fsmblks)));
		1789	PUSHs (sv_2mortal (newSVpv ("uordblks", 0))); PUSHs (sv_2mortal (newSViv (mai.uordblks)));
		1790	PUSHs (sv_2mortal (newSVpv ("fordblks", 0))); PUSHs (sv_2mortal (newSViv (mai.fordblks)));
		1791	PUSHs (sv_2mortal (newSVpv ("keepcost", 0))); PUSHs (sv_2mortal (newSViv (mai.keepcost)));
		1792	#endif
		1793	EXTEND (SP, 2*2);
		1794	PUSHs (sv_2mortal (newSVpv ("slice_alloc", 0))); PUSHs (sv_2mortal (newSVuv (slice_alloc)));
		1795	PUSHs (sv_2mortal (newSVpv ("shstr_alloc", 0))); PUSHs (sv_2mortal (newSVuv (shstr_alloc)));
		1796	PUSHs (sv_2mortal (newSVpv ("objects" , 0))); PUSHs (sv_2mortal (newSVuv (objects.size () * sizeof (object))));
		1797	}
1707		1798
1708	int find_animation (utf8_string text)	1799	int find_animation (utf8_string text)
1709	PROTOTYPE: $	1800	PROTOTYPE: $
1710		1801
1711	int random_roll (int min, int max, object *op, int goodbad);	1802	int random_roll (int min, int max, object *op, int goodbad);
…		…
1749	RETVAL = newSVpv (resist_plus[atnr], 0);	1840	RETVAL = newSVpv (resist_plus[atnr], 0);
1750	else	1841	else
1751	XSRETURN_UNDEF;	1842	XSRETURN_UNDEF;
1752	OUTPUT: RETVAL	1843	OUTPUT: RETVAL
1753		1844
		1845	UUID
		1846	uuid_cur ()
		1847	CODE:
		1848	RETVAL = UUID::cur;
		1849	OUTPUT:
		1850	RETVAL
		1851
		1852	UUID
		1853	uuid_gen ()
		1854	CODE:
		1855	RETVAL = UUID::gen ();
		1856	OUTPUT:
		1857	RETVAL
		1858
		1859	val64
		1860	uuid_seq (UUID uuid)
		1861	CODE:
		1862	RETVAL = uuid.seq;
		1863	OUTPUT:
		1864	RETVAL
		1865
		1866	UUID
		1867	uuid_str (val64 seq)
		1868	CODE:
		1869	RETVAL.seq = seq;
		1870	OUTPUT:
		1871	RETVAL
		1872
		1873	void
		1874	coin_names ()
		1875	PPCODE:
		1876	EXTEND (SP, NUM_COINS);
		1877	for (int i = 0; i < NUM_COINS; ++i)
		1878	PUSHs (sv_2mortal (newSVpv (coins [i], 0)));
		1879
		1880	void
		1881	coin_archetypes ()
		1882	PPCODE:
		1883	EXTEND (SP, NUM_COINS);
		1884	for (int i = 0; i < NUM_COINS; ++i)
		1885	PUSHs (sv_2mortal (to_sv (archetype::find (coins [i]))));
		1886
1754	bool	1887	bool
1755	load_resource_file (octet_string filename)	1888	load_resource_file_ (octet_string filename)
		1889
		1890	void
		1891	fix_weight ()
1756		1892
1757	MODULE = cf PACKAGE = cf::attachable	1893	MODULE = cf PACKAGE = cf::attachable
1758		1894
1759	int	1895	int
1760	valid (SV *obj)	1896	valid (SV *obj)
…		…
1824	object *actives (U32 index)	1960	object *actives (U32 index)
1825	CODE:	1961	CODE:
1826	RETVAL = index < actives.size () ? actives [index] : 0;	1962	RETVAL = index < actives.size () ? actives [index] : 0;
1827	OUTPUT: RETVAL	1963	OUTPUT: RETVAL
1828		1964
		1965	int mortals_size ()
		1966	CODE:
		1967	RETVAL = attachable::mortals.size ();
		1968	OUTPUT: RETVAL
		1969
1829	const char *slot_use_name (U32 slot)	1970	const char *slot_use_name (U32 slot)
1830	ALIAS:	1971	ALIAS:
1831	slot_nonuse_name = 1	1972	slot_nonuse_name = 1
1832	CODE:	1973	CODE:
1833	{	1974	{
…		…
1911	void apply_below (object *op)	2052	void apply_below (object *op)
1912	CODE:	2053	CODE:
1913	player_apply_below (op);	2054	player_apply_below (op);
1914		2055
1915	int cast_heal (object op, object caster, object *spell, int dir = 0)	2056	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		2057
1929	int pay_item (object op, object buyer)	2058	int pay_item (object op, object buyer)
1930	CODE:	2059	CODE:
1931	RETVAL = pay_for_item (op, buyer);	2060	RETVAL = pay_for_item (op, buyer);
1932	OUTPUT: RETVAL	2061	OUTPUT: RETVAL
…		…
2010	CODE:	2139	CODE:
2011	{	2140	{
2012	RETVAL = insert_ob_in_map_at (ob, where, orig, flag, x, y);	2141	RETVAL = insert_ob_in_map_at (ob, where, orig, flag, x, y);
2013	}	2142	}
2014		2143
2015	const_utf8_string get_ob_key_value (object *op, utf8_string key)	2144	shstr
		2145	object::kv_get (shstr key)
2016		2146
2017	bool set_ob_key_value (object *op, utf8_string key, utf8_string value = 0, int add_key = 1)	2147	void
		2148	object::kv_del (shstr key)
		2149
		2150	void
		2151	object::kv_set (shstr key, shstr value)
2018		2152
2019	object get_nearest_player (object ob)	2153	object get_nearest_player (object ob)
2020	ALIAS: nearest_player = 0	2154	ALIAS: nearest_player = 0
2021	PREINIT:	2155	PREINIT:
2022	extern object get_nearest_player (object );	2156	extern object get_nearest_player (object );
…		…
2024	void rangevector (object ob, object other, int flags = 0)	2158	void rangevector (object ob, object other, int flags = 0)
2025	PROTOTYPE: $$;$	2159	PROTOTYPE: $$;$
2026	PPCODE:	2160	PPCODE:
2027	{	2161	{
2028	rv_vector rv;	2162	rv_vector rv;
		2163
		2164	PUTBACK;
2029	get_rangevector (ob, other, &rv, flags);	2165	get_rangevector (ob, other, &rv, flags);
		2166	SPAGAIN;
		2167
2030	EXTEND (SP, 5);	2168	EXTEND (SP, 5);
2031	PUSHs (newSVuv (rv.distance));	2169	PUSHs (newSVuv (rv.distance));
2032	PUSHs (newSViv (rv.distance_x));	2170	PUSHs (newSViv (rv.distance_x));
2033	PUSHs (newSViv (rv.distance_y));	2171	PUSHs (newSViv (rv.distance_y));
2034	PUSHs (newSViv (rv.direction));	2172	PUSHs (newSViv (rv.direction));
…		…
2044	base_name (object *op, int plural = op->nrof > 1)	2182	base_name (object *op, int plural = op->nrof > 1)
2045	CODE:	2183	CODE:
2046	RETVAL = query_base_name (op, plural);	2184	RETVAL = query_base_name (op, plural);
2047	OUTPUT: RETVAL	2185	OUTPUT: RETVAL
2048		2186
2049	object decrease_ob_nr (object op, unsigned long i)
2050
2051	# return the tail of an object, excluding itself	2187	# return the tail of an object, excluding itself
2052	void	2188	void
2053	tail (object *op)	2189	tail (object *op)
2054	PPCODE:	2190	PPCODE:
2055	while ((op = op->more))	2191	while ((op = op->more))
…		…
2127	if (len > MAXSOCKBUF)	2263	if (len > MAXSOCKBUF)
2128	pl->failmsg ("[packet too long for client]");	2264	pl->failmsg ("[packet too long for client]");
2129	else if (pl->ns)	2265	else if (pl->ns)
2130	pl->ns->send_packet (buf, len);	2266	pl->ns->send_packet (buf, len);
2131	}	2267	}
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		2268
2142	void savebed (player pl, SV map_path = 0, SV x = 0, SV y = 0)	2269	void savebed (player pl, SV map_path = 0, SV x = 0, SV y = 0)
2143	PROTOTYPE: $;$$$	2270	PROTOTYPE: $;$$$
2144	PPCODE:	2271	PPCODE:
2145	if (GIMME_V != G_VOID)	2272	if (GIMME_V != G_VOID)
…		…
2300	}	2427	}
2301		2428
2302	void	2429	void
2303	maptile::create_region_treasure ()	2430	maptile::create_region_treasure ()
2304	CODE:	2431	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)	2432	for (int x = 0; x < THIS->width; ++x)
2311	for (int y = 0; y < THIS->height; ++y)	2433	for (int y = 0; y < THIS->height; ++y)
2312	{	2434	{
2313	region *rgn = THIS->region (x, y);	2435	region *rgn = THIS->region (x, y);
2314		2436
2315	//fprintf (stderr, "%d,%d %f %p\n", x, y, rgn->treasure_density,rgn->treasure);//D	2437	//fprintf (stderr, "%d,%d %f %p\n", x, y, rgn->treasure_density,rgn->treasure);//D
		2438	if (object *op = THIS->at (x, y).top)
2316	if (rgn->treasure && rndm () < rgn->treasure_density)	2439	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);	2440	create_treasure (rgn->treasure, op, GT_ENVIRONMENT, THIS->difficulty);
2321	}
2322	}	2441	}
2323
2324	op->destroy ();
2325	}
2326		2442
2327	int out_of_map (maptile *map, int x, int y)	2443	int out_of_map (maptile *map, int x, int y)
2328		2444
2329	void	2445	void
2330	trigger (maptile *map, long connection, bool state = true)	2446	trigger (maptile *map, long connection, bool state = true)
…		…
2343	get_map_flags (maptile *map, int x, int y)	2459	get_map_flags (maptile *map, int x, int y)
2344	PPCODE:	2460	PPCODE:
2345	{	2461	{
2346	maptile *nmap = 0;	2462	maptile *nmap = 0;
2347	I16 nx = 0, ny = 0;	2463	I16 nx = 0, ny = 0;
		2464
		2465	PUTBACK;
2348	int flags = get_map_flags (map, &nmap, x, y, &nx, &ny);	2466	int flags = get_map_flags (map, &nmap, x, y, &nx, &ny);
		2467	SPAGAIN;
2349		2468
2350	EXTEND (SP, 4);	2469	EXTEND (SP, 4);
2351	PUSHs (sv_2mortal (newSViv (flags)));	2470	PUSHs (sv_2mortal (newSViv (flags)));
2352		2471
2353	if (GIMME_V == G_ARRAY)	2472	if (GIMME_V == G_ARRAY)
…		…
2356	PUSHs (sv_2mortal (newSViv (nx)));	2475	PUSHs (sv_2mortal (newSViv (nx)));
2357	PUSHs (sv_2mortal (newSViv (ny)));	2476	PUSHs (sv_2mortal (newSViv (ny)));
2358	}	2477	}
2359	}	2478	}
2360		2479
		2480	mapspace *
		2481	ms (maptile *map, unsigned int x, unsigned int y)
		2482	PROTOTYPE: $$$
		2483	CODE:
		2484	{
		2485	maptile *nmap = 0;
		2486	I16 nx, ny;
		2487
		2488	PUTBACK;
		2489	get_map_flags (map, &nmap, x, y, &nx, &ny);
		2490	SPAGAIN;
		2491
		2492	if (!nmap)
		2493	XSRETURN_UNDEF;
		2494
		2495	RETVAL = &nmap->at (nx, ny);
		2496	}
		2497	OUTPUT:
		2498	RETVAL
		2499
2361	void	2500	void
2362	at (maptile *map, unsigned int x, unsigned int y)	2501	at (maptile *map, unsigned int x, unsigned int y)
2363	PROTOTYPE: $$$	2502	PROTOTYPE: $$$
2364	PPCODE:	2503	PPCODE:
2365	{	2504	{
2366	object *o;
2367	maptile *nmap = 0;	2505	maptile *nmap = 0;
2368	I16 nx, ny;	2506	I16 nx, ny;
2369		2507
		2508	PUTBACK;
2370	get_map_flags (map, &nmap, x, y, &nx, &ny);	2509	get_map_flags (map, &nmap, x, y, &nx, &ny);
		2510	SPAGAIN;
2371		2511
2372	if (nmap)	2512	if (nmap)
2373	for (o = GET_MAP_OB (nmap, nx, ny); o; o = o->above)	2513	for (object *o = nmap->at (nx, ny).bot; o; o = o->above)
2374	XPUSHs (sv_2mortal (to_sv (o)));	2514	XPUSHs (sv_2mortal (to_sv (o)));
2375	}	2515	}
2376		2516
2377	SV *	2517	SV *
2378	bot_at (maptile *obj, unsigned int x, unsigned int y)	2518	bot_at (maptile *obj, unsigned int x, unsigned int y)
…		…
2491	RETVAL = self->generate_random_map (&rmp);	2631	RETVAL = self->generate_random_map (&rmp);
2492	}	2632	}
2493	OUTPUT:	2633	OUTPUT:
2494	RETVAL	2634	RETVAL
2495		2635
		2636	MODULE = cf PACKAGE = cf::mapspace
		2637
		2638	INCLUDE: $PERL $srcdir/genacc mapspace ../include/map.h \|
		2639
2496	MODULE = cf PACKAGE = cf::arch	2640	MODULE = cf PACKAGE = cf::arch
2497		2641
2498	int archetypes_size ()	2642	int archetypes_size ()
2499	CODE:	2643	CODE:
2500	RETVAL = archetypes.size ();	2644	RETVAL = archetypes.size ();

Diff Legend

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

Comparing deliantra/server/server/cfperl.xs (file contents): Revision 1.272 by root, Wed Apr 2 11:13:56 2008 UTC vs. Revision 1.304 by root, Wed Oct 1 05:50:19 2008 UTC

Diff Legend

Comparing deliantra/server/server/cfperl.xs (file contents):
Revision 1.272 by root, Wed Apr 2 11:13:56 2008 UTC vs.
Revision 1.304 by root, Wed Oct 1 05:50:19 2008 UTC