[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.288 by root, Tue May 6 18:47:32 2008 UTC

…		…
45		45
46	#if HAVE_MALLOC_H	46	#if HAVE_MALLOC_H
47	# include <malloc.h>	47	# include <malloc.h>
48	#endif	48	#endif
49		49
		50	#if !__GLIBC__
		51	# define malloc_trim(pad) -1
		52	#endif
		53
50	#include <EXTERN.h>	54	#include <EXTERN.h>
51	#include <perl.h>	55	#include <perl.h>
52	#include <XSUB.h>	56	#include <XSUB.h>
53		57
54	#include "CoroAPI.h"	58	#include "CoroAPI.h"
…		…
58		62
59	typedef object_thawer &object_thawer_ref;	63	typedef object_thawer &object_thawer_ref;
60	typedef object_freezer &object_freezer_ref;	64	typedef object_freezer &object_freezer_ref;
61		65
62	typedef std::string std__string;	66	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		67
74	static PerlInterpreter *perl;	68	static PerlInterpreter *perl;
75		69
76	tstamp NOW, runtime;	70	tstamp NOW, runtime;
77		71
…		…
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
449	inline SV *to_sv (UUID v)	443	inline SV *to_sv (UUID v) { return newSVpv (v.c_str (), 0); }
450	{
451	char buf[128];
452	snprintf (buf, 128, "<1.%" PRIx64 ">", v.seq);
453	return newSVpv (buf, 0);
454	}
455		444
456	inline void sv_to (SV *sv, shstr &v) { v = SvOK (sv) ? SvPVutf8_nolen (sv) : 0; }	445	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; }	446	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); }	447	inline void sv_to (SV *sv, bool &v) { v = SvIV (sv); }
459	inline void sv_to (SV *sv, signed char &v) { v = SvIV (sv); }	448	inline void sv_to (SV *sv, signed char &v) { v = SvIV (sv); }
…		…
501	v.assign (data, len);	490	v.assign (data, len);
502	}	491	}
503		492
504	inline void sv_to (SV *sv, UUID &v)	493	inline void sv_to (SV *sv, UUID &v)
505	{	494	{
506	unsigned int version;	495	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));	496	croak ("unparsable uuid: %s", SvPV_nolen (sv));
510	}	497	}
511		498
512	inline void sv_to (SV *sv, object::flags_t::reference v) { v = SvTRUE (sv); }	499	inline void sv_to (SV *sv, object::flags_t::reference v) { v = SvTRUE (sv); }
513		500
…		…
990	{	977	{
991	CALL_BEGIN (1);	978	CALL_BEGIN (1);
992	CALL_ARG (name);	979	CALL_ARG (name);
993	CALL_CALL ("cf::player::find", G_SCALAR);	980	CALL_CALL ("cf::player::find", G_SCALAR);
994		981
995	player *retval;	982	player *retval = 0;
996
997	if (count)
998	sv_to (POPs, retval);	983	if (count) sv_to (POPs, retval);
999	else	984
1000	retval = 0;	985	CALL_END;
		986
		987	return retval;
		988	}
		989
		990	maptile *
		991	find_style (const char dirname, const char stylename, int difficulty)
		992	{
		993	CALL_BEGIN (3);
		994	CALL_ARG (dirname);
		995	CALL_ARG (stylename);
		996	CALL_ARG (difficulty);
		997	CALL_CALL ("ext::map_random::find_style", G_SCALAR);
		998
		999	maptile *retval = 0;
		1000	if (count) sv_to (POPs, retval);
1001		1001
1002	CALL_END;	1002	CALL_END;
1003		1003
1004	return retval;	1004	return retval;
1005	}	1005	}
…		…
1010	CALL_BEGIN (2);	1010	CALL_BEGIN (2);
1011	CALL_ARG (path);	1011	CALL_ARG (path);
1012	CALL_ARG (origin);	1012	CALL_ARG (origin);
1013	CALL_CALL ("cf::map::find_sync", G_SCALAR);	1013	CALL_CALL ("cf::map::find_sync", G_SCALAR);
1014		1014
1015	maptile *retval;	1015	maptile *retval = 0;
1016
1017	if (count)
1018	sv_to (POPs, retval);	1016	if (count) sv_to (POPs, retval);
1019	else
1020	retval = 0;
1021		1017
1022	CALL_END;	1018	CALL_END;
1023		1019
1024	return retval;	1020	return retval;
1025	}	1021	}
…		…
1031	CALL_ARG (path);	1027	CALL_ARG (path);
1032	CALL_ARG (origin);	1028	CALL_ARG (origin);
1033	CALL_ARG (load);	1029	CALL_ARG (load);
1034	CALL_CALL ("cf::map::find_async", G_SCALAR);	1030	CALL_CALL ("cf::map::find_async", G_SCALAR);
1035		1031
1036	maptile *retval;	1032	maptile *retval = 0;
1037
1038	if (count)
1039	sv_to (POPs, retval);	1033	if (count) sv_to (POPs, retval);
1040	else
1041	retval = 0;
1042		1034
1043	CALL_END;	1035	CALL_END;
1044		1036
1045	return retval;	1037	return retval;
1046	}	1038	}
…		…
1071		1063
1072	CALL_BEGIN (2);	1064	CALL_BEGIN (2);
1073	CALL_ARG (this);	1065	CALL_ARG (this);
1074	CALL_ARG (exit);	1066	CALL_ARG (exit);
1075	CALL_CALL ("cf::object::player::enter_exit", G_VOID);	1067	CALL_CALL ("cf::object::player::enter_exit", G_VOID);
		1068	CALL_END;
		1069	}
		1070
		1071	void
		1072	object::player_goto (const char *path, int x, int y)
		1073	{
		1074	if (type != PLAYER)
		1075	return;
		1076
		1077	CALL_BEGIN (4);
		1078	CALL_ARG (this);
		1079	CALL_ARG (path);
		1080	CALL_ARG (x);
		1081	CALL_ARG (y);
		1082	CALL_CALL ("cf::object::player::goto", G_VOID);
1076	CALL_END;	1083	CALL_END;
1077	}	1084	}
1078		1085
1079	const char *	1086	const char *
1080	object::ref () const	1087	object::ref () const
…		…
1419	const_iv (ATNR_PARALYZE) const_iv (ATNR_TURN_UNDEAD) const_iv (ATNR_FEAR) const_iv (ATNR_CANCELLATION)	1426	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)	1427	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)	1428	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)	1429	const_iv (ATNR_LIFE_STEALING) const_iv (ATNR_DISEASE)
1423		1430
1424	const_iv (MAP_IN_MEMORY) const_iv (MAP_SWAPPED) const_iv (MAP_LOADING) const_iv (MAP_SAVING)	1431	const_iv (MAP_ACTIVE) const_iv (MAP_SWAPPED) const_iv (MAP_LOADING) const_iv (MAP_SAVING)
		1432	const_iv (MAP_INACTIVE)
