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

Comparing deliantra/server/server/cfperl.xs (file contents):
Revision 1.262 by root, Tue Oct 16 06:15:10 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
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;	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
…		…
605	/////////////////////////////////////////////////////////////////////////////	594	/////////////////////////////////////////////////////////////////////////////
606		595
607	void	596	void
608	cfperl_init ()	597	cfperl_init ()
609	{	598	{
		599	extern char **environ;
		600
610	PERL_SYS_INIT3 (&settings.argc, &settings.argv, 0);	601	PERL_SYS_INIT3 (&settings.argc, &settings.argv, &environ);
611	perl = perl_alloc ();	602	perl = perl_alloc ();
612	perl_construct (perl);	603	perl_construct (perl);
613		604
614	PL_exit_flags \|= PERL_EXIT_DESTRUCT_END;	605	PL_exit_flags \|= PERL_EXIT_DESTRUCT_END;
615		606
616	const char *argv[] = {	607	const char *argv[] = {
617	settings.argv [0],	608	settings.argv [0],
618	"-e"	609	"-e"
619	"use Event; use Coro;" // required for bootstrap	610	"use EV; use Coro;" // required for bootstrap
620	"cf->bootstrap;" // required for datadir :*>	611	"cf->bootstrap;" // required for datadir :*>
621	"unshift @INC, cf::datadir ();"	612	"unshift @INC, cf::datadir ();"
622	"require cf;"	613	"require cf;"
623	};	614	};
624		615
625	if (perl_parse (perl, xs_init, 2, (char )argv, (char )NULL)	616	if (perl_parse (perl, xs_init, 2, (char **)argv, environ)
626	\|\| perl_run (perl))	617	\|\| perl_run (perl))
627	{	618	{
628	printf ("unable to initialize perl-interpreter, aborting.\n");	619	printf ("unable to initialize perl-interpreter, aborting.\n");
629	exit (EXIT_FAILURE);	620	exit (EXIT_FAILURE);
630	}	621	}
…		…
907	}	898	}
908		899
909	/////////////////////////////////////////////////////////////////////////////	900	/////////////////////////////////////////////////////////////////////////////
910	// various c++ => perl glue functions	901	// various c++ => perl glue functions
911		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
912	void	921	void
913	cfperl_emergency_save ()	922	cfperl_emergency_save ()
914	{	923	{
915	CALL_BEGIN (0);	924	CALL_BEGIN (0);
916	CALL_CALL ("cf::emergency_save", G_VOID);	925	CALL_CALL ("cf::emergency_save", G_VOID);
…		…
968	{	977	{
969	CALL_BEGIN (1);	978	CALL_BEGIN (1);
970	CALL_ARG (name);	979	CALL_ARG (name);
971	CALL_CALL ("cf::player::find", G_SCALAR);	980	CALL_CALL ("cf::player::find", G_SCALAR);
972		981
973	player *retval;	982	player *retval = 0;
974
975	if (count)
976	sv_to (POPs, retval);	983	if (count) sv_to (POPs, retval);
977	else	984
978	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);
979		1001
980	CALL_END;	1002	CALL_END;
981		1003
982	return retval;	1004	return retval;
983	}	1005	}
…		…
988	CALL_BEGIN (2);	1010	CALL_BEGIN (2);
989	CALL_ARG (path);	1011	CALL_ARG (path);
990	CALL_ARG (origin);	1012	CALL_ARG (origin);
991	CALL_CALL ("cf::map::find_sync", G_SCALAR);	1013	CALL_CALL ("cf::map::find_sync", G_SCALAR);
992		1014
993	maptile *retval;	1015	maptile *retval = 0;
994
995	if (count)
996	sv_to (POPs, retval);	1016	if (count) sv_to (POPs, retval);
997	else
998	retval = 0;
999		1017
1000	CALL_END;	1018	CALL_END;
1001		1019
1002	return retval;	1020	return retval;
1003	}	1021	}
…		…
1009	CALL_ARG (path);	1027	CALL_ARG (path);
1010	CALL_ARG (origin);	1028	CALL_ARG (origin);
1011	CALL_ARG (load);	1029	CALL_ARG (load);
1012	CALL_CALL ("cf::map::find_async", G_SCALAR);	1030	CALL_CALL ("cf::map::find_async", G_SCALAR);
1013		1031
1014	maptile *retval;	1032	maptile *retval = 0;
1015
1016	if (count)
1017	sv_to (POPs, retval);	1033	if (count) sv_to (POPs, retval);
1018	else
1019	retval = 0;
1020		1034
1021	CALL_END;	1035	CALL_END;
1022		1036
1023	return retval;	1037	return retval;
1024	}	1038	}
…		…
1049		1063
1050	CALL_BEGIN (2);	1064	CALL_BEGIN (2);
1051	CALL_ARG (this);	1065	CALL_ARG (this);
1052	CALL_ARG (exit);	1066	CALL_ARG (exit);
1053	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);
1054	CALL_END;	1083	CALL_END;
1055	}	1084	}
1056		1085
1057	const char *	1086	const char *
1058	object::ref () const	1087	object::ref () const
…		…
1099	#endif	1128	#endif
1100	}	1129	}
1101		1130
1102	/////////////////////////////////////////////////////////////////////////////	1131	/////////////////////////////////////////////////////////////////////////////
1103		1132
1104	struct EventAPI *watcher_base::GEventAPI;	1133	struct EVAPI *evapi::GEVAPI;
1105	struct CoroAPI *coroapi::GCoroAPI;	1134	struct CoroAPI *coroapi::GCoroAPI;
1106
1107	int coroapi::cede_counter;
1108	tstamp coroapi::next_cede;
1109		1135
1110	void coroapi::do_cede_to_tick ()	1136	void coroapi::do_cede_to_tick ()
1111	{	1137	{
1112	cede_counter = 0;	1138	cede_pending = 0;
1113
1114	cede ();	1139	cede ();
1115
1116	next_cede += (TICK / CEDES_PER_TICK) * 0.99;
1117	if (next_cede > SvNV (sv_next_tick) - 0.02)
1118	next_cede = SvNV (sv_next_tick);
1119	}
1120
1121	void coroapi::do_cede_every ()
1122	{
1123	cede_counter = 0;
1124
1125	if (coroapi::nready ())
1126	coroapi::cede ();
1127	}
1128
1129	void coroapi::do_cede_to_tick_every ()
1130	{
1131	cede_counter = 0;
1132
1133	cede_to_tick ();
1134	}	1140	}
1135		1141
1136	void	1142	void
1137	coroapi::wait_for_tick ()	1143	coroapi::wait_for_tick ()
1138	{	1144	{
…		…
1147	CALL_BEGIN (0);	1153	CALL_BEGIN (0);
1148	CALL_CALL ("cf::wait_for_tick_begin", G_DISCARD);	1154	CALL_CALL ("cf::wait_for_tick_begin", G_DISCARD);
1149	CALL_END;	1155	CALL_END;
1150	}	1156	}
1151		1157
1152	static void
1153	iw_dispatch (pe_event *ev)
1154	{
1155	iw w = (iw )ev->ext_data;
1156	w->call (*w);
1157	}
1158
1159	void
1160	iw::alloc ()
1161	{
1162	pe = GEventAPI->new_idle (0, 0);
1163
1164	WaREENTRANT_off (pe);
1165	pe->base.callback = (void *)iw_dispatch;
1166	pe->base.ext_data = (void *)this;
1167	}
1168
1169	static void iow_dispatch (pe_event *ev)
1170	{
1171	iow w = (iow )ev->ext_data;
1172	w->call (w, ((pe_ioevent )ev)->got);
1173	}
1174
1175	void
1176	iow::alloc ()
1177	{
1178	pe = GEventAPI->new_io (0, 0);
1179
1180	WaREENTRANT_off (pe);
1181	pe->base.callback = (void *)iow_dispatch;
1182	pe->base.ext_data = (void *)this;
1183
1184	pe->fd = -1;
1185	pe->poll = 0;
1186	}
1187
1188	void
1189	iow::fd (int fd)
1190	{
1191	pe->fd = fd;
1192	}
1193
1194	int
1195	iow::poll ()
1196	{
1197	return pe->poll;
1198	}
1199
1200	void	1158	void
1201	iow::poll (int events)	1159	iow::poll (int events)
1202	{	1160	{
1203	if (pe->poll != events)	1161	if (events != this->events)
1204	{	1162	{
		1163	int active = ev_is_active ((ev_io *)this);
1205	if (pe->poll) stop ();	1164	if (active) stop ();
1206	pe->poll = events;	1165	ev_io_set ((ev_io *)this, fd, events);
1207	if (pe->poll) start ();	1166	if (active) start ();
1208	}	1167	}
1209	}	1168	}
1210		1169
1211	void	1170	void
1212	_connect_to_perl ()	1171	_connect_to_perl ()
1213	{	1172	{
1214	stash_cf = gv_stashpv ("cf" , 1);	1173	stash_cf = gv_stashpv ("cf", 1);
1215		1174
1216	stash_cf_object_wrap = gv_stashpv ("cf::object::wrap", 1);	1175	stash_cf_object_wrap = gv_stashpv ("cf::object::wrap", 1);
1217	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);
1218	stash_cf_player_wrap = gv_stashpv ("cf::player::wrap", 1);	1177	stash_cf_player_wrap = gv_stashpv ("cf::player::wrap", 1);
1219	stash_cf_map_wrap = gv_stashpv ("cf::map::wrap" , 1);	1178	stash_cf_map_wrap = gv_stashpv ("cf::map::wrap" , 1);
…		…
1221	stash_cf_arch_wrap = gv_stashpv ("cf::arch::wrap" , 1);	1180	stash_cf_arch_wrap = gv_stashpv ("cf::arch::wrap" , 1);
1222	stash_cf_party_wrap = gv_stashpv ("cf::party::wrap" , 1);	1181	stash_cf_party_wrap = gv_stashpv ("cf::party::wrap" , 1);
1223	stash_cf_region_wrap = gv_stashpv ("cf::region::wrap", 1);	1182	stash_cf_region_wrap = gv_stashpv ("cf::region::wrap", 1);
1224	stash_cf_living_wrap = gv_stashpv ("cf::living::wrap", 1);	1183	stash_cf_living_wrap = gv_stashpv ("cf::living::wrap", 1);
1225		1184
		1185	sv_now = get_sv ("cf::NOW" , 1); SvUPGRADE (sv_now , SVt_NV);
1226	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);
1227	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);
1228		1189
1229	cb_global = get_av ("cf::CB_GLOBAL", 1);	1190	cb_global = get_av ("cf::CB_GLOBAL", 1);
1230	cb_attachable = get_av ("cf::CB_ATTACHABLE", 1);	1191	cb_attachable = get_av ("cf::CB_ATTACHABLE", 1);
1231	cb_object = get_av ("cf::CB_OBJECT", 1);	1192	cb_object = get_av ("cf::CB_OBJECT", 1);
1232	cb_player = get_av ("cf::CB_PLAYER", 1);	1193	cb_player = get_av ("cf::CB_PLAYER", 1);
…		…
1237		1198
1238	MODULE = cf PACKAGE = cf PREFIX = cf_	1199	MODULE = cf PACKAGE = cf PREFIX = cf_
1239		1200
1240	BOOT:	1201	BOOT:
1241	{	1202	{
1242	I_EVENT_API (PACKAGE); watcher_base::GEventAPI = GEventAPI;	1203	I_EV_API (PACKAGE); evapi::GEVAPI = GEVAPI;
1243	I_CORO_API (PACKAGE); coroapi::GCoroAPI = GCoroAPI;	1204	I_CORO_API (PACKAGE); coroapi::GCoroAPI = GCoroAPI;
1244		1205
1245	_connect_to_perl ();	1206	_connect_to_perl ();
1246		1207
1247	newCONSTSUB (stash_cf, "VERSION", newSVpv (VERSION, sizeof (VERSION) - 1));	1208	newCONSTSUB (stash_cf, "VERSION", newSVpv (VERSION, sizeof (VERSION) - 1));
1248		1209
…		…
1465	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)
1466	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)
1467	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)
1468	const_iv (ATNR_LIFE_STEALING) const_iv (ATNR_DISEASE)	1429	const_iv (ATNR_LIFE_STEALING) const_iv (ATNR_DISEASE)
1469		1430
1470	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)
1471		1433
1472	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)
1473	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)
1474		1436
1475	const_iv (VERSION_CS) const_iv (VERSION_SC)	1437	const_iv (VERSION_CS) const_iv (VERSION_SC)
…		…
1490		1452
1491	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)
1492	const_iv (SYMMETRY_Y) const_iv (SYMMETRY_XY)	1454	const_iv (SYMMETRY_Y) const_iv (SYMMETRY_XY)
1493		1455
1494	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)
1495	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)
1496	const_iv (GT_MINIMAL)
1497		1458
1498	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)
1499	const_iv (FT_RSRC) const_iv (FT_NUM)	1460	const_iv (FT_RSRC) const_iv (FT_NUM)
1500	};	1461	};
1501		1462
…		…
1580	}	1541	}
1581		1542
1582	SvCUR_set (data_sv, dst - SvPVX (data_sv));	1543	SvCUR_set (data_sv, dst - SvPVX (data_sv));
1583	}	1544	}
1584		1545
		1546	void evthread_start (int aiofd)
		1547
