[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.304 by root, Wed Oct 1 05:50:19 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
26	#define PLUGIN_NAME "perl"
27	#define PLUGIN_VERSION "cfperl 0.5"
28
29	#define CEDES_PER_TICK 5
30		25
31	#if HAVE_EXECINFO_H	26	#if HAVE_EXECINFO_H
32	# include <execinfo.h>	27	# include <execinfo.h>
33	#endif	28	#endif
34		29
35	#include <cstdarg>	30	#include <cstdarg>
		31	#include <typeinfo>
36		32
37	#include "global.h"	33	#include "global.h"
38	#include "loader.h"	34	#include "loader.h"
39	#include "../random_maps/random_map.h"	35	#include "../random_maps/random_map.h"
		36	#include "evthread.h"
40	#include <sproto.h>	37	#include "sproto.h"
41		38
42	#include <unistd.h>	39	#include <unistd.h>
43	#if _POSIX_MEMLOCK	40	#if _POSIX_MEMLOCK
44	# include <sys/mman.h>	41	# include <sys/mman.h>
45	#endif	42	#endif
46		43
		44	#if HAVE_MALLOC_H
		45	# include <malloc.h>
		46	#endif
		47
		48	#if !__GLIBC__
		49	# define malloc_trim(pad) -1
		50	#endif
		51
47	#include <EXTERN.h>	52	#include <EXTERN.h>
48	#include <perl.h>	53	#include <perl.h>
49	#include <XSUB.h>	54	#include <XSUB.h>
50		55
51	#include "CoroAPI.h"	56	#include "CoroAPI.h"
…		…
56	typedef object_thawer &object_thawer_ref;	61	typedef object_thawer &object_thawer_ref;
57	typedef object_freezer &object_freezer_ref;	62	typedef object_freezer &object_freezer_ref;
58		63
59	typedef std::string std__string;	64	typedef std::string std__string;
60		65
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;	66	static PerlInterpreter *perl;
72		67
73	tstamp NOW, runtime;	68	tstamp NOW, runtime;
		69
		70	static int tick_inhibit;
		71	static int tick_pending;
74		72
75	global gbl_ev;	73	global gbl_ev;
76	static AV cb_global, cb_attachable, cb_object, cb_player, cb_client, cb_type, *cb_map;	74	static AV cb_global, cb_attachable, cb_object, cb_player, cb_client, cb_type, *cb_map;
77	static SV sv_runtime, sv_next_tick;	75	static SV sv_runtime, sv_tick_start, sv_next_tick, sv_now;
78		76
79	bitset<NUM_EVENT_TYPES> ev_want_event;	77	bitset<NUM_EVENT_TYPES> ev_want_event;
80	bitset<NUM_TYPES> ev_want_type;	78	bitset<NUM_TYPES> ev_want_type;
81		79
82	static HV	80	static HV
83	*stash_cf,	81	*stash_cf,
84	*stash_cf_object_wrap,	82	*stash_cf_object_wrap,
85	*stash_cf_object_player_wrap,	83	*stash_cf_object_player_wrap,
86	*stash_cf_player_wrap,	84	*stash_cf_player_wrap,
87	*stash_cf_map_wrap,	85	*stash_cf_map_wrap,
		86	*stash_cf_mapspace_wrap,
88	*stash_cf_client_wrap,	87	*stash_cf_client_wrap,
89	*stash_cf_arch_wrap,	88	*stash_cf_arch_wrap,
90	*stash_cf_party_wrap,	89	*stash_cf_party_wrap,
91	*stash_cf_region_wrap,	90	*stash_cf_region_wrap,
92	*stash_cf_living_wrap;	91	*stash_cf_living_wrap;
…		…
431	inline SV to_sv (maptile v) { return newSVattachable (v, stash_cf_map_wrap); }	430	inline SV to_sv (maptile v) { return newSVattachable (v, stash_cf_map_wrap); }
432	inline SV to_sv (archetype v) { return newSVattachable (v, stash_cf_arch_wrap); }	431	inline SV to_sv (archetype v) { return newSVattachable (v, stash_cf_arch_wrap); }
433	inline SV to_sv (region v) { return newSVattachable (v, stash_cf_region_wrap); }	432	inline SV to_sv (region v) { return newSVattachable (v, stash_cf_region_wrap); }
434	inline SV to_sv (partylist v) { return newSVptr (v, stash_cf_party_wrap); }	433	inline SV to_sv (partylist v) { return newSVptr (v, stash_cf_party_wrap); }
435	inline SV to_sv (living v) { return newSVptr (v, stash_cf_living_wrap); }	434	inline SV to_sv (living v) { return newSVptr (v, stash_cf_living_wrap); }
		435	inline SV to_sv (mapspace v) { return newSVptr (v, stash_cf_mapspace_wrap); }
436		436
437	inline SV *to_sv (object & v) { return to_sv (&v); }	437	inline SV *to_sv (object & v) { return to_sv (&v); }
438	inline SV *to_sv (living & v) { return to_sv (&v); }	438	inline SV *to_sv (living & v) { return to_sv (&v); }
439		439
440	inline SV *to_sv (const std::string & v) { return newSVpvn (v.data (), v.size ()); }	440	inline SV *to_sv (const std::string & v) { return newSVpvn (v.data (), v.size ()); }
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) { return newSVpv (v.c_str (), 0); }
		444
443	inline SV *to_sv (UUID v)	445	inline SV to_sv (dynbuf v)
444	{	446	{
445	char buf[128];	447	SV *sv = newSV (0);
446	snprintf (buf, 128, "<1.%" PRIx64 ">", v.seq);	448
447	return newSVpv (buf, 0);	449	sv_upgrade (sv, SVt_PV);
		450	SvGROW (sv, v->size () + 1);
		451	SvPOK_only (sv);
		452	v->linearise (SvPVX (sv));
		453	SvCUR_set (sv, v->size ());
		454	*SvEND (sv) = 0;
		455
		456	return sv;
		457	}
		458
		459	inline SV to_sv (dynbuf_text v)
		460	{
		461	SV sv = to_sv (static_cast<dynbuf > (v));
		462	SvUTF8_on (sv);
		463	return sv;
448	}	464	}
449		465
450	inline void sv_to (SV *sv, shstr &v) { v = SvOK (sv) ? SvPVutf8_nolen (sv) : 0; }	466	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; }	467	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); }	468	inline void sv_to (SV *sv, bool &v) { v = SvIV (sv); }
…		…
469	inline void sv_to (SV sv, maptile &v) { v = (maptile )(attachable )SvPTR_ornull (sv, "cf::map"); }	485	inline void sv_to (SV sv, maptile &v) { v = (maptile )(attachable )SvPTR_ornull (sv, "cf::map"); }
470	inline void sv_to (SV sv, region &v) { v = (region )(attachable )SvPTR_ornull (sv, "cf::region"); }	486	inline void sv_to (SV sv, region &v) { v = (region )(attachable )SvPTR_ornull (sv, "cf::region"); }
471	inline void sv_to (SV sv, attachable &v) { v = (attachable *)SvPTR_ornull (sv, "cf::attachable"); }	487	inline void sv_to (SV sv, attachable &v) { v = (attachable *)SvPTR_ornull (sv, "cf::attachable"); }
472	inline void sv_to (SV sv, partylist &v) { v = (partylist *)SvPTR_ornull (sv, "cf::party"); }	488	inline void sv_to (SV sv, partylist &v) { v = (partylist *)SvPTR_ornull (sv, "cf::party"); }
473	inline void sv_to (SV sv, living &v) { v = (living *)SvPTR_ornull (sv, "cf::living"); }	489	inline void sv_to (SV sv, living &v) { v = (living *)SvPTR_ornull (sv, "cf::living"); }
		490	inline void sv_to (SV sv, mapspace &v) { v = (mapspace *)SvPTR_ornull (sv, "cf::mapspace"); }