1425		1433
1426	const_iv (KLASS_ATTACHABLE) const_iv (KLASS_GLOBAL) const_iv (KLASS_OBJECT)	1434	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)	1435	const_iv (KLASS_CLIENT) const_iv (KLASS_PLAYER) const_iv (KLASS_MAP)
1428		1436
1429	const_iv (VERSION_CS) const_iv (VERSION_SC)	1437	const_iv (VERSION_CS) const_iv (VERSION_SC)
…		…
1444		1452
1445	const_iv (SYMMETRY_RANDOM) const_iv (SYMMETRY_NONE) const_iv (SYMMETRY_X)	1453	const_iv (SYMMETRY_RANDOM) const_iv (SYMMETRY_NONE) const_iv (SYMMETRY_X)
1446	const_iv (SYMMETRY_Y) const_iv (SYMMETRY_XY)	1454	const_iv (SYMMETRY_Y) const_iv (SYMMETRY_XY)
1447		1455
1448	const_iv (GT_ENVIRONMENT) const_iv (GT_INVISIBLE) const_iv (GT_STARTEQUIP)	1456	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)	1457	const_iv (GT_APPLY) const_iv (GT_ONLY_GOOD) const_iv (GT_MINIMAL)
1450	const_iv (GT_MINIMAL)
1451		1458
1452	const_iv (FT_FACE) const_iv (FT_MUSIC) const_iv (FT_SOUND)	1459	const_iv (FT_FACE) const_iv (FT_MUSIC) const_iv (FT_SOUND)
1453	const_iv (FT_RSRC) const_iv (FT_NUM)	1460	const_iv (FT_RSRC) const_iv (FT_NUM)
1454	};	1461	};
1455		1462
…		…
1586	NV floor (NV x)	1593	NV floor (NV x)
1587		1594
1588	NV ceil (NV x)	1595	NV ceil (NV x)
1589		1596
1590	NV rndm (...)	1597	NV rndm (...)
		1598	ALIAS:
		1599	rmg_rndm = 1
