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

Comparing deliantra/server/server/cfperl.xs (file contents):
Revision 1.281 by root, Tue Apr 22 07:01:47 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"
…		…
83	*stash_cf,	81	*stash_cf,
84	*stash_cf_object_wrap,	82	*stash_cf_object_wrap,
85	*stash_cf_object_player_wrap,	83	*stash_cf_object_player_wrap,
86	*stash_cf_player_wrap,	84	*stash_cf_player_wrap,
87	*stash_cf_map_wrap,	85	*stash_cf_map_wrap,
		86	*stash_cf_mapspace_wrap,
88	*stash_cf_client_wrap,	87	*stash_cf_client_wrap,
89	*stash_cf_arch_wrap,	88	*stash_cf_arch_wrap,
90	*stash_cf_party_wrap,	89	*stash_cf_party_wrap,
91	*stash_cf_region_wrap,	90	*stash_cf_region_wrap,
92	*stash_cf_living_wrap;	91	*stash_cf_living_wrap;
…		…
431	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); }
432	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); }
433	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); }
434	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); }
435	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); }
436		436
437	inline SV *to_sv (object & v) { return to_sv (&v); }	437	inline SV *to_sv (object & v) { return to_sv (&v); }
438	inline SV *to_sv (living & v) { return to_sv (&v); }	438	inline SV *to_sv (living & v) { return to_sv (&v); }
439		439
440	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 ()); }
…		…
464	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"); }
465	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"); }
466	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"); }
467	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"); }
468	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"); }
469	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"); }
470	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" ); }
471		472
472	//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)]; }
473	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)); }
…		…
944	CALL_CALL ("ext::books::make_book", G_VOID);	945	CALL_CALL ("ext::books::make_book", G_VOID);
945	CALL_END;	946	CALL_END;
946	}	947	}
947		948
948	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
949	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)
950	{	969	{
951	CALL_BEGIN (4);	970	CALL_BEGIN (4);
952	CALL_ARG (ns);	971	CALL_ARG (ns);
953	CALL_ARG (type);	972	CALL_ARG (type);
…		…
977	{	996	{
978	CALL_BEGIN (1);	997	CALL_BEGIN (1);
979	CALL_ARG (name);	998	CALL_ARG (name);
980	CALL_CALL ("cf::player::find", G_SCALAR);	999	CALL_CALL ("cf::player::find", G_SCALAR);
981		1000
982	player *retval;	1001	player *retval = 0;
983
984	if (count)
985	sv_to (POPs, retval);	1002	if (count) sv_to (POPs, retval);
986	else	1003
987	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);
988		1020
989	CALL_END;	1021	CALL_END;
990		1022
991	return retval;	1023	return retval;
992	}	1024	}
…		…
997	CALL_BEGIN (2);	1029	CALL_BEGIN (2);
998	CALL_ARG (path);	1030	CALL_ARG (path);
999	CALL_ARG (origin);	1031	CALL_ARG (origin);
1000	CALL_CALL ("cf::map::find_sync", G_SCALAR);	1032	CALL_CALL ("cf::map::find_sync", G_SCALAR);
1001		1033
1002	maptile *retval;	1034	maptile *retval = 0;
1003
1004	if (count)
1005	sv_to (POPs, retval);	1035	if (count) sv_to (POPs, retval);
1006	else
1007	retval = 0;
1008		1036
1009	CALL_END;	1037	CALL_END;
1010		1038
1011	return retval;	1039	return retval;
1012	}	1040	}
…		…
1018	CALL_ARG (path);	1046	CALL_ARG (path);
1019	CALL_ARG (origin);	1047	CALL_ARG (origin);
1020	CALL_ARG (load);	1048	CALL_ARG (load);
1021	CALL_CALL ("cf::map::find_async", G_SCALAR);	1049	CALL_CALL ("cf::map::find_async", G_SCALAR);
1022		1050
1023	maptile *retval;	1051	maptile *retval = 0;
1024
1025	if (count)
1026	sv_to (POPs, retval);	1052	if (count) sv_to (POPs, retval);
1027	else
1028	retval = 0;
1029		1053
1030	CALL_END;	1054	CALL_END;
1031		1055
1032	return retval;	1056	return retval;
1033	}	1057	}
…		…
1058		1082
1059	CALL_BEGIN (2);	1083	CALL_BEGIN (2);
1060	CALL_ARG (this);	1084	CALL_ARG (this);
1061	CALL_ARG (exit);	1085	CALL_ARG (exit);
1062	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);
1063	CALL_END;	1102	CALL_END;
1064	}	1103	}
1065		1104
1066	const char *	1105	const char *
1067	object::ref () const	1106	object::ref () const
…		…
1154		1193
1155	stash_cf_object_wrap = gv_stashpv ("cf::object::wrap", 1);	1194	stash_cf_object_wrap = gv_stashpv ("cf::object::wrap", 1);
1156	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);
1157	stash_cf_player_wrap = gv_stashpv ("cf::player::wrap", 1);	1196	stash_cf_player_wrap = gv_stashpv ("cf::player::wrap", 1);
1158	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);
1159	stash_cf_client_wrap = gv_stashpv ("cf::client::wrap", 1);	1199	stash_cf_client_wrap = gv_stashpv ("cf::client::wrap", 1);
1160	stash_cf_arch_wrap = gv_stashpv ("cf::arch::wrap" , 1);	1200	stash_cf_arch_wrap = gv_stashpv ("cf::arch::wrap" , 1);
1161	stash_cf_party_wrap = gv_stashpv ("cf::party::wrap" , 1);	1201	stash_cf_party_wrap = gv_stashpv ("cf::party::wrap" , 1);
1162	stash_cf_region_wrap = gv_stashpv ("cf::region::wrap", 1);	1202	stash_cf_region_wrap = gv_stashpv ("cf::region::wrap", 1);
1163	stash_cf_living_wrap = gv_stashpv ("cf::living::wrap", 1);	1203	stash_cf_living_wrap = gv_stashpv ("cf::living::wrap", 1);
…		…
1356	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)
1357	const_iv (F_LOCKED)	1397	const_iv (F_LOCKED)
1358		1398
1359	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)
1360		1400
1361	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)
1362	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)
1363		1403
1364	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)
1365		1405
1366	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)
…		…
1573	NV floor (NV x)	1613	NV floor (NV x)
1574		1614
1575	NV ceil (NV x)	1615	NV ceil (NV x)
1576		1616
1577	NV rndm (...)	1617	NV rndm (...)
		1618	ALIAS:
		1619	rmg_rndm = 1
