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

Comparing deliantra/server/server/cfperl.xs (file contents):
Revision 1.277 by root, Sat Apr 19 21:10:29 2008 UTC vs.
Revision 1.294 by root, Fri Aug 29 02:07:09 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 ()); }
…		…
460	inline void sv_to (SV sv, maptile &v) { v = (maptile )(attachable )SvPTR_ornull (sv, "cf::map"); }	464	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"); }	465	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"); }	466	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"); }	467	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"); }	468	inline void sv_to (SV sv, living &v) { v = (living *)SvPTR_ornull (sv, "cf::living"); }
		469	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"); }	470	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" ); }	471	inline void sv_to (SV sv, object_thawer &v) { v = (object_thawer *)SvPTR_ornull (sv, "cf::object::thawer" ); }
467		472
468	//inline void sv_to (SV sv, faceinfo &v) { v = &faces [face_find (SvPV_nolen (sv), 0)]; }	473	//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)); }	474	inline void sv_to (SV sv, treasurelist &v) { v = treasurelist::find (SvPV_nolen (sv)); }
…		…
940	CALL_CALL ("ext::books::make_book", G_VOID);	945	CALL_CALL ("ext::books::make_book", G_VOID);
941	CALL_END;	946	CALL_END;
942	}	947	}
943		948
944	void	949	void
		950	cfperl_expand_cfpod (player *pl, std::string &msg)
		951	{
		952	CALL_BEGIN (2);
		953	CALL_ARG (pl);
		954	CALL_ARG_SV (newSVpvn_utf8 (msg.data (), msg.size ()));
		955	CALL_CALL ("cf::player::expand_cfpod", G_SCALAR);
		956
		957	if (count)
		958	{
		959	STRLEN len;
		960	char *data = SvPVutf8 (TOPs, len);
		961	msg.assign (data, len);
		962	}
		963
		964	CALL_END;
		965	}
		966
		967	void
