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

Comparing deliantra/server/server/cfperl.xs (file contents):
Revision 1.273 by root, Sun Apr 6 16:13:22 2008 UTC vs.
Revision 1.302 by root, Mon Sep 22 23:57:48 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
…		…
990	{	999	{
991	CALL_BEGIN (1);	1000	CALL_BEGIN (1);
992	CALL_ARG (name);	1001	CALL_ARG (name);
993	CALL_CALL ("cf::player::find", G_SCALAR);	1002	CALL_CALL ("cf::player::find", G_SCALAR);
994		1003
995	player *retval;	1004	player *retval = 0;
996
997	if (count)
998	sv_to (POPs, retval);	1005	if (count) sv_to (POPs, retval);
999	else	1006
1000	retval = 0;	1007	CALL_END;
		1008
		1009	return retval;
		1010	}
		1011
		1012	maptile *
		1013	find_style (const char dirname, const char stylename, int difficulty)
		1014	{
		1015	CALL_BEGIN (3);
		1016	CALL_ARG (dirname);
		1017	CALL_ARG (stylename);
		1018	CALL_ARG (difficulty);
		1019	CALL_CALL ("ext::map_random::find_style", G_SCALAR);
		1020
		1021	maptile *retval = 0;
		1022	if (count) sv_to (POPs, retval);
1001		1023
1002	CALL_END;	1024	CALL_END;
1003		1025
1004	return retval;	1026	return retval;
1005	}	1027	}
…		…
1010	CALL_BEGIN (2);	1032	CALL_BEGIN (2);
1011	CALL_ARG (path);	1033	CALL_ARG (path);
1012	CALL_ARG (origin);	1034	CALL_ARG (origin);
1013	CALL_CALL ("cf::map::find_sync", G_SCALAR);	1035	CALL_CALL ("cf::map::find_sync", G_SCALAR);
1014		1036
1015	maptile *retval;	1037	maptile *retval = 0;
1016
1017	if (count)
1018	sv_to (POPs, retval);	1038	if (count) sv_to (POPs, retval);
1019	else
1020	retval = 0;
1021		1039
1022	CALL_END;	1040	CALL_END;
1023		1041
1024	return retval;	1042	return retval;
1025	}	1043	}
…		…
1031	CALL_ARG (path);	1049	CALL_ARG (path);
1032	CALL_ARG (origin);	1050	CALL_ARG (origin);
1033	CALL_ARG (load);	1051	CALL_ARG (load);
1034	CALL_CALL ("cf::map::find_async", G_SCALAR);	1052	CALL_CALL ("cf::map::find_async", G_SCALAR);
1035		1053
1036	maptile *retval;	1054	maptile *retval = 0;
1037
1038	if (count)
1039	sv_to (POPs, retval);	1055	if (count) sv_to (POPs, retval);
1040	else
1041	retval = 0;
1042		1056
1043	CALL_END;	1057	CALL_END;
1044		1058
1045	return retval;	1059	return retval;
1046	}	1060	}
…		…
1071		1085
1072	CALL_BEGIN (2);	1086	CALL_BEGIN (2);
1073	CALL_ARG (this);	1087	CALL_ARG (this);
1074	CALL_ARG (exit);	1088	CALL_ARG (exit);
1075	CALL_CALL ("cf::object::player::enter_exit", G_VOID);	1089	CALL_CALL ("cf::object::player::enter_exit", G_VOID);
		1090	CALL_END;
		1091	}
		1092
		1093	void
		1094	object::player_goto (const char *path, int x, int y)
		1095	{
		1096	if (type != PLAYER)
		1097	return;
		1098
		1099	CALL_BEGIN (4);
		1100	CALL_ARG (this);
		1101	CALL_ARG (path);
		1102	CALL_ARG (x);
		1103	CALL_ARG (y);
		1104	CALL_CALL ("cf::object::player::goto", G_VOID);
1076	CALL_END;	1105	CALL_END;
1077	}	1106	}
1078		1107
1079	const char *	1108	const char *
1080	object::ref () const	1109	object::ref () const
…		…
1167		1196
1168	stash_cf_object_wrap = gv_stashpv ("cf::object::wrap", 1);	1197	stash_cf_object_wrap = gv_stashpv ("cf::object::wrap", 1);
1169	stash_cf_object_player_wrap = gv_stashpv ("cf::object::player::wrap", 1);	1198	stash_cf_object_player_wrap = gv_stashpv ("cf::object::player::wrap", 1);
1170	stash_cf_player_wrap = gv_stashpv ("cf::player::wrap", 1);	1199	stash_cf_player_wrap = gv_stashpv ("cf::player::wrap", 1);
1171	stash_cf_map_wrap = gv_stashpv ("cf::map::wrap" , 1);	1200	stash_cf_map_wrap = gv_stashpv ("cf::map::wrap" , 1);
		1201	stash_cf_mapspace_wrap = gv_stashpv ("cf::mapspace::wrap" , 1);
