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

Comparing deliantra/server/server/cfperl.xs (file contents):
Revision 1.275 by root, Fri Apr 11 13:59:06 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"
…		…
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)); }
…		…
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	"-e"
606	"use EV; use Coro;" // required for bootstrap	632	"use EV ();"
607	"cf->bootstrap;" // required for datadir :*>	633	"use Coro ();"
		634	"cf->bootstrap;"
608	"unshift @INC, cf::datadir ();"	635	"unshift @INC, cf::datadir ();"
609	"require cf;"	636	"require cf;"
610	};	637	};
611		638
612	if (perl_parse (perl, xs_init, 2, (char **)argv, environ)	639	if (perl_parse (perl, xs_init, 2, (char **)argv, environ)
613	\|\| perl_run (perl))	640	\|\| perl_run (perl))
614	{	641	{
615	printf ("unable to initialize perl-interpreter, aborting.\n");	642	printf ("unable to initialize perl-interpreter, aborting.\n");
616	exit (EXIT_FAILURE);	643	exit (EXIT_FAILURE);
617	}	644	}
618
619	{
620	dSP;
621
622	PUSHMARK (SP);
623	PUTBACK;
624	call_pv ("cf::init", G_DISCARD \| G_VOID);
625	}
626	}	645	}
627		646
628	void cfperl_main ()	647	void cfperl_main ()
629	{	648	{
630	dSP;	649	dSP;
…		…
973	{	992	{
974	CALL_BEGIN (1);	993	CALL_BEGIN (1);
975	CALL_ARG (name);	994	CALL_ARG (name);
976	CALL_CALL ("cf::player::find", G_SCALAR);	995	CALL_CALL ("cf::player::find", G_SCALAR);
977		996
978	player *retval;	997	player *retval = 0;
979
980	if (count)
981	sv_to (POPs, retval);	998	if (count) sv_to (POPs, retval);
982	else	999
983	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);
984		1016
985	CALL_END;	1017	CALL_END;
986		1018
987	return retval;	1019	return retval;
988	}	1020	}
…		…
993	CALL_BEGIN (2);	1025	CALL_BEGIN (2);
994	CALL_ARG (path);	1026	CALL_ARG (path);
995	CALL_ARG (origin);	1027	CALL_ARG (origin);
996	CALL_CALL ("cf::map::find_sync", G_SCALAR);	1028	CALL_CALL ("cf::map::find_sync", G_SCALAR);
997		1029
998	maptile *retval;	1030	maptile *retval = 0;
999
1000	if (count)
1001	sv_to (POPs, retval);	1031	if (count) sv_to (POPs, retval);
1002	else
1003	retval = 0;
1004		1032
1005	CALL_END;	1033	CALL_END;
1006		1034
1007	return retval;	1035	return retval;
1008	}	1036	}
…		…
1014	CALL_ARG (path);	1042	CALL_ARG (path);
1015	CALL_ARG (origin);	1043	CALL_ARG (origin);
1016	CALL_ARG (load);	1044	CALL_ARG (load);
1017	CALL_CALL ("cf::map::find_async", G_SCALAR);	1045	CALL_CALL ("cf::map::find_async", G_SCALAR);
1018		1046
1019	maptile *retval;	1047	maptile *retval = 0;
1020
1021	if (count)
1022	sv_to (POPs, retval);	1048	if (count) sv_to (POPs, retval);
1023	else
1024	retval = 0;
1025		1049
1026	CALL_END;	1050	CALL_END;
1027		1051
1028	return retval;	1052	return retval;
1029	}	1053	}
…		…
1054		1078
1055	CALL_BEGIN (2);	1079	CALL_BEGIN (2);
1056	CALL_ARG (this);	1080	CALL_ARG (this);
1057	CALL_ARG (exit);	1081	CALL_ARG (exit);
1058	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);
1059	CALL_END;	1098	CALL_END;
1060	}	1099	}
1061		1100
1062	const char *	1101	const char *
1063	object::ref () const	1102	object::ref () const
…		…
1150		1189
1151	stash_cf_object_wrap = gv_stashpv ("cf::object::wrap", 1);	1190	stash_cf_object_wrap = gv_stashpv ("cf::object::wrap", 1);
1152	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);
1153	stash_cf_player_wrap = gv_stashpv ("cf::player::wrap", 1);	1192	stash_cf_player_wrap = gv_stashpv ("cf::player::wrap", 1);
1154	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);
1155	stash_cf_client_wrap = gv_stashpv ("cf::client::wrap", 1);	1195	stash_cf_client_wrap = gv_stashpv ("cf::client::wrap", 1);
1156	stash_cf_arch_wrap = gv_stashpv ("cf::arch::wrap" , 1);	1196	stash_cf_arch_wrap = gv_stashpv ("cf::arch::wrap" , 1);
1157	stash_cf_party_wrap = gv_stashpv ("cf::party::wrap" , 1);	1197	stash_cf_party_wrap = gv_stashpv ("cf::party::wrap" , 1);
1158	stash_cf_region_wrap = gv_stashpv ("cf::region::wrap", 1);	1198	stash_cf_region_wrap = gv_stashpv ("cf::region::wrap", 1);
1159	stash_cf_living_wrap = gv_stashpv ("cf::living::wrap", 1);	1199	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)	1319	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)	1320	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)	1321	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)	1322	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)	1323	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)	1324	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)	1325	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)	1326	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)	1327	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)	1328	const_iv (FLAG_DESTROY_ON_DEATH) const_iv (FLAG_NO_MAP_SAVE)
1289		1329
1290	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)
1291	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)
1292	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)
1293	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)
1294	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)
1295	const_iv (NDI_NOCREATE) const_iv (NDI_CLEAR)	1335	const_iv (NDI_NOCREATE) const_iv (NDI_CLEAR) const_iv (NDI_VERBATIM)
1296		1336
1297	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)
1298	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)
1299		1339
1300	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)
…		…
1352	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)
1353	const_iv (F_LOCKED)	1393	const_iv (F_LOCKED)
1354		1394
1355	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)
1356		1396
1357	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)
1358	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)
1359		1399
1360	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)
1361		1401
1362	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)
…		…
1402	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)
1403	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)
1404	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)
1405	const_iv (ATNR_LIFE_STEALING) const_iv (ATNR_DISEASE)	1445	const_iv (ATNR_LIFE_STEALING) const_iv (ATNR_DISEASE)
1406		1446
1407	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)
1408		1449
1409	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)
1410	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)
1411		1452
1412	const_iv (VERSION_CS) const_iv (VERSION_SC)	1453	const_iv (VERSION_CS) const_iv (VERSION_SC)
…		…
1427		1468
1428	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)
1429	const_iv (SYMMETRY_Y) const_iv (SYMMETRY_XY)	1470	const_iv (SYMMETRY_Y) const_iv (SYMMETRY_XY)
1430		1471
1431	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)
1432	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)
1433	const_iv (GT_MINIMAL)
1434		1474
1435	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)
1436	const_iv (FT_RSRC) const_iv (FT_NUM)	1476	const_iv (FT_RSRC) const_iv (FT_NUM)
1437	};	1477	};
1438		1478
…		…
1460	av_store (av, eiv->iv, newRV_noinc ((SV *)event));	1500	av_store (av, eiv->iv, newRV_noinc ((SV *)event));
1461	newCONSTSUB (stash_cf, (char *)eiv->name, newSViv (eiv->iv));	1501	newCONSTSUB (stash_cf, (char *)eiv->name, newSViv (eiv->iv));
1462	}	1502	}
1463	}	1503	}
1464		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
1465	void _connect_to_perl ()	1519	void _connect_to_perl ()
1466		1520
1467	void _recalc_want ()	1521	void _recalc_want ()
1468		1522
1469	void _global_reattach ()	1523	void _global_reattach ()
…		…
1517	}	1571	}
1518		1572
1519	SvCUR_set (data_sv, dst - SvPVX (data_sv));	1573	SvCUR_set (data_sv, dst - SvPVX (data_sv));
1520	}	1574	}
1521		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
1522	void evthread_start (int aiofd)	1604	void evthread_start (int aiofd)
1523		1605
1524	void cede_to_tick ()	1606	void cede_to_tick ()
1525	CODE:	1607	CODE:
1526	coroapi::cede_to_tick ();	1608	coroapi::cede_to_tick ();
…		…
1569	NV floor (NV x)	1651	NV floor (NV x)
1570		1652
1571	NV ceil (NV x)	1653	NV ceil (NV x)
1572		1654
1573	NV rndm (...)	1655	NV rndm (...)
		1656	ALIAS:
		1657	rmg_rndm = 1