1578	CODE:	1620	CODE:
		1621	{
		1622	rand_gen &gen = ix ? rmg_rndm : rndm;
1579	switch (items)	1623	switch (items)
1580	{	1624	{
1581	case 0: RETVAL = rndm (); break;	1625	case 0: RETVAL = gen (); break;
1582	case 1: RETVAL = rndm (SvUV (ST (0))); break;	1626	case 1: RETVAL = gen (SvUV (ST (0))); break;
1583	case 2: RETVAL = rndm (SvIV (ST (0)), SvIV (ST (1))); break;	1627	case 2: RETVAL = gen (SvIV (ST (0)), SvIV (ST (1))); break;
1584	default: croak ("cf::rndm requires none, one or two parameters."); break;	1628	default: croak ("cf::rndm requires none, one or two parameters."); break;
1585	}	1629	}
		1630	}
1586	OUTPUT:	1631	OUTPUT:
1587	RETVAL	1632	RETVAL
1588		1633
1589	NV clamp (NV value, NV min_value, NV max_value)	1634	NV clamp (NV value, NV min_value, NV max_value)
1590	CODE:	1635	CODE:
…		…
1693	PUSHs (sv_2mortal (newSVpv ("keepcost", 0))); PUSHs (sv_2mortal (newSViv (mai.keepcost)));	1738	PUSHs (sv_2mortal (newSVpv ("keepcost", 0))); PUSHs (sv_2mortal (newSViv (mai.keepcost)));
1694	#endif	1739	#endif
1695	EXTEND (SP, 2*2);	1740	EXTEND (SP, 2*2);
1696	PUSHs (sv_2mortal (newSVpv ("slice_alloc", 0))); PUSHs (sv_2mortal (newSVuv (slice_alloc)));	1741	PUSHs (sv_2mortal (newSVpv ("slice_alloc", 0))); PUSHs (sv_2mortal (newSVuv (slice_alloc)));
1697	PUSHs (sv_2mortal (newSVpv ("shstr_alloc", 0))); PUSHs (sv_2mortal (newSVuv (shstr_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))));
1698	}	1744	}
1699		1745
1700	int find_animation (utf8_string text)	1746	int find_animation (utf8_string text)
1701	PROTOTYPE: $	1747	PROTOTYPE: $
1702		1748
…		…
1786	PUSHs (sv_2mortal (to_sv (archetype::find (coins [i]))));	1832	PUSHs (sv_2mortal (to_sv (archetype::find (coins [i]))));
1787		1833
1788	bool	1834	bool
1789	load_resource_file_ (octet_string filename)	1835	load_resource_file_ (octet_string filename)
1790		1836
		1837	void
		1838	fix_weight ()
		1839
