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

Comparing deliantra/server/server/cfperl.xs (file contents):
Revision 1.272 by root, Wed Apr 2 11:13:56 2008 UTC vs.
Revision 1.297 by root, Mon Sep 8 11:27:25 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_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
…		…
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 ()
…		…
1534	}	1579	}
1535		1580
1536	SvCUR_set (data_sv, dst - SvPVX (data_sv));	1581	SvCUR_set (data_sv, dst - SvPVX (data_sv));
1537	}	1582	}
1538		1583
1539	void evthread_start ()	1584	void evthread_start (int aiofd)
1540		1585
1541	void cede_to_tick ()	1586	void cede_to_tick ()
1542	CODE:	1587	CODE:
1543	coroapi::cede_to_tick ();	1588	coroapi::cede_to_tick ();
1544		1589
…		…
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__
1702	mallopt (M_PERTURB, 0xaa); // bug-workaround for linux glibc+mlockall+calloc	1730	mallopt (M_PERTURB, 0xee); // bug-workaround for linux glibc+mlockall+calloc
		1731	#endif
1703		1732
1704	int munlockall ()	1733	int munlockall ()
1705		1734
1706	#endif	1735	#endif
		1736
		1737	int
		1738	malloc_trim (IV pad = 0)
		1739
		1740	void
		1741	mallinfo ()
		1742	PPCODE:
		1743	{
		1744	#if __GLIBC__
		1745	struct mallinfo mai = mallinfo ();
		1746	EXTEND (SP, 10*2);
		1747	PUSHs (sv_2mortal (newSVpv ("arena" , 0))); PUSHs (sv_2mortal (newSViv (mai.arena)));
		1748	PUSHs (sv_2mortal (newSVpv ("ordblks" , 0))); PUSHs (sv_2mortal (newSViv (mai.ordblks)));
		1749	PUSHs (sv_2mortal (newSVpv ("smblks" , 0))); PUSHs (sv_2mortal (newSViv (mai.smblks)));
		1750	PUSHs (sv_2mortal (newSVpv ("hblks" , 0))); PUSHs (sv_2mortal (newSViv (mai.hblks)));
		1751	PUSHs (sv_2mortal (newSVpv ("hblkhd" , 0))); PUSHs (sv_2mortal (newSViv (mai.hblkhd)));
		1752	PUSHs (sv_2mortal (newSVpv ("usmblks" , 0))); PUSHs (sv_2mortal (newSViv (mai.usmblks)));
		1753	PUSHs (sv_2mortal (newSVpv ("fsmblks" , 0))); PUSHs (sv_2mortal (newSViv (mai.fsmblks)));
		1754	PUSHs (sv_2mortal (newSVpv ("uordblks", 0))); PUSHs (sv_2mortal (newSViv (mai.uordblks)));
		1755	PUSHs (sv_2mortal (newSVpv ("fordblks", 0))); PUSHs (sv_2mortal (newSViv (mai.fordblks)));
		1756	PUSHs (sv_2mortal (newSVpv ("keepcost", 0))); PUSHs (sv_2mortal (newSViv (mai.keepcost)));
		1757	#endif
		1758	EXTEND (SP, 2*2);
		1759	PUSHs (sv_2mortal (newSVpv ("slice_alloc", 0))); PUSHs (sv_2mortal (newSVuv (slice_alloc)));
		1760	PUSHs (sv_2mortal (newSVpv ("shstr_alloc", 0))); PUSHs (sv_2mortal (newSVuv (shstr_alloc)));
		1761	PUSHs (sv_2mortal (newSVpv ("objects" , 0))); PUSHs (sv_2mortal (newSVuv (objects.size () * sizeof (object))));
		1762	}
