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

Comparing deliantra/server/server/cfperl.xs (file contents):
Revision 1.271 by root, Tue Apr 1 19:50:39 2008 UTC vs.
Revision 1.288 by root, Tue May 6 18:47:32 2008 UTC

…		…
1	/*	1	/*
2	* This file is part of Deliantra, the Roguelike Realtime MMORPG.	2	* This file is part of Deliantra, the Roguelike Realtime MMORPG.
3	*	3	*
4	* Copyright (©) 2006,2007 Marc Alexander Lehmann / Robin Redeker / the Deliantra team	4	* Copyright (©) 2006,2007,2008 Marc Alexander Lehmann / Robin Redeker / the Deliantra team
5	* Copyright (©) 2001-2005,2007 by Chachkoff Yann	5	* Copyright (©) 2001-2005,2007 by Chachkoff Yann
6	* Copyright (©) 2006,2007 by Marc Lehmann <cf@schmorp.de>	6	* Copyright (©) 2006,2007 by Marc Lehmann <cf@schmorp.de>
7	*	7	*
8	* Deliantra is free software: you can redistribute it and/or modify	8	* Deliantra is free software: you can redistribute it and/or modify
9	* it under the terms of the GNU General Public License as published by	9	* it under the terms of the GNU General Public License as published by
24	#include "autoconf.h"	24	#include "autoconf.h"
25		25
26	#define PLUGIN_NAME "perl"	26	#define PLUGIN_NAME "perl"
27	#define PLUGIN_VERSION "cfperl 0.5"	27	#define PLUGIN_VERSION "cfperl 0.5"
28		28
29	#define CEDES_PER_TICK 3
30
31	#if HAVE_EXECINFO_H	29	#if HAVE_EXECINFO_H
32	# include <execinfo.h>	30	# include <execinfo.h>
33	#endif	31	#endif
34		32
35	#include <cstdarg>	33	#include <cstdarg>
36		34
37	#include "global.h"	35	#include "global.h"
38	#include "loader.h"	36	#include "loader.h"
39	#include "../random_maps/random_map.h"	37	#include "../random_maps/random_map.h"
		38	#include "evthread.h"
40	#include <sproto.h>	39	#include "sproto.h"
41		40
42	#include <unistd.h>	41	#include <unistd.h>
43	#if _POSIX_MEMLOCK	42	#if _POSIX_MEMLOCK
44	# include <sys/mman.h>	43	# include <sys/mman.h>
45	#endif	44	#endif
46		45
47	#if HAVE_MALLOC_H	46	#if HAVE_MALLOC_H
48	# include <malloc.h>	47	# include <malloc.h>
49	#endif	48	#endif
50		49
		50	#if !__GLIBC__
		51	# define malloc_trim(pad) -1
		52	#endif
		53
51	#include <EXTERN.h>	54	#include <EXTERN.h>
52	#include <perl.h>	55	#include <perl.h>
53	#include <XSUB.h>	56	#include <XSUB.h>
54		57
55	#include "CoroAPI.h"	58	#include "CoroAPI.h"
…		…
60	typedef object_thawer &object_thawer_ref;	63	typedef object_thawer &object_thawer_ref;
61	typedef object_freezer &object_freezer_ref;	64	typedef object_freezer &object_freezer_ref;
62		65
63	typedef std::string std__string;	66	typedef std::string std__string;
64		67
65	#if IVSIZE >= 8
66	typedef IV val64;
67	# define newSVval64 newSViv
68	# define SvVAL64 SvIV
69	#else
70	typedef double val64;
71	# define newSVval64 newSVnv
72	# define SvVAL64 SvNV
73	#endif
74
75	static PerlInterpreter *perl;	68	static PerlInterpreter *perl;
76		69
77	tstamp NOW, runtime;	70	tstamp NOW, runtime;
		71
		72	static int tick_inhibit;
		73	static int tick_pending;
78		74
79	global gbl_ev;	75	global gbl_ev;
80	static AV cb_global, cb_attachable, cb_object, cb_player, cb_client, cb_type, *cb_map;	76	static AV cb_global, cb_attachable, cb_object, cb_player, cb_client, cb_type, *cb_map;
81	static SV sv_runtime, sv_next_tick, *sv_now;	77	static SV sv_runtime, sv_tick_start, sv_next_tick, sv_now;
82		78
83	bitset<NUM_EVENT_TYPES> ev_want_event;	79	bitset<NUM_EVENT_TYPES> ev_want_event;
84	bitset<NUM_TYPES> ev_want_type;	80	bitset<NUM_TYPES> ev_want_type;
85		81
86	static HV	82	static HV
…		…
442	inline SV *to_sv (living & v) { return to_sv (&v); }	438	inline SV *to_sv (living & v) { return to_sv (&v); }
443		439
444	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 ()); }
445	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); }
446		442
447	inline SV *to_sv (UUID v)	443	inline SV *to_sv (UUID v) { return newSVpv (v.c_str (), 0); }
448	{
449	char buf[128];
450	snprintf (buf, 128, "<1.%" PRIx64 ">", v.seq);
451	return newSVpv (buf, 0);
452	}
453		444
454	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; }
455	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; }
456	inline void sv_to (SV *sv, bool &v) { v = SvIV (sv); }	447	inline void sv_to (SV *sv, bool &v) { v = SvIV (sv); }
457	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); }
…		…
499	v.assign (data, len);	490	v.assign (data, len);
500	}	491	}
501		492
502	inline void sv_to (SV *sv, UUID &v)	493	inline void sv_to (SV *sv, UUID &v)
503	{	494	{
504	unsigned int version;	495	if (!v.parse (SvPV_nolen (sv)))
505
506	if (2 != sscanf (SvPV_nolen (sv), "<%d.%" SCNx64 ">", &version, &v.seq) \|\| 1 != version)
507	croak ("unparsable uuid: %s", SvPV_nolen (sv));	496	croak ("unparsable uuid: %s", SvPV_nolen (sv));
508	}	497	}
509		498
510	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); }
511		500
…		…
909	}	898	}
910		899
911	/////////////////////////////////////////////////////////////////////////////	900	/////////////////////////////////////////////////////////////////////////////
912	// various c++ => perl glue functions	901	// various c++ => perl glue functions
913		902
		903	void cfperl_tick ()
		904	{
		905	tick_pending = 1;
		906
		907	if (tick_inhibit)
		908	return;
		909
		910	tick_pending = 0;
		911
		912	dSP;
		913
		914	PUSHMARK (SP);
		915	PUTBACK;
		916	call_pv ("cf::tick", G_DISCARD \| G_VOID);
		917
		918	SvNV_set (sv_next_tick, get_next_tick ()); SvNOK_only (sv_next_tick);
		919	}
		920
914	void	921	void
915	cfperl_emergency_save ()	922	cfperl_emergency_save ()
916	{	923	{
917	CALL_BEGIN (0);	924	CALL_BEGIN (0);
918	CALL_CALL ("cf::emergency_save", G_VOID);	925	CALL_CALL ("cf::emergency_save", G_VOID);
…		…
970	{	977	{
971	CALL_BEGIN (1);	978	CALL_BEGIN (1);
972	CALL_ARG (name);	979	CALL_ARG (name);
973	CALL_CALL ("cf::player::find", G_SCALAR);	980	CALL_CALL ("cf::player::find", G_SCALAR);
974		981
975	player *retval;	982	player *retval = 0;
976
977	if (count)
978	sv_to (POPs, retval);	983	if (count) sv_to (POPs, retval);
979	else	984
980	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);
981		1001
982	CALL_END;	1002	CALL_END;
983		1003
984	return retval;	1004	return retval;
985	}	1005	}
…		…
990	CALL_BEGIN (2);	1010	CALL_BEGIN (2);
991	CALL_ARG (path);	1011	CALL_ARG (path);
992	CALL_ARG (origin);	1012	CALL_ARG (origin);
993	CALL_CALL ("cf::map::find_sync", G_SCALAR);	1013	CALL_CALL ("cf::map::find_sync", G_SCALAR);
994		1014
995	maptile *retval;	1015	maptile *retval = 0;
996
997	if (count)
998	sv_to (POPs, retval);	1016	if (count) sv_to (POPs, retval);
999	else
1000	retval = 0;
1001		1017
1002	CALL_END;	1018	CALL_END;
1003		1019
1004	return retval;	1020	return retval;
1005	}	1021	}
…		…
1011	CALL_ARG (path);	1027	CALL_ARG (path);
1012	CALL_ARG (origin);	1028	CALL_ARG (origin);
1013	CALL_ARG (load);	1029	CALL_ARG (load);
1014	CALL_CALL ("cf::map::find_async", G_SCALAR);	1030	CALL_CALL ("cf::map::find_async", G_SCALAR);
1015		1031
1016	maptile *retval;	1032	maptile *retval = 0;
1017
1018	if (count)
1019	sv_to (POPs, retval);	1033	if (count) sv_to (POPs, retval);
1020	else
1021	retval = 0;
1022		1034
1023	CALL_END;	1035	CALL_END;
1024		1036
1025	return retval;	1037	return retval;
1026	}	1038	}
…		…
1051		1063
1052	CALL_BEGIN (2);	1064	CALL_BEGIN (2);
1053	CALL_ARG (this);	1065	CALL_ARG (this);
1054	CALL_ARG (exit);	1066	CALL_ARG (exit);
1055	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);
1056	CALL_END;	1083	CALL_END;
1057	}	1084	}
1058		1085
1059	const char *	1086	const char *
1060	object::ref () const	1087	object::ref () const
…		…
1104	/////////////////////////////////////////////////////////////////////////////	1131	/////////////////////////////////////////////////////////////////////////////
1105		1132
1106	struct EVAPI *evapi::GEVAPI;	1133	struct EVAPI *evapi::GEVAPI;
1107	struct CoroAPI *coroapi::GCoroAPI;	1134	struct CoroAPI *coroapi::GCoroAPI;
1108		1135
1109	int coroapi::cede_counter;
1110	tstamp coroapi::next_cede;
1111
1112	void coroapi::do_cede_to_tick ()	1136	void coroapi::do_cede_to_tick ()
1113	{	1137	{
1114	cede_counter = 0;	1138	cede_pending = 0;
1115
1116	cede ();	1139	cede ();
1117
1118	next_cede += TICK / CEDES_PER_TICK;
1119	if (next_cede > SvNVx (sv_next_tick) - 0.002)
1120	next_cede = SvNVx (sv_next_tick);
1121	}
1122
1123	void coroapi::do_cede_every ()
1124	{
1125	cede_counter = 0;
1126
1127	if (coroapi::nready ())
1128	coroapi::cede ();
1129	}
1130
1131	void coroapi::do_cede_to_tick_every ()
1132	{
1133	cede_counter = 0;
1134
1135	cede_to_tick ();
1136	}	1140	}
1137		1141
1138	void	1142	void
1139	coroapi::wait_for_tick ()	1143	coroapi::wait_for_tick ()
1140	{	1144	{
…		…
1164	}	1168	}
1165		1169
1166	void	1170	void
1167	_connect_to_perl ()	1171	_connect_to_perl ()
1168	{	1172	{
1169	stash_cf = gv_stashpv ("cf" , 1);	1173	stash_cf = gv_stashpv ("cf", 1);
1170		1174
1171	stash_cf_object_wrap = gv_stashpv ("cf::object::wrap", 1);	1175	stash_cf_object_wrap = gv_stashpv ("cf::object::wrap", 1);
1172	stash_cf_object_player_wrap = gv_stashpv ("cf::object::player::wrap", 1);	1176	stash_cf_object_player_wrap = gv_stashpv ("cf::object::player::wrap", 1);
1173	stash_cf_player_wrap = gv_stashpv ("cf::player::wrap", 1);	1177	stash_cf_player_wrap = gv_stashpv ("cf::player::wrap", 1);
1174	stash_cf_map_wrap = gv_stashpv ("cf::map::wrap" , 1);	1178	stash_cf_map_wrap = gv_stashpv ("cf::map::wrap" , 1);
…		…
1176	stash_cf_arch_wrap = gv_stashpv ("cf::arch::wrap" , 1);	1180	stash_cf_arch_wrap = gv_stashpv ("cf::arch::wrap" , 1);
1177	stash_cf_party_wrap = gv_stashpv ("cf::party::wrap" , 1);	1181	stash_cf_party_wrap = gv_stashpv ("cf::party::wrap" , 1);
1178	stash_cf_region_wrap = gv_stashpv ("cf::region::wrap", 1);	1182	stash_cf_region_wrap = gv_stashpv ("cf::region::wrap", 1);
1179	stash_cf_living_wrap = gv_stashpv ("cf::living::wrap", 1);	1183	stash_cf_living_wrap = gv_stashpv ("cf::living::wrap", 1);
1180		1184
1181	sv_now = get_sv ("cf::NOW" , 1); SvUPGRADE (sv_now , SVt_NV);	1185	sv_now = get_sv ("cf::NOW" , 1); SvUPGRADE (sv_now , SVt_NV);
1182	sv_runtime = get_sv ("cf::RUNTIME" , 1); SvUPGRADE (sv_runtime , SVt_NV);	1186	sv_runtime = get_sv ("cf::RUNTIME" , 1); SvUPGRADE (sv_runtime , SVt_NV);
		1187	sv_tick_start = get_sv ("cf::TICK_START", 1); SvUPGRADE (sv_tick_start, SVt_NV);
1183	sv_next_tick = get_sv ("cf::NEXT_TICK", 1); SvUPGRADE (sv_next_tick, SVt_NV);	1188	sv_next_tick = get_sv ("cf::NEXT_TICK" , 1); SvUPGRADE (sv_next_tick , SVt_NV);
1184		1189
1185	cb_global = get_av ("cf::CB_GLOBAL", 1);	1190	cb_global = get_av ("cf::CB_GLOBAL", 1);
1186	cb_attachable = get_av ("cf::CB_ATTACHABLE", 1);	1191	cb_attachable = get_av ("cf::CB_ATTACHABLE", 1);
1187	cb_object = get_av ("cf::CB_OBJECT", 1);	1192	cb_object = get_av ("cf::CB_OBJECT", 1);
1188	cb_player = get_av ("cf::CB_PLAYER", 1);	1193	cb_player = get_av ("cf::CB_PLAYER", 1);
…		…
1421	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)
1422	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)
1423	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)
1424	const_iv (ATNR_LIFE_STEALING) const_iv (ATNR_DISEASE)	1429	const_iv (ATNR_LIFE_STEALING) const_iv (ATNR_DISEASE)
1425		1430
1426	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)
1427		1433
1428	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)
1429	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)
1430		1436
1431	const_iv (VERSION_CS) const_iv (VERSION_SC)	1437	const_iv (VERSION_CS) const_iv (VERSION_SC)
…		…
1446		1452
1447	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)
1448	const_iv (SYMMETRY_Y) const_iv (SYMMETRY_XY)	1454	const_iv (SYMMETRY_Y) const_iv (SYMMETRY_XY)
1449		1455
1450	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)
1451	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)
1452	const_iv (GT_MINIMAL)
1453		1458
1454	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)
1455	const_iv (FT_RSRC) const_iv (FT_NUM)	1460	const_iv (FT_RSRC) const_iv (FT_NUM)
1456	};	1461	};
1457		1462
…		…
1536	}	1541	}
1537		1542
1538	SvCUR_set (data_sv, dst - SvPVX (data_sv));	1543	SvCUR_set (data_sv, dst - SvPVX (data_sv));
1539	}	1544	}
1540		1545
		1546	void evthread_start (int aiofd)
		1547
1541	void _post_tick ()	1548	void cede_to_tick ()
1542	CODE:	1549	CODE:
1543	coroapi::next_cede = SvNVx (sv_next_tick) - TICK * (1. - 1. / CEDES_PER_TICK);	1550	coroapi::cede_to_tick ();
1544		1551
1545	NV till_cede ()	1552	NV till_tick ()
1546	CODE:	1553	CODE:
1547	RETVAL = coroapi::next_cede - now ();	1554	RETVAL = SvNVX (sv_next_tick) - now ();
1548	OUTPUT:	1555	OUTPUT:
1549	RETVAL	1556	RETVAL
1550		1557
1551	NV till_tick ()	1558	int tick_inhibit ()
1552	CODE:	1559	CODE:
1553	RETVAL = SvNVx (sv_next_tick) - now ();	1560	RETVAL = tick_inhibit;
1554	OUTPUT:	1561	OUTPUT:
1555	RETVAL	1562	RETVAL
1556		1563
		1564	void tick_inhibit_inc ()
		1565	CODE:
		1566	++tick_inhibit;
		1567
		1568	void tick_inhibit_dec ()
		1569	CODE:
		1570	if (!--tick_inhibit)
		1571	if (tick_pending)
		1572	{
		1573	ev_async_send (EV_DEFAULT, &tick_watcher);
		1574	coroapi::cede ();
		1575	}
		1576
		1577	void server_tick ()
		1578	CODE:
		1579	{
		1580	NOW = ev_now (EV_DEFAULT);
		1581	SvNV_set (sv_now, NOW); SvNOK_only (sv_now);
		1582	SvNV_set (sv_tick_start, NOW); SvNOK_only (sv_tick_start);
		1583	runtime = SvNVX (sv_runtime);
		1584
		1585	server_tick ();
		1586
		1587	NOW = ev_time ();
		1588	SvNV_set (sv_now, NOW); SvNOK_only (sv_now);
		1589	runtime += TICK;
		1590	SvNV_set (sv_runtime, runtime); SvNOK_only (sv_runtime);
		1591	}
		1592
1557	NV floor (NV x)	1593	NV floor (NV x)
1558		1594
1559	NV ceil (NV x)	1595	NV ceil (NV x)
1560		1596
1561	NV rndm (...)	1597	NV rndm (...)
		1598	ALIAS:
		1599	rmg_rndm = 1
1562	CODE:	1600	CODE:
		1601	{
		1602	rand_gen &gen = ix ? rmg_rndm : rndm;
1563	switch (items)	1603	switch (items)
1564	{	1604	{
1565	case 0: RETVAL = rndm (); break;	1605	case 0: RETVAL = gen (); break;
1566	case 1: RETVAL = rndm (SvUV (ST (0))); break;	1606	case 1: RETVAL = gen (SvUV (ST (0))); break;
1567	case 2: RETVAL = rndm (SvIV (ST (0)), SvIV (ST (1))); break;	1607	case 2: RETVAL = gen (SvIV (ST (0)), SvIV (ST (1))); break;
1568	default: croak ("cf::rndm requires none, one or two parameters."); break;	1608	default: croak ("cf::rndm requires none, one or two parameters."); break;
1569	}	1609	}
		1610	}
1570	OUTPUT:	1611	OUTPUT:
1571	RETVAL	1612	RETVAL
1572		1613
1573	NV clamp (NV value, NV min_value, NV max_value)	1614	NV clamp (NV value, NV min_value, NV max_value)
1574	CODE:	1615	CODE:
…		…
1586	PROTOTYPE: @	1627	PROTOTYPE: @
1587	CODE:	1628	CODE:
1588	while (items > 0)	1629	while (items > 0)
1589	sv_rvweaken (ST (--items));	1630	sv_rvweaken (ST (--items));
1590		1631
1591	void cede_to_tick ()
1592	CODE:
1593	coroapi::cede_to_tick ();
1594
1595	void server_tick ()
1596	CODE:
1597	NOW = SvNVx (sv_now);
1598	runtime = SvNVx (sv_runtime);
1599	server_tick ();
1600
1601	void	1632	void
1602	log_backtrace (utf8_string msg)	1633	log_backtrace (utf8_string msg)
1603		1634
1604	void	1635	void
1605	LOG (int flags, utf8_string msg)	1636	LOG (int flags, utf8_string msg)
…		…
1609	octet_string path_combine (octet_string base, octet_string path)	1640	octet_string path_combine (octet_string base, octet_string path)
1610	PROTOTYPE: $$	1641	PROTOTYPE: $$
1611		1642
1612	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)
1613	PROTOTYPE: $$	1644	PROTOTYPE: $$
1614
1615	void
1616	mallinfo ()
1617	PPCODE:
1618	{
1619	#if __GLIBC__
1620	struct mallinfo mai = mallinfo ();
1621	EXTEND (SP, 10*2);
1622	PUSHs (sv_2mortal (newSVpv ("arena" , 0))); PUSHs (sv_2mortal (newSViv (mai.arena)));
1623	PUSHs (sv_2mortal (newSVpv ("ordblks" , 0))); PUSHs (sv_2mortal (newSViv (mai.ordblks)));
1624	PUSHs (sv_2mortal (newSVpv ("smblks" , 0))); PUSHs (sv_2mortal (newSViv (mai.smblks)));
1625	PUSHs (sv_2mortal (newSVpv ("hblks" , 0))); PUSHs (sv_2mortal (newSViv (mai.hblks)));
1626	PUSHs (sv_2mortal (newSVpv ("hblkhd" , 0))); PUSHs (sv_2mortal (newSViv (mai.hblkhd)));
1627	PUSHs (sv_2mortal (newSVpv ("usmblks" , 0))); PUSHs (sv_2mortal (newSViv (mai.usmblks)));
1628	PUSHs (sv_2mortal (newSVpv ("fsmblks" , 0))); PUSHs (sv_2mortal (newSViv (mai.fsmblks)));
1629	PUSHs (sv_2mortal (newSVpv ("uordblks", 0))); PUSHs (sv_2mortal (newSViv (mai.uordblks)));
1630	PUSHs (sv_2mortal (newSVpv ("fordblks", 0))); PUSHs (sv_2mortal (newSViv (mai.fordblks)));
1631	PUSHs (sv_2mortal (newSVpv ("keepcost", 0))); PUSHs (sv_2mortal (newSViv (mai.keepcost)));
1632	#endif
1633	EXTEND (SP, 2*2);
1634	PUSHs (sv_2mortal (newSVpv ("slice_alloc", 0))); PUSHs (sv_2mortal (newSVuv (slice_alloc)));
1635	PUSHs (sv_2mortal (newSVpv ("shstr_alloc", 0))); PUSHs (sv_2mortal (newSVuv (shstr_alloc)));
1636	}
1637		1645
1638	void	1646	void
1639	sub_generation_inc ()	1647	sub_generation_inc ()
1640	CODE:	1648	CODE:
1641	PL_sub_generation++;	1649	PL_sub_generation++;
…		…
1678		1686
1679	#if _POSIX_MEMLOCK	1687	#if _POSIX_MEMLOCK
1680		1688
1681	int mlockall (int flags = MCL_CURRENT \| MCL_FUTURE)	1689	int mlockall (int flags = MCL_CURRENT \| MCL_FUTURE)
1682	INIT:	1690	INIT:
		1691	#if __GLIBC__
1683	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
1684		1694
1685	int munlockall ()	1695	int munlockall ()
1686		1696
1687	#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	}
1688		1725
1689	int find_animation (utf8_string text)	1726	int find_animation (utf8_string text)
1690	PROTOTYPE: $	1727	PROTOTYPE: $
1691		1728
1692	int random_roll (int min, int max, object *op, int goodbad);	1729	int random_roll (int min, int max, object *op, int goodbad);
…		…
1730	RETVAL = newSVpv (resist_plus[atnr], 0);	1767	RETVAL = newSVpv (resist_plus[atnr], 0);
1731	else	1768	else
1732	XSRETURN_UNDEF;	1769	XSRETURN_UNDEF;
1733	OUTPUT: RETVAL	1770	OUTPUT: RETVAL
1734		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
1735	bool	1814	bool
1736	load_resource_file (octet_string filename)	1815	load_resource_file_ (octet_string filename)
		1816
		1817	void
		1818	fix_weight ()
1737		1819
1738	MODULE = cf PACKAGE = cf::attachable	1820	MODULE = cf PACKAGE = cf::attachable
1739		1821
1740	int	1822	int
1741	valid (SV *obj)	1823	valid (SV *obj)
…		…
1805	object *actives (U32 index)	1887	object *actives (U32 index)
1806	CODE:	1888	CODE:
1807	RETVAL = index < actives.size () ? actives [index] : 0;	1889	RETVAL = index < actives.size () ? actives [index] : 0;
1808	OUTPUT: RETVAL	1890	OUTPUT: RETVAL
1809		1891
		1892	int mortals_size ()
		1893	CODE:
		1894	RETVAL = attachable::mortals.size ();
		1895	OUTPUT: RETVAL
		1896
1810	const char *slot_use_name (U32 slot)	1897	const char *slot_use_name (U32 slot)
1811	ALIAS:	1898	ALIAS:
1812	slot_nonuse_name = 1	1899	slot_nonuse_name = 1
1813	CODE:	1900	CODE:
1814	{	1901	{
…		…
1892	void apply_below (object *op)	1979	void apply_below (object *op)
1893	CODE:	1980	CODE:
1894	player_apply_below (op);	1981	player_apply_below (op);
1895		1982
1896	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)
1897
1898	#//TODO
1899	object clone_ (object op, int recursive = 0)
1900	CODE:
1901	if (recursive)
1902	RETVAL = object_create_clone (op);
1903	else
1904	{
1905	RETVAL = object::create ();
1906	op->copy_to (RETVAL);
1907	}
1908	OUTPUT: RETVAL
1909		1984
1910	int pay_item (object op, object buyer)	1985	int pay_item (object op, object buyer)
1911	CODE:	1986	CODE:
1912	RETVAL = pay_for_item (op, buyer);	1987	RETVAL = pay_for_item (op, buyer);
1913	OUTPUT: RETVAL	1988	OUTPUT: RETVAL
…		…
1991	CODE:	2066	CODE:
1992	{	2067	{
1993	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);
1994	}	2069	}
1995		2070
1996	const_utf8_string get_ob_key_value (object *op, utf8_string key)	2071	shstr
		2072	object::kv_get (shstr key)
1997		2073
1998	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)
1999		2079
2000	object get_nearest_player (object ob)	2080	object get_nearest_player (object ob)
2001	ALIAS: nearest_player = 0	2081	ALIAS: nearest_player = 0
2002	PREINIT:	2082	PREINIT:
2003	extern object get_nearest_player (object );	2083	extern object get_nearest_player (object );
…		…
2024	const_utf8_string	2104	const_utf8_string
2025	base_name (object *op, int plural = op->nrof > 1)	2105	base_name (object *op, int plural = op->nrof > 1)
2026	CODE:	2106	CODE:
2027	RETVAL = query_base_name (op, plural);	2107	RETVAL = query_base_name (op, plural);
2028	OUTPUT: RETVAL	2108	OUTPUT: RETVAL
2029
2030	object decrease_ob_nr (object op, unsigned long i)
2031		2109
2032	# return the tail of an object, excluding itself	2110	# return the tail of an object, excluding itself
2033	void	2111	void
2034	tail (object *op)	2112	tail (object *op)
2035	PPCODE:	2113	PPCODE:
…		…
2803	extract_tags (object_thawer *self)	2881	extract_tags (object_thawer *self)
2804	PPCODE:	2882	PPCODE:
2805	while (self->kw != KW_EOF)	2883	while (self->kw != KW_EOF)
2806	{	2884	{
2807	PUTBACK;	2885	PUTBACK;
2808	coroapi::cede_to_tick_every (500);	2886	coroapi::cede_to_tick ();
2809	SPAGAIN;	2887	SPAGAIN;
2810		2888
2811	if (self->kw == KW_tag)	2889	if (self->kw == KW_tag)
2812	XPUSHs (sv_2mortal (newSVpv_utf8 (self->get_str ())));	2890	XPUSHs (sv_2mortal (newSVpv_utf8 (self->get_str ())));
2813		2891

Diff Legend

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

Comparing deliantra/server/server/cfperl.xs (file contents): Revision 1.271 by root, Tue Apr 1 19:50:39 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.271 by root, Tue Apr 1 19:50:39 2008 UTC vs.
Revision 1.288 by root, Tue May 6 18:47:32 2008 UTC