474	inline void sv_to (SV sv, object_freezer &v) { v = (object_freezer *)SvPTR_ornull (sv, "cf::object::freezer"); }	491	inline void sv_to (SV sv, object_freezer &v) { v = (object_freezer *)SvPTR_ornull (sv, "cf::object::freezer"); }
475	inline void sv_to (SV sv, object_thawer &v) { v = (object_thawer *)SvPTR_ornull (sv, "cf::object::thawer" ); }	492	inline void sv_to (SV sv, object_thawer &v) { v = (object_thawer *)SvPTR_ornull (sv, "cf::object::thawer" ); }
476		493
477	//inline void sv_to (SV sv, faceinfo &v) { v = &faces [face_find (SvPV_nolen (sv), 0)]; }	494	//inline void sv_to (SV sv, faceinfo &v) { v = &faces [face_find (SvPV_nolen (sv), 0)]; }
478	inline void sv_to (SV sv, treasurelist &v) { v = treasurelist::find (SvPV_nolen (sv)); }	495	inline void sv_to (SV sv, treasurelist &v) { v = treasurelist::find (SvPV_nolen (sv)); }
…		…
495	v.assign (data, len);	512	v.assign (data, len);
496	}	513	}
497		514
498	inline void sv_to (SV *sv, UUID &v)	515	inline void sv_to (SV *sv, UUID &v)
499	{	516	{
500	unsigned int version;	517	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));	518	croak ("unparsable uuid: %s", SvPV_nolen (sv));
504	}	519	}
505		520
506	inline void sv_to (SV *sv, object::flags_t::reference v) { v = SvTRUE (sv); }	521	inline void sv_to (SV *sv, object::flags_t::reference v) { v = SvTRUE (sv); }
507		522
…		…
601	/////////////////////////////////////////////////////////////////////////////	616	/////////////////////////////////////////////////////////////////////////////
602		617
603	void	618	void
604	cfperl_init ()	619	cfperl_init ()
605	{	620	{
		621	extern char **environ;
		622
606	PERL_SYS_INIT3 (&settings.argc, &settings.argv, 0);	623	PERL_SYS_INIT3 (&settings.argc, &settings.argv, &environ);
607	perl = perl_alloc ();	624	perl = perl_alloc ();
608	perl_construct (perl);	625	perl_construct (perl);
609		626
610	PL_exit_flags \|= PERL_EXIT_DESTRUCT_END;	627	PL_exit_flags \|= PERL_EXIT_DESTRUCT_END;
611		628
612	const char *argv[] = {	629	const char *argv[] = {
613	settings.argv [0],	630	settings.argv [0],
614	"-e"	631	"-e0"
615	"use Event; use Coro;" // required for bootstrap
616	"cf->bootstrap;" // required for datadir :*>
617	"unshift @INC, cf::datadir ();"
618	"require cf;"
619	};	632	};
620		633
621	if (perl_parse (perl, xs_init, 2, (char )argv, (char )NULL)	634	if (perl_parse (perl, xs_init, 2, (char **)argv, environ)
622	\|\| perl_run (perl))	635	\|\| perl_run (perl))
623	{	636	{
624	printf ("unable to initialize perl-interpreter, aborting.\n");	637	printf ("unable to initialize perl-interpreter, aborting.\n");
625	exit (EXIT_FAILURE);	638	exit (EXIT_FAILURE);
626	}	639	}
627		640
		641	eval_pv (
		642	"#line 1 'cfperl init'\n"
		643	"use EV ();\n"
		644	"use Coro ();\n"
		645	"cf->bootstrap;\n"
		646	"unshift @INC, cf::datadir ();\n"
		647	"require cf;\n",
		648	0
		649	);
		650
		651	if (SvTRUE (ERRSV))
628	{	652	{
629	dSP;	653	printf ("unable to bootstrap perl, aborting:\n%s", SvPV_nolen (ERRSV));
630		654	exit (EXIT_FAILURE);
631	PUSHMARK (SP);
632	PUTBACK;
633	call_pv ("cf::init", G_DISCARD \| G_VOID);
634	}	655	}
635	}	656	}
636		657
637	void cfperl_main ()	658	void cfperl_main ()
638	{	659	{
639	dSP;	660	dSP;
…		…
903	}	924	}
904		925
905	/////////////////////////////////////////////////////////////////////////////	926	/////////////////////////////////////////////////////////////////////////////
906	// various c++ => perl glue functions	927	// various c++ => perl glue functions
907		928
		929	void cfperl_tick ()
		930	{
		931	tick_pending = 1;
		932
		933	if (tick_inhibit)
		934	return;
		935
		936	tick_pending = 0;
		937
		938	dSP;
		939
		940	PUSHMARK (SP);
		941	PUTBACK;
		942	call_pv ("cf::tick", G_DISCARD \| G_VOID);
		943
		944	SvNV_set (sv_next_tick, get_next_tick ()); SvNOK_only (sv_next_tick);
		945	}
		946