1172	stash_cf_client_wrap = gv_stashpv ("cf::client::wrap", 1);	1202	stash_cf_client_wrap = gv_stashpv ("cf::client::wrap", 1);
1173	stash_cf_arch_wrap = gv_stashpv ("cf::arch::wrap" , 1);	1203	stash_cf_arch_wrap = gv_stashpv ("cf::arch::wrap" , 1);
1174	stash_cf_party_wrap = gv_stashpv ("cf::party::wrap" , 1);	1204	stash_cf_party_wrap = gv_stashpv ("cf::party::wrap" , 1);
1175	stash_cf_region_wrap = gv_stashpv ("cf::region::wrap", 1);	1205	stash_cf_region_wrap = gv_stashpv ("cf::region::wrap", 1);
1176	stash_cf_living_wrap = gv_stashpv ("cf::living::wrap", 1);	1206	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)	1326	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)	1327	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)	1328	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)	1329	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)	1330	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)	1331	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)	1332	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)	1333	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)	1334	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)	1335	const_iv (FLAG_DESTROY_ON_DEATH) const_iv (FLAG_NO_MAP_SAVE)
1306		1336
1307	const_iv (NDI_BLACK) const_iv (NDI_WHITE) const_iv (NDI_NAVY) const_iv (NDI_RED)	1337	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)	1338	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)	1339	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)	1340	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)	1341	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)	1342	const_iv (NDI_NOCREATE) const_iv (NDI_CLEAR) const_iv (NDI_VERBATIM)
1313		1343
1314	const_iv (UPD_LOCATION) const_iv (UPD_FLAGS) const_iv (UPD_WEIGHT) const_iv (UPD_FACE)	1344	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)	1345	const_iv (UPD_NAME) const_iv (UPD_ANIM) const_iv (UPD_ANIMSPEED) const_iv (UPD_NROF)
1316		1346
1317	const_iv (UPD_SP_MANA) const_iv (UPD_SP_GRACE) const_iv (UPD_SP_DAMAGE)	1347	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)	1399	const_iv (F_CURSED) const_iv (F_DAMNED) const_iv (F_OPEN) const_iv (F_NOPICK)
1370	const_iv (F_LOCKED)	1400	const_iv (F_LOCKED)
1371		1401
1372	const_iv (F_BUY) const_iv (F_SHOP) const_iv (F_SELL)	1402	const_iv (F_BUY) const_iv (F_SHOP) const_iv (F_SELL)
1373		1403
1374	const_iv (P_BLOCKSVIEW) const_iv (P_PLAYER) const_iv (P_NO_MAGIC) const_iv (P_IS_ALIVE)	1404	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)	1405	const_iv (P_NO_CLERIC) const_iv (P_OUT_OF_MAP) const_iv (P_NEW_MAP) const_iv (P_UPTODATE)
1376		1406
1377	const_iv (UP_OBJ_INSERT) const_iv (UP_OBJ_REMOVE) const_iv (UP_OBJ_CHANGE) const_iv (UP_OBJ_FACE)	1407	const_iv (UP_OBJ_INSERT) const_iv (UP_OBJ_REMOVE) const_iv (UP_OBJ_CHANGE) const_iv (UP_OBJ_FACE)
1378		1408
1379	const_iv (INS_NO_MERGE) const_iv (INS_ABOVE_FLOOR_ONLY) const_iv (INS_NO_WALK_ON)	1409	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)	1449	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)	1450	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)	1451	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)	1452	const_iv (ATNR_LIFE_STEALING) const_iv (ATNR_DISEASE)
1423		1453
1424	const_iv (MAP_IN_MEMORY) const_iv (MAP_SWAPPED) const_iv (MAP_LOADING) const_iv (MAP_SAVING)	1454	const_iv (MAP_ACTIVE) const_iv (MAP_SWAPPED) const_iv (MAP_LOADING) const_iv (MAP_SAVING)
		1455	const_iv (MAP_INACTIVE)