1574	CODE:	1658	CODE:
		1659	{
		1660	rand_gen &gen = ix ? rmg_rndm : rndm;
1575	switch (items)	1661	switch (items)
1576	{	1662	{
1577	case 0: RETVAL = rndm (); break;	1663	case 0: RETVAL = gen (); break;
1578	case 1: RETVAL = rndm (SvUV (ST (0))); break;	1664	case 1: RETVAL = gen (SvUV (ST (0))); break;
1579	case 2: RETVAL = rndm (SvIV (ST (0)), SvIV (ST (1))); break;	1665	case 2: RETVAL = gen (SvIV (ST (0)), SvIV (ST (1))); break;
1580	default: croak ("cf::rndm requires none, one or two parameters."); break;	1666	default: croak ("cf::rndm requires none, one or two parameters."); break;
1581	}	1667	}
		1668	}
1582	OUTPUT:	1669	OUTPUT:
1583	RETVAL	1670	RETVAL
1584		1671
1585	NV clamp (NV value, NV min_value, NV max_value)	1672	NV clamp (NV value, NV min_value, NV max_value)
1586	CODE:	1673	CODE:
…		…
1611	octet_string path_combine (octet_string base, octet_string path)	1698	octet_string path_combine (octet_string base, octet_string path)
1612	PROTOTYPE: $$	1699	PROTOTYPE: $$
1613		1700
1614	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)
1615	PROTOTYPE: $$	1702	PROTOTYPE: $$
1616
1617	void
1618	mallinfo ()
1619	PPCODE:
1620	{
1621	#if __GLIBC__
1622	struct mallinfo mai = mallinfo ();
1623	EXTEND (SP, 10*2);
1624	PUSHs (sv_2mortal (newSVpv ("arena" , 0))); PUSHs (sv_2mortal (newSViv (mai.arena)));
1625	PUSHs (sv_2mortal (newSVpv ("ordblks" , 0))); PUSHs (sv_2mortal (newSViv (mai.ordblks)));
1626	PUSHs (sv_2mortal (newSVpv ("smblks" , 0))); PUSHs (sv_2mortal (newSViv (mai.smblks)));
1627	PUSHs (sv_2mortal (newSVpv ("hblks" , 0))); PUSHs (sv_2mortal (newSViv (mai.hblks)));
1628	PUSHs (sv_2mortal (newSVpv ("hblkhd" , 0))); PUSHs (sv_2mortal (newSViv (mai.hblkhd)));
1629	PUSHs (sv_2mortal (newSVpv ("usmblks" , 0))); PUSHs (sv_2mortal (newSViv (mai.usmblks)));
1630	PUSHs (sv_2mortal (newSVpv ("fsmblks" , 0))); PUSHs (sv_2mortal (newSViv (mai.fsmblks)));
1631	PUSHs (sv_2mortal (newSVpv ("uordblks", 0))); PUSHs (sv_2mortal (newSViv (mai.uordblks)));
1632	PUSHs (sv_2mortal (newSVpv ("fordblks", 0))); PUSHs (sv_2mortal (newSViv (mai.fordblks)));
1633	PUSHs (sv_2mortal (newSVpv ("keepcost", 0))); PUSHs (sv_2mortal (newSViv (mai.keepcost)));
1634	#endif
1635	EXTEND (SP, 2*2);
1636	PUSHs (sv_2mortal (newSVpv ("slice_alloc", 0))); PUSHs (sv_2mortal (newSVuv (slice_alloc)));
1637	PUSHs (sv_2mortal (newSVpv ("shstr_alloc", 0))); PUSHs (sv_2mortal (newSVuv (shstr_alloc)));
1638	}
1639		1703
1640	void	1704	void
1641	sub_generation_inc ()	1705	sub_generation_inc ()
1642	CODE:	1706	CODE:
1643	PL_sub_generation++;	1707	PL_sub_generation++;
…		…
1680		1744
1681	#if _POSIX_MEMLOCK	1745	#if _POSIX_MEMLOCK
1682		1746
1683	int mlockall (int flags = MCL_CURRENT \| MCL_FUTURE)	1747	int mlockall (int flags = MCL_CURRENT \| MCL_FUTURE)
1684	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
1685	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
1686		1755
1687	int munlockall ()	1756	int munlockall ()
1688		1757
1689	#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	}
1690		1786
1691	int find_animation (utf8_string text)	1787	int find_animation (utf8_string text)
1692	PROTOTYPE: $	1788	PROTOTYPE: $
1693		1789
1694	int random_roll (int min, int max, object *op, int goodbad);	1790	int random_roll (int min, int max, object *op, int goodbad);
…		…
1775	EXTEND (SP, NUM_COINS);	1871	EXTEND (SP, NUM_COINS);
1776	for (int i = 0; i < NUM_COINS; ++i)	1872	for (int i = 0; i < NUM_COINS; ++i)
1777	PUSHs (sv_2mortal (to_sv (archetype::find (coins [i]))));	1873	PUSHs (sv_2mortal (to_sv (archetype::find (coins [i]))));
1778		1874
1779	bool	1875	bool
1780	load_resource_file (octet_string filename)	1876	load_resource_file_ (octet_string filename)
		1877
		1878	void
		1879	fix_weight ()
