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

Comparing deliantra/server/server/cfperl.xs (file contents):
Revision 1.277 by root, Sat Apr 19 21:10:29 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"
…		…
43	# include <sys/mman.h>	41	# include <sys/mman.h>
44	#endif	42	#endif
45		43
46	#if HAVE_MALLOC_H	44	#if HAVE_MALLOC_H
47	# include <malloc.h>	45	# include <malloc.h>
		46	#endif
		47
		48	#if !__GLIBC__
		49	# define malloc_trim(pad) -1
48	#endif	50	#endif
49		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>
…		…
79	*stash_cf,	81	*stash_cf,
80	*stash_cf_object_wrap,	82	*stash_cf_object_wrap,
81	*stash_cf_object_player_wrap,	83	*stash_cf_object_player_wrap,
82	*stash_cf_player_wrap,	84	*stash_cf_player_wrap,
83	*stash_cf_map_wrap,	85	*stash_cf_map_wrap,
		86	*stash_cf_mapspace_wrap,
84	*stash_cf_client_wrap,	87	*stash_cf_client_wrap,
85	*stash_cf_arch_wrap,	88	*stash_cf_arch_wrap,
86	*stash_cf_party_wrap,	89	*stash_cf_party_wrap,
87	*stash_cf_region_wrap,	90	*stash_cf_region_wrap,
88	*stash_cf_living_wrap;	91	*stash_cf_living_wrap;
…		…
427	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); }
428	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); }
429	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); }
430	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); }
431	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); }
432		436
433	inline SV *to_sv (object & v) { return to_sv (&v); }	437	inline SV *to_sv (object & v) { return to_sv (&v); }
434	inline SV *to_sv (living & v) { return to_sv (&v); }	438	inline SV *to_sv (living & v) { return to_sv (&v); }
435		439
436	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 ()); }
437	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); }
438		442
439	inline SV *to_sv (UUID v) { return newSVpv (v.c_str (), 0); }	443	inline SV *to_sv (UUID v) { return newSVpv (v.c_str (), 0); }
		444
		445	inline SV to_sv (dynbuf v)
		446	{
		447	SV *sv = newSV (0);
		448
		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;
		464	}