1425		1456
1426	const_iv (KLASS_ATTACHABLE) const_iv (KLASS_GLOBAL) const_iv (KLASS_OBJECT)	1457	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)	1458	const_iv (KLASS_CLIENT) const_iv (KLASS_PLAYER) const_iv (KLASS_MAP)
1428		1459
1429	const_iv (VERSION_CS) const_iv (VERSION_SC)	1460	const_iv (VERSION_CS) const_iv (VERSION_SC)
…		…
1444		1475
1445	const_iv (SYMMETRY_RANDOM) const_iv (SYMMETRY_NONE) const_iv (SYMMETRY_X)	1476	const_iv (SYMMETRY_RANDOM) const_iv (SYMMETRY_NONE) const_iv (SYMMETRY_X)
1446	const_iv (SYMMETRY_Y) const_iv (SYMMETRY_XY)	1477	const_iv (SYMMETRY_Y) const_iv (SYMMETRY_XY)
1447		1478
1448	const_iv (GT_ENVIRONMENT) const_iv (GT_INVISIBLE) const_iv (GT_STARTEQUIP)	1479	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)	1480	const_iv (GT_APPLY) const_iv (GT_ONLY_GOOD) const_iv (GT_MINIMAL)
1450	const_iv (GT_MINIMAL)
1451		1481
1452	const_iv (FT_FACE) const_iv (FT_MUSIC) const_iv (FT_SOUND)	1482	const_iv (FT_FACE) const_iv (FT_MUSIC) const_iv (FT_SOUND)
1453	const_iv (FT_RSRC) const_iv (FT_NUM)	1483	const_iv (FT_RSRC) const_iv (FT_NUM)
1454	};	1484	};
1455		1485
…		…
1477	av_store (av, eiv->iv, newRV_noinc ((SV *)event));	1507	av_store (av, eiv->iv, newRV_noinc ((SV *)event));
1478	newCONSTSUB (stash_cf, (char *)eiv->name, newSViv (eiv->iv));	1508	newCONSTSUB (stash_cf, (char *)eiv->name, newSViv (eiv->iv));
1479	}	1509	}
1480	}	1510	}
1481		1511
		1512	void _gv_clear (SV *gv)
		1513	CODE:
		1514	assert (SvTYPE (gv) == SVt_PVGV);
		1515	# define f(sv) { SV sv_ = (SV )(sv); sv = 0; SvREFCNT_dec (sv_); }
		1516	f (GvGP (gv)->gp_form);
		1517	f (GvGP (gv)->gp_io);
		1518	f (GvGP (gv)->gp_sv);
		1519	f (GvGP (gv)->gp_av);
		1520	f (GvGP (gv)->gp_hv);
		1521	f (GvGP (gv)->gp_cv);
		1522	GvCVGEN (gv) = 0;
		1523	GvMULTI_off (gv);
		1524	# undef f
		1525
		1526