1781		1880
1782	MODULE = cf PACKAGE = cf::attachable	1881	MODULE = cf PACKAGE = cf::attachable
1783		1882
1784	int	1883	int
1785	valid (SV *obj)	1884	valid (SV *obj)
…		…
1849	object *actives (U32 index)	1948	object *actives (U32 index)
1850	CODE:	1949	CODE:
1851	RETVAL = index < actives.size () ? actives [index] : 0;	1950	RETVAL = index < actives.size () ? actives [index] : 0;
1852	OUTPUT: RETVAL	1951	OUTPUT: RETVAL
1853		1952
		1953	int mortals_size ()
		1954	CODE:
		1955	RETVAL = attachable::mortals.size ();
		1956	OUTPUT: RETVAL
		1957
1854	const char *slot_use_name (U32 slot)	1958	const char *slot_use_name (U32 slot)
1855	ALIAS:	1959	ALIAS:
1856	slot_nonuse_name = 1	1960	slot_nonuse_name = 1
1857	CODE:	1961	CODE:
1858	{	1962	{
…		…
1936	void apply_below (object *op)	2040	void apply_below (object *op)
1937	CODE:	2041	CODE:
1938	player_apply_below (op);	2042	player_apply_below (op);
1939		2043
1940	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)
1941
1942	#//TODO
1943	object clone_ (object op, int recursive = 0)
1944	CODE:
1945	if (recursive)
1946	RETVAL = object_create_clone (op);
1947	else
1948	{
1949	RETVAL = object::create ();
1950	op->copy_to (RETVAL);
1951	}
1952	OUTPUT: RETVAL
1953		2045
1954	int pay_item (object op, object buyer)	2046	int pay_item (object op, object buyer)
1955	CODE:	2047	CODE:
1956	RETVAL = pay_for_item (op, buyer);	2048	RETVAL = pay_for_item (op, buyer);
1957	OUTPUT: RETVAL	2049	OUTPUT: RETVAL
…		…
2035	CODE:	2127	CODE:
2036	{	2128	{
2037	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);
2038	}	2130	}
2039		2131
2040	const_utf8_string get_ob_key_value (object *op, utf8_string key)	2132	shstr
		2133	object::kv_get (shstr key)