1591	CODE:	1600	CODE:
		1601	{
		1602	rand_gen &gen = ix ? rmg_rndm : rndm;
1592	switch (items)	1603	switch (items)
1593	{	1604	{
1594	case 0: RETVAL = rndm (); break;	1605	case 0: RETVAL = gen (); break;
1595	case 1: RETVAL = rndm (SvUV (ST (0))); break;	1606	case 1: RETVAL = gen (SvUV (ST (0))); break;
1596	case 2: RETVAL = rndm (SvIV (ST (0)), SvIV (ST (1))); break;	1607	case 2: RETVAL = gen (SvIV (ST (0)), SvIV (ST (1))); break;
1597	default: croak ("cf::rndm requires none, one or two parameters."); break;	1608	default: croak ("cf::rndm requires none, one or two parameters."); break;
1598	}	1609	}
		1610	}
1599	OUTPUT:	1611	OUTPUT:
1600	RETVAL	1612	RETVAL
1601		1613
1602	NV clamp (NV value, NV min_value, NV max_value)	1614	NV clamp (NV value, NV min_value, NV max_value)
1603	CODE:	1615	CODE:
…		…
1628	octet_string path_combine (octet_string base, octet_string path)	1640	octet_string path_combine (octet_string base, octet_string path)
1629	PROTOTYPE: $$	1641	PROTOTYPE: $$
1630		1642
1631	octet_string path_combine_and_normalize (octet_string base, octet_string path)	1643	octet_string path_combine_and_normalize (octet_string base, octet_string path)
1632	PROTOTYPE: $$	1644	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		1645
1657	void	1646	void
1658	sub_generation_inc ()	1647	sub_generation_inc ()
1659	CODE:	1648	CODE:
1660	PL_sub_generation++;	1649	PL_sub_generation++;
…		…
1697		1686
1698	#if _POSIX_MEMLOCK	1687	#if _POSIX_MEMLOCK
1699		1688
1700	int mlockall (int flags = MCL_CURRENT \| MCL_FUTURE)	1689	int mlockall (int flags = MCL_CURRENT \| MCL_FUTURE)
1701	INIT:	1690	INIT:
		1691	#if __GLIBC__
1702	mallopt (M_PERTURB, 0xaa); // bug-workaround for linux glibc+mlockall+calloc	1692	mallopt (M_PERTURB, 0xee); // bug-workaround for linux glibc+mlockall+calloc
		1693	#endif