1791	MODULE = cf PACKAGE = cf::attachable	1840	MODULE = cf PACKAGE = cf::attachable
1792		1841
1793	int	1842	int
1794	valid (SV *obj)	1843	valid (SV *obj)
1795	CODE:	1844	CODE:
…		…
1858	object *actives (U32 index)	1907	object *actives (U32 index)
1859	CODE:	1908	CODE:
1860	RETVAL = index < actives.size () ? actives [index] : 0;	1909	RETVAL = index < actives.size () ? actives [index] : 0;
1861	OUTPUT: RETVAL	1910	OUTPUT: RETVAL
1862		1911
		1912	int mortals_size ()
		1913	CODE:
		1914	RETVAL = attachable::mortals.size ();
		1915	OUTPUT: RETVAL
		1916
1863	const char *slot_use_name (U32 slot)	1917	const char *slot_use_name (U32 slot)
1864	ALIAS:	1918	ALIAS:
1865	slot_nonuse_name = 1	1919	slot_nonuse_name = 1
1866	CODE:	1920	CODE:
1867	{	1921	{
…		…
1945	void apply_below (object *op)	1999	void apply_below (object *op)
1946	CODE:	2000	CODE:
1947	player_apply_below (op);	2001	player_apply_below (op);
1948		2002
1949	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)
1950
1951	#//TODO
1952	object clone_ (object op, int recursive = 0)
1953	CODE:
1954	if (recursive)
1955	RETVAL = object_create_clone (op);
1956	else
1957	{
1958	RETVAL = object::create ();
1959	op->copy_to (RETVAL);
1960	}
1961	OUTPUT: RETVAL
1962		2004
1963	int pay_item (object op, object buyer)	2005	int pay_item (object op, object buyer)
1964	CODE:	2006	CODE:
1965	RETVAL = pay_for_item (op, buyer);	2007	RETVAL = pay_for_item (op, buyer);
1966	OUTPUT: RETVAL	2008	OUTPUT: RETVAL
…		…
2044	CODE:	2086	CODE:
2045	{	2087	{
2046	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);
2047	}	2089	}
2048		2090
2049	const_utf8_string get_ob_key_value (object *op, utf8_string key)	2091	shstr
		2092	object::kv_get (shstr key)