2041		2134
2042	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)
2043		2140
2044	object get_nearest_player (object ob)	2141	object get_nearest_player (object ob)
2045	ALIAS: nearest_player = 0	2142	ALIAS: nearest_player = 0
2046	PREINIT:	2143	PREINIT:
2047	extern object get_nearest_player (object );	2144	extern object get_nearest_player (object );
…		…
2049	void rangevector (object ob, object other, int flags = 0)	2146	void rangevector (object ob, object other, int flags = 0)
2050	PROTOTYPE: $$;$	2147	PROTOTYPE: $$;$
2051	PPCODE:	2148	PPCODE:
2052	{	2149	{
2053	rv_vector rv;	2150	rv_vector rv;
		2151
		2152	PUTBACK;
2054	get_rangevector (ob, other, &rv, flags);	2153	get_rangevector (ob, other, &rv, flags);
		2154	SPAGAIN;
		2155
2055	EXTEND (SP, 5);	2156	EXTEND (SP, 5);
2056	PUSHs (newSVuv (rv.distance));	2157	PUSHs (newSVuv (rv.distance));
2057	PUSHs (newSViv (rv.distance_x));	2158	PUSHs (newSViv (rv.distance_x));
2058	PUSHs (newSViv (rv.distance_y));	2159	PUSHs (newSViv (rv.distance_y));
2059	PUSHs (newSViv (rv.direction));	2160	PUSHs (newSViv (rv.direction));
…		…
2069	base_name (object *op, int plural = op->nrof > 1)	2170	base_name (object *op, int plural = op->nrof > 1)
2070	CODE:	2171	CODE:
2071	RETVAL = query_base_name (op, plural);	2172	RETVAL = query_base_name (op, plural);
2072	OUTPUT: RETVAL	2173	OUTPUT: RETVAL
2073		2174
2074	object decrease_ob_nr (object op, unsigned long i)
2075
2076	# return the tail of an object, excluding itself	2175	# return the tail of an object, excluding itself
2077	void	2176	void
2078	tail (object *op)	2177	tail (object *op)
2079	PPCODE:	2178	PPCODE:
2080	while ((op = op->more))	2179	while ((op = op->more))
…		…
2152	if (len > MAXSOCKBUF)	2251	if (len > MAXSOCKBUF)
2153	pl->failmsg ("[packet too long for client]");	2252	pl->failmsg ("[packet too long for client]");
2154	else if (pl->ns)	2253	else if (pl->ns)
2155	pl->ns->send_packet (buf, len);	2254	pl->ns->send_packet (buf, len);
2156	}	2255	}
2157
2158	int
2159	listening (player *pl, int new_value = -1)
2160	CODE:
2161	RETVAL = pl->listening;
2162	if (new_value >= 0)
2163	pl->listening = new_value;
2164	OUTPUT:
2165	RETVAL
2166		2256
2167	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)
2168	PROTOTYPE: $;$$$	2258	PROTOTYPE: $;$$$
2169	PPCODE:	2259	PPCODE:
2170	if (GIMME_V != G_VOID)	2260	if (GIMME_V != G_VOID)
…		…
2325	}	2415	}
2326		2416
2327	void	2417	void
2328	maptile::create_region_treasure ()	2418	maptile::create_region_treasure ()
2329	CODE:	2419	CODE:
2330	{
2331	object *op = object::create ();
2332	op->type = FLOOR;
2333	op->map = THIS;
2334
2335	for (int x = 0; x < THIS->width; ++x)	2420	for (int x = 0; x < THIS->width; ++x)
2336	for (int y = 0; y < THIS->height; ++y)	2421	for (int y = 0; y < THIS->height; ++y)
2337	{	2422	{
2338	region *rgn = THIS->region (x, y);	2423	region *rgn = THIS->region (x, y);
2339		2424
2340	//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)
2341	if (rgn->treasure && rndm () < rgn->treasure_density)	2427	if (rgn->treasure && rndm () < rgn->treasure_density)
2342	{
2343	op->x = x;
2344	op->y = y;
2345	create_treasure (rgn->treasure, op, GT_ENVIRONMENT, THIS->difficulty);	2428	create_treasure (rgn->treasure, op, GT_ENVIRONMENT, THIS->difficulty);
2346	}
2347	}	2429	}
2348
2349	op->destroy ();
2350	}
2351		2430
2352	int out_of_map (maptile *map, int x, int y)	2431	int out_of_map (maptile *map, int x, int y)
2353		2432
2354	void	2433	void
2355	trigger (maptile *map, long connection, bool state = true)	2434	trigger (maptile *map, long connection, bool state = true)
…		…
2368	get_map_flags (maptile *map, int x, int y)	2447	get_map_flags (maptile *map, int x, int y)
2369	PPCODE:	2448	PPCODE:
2370	{	2449	{
2371	maptile *nmap = 0;	2450	maptile *nmap = 0;
2372	I16 nx = 0, ny = 0;	2451	I16 nx = 0, ny = 0;
		2452
		2453	PUTBACK;
2373	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;
2374		2456
2375	EXTEND (SP, 4);	2457	EXTEND (SP, 4);
2376	PUSHs (sv_2mortal (newSViv (flags)));	2458	PUSHs (sv_2mortal (newSViv (flags)));
2377		2459
2378	if (GIMME_V == G_ARRAY)	2460	if (GIMME_V == G_ARRAY)
…		…
2381	PUSHs (sv_2mortal (newSViv (nx)));	2463	PUSHs (sv_2mortal (newSViv (nx)));
2382	PUSHs (sv_2mortal (newSViv (ny)));	2464	PUSHs (sv_2mortal (newSViv (ny)));
2383	}	2465	}
2384	}	2466	}
2385		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
2386	void	2488	void
2387	at (maptile *map, unsigned int x, unsigned int y)	2489	at (maptile *map, unsigned int x, unsigned int y)
2388	PROTOTYPE: $$$	2490	PROTOTYPE: $$$
2389	PPCODE:	2491	PPCODE:
2390	{	2492	{
2391	object *o;
2392	maptile *nmap = 0;	2493	maptile *nmap = 0;
2393	I16 nx, ny;	2494	I16 nx, ny;
2394		2495
		2496	PUTBACK;
2395	get_map_flags (map, &nmap, x, y, &nx, &ny);	2497	get_map_flags (map, &nmap, x, y, &nx, &ny);
		2498	SPAGAIN;
2396		2499
2397	if (nmap)	2500	if (nmap)
2398	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)
2399	XPUSHs (sv_2mortal (to_sv (o)));	2502	XPUSHs (sv_2mortal (to_sv (o)));
2400	}	2503	}
2401		2504
2402	SV *	2505	SV *
2403	bot_at (maptile *obj, unsigned int x, unsigned int y)	2506	bot_at (maptile *obj, unsigned int x, unsigned int y)
…		…
2516	RETVAL = self->generate_random_map (&rmp);	2619	RETVAL = self->generate_random_map (&rmp);
2517	}	2620	}
2518	OUTPUT:	2621	OUTPUT:
2519	RETVAL	2622	RETVAL
2520		2623
		2624	MODULE = cf PACKAGE = cf::mapspace
		2625
		2626	INCLUDE: $PERL $srcdir/genacc mapspace ../include/map.h \|
		2627
2521	MODULE = cf PACKAGE = cf::arch	2628	MODULE = cf PACKAGE = cf::arch
2522		2629
2523	int archetypes_size ()	2630	int archetypes_size ()
2524	CODE:	2631	CODE:
2525	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.275 by root, Fri Apr 11 13:59:06 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.275 by root, Fri Apr 11 13:59:06 2008 UTC vs.
Revision 1.303 by root, Tue Sep 23 04:29:11 2008 UTC