440		465
441	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; }
442	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; }
443	inline void sv_to (SV *sv, bool &v) { v = SvIV (sv); }	468	inline void sv_to (SV *sv, bool &v) { v = SvIV (sv); }
444	inline void sv_to (SV *sv, signed char &v) { v = SvIV (sv); }	469	inline void sv_to (SV *sv, signed char &v) { v = SvIV (sv); }
…		…
460	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"); }
461	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"); }
462	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"); }
463	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"); }
464	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"); }
465	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"); }
466	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" ); }
467		493
468	//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)]; }
469	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)); }
…		…
600		626
601	PL_exit_flags \|= PERL_EXIT_DESTRUCT_END;	627	PL_exit_flags \|= PERL_EXIT_DESTRUCT_END;
602		628
603	const char *argv[] = {	629	const char *argv[] = {
604	settings.argv [0],	630	settings.argv [0],
605	"-e"	631	"-e0"
606	"use EV; use Coro;" // required for bootstrap
607	"cf->bootstrap;" // required for datadir :*>
608	"unshift @INC, cf::datadir ();"
609	"require cf;"
610	};	632	};
611		633
612	if (perl_parse (perl, xs_init, 2, (char **)argv, environ)	634	if (perl_parse (perl, xs_init, 2, (char **)argv, environ)
613	\|\| perl_run (perl))	635	\|\| perl_run (perl))
614	{	636	{
615	printf ("unable to initialize perl-interpreter, aborting.\n");	637	printf ("unable to initialize perl-interpreter, aborting.\n");
616	exit (EXIT_FAILURE);	638	exit (EXIT_FAILURE);
617	}	639	}
618		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))
619	{	652	{
620	dSP;	653	printf ("unable to bootstrap perl, aborting:\n%s", SvPV_nolen (ERRSV));
621		654	exit (EXIT_FAILURE);
622	PUSHMARK (SP);
623	PUTBACK;
624	call_pv ("cf::init", G_DISCARD \| G_VOID);
625	}	655	}
626	}	656	}
627		657
628	void cfperl_main ()	658	void cfperl_main ()
629	{	659	{
630	dSP;	660	dSP;
…		…
973	{	1003	{
974	CALL_BEGIN (1);	1004	CALL_BEGIN (1);
975	CALL_ARG (name);	1005	CALL_ARG (name);
976	CALL_CALL ("cf::player::find", G_SCALAR);	1006	CALL_CALL ("cf::player::find", G_SCALAR);
977		1007
978	player *retval;	1008	player *retval = 0;
979
980	if (count)
981	sv_to (POPs, retval);	1009	if (count) sv_to (POPs, retval);
982	else	1010
983	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);
984		1027
985	CALL_END;	1028	CALL_END;
986		1029
987	return retval;	1030	return retval;
988	}	1031	}
…		…
993	CALL_BEGIN (2);	1036	CALL_BEGIN (2);
994	CALL_ARG (path);	1037	CALL_ARG (path);
995	CALL_ARG (origin);	1038	CALL_ARG (origin);
996	CALL_CALL ("cf::map::find_sync", G_SCALAR);	1039	CALL_CALL ("cf::map::find_sync", G_SCALAR);
997		1040
998	maptile *retval;	1041	maptile *retval = 0;
999
1000	if (count)
1001	sv_to (POPs, retval);	1042	if (count) sv_to (POPs, retval);
1002	else
1003	retval = 0;
1004		1043
1005	CALL_END;	1044	CALL_END;
1006		1045
1007	return retval;	1046	return retval;
1008	}	1047	}
…		…
1014	CALL_ARG (path);	1053	CALL_ARG (path);
1015	CALL_ARG (origin);	1054	CALL_ARG (origin);
1016	CALL_ARG (load);	1055	CALL_ARG (load);
1017	CALL_CALL ("cf::map::find_async", G_SCALAR);	1056	CALL_CALL ("cf::map::find_async", G_SCALAR);
1018		1057
1019	maptile *retval;	1058	maptile *retval = 0;
1020
1021	if (count)
1022	sv_to (POPs, retval);	1059	if (count) sv_to (POPs, retval);
1023	else
1024	retval = 0;
1025		1060
1026	CALL_END;	1061	CALL_END;
1027		1062
1028	return retval;	1063	return retval;
1029	}	1064	}
…		…
1054		1089
1055	CALL_BEGIN (2);	1090	CALL_BEGIN (2);
1056	CALL_ARG (this);	1091	CALL_ARG (this);
1057	CALL_ARG (exit);	1092	CALL_ARG (exit);
1058	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);
1059	CALL_END;	1109	CALL_END;
1060	}	1110	}
1061		1111
1062	const char *	1112	const char *
1063	object::ref () const	1113	object::ref () const
…		…
1150		1200
1151	stash_cf_object_wrap = gv_stashpv ("cf::object::wrap", 1);	1201	stash_cf_object_wrap = gv_stashpv ("cf::object::wrap", 1);
1152	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);
1153	stash_cf_player_wrap = gv_stashpv ("cf::player::wrap", 1);	1203	stash_cf_player_wrap = gv_stashpv ("cf::player::wrap", 1);
1154	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);
1155	stash_cf_client_wrap = gv_stashpv ("cf::client::wrap", 1);	1206	stash_cf_client_wrap = gv_stashpv ("cf::client::wrap", 1);
1156	stash_cf_arch_wrap = gv_stashpv ("cf::arch::wrap" , 1);	1207	stash_cf_arch_wrap = gv_stashpv ("cf::arch::wrap" , 1);
1157	stash_cf_party_wrap = gv_stashpv ("cf::party::wrap" , 1);	1208	stash_cf_party_wrap = gv_stashpv ("cf::party::wrap" , 1);
1158	stash_cf_region_wrap = gv_stashpv ("cf::region::wrap", 1);	1209	stash_cf_region_wrap = gv_stashpv ("cf::region::wrap", 1);
1159	stash_cf_living_wrap = gv_stashpv ("cf::living::wrap", 1);	1210	stash_cf_living_wrap = gv_stashpv ("cf::living::wrap", 1);
…		…
1279	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)
1280	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)
1281	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)
1282	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)
1283	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)
1284	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)
1285	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)
1286	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)
1287	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)
1288	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)
1289		1340
1290	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)
1291	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)
1292	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)
1293	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)
1294	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)
1295	const_iv (NDI_NOCREATE) const_iv (NDI_CLEAR)	1346	const_iv (NDI_NOCREATE) const_iv (NDI_CLEAR) const_iv (NDI_VERBATIM)
1296		1347
1297	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)
1298	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)
1299		1350
1300	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)
…		…
1352	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)
1353	const_iv (F_LOCKED)	1404	const_iv (F_LOCKED)
1354		1405
1355	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)
1356		1407
1357	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)
1358	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)
1359		1410
1360	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)
1361		1412
1362	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)
…		…
1428		1479
1429	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)
1430	const_iv (SYMMETRY_Y) const_iv (SYMMETRY_XY)	1481	const_iv (SYMMETRY_Y) const_iv (SYMMETRY_XY)
1431		1482
1432	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)
1433	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)
1434	const_iv (GT_MINIMAL)
1435		1485
1436	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)
1437	const_iv (FT_RSRC) const_iv (FT_NUM)	1487	const_iv (FT_RSRC) const_iv (FT_NUM)
1438	};	1488	};
1439		1489
…		…
1461	av_store (av, eiv->iv, newRV_noinc ((SV *)event));	1511	av_store (av, eiv->iv, newRV_noinc ((SV *)event));
1462	newCONSTSUB (stash_cf, (char *)eiv->name, newSViv (eiv->iv));	1512	newCONSTSUB (stash_cf, (char *)eiv->name, newSViv (eiv->iv));
1463	}	1513	}
1464	}	1514	}
1465		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
1466	void _connect_to_perl ()	1530	void _connect_to_perl ()
1467		1531
1468	void _recalc_want ()	1532	void _recalc_want ()
1469		1533
		1534	# not used by default anymore