945	cfperl_send_msg (client ns, int color, const char type, const char *msg)	968	cfperl_send_msg (client ns, int color, const char type, const char *msg)
946	{	969	{
947	CALL_BEGIN (4);	970	CALL_BEGIN (4);
948	CALL_ARG (ns);	971	CALL_ARG (ns);
949	CALL_ARG (type);	972	CALL_ARG (type);
…		…
973	{	996	{
974	CALL_BEGIN (1);	997	CALL_BEGIN (1);
975	CALL_ARG (name);	998	CALL_ARG (name);
976	CALL_CALL ("cf::player::find", G_SCALAR);	999	CALL_CALL ("cf::player::find", G_SCALAR);
977		1000
978	player *retval;	1001	player *retval = 0;
979
980	if (count)
981	sv_to (POPs, retval);	1002	if (count) sv_to (POPs, retval);
982	else	1003
983	retval = 0;	1004	CALL_END;
		1005
		1006	return retval;
		1007	}
		1008
		1009	maptile *
		1010	find_style (const char dirname, const char stylename, int difficulty)
		1011	{
		1012	CALL_BEGIN (3);
		1013	CALL_ARG (dirname);
		1014	CALL_ARG (stylename);
		1015	CALL_ARG (difficulty);
		1016	CALL_CALL ("ext::map_random::find_style", G_SCALAR);
		1017
		1018	maptile *retval = 0;
		1019	if (count) sv_to (POPs, retval);
984		1020
985	CALL_END;	1021	CALL_END;
986		1022
987	return retval;	1023	return retval;
988	}	1024	}
…		…
993	CALL_BEGIN (2);	1029	CALL_BEGIN (2);
994	CALL_ARG (path);	1030	CALL_ARG (path);
995	CALL_ARG (origin);	1031	CALL_ARG (origin);
996	CALL_CALL ("cf::map::find_sync", G_SCALAR);	1032	CALL_CALL ("cf::map::find_sync", G_SCALAR);
997		1033
998	maptile *retval;	1034	maptile *retval = 0;
999
1000	if (count)
1001	sv_to (POPs, retval);	1035	if (count) sv_to (POPs, retval);
1002	else
1003	retval = 0;
1004		1036
1005	CALL_END;	1037	CALL_END;
1006		1038
1007	return retval;	1039	return retval;
1008	}	1040	}
…		…
1014	CALL_ARG (path);	1046	CALL_ARG (path);
1015	CALL_ARG (origin);	1047	CALL_ARG (origin);
1016	CALL_ARG (load);	1048	CALL_ARG (load);
1017	CALL_CALL ("cf::map::find_async", G_SCALAR);	1049	CALL_CALL ("cf::map::find_async", G_SCALAR);
1018		1050
1019	maptile *retval;	1051	maptile *retval = 0;
1020
1021	if (count)
1022	sv_to (POPs, retval);	1052	if (count) sv_to (POPs, retval);
1023	else
1024	retval = 0;
1025		1053
1026	CALL_END;	1054	CALL_END;
1027		1055
1028	return retval;	1056	return retval;
1029	}	1057	}
…		…
1054		1082
1055	CALL_BEGIN (2);	1083	CALL_BEGIN (2);
1056	CALL_ARG (this);	1084	CALL_ARG (this);
1057	CALL_ARG (exit);	1085	CALL_ARG (exit);
1058	CALL_CALL ("cf::object::player::enter_exit", G_VOID);	1086	CALL_CALL ("cf::object::player::enter_exit", G_VOID);
		1087	CALL_END;
		1088	}
		1089
		1090	void
		1091	object::player_goto (const char *path, int x, int y)
		1092	{
		1093	if (type != PLAYER)
		1094	return;
		1095
		1096	CALL_BEGIN (4);
		1097	CALL_ARG (this);
		1098	CALL_ARG (path);
		1099	CALL_ARG (x);
		1100	CALL_ARG (y);
		1101	CALL_CALL ("cf::object::player::goto", G_VOID);
1059	CALL_END;	1102	CALL_END;
1060	}	1103	}
1061		1104
1062	const char *	1105	const char *
1063	object::ref () const	1106	object::ref () const
…		…
1150		1193
1151	stash_cf_object_wrap = gv_stashpv ("cf::object::wrap", 1);	1194	stash_cf_object_wrap = gv_stashpv ("cf::object::wrap", 1);
1152	stash_cf_object_player_wrap = gv_stashpv ("cf::object::player::wrap", 1);	1195	stash_cf_object_player_wrap = gv_stashpv ("cf::object::player::wrap", 1);
1153	stash_cf_player_wrap = gv_stashpv ("cf::player::wrap", 1);	1196	stash_cf_player_wrap = gv_stashpv ("cf::player::wrap", 1);
1154	stash_cf_map_wrap = gv_stashpv ("cf::map::wrap" , 1);	1197	stash_cf_map_wrap = gv_stashpv ("cf::map::wrap" , 1);
		1198	stash_cf_mapspace_wrap = gv_stashpv ("cf::mapspace::wrap" , 1);