1482	void _connect_to_perl ()	1527	void _connect_to_perl ()
1483		1528
1484	void _recalc_want ()	1529	void _recalc_want ()
1485		1530
1486	void _global_reattach ()	1531	void _global_reattach ()
…		…
1586	NV floor (NV x)	1631	NV floor (NV x)
1587		1632
1588	NV ceil (NV x)	1633	NV ceil (NV x)
1589		1634
1590	NV rndm (...)	1635	NV rndm (...)
		1636	ALIAS:
		1637	rmg_rndm = 1
1591	CODE:	1638	CODE:
		1639	{
		1640	rand_gen &gen = ix ? rmg_rndm : rndm;
1592	switch (items)	1641	switch (items)
1593	{	1642	{
1594	case 0: RETVAL = rndm (); break;	1643	case 0: RETVAL = gen (); break;
1595	case 1: RETVAL = rndm (SvUV (ST (0))); break;	1644	case 1: RETVAL = gen (SvUV (ST (0))); break;
1596	case 2: RETVAL = rndm (SvIV (ST (0)), SvIV (ST (1))); break;	1645	case 2: RETVAL = gen (SvIV (ST (0)), SvIV (ST (1))); break;
1597	default: croak ("cf::rndm requires none, one or two parameters."); break;	1646	default: croak ("cf::rndm requires none, one or two parameters."); break;
1598	}	1647	}
		1648	}
1599	OUTPUT:	1649	OUTPUT:
1600	RETVAL	1650	RETVAL
1601		1651
1602	NV clamp (NV value, NV min_value, NV max_value)	1652	NV clamp (NV value, NV min_value, NV max_value)
1603	CODE:	1653	CODE:
…		…
1628	octet_string path_combine (octet_string base, octet_string path)	1678	octet_string path_combine (octet_string base, octet_string path)
1629	PROTOTYPE: $$	1679	PROTOTYPE: $$
1630		1680
1631	octet_string path_combine_and_normalize (octet_string base, octet_string path)	1681	octet_string path_combine_and_normalize (octet_string base, octet_string path)
1632	PROTOTYPE: $$	1682	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		1683
1657	void	1684	void
1658	sub_generation_inc ()	1685	sub_generation_inc ()
1659	CODE:	1686	CODE:
1660	PL_sub_generation++;	1687	PL_sub_generation++;
…		…
1697		1724
1698	#if _POSIX_MEMLOCK	1725	#if _POSIX_MEMLOCK
1699		1726
1700	int mlockall (int flags = MCL_CURRENT \| MCL_FUTURE)	1727	int mlockall (int flags = MCL_CURRENT \| MCL_FUTURE)
1701	INIT:	1728	INIT:
		1729	#if __GLIBC__
		1730	mallopt (M_TOP_PAD, 1024 * 1024);
		1731	mallopt (M_MMAP_THRESHOLD, 1024 * 1024 * 128);
		1732	mallopt (M_MMAP_MAX, 0); // likely bug-workaround, also frees memory
1702	mallopt (M_PERTURB, 0xaa); // bug-workaround for linux glibc+mlockall+calloc	1733	mallopt (M_PERTURB, 0xee); // bug-workaround for linux glibc+mlockall+calloc
		1734	#endif