1470	void _global_reattach ()	1535	void _global_reattach ()
1471	CODE:	1536	CODE:
1472	{	1537	{
1473	// reattach to all attachable objects in the game.	1538	// reattach to all attachable objects in the game.
1474	for_all_clients (ns)	1539	for_all_clients (ns)
…		…
1518	}	1583	}
1519		1584
1520	SvCUR_set (data_sv, dst - SvPVX (data_sv));	1585	SvCUR_set (data_sv, dst - SvPVX (data_sv));
1521	}	1586	}
1522		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
1523	void evthread_start (int aiofd)	1616	void evthread_start (int aiofd)
1524		1617
1525	void cede_to_tick ()	1618	void cede_to_tick ()
1526	CODE:	1619	CODE:
1527	coroapi::cede_to_tick ();	1620	coroapi::cede_to_tick ();
…		…
1570	NV floor (NV x)	1663	NV floor (NV x)
1571		1664
1572	NV ceil (NV x)	1665	NV ceil (NV x)
1573		1666
1574	NV rndm (...)	1667	NV rndm (...)
		1668	ALIAS:
		1669	rmg_rndm = 1
1575	CODE:	1670	CODE:
		1671	{
		1672	rand_gen &gen = ix ? rmg_rndm : rndm;
1576	switch (items)	1673	switch (items)
1577	{	1674	{
1578	case 0: RETVAL = rndm (); break;	1675	case 0: RETVAL = gen (); break;
1579	case 1: RETVAL = rndm (SvUV (ST (0))); break;	1676	case 1: RETVAL = gen (SvUV (ST (0))); break;
1580	case 2: RETVAL = rndm (SvIV (ST (0)), SvIV (ST (1))); break;	1677	case 2: RETVAL = gen (SvIV (ST (0)), SvIV (ST (1))); break;
1581	default: croak ("cf::rndm requires none, one or two parameters."); break;	1678	default: croak ("cf::rndm requires none, one or two parameters."); break;
1582	}	1679	}
		1680	}