1155	stash_cf_client_wrap = gv_stashpv ("cf::client::wrap", 1);	1199	stash_cf_client_wrap = gv_stashpv ("cf::client::wrap", 1);
1156	stash_cf_arch_wrap = gv_stashpv ("cf::arch::wrap" , 1);	1200	stash_cf_arch_wrap = gv_stashpv ("cf::arch::wrap" , 1);
1157	stash_cf_party_wrap = gv_stashpv ("cf::party::wrap" , 1);	1201	stash_cf_party_wrap = gv_stashpv ("cf::party::wrap" , 1);
1158	stash_cf_region_wrap = gv_stashpv ("cf::region::wrap", 1);	1202	stash_cf_region_wrap = gv_stashpv ("cf::region::wrap", 1);
1159	stash_cf_living_wrap = gv_stashpv ("cf::living::wrap", 1);	1203	stash_cf_living_wrap = gv_stashpv ("cf::living::wrap", 1);
…		…
1352	const_iv (F_CURSED) const_iv (F_DAMNED) const_iv (F_OPEN) const_iv (F_NOPICK)	1396	const_iv (F_CURSED) const_iv (F_DAMNED) const_iv (F_OPEN) const_iv (F_NOPICK)
1353	const_iv (F_LOCKED)	1397	const_iv (F_LOCKED)
1354		1398
1355	const_iv (F_BUY) const_iv (F_SHOP) const_iv (F_SELL)	1399	const_iv (F_BUY) const_iv (F_SHOP) const_iv (F_SELL)
1356		1400
1357	const_iv (P_BLOCKSVIEW) const_iv (P_PLAYER) const_iv (P_NO_MAGIC) const_iv (P_IS_ALIVE)	1401	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)	1402	const_iv (P_NO_CLERIC) const_iv (P_OUT_OF_MAP) const_iv (P_NEW_MAP) const_iv (P_UPTODATE)
1359		1403
1360	const_iv (UP_OBJ_INSERT) const_iv (UP_OBJ_REMOVE) const_iv (UP_OBJ_CHANGE) const_iv (UP_OBJ_FACE)	1404	const_iv (UP_OBJ_INSERT) const_iv (UP_OBJ_REMOVE) const_iv (UP_OBJ_CHANGE) const_iv (UP_OBJ_FACE)
1361		1405
1362	const_iv (INS_NO_MERGE) const_iv (INS_ABOVE_FLOOR_ONLY) const_iv (INS_NO_WALK_ON)	1406	const_iv (INS_NO_MERGE) const_iv (INS_ABOVE_FLOOR_ONLY) const_iv (INS_NO_WALK_ON)
…		…
1428		1472
1429	const_iv (SYMMETRY_RANDOM) const_iv (SYMMETRY_NONE) const_iv (SYMMETRY_X)	1473	const_iv (SYMMETRY_RANDOM) const_iv (SYMMETRY_NONE) const_iv (SYMMETRY_X)
1430	const_iv (SYMMETRY_Y) const_iv (SYMMETRY_XY)	1474	const_iv (SYMMETRY_Y) const_iv (SYMMETRY_XY)
1431		1475
1432	const_iv (GT_ENVIRONMENT) const_iv (GT_INVISIBLE) const_iv (GT_STARTEQUIP)	1476	const_iv (GT_ENVIRONMENT) const_iv (GT_INVISIBLE) const_iv (GT_STARTEQUIP)
1433	const_iv (GT_APPLY) const_iv (GT_ONLY_GOOD) const_iv (GT_UPDATE_INV)	1477	const_iv (GT_APPLY) const_iv (GT_ONLY_GOOD) const_iv (GT_MINIMAL)
1434	const_iv (GT_MINIMAL)
1435		1478
1436	const_iv (FT_FACE) const_iv (FT_MUSIC) const_iv (FT_SOUND)	1479	const_iv (FT_FACE) const_iv (FT_MUSIC) const_iv (FT_SOUND)
1437	const_iv (FT_RSRC) const_iv (FT_NUM)	1480	const_iv (FT_RSRC) const_iv (FT_NUM)
1438	};	1481	};
1439		1482
…		…
1570	NV floor (NV x)	1613	NV floor (NV x)
1571		1614
1572	NV ceil (NV x)	1615	NV ceil (NV x)
1573		1616
1574	NV rndm (...)	1617	NV rndm (...)
		1618	ALIAS:
		1619	rmg_rndm = 1
1575	CODE:	1620	CODE:
		1621	{
		1622	rand_gen &gen = ix ? rmg_rndm : rndm;
1576	switch (items)	1623	switch (items)
1577	{	1624	{
1578	case 0: RETVAL = rndm (); break;	1625	case 0: RETVAL = gen (); break;
1579	case 1: RETVAL = rndm (SvUV (ST (0))); break;	1626	case 1: RETVAL = gen (SvUV (ST (0))); break;
1580	case 2: RETVAL = rndm (SvIV (ST (0)), SvIV (ST (1))); break;	1627	case 2: RETVAL = gen (SvIV (ST (0)), SvIV (ST (1))); break;
1581	default: croak ("cf::rndm requires none, one or two parameters."); break;	1628	default: croak ("cf::rndm requires none, one or two parameters."); break;
1582	}	1629	}
		1630	}