2050		2093
2051	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)
2052		2099
2053	object get_nearest_player (object ob)	2100	object get_nearest_player (object ob)
2054	ALIAS: nearest_player = 0	2101	ALIAS: nearest_player = 0
2055	PREINIT:	2102	PREINIT:
2056	extern object get_nearest_player (object );	2103	extern object get_nearest_player (object );
…		…
2058	void rangevector (object ob, object other, int flags = 0)	2105	void rangevector (object ob, object other, int flags = 0)
2059	PROTOTYPE: $$;$	2106	PROTOTYPE: $$;$
2060	PPCODE:	2107	PPCODE:
2061	{	2108	{
2062	rv_vector rv;	2109	rv_vector rv;
		2110
		2111	PUTBACK;
2063	get_rangevector (ob, other, &rv, flags);	2112	get_rangevector (ob, other, &rv, flags);
		2113	SPAGAIN;
		2114
2064	EXTEND (SP, 5);	2115	EXTEND (SP, 5);
2065	PUSHs (newSVuv (rv.distance));	2116	PUSHs (newSVuv (rv.distance));
2066	PUSHs (newSViv (rv.distance_x));	2117	PUSHs (newSViv (rv.distance_x));
2067	PUSHs (newSViv (rv.distance_y));	2118	PUSHs (newSViv (rv.distance_y));
2068	PUSHs (newSViv (rv.direction));	2119	PUSHs (newSViv (rv.direction));
…		…
2159	if (len > MAXSOCKBUF)	2210	if (len > MAXSOCKBUF)
2160	pl->failmsg ("[packet too long for client]");	2211	pl->failmsg ("[packet too long for client]");
2161	else if (pl->ns)	2212	else if (pl->ns)
2162	pl->ns->send_packet (buf, len);	2213	pl->ns->send_packet (buf, len);
2163	}	2214	}
2164
2165	int
2166	listening (player *pl, int new_value = -1)
2167	CODE:
2168	RETVAL = pl->listening;
2169	if (new_value >= 0)
2170	pl->listening = new_value;
2171	OUTPUT:
2172	RETVAL
2173		2215
2174	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)
2175	PROTOTYPE: $;$$$	2217	PROTOTYPE: $;$$$
2176	PPCODE:	2218	PPCODE:
2177	if (GIMME_V != G_VOID)	2219	if (GIMME_V != G_VOID)
…		…
2375	get_map_flags (maptile *map, int x, int y)	2417	get_map_flags (maptile *map, int x, int y)
2376	PPCODE:	2418	PPCODE:
2377	{	2419	{
2378	maptile *nmap = 0;	2420	maptile *nmap = 0;
2379	I16 nx = 0, ny = 0;	2421	I16 nx = 0, ny = 0;
		2422
		2423	PUTBACK;
2380	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;
2381		2426
2382	EXTEND (SP, 4);	2427	EXTEND (SP, 4);
2383	PUSHs (sv_2mortal (newSViv (flags)));	2428	PUSHs (sv_2mortal (newSViv (flags)));
2384		2429
2385	if (GIMME_V == G_ARRAY)	2430	if (GIMME_V == G_ARRAY)
…		…
2388	PUSHs (sv_2mortal (newSViv (nx)));	2433	PUSHs (sv_2mortal (newSViv (nx)));
2389	PUSHs (sv_2mortal (newSViv (ny)));	2434	PUSHs (sv_2mortal (newSViv (ny)));
2390	}	2435	}
2391	}	2436	}
2392		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
2393	void	2458	void
2394	at (maptile *map, unsigned int x, unsigned int y)	2459	at (maptile *map, unsigned int x, unsigned int y)
2395	PROTOTYPE: $$$	2460	PROTOTYPE: $$$
2396	PPCODE:	2461	PPCODE:
2397	{	2462	{
2398	object *o;
2399	maptile *nmap = 0;	2463	maptile *nmap = 0;
2400	I16 nx, ny;	2464	I16 nx, ny;
2401		2465
		2466	PUTBACK;
2402	get_map_flags (map, &nmap, x, y, &nx, &ny);	2467	get_map_flags (map, &nmap, x, y, &nx, &ny);
		2468	SPAGAIN;
2403		2469
2404	if (nmap)	2470	if (nmap)
2405	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)
2406	XPUSHs (sv_2mortal (to_sv (o)));	2472	XPUSHs (sv_2mortal (to_sv (o)));
2407	}	2473	}
2408		2474
2409	SV *	2475	SV *
2410	bot_at (maptile *obj, unsigned int x, unsigned int y)	2476	bot_at (maptile *obj, unsigned int x, unsigned int y)
…		…
2523	RETVAL = self->generate_random_map (&rmp);	2589	RETVAL = self->generate_random_map (&rmp);
2524	}	2590	}
2525	OUTPUT:	2591	OUTPUT:
2526	RETVAL	2592	RETVAL
2527		2593
		2594	MODULE = cf PACKAGE = cf::mapspace
		2595
		2596	INCLUDE: $PERL $srcdir/genacc mapspace ../include/map.h \|
		2597
2528	MODULE = cf PACKAGE = cf::arch	2598	MODULE = cf PACKAGE = cf::arch
2529		2599
2530	int archetypes_size ()	2600	int archetypes_size ()
2531	CODE:	2601	CODE:
2532	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.281 by root, Tue Apr 22 07:01:47 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.281 by root, Tue Apr 22 07:01:47 2008 UTC vs.
Revision 1.294 by root, Fri Aug 29 02:07:09 2008 UTC