1707		1763
1708	int find_animation (utf8_string text)	1764	int find_animation (utf8_string text)
1709	PROTOTYPE: $	1765	PROTOTYPE: $
1710		1766
1711	int random_roll (int min, int max, object *op, int goodbad);	1767	int random_roll (int min, int max, object *op, int goodbad);
…		…
1749	RETVAL = newSVpv (resist_plus[atnr], 0);	1805	RETVAL = newSVpv (resist_plus[atnr], 0);
1750	else	1806	else
1751	XSRETURN_UNDEF;	1807	XSRETURN_UNDEF;
1752	OUTPUT: RETVAL	1808	OUTPUT: RETVAL
1753		1809
		1810	UUID
		1811	uuid_cur ()
		1812	CODE:
		1813	RETVAL = UUID::cur;
		1814	OUTPUT:
		1815	RETVAL
		1816
		1817	UUID
		1818	uuid_gen ()
		1819	CODE:
		1820	RETVAL = UUID::gen ();
		1821	OUTPUT:
		1822	RETVAL
		1823
		1824	val64
		1825	uuid_seq (UUID uuid)
		1826	CODE:
		1827	RETVAL = uuid.seq;
		1828	OUTPUT:
		1829	RETVAL
		1830
		1831	UUID
		1832	uuid_str (val64 seq)
		1833	CODE:
		1834	RETVAL.seq = seq;
		1835	OUTPUT:
		1836	RETVAL
		1837
		1838	void
		1839	coin_names ()
		1840	PPCODE:
		1841	EXTEND (SP, NUM_COINS);
		1842	for (int i = 0; i < NUM_COINS; ++i)
		1843	PUSHs (sv_2mortal (newSVpv (coins [i], 0)));
		1844
		1845	void
		1846	coin_archetypes ()
		1847	PPCODE:
		1848	EXTEND (SP, NUM_COINS);
		1849	for (int i = 0; i < NUM_COINS; ++i)
		1850	PUSHs (sv_2mortal (to_sv (archetype::find (coins [i]))));
		1851
1754	bool	1852	bool
1755	load_resource_file (octet_string filename)	1853	load_resource_file_ (octet_string filename)
		1854
		1855	void
		1856	fix_weight ()
1756		1857
1757	MODULE = cf PACKAGE = cf::attachable	1858	MODULE = cf PACKAGE = cf::attachable
1758		1859
1759	int	1860	int
1760	valid (SV *obj)	1861	valid (SV *obj)
…		…
1824	object *actives (U32 index)	1925	object *actives (U32 index)
1825	CODE:	1926	CODE:
1826	RETVAL = index < actives.size () ? actives [index] : 0;	1927	RETVAL = index < actives.size () ? actives [index] : 0;
1827	OUTPUT: RETVAL	1928	OUTPUT: RETVAL
1828		1929
		1930	int mortals_size ()
		1931	CODE:
		1932	RETVAL = attachable::mortals.size ();
		1933	OUTPUT: RETVAL
		1934