1703		1735
1704	int munlockall ()	1736	int munlockall ()
1705		1737
1706	#endif	1738	#endif
		1739
		1740	int
		1741	malloc_trim (IV pad = 0)
		1742
		1743	void
		1744	mallinfo ()
		1745	PPCODE:
		1746	{
		1747	#if __GLIBC__
		1748	struct mallinfo mai = mallinfo ();
		1749	EXTEND (SP, 10*2);
		1750	PUSHs (sv_2mortal (newSVpv ("arena" , 0))); PUSHs (sv_2mortal (newSViv (mai.arena)));
		1751	PUSHs (sv_2mortal (newSVpv ("ordblks" , 0))); PUSHs (sv_2mortal (newSViv (mai.ordblks)));
		1752	PUSHs (sv_2mortal (newSVpv ("smblks" , 0))); PUSHs (sv_2mortal (newSViv (mai.smblks)));
		1753	PUSHs (sv_2mortal (newSVpv ("hblks" , 0))); PUSHs (sv_2mortal (newSViv (mai.hblks)));
		1754	PUSHs (sv_2mortal (newSVpv ("hblkhd" , 0))); PUSHs (sv_2mortal (newSViv (mai.hblkhd)));
		1755	PUSHs (sv_2mortal (newSVpv ("usmblks" , 0))); PUSHs (sv_2mortal (newSViv (mai.usmblks)));
		1756	PUSHs (sv_2mortal (newSVpv ("fsmblks" , 0))); PUSHs (sv_2mortal (newSViv (mai.fsmblks)));
		1757	PUSHs (sv_2mortal (newSVpv ("uordblks", 0))); PUSHs (sv_2mortal (newSViv (mai.uordblks)));
		1758	PUSHs (sv_2mortal (newSVpv ("fordblks", 0))); PUSHs (sv_2mortal (newSViv (mai.fordblks)));
		1759	PUSHs (sv_2mortal (newSVpv ("keepcost", 0))); PUSHs (sv_2mortal (newSViv (mai.keepcost)));
		1760	#endif
		1761	EXTEND (SP, 2*2);
		1762	PUSHs (sv_2mortal (newSVpv ("slice_alloc", 0))); PUSHs (sv_2mortal (newSVuv (slice_alloc)));
		1763	PUSHs (sv_2mortal (newSVpv ("shstr_alloc", 0))); PUSHs (sv_2mortal (newSVuv (shstr_alloc)));
		1764	PUSHs (sv_2mortal (newSVpv ("objects" , 0))); PUSHs (sv_2mortal (newSVuv (objects.size () * sizeof (object))));
		1765	}
1707		1766
1708	int find_animation (utf8_string text)	1767	int find_animation (utf8_string text)
1709	PROTOTYPE: $	1768	PROTOTYPE: $
1710		1769
1711	int random_roll (int min, int max, object *op, int goodbad);	1770	int random_roll (int min, int max, object *op, int goodbad);
…		…
1749	RETVAL = newSVpv (resist_plus[atnr], 0);	1808	RETVAL = newSVpv (resist_plus[atnr], 0);
1750	else	1809	else
1751	XSRETURN_UNDEF;	1810	XSRETURN_UNDEF;
1752	OUTPUT: RETVAL	1811	OUTPUT: RETVAL
1753		1812
		1813	UUID
		1814	uuid_cur ()
		1815	CODE:
		1816	RETVAL = UUID::cur;
		1817	OUTPUT:
		1818	RETVAL
		1819
		1820	UUID
		1821	uuid_gen ()
		1822	CODE:
		1823	RETVAL = UUID::gen ();
		1824	OUTPUT:
		1825	RETVAL
		1826
		1827	val64
		1828	uuid_seq (UUID uuid)
		1829	CODE:
		1830	RETVAL = uuid.seq;
		1831	OUTPUT:
		1832	RETVAL
		1833
		1834	UUID
		1835	uuid_str (val64 seq)
		1836	CODE:
		1837	RETVAL.seq = seq;
		1838	OUTPUT:
		1839	RETVAL
		1840
		1841	void
		1842	coin_names ()
		1843	PPCODE:
		1844	EXTEND (SP, NUM_COINS);
		1845	for (int i = 0; i < NUM_COINS; ++i)
		1846	PUSHs (sv_2mortal (newSVpv (coins [i], 0)));
		1847
		1848	void
		1849	coin_archetypes ()
		1850	PPCODE:
		1851	EXTEND (SP, NUM_COINS);
		1852	for (int i = 0; i < NUM_COINS; ++i)
		1853	PUSHs (sv_2mortal (to_sv (archetype::find (coins [i]))));
		1854