1703		1694
1704	int munlockall ()	1695	int munlockall ()
1705		1696
1706	#endif	1697	#endif
		1698
		1699	int
		1700	malloc_trim (IV pad = 0)
		1701
		1702	void
		1703	mallinfo ()
		1704	PPCODE:
		1705	{
		1706	#if __GLIBC__
		1707	struct mallinfo mai = mallinfo ();
		1708	EXTEND (SP, 10*2);
		1709	PUSHs (sv_2mortal (newSVpv ("arena" , 0))); PUSHs (sv_2mortal (newSViv (mai.arena)));
		1710	PUSHs (sv_2mortal (newSVpv ("ordblks" , 0))); PUSHs (sv_2mortal (newSViv (mai.ordblks)));
		1711	PUSHs (sv_2mortal (newSVpv ("smblks" , 0))); PUSHs (sv_2mortal (newSViv (mai.smblks)));
		1712	PUSHs (sv_2mortal (newSVpv ("hblks" , 0))); PUSHs (sv_2mortal (newSViv (mai.hblks)));
		1713	PUSHs (sv_2mortal (newSVpv ("hblkhd" , 0))); PUSHs (sv_2mortal (newSViv (mai.hblkhd)));
		1714	PUSHs (sv_2mortal (newSVpv ("usmblks" , 0))); PUSHs (sv_2mortal (newSViv (mai.usmblks)));
		1715	PUSHs (sv_2mortal (newSVpv ("fsmblks" , 0))); PUSHs (sv_2mortal (newSViv (mai.fsmblks)));
		1716	PUSHs (sv_2mortal (newSVpv ("uordblks", 0))); PUSHs (sv_2mortal (newSViv (mai.uordblks)));
		1717	PUSHs (sv_2mortal (newSVpv ("fordblks", 0))); PUSHs (sv_2mortal (newSViv (mai.fordblks)));
		1718	PUSHs (sv_2mortal (newSVpv ("keepcost", 0))); PUSHs (sv_2mortal (newSViv (mai.keepcost)));
		1719	#endif
		1720	EXTEND (SP, 2*2);
		1721	PUSHs (sv_2mortal (newSVpv ("slice_alloc", 0))); PUSHs (sv_2mortal (newSVuv (slice_alloc)));
		1722	PUSHs (sv_2mortal (newSVpv ("shstr_alloc", 0))); PUSHs (sv_2mortal (newSVuv (shstr_alloc)));
		1723	PUSHs (sv_2mortal (newSVpv ("objects" , 0))); PUSHs (sv_2mortal (newSVuv (objects.size () * sizeof (object))));
		1724	}
1707		1725
1708	int find_animation (utf8_string text)	1726	int find_animation (utf8_string text)
1709	PROTOTYPE: $	1727	PROTOTYPE: $
1710		1728
1711	int random_roll (int min, int max, object *op, int goodbad);	1729	int random_roll (int min, int max, object *op, int goodbad);
…		…
1749	RETVAL = newSVpv (resist_plus[atnr], 0);	1767	RETVAL = newSVpv (resist_plus[atnr], 0);
1750	else	1768	else
1751	XSRETURN_UNDEF;	1769	XSRETURN_UNDEF;
1752	OUTPUT: RETVAL	1770	OUTPUT: RETVAL
1753		1771
		1772	UUID
		1773	uuid_cur ()
		1774	CODE:
		1775	RETVAL = UUID::cur;
		1776	OUTPUT:
		1777	RETVAL
		1778
		1779	UUID
		1780	uuid_gen ()
		1781	CODE:
		1782	RETVAL = UUID::gen ();
		1783	OUTPUT:
		1784	RETVAL
		1785
		1786	val64
		1787	uuid_seq (UUID uuid)
		1788	CODE:
		1789	RETVAL = uuid.seq;
		1790	OUTPUT:
		1791	RETVAL
		1792
		1793	UUID
		1794	uuid_str (val64 seq)
		1795	CODE:
		1796	RETVAL.seq = seq;
		1797	OUTPUT:
		1798	RETVAL
		1799
		1800	void
		1801	coin_names ()
		1802	PPCODE:
		1803	EXTEND (SP, NUM_COINS);
		1804	for (int i = 0; i < NUM_COINS; ++i)
		1805	PUSHs (sv_2mortal (newSVpv (coins [i], 0)));
		1806
		1807	void
		1808	coin_archetypes ()
		1809	PPCODE:
		1810	EXTEND (SP, NUM_COINS);
		1811	for (int i = 0; i < NUM_COINS; ++i)
		1812	PUSHs (sv_2mortal (to_sv (archetype::find (coins [i]))));
		1813
