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

Comparing deliantra/server/server/cfperl.xs (file contents):
Revision 1.280 by root, Mon Apr 21 06:35:26 2008 UTC vs.
Revision 1.286 by root, Sun May 4 14:12:38 2008 UTC

…		…
977	{	977	{
978	CALL_BEGIN (1);	978	CALL_BEGIN (1);
979	CALL_ARG (name);	979	CALL_ARG (name);
980	CALL_CALL ("cf::player::find", G_SCALAR);	980	CALL_CALL ("cf::player::find", G_SCALAR);
981		981
982	player *retval;	982	player *retval = 0;
983
984	if (count)
985	sv_to (POPs, retval);	983	if (count) sv_to (POPs, retval);
986	else	984
987	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);
988		1001
989	CALL_END;	1002	CALL_END;
990		1003
991	return retval;	1004	return retval;
992	}	1005	}
…		…
997	CALL_BEGIN (2);	1010	CALL_BEGIN (2);
998	CALL_ARG (path);	1011	CALL_ARG (path);
999	CALL_ARG (origin);	1012	CALL_ARG (origin);
1000	CALL_CALL ("cf::map::find_sync", G_SCALAR);	1013	CALL_CALL ("cf::map::find_sync", G_SCALAR);
1001		1014
1002	maptile *retval;	1015	maptile *retval = 0;
1003
1004	if (count)
1005	sv_to (POPs, retval);	1016	if (count) sv_to (POPs, retval);
1006	else
1007	retval = 0;
1008		1017
1009	CALL_END;	1018	CALL_END;
1010		1019
1011	return retval;	1020	return retval;
1012	}	1021	}
…		…
1018	CALL_ARG (path);	1027	CALL_ARG (path);
1019	CALL_ARG (origin);	1028	CALL_ARG (origin);
1020	CALL_ARG (load);	1029	CALL_ARG (load);
1021	CALL_CALL ("cf::map::find_async", G_SCALAR);	1030	CALL_CALL ("cf::map::find_async", G_SCALAR);
1022		1031
1023	maptile *retval;	1032	maptile *retval = 0;
1024
1025	if (count)
1026	sv_to (POPs, retval);	1033	if (count) sv_to (POPs, retval);
1027	else
1028	retval = 0;
1029		1034
1030	CALL_END;	1035	CALL_END;
1031		1036
1032	return retval;	1037	return retval;
1033	}	1038	}
…		…
1432		1437
1433	const_iv (SYMMETRY_RANDOM) const_iv (SYMMETRY_NONE) const_iv (SYMMETRY_X)	1438	const_iv (SYMMETRY_RANDOM) const_iv (SYMMETRY_NONE) const_iv (SYMMETRY_X)
1434	const_iv (SYMMETRY_Y) const_iv (SYMMETRY_XY)	1439	const_iv (SYMMETRY_Y) const_iv (SYMMETRY_XY)
1435		1440
1436	const_iv (GT_ENVIRONMENT) const_iv (GT_INVISIBLE) const_iv (GT_STARTEQUIP)	1441	const_iv (GT_ENVIRONMENT) const_iv (GT_INVISIBLE) const_iv (GT_STARTEQUIP)
1437	const_iv (GT_APPLY) const_iv (GT_ONLY_GOOD) const_iv (GT_UPDATE_INV)	1442	const_iv (GT_APPLY) const_iv (GT_ONLY_GOOD) const_iv (GT_MINIMAL)
1438	const_iv (GT_MINIMAL)
1439		1443
1440	const_iv (FT_FACE) const_iv (FT_MUSIC) const_iv (FT_SOUND)	1444	const_iv (FT_FACE) const_iv (FT_MUSIC) const_iv (FT_SOUND)
1441	const_iv (FT_RSRC) const_iv (FT_NUM)	1445	const_iv (FT_RSRC) const_iv (FT_NUM)
1442	};	1446	};
1443		1447
…		…
1574	NV floor (NV x)	1578	NV floor (NV x)
1575		1579
1576	NV ceil (NV x)	1580	NV ceil (NV x)
1577		1581
1578	NV rndm (...)	1582	NV rndm (...)
		1583	ALIAS:
		1584	rmg_rndm = 1
1579	CODE:	1585	CODE:
		1586	{
		1587	rand_gen &gen = ix ? rmg_rndm : rndm;
1580	switch (items)	1588	switch (items)
1581	{	1589	{
1582	case 0: RETVAL = rndm (); break;	1590	case 0: RETVAL = gen (); break;
1583	case 1: RETVAL = rndm (SvUV (ST (0))); break;	1591	case 1: RETVAL = gen (SvUV (ST (0))); break;
1584	case 2: RETVAL = rndm (SvIV (ST (0)), SvIV (ST (1))); break;	1592	case 2: RETVAL = gen (SvIV (ST (0)), SvIV (ST (1))); break;
1585	default: croak ("cf::rndm requires none, one or two parameters."); break;	1593	default: croak ("cf::rndm requires none, one or two parameters."); break;
1586	}	1594	}
		1595	}