1583	OUTPUT:	1681	OUTPUT:
1584	RETVAL	1682	RETVAL
1585		1683
1586	NV clamp (NV value, NV min_value, NV max_value)	1684	NV clamp (NV value, NV min_value, NV max_value)
1587	CODE:	1685	CODE:
…		…
1612	octet_string path_combine (octet_string base, octet_string path)	1710	octet_string path_combine (octet_string base, octet_string path)
1613	PROTOTYPE: $$	1711	PROTOTYPE: $$
1614		1712
1615	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)
1616	PROTOTYPE: $$	1714	PROTOTYPE: $$
1617
1618	void
1619	mallinfo ()
1620	PPCODE:
1621	{
1622	#if __GLIBC__
1623	struct mallinfo mai = mallinfo ();
1624	EXTEND (SP, 10*2);
1625	PUSHs (sv_2mortal (newSVpv ("arena" , 0))); PUSHs (sv_2mortal (newSViv (mai.arena)));
1626	PUSHs (sv_2mortal (newSVpv ("ordblks" , 0))); PUSHs (sv_2mortal (newSViv (mai.ordblks)));
1627	PUSHs (sv_2mortal (newSVpv ("smblks" , 0))); PUSHs (sv_2mortal (newSViv (mai.smblks)));
1628	PUSHs (sv_2mortal (newSVpv ("hblks" , 0))); PUSHs (sv_2mortal (newSViv (mai.hblks)));
1629	PUSHs (sv_2mortal (newSVpv ("hblkhd" , 0))); PUSHs (sv_2mortal (newSViv (mai.hblkhd)));
1630	PUSHs (sv_2mortal (newSVpv ("usmblks" , 0))); PUSHs (sv_2mortal (newSViv (mai.usmblks)));
1631	PUSHs (sv_2mortal (newSVpv ("fsmblks" , 0))); PUSHs (sv_2mortal (newSViv (mai.fsmblks)));
1632	PUSHs (sv_2mortal (newSVpv ("uordblks", 0))); PUSHs (sv_2mortal (newSViv (mai.uordblks)));
1633	PUSHs (sv_2mortal (newSVpv ("fordblks", 0))); PUSHs (sv_2mortal (newSViv (mai.fordblks)));
1634	PUSHs (sv_2mortal (newSVpv ("keepcost", 0))); PUSHs (sv_2mortal (newSViv (mai.keepcost)));
1635	#endif
1636	EXTEND (SP, 2*2);
1637	PUSHs (sv_2mortal (newSVpv ("slice_alloc", 0))); PUSHs (sv_2mortal (newSVuv (slice_alloc)));
1638	PUSHs (sv_2mortal (newSVpv ("shstr_alloc", 0))); PUSHs (sv_2mortal (newSVuv (shstr_alloc)));
1639	}
1640		1715
1641	void	1716	void
1642	sub_generation_inc ()	1717	sub_generation_inc ()
1643	CODE:	1718	CODE:
1644	PL_sub_generation++;	1719	PL_sub_generation++;
…		…
1681		1756
1682	#if _POSIX_MEMLOCK	1757	#if _POSIX_MEMLOCK
1683		1758
1684	int mlockall (int flags = MCL_CURRENT \| MCL_FUTURE)	1759	int mlockall (int flags = MCL_CURRENT \| MCL_FUTURE)
1685	INIT:	1760	INIT:
1686	#ifdef __linux	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
1687	mallopt (M_PERTURB, 0xaa); // bug-workaround for linux glibc+mlockall+calloc	1765	mallopt (M_PERTURB, 0xee); // bug-workaround for linux glibc+mlockall+calloc
1688	#endif	1766	#endif
1689		1767
1690	int munlockall ()	1768	int munlockall ()
1691		1769
1692	#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	}
1693		1798
1694	int find_animation (utf8_string text)	1799	int find_animation (utf8_string text)
1695	PROTOTYPE: $	1800	PROTOTYPE: $
1696		1801
1697	int random_roll (int min, int max, object *op, int goodbad);	1802	int random_roll (int min, int max, object *op, int goodbad);
…		…
1778	EXTEND (SP, NUM_COINS);	1883	EXTEND (SP, NUM_COINS);
1779	for (int i = 0; i < NUM_COINS; ++i)	1884	for (int i = 0; i < NUM_COINS; ++i)
1780	PUSHs (sv_2mortal (to_sv (archetype::find (coins [i]))));	1885	PUSHs (sv_2mortal (to_sv (archetype::find (coins [i]))));
1781		1886
1782	bool	1887	bool
1783	load_resource_file (octet_string filename)	1888	load_resource_file_ (octet_string filename)
		1889
		1890	void
		1891	fix_weight ()
1784		1892
1785	MODULE = cf PACKAGE = cf::attachable	1893	MODULE = cf PACKAGE = cf::attachable
1786		1894
1787	int	1895	int
1788	valid (SV *obj)	1896	valid (SV *obj)
…		…
1852	object *actives (U32 index)	1960	object *actives (U32 index)
1853	CODE:	1961	CODE:
1854	RETVAL = index < actives.size () ? actives [index] : 0;	1962	RETVAL = index < actives.size () ? actives [index] : 0;
1855	OUTPUT: RETVAL	1963	OUTPUT: RETVAL
1856		1964
		1965	int mortals_size ()
		1966	CODE:
		1967	RETVAL = attachable::mortals.size ();
		1968	OUTPUT: RETVAL
		1969