1585	void _post_tick ()	1548	void cede_to_tick ()
1586	CODE:	1549	CODE:
1587	coroapi::next_cede = SvNV (sv_next_tick) - TICK * (1. - 1. / CEDES_PER_TICK);	1550	coroapi::cede_to_tick ();
1588		1551
1589	NV till_cede ()	1552	NV till_tick ()
1590	CODE:	1553	CODE:
1591	RETVAL = coroapi::next_cede - now ();	1554	RETVAL = SvNVX (sv_next_tick) - now ();
1592	OUTPUT:	1555	OUTPUT:
1593	RETVAL	1556	RETVAL
1594		1557
1595	NV till_tick ()	1558	int tick_inhibit ()
1596	CODE:	1559	CODE:
1597	RETVAL = SvNV (sv_next_tick) - now ();	1560	RETVAL = tick_inhibit;
1598	OUTPUT:	1561	OUTPUT:
1599	RETVAL	1562	RETVAL
1600		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
1601	NV floor (NV x)	1593	NV floor (NV x)
1602		1594
1603	NV ceil (NV x)	1595	NV ceil (NV x)
1604		1596
1605	NV rndm (...)	1597	NV rndm (...)
		1598	ALIAS:
		1599	rmg_rndm = 1
1606	CODE:	1600	CODE:
		1601	{
		1602	rand_gen &gen = ix ? rmg_rndm : rndm;
1607	switch (items)	1603	switch (items)
1608	{	1604	{
1609	case 0: RETVAL = rndm (); break;	1605	case 0: RETVAL = gen (); break;
1610	case 1: RETVAL = rndm (SvUV (ST (0))); break;	1606	case 1: RETVAL = gen (SvUV (ST (0))); break;
1611	case 2: RETVAL = rndm (SvIV (ST (0)), SvIV (ST (1))); break;	1607	case 2: RETVAL = gen (SvIV (ST (0)), SvIV (ST (1))); break;
1612	default: croak ("cf::rndm requires none, one or two parameters."); break;	1608	default: croak ("cf::rndm requires none, one or two parameters."); break;
1613	}	1609	}
		1610	}