1587	OUTPUT:	1596	OUTPUT:
1588	RETVAL	1597	RETVAL
1589		1598
1590	NV clamp (NV value, NV min_value, NV max_value)	1599	NV clamp (NV value, NV min_value, NV max_value)
1591	CODE:	1600	CODE:
…		…
1694	PUSHs (sv_2mortal (newSVpv ("keepcost", 0))); PUSHs (sv_2mortal (newSViv (mai.keepcost)));	1703	PUSHs (sv_2mortal (newSVpv ("keepcost", 0))); PUSHs (sv_2mortal (newSViv (mai.keepcost)));
1695	#endif	1704	#endif
1696	EXTEND (SP, 2*2);	1705	EXTEND (SP, 2*2);
1697	PUSHs (sv_2mortal (newSVpv ("slice_alloc", 0))); PUSHs (sv_2mortal (newSVuv (slice_alloc)));	1706	PUSHs (sv_2mortal (newSVpv ("slice_alloc", 0))); PUSHs (sv_2mortal (newSVuv (slice_alloc)));
1698	PUSHs (sv_2mortal (newSVpv ("shstr_alloc", 0))); PUSHs (sv_2mortal (newSVuv (shstr_alloc)));	1707	PUSHs (sv_2mortal (newSVpv ("shstr_alloc", 0))); PUSHs (sv_2mortal (newSVuv (shstr_alloc)));
		1708	PUSHs (sv_2mortal (newSVpv ("objects" , 0))); PUSHs (sv_2mortal (newSVuv (objects.size () * sizeof (object))));
1699	}	1709	}
1700		1710
1701	int find_animation (utf8_string text)	1711	int find_animation (utf8_string text)
1702	PROTOTYPE: $	1712	PROTOTYPE: $
1703		1713
…		…
1859	object *actives (U32 index)	1869	object *actives (U32 index)
1860	CODE:	1870	CODE:
1861	RETVAL = index < actives.size () ? actives [index] : 0;	1871	RETVAL = index < actives.size () ? actives [index] : 0;
1862	OUTPUT: RETVAL	1872	OUTPUT: RETVAL
1863		1873
		1874	int mortals_size ()
		1875	CODE:
		1876	RETVAL = attachable::mortals.size ();
		1877	OUTPUT: RETVAL
		1878
1864	const char *slot_use_name (U32 slot)	1879	const char *slot_use_name (U32 slot)
1865	ALIAS:	1880	ALIAS:
1866	slot_nonuse_name = 1	1881	slot_nonuse_name = 1
1867	CODE:	1882	CODE:
1868	{	1883	{
…		…
1946	void apply_below (object *op)	1961	void apply_below (object *op)
1947	CODE:	1962	CODE:
1948	player_apply_below (op);	1963	player_apply_below (op);
1949		1964
1950	int cast_heal (object op, object caster, object *spell, int dir = 0)	1965	int cast_heal (object op, object caster, object *spell, int dir = 0)
1951
1952	#//TODO
1953	object clone_ (object op, int recursive = 0)
1954	CODE:
1955	if (recursive)
1956	RETVAL = object_create_clone (op);
1957	else
1958	{
1959	RETVAL = object::create ();
1960	op->copy_to (RETVAL);
1961	}
1962	OUTPUT: RETVAL
1963		1966
1964	int pay_item (object op, object buyer)	1967	int pay_item (object op, object buyer)
1965	CODE:	1968	CODE:
1966	RETVAL = pay_for_item (op, buyer);	1969	RETVAL = pay_for_item (op, buyer);
1967	OUTPUT: RETVAL	1970	OUTPUT: RETVAL
…		…
2045	CODE:	2048	CODE:
2046	{	2049	{
2047	RETVAL = insert_ob_in_map_at (ob, where, orig, flag, x, y);	2050	RETVAL = insert_ob_in_map_at (ob, where, orig, flag, x, y);
2048	}	2051	}
2049		2052
2050	const_utf8_string get_ob_key_value (object *op, utf8_string key)	2053	shstr
		2054	object::kv_get (shstr key)
2051		2055
2052	bool set_ob_key_value (object *op, utf8_string key, utf8_string value = 0, int add_key = 1)	2056	void
		2057	object::kv_del (shstr key)
		2058
		2059	void
		2060	object::kv_set (shstr key, shstr value)
2053		2061
2054	object get_nearest_player (object ob)	2062	object get_nearest_player (object ob)
2055	ALIAS: nearest_player = 0	2063	ALIAS: nearest_player = 0
2056	PREINIT:	2064	PREINIT:
2057	extern object get_nearest_player (object );	2065	extern object get_nearest_player (object );

Diff Legend

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

Comparing deliantra/server/server/cfperl.xs (file contents): Revision 1.280 by root, Mon Apr 21 06:35:26 2008 UTC vs. Revision 1.286 by root, Sun May 4 14:12:38 2008 UTC

Diff Legend

Comparing deliantra/server/server/cfperl.xs (file contents):
Revision 1.280 by root, Mon Apr 21 06:35:26 2008 UTC vs.
Revision 1.286 by root, Sun May 4 14:12:38 2008 UTC