1583	OUTPUT:	1631	OUTPUT:
1584	RETVAL	1632	RETVAL
1585		1633
1586	NV clamp (NV value, NV min_value, NV max_value)	1634	NV clamp (NV value, NV min_value, NV max_value)
1587	CODE:	1635	CODE:
…		…
1612	octet_string path_combine (octet_string base, octet_string path)	1660	octet_string path_combine (octet_string base, octet_string path)
1613	PROTOTYPE: $$	1661	PROTOTYPE: $$
1614		1662
1615	octet_string path_combine_and_normalize (octet_string base, octet_string path)	1663	octet_string path_combine_and_normalize (octet_string base, octet_string path)
1616	PROTOTYPE: $$	1664	PROTOTYPE: $$
1617
1618	void
1619	mallinfo ()
1620	PPCODE:
1621	{
1622	#if __GLIBC__
1623	struct mallinfo mai = mallinfo ();
1624	EXTEND (SP, 10*2);
1625	PUSHs (sv_2mortal (newSVpv ("arena" , 0))); PUSHs (sv_2mortal (newSViv (mai.arena)));
1626	PUSHs (sv_2mortal (newSVpv ("ordblks" , 0))); PUSHs (sv_2mortal (newSViv (mai.ordblks)));
1627	PUSHs (sv_2mortal (newSVpv ("smblks" , 0))); PUSHs (sv_2mortal (newSViv (mai.smblks)));
1628	PUSHs (sv_2mortal (newSVpv ("hblks" , 0))); PUSHs (sv_2mortal (newSViv (mai.hblks)));
1629	PUSHs (sv_2mortal (newSVpv ("hblkhd" , 0))); PUSHs (sv_2mortal (newSViv (mai.hblkhd)));
1630	PUSHs (sv_2mortal (newSVpv ("usmblks" , 0))); PUSHs (sv_2mortal (newSViv (mai.usmblks)));
1631	PUSHs (sv_2mortal (newSVpv ("fsmblks" , 0))); PUSHs (sv_2mortal (newSViv (mai.fsmblks)));
1632	PUSHs (sv_2mortal (newSVpv ("uordblks", 0))); PUSHs (sv_2mortal (newSViv (mai.uordblks)));
1633	PUSHs (sv_2mortal (newSVpv ("fordblks", 0))); PUSHs (sv_2mortal (newSViv (mai.fordblks)));
1634	PUSHs (sv_2mortal (newSVpv ("keepcost", 0))); PUSHs (sv_2mortal (newSViv (mai.keepcost)));
1635	#endif
1636	EXTEND (SP, 2*2);
1637	PUSHs (sv_2mortal (newSVpv ("slice_alloc", 0))); PUSHs (sv_2mortal (newSVuv (slice_alloc)));
1638	PUSHs (sv_2mortal (newSVpv ("shstr_alloc", 0))); PUSHs (sv_2mortal (newSVuv (shstr_alloc)));
1639	}
1640		1665
1641	void	1666	void
1642	sub_generation_inc ()	1667	sub_generation_inc ()
1643	CODE:	1668	CODE:
1644	PL_sub_generation++;	1669	PL_sub_generation++;
…		…
1681		1706
1682	#if _POSIX_MEMLOCK	1707	#if _POSIX_MEMLOCK
1683		1708
1684	int mlockall (int flags = MCL_CURRENT \| MCL_FUTURE)	1709	int mlockall (int flags = MCL_CURRENT \| MCL_FUTURE)
1685	INIT:	1710	INIT:
1686	#ifdef __linux	1711	#if __GLIBC__
1687	mallopt (M_PERTURB, 0xaa); // bug-workaround for linux glibc+mlockall+calloc	1712	mallopt (M_PERTURB, 0xee); // bug-workaround for linux glibc+mlockall+calloc
1688	#endif	1713	#endif
1689		1714
1690	int munlockall ()	1715	int munlockall ()
1691		1716
1692	#endif	1717	#endif
		1718
		1719	int
		1720	malloc_trim (IV pad = 0)
		1721
		1722	void
		1723	mallinfo ()
		1724	PPCODE:
		1725	{
		1726	#if __GLIBC__
		1727	struct mallinfo mai = mallinfo ();
		1728	EXTEND (SP, 10*2);
		1729	PUSHs (sv_2mortal (newSVpv ("arena" , 0))); PUSHs (sv_2mortal (newSViv (mai.arena)));
		1730	PUSHs (sv_2mortal (newSVpv ("ordblks" , 0))); PUSHs (sv_2mortal (newSViv (mai.ordblks)));
		1731	PUSHs (sv_2mortal (newSVpv ("smblks" , 0))); PUSHs (sv_2mortal (newSViv (mai.smblks)));
		1732	PUSHs (sv_2mortal (newSVpv ("hblks" , 0))); PUSHs (sv_2mortal (newSViv (mai.hblks)));
		1733	PUSHs (sv_2mortal (newSVpv ("hblkhd" , 0))); PUSHs (sv_2mortal (newSViv (mai.hblkhd)));
		1734	PUSHs (sv_2mortal (newSVpv ("usmblks" , 0))); PUSHs (sv_2mortal (newSViv (mai.usmblks)));
		1735	PUSHs (sv_2mortal (newSVpv ("fsmblks" , 0))); PUSHs (sv_2mortal (newSViv (mai.fsmblks)));
		1736	PUSHs (sv_2mortal (newSVpv ("uordblks", 0))); PUSHs (sv_2mortal (newSViv (mai.uordblks)));
		1737	PUSHs (sv_2mortal (newSVpv ("fordblks", 0))); PUSHs (sv_2mortal (newSViv (mai.fordblks)));
		1738	PUSHs (sv_2mortal (newSVpv ("keepcost", 0))); PUSHs (sv_2mortal (newSViv (mai.keepcost)));
		1739	#endif
		1740	EXTEND (SP, 2*2);
		1741	PUSHs (sv_2mortal (newSVpv ("slice_alloc", 0))); PUSHs (sv_2mortal (newSVuv (slice_alloc)));
		1742	PUSHs (sv_2mortal (newSVpv ("shstr_alloc", 0))); PUSHs (sv_2mortal (newSVuv (shstr_alloc)));
		1743	PUSHs (sv_2mortal (newSVpv ("objects" , 0))); PUSHs (sv_2mortal (newSVuv (objects.size () * sizeof (object))));
		1744	}