908	void	947	void
909	cfperl_emergency_save ()	948	cfperl_emergency_save ()
910	{	949	{
911	CALL_BEGIN (0);	950	CALL_BEGIN (0);
912	CALL_CALL ("cf::emergency_save", G_VOID);	951	CALL_CALL ("cf::emergency_save", G_VOID);
…		…
964	{	1003	{
965	CALL_BEGIN (1);	1004	CALL_BEGIN (1);
966	CALL_ARG (name);	1005	CALL_ARG (name);
967	CALL_CALL ("cf::player::find", G_SCALAR);	1006	CALL_CALL ("cf::player::find", G_SCALAR);
968		1007
969	player *retval;	1008	player *retval = 0;
970
971	if (count)
972	sv_to (POPs, retval);	1009	if (count) sv_to (POPs, retval);
973	else	1010
974	retval = 0;	1011	CALL_END;
		1012
		1013	return retval;
		1014	}
		1015
		1016	maptile *
		1017	find_style (const char dirname, const char stylename, int difficulty)
		1018	{
		1019	CALL_BEGIN (3);
		1020	CALL_ARG (dirname);
		1021	CALL_ARG (stylename);
		1022	CALL_ARG (difficulty);
		1023	CALL_CALL ("ext::map_random::find_style", G_SCALAR);
		1024
		1025	maptile *retval = 0;
		1026	if (count) sv_to (POPs, retval);
975		1027
976	CALL_END;	1028	CALL_END;
977		1029
978	return retval;	1030	return retval;
979	}	1031	}
…		…
984	CALL_BEGIN (2);	1036	CALL_BEGIN (2);
985	CALL_ARG (path);	1037	CALL_ARG (path);
986	CALL_ARG (origin);	1038	CALL_ARG (origin);
987	CALL_CALL ("cf::map::find_sync", G_SCALAR);	1039	CALL_CALL ("cf::map::find_sync", G_SCALAR);
988		1040
989	maptile *retval;	1041	maptile *retval = 0;
990
991	if (count)
992	sv_to (POPs, retval);	1042	if (count) sv_to (POPs, retval);
993	else
994	retval = 0;
995		1043
996	CALL_END;	1044	CALL_END;
997		1045
998	return retval;	1046	return retval;
999	}	1047	}
…		…
1005	CALL_ARG (path);	1053	CALL_ARG (path);
1006	CALL_ARG (origin);	1054	CALL_ARG (origin);
1007	CALL_ARG (load);	1055	CALL_ARG (load);
1008	CALL_CALL ("cf::map::find_async", G_SCALAR);	1056	CALL_CALL ("cf::map::find_async", G_SCALAR);
1009		1057
1010	maptile *retval;	1058	maptile *retval = 0;
1011
1012	if (count)
1013	sv_to (POPs, retval);	1059	if (count) sv_to (POPs, retval);
1014	else
1015	retval = 0;
1016		1060
1017	CALL_END;	1061	CALL_END;
1018		1062
1019	return retval;	1063	return retval;
1020	}	1064	}
…		…
1045		1089
1046	CALL_BEGIN (2);	1090	CALL_BEGIN (2);
1047	CALL_ARG (this);	1091	CALL_ARG (this);
1048	CALL_ARG (exit);	1092	CALL_ARG (exit);
1049	CALL_CALL ("cf::object::player::enter_exit", G_VOID);	1093	CALL_CALL ("cf::object::player::enter_exit", G_VOID);
		1094	CALL_END;
		1095	}
		1096
		1097	void
		1098	object::player_goto (const char *path, int x, int y)
		1099	{
		1100	if (type != PLAYER)
		1101	return;
		1102
		1103	CALL_BEGIN (4);
		1104	CALL_ARG (this);
		1105	CALL_ARG (path);
		1106	CALL_ARG (x);
		1107	CALL_ARG (y);
		1108	CALL_CALL ("cf::object::player::goto", G_VOID);
1050	CALL_END;	1109	CALL_END;
1051	}	1110	}
1052		1111
1053	const char *	1112	const char *
1054	object::ref () const	1113	object::ref () const
…		…
1095	#endif	1154	#endif
1096	}	1155	}
1097		1156
1098	/////////////////////////////////////////////////////////////////////////////	1157	/////////////////////////////////////////////////////////////////////////////
1099		1158
1100	struct EventAPI *watcher_base::GEventAPI;	1159	struct EVAPI *evapi::GEVAPI;
1101	struct CoroAPI *coroapi::GCoroAPI;	1160	struct CoroAPI *coroapi::GCoroAPI;
1102
1103	int coroapi::cede_counter;
1104	tstamp coroapi::next_cede;
1105		1161
1106	void coroapi::do_cede_to_tick ()	1162	void coroapi::do_cede_to_tick ()
1107	{	1163	{
1108	cede_counter = 0;	1164	cede_pending = 0;
1109
1110	cede ();	1165	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	}	1166	}
1131		1167
1132	void	1168	void
1133	coroapi::wait_for_tick ()	1169	coroapi::wait_for_tick ()
1134	{	1170	{
…		…
1143	CALL_BEGIN (0);	1179	CALL_BEGIN (0);
1144	CALL_CALL ("cf::wait_for_tick_begin", G_DISCARD);	1180	CALL_CALL ("cf::wait_for_tick_begin", G_DISCARD);
1145	CALL_END;	1181	CALL_END;
1146	}	1182	}
1147		1183
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	1184	void
1197	iow::poll (int events)	1185	iow::poll (int events)
1198	{	1186	{
1199	if (pe->poll != events)	1187	if (events != this->events)
1200	{	1188	{
		1189	int active = ev_is_active ((ev_io *)this);
1201	if (pe->poll) stop ();	1190	if (active) stop ();
1202	pe->poll = events;	1191	ev_io_set ((ev_io *)this, fd, events);
1203	if (pe->poll) start ();	1192	if (active) start ();
1204	}	1193	}
1205	}	1194	}
1206		1195
1207	void	1196	void
1208	_connect_to_perl ()	1197	_connect_to_perl ()
1209	{	1198	{
1210	stash_cf = gv_stashpv ("cf" , 1);	1199	stash_cf = gv_stashpv ("cf", 1);
1211		1200
1212	stash_cf_object_wrap = gv_stashpv ("cf::object::wrap", 1);	1201	stash_cf_object_wrap = gv_stashpv ("cf::object::wrap", 1);
1213	stash_cf_object_player_wrap = gv_stashpv ("cf::object::player::wrap", 1);	1202	stash_cf_object_player_wrap = gv_stashpv ("cf::object::player::wrap", 1);
1214	stash_cf_player_wrap = gv_stashpv ("cf::player::wrap", 1);	1203	stash_cf_player_wrap = gv_stashpv ("cf::player::wrap", 1);
1215	stash_cf_map_wrap = gv_stashpv ("cf::map::wrap" , 1);	1204	stash_cf_map_wrap = gv_stashpv ("cf::map::wrap" , 1);
		1205	stash_cf_mapspace_wrap = gv_stashpv ("cf::mapspace::wrap" , 1);
1216	stash_cf_client_wrap = gv_stashpv ("cf::client::wrap", 1);	1206	stash_cf_client_wrap = gv_stashpv ("cf::client::wrap", 1);
1217	stash_cf_arch_wrap = gv_stashpv ("cf::arch::wrap" , 1);	1207	stash_cf_arch_wrap = gv_stashpv ("cf::arch::wrap" , 1);
1218	stash_cf_party_wrap = gv_stashpv ("cf::party::wrap" , 1);	1208	stash_cf_party_wrap = gv_stashpv ("cf::party::wrap" , 1);
1219	stash_cf_region_wrap = gv_stashpv ("cf::region::wrap", 1);	1209	stash_cf_region_wrap = gv_stashpv ("cf::region::wrap", 1);
1220	stash_cf_living_wrap = gv_stashpv ("cf::living::wrap", 1);	1210	stash_cf_living_wrap = gv_stashpv ("cf::living::wrap", 1);
1221		1211
		1212	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);	1213	sv_runtime = get_sv ("cf::RUNTIME" , 1); SvUPGRADE (sv_runtime , SVt_NV);
		1214	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);	1215	sv_next_tick = get_sv ("cf::NEXT_TICK" , 1); SvUPGRADE (sv_next_tick , SVt_NV);