1614	OUTPUT:	1611	OUTPUT:
1615	RETVAL	1612	RETVAL
1616		1613
1617	NV clamp (NV value, NV min_value, NV max_value)	1614	NV clamp (NV value, NV min_value, NV max_value)
1618	CODE:	1615	CODE:
…		…
1624	CODE:	1621	CODE:
1625	RETVAL = lerp (value, min_in, max_in, min_out, max_out);	1622	RETVAL = lerp (value, min_in, max_in, min_out, max_out);
1626	OUTPUT:	1623	OUTPUT:
1627	RETVAL	1624	RETVAL
1628		1625
1629	void cede_to_tick ()	1626	void weaken (...)
1630	CODE:	1627	PROTOTYPE: @
1631	coroapi::cede_to_tick ();	1628	CODE:
1632		1629	while (items > 0)
1633	void server_tick ()	1630	sv_rvweaken (ST (--items));
1634	CODE:
1635	NOW = now ();
1636	runtime = SvNVx (sv_runtime);
1637	server_tick ();
1638		1631
1639	void	1632	void
1640	log_backtrace (utf8_string msg)	1633	log_backtrace (utf8_string msg)
1641		1634
1642	void	1635	void
…		…
1647	octet_string path_combine (octet_string base, octet_string path)	1640	octet_string path_combine (octet_string base, octet_string path)
1648	PROTOTYPE: $$	1641	PROTOTYPE: $$
1649		1642
1650	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)
1651	PROTOTYPE: $$	1644	PROTOTYPE: $$
1652
1653	int
1654	malloc_trim (U32 pad = 0)
1655	CODE:
1656	#if __GLIBC__
1657	RETVAL = malloc_trim (pad);
1658	#else
1659	RETVAL = 0;
1660	#endif
1661	OUTPUT:
1662	RETVAL
1663
1664	void
1665	mallinfo ()
1666	PPCODE:
1667	{
1668	#if __GLIBC__
1669	struct mallinfo mai = mallinfo ();
1670	EXTEND (SP, 10*2);
1671	PUSHs (sv_2mortal (newSVpv ("arena" , 0))); PUSHs (sv_2mortal (newSViv (mai.arena)));
1672	PUSHs (sv_2mortal (newSVpv ("ordblks" , 0))); PUSHs (sv_2mortal (newSViv (mai.ordblks)));
1673	PUSHs (sv_2mortal (newSVpv ("smblks" , 0))); PUSHs (sv_2mortal (newSViv (mai.smblks)));
1674	PUSHs (sv_2mortal (newSVpv ("hblks" , 0))); PUSHs (sv_2mortal (newSViv (mai.hblks)));
1675	PUSHs (sv_2mortal (newSVpv ("hblkhd" , 0))); PUSHs (sv_2mortal (newSViv (mai.hblkhd)));
1676	PUSHs (sv_2mortal (newSVpv ("usmblks" , 0))); PUSHs (sv_2mortal (newSViv (mai.usmblks)));
1677	PUSHs (sv_2mortal (newSVpv ("fsmblks" , 0))); PUSHs (sv_2mortal (newSViv (mai.fsmblks)));
1678	PUSHs (sv_2mortal (newSVpv ("uordblks", 0))); PUSHs (sv_2mortal (newSViv (mai.uordblks)));
1679	PUSHs (sv_2mortal (newSVpv ("fordblks", 0))); PUSHs (sv_2mortal (newSViv (mai.fordblks)));
1680	PUSHs (sv_2mortal (newSVpv ("keepcost", 0))); PUSHs (sv_2mortal (newSViv (mai.keepcost)));
1681	#endif
1682	EXTEND (SP, 2*2);
1683	PUSHs (sv_2mortal (newSVpv ("slice_alloc", 0))); PUSHs (sv_2mortal (newSVuv (slice_alloc)));
1684	PUSHs (sv_2mortal (newSVpv ("shstr_alloc", 0))); PUSHs (sv_2mortal (newSVuv (shstr_alloc)));
1685	}
1686		1645
1687	void	1646	void
1688	sub_generation_inc ()	1647	sub_generation_inc ()
1689	CODE:	1648	CODE:
1690	PL_sub_generation++;	1649	PL_sub_generation++;
…		…
1715		1674
1716	void abort ()	1675	void abort ()
1717		1676
1718	void reset_signals ()	1677	void reset_signals ()
1719		1678
1720	void fork_abort (octet_string cause = "cf::fork_abort")	1679	void fork_abort (const_octet_string cause = "cf::fork_abort")
1721		1680
1722	void cleanup (octet_string cause, bool make_core = false)	1681	void cleanup (const_octet_string cause, bool make_core = false)
1723		1682
1724	void emergency_save ()	1683	void emergency_save ()
1725		1684
1726	void _exit (int status = EXIT_SUCCESS)	1685	void _exit (int status = EXIT_SUCCESS)
1727		1686
1728	UV sv_2watcher (SV *w)
1729	CODE:
1730	RETVAL = (UV)GEventAPI->sv_2watcher (w);
1731	OUTPUT:
1732	RETVAL
1733
1734	#if _POSIX_MEMLOCK	1687	#if _POSIX_MEMLOCK
1735		1688
1736	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
1737		1694
1738	int munlockall ()	1695	int munlockall ()
1739		1696
1740	#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	}
1741		1725
1742	int find_animation (utf8_string text)	1726	int find_animation (utf8_string text)
1743	PROTOTYPE: $	1727	PROTOTYPE: $
1744		1728
1745	int random_roll (int min, int max, object *op, int goodbad);	1729	int random_roll (int min, int max, object *op, int goodbad);
…		…
1783	RETVAL = newSVpv (resist_plus[atnr], 0);	1767	RETVAL = newSVpv (resist_plus[atnr], 0);
1784	else	1768	else
1785	XSRETURN_UNDEF;	1769	XSRETURN_UNDEF;
1786	OUTPUT: RETVAL	1770	OUTPUT: RETVAL
1787		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
1788	bool	1814	bool
1789	load_resource_file (octet_string filename)	1815	load_resource_file_ (octet_string filename)
		1816
		1817	void
		1818	fix_weight ()