1693		1745
1694	int find_animation (utf8_string text)	1746	int find_animation (utf8_string text)
1695	PROTOTYPE: $	1747	PROTOTYPE: $
1696		1748
1697	int random_roll (int min, int max, object *op, int goodbad);	1749	int random_roll (int min, int max, object *op, int goodbad);
…		…
1778	EXTEND (SP, NUM_COINS);	1830	EXTEND (SP, NUM_COINS);
1779	for (int i = 0; i < NUM_COINS; ++i)	1831	for (int i = 0; i < NUM_COINS; ++i)
1780	PUSHs (sv_2mortal (to_sv (archetype::find (coins [i]))));	1832	PUSHs (sv_2mortal (to_sv (archetype::find (coins [i]))));
1781		1833
1782	bool	1834	bool
1783	load_resource_file (octet_string filename)	1835	load_resource_file_ (octet_string filename)
		1836
		1837	void
		1838	fix_weight ()
1784		1839
1785	MODULE = cf PACKAGE = cf::attachable	1840	MODULE = cf PACKAGE = cf::attachable
1786		1841
1787	int	1842	int
1788	valid (SV *obj)	1843	valid (SV *obj)
…		…
1852	object *actives (U32 index)	1907	object *actives (U32 index)
1853	CODE:	1908	CODE:
1854	RETVAL = index < actives.size () ? actives [index] : 0;	1909	RETVAL = index < actives.size () ? actives [index] : 0;
1855	OUTPUT: RETVAL	1910	OUTPUT: RETVAL
1856		1911
		1912	int mortals_size ()
		1913	CODE:
		1914	RETVAL = attachable::mortals.size ();
		1915	OUTPUT: RETVAL
		1916