1224		1216
1225	cb_global = get_av ("cf::CB_GLOBAL", 1);	1217	cb_global = get_av ("cf::CB_GLOBAL", 1);
1226	cb_attachable = get_av ("cf::CB_ATTACHABLE", 1);	1218	cb_attachable = get_av ("cf::CB_ATTACHABLE", 1);
1227	cb_object = get_av ("cf::CB_OBJECT", 1);	1219	cb_object = get_av ("cf::CB_OBJECT", 1);
1228	cb_player = get_av ("cf::CB_PLAYER", 1);	1220	cb_player = get_av ("cf::CB_PLAYER", 1);
…		…
1233		1225
1234	MODULE = cf PACKAGE = cf PREFIX = cf_	1226	MODULE = cf PACKAGE = cf PREFIX = cf_
1235		1227
1236	BOOT:	1228	BOOT:
1237	{	1229	{
1238	I_EVENT_API (PACKAGE); watcher_base::GEventAPI = GEventAPI;	1230	I_EV_API (PACKAGE); evapi::GEVAPI = GEVAPI;
1239	I_CORO_API (PACKAGE); coroapi::GCoroAPI = GCoroAPI;	1231	I_CORO_API (PACKAGE); coroapi::GCoroAPI = GCoroAPI;
1240		1232
1241	_connect_to_perl ();	1233	_connect_to_perl ();
1242		1234
1243	newCONSTSUB (stash_cf, "VERSION", newSVpv (VERSION, sizeof (VERSION) - 1));	1235	newCONSTSUB (stash_cf, "VERSION", newSVpv (VERSION, sizeof (VERSION) - 1));
1244		1236
…		…
1262	const_iv (Map0Cmd) const_iv (Map1Cmd) const_iv (Map1aCmd)	1254	const_iv (Map0Cmd) const_iv (Map1Cmd) const_iv (Map1aCmd)
1263		1255
1264	const_iv (MAP_CLIENT_X) const_iv (MAP_CLIENT_Y)	1256	const_iv (MAP_CLIENT_X) const_iv (MAP_CLIENT_Y)
1265		1257
1266	const_iv (MAX_TIME)	1258	const_iv (MAX_TIME)
		1259	const_iv (MAXSOCKBUF)
1267		1260
1268	const_iv (NUM_BODY_LOCATIONS)	1261	const_iv (NUM_BODY_LOCATIONS)
1269	const_iv (body_range) const_iv (body_shield) const_iv (body_combat)	1262	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)	1263	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)	1264	const_iv (body_neck) const_iv (body_skill) const_iv (body_finger)
…		…
1337	const_iv (FLAG_CURSED) const_iv (FLAG_DAMNED) const_iv (FLAG_SEE_ANYWHERE) const_iv (FLAG_KNOWN_MAGICAL)	1330	const_iv (FLAG_CURSED) const_iv (FLAG_DAMNED) const_iv (FLAG_SEE_ANYWHERE) const_iv (FLAG_KNOWN_MAGICAL)
1338	const_iv (FLAG_KNOWN_CURSED) const_iv (FLAG_CAN_USE_SKILL) const_iv (FLAG_BEEN_APPLIED) const_iv (FLAG_READY_SCROLL)	1331	const_iv (FLAG_KNOWN_CURSED) const_iv (FLAG_CAN_USE_SKILL) const_iv (FLAG_BEEN_APPLIED) const_iv (FLAG_READY_SCROLL)
1339	const_iv (FLAG_USE_ROD) const_iv (FLAG_USE_HORN) const_iv (FLAG_MAKE_INVIS) const_iv (FLAG_INV_LOCKED)	1332	const_iv (FLAG_USE_ROD) const_iv (FLAG_USE_HORN) const_iv (FLAG_MAKE_INVIS) const_iv (FLAG_INV_LOCKED)
1340	const_iv (FLAG_IS_WOODED) const_iv (FLAG_IS_HILLY) const_iv (FLAG_READY_SKILL) const_iv (FLAG_READY_WEAPON)	1333	const_iv (FLAG_IS_WOODED) const_iv (FLAG_IS_HILLY) const_iv (FLAG_READY_SKILL) const_iv (FLAG_READY_WEAPON)
1341	const_iv (FLAG_NO_SKILL_IDENT) const_iv (FLAG_BLIND) const_iv (FLAG_SEE_IN_DARK) const_iv (FLAG_IS_CAULDRON)	1334	const_iv (FLAG_NO_SKILL_IDENT) const_iv (FLAG_BLIND) const_iv (FLAG_SEE_IN_DARK) const_iv (FLAG_IS_CAULDRON)
1342	const_iv (FLAG_NO_STEAL) const_iv (FLAG_ONE_HIT) const_iv (FLAG_CLIENT_SENT) const_iv (FLAG_BERSERK)	1335	const_iv (FLAG_NO_STEAL) const_iv (FLAG_ONE_HIT) const_iv (FLAG_DEBUG) const_iv (FLAG_BERSERK)
1343	const_iv (FLAG_NEUTRAL) const_iv (FLAG_NO_ATTACK) const_iv (FLAG_NO_DAMAGE) const_iv (FLAG_OBJ_ORIGINAL)	1336	const_iv (FLAG_NEUTRAL) const_iv (FLAG_NO_ATTACK) const_iv (FLAG_NO_DAMAGE) const_iv (FLAG_OBJ_ORIGINAL)
1344	const_iv (FLAG_ACTIVATE_ON_PUSH) const_iv (FLAG_ACTIVATE_ON_RELEASE) const_iv (FLAG_IS_WATER)	1337	const_iv (FLAG_ACTIVATE_ON_PUSH) const_iv (FLAG_ACTIVATE_ON_RELEASE) const_iv (FLAG_IS_WATER)
1345	const_iv (FLAG_CONTENT_ON_GEN) const_iv (FLAG_IS_A_TEMPLATE) const_iv (FLAG_IS_BUILDABLE)	1338	const_iv (FLAG_CONTENT_ON_GEN) const_iv (FLAG_IS_A_TEMPLATE) const_iv (FLAG_IS_BUILDABLE)
1346	const_iv (FLAG_DESTROY_ON_DEATH) const_iv (FLAG_NO_MAP_SAVE)	1339	const_iv (FLAG_DESTROY_ON_DEATH) const_iv (FLAG_NO_MAP_SAVE)
1347		1340
1348	const_iv (NDI_BLACK) const_iv (NDI_WHITE) const_iv (NDI_NAVY) const_iv (NDI_RED)	1341	const_iv (NDI_BLACK) const_iv (NDI_WHITE) const_iv (NDI_NAVY) const_iv (NDI_RED)
1349	const_iv (NDI_ORANGE) const_iv (NDI_BLUE) const_iv (NDI_DK_ORANGE) const_iv (NDI_GREEN)	1342	const_iv (NDI_ORANGE) const_iv (NDI_BLUE) const_iv (NDI_DK_ORANGE) const_iv (NDI_GREEN)
1350	const_iv (NDI_LT_GREEN) const_iv (NDI_GREY) const_iv (NDI_BROWN) const_iv (NDI_GOLD)	1343	const_iv (NDI_LT_GREEN) const_iv (NDI_GREY) const_iv (NDI_BROWN) const_iv (NDI_GOLD)
1351	const_iv (NDI_TAN) const_iv (NDI_MAX_COLOR) const_iv (NDI_COLOR_MASK) const_iv (NDI_UNIQUE)	1344	const_iv (NDI_TAN) const_iv (NDI_MAX_COLOR) const_iv (NDI_COLOR_MASK) const_iv (NDI_UNIQUE)
1352	const_iv (NDI_ALL) const_iv (NDI_DEF) const_iv (NDI_REPLY) const_iv (NDI_CLIENT_MASK)	1345	const_iv (NDI_ALL) const_iv (NDI_DEF) const_iv (NDI_REPLY) const_iv (NDI_CLIENT_MASK)
1353	const_iv (NDI_NOCREATE) const_iv (NDI_CLEAR)	1346	const_iv (NDI_NOCREATE) const_iv (NDI_CLEAR) const_iv (NDI_VERBATIM)
1354		1347
1355	const_iv (UPD_LOCATION) const_iv (UPD_FLAGS) const_iv (UPD_WEIGHT) const_iv (UPD_FACE)	1348	const_iv (UPD_LOCATION) const_iv (UPD_FLAGS) const_iv (UPD_WEIGHT) const_iv (UPD_FACE)
1356	const_iv (UPD_NAME) const_iv (UPD_ANIM) const_iv (UPD_ANIMSPEED) const_iv (UPD_NROF)	1349	const_iv (UPD_NAME) const_iv (UPD_ANIM) const_iv (UPD_ANIMSPEED) const_iv (UPD_NROF)
1357		1350
1358	const_iv (UPD_SP_MANA) const_iv (UPD_SP_GRACE) const_iv (UPD_SP_DAMAGE)	1351	const_iv (UPD_SP_MANA) const_iv (UPD_SP_GRACE) const_iv (UPD_SP_DAMAGE)
…		…
1410	const_iv (F_CURSED) const_iv (F_DAMNED) const_iv (F_OPEN) const_iv (F_NOPICK)	1403	const_iv (F_CURSED) const_iv (F_DAMNED) const_iv (F_OPEN) const_iv (F_NOPICK)
1411	const_iv (F_LOCKED)	1404	const_iv (F_LOCKED)
1412		1405
1413	const_iv (F_BUY) const_iv (F_SHOP) const_iv (F_SELL)	1406	const_iv (F_BUY) const_iv (F_SHOP) const_iv (F_SELL)
1414		1407
1415	const_iv (P_BLOCKSVIEW) const_iv (P_PLAYER) const_iv (P_NO_MAGIC) const_iv (P_IS_ALIVE)	1408	const_iv (P_BLOCKSVIEW) const_iv (P_NO_MAGIC) const_iv (P_IS_ALIVE)
1416	const_iv (P_NO_CLERIC) const_iv (P_OUT_OF_MAP) const_iv (P_NEW_MAP) const_iv (P_UPTODATE)	1409	const_iv (P_NO_CLERIC) const_iv (P_OUT_OF_MAP) const_iv (P_NEW_MAP) const_iv (P_UPTODATE)
1417		1410
1418	const_iv (UP_OBJ_INSERT) const_iv (UP_OBJ_REMOVE) const_iv (UP_OBJ_CHANGE) const_iv (UP_OBJ_FACE)	1411	const_iv (UP_OBJ_INSERT) const_iv (UP_OBJ_REMOVE) const_iv (UP_OBJ_CHANGE) const_iv (UP_OBJ_FACE)
1419		1412
1420	const_iv (INS_NO_MERGE) const_iv (INS_ABOVE_FLOOR_ONLY) const_iv (INS_NO_WALK_ON)	1413	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)	1414	const_iv (INS_ON_TOP) const_iv (INS_BELOW_ORIGINATOR)
1422		1415
1423	const_iv (WILL_APPLY_HANDLE) const_iv (WILL_APPLY_TREASURE) const_iv (WILL_APPLY_EARTHWALL)	1416	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)	1417	const_iv (WILL_APPLY_DOOR) const_iv (WILL_APPLY_FOOD)
1425		1418
1426	const_iv (SAVE_MODE) const_iv (SAVE_DIR_MODE)	1419	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)	1453	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)	1454	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)	1455	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)	1456	const_iv (ATNR_LIFE_STEALING) const_iv (ATNR_DISEASE)
1464		1457
1465	const_iv (MAP_IN_MEMORY) const_iv (MAP_SWAPPED) const_iv (MAP_LOADING) const_iv (MAP_SAVING)	1458	const_iv (MAP_ACTIVE) const_iv (MAP_SWAPPED) const_iv (MAP_LOADING) const_iv (MAP_SAVING)
		1459	const_iv (MAP_INACTIVE)