1790		1819
1791	MODULE = cf PACKAGE = cf::attachable	1820	MODULE = cf PACKAGE = cf::attachable
1792		1821
1793	int	1822	int
1794	valid (SV *obj)	1823	valid (SV *obj)
…		…
1858	object *actives (U32 index)	1887	object *actives (U32 index)
1859	CODE:	1888	CODE:
1860	RETVAL = index < actives.size () ? actives [index] : 0;	1889	RETVAL = index < actives.size () ? actives [index] : 0;
1861	OUTPUT: RETVAL	1890	OUTPUT: RETVAL
1862		1891
		1892	int mortals_size ()
		1893	CODE:
		1894	RETVAL = attachable::mortals.size ();
		1895	OUTPUT: RETVAL
		1896
1863	const char *slot_use_name (U32 slot)	1897	const char *slot_use_name (U32 slot)
1864	ALIAS:	1898	ALIAS:
1865	slot_nonuse_name = 1	1899	slot_nonuse_name = 1
1866	CODE:	1900	CODE:
1867	{	1901	{
…		…
1945	void apply_below (object *op)	1979	void apply_below (object *op)
1946	CODE:	1980	CODE:
1947	player_apply_below (op);	1981	player_apply_below (op);
1948		1982
1949	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)
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		1984
1963	int pay_item (object op, object buyer)	1985	int pay_item (object op, object buyer)
1964	CODE:	1986	CODE:
1965	RETVAL = pay_for_item (op, buyer);	1987	RETVAL = pay_for_item (op, buyer);
1966	OUTPUT: RETVAL	1988	OUTPUT: RETVAL
…		…
2044	CODE:	2066	CODE:
2045	{	2067	{
2046	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);
2047	}	2069	}
2048		2070
2049	const_utf8_string get_ob_key_value (object *op, utf8_string key)	2071	shstr
		2072	object::kv_get (shstr key)