1754	bool	1855	bool
1755	load_resource_file (octet_string filename)	1856	load_resource_file_ (octet_string filename)
		1857
		1858	void
		1859	fix_weight ()
1756		1860
1757	MODULE = cf PACKAGE = cf::attachable	1861	MODULE = cf PACKAGE = cf::attachable
1758		1862
1759	int	1863	int
1760	valid (SV *obj)	1864	valid (SV *obj)
…		…
1824	object *actives (U32 index)	1928	object *actives (U32 index)
1825	CODE:	1929	CODE:
1826	RETVAL = index < actives.size () ? actives [index] : 0;	1930	RETVAL = index < actives.size () ? actives [index] : 0;
1827	OUTPUT: RETVAL	1931	OUTPUT: RETVAL
1828		1932
		1933	int mortals_size ()
		1934	CODE:
		1935	RETVAL = attachable::mortals.size ();
		1936	OUTPUT: RETVAL
		1937
1829	const char *slot_use_name (U32 slot)	1938	const char *slot_use_name (U32 slot)
1830	ALIAS:	1939	ALIAS:
1831	slot_nonuse_name = 1	1940	slot_nonuse_name = 1
1832	CODE:	1941	CODE:
1833	{	1942	{
…		…
1911	void apply_below (object *op)	2020	void apply_below (object *op)
1912	CODE:	2021	CODE:
1913	player_apply_below (op);	2022	player_apply_below (op);
1914		2023
1915	int cast_heal (object op, object caster, object *spell, int dir = 0)	2024	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		2025
1929	int pay_item (object op, object buyer)	2026	int pay_item (object op, object buyer)
1930	CODE:	2027	CODE:
1931	RETVAL = pay_for_item (op, buyer);	2028	RETVAL = pay_for_item (op, buyer);
1932	OUTPUT: RETVAL	2029	OUTPUT: RETVAL
…		…
2010	CODE:	2107	CODE:
2011	{	2108	{
2012	RETVAL = insert_ob_in_map_at (ob, where, orig, flag, x, y);	2109	RETVAL = insert_ob_in_map_at (ob, where, orig, flag, x, y);
2013	}	2110	}
2014		2111
2015	const_utf8_string get_ob_key_value (object *op, utf8_string key)	2112	shstr
		2113	object::kv_get (shstr key)
2016		2114
2017	bool set_ob_key_value (object *op, utf8_string key, utf8_string value = 0, int add_key = 1)	2115	void
		2116	object::kv_del (shstr key)
		2117
		2118	void
		2119	object::kv_set (shstr key, shstr value)
2018		2120
2019	object get_nearest_player (object ob)	2121	object get_nearest_player (object ob)
2020	ALIAS: nearest_player = 0	2122	ALIAS: nearest_player = 0
2021	PREINIT:	2123	PREINIT:
2022	extern object get_nearest_player (object );	2124	extern object get_nearest_player (object );
…		…
2024	void rangevector (object ob, object other, int flags = 0)	2126	void rangevector (object ob, object other, int flags = 0)
2025	PROTOTYPE: $$;$	2127	PROTOTYPE: $$;$
2026	PPCODE:	2128	PPCODE:
2027	{	2129	{
2028	rv_vector rv;	2130	rv_vector rv;
		2131
		2132	PUTBACK;
2029	get_rangevector (ob, other, &rv, flags);	2133	get_rangevector (ob, other, &rv, flags);
		2134	SPAGAIN;
		2135
2030	EXTEND (SP, 5);	2136	EXTEND (SP, 5);
2031	PUSHs (newSVuv (rv.distance));	2137	PUSHs (newSVuv (rv.distance));
2032	PUSHs (newSViv (rv.distance_x));	2138	PUSHs (newSViv (rv.distance_x));
2033	PUSHs (newSViv (rv.distance_y));	2139	PUSHs (newSViv (rv.distance_y));
2034	PUSHs (newSViv (rv.direction));	2140	PUSHs (newSViv (rv.direction));
…		…
2044	base_name (object *op, int plural = op->nrof > 1)	2150	base_name (object *op, int plural = op->nrof > 1)
2045	CODE:	2151	CODE:
2046	RETVAL = query_base_name (op, plural);	2152	RETVAL = query_base_name (op, plural);
2047	OUTPUT: RETVAL	2153	OUTPUT: RETVAL
2048		2154
2049	object decrease_ob_nr (object op, unsigned long i)
2050
2051	# return the tail of an object, excluding itself	2155	# return the tail of an object, excluding itself
2052	void	2156	void
2053	tail (object *op)	2157	tail (object *op)
2054	PPCODE:	2158	PPCODE:
2055	while ((op = op->more))	2159	while ((op = op->more))
…		…
2127	if (len > MAXSOCKBUF)	2231	if (len > MAXSOCKBUF)
2128	pl->failmsg ("[packet too long for client]");	2232	pl->failmsg ("[packet too long for client]");
2129	else if (pl->ns)	2233	else if (pl->ns)
2130	pl->ns->send_packet (buf, len);	2234	pl->ns->send_packet (buf, len);
2131	}	2235	}
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		2236
2142	void savebed (player pl, SV map_path = 0, SV x = 0, SV y = 0)	2237	void savebed (player pl, SV map_path = 0, SV x = 0, SV y = 0)
2143	PROTOTYPE: $;$$$	2238	PROTOTYPE: $;$$$
2144	PPCODE:	2239	PPCODE:
2145	if (GIMME_V != G_VOID)	2240	if (GIMME_V != G_VOID)
…		…
2300	}	2395	}
2301		2396
2302	void	2397	void
2303	maptile::create_region_treasure ()	2398	maptile::create_region_treasure ()
2304	CODE:	2399	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)	2400	for (int x = 0; x < THIS->width; ++x)
2311	for (int y = 0; y < THIS->height; ++y)	2401	for (int y = 0; y < THIS->height; ++y)
2312	{	2402	{
2313	region *rgn = THIS->region (x, y);	2403	region *rgn = THIS->region (x, y);
2314		2404
2315	//fprintf (stderr, "%d,%d %f %p\n", x, y, rgn->treasure_density,rgn->treasure);//D	2405	//fprintf (stderr, "%d,%d %f %p\n", x, y, rgn->treasure_density,rgn->treasure);//D
		2406	if (object *op = THIS->at (x, y).top)
2316	if (rgn->treasure && rndm () < rgn->treasure_density)	2407	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);	2408	create_treasure (rgn->treasure, op, GT_ENVIRONMENT, THIS->difficulty);
2321	}
2322	}	2409	}
2323
2324	op->destroy ();
2325	}
2326		2410
2327	int out_of_map (maptile *map, int x, int y)	2411	int out_of_map (maptile *map, int x, int y)
2328		2412
2329	void	2413	void
2330	trigger (maptile *map, long connection, bool state = true)	2414	trigger (maptile *map, long connection, bool state = true)
…		…
2343	get_map_flags (maptile *map, int x, int y)	2427	get_map_flags (maptile *map, int x, int y)
2344	PPCODE:	2428	PPCODE:
2345	{	2429	{
2346	maptile *nmap = 0;	2430	maptile *nmap = 0;
2347	I16 nx = 0, ny = 0;	2431	I16 nx = 0, ny = 0;
		2432
		2433	PUTBACK;
2348	int flags = get_map_flags (map, &nmap, x, y, &nx, &ny);	2434	int flags = get_map_flags (map, &nmap, x, y, &nx, &ny);
		2435	SPAGAIN;
2349		2436
2350	EXTEND (SP, 4);	2437	EXTEND (SP, 4);
2351	PUSHs (sv_2mortal (newSViv (flags)));	2438	PUSHs (sv_2mortal (newSViv (flags)));
2352		2439
2353	if (GIMME_V == G_ARRAY)	2440	if (GIMME_V == G_ARRAY)
…		…
2356	PUSHs (sv_2mortal (newSViv (nx)));	2443	PUSHs (sv_2mortal (newSViv (nx)));
2357	PUSHs (sv_2mortal (newSViv (ny)));	2444	PUSHs (sv_2mortal (newSViv (ny)));
2358	}	2445	}
2359	}	2446	}
2360		2447
		2448	mapspace *
		2449	ms (maptile *map, unsigned int x, unsigned int y)
		2450	PROTOTYPE: $$$
		2451	CODE:
		2452	{
		2453	maptile *nmap = 0;
		2454	I16 nx, ny;
		2455
		2456	PUTBACK;
		2457	get_map_flags (map, &nmap, x, y, &nx, &ny);
		2458	SPAGAIN;
		2459
		2460	if (!nmap)
		2461	XSRETURN_UNDEF;
		2462
		2463	RETVAL = &nmap->at (nx, ny);
		2464	}
		2465	OUTPUT:
		2466	RETVAL
		2467