1466		1460
1467	const_iv (KLASS_ATTACHABLE) const_iv (KLASS_GLOBAL) const_iv (KLASS_OBJECT)	1461	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)	1462	const_iv (KLASS_CLIENT) const_iv (KLASS_PLAYER) const_iv (KLASS_MAP)
1469		1463
1470	const_iv (VERSION_CS) const_iv (VERSION_SC)	1464	const_iv (VERSION_CS) const_iv (VERSION_SC)
…		…
1485		1479
1486	const_iv (SYMMETRY_RANDOM) const_iv (SYMMETRY_NONE) const_iv (SYMMETRY_X)	1480	const_iv (SYMMETRY_RANDOM) const_iv (SYMMETRY_NONE) const_iv (SYMMETRY_X)
1487	const_iv (SYMMETRY_Y) const_iv (SYMMETRY_XY)	1481	const_iv (SYMMETRY_Y) const_iv (SYMMETRY_XY)
1488		1482
1489	const_iv (GT_ENVIRONMENT) const_iv (GT_INVISIBLE) const_iv (GT_STARTEQUIP)	1483	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)	1484	const_iv (GT_APPLY) const_iv (GT_ONLY_GOOD) const_iv (GT_MINIMAL)
1491	const_iv (GT_MINIMAL)
1492		1485
1493	const_iv (FT_FACE) const_iv (FT_MUSIC) const_iv (FT_SOUND)	1486	const_iv (FT_FACE) const_iv (FT_MUSIC) const_iv (FT_SOUND)
1494	const_iv (FT_RSRC) const_iv (FT_NUM)	1487	const_iv (FT_RSRC) const_iv (FT_NUM)
1495	};	1488	};
1496		1489
…		…
1518	av_store (av, eiv->iv, newRV_noinc ((SV *)event));	1511	av_store (av, eiv->iv, newRV_noinc ((SV *)event));
1519	newCONSTSUB (stash_cf, (char *)eiv->name, newSViv (eiv->iv));	1512	newCONSTSUB (stash_cf, (char *)eiv->name, newSViv (eiv->iv));
1520	}	1513	}
1521	}	1514	}
1522		1515
		1516	void _gv_clear (SV *gv)
		1517	CODE:
		1518	assert (SvTYPE (gv) == SVt_PVGV);
		1519	# define f(sv) { SV sv_ = (SV )(sv); sv = 0; SvREFCNT_dec (sv_); }
		1520	f (GvGP (gv)->gp_form);
		1521	f (GvGP (gv)->gp_io);
		1522	f (GvGP (gv)->gp_sv);
		1523	f (GvGP (gv)->gp_av);
		1524	f (GvGP (gv)->gp_hv);
		1525	f (GvGP (gv)->gp_cv);
		1526	GvCVGEN (gv) = 0;
		1527	GvMULTI_off (gv);
		1528	# undef f
		1529
1523	void _connect_to_perl ()	1530	void _connect_to_perl ()
1524		1531
1525	void _recalc_want ()	1532	void _recalc_want ()
1526		1533
		1534	# not used by default anymore
1527	void _global_reattach ()	1535	void _global_reattach ()
1528	CODE:	1536	CODE:
1529	{	1537	{
1530	// reattach to all attachable objects in the game.	1538	// reattach to all attachable objects in the game.
1531	for_all_clients (ns)	1539	for_all_clients (ns)
…		…
1575	}	1583	}
1576		1584
1577	SvCUR_set (data_sv, dst - SvPVX (data_sv));	1585	SvCUR_set (data_sv, dst - SvPVX (data_sv));
1578	}	1586	}
1579		1587
		1588	void init_anim ()
		1589
		1590	void init_globals ()
		1591
		1592	void init_experience ()
		1593
		1594	void init_attackmess ()
		1595
		1596	void init_dynamic ()
		1597
		1598	void init_block ()
		1599
		1600	void load_settings ()
		1601
		1602	void load_materials ()
		1603
		1604	void init_uuid ()
		1605	CODE:
		1606	UUID::init ();
		1607
		1608	void init_signals ()
		1609
		1610	void init_commands ()
		1611
		1612	void init_skills ()
		1613
		1614	void init_beforeplay ()
		1615
		1616	void evthread_start (int aiofd)
		1617
1580	void _post_tick ()	1618	void cede_to_tick ()
1581	CODE:	1619	CODE:
1582	coroapi::next_cede = SvNV (sv_next_tick) - TICK * (1. - 1. / CEDES_PER_TICK);	1620	coroapi::cede_to_tick ();
1583		1621
1584	NV till_cede ()	1622	NV till_tick ()
1585	CODE:	1623	CODE:
1586	RETVAL = coroapi::next_cede - now ();	1624	RETVAL = SvNVX (sv_next_tick) - now ();
1587	OUTPUT:	1625	OUTPUT:
1588	RETVAL	1626	RETVAL
1589		1627
1590	NV till_tick ()	1628	int tick_inhibit ()
1591	CODE:	1629	CODE:
1592	RETVAL = SvNV (sv_next_tick) - now ();	1630	RETVAL = tick_inhibit;
1593	OUTPUT:	1631	OUTPUT:
1594	RETVAL	1632	RETVAL
1595		1633
		1634	void tick_inhibit_inc ()
		1635	CODE:
		1636	++tick_inhibit;
		1637
		1638	void tick_inhibit_dec ()
		1639	CODE:
		1640	if (!--tick_inhibit)
		1641	if (tick_pending)
		1642	{
		1643	ev_async_send (EV_DEFAULT, &tick_watcher);
		1644	coroapi::cede ();
		1645	}
		1646
		1647	void server_tick ()
		1648	CODE:
		1649	{
		1650	NOW = ev_now (EV_DEFAULT);
		1651	SvNV_set (sv_now, NOW); SvNOK_only (sv_now);
		1652	SvNV_set (sv_tick_start, NOW); SvNOK_only (sv_tick_start);
		1653	runtime = SvNVX (sv_runtime);
		1654
		1655	server_tick ();
		1656
		1657	NOW = ev_time ();
		1658	SvNV_set (sv_now, NOW); SvNOK_only (sv_now);
		1659	runtime += TICK;
		1660	SvNV_set (sv_runtime, runtime); SvNOK_only (sv_runtime);
		1661	}
		1662