2050		2073
2051	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)
2052		2079
2053	object get_nearest_player (object ob)	2080	object get_nearest_player (object ob)
2054	ALIAS: nearest_player = 0	2081	ALIAS: nearest_player = 0
2055	PREINIT:	2082	PREINIT:
2056	extern object get_nearest_player (object );	2083	extern object get_nearest_player (object );
…		…
2077	const_utf8_string	2104	const_utf8_string
2078	base_name (object *op, int plural = op->nrof > 1)	2105	base_name (object *op, int plural = op->nrof > 1)
2079	CODE:	2106	CODE:
2080	RETVAL = query_base_name (op, plural);	2107	RETVAL = query_base_name (op, plural);
2081	OUTPUT: RETVAL	2108	OUTPUT: RETVAL
2082
2083	object decrease_ob_nr (object op, unsigned long i)
2084		2109
2085	# return the tail of an object, excluding itself	2110	# return the tail of an object, excluding itself
2086	void	2111	void
2087	tail (object *op)	2112	tail (object *op)
2088	PPCODE:	2113	PPCODE:
…		…
2736	}	2761	}
2737	}	2762	}
2738		2763
2739	int get_data_size (faceidx idx, int faceset = 0)	2764	int get_data_size (faceidx idx, int faceset = 0)
2740	CODE:	2765	CODE:
2741	facedata *d = face_data (idx, faceset); assert (d);	2766	facedata *d = face_data (idx, faceset);
		2767	if (!d) XSRETURN_UNDEF;
