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

Comparing deliantra/server/server/cfperl.xs (file contents):
Revision 1.257 by root, Sun Sep 30 16:24:31 2007 UTC vs.
Revision 1.288 by root, Tue May 6 18:47:32 2008 UTC

…		…
1	/*	1	/*
2	* This file is part of Crossfire TRT, the Roguelike Realtime MORPG.	2	* This file is part of Deliantra, the Roguelike Realtime MMORPG.
3	*	3	*
4	* Copyright (©) 2006,2007 Marc Alexander Lehmann / Robin Redeker / the Crossfire TRT 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	* Crossfire TRT 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
10	* the Free Software Foundation, either version 3 of the License, or	10	* the Free Software Foundation, either version 3 of the License, or
11	* (at your option) any later version.	11	* (at your option) any later version.
12	*	12	*
13	* This program is distributed in the hope that it will be useful,	13	* This program is distributed in the hope that it will be useful,
16	* GNU General Public License for more details.	16	* GNU General Public License for more details.
17	*	17	*
18	* You should have received a copy of the GNU General Public License	18	* You should have received a copy of the GNU General Public License
19	* along with this program. If not, see <http://www.gnu.org/licenses/>.	19	* along with this program. If not, see <http://www.gnu.org/licenses/>.
20	*	20	*
21	* The authors can be reached via e-mail to <crossfire@schmorp.de>	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"	26	#define PLUGIN_NAME "perl"
27	#define PLUGIN_VERSION "cfperl 0.5"	27	#define PLUGIN_VERSION "cfperl 0.5"
28
29	#define CEDES_PER_TICK 5
30		28
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
		46	#if HAVE_MALLOC_H
		47	# include <malloc.h>
		48	#endif
		49
		50	#if !__GLIBC__
		51	# define malloc_trim(pad) -1
		52	#endif
		53
47	#include <EXTERN.h>	54	#include <EXTERN.h>
48	#include <perl.h>	55	#include <perl.h>
49	#include <XSUB.h>	56	#include <XSUB.h>
50		57
51	#include "CoroAPI.h"	58	#include "CoroAPI.h"
…		…
56	typedef object_thawer &object_thawer_ref;	63	typedef object_thawer &object_thawer_ref;
57	typedef object_freezer &object_freezer_ref;	64	typedef object_freezer &object_freezer_ref;
58		65
59	typedef std::string std__string;	66	typedef std::string std__string;
60		67
61	#if IVSIZE >= 8
62	typedef IV val64;
63	# define newSVval64 newSViv
64	# define SvVAL64 SvIV
65	#else
66	typedef double val64;
67	# define newSVval64 newSVnv
68	# define SvVAL64 SvNV
69	#endif
70
71	static PerlInterpreter *perl;	68	static PerlInterpreter *perl;
72		69
73	tstamp NOW, runtime;	70	tstamp NOW, runtime;
		71
		72	static int tick_inhibit;
		73	static int tick_pending;
74		74
75	global gbl_ev;	75	global gbl_ev;
76	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;
77	static SV sv_runtime, sv_next_tick;	77	static SV sv_runtime, sv_tick_start, sv_next_tick, sv_now;
78		78
79	bitset<NUM_EVENT_TYPES> ev_want_event;	79	bitset<NUM_EVENT_TYPES> ev_want_event;
80	bitset<NUM_TYPES> ev_want_type;	80	bitset<NUM_TYPES> ev_want_type;
81		81
82	static HV	82	static HV
…		…
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 ()); }
441	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); }
442		442
443	inline SV *to_sv (UUID v)	443	inline SV *to_sv (UUID v) { return newSVpv (v.c_str (), 0); }
444	{
445	char buf[128];
446	snprintf (buf, 128, "<1.%" PRIx64 ">", v.seq);
447	return newSVpv (buf, 0);
448	}
449		444
450	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; }
451	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; }
452	inline void sv_to (SV *sv, bool &v) { v = SvIV (sv); }	447	inline void sv_to (SV *sv, bool &v) { v = SvIV (sv); }
453	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); }
…		…
495	v.assign (data, len);	490	v.assign (data, len);
496	}	491	}
497		492
498	inline void sv_to (SV *sv, UUID &v)	493	inline void sv_to (SV *sv, UUID &v)
499	{	494	{
500	unsigned int version;	495	if (!v.parse (SvPV_nolen (sv)))
501
502	if (2 != sscanf (SvPV_nolen (sv), "<%d.%" SCNx64 ">", &version, &v.seq) \|\| 1 != version)
503	croak ("unparsable uuid: %s", SvPV_nolen (sv));	496	croak ("unparsable uuid: %s", SvPV_nolen (sv));
504	}	497	}
505		498
506	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); }
507		500
…		…
601	/////////////////////////////////////////////////////////////////////////////	594	/////////////////////////////////////////////////////////////////////////////
602		595
603	void	596	void
604	cfperl_init ()	597	cfperl_init ()
605	{	598	{
		599	extern char **environ;
		600
606	PERL_SYS_INIT3 (&settings.argc, &settings.argv, 0);	601	PERL_SYS_INIT3 (&settings.argc, &settings.argv, &environ);
607	perl = perl_alloc ();	602	perl = perl_alloc ();
608	perl_construct (perl);	603	perl_construct (perl);
609		604
610	PL_exit_flags \|= PERL_EXIT_DESTRUCT_END;	605	PL_exit_flags \|= PERL_EXIT_DESTRUCT_END;
611		606
612	const char *argv[] = {	607	const char *argv[] = {
613	settings.argv [0],	608	settings.argv [0],
614	"-e"	609	"-e"
615	"use Event; use Coro;" // required for bootstrap	610	"use EV; use Coro;" // required for bootstrap
616	"cf->bootstrap;" // required for datadir :*>	611	"cf->bootstrap;" // required for datadir :*>
617	"unshift @INC, cf::datadir ();"	612	"unshift @INC, cf::datadir ();"
618	"require cf;"	613	"require cf;"
619	};	614	};
620		615
621	if (perl_parse (perl, xs_init, 2, (char )argv, (char )NULL)	616	if (perl_parse (perl, xs_init, 2, (char **)argv, environ)
622	\|\| perl_run (perl))	617	\|\| perl_run (perl))
623	{	618	{
624	printf ("unable to initialize perl-interpreter, aborting.\n");	619	printf ("unable to initialize perl-interpreter, aborting.\n");
625	exit (EXIT_FAILURE);	620	exit (EXIT_FAILURE);
626	}	621	}
…		…
903	}	898	}
904		899
905	/////////////////////////////////////////////////////////////////////////////	900	/////////////////////////////////////////////////////////////////////////////
906	// various c++ => perl glue functions	901	// various c++ => perl glue functions
907		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
908	void	921	void
909	cfperl_emergency_save ()	922	cfperl_emergency_save ()
910	{	923	{
911	CALL_BEGIN (0);	924	CALL_BEGIN (0);
912	CALL_CALL ("cf::emergency_save", G_VOID);	925	CALL_CALL ("cf::emergency_save", G_VOID);
…		…
964	{	977	{
965	CALL_BEGIN (1);	978	CALL_BEGIN (1);
966	CALL_ARG (name);	979	CALL_ARG (name);
967	CALL_CALL ("cf::player::find", G_SCALAR);	980	CALL_CALL ("cf::player::find", G_SCALAR);
968		981
969	player *retval;	982	player *retval = 0;
970
971	if (count)
972	sv_to (POPs, retval);	983	if (count) sv_to (POPs, retval);
973	else	984
974	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);
975		1001
976	CALL_END;	1002	CALL_END;
977		1003
978	return retval;	1004	return retval;
979	}	1005	}
…		…
984	CALL_BEGIN (2);	1010	CALL_BEGIN (2);
985	CALL_ARG (path);	1011	CALL_ARG (path);
986	CALL_ARG (origin);	1012	CALL_ARG (origin);
987	CALL_CALL ("cf::map::find_sync", G_SCALAR);	1013	CALL_CALL ("cf::map::find_sync", G_SCALAR);
988		1014
989	maptile *retval;	1015	maptile *retval = 0;
990
991	if (count)
992	sv_to (POPs, retval);	1016	if (count) sv_to (POPs, retval);
993	else
994	retval = 0;
995		1017
996	CALL_END;	1018	CALL_END;
997		1019
998	return retval;	1020	return retval;
999	}	1021	}
…		…
1005	CALL_ARG (path);	1027	CALL_ARG (path);
1006	CALL_ARG (origin);	1028	CALL_ARG (origin);
1007	CALL_ARG (load);	1029	CALL_ARG (load);
1008	CALL_CALL ("cf::map::find_async", G_SCALAR);	1030	CALL_CALL ("cf::map::find_async", G_SCALAR);
1009		1031
1010	maptile *retval;	1032	maptile *retval = 0;
1011
1012	if (count)
1013	sv_to (POPs, retval);	1033	if (count) sv_to (POPs, retval);
1014	else
1015	retval = 0;
1016		1034
1017	CALL_END;	1035	CALL_END;
1018		1036
1019	return retval;	1037	return retval;
1020	}	1038	}
…		…
1045		1063
1046	CALL_BEGIN (2);	1064	CALL_BEGIN (2);
1047	CALL_ARG (this);	1065	CALL_ARG (this);
1048	CALL_ARG (exit);	1066	CALL_ARG (exit);
1049	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);
1050	CALL_END;	1083	CALL_END;
1051	}	1084	}
1052		1085
1053	const char *	1086	const char *
1054	object::ref () const	1087	object::ref () const
…		…
1095	#endif	1128	#endif
1096	}	1129	}
1097		1130
1098	/////////////////////////////////////////////////////////////////////////////	1131	/////////////////////////////////////////////////////////////////////////////
1099		1132
1100	struct EventAPI *watcher_base::GEventAPI;	1133	struct EVAPI *evapi::GEVAPI;
1101	struct CoroAPI *coroapi::GCoroAPI;	1134	struct CoroAPI *coroapi::GCoroAPI;
1102
1103	int coroapi::cede_counter;
1104	tstamp coroapi::next_cede;
1105		1135
1106	void coroapi::do_cede_to_tick ()	1136	void coroapi::do_cede_to_tick ()
1107	{	1137	{
1108	cede_counter = 0;	1138	cede_pending = 0;
1109
1110	cede ();	1139	cede ();
1111
1112	next_cede += (TICK / CEDES_PER_TICK) * 0.99;
1113	if (next_cede > SvNV (sv_next_tick) - 0.02)
1114	next_cede = SvNV (sv_next_tick);
1115	}
1116
1117	void coroapi::do_cede_every ()
1118	{
1119	cede_counter = 0;
1120
1121	if (coroapi::nready ())
1122	coroapi::cede ();
1123	}
1124
1125	void coroapi::do_cede_to_tick_every ()
1126	{
1127	cede_counter = 0;
1128
1129	cede_to_tick ();
1130	}	1140	}
1131		1141
1132	void	1142	void
1133	coroapi::wait_for_tick ()	1143	coroapi::wait_for_tick ()
1134	{	1144	{
…		…
1143	CALL_BEGIN (0);	1153	CALL_BEGIN (0);
1144	CALL_CALL ("cf::wait_for_tick_begin", G_DISCARD);	1154	CALL_CALL ("cf::wait_for_tick_begin", G_DISCARD);
1145	CALL_END;	1155	CALL_END;
1146	}	1156	}
1147		1157
1148	static void
1149	iw_dispatch (pe_event *ev)
1150	{
1151	iw w = (iw )ev->ext_data;
1152	w->call (*w);
1153	}
1154
1155	void
1156	iw::alloc ()
1157	{
1158	pe = GEventAPI->new_idle (0, 0);
1159
1160	WaREENTRANT_off (pe);
1161	pe->base.callback = (void *)iw_dispatch;
1162	pe->base.ext_data = (void *)this;
1163	}
1164
1165	static void iow_dispatch (pe_event *ev)
1166	{
1167	iow w = (iow )ev->ext_data;
1168	w->call (w, ((pe_ioevent )ev)->got);
1169	}
1170
1171	void
1172	iow::alloc ()
1173	{
1174	pe = GEventAPI->new_io (0, 0);
1175
1176	WaREENTRANT_off (pe);
1177	pe->base.callback = (void *)iow_dispatch;
1178	pe->base.ext_data = (void *)this;
1179
1180	pe->fd = -1;
1181	pe->poll = 0;
1182	}
1183
1184	void
1185	iow::fd (int fd)
1186	{
1187	pe->fd = fd;
1188	}
1189
1190	int
1191	iow::poll ()
1192	{
1193	return pe->poll;
1194	}
1195
1196	void	1158	void
1197	iow::poll (int events)	1159	iow::poll (int events)
1198	{	1160	{
1199	if (pe->poll != events)	1161	if (events != this->events)
1200	{	1162	{
		1163	int active = ev_is_active ((ev_io *)this);
1201	if (pe->poll) stop ();	1164	if (active) stop ();
1202	pe->poll = events;	1165	ev_io_set ((ev_io *)this, fd, events);
1203	if (pe->poll) start ();	1166	if (active) start ();
1204	}	1167	}
1205	}	1168	}
1206		1169
1207	void	1170	void
1208	_connect_to_perl ()	1171	_connect_to_perl ()
1209	{	1172	{
1210	stash_cf = gv_stashpv ("cf" , 1);	1173	stash_cf = gv_stashpv ("cf", 1);
1211		1174
1212	stash_cf_object_wrap = gv_stashpv ("cf::object::wrap", 1);	1175	stash_cf_object_wrap = gv_stashpv ("cf::object::wrap", 1);
1213	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);
1214	stash_cf_player_wrap = gv_stashpv ("cf::player::wrap", 1);	1177	stash_cf_player_wrap = gv_stashpv ("cf::player::wrap", 1);
1215	stash_cf_map_wrap = gv_stashpv ("cf::map::wrap" , 1);	1178	stash_cf_map_wrap = gv_stashpv ("cf::map::wrap" , 1);
…		…
1217	stash_cf_arch_wrap = gv_stashpv ("cf::arch::wrap" , 1);	1180	stash_cf_arch_wrap = gv_stashpv ("cf::arch::wrap" , 1);
1218	stash_cf_party_wrap = gv_stashpv ("cf::party::wrap" , 1);	1181	stash_cf_party_wrap = gv_stashpv ("cf::party::wrap" , 1);
1219	stash_cf_region_wrap = gv_stashpv ("cf::region::wrap", 1);	1182	stash_cf_region_wrap = gv_stashpv ("cf::region::wrap", 1);
1220	stash_cf_living_wrap = gv_stashpv ("cf::living::wrap", 1);	1183	stash_cf_living_wrap = gv_stashpv ("cf::living::wrap", 1);
1221		1184
		1185	sv_now = get_sv ("cf::NOW" , 1); SvUPGRADE (sv_now , SVt_NV);
1222	sv_runtime = get_sv ("cf::RUNTIME" , 1); sv_upgrade (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);
1223	sv_next_tick = get_sv ("cf::NEXT_TICK", 1); sv_upgrade (sv_next_tick, SVt_NV);	1188	sv_next_tick = get_sv ("cf::NEXT_TICK" , 1); SvUPGRADE (sv_next_tick , SVt_NV);
1224		1189
1225	cb_global = get_av ("cf::CB_GLOBAL", 1);	1190	cb_global = get_av ("cf::CB_GLOBAL", 1);
1226	cb_attachable = get_av ("cf::CB_ATTACHABLE", 1);	1191	cb_attachable = get_av ("cf::CB_ATTACHABLE", 1);
1227	cb_object = get_av ("cf::CB_OBJECT", 1);	1192	cb_object = get_av ("cf::CB_OBJECT", 1);
1228	cb_player = get_av ("cf::CB_PLAYER", 1);	1193	cb_player = get_av ("cf::CB_PLAYER", 1);
…		…
1233		1198
1234	MODULE = cf PACKAGE = cf PREFIX = cf_	1199	MODULE = cf PACKAGE = cf PREFIX = cf_
1235		1200
1236	BOOT:	1201	BOOT:
1237	{	1202	{
1238	I_EVENT_API (PACKAGE); watcher_base::GEventAPI = GEventAPI;	1203	I_EV_API (PACKAGE); evapi::GEVAPI = GEVAPI;
1239	I_CORO_API (PACKAGE); coroapi::GCoroAPI = GCoroAPI;	1204	I_CORO_API (PACKAGE); coroapi::GCoroAPI = GCoroAPI;
1240		1205
1241	_connect_to_perl ();	1206	_connect_to_perl ();
1242		1207
1243	newCONSTSUB (stash_cf, "VERSION", newSVpv (VERSION, sizeof (VERSION) - 1));	1208	newCONSTSUB (stash_cf, "VERSION", newSVpv (VERSION, sizeof (VERSION) - 1));
1244		1209
…		…
1262	const_iv (Map0Cmd) const_iv (Map1Cmd) const_iv (Map1aCmd)	1227	const_iv (Map0Cmd) const_iv (Map1Cmd) const_iv (Map1aCmd)
1263		1228
1264	const_iv (MAP_CLIENT_X) const_iv (MAP_CLIENT_Y)	1229	const_iv (MAP_CLIENT_X) const_iv (MAP_CLIENT_Y)
1265		1230
1266	const_iv (MAX_TIME)	1231	const_iv (MAX_TIME)
		1232	const_iv (MAXSOCKBUF)
1267		1233
1268	const_iv (NUM_BODY_LOCATIONS)	1234	const_iv (NUM_BODY_LOCATIONS)
1269	const_iv (body_range) const_iv (body_shield) const_iv (body_combat)	1235	const_iv (body_range) const_iv (body_shield) const_iv (body_combat)
1270	const_iv (body_arm) const_iv (body_torso) const_iv (body_head)	1236	const_iv (body_arm) const_iv (body_torso) const_iv (body_head)
1271	const_iv (body_neck) const_iv (body_skill) const_iv (body_finger)	1237	const_iv (body_neck) const_iv (body_skill) const_iv (body_finger)
…		…
1416	const_iv (P_NO_CLERIC) const_iv (P_OUT_OF_MAP) const_iv (P_NEW_MAP) const_iv (P_UPTODATE)	1382	const_iv (P_NO_CLERIC) const_iv (P_OUT_OF_MAP) const_iv (P_NEW_MAP) const_iv (P_UPTODATE)
1417		1383
1418	const_iv (UP_OBJ_INSERT) const_iv (UP_OBJ_REMOVE) const_iv (UP_OBJ_CHANGE) const_iv (UP_OBJ_FACE)	1384	const_iv (UP_OBJ_INSERT) const_iv (UP_OBJ_REMOVE) const_iv (UP_OBJ_CHANGE) const_iv (UP_OBJ_FACE)
1419		1385
1420	const_iv (INS_NO_MERGE) const_iv (INS_ABOVE_FLOOR_ONLY) const_iv (INS_NO_WALK_ON)	1386	const_iv (INS_NO_MERGE) const_iv (INS_ABOVE_FLOOR_ONLY) const_iv (INS_NO_WALK_ON)
1421	const_iv (INS_ON_TOP) const_iv (INS_BELOW_ORIGINATOR) const_iv (INS_MAP_LOAD)	1387	const_iv (INS_ON_TOP) const_iv (INS_BELOW_ORIGINATOR)
1422		1388
1423	const_iv (WILL_APPLY_HANDLE) const_iv (WILL_APPLY_TREASURE) const_iv (WILL_APPLY_EARTHWALL)	1389	const_iv (WILL_APPLY_HANDLE) const_iv (WILL_APPLY_TREASURE) const_iv (WILL_APPLY_EARTHWALL)
1424	const_iv (WILL_APPLY_DOOR) const_iv (WILL_APPLY_FOOD)	1390	const_iv (WILL_APPLY_DOOR) const_iv (WILL_APPLY_FOOD)
1425		1391
1426	const_iv (SAVE_MODE) const_iv (SAVE_DIR_MODE)	1392	const_iv (SAVE_MODE) const_iv (SAVE_DIR_MODE)
…		…
1460	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)
1461	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)
1462	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)
1463	const_iv (ATNR_LIFE_STEALING) const_iv (ATNR_DISEASE)	1429	const_iv (ATNR_LIFE_STEALING) const_iv (ATNR_DISEASE)
1464		1430
1465	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)
1466		1433
1467	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)
1468	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)
1469		1436
1470	const_iv (VERSION_CS) const_iv (VERSION_SC)	1437	const_iv (VERSION_CS) const_iv (VERSION_SC)
…		…
1485		1452
1486	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)
1487	const_iv (SYMMETRY_Y) const_iv (SYMMETRY_XY)	1454	const_iv (SYMMETRY_Y) const_iv (SYMMETRY_XY)
1488		1455
1489	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)
1490	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)
1491	const_iv (GT_MINIMAL)
1492		1458
1493	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)
1494	const_iv (FT_RSRC) const_iv (FT_NUM)	1460	const_iv (FT_RSRC) const_iv (FT_NUM)
1495	};	1461	};
1496		1462
…		…
1575	}	1541	}
1576		1542
1577	SvCUR_set (data_sv, dst - SvPVX (data_sv));	1543	SvCUR_set (data_sv, dst - SvPVX (data_sv));
1578	}	1544	}
1579		1545
		1546	void evthread_start (int aiofd)
		1547
1580	void _post_tick ()	1548	void cede_to_tick ()
1581	CODE:	1549	CODE:
1582	coroapi::next_cede = SvNV (sv_next_tick) - TICK * (1. - 1. / CEDES_PER_TICK);	1550	coroapi::cede_to_tick ();
1583		1551
1584	NV till_cede ()	1552	NV till_tick ()
1585	CODE:	1553	CODE:
1586	RETVAL = coroapi::next_cede - now ();	1554	RETVAL = SvNVX (sv_next_tick) - now ();
1587	OUTPUT:	1555	OUTPUT:
1588	RETVAL	1556	RETVAL
1589		1557
1590	NV till_tick ()	1558	int tick_inhibit ()
1591	CODE:	1559	CODE:
1592	RETVAL = SvNV (sv_next_tick) - now ();	1560	RETVAL = tick_inhibit;
1593	OUTPUT:	1561	OUTPUT:
1594	RETVAL	1562	RETVAL
1595		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
1596	NV floor (NV x)	1593	NV floor (NV x)
1597		1594
1598	NV ceil (NV x)	1595	NV ceil (NV x)
1599		1596
1600	NV rndm (...)	1597	NV rndm (...)
		1598	ALIAS:
		1599	rmg_rndm = 1
1601	CODE:	1600	CODE:
		1601	{
		1602	rand_gen &gen = ix ? rmg_rndm : rndm;
1602	switch (items)	1603	switch (items)
1603	{	1604	{
1604	case 0: RETVAL = rndm (); break;	1605	case 0: RETVAL = gen (); break;
1605	case 1: RETVAL = rndm (SvUV (ST (0))); break;	1606	case 1: RETVAL = gen (SvUV (ST (0))); break;
1606	case 2: RETVAL = rndm (SvIV (ST (0)), SvIV (ST (1))); break;	1607	case 2: RETVAL = gen (SvIV (ST (0)), SvIV (ST (1))); break;
1607	default: croak ("cf::rndm requires none, one or two parameters."); break;	1608	default: croak ("cf::rndm requires none, one or two parameters."); break;
1608	}	1609	}
		1610	}
1609	OUTPUT:	1611	OUTPUT:
1610	RETVAL	1612	RETVAL
1611		1613
1612	NV clamp (NV value, NV min_value, NV max_value)	1614	NV clamp (NV value, NV min_value, NV max_value)
1613	CODE:	1615	CODE:
…		…
1619	CODE:	1621	CODE:
1620	RETVAL = lerp (value, min_in, max_in, min_out, max_out);	1622	RETVAL = lerp (value, min_in, max_in, min_out, max_out);
1621	OUTPUT:	1623	OUTPUT:
1622	RETVAL	1624	RETVAL
1623		1625
1624	void cede_to_tick ()	1626	void weaken (...)
1625	CODE:	1627	PROTOTYPE: @
1626	coroapi::cede_to_tick ();	1628	CODE:
1627		1629	while (items > 0)
1628	void server_tick ()	1630	sv_rvweaken (ST (--items));
1629	CODE:
1630	NOW = now ();
1631	runtime = SvNVx (sv_runtime);
1632	server_tick ();
1633		1631
1634	void	1632	void
1635	log_backtrace (utf8_string msg)	1633	log_backtrace (utf8_string msg)
1636		1634
1637	void	1635	void
…		…
1676		1674
1677	void abort ()	1675	void abort ()
1678		1676
1679	void reset_signals ()	1677	void reset_signals ()
1680		1678
1681	void fork_abort (octet_string cause = "cf::fork_abort")	1679	void fork_abort (const_octet_string cause = "cf::fork_abort")
1682		1680
1683	void cleanup (octet_string cause, bool make_core = false)	1681	void cleanup (const_octet_string cause, bool make_core = false)
1684		1682
1685	void emergency_save ()	1683	void emergency_save ()
1686		1684
1687	void _exit (int status = EXIT_SUCCESS)	1685	void _exit (int status = EXIT_SUCCESS)
1688		1686
1689	UV sv_2watcher (SV *w)
1690	CODE:
1691	RETVAL = (UV)GEventAPI->sv_2watcher (w);
1692	OUTPUT:
1693	RETVAL
1694
1695	#if _POSIX_MEMLOCK	1687	#if _POSIX_MEMLOCK
1696		1688
1697	int mlockall (int flags = MCL_CURRENT \| MCL_FUTURE)	1689	int mlockall (int flags = MCL_CURRENT \| MCL_FUTURE)
		1690	INIT:
		1691	#if __GLIBC__
		1692	mallopt (M_PERTURB, 0xee); // bug-workaround for linux glibc+mlockall+calloc
		1693	#endif
1698		1694
1699	int munlockall ()	1695	int munlockall ()
1700		1696
1701	#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	}
1702		1725
1703	int find_animation (utf8_string text)	1726	int find_animation (utf8_string text)
1704	PROTOTYPE: $	1727	PROTOTYPE: $
1705		1728
1706	int random_roll (int min, int max, object *op, int goodbad);	1729	int random_roll (int min, int max, object *op, int goodbad);
…		…
1744	RETVAL = newSVpv (resist_plus[atnr], 0);	1767	RETVAL = newSVpv (resist_plus[atnr], 0);
1745	else	1768	else
1746	XSRETURN_UNDEF;	1769	XSRETURN_UNDEF;
1747	OUTPUT: RETVAL	1770	OUTPUT: RETVAL
1748		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
1749	bool	1814	bool
1750	load_resource_file (octet_string filename)	1815	load_resource_file_ (octet_string filename)
		1816
		1817	void
		1818	fix_weight ()
1751		1819
1752	MODULE = cf PACKAGE = cf::attachable	1820	MODULE = cf PACKAGE = cf::attachable
1753		1821
1754	int	1822	int
1755	valid (SV *obj)	1823	valid (SV *obj)
…		…
1819	object *actives (U32 index)	1887	object *actives (U32 index)
1820	CODE:	1888	CODE:
1821	RETVAL = index < actives.size () ? actives [index] : 0;	1889	RETVAL = index < actives.size () ? actives [index] : 0;
1822	OUTPUT: RETVAL	1890	OUTPUT: RETVAL
1823		1891
		1892	int mortals_size ()
		1893	CODE:
		1894	RETVAL = attachable::mortals.size ();
		1895	OUTPUT: RETVAL
		1896
1824	const char *slot_use_name (U32 slot)	1897	const char *slot_use_name (U32 slot)
1825	ALIAS:	1898	ALIAS:
1826	slot_nonuse_name = 1	1899	slot_nonuse_name = 1
1827	CODE:	1900	CODE:
1828	{	1901	{
…		…
1906	void apply_below (object *op)	1979	void apply_below (object *op)
1907	CODE:	1980	CODE:
1908	player_apply_below (op);	1981	player_apply_below (op);
1909		1982
1910	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)
1911
1912	#//TODO
1913	object clone_ (object op, int recursive = 0)
1914	CODE:
1915	if (recursive)
1916	RETVAL = object_create_clone (op);
1917	else
1918	{
1919	RETVAL = object::create ();
1920	op->copy_to (RETVAL);
1921	}
1922	OUTPUT: RETVAL
1923		1984
1924	int pay_item (object op, object buyer)	1985	int pay_item (object op, object buyer)
1925	CODE:	1986	CODE:
1926	RETVAL = pay_for_item (op, buyer);	1987	RETVAL = pay_for_item (op, buyer);
1927	OUTPUT: RETVAL	1988	OUTPUT: RETVAL
…		…
2005	CODE:	2066	CODE:
2006	{	2067	{
2007	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);
2008	}	2069	}
2009		2070
2010	const_utf8_string get_ob_key_value (object *op, utf8_string key)	2071	shstr
		2072	object::kv_get (shstr key)
2011		2073
2012	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)
2013		2079
2014	object get_nearest_player (object ob)	2080	object get_nearest_player (object ob)
2015	ALIAS: nearest_player = 0	2081	ALIAS: nearest_player = 0
2016	PREINIT:	2082	PREINIT:
2017	extern object get_nearest_player (object );	2083	extern object get_nearest_player (object );
…		…
2039	base_name (object *op, int plural = op->nrof > 1)	2105	base_name (object *op, int plural = op->nrof > 1)
2040	CODE:	2106	CODE:
2041	RETVAL = query_base_name (op, plural);	2107	RETVAL = query_base_name (op, plural);
2042	OUTPUT: RETVAL	2108	OUTPUT: RETVAL
2043		2109
2044	object decrease_ob_nr (object op, unsigned long i)
2045
2046	# return the tail of an object, excluding itself	2110	# return the tail of an object, excluding itself
2047	void	2111	void
2048	tail (object *op)	2112	tail (object *op)
2049	PPCODE:	2113	PPCODE:
2050	while ((op = op->more))	2114	while ((op = op->more))
…		…
2117	CODE:	2181	CODE:
2118	{	2182	{
2119	STRLEN len;	2183	STRLEN len;
2120	char *buf = SvPVbyte (packet, len);	2184	char *buf = SvPVbyte (packet, len);
2121		2185
		2186	if (len > MAXSOCKBUF)
		2187	pl->failmsg ("[packet too long for client]");
2122	if (pl->ns)	2188	else if (pl->ns)
2123	pl->ns->send_packet (buf, len);	2189	pl->ns->send_packet (buf, len);
2124	}	2190	}
2125		2191
2126	int	2192	int
2127	listening (player *pl, int new_value = -1)	2193	listening (player *pl, int new_value = -1)
…		…
2579	CODE:	2645	CODE:
2580	{	2646	{
2581	STRLEN len;	2647	STRLEN len;
2582	char *buf = SvPVbyte (packet, len);	2648	char *buf = SvPVbyte (packet, len);
2583		2649
		2650	if (len > MAXSOCKBUF)
		2651	{
		2652	// ugly
		2653	if (THIS->pl)
		2654	THIS->pl->failmsg ("[packet too long for client]");
		2655	}
		2656	else
2584	THIS->send_packet (buf, len);	2657	THIS->send_packet (buf, len);
2585	}	2658	}
2586		2659
2587	faceidx	2660	faceidx
2588	client::need_face (utf8_string name, int pri = 0)	2661	client::need_face (utf8_string name, int pri = 0)
2589	CODE:	2662	CODE:
…		…
2688	}	2761	}
2689	}	2762	}
2690		2763
2691	int get_data_size (faceidx idx, int faceset = 0)	2764	int get_data_size (faceidx idx, int faceset = 0)
2692	CODE:	2765	CODE:
2693	facedata *d = face_data (idx, faceset); assert (d);	2766	facedata *d = face_data (idx, faceset);
		2767	if (!d) XSRETURN_UNDEF;
2694	RETVAL = d->data.size ();	2768	RETVAL = d->data.size ();
2695	OUTPUT:	2769	OUTPUT:
2696	RETVAL	2770	RETVAL
2697		2771
2698	SV *get_chksum (faceidx idx, int faceset = 0)	2772	SV *get_chksum (faceidx idx, int faceset = 0)
2699	CODE:	2773	CODE:
2700	facedata *d = face_data (idx, faceset); assert (d);	2774	facedata *d = face_data (idx, faceset);
		2775	if (!d) XSRETURN_UNDEF;
2701	RETVAL = newSVpvn ((char *)d->chksum, CHKSUM_SIZE);	2776	RETVAL = newSVpvn ((char *)d->chksum, CHKSUM_SIZE);
		2777	OUTPUT:
		2778	RETVAL
		2779
		2780	SV *get_data (faceidx idx, int faceset = 0)
		2781	CODE:
		2782	facedata *d = face_data (idx, faceset);
		2783	if (!d) XSRETURN_UNDEF;
		2784	RETVAL = newSVpvn (d->data.data (), d->data.length ());
2702	OUTPUT:	2785	OUTPUT:
2703	RETVAL	2786	RETVAL
2704		2787
2705	void invalidate (faceidx idx)	2788	void invalidate (faceidx idx)
2706	CODE:	2789	CODE:
…		…
2798	extract_tags (object_thawer *self)	2881	extract_tags (object_thawer *self)
2799	PPCODE:	2882	PPCODE:
2800	while (self->kw != KW_EOF)	2883	while (self->kw != KW_EOF)
2801	{	2884	{
2802	PUTBACK;	2885	PUTBACK;
2803	coroapi::cede_to_tick_every (5000);	2886	coroapi::cede_to_tick ();
2804	SPAGAIN;	2887	SPAGAIN;
2805		2888
2806	if (self->kw == KW_tag)	2889	if (self->kw == KW_tag)
2807	XPUSHs (sv_2mortal (newSVpv_utf8 (self->get_str ())));	2890	XPUSHs (sv_2mortal (newSVpv_utf8 (self->get_str ())));
2808		2891

Diff Legend

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

Comparing deliantra/server/server/cfperl.xs (file contents): Revision 1.257 by root, Sun Sep 30 16:24:31 2007 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.257 by root, Sun Sep 30 16:24:31 2007 UTC vs.
Revision 1.288 by root, Tue May 6 18:47:32 2008 UTC