1857	const char *slot_use_name (U32 slot)	1917	const char *slot_use_name (U32 slot)
1858	ALIAS:	1918	ALIAS:
1859	slot_nonuse_name = 1	1919	slot_nonuse_name = 1
1860	CODE:	1920	CODE:
1861	{	1921	{
…		…
1939	void apply_below (object *op)	1999	void apply_below (object *op)
1940	CODE:	2000	CODE:
1941	player_apply_below (op);	2001	player_apply_below (op);
1942		2002
1943	int cast_heal (object op, object caster, object *spell, int dir = 0)	2003	int cast_heal (object op, object caster, object *spell, int dir = 0)
1944
1945	#//TODO
1946	object clone_ (object op, int recursive = 0)
1947	CODE:
1948	if (recursive)
1949	RETVAL = object_create_clone (op);
1950	else
1951	{
1952	RETVAL = object::create ();
1953	op->copy_to (RETVAL);
1954	}
1955	OUTPUT: RETVAL
1956		2004
1957	int pay_item (object op, object buyer)	2005	int pay_item (object op, object buyer)
1958	CODE:	2006	CODE:
1959	RETVAL = pay_for_item (op, buyer);	2007	RETVAL = pay_for_item (op, buyer);
1960	OUTPUT: RETVAL	2008	OUTPUT: RETVAL
…		…
2038	CODE:	2086	CODE:
2039	{	2087	{
2040	RETVAL = insert_ob_in_map_at (ob, where, orig, flag, x, y);	2088	RETVAL = insert_ob_in_map_at (ob, where, orig, flag, x, y);
2041	}	2089	}
2042		2090
2043	const_utf8_string get_ob_key_value (object *op, utf8_string key)	2091	shstr
		2092	object::kv_get (shstr key)
2044		2093
2045	bool set_ob_key_value (object *op, utf8_string key, utf8_string value = 0, int add_key = 1)	2094	void
		2095	object::kv_del (shstr key)
		2096
		2097	void
		2098	object::kv_set (shstr key, shstr value)
2046		2099
2047	object get_nearest_player (object ob)	2100	object get_nearest_player (object ob)
2048	ALIAS: nearest_player = 0	2101	ALIAS: nearest_player = 0
2049	PREINIT:	2102	PREINIT:
2050	extern object get_nearest_player (object );	2103	extern object get_nearest_player (object );
…		…
2052	void rangevector (object ob, object other, int flags = 0)	2105	void rangevector (object ob, object other, int flags = 0)
2053	PROTOTYPE: $$;$	2106	PROTOTYPE: $$;$
2054	PPCODE:	2107	PPCODE:
2055	{	2108	{
2056	rv_vector rv;	2109	rv_vector rv;
		2110
		2111	PUTBACK;
2057	get_rangevector (ob, other, &rv, flags);	2112	get_rangevector (ob, other, &rv, flags);
		2113	SPAGAIN;
		2114
2058	EXTEND (SP, 5);	2115	EXTEND (SP, 5);
2059	PUSHs (newSVuv (rv.distance));	2116	PUSHs (newSVuv (rv.distance));
2060	PUSHs (newSViv (rv.distance_x));	2117	PUSHs (newSViv (rv.distance_x));
2061	PUSHs (newSViv (rv.distance_y));	2118	PUSHs (newSViv (rv.distance_y));
2062	PUSHs (newSViv (rv.direction));	2119	PUSHs (newSViv (rv.direction));
…		…
2072	base_name (object *op, int plural = op->nrof > 1)	2129	base_name (object *op, int plural = op->nrof > 1)
2073	CODE:	2130	CODE:
2074	RETVAL = query_base_name (op, plural);	2131	RETVAL = query_base_name (op, plural);
2075	OUTPUT: RETVAL	2132	OUTPUT: RETVAL
2076		2133
2077	object decrease_ob_nr (object op, unsigned long i)
2078
2079	# return the tail of an object, excluding itself	2134	# return the tail of an object, excluding itself
2080	void	2135	void
2081	tail (object *op)	2136	tail (object *op)
2082	PPCODE:	2137	PPCODE:
2083	while ((op = op->more))	2138	while ((op = op->more))
…		…
2155	if (len > MAXSOCKBUF)	2210	if (len > MAXSOCKBUF)
2156	pl->failmsg ("[packet too long for client]");	2211	pl->failmsg ("[packet too long for client]");
2157	else if (pl->ns)	2212	else if (pl->ns)
2158	pl->ns->send_packet (buf, len);	2213	pl->ns->send_packet (buf, len);
2159	}	2214	}
2160
2161	int
2162	listening (player *pl, int new_value = -1)
2163	CODE:
2164	RETVAL = pl->listening;
2165	if (new_value >= 0)
2166	pl->listening = new_value;
2167	OUTPUT:
2168	RETVAL
2169		2215
2170	void savebed (player pl, SV map_path = 0, SV x = 0, SV y = 0)	2216	void savebed (player pl, SV map_path = 0, SV x = 0, SV y = 0)
2171	PROTOTYPE: $;$$$	2217	PROTOTYPE: $;$$$
2172	PPCODE:	2218	PPCODE:
2173	if (GIMME_V != G_VOID)	2219	if (GIMME_V != G_VOID)
…		…
2371	get_map_flags (maptile *map, int x, int y)	2417	get_map_flags (maptile *map, int x, int y)
2372	PPCODE:	2418	PPCODE:
2373	{	2419	{
2374	maptile *nmap = 0;	2420	maptile *nmap = 0;
2375	I16 nx = 0, ny = 0;	2421	I16 nx = 0, ny = 0;
		2422
		2423	PUTBACK;
2376	int flags = get_map_flags (map, &nmap, x, y, &nx, &ny);	2424	int flags = get_map_flags (map, &nmap, x, y, &nx, &ny);
		2425	SPAGAIN;
2377		2426
2378	EXTEND (SP, 4);	2427	EXTEND (SP, 4);
2379	PUSHs (sv_2mortal (newSViv (flags)));	2428	PUSHs (sv_2mortal (newSViv (flags)));
2380		2429
2381	if (GIMME_V == G_ARRAY)	2430	if (GIMME_V == G_ARRAY)
…		…
2384	PUSHs (sv_2mortal (newSViv (nx)));	2433	PUSHs (sv_2mortal (newSViv (nx)));
2385	PUSHs (sv_2mortal (newSViv (ny)));	2434	PUSHs (sv_2mortal (newSViv (ny)));
2386	}	2435	}
2387	}	2436	}
2388		2437
		2438	mapspace *
		2439	ms (maptile *map, unsigned int x, unsigned int y)
		2440	PROTOTYPE: $$$
		2441	CODE:
		2442	{
		2443	maptile *nmap = 0;
		2444	I16 nx, ny;
		2445
		2446	PUTBACK;
		2447	get_map_flags (map, &nmap, x, y, &nx, &ny);
		2448	SPAGAIN;
		2449
		2450	if (!nmap)
		2451	XSRETURN_UNDEF;
		2452
		2453	RETVAL = &nmap->at (nx, ny);
		2454	}
		2455	OUTPUT:
		2456	RETVAL
		2457