1596	NV floor (NV x)	1663	NV floor (NV x)
1597		1664
1598	NV ceil (NV x)	1665	NV ceil (NV x)
1599		1666
1600	NV rndm (...)	1667	NV rndm (...)
		1668	ALIAS:
		1669	rmg_rndm = 1
1601	CODE:	1670	CODE:
		1671	{
		1672	rand_gen &gen = ix ? rmg_rndm : rndm;
1602	switch (items)	1673	switch (items)
1603	{	1674	{
1604	case 0: RETVAL = rndm (); break;	1675	case 0: RETVAL = gen (); break;
1605	case 1: RETVAL = rndm (SvUV (ST (0))); break;	1676	case 1: RETVAL = gen (SvUV (ST (0))); break;
1606	case 2: RETVAL = rndm (SvIV (ST (0)), SvIV (ST (1))); break;	1677	case 2: RETVAL = gen (SvIV (ST (0)), SvIV (ST (1))); break;
1607	default: croak ("cf::rndm requires none, one or two parameters."); break;	1678	default: croak ("cf::rndm requires none, one or two parameters."); break;
1608	}	1679	}
		1680	}
1609	OUTPUT:	1681	OUTPUT:
1610	RETVAL	1682	RETVAL
1611		1683
1612	NV clamp (NV value, NV min_value, NV max_value)	1684	NV clamp (NV value, NV min_value, NV max_value)
1613	CODE:	1685	CODE:
…		…
1619	CODE:	1691	CODE:
1620	RETVAL = lerp (value, min_in, max_in, min_out, max_out);	1692	RETVAL = lerp (value, min_in, max_in, min_out, max_out);
1621	OUTPUT:	1693	OUTPUT:
1622	RETVAL	1694	RETVAL
1623		1695
1624	void cede_to_tick ()	1696	void weaken (...)
1625	CODE:	1697	PROTOTYPE: @
1626	coroapi::cede_to_tick ();	1698	CODE:
1627		1699	while (items > 0)
1628	void server_tick ()	1700	sv_rvweaken (ST (--items));
1629	CODE:
1630	NOW = now ();
1631	runtime = SvNVx (sv_runtime);
1632	server_tick ();
1633		1701
1634	void	1702	void
1635	log_backtrace (utf8_string msg)	1703	log_backtrace (utf8_string msg)
1636		1704
1637	void	1705	void
…		…
1676		1744
1677	void abort ()	1745	void abort ()
1678		1746
1679	void reset_signals ()	1747	void reset_signals ()
1680		1748
1681	void fork_abort (octet_string cause = "cf::fork_abort")	1749	void fork_abort (const_octet_string cause = "cf::fork_abort")
1682		1750
1683	void cleanup (octet_string cause, bool make_core = false)	1751	void cleanup (const_octet_string cause, bool make_core = false)
1684		1752
1685	void emergency_save ()	1753	void emergency_save ()
1686		1754
1687	void _exit (int status = EXIT_SUCCESS)	1755	void _exit (int status = EXIT_SUCCESS)
1688		1756
1689	UV sv_2watcher (SV *w)
1690	CODE:
1691	RETVAL = (UV)GEventAPI->sv_2watcher (w);
1692	OUTPUT:
1693	RETVAL
1694
1695	#if _POSIX_MEMLOCK	1757	#if _POSIX_MEMLOCK
1696		1758
1697	int mlockall (int flags = MCL_CURRENT \| MCL_FUTURE)	1759	int mlockall (int flags = MCL_CURRENT \| MCL_FUTURE)
		1760	INIT:
		1761	#if __GLIBC__
		1762	mallopt (M_TOP_PAD, 1024 * 1024);
		1763	mallopt (M_MMAP_THRESHOLD, 1024 * 1024 * 128);
		1764	mallopt (M_MMAP_MAX, 0); // likely bug-workaround, also frees memory
		1765	mallopt (M_PERTURB, 0xee); // bug-workaround for linux glibc+mlockall+calloc
		1766	#endif
1698		1767
1699	int munlockall ()	1768	int munlockall ()
1700		1769
1701	#endif	1770	#endif
		1771
		1772	int
		1773	malloc_trim (IV pad = 0)
		1774
		1775	void
		1776	mallinfo ()
		1777	PPCODE:
		1778	{
		1779	#if __GLIBC__
		1780	struct mallinfo mai = mallinfo ();
		1781	EXTEND (SP, 10*2);
		1782	PUSHs (sv_2mortal (newSVpv ("arena" , 0))); PUSHs (sv_2mortal (newSViv (mai.arena)));
		1783	PUSHs (sv_2mortal (newSVpv ("ordblks" , 0))); PUSHs (sv_2mortal (newSViv (mai.ordblks)));
		1784	PUSHs (sv_2mortal (newSVpv ("smblks" , 0))); PUSHs (sv_2mortal (newSViv (mai.smblks)));
		1785	PUSHs (sv_2mortal (newSVpv ("hblks" , 0))); PUSHs (sv_2mortal (newSViv (mai.hblks)));
		1786	PUSHs (sv_2mortal (newSVpv ("hblkhd" , 0))); PUSHs (sv_2mortal (newSViv (mai.hblkhd)));
		1787	PUSHs (sv_2mortal (newSVpv ("usmblks" , 0))); PUSHs (sv_2mortal (newSViv (mai.usmblks)));
		1788	PUSHs (sv_2mortal (newSVpv ("fsmblks" , 0))); PUSHs (sv_2mortal (newSViv (mai.fsmblks)));
		1789	PUSHs (sv_2mortal (newSVpv ("uordblks", 0))); PUSHs (sv_2mortal (newSViv (mai.uordblks)));
		1790	PUSHs (sv_2mortal (newSVpv ("fordblks", 0))); PUSHs (sv_2mortal (newSViv (mai.fordblks)));
		1791	PUSHs (sv_2mortal (newSVpv ("keepcost", 0))); PUSHs (sv_2mortal (newSViv (mai.keepcost)));
		1792	#endif
		1793	EXTEND (SP, 2*2);
		1794	PUSHs (sv_2mortal (newSVpv ("slice_alloc", 0))); PUSHs (sv_2mortal (newSVuv (slice_alloc)));
		1795	PUSHs (sv_2mortal (newSVpv ("shstr_alloc", 0))); PUSHs (sv_2mortal (newSVuv (shstr_alloc)));
		1796	PUSHs (sv_2mortal (newSVpv ("objects" , 0))); PUSHs (sv_2mortal (newSVuv (objects.size () * sizeof (object))));
		1797	}
1702		1798
1703	int find_animation (utf8_string text)	1799	int find_animation (utf8_string text)
1704	PROTOTYPE: $	1800	PROTOTYPE: $
1705		1801
1706	int random_roll (int min, int max, object *op, int goodbad);	1802	int random_roll (int min, int max, object *op, int goodbad);
…		…
1744	RETVAL = newSVpv (resist_plus[atnr], 0);	1840	RETVAL = newSVpv (resist_plus[atnr], 0);
1745	else	1841	else
1746	XSRETURN_UNDEF;	1842	XSRETURN_UNDEF;
1747	OUTPUT: RETVAL	1843	OUTPUT: RETVAL
1748		1844
		1845	UUID
		1846	uuid_cur ()
		1847	CODE:
		1848	RETVAL = UUID::cur;
		1849	OUTPUT:
		1850	RETVAL
		1851
		1852	UUID
		1853	uuid_gen ()
		1854	CODE:
		1855	RETVAL = UUID::gen ();
		1856	OUTPUT:
		1857	RETVAL
		1858
		1859	val64
		1860	uuid_seq (UUID uuid)
		1861	CODE:
		1862	RETVAL = uuid.seq;
		1863	OUTPUT:
		1864	RETVAL
		1865
		1866	UUID
		1867	uuid_str (val64 seq)
		1868	CODE:
		1869	RETVAL.seq = seq;
		1870	OUTPUT:
		1871	RETVAL
		1872
		1873	void
		1874	coin_names ()
		1875	PPCODE:
		1876	EXTEND (SP, NUM_COINS);
		1877	for (int i = 0; i < NUM_COINS; ++i)
		1878	PUSHs (sv_2mortal (newSVpv (coins [i], 0)));
		1879
		1880	void
		1881	coin_archetypes ()
		1882	PPCODE:
		1883	EXTEND (SP, NUM_COINS);
		1884	for (int i = 0; i < NUM_COINS; ++i)
		1885	PUSHs (sv_2mortal (to_sv (archetype::find (coins [i]))));
		1886