1754	bool	1814	bool
1755	load_resource_file (octet_string filename)	1815	load_resource_file_ (octet_string filename)
		1816
		1817	void
		1818	fix_weight ()
1756		1819
1757	MODULE = cf PACKAGE = cf::attachable	1820	MODULE = cf PACKAGE = cf::attachable
1758		1821
1759	int	1822	int
1760	valid (SV *obj)	1823	valid (SV *obj)
…		…
1824	object *actives (U32 index)	1887	object *actives (U32 index)
1825	CODE:	1888	CODE:
1826	RETVAL = index < actives.size () ? actives [index] : 0;	1889	RETVAL = index < actives.size () ? actives [index] : 0;
1827	OUTPUT: RETVAL	1890	OUTPUT: RETVAL
1828		1891
		1892	int mortals_size ()
		1893	CODE:
		1894	RETVAL = attachable::mortals.size ();
		1895	OUTPUT: RETVAL
		1896
1829	const char *slot_use_name (U32 slot)	1897	const char *slot_use_name (U32 slot)
1830	ALIAS:	1898	ALIAS:
1831	slot_nonuse_name = 1	1899	slot_nonuse_name = 1
1832	CODE:	1900	CODE:
1833	{	1901	{
…		…
1911	void apply_below (object *op)	1979	void apply_below (object *op)
1912	CODE:	1980	CODE:
1913	player_apply_below (op);	1981	player_apply_below (op);
1914		1982
1915	int cast_heal (object op, object caster, object *spell, int dir = 0)	1983	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		1984
1929	int pay_item (object op, object buyer)	1985	int pay_item (object op, object buyer)
1930	CODE:	1986	CODE:
1931	RETVAL = pay_for_item (op, buyer);	1987	RETVAL = pay_for_item (op, buyer);
1932	OUTPUT: RETVAL	1988	OUTPUT: RETVAL
…		…
2010	CODE:	2066	CODE:
2011	{	2067	{
2012	RETVAL = insert_ob_in_map_at (ob, where, orig, flag, x, y);	2068	RETVAL = insert_ob_in_map_at (ob, where, orig, flag, x, y);
2013	}	2069	}
2014		2070
2015	const_utf8_string get_ob_key_value (object *op, utf8_string key)	2071	shstr
		2072	object::kv_get (shstr key)
2016		2073
2017	bool set_ob_key_value (object *op, utf8_string key, utf8_string value = 0, int add_key = 1)	2074	void
		2075	object::kv_del (shstr key)
		2076
		2077	void
		2078	object::kv_set (shstr key, shstr value)
2018		2079
2019	object get_nearest_player (object ob)	2080	object get_nearest_player (object ob)
2020	ALIAS: nearest_player = 0	2081	ALIAS: nearest_player = 0
2021	PREINIT:	2082	PREINIT:
2022	extern object get_nearest_player (object );	2083	extern object get_nearest_player (object );
…		…
2043	const_utf8_string	2104	const_utf8_string
2044	base_name (object *op, int plural = op->nrof > 1)	2105	base_name (object *op, int plural = op->nrof > 1)
2045	CODE:	2106	CODE:
2046	RETVAL = query_base_name (op, plural);	2107	RETVAL = query_base_name (op, plural);
2047	OUTPUT: RETVAL	2108	OUTPUT: RETVAL
2048
2049	object decrease_ob_nr (object op, unsigned long i)
2050		2109
2051	# return the tail of an object, excluding itself	2110	# return the tail of an object, excluding itself
2052	void	2111	void
2053	tail (object *op)	2112	tail (object *op)
2054	PPCODE:	2113	PPCODE:

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.288 by root, Tue May 6 18:47:32 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.288 by root, Tue May 6 18:47:32 2008 UTC