2389	void	2458	void
2390	at (maptile *map, unsigned int x, unsigned int y)	2459	at (maptile *map, unsigned int x, unsigned int y)
2391	PROTOTYPE: $$$	2460	PROTOTYPE: $$$
2392	PPCODE:	2461	PPCODE:
2393	{	2462	{
2394	object *o;
2395	maptile *nmap = 0;	2463	maptile *nmap = 0;
2396	I16 nx, ny;	2464	I16 nx, ny;
2397		2465
		2466	PUTBACK;
2398	get_map_flags (map, &nmap, x, y, &nx, &ny);	2467	get_map_flags (map, &nmap, x, y, &nx, &ny);
		2468	SPAGAIN;
2399		2469
2400	if (nmap)	2470	if (nmap)
2401	for (o = GET_MAP_OB (nmap, nx, ny); o; o = o->above)	2471	for (object *o = nmap->at (nx, ny).bot; o; o = o->above)
2402	XPUSHs (sv_2mortal (to_sv (o)));	2472	XPUSHs (sv_2mortal (to_sv (o)));
2403	}	2473	}
2404		2474
2405	SV *	2475	SV *
2406	bot_at (maptile *obj, unsigned int x, unsigned int y)	2476	bot_at (maptile *obj, unsigned int x, unsigned int y)
…		…
2519	RETVAL = self->generate_random_map (&rmp);	2589	RETVAL = self->generate_random_map (&rmp);
2520	}	2590	}
2521	OUTPUT:	2591	OUTPUT:
2522	RETVAL	2592	RETVAL
2523		2593
		2594	MODULE = cf PACKAGE = cf::mapspace
		2595
		2596	INCLUDE: $PERL $srcdir/genacc mapspace ../include/map.h \|
		2597
2524	MODULE = cf PACKAGE = cf::arch	2598	MODULE = cf PACKAGE = cf::arch
2525		2599
2526	int archetypes_size ()	2600	int archetypes_size ()
2527	CODE:	2601	CODE:
2528	RETVAL = archetypes.size ();	2602	RETVAL = archetypes.size ();

Diff Legend

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

Comparing deliantra/server/server/cfperl.xs (file contents): Revision 1.277 by root, Sat Apr 19 21:10:29 2008 UTC vs. Revision 1.294 by root, Fri Aug 29 02:07:09 2008 UTC

Diff Legend

Comparing deliantra/server/server/cfperl.xs (file contents):
Revision 1.277 by root, Sat Apr 19 21:10:29 2008 UTC vs.
Revision 1.294 by root, Fri Aug 29 02:07:09 2008 UTC