1857	const char *slot_use_name (U32 slot)	1970	const char *slot_use_name (U32 slot)
1858	ALIAS:	1971	ALIAS:
1859	slot_nonuse_name = 1	1972	slot_nonuse_name = 1
1860	CODE:	1973	CODE:
1861	{	1974	{
…		…
1939	void apply_below (object *op)	2052	void apply_below (object *op)
1940	CODE:	2053	CODE:
1941	player_apply_below (op);	2054	player_apply_below (op);
1942		2055
1943	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)
1944
1945	#//TODO
1946	object clone_ (object op, int recursive = 0)
1947	CODE:
1948	if (recursive)
1949	RETVAL = object_create_clone (op);
1950	else
1951	{
1952	RETVAL = object::create ();
1953	op->copy_to (RETVAL);
1954	}
1955	OUTPUT: RETVAL
1956		2057
1957	int pay_item (object op, object buyer)	2058	int pay_item (object op, object buyer)
1958	CODE:	2059	CODE:
1959	RETVAL = pay_for_item (op, buyer);	2060	RETVAL = pay_for_item (op, buyer);
1960	OUTPUT: RETVAL	2061	OUTPUT: RETVAL
…		…
2038	CODE:	2139	CODE:
2039	{	2140	{
2040	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);
2041	}	2142	}
2042		2143
2043	const_utf8_string get_ob_key_value (object *op, utf8_string key)	2144	shstr
		2145	object::kv_get (shstr key)