1829	const char *slot_use_name (U32 slot)	1935	const char *slot_use_name (U32 slot)
1830	ALIAS:	1936	ALIAS:
1831	slot_nonuse_name = 1	1937	slot_nonuse_name = 1
1832	CODE:	1938	CODE:
1833	{	1939	{
…		…
1911	void apply_below (object *op)	2017	void apply_below (object *op)
1912	CODE:	2018	CODE:
1913	player_apply_below (op);	2019	player_apply_below (op);
1914		2020
1915	int cast_heal (object op, object caster, object *spell, int dir = 0)	2021	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		2022
1929	int pay_item (object op, object buyer)	2023	int pay_item (object op, object buyer)
1930	CODE:	2024	CODE:
1931	RETVAL = pay_for_item (op, buyer);	2025	RETVAL = pay_for_item (op, buyer);
1932	OUTPUT: RETVAL	2026	OUTPUT: RETVAL
…		…
2010	CODE:	2104	CODE:
2011	{	2105	{
2012	RETVAL = insert_ob_in_map_at (ob, where, orig, flag, x, y);	2106	RETVAL = insert_ob_in_map_at (ob, where, orig, flag, x, y);
2013	}	2107	}
2014		2108
2015	const_utf8_string get_ob_key_value (object *op, utf8_string key)	2109	shstr
		2110	object::kv_get (shstr key)
2016		2111
2017	bool set_ob_key_value (object *op, utf8_string key, utf8_string value = 0, int add_key = 1)	2112	void
		2113	object::kv_del (shstr key)
		2114
		2115	void
		2116	object::kv_set (shstr key, shstr value)
2018		2117
2019	object get_nearest_player (object ob)	2118	object get_nearest_player (object ob)
2020	ALIAS: nearest_player = 0	2119	ALIAS: nearest_player = 0
2021	PREINIT:	2120	PREINIT:
2022	extern object get_nearest_player (object );	2121	extern object get_nearest_player (object );
…		…
2024	void rangevector (object ob, object other, int flags = 0)	2123	void rangevector (object ob, object other, int flags = 0)
2025	PROTOTYPE: $$;$	2124	PROTOTYPE: $$;$
2026	PPCODE:	2125	PPCODE:
2027	{	2126	{
2028	rv_vector rv;	2127	rv_vector rv;
		2128
		2129	PUTBACK;
2029	get_rangevector (ob, other, &rv, flags);	2130	get_rangevector (ob, other, &rv, flags);
		2131	SPAGAIN;
		2132
2030	EXTEND (SP, 5);	2133	EXTEND (SP, 5);
2031	PUSHs (newSVuv (rv.distance));	2134	PUSHs (newSVuv (rv.distance));
2032	PUSHs (newSViv (rv.distance_x));	2135	PUSHs (newSViv (rv.distance_x));
2033	PUSHs (newSViv (rv.distance_y));	2136	PUSHs (newSViv (rv.distance_y));
2034	PUSHs (newSViv (rv.direction));	2137	PUSHs (newSViv (rv.direction));
…		…
2044	base_name (object *op, int plural = op->nrof > 1)	2147	base_name (object *op, int plural = op->nrof > 1)
2045	CODE:	2148	CODE:
2046	RETVAL = query_base_name (op, plural);	2149	RETVAL = query_base_name (op, plural);
2047	OUTPUT: RETVAL	2150	OUTPUT: RETVAL
2048		2151
2049	object decrease_ob_nr (object op, unsigned long i)
2050
2051	# return the tail of an object, excluding itself	2152	# return the tail of an object, excluding itself
2052	void	2153	void
2053	tail (object *op)	2154	tail (object *op)
2054	PPCODE:	2155	PPCODE:
2055	while ((op = op->more))	2156	while ((op = op->more))
…		…
2127	if (len > MAXSOCKBUF)	2228	if (len > MAXSOCKBUF)
2128	pl->failmsg ("[packet too long for client]");	2229	pl->failmsg ("[packet too long for client]");
2129	else if (pl->ns)	2230	else if (pl->ns)
2130	pl->ns->send_packet (buf, len);	2231	pl->ns->send_packet (buf, len);
2131	}	2232	}
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		2233
2142	void savebed (player pl, SV map_path = 0, SV x = 0, SV y = 0)	2234	void savebed (player pl, SV map_path = 0, SV x = 0, SV y = 0)
2143	PROTOTYPE: $;$$$	2235	PROTOTYPE: $;$$$
2144	PPCODE:	2236	PPCODE:
2145	if (GIMME_V != G_VOID)	2237	if (GIMME_V != G_VOID)
…		…
2343	get_map_flags (maptile *map, int x, int y)	2435	get_map_flags (maptile *map, int x, int y)
2344	PPCODE:	2436	PPCODE:
2345	{	2437	{
2346	maptile *nmap = 0;	2438	maptile *nmap = 0;
2347	I16 nx = 0, ny = 0;	2439	I16 nx = 0, ny = 0;
		2440
		2441	PUTBACK;
2348	int flags = get_map_flags (map, &nmap, x, y, &nx, &ny);	2442	int flags = get_map_flags (map, &nmap, x, y, &nx, &ny);
		2443	SPAGAIN;
2349		2444
2350	EXTEND (SP, 4);	2445	EXTEND (SP, 4);
2351	PUSHs (sv_2mortal (newSViv (flags)));	2446	PUSHs (sv_2mortal (newSViv (flags)));
2352		2447
2353	if (GIMME_V == G_ARRAY)	2448	if (GIMME_V == G_ARRAY)
…		…
2356	PUSHs (sv_2mortal (newSViv (nx)));	2451	PUSHs (sv_2mortal (newSViv (nx)));
2357	PUSHs (sv_2mortal (newSViv (ny)));	2452	PUSHs (sv_2mortal (newSViv (ny)));
2358	}	2453	}
2359	}	2454	}
2360		2455
		2456	mapspace *
		2457	ms (maptile *map, unsigned int x, unsigned int y)
		2458	PROTOTYPE: $$$
		2459	CODE:
		2460	{
		2461	maptile *nmap = 0;
		2462	I16 nx, ny;
		2463
		2464	PUTBACK;
		2465	get_map_flags (map, &nmap, x, y, &nx, &ny);
		2466	SPAGAIN;
		2467
		2468	if (!nmap)
		2469	XSRETURN_UNDEF;
		2470
		2471	RETVAL = &nmap->at (nx, ny);
		2472	}
		2473	OUTPUT:
		2474	RETVAL
		2475