1749	bool	1887	bool
1750	load_resource_file (octet_string filename)	1888	load_resource_file_ (octet_string filename)
		1889
		1890	void
		1891	fix_weight ()
1751		1892
1752	MODULE = cf PACKAGE = cf::attachable	1893	MODULE = cf PACKAGE = cf::attachable
1753		1894
1754	int	1895	int
1755	valid (SV *obj)	1896	valid (SV *obj)
…		…
1819	object *actives (U32 index)	1960	object *actives (U32 index)
1820	CODE:	1961	CODE:
1821	RETVAL = index < actives.size () ? actives [index] : 0;	1962	RETVAL = index < actives.size () ? actives [index] : 0;
1822	OUTPUT: RETVAL	1963	OUTPUT: RETVAL
1823		1964
		1965	int mortals_size ()
		1966	CODE:
		1967	RETVAL = attachable::mortals.size ();
		1968	OUTPUT: RETVAL
		1969
1824	const char *slot_use_name (U32 slot)	1970	const char *slot_use_name (U32 slot)
1825	ALIAS:	1971	ALIAS:
1826	slot_nonuse_name = 1	1972	slot_nonuse_name = 1
1827	CODE:	1973	CODE:
1828	{	1974	{
…		…
1906	void apply_below (object *op)	2052	void apply_below (object *op)
1907	CODE:	2053	CODE:
1908	player_apply_below (op);	2054	player_apply_below (op);
1909		2055
1910	int cast_heal (object op, object caster, object *spell, int dir = 0)	2056	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		2057
1924	int pay_item (object op, object buyer)	2058	int pay_item (object op, object buyer)
1925	CODE:	2059	CODE:
1926	RETVAL = pay_for_item (op, buyer);	2060	RETVAL = pay_for_item (op, buyer);
1927	OUTPUT: RETVAL	2061	OUTPUT: RETVAL
…		…
2005	CODE:	2139	CODE:
2006	{	2140	{
2007	RETVAL = insert_ob_in_map_at (ob, where, orig, flag, x, y);	2141	RETVAL = insert_ob_in_map_at (ob, where, orig, flag, x, y);
2008	}	2142	}
2009		2143
2010	const_utf8_string get_ob_key_value (object *op, utf8_string key)	2144	shstr
		2145	object::kv_get (shstr key)
2011		2146
2012	bool set_ob_key_value (object *op, utf8_string key, utf8_string value = 0, int add_key = 1)	2147	void
		2148	object::kv_del (shstr key)
		2149
		2150	void
		2151	object::kv_set (shstr key, shstr value)
2013		2152
2014	object get_nearest_player (object ob)	2153	object get_nearest_player (object ob)
2015	ALIAS: nearest_player = 0	2154	ALIAS: nearest_player = 0
2016	PREINIT:	2155	PREINIT:
2017	extern object get_nearest_player (object );	2156	extern object get_nearest_player (object );
…		…
2019	void rangevector (object ob, object other, int flags = 0)	2158	void rangevector (object ob, object other, int flags = 0)
2020	PROTOTYPE: $$;$	2159	PROTOTYPE: $$;$
2021	PPCODE:	2160	PPCODE:
2022	{	2161	{
2023	rv_vector rv;	2162	rv_vector rv;
		2163
		2164	PUTBACK;
2024	get_rangevector (ob, other, &rv, flags);	2165	get_rangevector (ob, other, &rv, flags);
		2166	SPAGAIN;
		2167
2025	EXTEND (SP, 5);	2168	EXTEND (SP, 5);
2026	PUSHs (newSVuv (rv.distance));	2169	PUSHs (newSVuv (rv.distance));
2027	PUSHs (newSViv (rv.distance_x));	2170	PUSHs (newSViv (rv.distance_x));
2028	PUSHs (newSViv (rv.distance_y));	2171	PUSHs (newSViv (rv.distance_y));
2029	PUSHs (newSViv (rv.direction));	2172	PUSHs (newSViv (rv.direction));
…		…
2039	base_name (object *op, int plural = op->nrof > 1)	2182	base_name (object *op, int plural = op->nrof > 1)
2040	CODE:	2183	CODE:
2041	RETVAL = query_base_name (op, plural);	2184	RETVAL = query_base_name (op, plural);
2042	OUTPUT: RETVAL	2185	OUTPUT: RETVAL
2043		2186
2044	object decrease_ob_nr (object op, unsigned long i)
2045
2046	# return the tail of an object, excluding itself	2187	# return the tail of an object, excluding itself
2047	void	2188	void
2048	tail (object *op)	2189	tail (object *op)
2049	PPCODE:	2190	PPCODE:
2050	while ((op = op->more))	2191	while ((op = op->more))
…		…
2117	CODE:	2258	CODE:
2118	{	2259	{
2119	STRLEN len;	2260	STRLEN len;
2120	char *buf = SvPVbyte (packet, len);	2261	char *buf = SvPVbyte (packet, len);
2121		2262
		2263	if (len > MAXSOCKBUF)
		2264	pl->failmsg ("[packet too long for client]");
2122	if (pl->ns)	2265	else if (pl->ns)
2123	pl->ns->send_packet (buf, len);	2266	pl->ns->send_packet (buf, len);
2124	}	2267	}
2125
2126	int
2127	listening (player *pl, int new_value = -1)
2128	CODE:
2129	RETVAL = pl->listening;
2130	if (new_value >= 0)
2131	pl->listening = new_value;
2132	OUTPUT:
2133	RETVAL
2134		2268
2135	void savebed (player pl, SV map_path = 0, SV x = 0, SV y = 0)	2269	void savebed (player pl, SV map_path = 0, SV x = 0, SV y = 0)
2136	PROTOTYPE: $;$$$	2270	PROTOTYPE: $;$$$
2137	PPCODE:	2271	PPCODE:
2138	if (GIMME_V != G_VOID)	2272	if (GIMME_V != G_VOID)
…		…
2293	}	2427	}
2294		2428
2295	void	2429	void
2296	maptile::create_region_treasure ()	2430	maptile::create_region_treasure ()
2297	CODE:	2431	CODE:
2298	{
2299	object *op = object::create ();
2300	op->type = FLOOR;
2301	op->map = THIS;
2302
2303	for (int x = 0; x < THIS->width; ++x)	2432	for (int x = 0; x < THIS->width; ++x)
2304	for (int y = 0; y < THIS->height; ++y)	2433	for (int y = 0; y < THIS->height; ++y)
2305	{	2434	{
2306	region *rgn = THIS->region (x, y);	2435	region *rgn = THIS->region (x, y);
2307		2436
2308	//fprintf (stderr, "%d,%d %f %p\n", x, y, rgn->treasure_density,rgn->treasure);//D	2437	//fprintf (stderr, "%d,%d %f %p\n", x, y, rgn->treasure_density,rgn->treasure);//D
		2438	if (object *op = THIS->at (x, y).top)
2309	if (rgn->treasure && rndm () < rgn->treasure_density)	2439	if (rgn->treasure && rndm () < rgn->treasure_density)
2310	{
2311	op->x = x;
2312	op->y = y;
2313	create_treasure (rgn->treasure, op, GT_ENVIRONMENT, THIS->difficulty);	2440	create_treasure (rgn->treasure, op, GT_ENVIRONMENT, THIS->difficulty);
2314	}
2315	}	2441	}
2316
2317	op->destroy ();
2318	}
2319		2442
2320	int out_of_map (maptile *map, int x, int y)	2443	int out_of_map (maptile *map, int x, int y)
2321		2444
2322	void	2445	void
2323	trigger (maptile *map, long connection, bool state = true)	2446	trigger (maptile *map, long connection, bool state = true)
…		…
2336	get_map_flags (maptile *map, int x, int y)	2459	get_map_flags (maptile *map, int x, int y)
2337	PPCODE:	2460	PPCODE:
2338	{	2461	{
2339	maptile *nmap = 0;	2462	maptile *nmap = 0;
2340	I16 nx = 0, ny = 0;	2463	I16 nx = 0, ny = 0;
		2464
		2465	PUTBACK;
2341	int flags = get_map_flags (map, &nmap, x, y, &nx, &ny);	2466	int flags = get_map_flags (map, &nmap, x, y, &nx, &ny);
		2467	SPAGAIN;
2342		2468
2343	EXTEND (SP, 4);	2469	EXTEND (SP, 4);
2344	PUSHs (sv_2mortal (newSViv (flags)));	2470	PUSHs (sv_2mortal (newSViv (flags)));
2345		2471
2346	if (GIMME_V == G_ARRAY)	2472	if (GIMME_V == G_ARRAY)
…		…
2349	PUSHs (sv_2mortal (newSViv (nx)));	2475	PUSHs (sv_2mortal (newSViv (nx)));
2350	PUSHs (sv_2mortal (newSViv (ny)));	2476	PUSHs (sv_2mortal (newSViv (ny)));
2351	}	2477	}
2352	}	2478	}
2353		2479
		2480	mapspace *
		2481	ms (maptile *map, unsigned int x, unsigned int y)
		2482	PROTOTYPE: $$$
		2483	CODE:
		2484	{
		2485	maptile *nmap = 0;
		2486	I16 nx, ny;
		2487
		2488	PUTBACK;
		2489	get_map_flags (map, &nmap, x, y, &nx, &ny);
		2490	SPAGAIN;
		2491
		2492	if (!nmap)
		2493	XSRETURN_UNDEF;
		2494
		2495	RETVAL = &nmap->at (nx, ny);
		2496	}
		2497	OUTPUT:
		2498	RETVAL
		2499