2044		2146
2045	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)
2046		2152
2047	object get_nearest_player (object ob)	2153	object get_nearest_player (object ob)
2048	ALIAS: nearest_player = 0	2154	ALIAS: nearest_player = 0
2049	PREINIT:	2155	PREINIT:
2050	extern object get_nearest_player (object );	2156	extern object get_nearest_player (object );
…		…
2052	void rangevector (object ob, object other, int flags = 0)	2158	void rangevector (object ob, object other, int flags = 0)
2053	PROTOTYPE: $$;$	2159	PROTOTYPE: $$;$
2054	PPCODE:	2160	PPCODE:
2055	{	2161	{
2056	rv_vector rv;	2162	rv_vector rv;
		2163
		2164	PUTBACK;
2057	get_rangevector (ob, other, &rv, flags);	2165	get_rangevector (ob, other, &rv, flags);
		2166	SPAGAIN;
		2167
2058	EXTEND (SP, 5);	2168	EXTEND (SP, 5);
2059	PUSHs (newSVuv (rv.distance));	2169	PUSHs (newSVuv (rv.distance));
2060	PUSHs (newSViv (rv.distance_x));	2170	PUSHs (newSViv (rv.distance_x));
2061	PUSHs (newSViv (rv.distance_y));	2171	PUSHs (newSViv (rv.distance_y));
2062	PUSHs (newSViv (rv.direction));	2172	PUSHs (newSViv (rv.direction));
…		…
2072	base_name (object *op, int plural = op->nrof > 1)	2182	base_name (object *op, int plural = op->nrof > 1)
2073	CODE:	2183	CODE:
2074	RETVAL = query_base_name (op, plural);	2184	RETVAL = query_base_name (op, plural);
2075	OUTPUT: RETVAL	2185	OUTPUT: RETVAL
2076		2186
2077	object decrease_ob_nr (object op, unsigned long i)
2078
2079	# return the tail of an object, excluding itself	2187	# return the tail of an object, excluding itself
2080	void	2188	void
2081	tail (object *op)	2189	tail (object *op)
2082	PPCODE:	2190	PPCODE:
2083	while ((op = op->more))	2191	while ((op = op->more))
…		…
2155	if (len > MAXSOCKBUF)	2263	if (len > MAXSOCKBUF)
2156	pl->failmsg ("[packet too long for client]");	2264	pl->failmsg ("[packet too long for client]");
2157	else if (pl->ns)	2265	else if (pl->ns)
2158	pl->ns->send_packet (buf, len);	2266	pl->ns->send_packet (buf, len);
2159	}	2267	}
2160
2161	int
2162	listening (player *pl, int new_value = -1)
2163	CODE:
2164	RETVAL = pl->listening;
2165	if (new_value >= 0)
2166	pl->listening = new_value;
2167	OUTPUT:
2168	RETVAL
2169		2268
2170	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)
2171	PROTOTYPE: $;$$$	2270	PROTOTYPE: $;$$$
2172	PPCODE:	2271	PPCODE:
2173	if (GIMME_V != G_VOID)	2272	if (GIMME_V != G_VOID)
…		…
2328	}	2427	}
2329		2428
2330	void	2429	void
2331	maptile::create_region_treasure ()	2430	maptile::create_region_treasure ()
2332	CODE:	2431	CODE:
2333	{
2334	object *op = object::create ();
2335	op->type = FLOOR;
2336	op->map = THIS;
2337
2338	for (int x = 0; x < THIS->width; ++x)	2432	for (int x = 0; x < THIS->width; ++x)
2339	for (int y = 0; y < THIS->height; ++y)	2433	for (int y = 0; y < THIS->height; ++y)
2340	{	2434	{
2341	region *rgn = THIS->region (x, y);	2435	region *rgn = THIS->region (x, y);
2342		2436
2343	//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)
2344	if (rgn->treasure && rndm () < rgn->treasure_density)	2439	if (rgn->treasure && rndm () < rgn->treasure_density)
2345	{
2346	op->x = x;
2347	op->y = y;
2348	create_treasure (rgn->treasure, op, GT_ENVIRONMENT, THIS->difficulty);	2440	create_treasure (rgn->treasure, op, GT_ENVIRONMENT, THIS->difficulty);
2349	}
2350	}	2441	}
2351
2352	op->destroy ();
2353	}
2354		2442
2355	int out_of_map (maptile *map, int x, int y)	2443	int out_of_map (maptile *map, int x, int y)
2356		2444
2357	void	2445	void
2358	trigger (maptile *map, long connection, bool state = true)	2446	trigger (maptile *map, long connection, bool state = true)
…		…
2371	get_map_flags (maptile *map, int x, int y)	2459	get_map_flags (maptile *map, int x, int y)
2372	PPCODE:	2460	PPCODE:
2373	{	2461	{
2374	maptile *nmap = 0;	2462	maptile *nmap = 0;
2375	I16 nx = 0, ny = 0;	2463	I16 nx = 0, ny = 0;
		2464
		2465	PUTBACK;
2376	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;
2377		2468
2378	EXTEND (SP, 4);	2469	EXTEND (SP, 4);
2379	PUSHs (sv_2mortal (newSViv (flags)));	2470	PUSHs (sv_2mortal (newSViv (flags)));
2380		2471
2381	if (GIMME_V == G_ARRAY)	2472	if (GIMME_V == G_ARRAY)
…		…
2384	PUSHs (sv_2mortal (newSViv (nx)));	2475	PUSHs (sv_2mortal (newSViv (nx)));
2385	PUSHs (sv_2mortal (newSViv (ny)));	2476	PUSHs (sv_2mortal (newSViv (ny)));
2386	}	2477	}
2387	}	2478	}
2388		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
2389	void	2500	void
2390	at (maptile *map, unsigned int x, unsigned int y)	2501	at (maptile *map, unsigned int x, unsigned int y)
2391	PROTOTYPE: $$$	2502	PROTOTYPE: $$$
2392	PPCODE:	2503	PPCODE:
2393	{	2504	{
2394	object *o;
2395	maptile *nmap = 0;	2505	maptile *nmap = 0;
2396	I16 nx, ny;	2506	I16 nx, ny;
2397		2507
		2508	PUTBACK;
2398	get_map_flags (map, &nmap, x, y, &nx, &ny);	2509	get_map_flags (map, &nmap, x, y, &nx, &ny);
		2510	SPAGAIN;
2399		2511
2400	if (nmap)	2512	if (nmap)
2401	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)
2402	XPUSHs (sv_2mortal (to_sv (o)));	2514	XPUSHs (sv_2mortal (to_sv (o)));
2403	}	2515	}
2404		2516
2405	SV *	2517	SV *
2406	bot_at (maptile *obj, unsigned int x, unsigned int y)	2518	bot_at (maptile *obj, unsigned int x, unsigned int y)
…		…
2519	RETVAL = self->generate_random_map (&rmp);	2631	RETVAL = self->generate_random_map (&rmp);
2520	}	2632	}
2521	OUTPUT:	2633	OUTPUT:
2522	RETVAL	2634	RETVAL
2523		2635
		2636	MODULE = cf PACKAGE = cf::mapspace
		2637
		2638	INCLUDE: $PERL $srcdir/genacc mapspace ../include/map.h \|
		2639
2524	MODULE = cf PACKAGE = cf::arch	2640	MODULE = cf PACKAGE = cf::arch
2525		2641
2526	int archetypes_size ()	2642	int archetypes_size ()
2527	CODE:	2643	CODE:
2528	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.277 by root, Sat Apr 19 21:10:29 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.277 by root, Sat Apr 19 21:10:29 2008 UTC vs.
Revision 1.304 by root, Wed Oct 1 05:50:19 2008 UTC