2361	void	2476	void
2362	at (maptile *map, unsigned int x, unsigned int y)	2477	at (maptile *map, unsigned int x, unsigned int y)
2363	PROTOTYPE: $$$	2478	PROTOTYPE: $$$
2364	PPCODE:	2479	PPCODE:
2365	{	2480	{
2366	object *o;
2367	maptile *nmap = 0;	2481	maptile *nmap = 0;
2368	I16 nx, ny;	2482	I16 nx, ny;
2369		2483
		2484	PUTBACK;
2370	get_map_flags (map, &nmap, x, y, &nx, &ny);	2485	get_map_flags (map, &nmap, x, y, &nx, &ny);
		2486	SPAGAIN;
2371		2487
2372	if (nmap)	2488	if (nmap)
2373	for (o = GET_MAP_OB (nmap, nx, ny); o; o = o->above)	2489	for (object *o = nmap->at (nx, ny).bot; o; o = o->above)
2374	XPUSHs (sv_2mortal (to_sv (o)));	2490	XPUSHs (sv_2mortal (to_sv (o)));
2375	}	2491	}
2376		2492
2377	SV *	2493	SV *
2378	bot_at (maptile *obj, unsigned int x, unsigned int y)	2494	bot_at (maptile *obj, unsigned int x, unsigned int y)
…		…
2491	RETVAL = self->generate_random_map (&rmp);	2607	RETVAL = self->generate_random_map (&rmp);
2492	}	2608	}
2493	OUTPUT:	2609	OUTPUT:
2494	RETVAL	2610	RETVAL
2495		2611
		2612	MODULE = cf PACKAGE = cf::mapspace
		2613
		2614	INCLUDE: $PERL $srcdir/genacc mapspace ../include/map.h \|
		2615
2496	MODULE = cf PACKAGE = cf::arch	2616	MODULE = cf PACKAGE = cf::arch
2497		2617
2498	int archetypes_size ()	2618	int archetypes_size ()
2499	CODE:	2619	CODE:
2500	RETVAL = archetypes.size ();	2620	RETVAL = archetypes.size ();

Diff Legend

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

Comparing deliantra/server/server/cfperl.xs (file contents): Revision 1.272 by root, Wed Apr 2 11:13:56 2008 UTC vs. Revision 1.297 by root, Mon Sep 8 11:27:25 2008 UTC

Diff Legend

Comparing deliantra/server/server/cfperl.xs (file contents):
Revision 1.272 by root, Wed Apr 2 11:13:56 2008 UTC vs.
Revision 1.297 by root, Mon Sep 8 11:27:25 2008 UTC