2742	RETVAL = d->data.size ();	2768	RETVAL = d->data.size ();
2743	OUTPUT:	2769	OUTPUT:
2744	RETVAL	2770	RETVAL
2745		2771
2746	SV *get_chksum (faceidx idx, int faceset = 0)	2772	SV *get_chksum (faceidx idx, int faceset = 0)
2747	CODE:	2773	CODE:
2748	facedata *d = face_data (idx, faceset); assert (d);	2774	facedata *d = face_data (idx, faceset);
		2775	if (!d) XSRETURN_UNDEF;
2749	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 ());
2750	OUTPUT:	2785	OUTPUT:
2751	RETVAL	2786	RETVAL
2752		2787
2753	void invalidate (faceidx idx)	2788	void invalidate (faceidx idx)
2754	CODE:	2789	CODE:
…		…
2846	extract_tags (object_thawer *self)	2881	extract_tags (object_thawer *self)
2847	PPCODE:	2882	PPCODE:
2848	while (self->kw != KW_EOF)	2883	while (self->kw != KW_EOF)
2849	{	2884	{
2850	PUTBACK;	2885	PUTBACK;
2851	coroapi::cede_to_tick_every (5000);	2886	coroapi::cede_to_tick ();
2852	SPAGAIN;	2887	SPAGAIN;
2853		2888
2854	if (self->kw == KW_tag)	2889	if (self->kw == KW_tag)
2855	XPUSHs (sv_2mortal (newSVpv_utf8 (self->get_str ())));	2890	XPUSHs (sv_2mortal (newSVpv_utf8 (self->get_str ())));
2856		2891

Diff Legend

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

Comparing deliantra/server/server/cfperl.xs (file contents): Revision 1.262 by root, Tue Oct 16 06:15:10 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.262 by root, Tue Oct 16 06:15:10 2007 UTC vs.
Revision 1.288 by root, Tue May 6 18:47:32 2008 UTC