2361	void	2468	void
2362	at (maptile *map, unsigned int x, unsigned int y)	2469	at (maptile *map, unsigned int x, unsigned int y)
2363	PROTOTYPE: $$$	2470	PROTOTYPE: $$$
2364	PPCODE:	2471	PPCODE:
2365	{	2472	{
2366	object *o;
2367	maptile *nmap = 0;	2473	maptile *nmap = 0;
2368	I16 nx, ny;	2474	I16 nx, ny;
2369		2475
		2476	PUTBACK;
2370	get_map_flags (map, &nmap, x, y, &nx, &ny);	2477	get_map_flags (map, &nmap, x, y, &nx, &ny);
		2478	SPAGAIN;
2371		2479
2372	if (nmap)	2480	if (nmap)
2373	for (o = GET_MAP_OB (nmap, nx, ny); o; o = o->above)	2481	for (object *o = nmap->at (nx, ny).bot; o; o = o->above)
2374	XPUSHs (sv_2mortal (to_sv (o)));	2482	XPUSHs (sv_2mortal (to_sv (o)));
2375	}	2483	}
2376		2484
2377	SV *	2485	SV *
2378	bot_at (maptile *obj, unsigned int x, unsigned int y)	2486	bot_at (maptile *obj, unsigned int x, unsigned int y)
…		…
2491	RETVAL = self->generate_random_map (&rmp);	2599	RETVAL = self->generate_random_map (&rmp);
2492	}	2600	}
2493	OUTPUT:	2601	OUTPUT:
2494	RETVAL	2602	RETVAL
2495		2603
		2604	MODULE = cf PACKAGE = cf::mapspace
		2605
		2606	INCLUDE: $PERL $srcdir/genacc mapspace ../include/map.h \|
		2607
2496	MODULE = cf PACKAGE = cf::arch	2608	MODULE = cf PACKAGE = cf::arch
2497		2609
2498	int archetypes_size ()	2610	int archetypes_size ()
2499	CODE:	2611	CODE:
2500	RETVAL = archetypes.size ();	2612	RETVAL = archetypes.size ();

Diff Legend

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

Comparing deliantra/server/server/cfperl.xs (file contents): Revision 1.273 by root, Sun Apr 6 16:13:22 2008 UTC vs. Revision 1.302 by root, Mon Sep 22 23:57:48 2008 UTC

Diff Legend

Comparing deliantra/server/server/cfperl.xs (file contents):
Revision 1.273 by root, Sun Apr 6 16:13:22 2008 UTC vs.
Revision 1.302 by root, Mon Sep 22 23:57:48 2008 UTC