2354	void	2500	void
2355	at (maptile *map, unsigned int x, unsigned int y)	2501	at (maptile *map, unsigned int x, unsigned int y)
2356	PROTOTYPE: $$$	2502	PROTOTYPE: $$$
2357	PPCODE:	2503	PPCODE:
2358	{	2504	{
2359	object *o;
2360	maptile *nmap = 0;	2505	maptile *nmap = 0;
2361	I16 nx, ny;	2506	I16 nx, ny;
2362		2507
		2508	PUTBACK;
2363	get_map_flags (map, &nmap, x, y, &nx, &ny);	2509	get_map_flags (map, &nmap, x, y, &nx, &ny);
		2510	SPAGAIN;
2364		2511
2365	if (nmap)	2512	if (nmap)
2366	for (o = GET_MAP_OB (nmap, nx, ny); o; o = o->above)	2513	for (object *o = nmap->at (nx, ny).bot; o; o = o->above)
2367	XPUSHs (sv_2mortal (to_sv (o)));	2514	XPUSHs (sv_2mortal (to_sv (o)));
2368	}	2515	}
2369		2516
2370	SV *	2517	SV *
2371	bot_at (maptile *obj, unsigned int x, unsigned int y)	2518	bot_at (maptile *obj, unsigned int x, unsigned int y)
…		…
2484	RETVAL = self->generate_random_map (&rmp);	2631	RETVAL = self->generate_random_map (&rmp);
2485	}	2632	}
2486	OUTPUT:	2633	OUTPUT:
2487	RETVAL	2634	RETVAL
2488		2635
		2636	MODULE = cf PACKAGE = cf::mapspace
		2637
		2638	INCLUDE: $PERL $srcdir/genacc mapspace ../include/map.h \|
		2639
2489	MODULE = cf PACKAGE = cf::arch	2640	MODULE = cf PACKAGE = cf::arch
2490		2641
2491	int archetypes_size ()	2642	int archetypes_size ()
2492	CODE:	2643	CODE:
2493	RETVAL = archetypes.size ();	2644	RETVAL = archetypes.size ();
…		…
2579	CODE:	2730	CODE:
2580	{	2731	{
2581	STRLEN len;	2732	STRLEN len;
2582	char *buf = SvPVbyte (packet, len);	2733	char *buf = SvPVbyte (packet, len);
2583		2734
		2735	if (len > MAXSOCKBUF)
		2736	{
		2737	// ugly
		2738	if (THIS->pl)
		2739	THIS->pl->failmsg ("[packet too long for client]");
		2740	}
		2741	else
2584	THIS->send_packet (buf, len);	2742	THIS->send_packet (buf, len);
2585	}	2743	}
2586		2744
2587	faceidx	2745	faceidx
2588	client::need_face (utf8_string name, int pri = 0)	2746	client::need_face (utf8_string name, int pri = 0)
2589	CODE:	2747	CODE:
…		…
2688	}	2846	}
2689	}	2847	}
2690		2848
2691	int get_data_size (faceidx idx, int faceset = 0)	2849	int get_data_size (faceidx idx, int faceset = 0)
2692	CODE:	2850	CODE:
2693	facedata *d = face_data (idx, faceset); assert (d);	2851	facedata *d = face_data (idx, faceset);
		2852	if (!d) XSRETURN_UNDEF;
2694	RETVAL = d->data.size ();	2853	RETVAL = d->data.size ();
2695	OUTPUT:	2854	OUTPUT:
2696	RETVAL	2855	RETVAL
2697		2856
2698	SV *get_chksum (faceidx idx, int faceset = 0)	2857	SV *get_chksum (faceidx idx, int faceset = 0)
2699	CODE:	2858	CODE:
2700	facedata *d = face_data (idx, faceset); assert (d);	2859	facedata *d = face_data (idx, faceset);
		2860	if (!d) XSRETURN_UNDEF;
2701	RETVAL = newSVpvn ((char *)d->chksum, CHKSUM_SIZE);	2861	RETVAL = newSVpvn ((char *)d->chksum, CHKSUM_SIZE);
		2862	OUTPUT:
		2863	RETVAL
		2864
		2865	SV *get_data (faceidx idx, int faceset = 0)
		2866	CODE:
		2867	facedata *d = face_data (idx, faceset);
		2868	if (!d) XSRETURN_UNDEF;
		2869	RETVAL = newSVpvn (d->data.data (), d->data.length ());
2702	OUTPUT:	2870	OUTPUT:
2703	RETVAL	2871	RETVAL
2704		2872
2705	void invalidate (faceidx idx)	2873	void invalidate (faceidx idx)
2706	CODE:	2874	CODE:
…		…
2798	extract_tags (object_thawer *self)	2966	extract_tags (object_thawer *self)
2799	PPCODE:	2967	PPCODE:
2800	while (self->kw != KW_EOF)	2968	while (self->kw != KW_EOF)
2801	{	2969	{
2802	PUTBACK;	2970	PUTBACK;
2803	coroapi::cede_to_tick_every (5000);	2971	coroapi::cede_to_tick ();
2804	SPAGAIN;	2972	SPAGAIN;
2805		2973
2806	if (self->kw == KW_tag)	2974	if (self->kw == KW_tag)
2807	XPUSHs (sv_2mortal (newSVpv_utf8 (self->get_str ())));	2975	XPUSHs (sv_2mortal (newSVpv_utf8 (self->get_str ())));
2808		2976

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.304 by root, Wed Oct 1 05:50:19 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.304 by root, Wed Oct 1 05:50:19 2008 UTC