[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.303 by root, Tue Sep 23 04:29:11 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	"-e"
615	"use Event; use Coro;" // required for bootstrap	632	"use EV ();"
616	"cf->bootstrap;" // required for datadir :*>	633	"use Coro ();"
		634	"cf->bootstrap;"
617	"unshift @INC, cf::datadir ();"	635	"unshift @INC, cf::datadir ();"
618	"require cf;"	636	"require cf;"
619	};	637	};
620		638
621	if (perl_parse (perl, xs_init, 2, (char )argv, (char )NULL)	639	if (perl_parse (perl, xs_init, 2, (char **)argv, environ)
622	\|\| perl_run (perl))	640	\|\| perl_run (perl))
623	{	641	{
624	printf ("unable to initialize perl-interpreter, aborting.\n");	642	printf ("unable to initialize perl-interpreter, aborting.\n");
625	exit (EXIT_FAILURE);	643	exit (EXIT_FAILURE);
626	}	644	}
627
628	{
629	dSP;
630
631	PUSHMARK (SP);
632	PUTBACK;
633	call_pv ("cf::init", G_DISCARD \| G_VOID);
634	}
635	}	645	}
636		646
637	void cfperl_main ()	647	void cfperl_main ()
638	{	648	{
639	dSP;	649	dSP;
…		…
903	}	913	}
904		914
905	/////////////////////////////////////////////////////////////////////////////	915	/////////////////////////////////////////////////////////////////////////////
906	// various c++ => perl glue functions	916	// various c++ => perl glue functions
907		917
		918	void cfperl_tick ()
		919	{
		920	tick_pending = 1;
		921
		922	if (tick_inhibit)
		923	return;
		924
		925	tick_pending = 0;
		926
		927	dSP;
		928
		929	PUSHMARK (SP);
		930	PUTBACK;
		931	call_pv ("cf::tick", G_DISCARD \| G_VOID);
		932
		933	SvNV_set (sv_next_tick, get_next_tick ()); SvNOK_only (sv_next_tick);
		934	}
		935
908	void	936	void
909	cfperl_emergency_save ()	937	cfperl_emergency_save ()
910	{	938	{
911	CALL_BEGIN (0);	939	CALL_BEGIN (0);
912	CALL_CALL ("cf::emergency_save", G_VOID);	940	CALL_CALL ("cf::emergency_save", G_VOID);
…		…
964	{	992	{
965	CALL_BEGIN (1);	993	CALL_BEGIN (1);
966	CALL_ARG (name);	994	CALL_ARG (name);
967	CALL_CALL ("cf::player::find", G_SCALAR);	995	CALL_CALL ("cf::player::find", G_SCALAR);
968		996
969	player *retval;	997	player *retval = 0;
970
971	if (count)
972	sv_to (POPs, retval);	998	if (count) sv_to (POPs, retval);
973	else	999
974	retval = 0;	1000	CALL_END;
		1001
		1002	return retval;
		1003	}
		1004
		1005	maptile *
		1006	find_style (const char dirname, const char stylename, int difficulty)
		1007	{
		1008	CALL_BEGIN (3);
		1009	CALL_ARG (dirname);
		1010	CALL_ARG (stylename);
		1011	CALL_ARG (difficulty);
		1012	CALL_CALL ("ext::map_random::find_style", G_SCALAR);
		1013
		1014	maptile *retval = 0;
		1015	if (count) sv_to (POPs, retval);
975		1016
976	CALL_END;	1017	CALL_END;
977		1018
978	return retval;	1019	return retval;
979	}	1020	}
…		…
984	CALL_BEGIN (2);	1025	CALL_BEGIN (2);
985	CALL_ARG (path);	1026	CALL_ARG (path);
986	CALL_ARG (origin);	1027	CALL_ARG (origin);
987	CALL_CALL ("cf::map::find_sync", G_SCALAR);	1028	CALL_CALL ("cf::map::find_sync", G_SCALAR);
988		1029
989	maptile *retval;	1030	maptile *retval = 0;
990
991	if (count)
992	sv_to (POPs, retval);	1031	if (count) sv_to (POPs, retval);
993	else
994	retval = 0;
995		1032
996	CALL_END;	1033	CALL_END;
997		1034
998	return retval;	1035	return retval;
999	}	1036	}
…		…
1005	CALL_ARG (path);	1042	CALL_ARG (path);
1006	CALL_ARG (origin);	1043	CALL_ARG (origin);
1007	CALL_ARG (load);	1044	CALL_ARG (load);
1008	CALL_CALL ("cf::map::find_async", G_SCALAR);	1045	CALL_CALL ("cf::map::find_async", G_SCALAR);
1009		1046
1010	maptile *retval;	1047	maptile *retval = 0;
1011
1012	if (count)
1013	sv_to (POPs, retval);	1048	if (count) sv_to (POPs, retval);
1014	else
1015	retval = 0;
1016		1049
1017	CALL_END;	1050	CALL_END;
1018		1051
1019	return retval;	1052	return retval;
1020	}	1053	}
…		…
1045		1078
1046	CALL_BEGIN (2);	1079	CALL_BEGIN (2);
1047	CALL_ARG (this);	1080	CALL_ARG (this);
1048	CALL_ARG (exit);	1081	CALL_ARG (exit);
1049	CALL_CALL ("cf::object::player::enter_exit", G_VOID);	1082	CALL_CALL ("cf::object::player::enter_exit", G_VOID);
		1083	CALL_END;
		1084	}
		1085
		1086	void
		1087	object::player_goto (const char *path, int x, int y)
		1088	{
		1089	if (type != PLAYER)
		1090	return;
		1091
		1092	CALL_BEGIN (4);
		1093	CALL_ARG (this);
		1094	CALL_ARG (path);
		1095	CALL_ARG (x);
		1096	CALL_ARG (y);
		1097	CALL_CALL ("cf::object::player::goto", G_VOID);
1050	CALL_END;	1098	CALL_END;
1051	}	1099	}
1052		1100
1053	const char *	1101	const char *
1054	object::ref () const	1102	object::ref () const
…		…
1095	#endif	1143	#endif
1096	}	1144	}
1097		1145
1098	/////////////////////////////////////////////////////////////////////////////	1146	/////////////////////////////////////////////////////////////////////////////
1099		1147
1100	struct EventAPI *watcher_base::GEventAPI;	1148	struct EVAPI *evapi::GEVAPI;
1101	struct CoroAPI *coroapi::GCoroAPI;	1149	struct CoroAPI *coroapi::GCoroAPI;
1102
1103	int coroapi::cede_counter;
1104	tstamp coroapi::next_cede;
1105		1150
1106	void coroapi::do_cede_to_tick ()	1151	void coroapi::do_cede_to_tick ()
1107	{	1152	{
1108	cede_counter = 0;	1153	cede_pending = 0;
1109
1110	cede ();	1154	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	}	1155	}
1131		1156
1132	void	1157	void
1133	coroapi::wait_for_tick ()	1158	coroapi::wait_for_tick ()
1134	{	1159	{
…		…
1143	CALL_BEGIN (0);	1168	CALL_BEGIN (0);
1144	CALL_CALL ("cf::wait_for_tick_begin", G_DISCARD);	1169	CALL_CALL ("cf::wait_for_tick_begin", G_DISCARD);
1145	CALL_END;	1170	CALL_END;
1146	}	1171	}
1147		1172
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	1173	void
1197	iow::poll (int events)	1174	iow::poll (int events)
1198	{	1175	{
1199	if (pe->poll != events)	1176	if (events != this->events)
1200	{	1177	{
		1178	int active = ev_is_active ((ev_io *)this);
1201	if (pe->poll) stop ();	1179	if (active) stop ();
1202	pe->poll = events;	1180	ev_io_set ((ev_io *)this, fd, events);
1203	if (pe->poll) start ();	1181	if (active) start ();
1204	}	1182	}
1205	}	1183	}
1206		1184
1207	void	1185	void
1208	_connect_to_perl ()	1186	_connect_to_perl ()
1209	{	1187	{
1210	stash_cf = gv_stashpv ("cf" , 1);	1188	stash_cf = gv_stashpv ("cf", 1);
1211		1189
1212	stash_cf_object_wrap = gv_stashpv ("cf::object::wrap", 1);	1190	stash_cf_object_wrap = gv_stashpv ("cf::object::wrap", 1);
1213	stash_cf_object_player_wrap = gv_stashpv ("cf::object::player::wrap", 1);	1191	stash_cf_object_player_wrap = gv_stashpv ("cf::object::player::wrap", 1);
1214	stash_cf_player_wrap = gv_stashpv ("cf::player::wrap", 1);	1192	stash_cf_player_wrap = gv_stashpv ("cf::player::wrap", 1);
1215	stash_cf_map_wrap = gv_stashpv ("cf::map::wrap" , 1);	1193	stash_cf_map_wrap = gv_stashpv ("cf::map::wrap" , 1);
		1194	stash_cf_mapspace_wrap = gv_stashpv ("cf::mapspace::wrap" , 1);
1216	stash_cf_client_wrap = gv_stashpv ("cf::client::wrap", 1);	1195	stash_cf_client_wrap = gv_stashpv ("cf::client::wrap", 1);
1217	stash_cf_arch_wrap = gv_stashpv ("cf::arch::wrap" , 1);	1196	stash_cf_arch_wrap = gv_stashpv ("cf::arch::wrap" , 1);
1218	stash_cf_party_wrap = gv_stashpv ("cf::party::wrap" , 1);	1197	stash_cf_party_wrap = gv_stashpv ("cf::party::wrap" , 1);
1219	stash_cf_region_wrap = gv_stashpv ("cf::region::wrap", 1);	1198	stash_cf_region_wrap = gv_stashpv ("cf::region::wrap", 1);
1220	stash_cf_living_wrap = gv_stashpv ("cf::living::wrap", 1);	1199	stash_cf_living_wrap = gv_stashpv ("cf::living::wrap", 1);
1221		1200
		1201	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);	1202	sv_runtime = get_sv ("cf::RUNTIME" , 1); SvUPGRADE (sv_runtime , SVt_NV);
		1203	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);	1204	sv_next_tick = get_sv ("cf::NEXT_TICK" , 1); SvUPGRADE (sv_next_tick , SVt_NV);
1224		1205
1225	cb_global = get_av ("cf::CB_GLOBAL", 1);	1206	cb_global = get_av ("cf::CB_GLOBAL", 1);
1226	cb_attachable = get_av ("cf::CB_ATTACHABLE", 1);	1207	cb_attachable = get_av ("cf::CB_ATTACHABLE", 1);
1227	cb_object = get_av ("cf::CB_OBJECT", 1);	1208	cb_object = get_av ("cf::CB_OBJECT", 1);
1228	cb_player = get_av ("cf::CB_PLAYER", 1);	1209	cb_player = get_av ("cf::CB_PLAYER", 1);
…		…
1233		1214
1234	MODULE = cf PACKAGE = cf PREFIX = cf_	1215	MODULE = cf PACKAGE = cf PREFIX = cf_
1235		1216
1236	BOOT:	1217	BOOT:
1237	{	1218	{
1238	I_EVENT_API (PACKAGE); watcher_base::GEventAPI = GEventAPI;	1219	I_EV_API (PACKAGE); evapi::GEVAPI = GEVAPI;
1239	I_CORO_API (PACKAGE); coroapi::GCoroAPI = GCoroAPI;	1220	I_CORO_API (PACKAGE); coroapi::GCoroAPI = GCoroAPI;
1240		1221
1241	_connect_to_perl ();	1222	_connect_to_perl ();
1242		1223
1243	newCONSTSUB (stash_cf, "VERSION", newSVpv (VERSION, sizeof (VERSION) - 1));	1224	newCONSTSUB (stash_cf, "VERSION", newSVpv (VERSION, sizeof (VERSION) - 1));
1244		1225
…		…
1262	const_iv (Map0Cmd) const_iv (Map1Cmd) const_iv (Map1aCmd)	1243	const_iv (Map0Cmd) const_iv (Map1Cmd) const_iv (Map1aCmd)
1263		1244
1264	const_iv (MAP_CLIENT_X) const_iv (MAP_CLIENT_Y)	1245	const_iv (MAP_CLIENT_X) const_iv (MAP_CLIENT_Y)
1265		1246
1266	const_iv (MAX_TIME)	1247	const_iv (MAX_TIME)
		1248	const_iv (MAXSOCKBUF)
1267		1249
1268	const_iv (NUM_BODY_LOCATIONS)	1250	const_iv (NUM_BODY_LOCATIONS)
1269	const_iv (body_range) const_iv (body_shield) const_iv (body_combat)	1251	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)	1252	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)	1253	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)	1319	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)	1320	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)	1321	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)	1322	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)	1323	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)	1324	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)	1325	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)	1326	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)	1327	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)	1328	const_iv (FLAG_DESTROY_ON_DEATH) const_iv (FLAG_NO_MAP_SAVE)
1347		1329
1348	const_iv (NDI_BLACK) const_iv (NDI_WHITE) const_iv (NDI_NAVY) const_iv (NDI_RED)	1330	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)	1331	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)	1332	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)	1333	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)	1334	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)	1335	const_iv (NDI_NOCREATE) const_iv (NDI_CLEAR) const_iv (NDI_VERBATIM)
1354		1336
1355	const_iv (UPD_LOCATION) const_iv (UPD_FLAGS) const_iv (UPD_WEIGHT) const_iv (UPD_FACE)	1337	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)	1338	const_iv (UPD_NAME) const_iv (UPD_ANIM) const_iv (UPD_ANIMSPEED) const_iv (UPD_NROF)
1357		1339
1358	const_iv (UPD_SP_MANA) const_iv (UPD_SP_GRACE) const_iv (UPD_SP_DAMAGE)	1340	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)	1392	const_iv (F_CURSED) const_iv (F_DAMNED) const_iv (F_OPEN) const_iv (F_NOPICK)
1411	const_iv (F_LOCKED)	1393	const_iv (F_LOCKED)
1412		1394
1413	const_iv (F_BUY) const_iv (F_SHOP) const_iv (F_SELL)	1395	const_iv (F_BUY) const_iv (F_SHOP) const_iv (F_SELL)
1414		1396
1415	const_iv (P_BLOCKSVIEW) const_iv (P_PLAYER) const_iv (P_NO_MAGIC) const_iv (P_IS_ALIVE)	1397	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)	1398	const_iv (P_NO_CLERIC) const_iv (P_OUT_OF_MAP) const_iv (P_NEW_MAP) const_iv (P_UPTODATE)
1417		1399
1418	const_iv (UP_OBJ_INSERT) const_iv (UP_OBJ_REMOVE) const_iv (UP_OBJ_CHANGE) const_iv (UP_OBJ_FACE)	1400	const_iv (UP_OBJ_INSERT) const_iv (UP_OBJ_REMOVE) const_iv (UP_OBJ_CHANGE) const_iv (UP_OBJ_FACE)
1419		1401
1420	const_iv (INS_NO_MERGE) const_iv (INS_ABOVE_FLOOR_ONLY) const_iv (INS_NO_WALK_ON)	1402	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)	1403	const_iv (INS_ON_TOP) const_iv (INS_BELOW_ORIGINATOR)
1422		1404
1423	const_iv (WILL_APPLY_HANDLE) const_iv (WILL_APPLY_TREASURE) const_iv (WILL_APPLY_EARTHWALL)	1405	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)	1406	const_iv (WILL_APPLY_DOOR) const_iv (WILL_APPLY_FOOD)
1425		1407
1426	const_iv (SAVE_MODE) const_iv (SAVE_DIR_MODE)	1408	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)	1442	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)	1443	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)	1444	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)	1445	const_iv (ATNR_LIFE_STEALING) const_iv (ATNR_DISEASE)
1464		1446
1465	const_iv (MAP_IN_MEMORY) const_iv (MAP_SWAPPED) const_iv (MAP_LOADING) const_iv (MAP_SAVING)	1447	const_iv (MAP_ACTIVE) const_iv (MAP_SWAPPED) const_iv (MAP_LOADING) const_iv (MAP_SAVING)
		1448	const_iv (MAP_INACTIVE)
1466		1449
1467	const_iv (KLASS_ATTACHABLE) const_iv (KLASS_GLOBAL) const_iv (KLASS_OBJECT)	1450	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)	1451	const_iv (KLASS_CLIENT) const_iv (KLASS_PLAYER) const_iv (KLASS_MAP)
1469		1452
1470	const_iv (VERSION_CS) const_iv (VERSION_SC)	1453	const_iv (VERSION_CS) const_iv (VERSION_SC)
…		…
1485		1468
1486	const_iv (SYMMETRY_RANDOM) const_iv (SYMMETRY_NONE) const_iv (SYMMETRY_X)	1469	const_iv (SYMMETRY_RANDOM) const_iv (SYMMETRY_NONE) const_iv (SYMMETRY_X)
1487	const_iv (SYMMETRY_Y) const_iv (SYMMETRY_XY)	1470	const_iv (SYMMETRY_Y) const_iv (SYMMETRY_XY)
1488		1471
1489	const_iv (GT_ENVIRONMENT) const_iv (GT_INVISIBLE) const_iv (GT_STARTEQUIP)	1472	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)	1473	const_iv (GT_APPLY) const_iv (GT_ONLY_GOOD) const_iv (GT_MINIMAL)
1491	const_iv (GT_MINIMAL)
1492		1474
1493	const_iv (FT_FACE) const_iv (FT_MUSIC) const_iv (FT_SOUND)	1475	const_iv (FT_FACE) const_iv (FT_MUSIC) const_iv (FT_SOUND)
1494	const_iv (FT_RSRC) const_iv (FT_NUM)	1476	const_iv (FT_RSRC) const_iv (FT_NUM)
1495	};	1477	};
1496		1478
…		…
1518	av_store (av, eiv->iv, newRV_noinc ((SV *)event));	1500	av_store (av, eiv->iv, newRV_noinc ((SV *)event));
1519	newCONSTSUB (stash_cf, (char *)eiv->name, newSViv (eiv->iv));	1501	newCONSTSUB (stash_cf, (char *)eiv->name, newSViv (eiv->iv));
1520	}	1502	}
1521	}	1503	}
1522		1504
		1505	void _gv_clear (SV *gv)
		1506	CODE:
		1507	assert (SvTYPE (gv) == SVt_PVGV);
		1508	# define f(sv) { SV sv_ = (SV )(sv); sv = 0; SvREFCNT_dec (sv_); }
		1509	f (GvGP (gv)->gp_form);
		1510	f (GvGP (gv)->gp_io);
		1511	f (GvGP (gv)->gp_sv);
		1512	f (GvGP (gv)->gp_av);
		1513	f (GvGP (gv)->gp_hv);
		1514	f (GvGP (gv)->gp_cv);
		1515	GvCVGEN (gv) = 0;
		1516	GvMULTI_off (gv);
		1517	# undef f
		1518
1523	void _connect_to_perl ()	1519	void _connect_to_perl ()
1524		1520
1525	void _recalc_want ()	1521	void _recalc_want ()
1526		1522
1527	void _global_reattach ()	1523	void _global_reattach ()
…		…
1575	}	1571	}
1576		1572
1577	SvCUR_set (data_sv, dst - SvPVX (data_sv));	1573	SvCUR_set (data_sv, dst - SvPVX (data_sv));
1578	}	1574	}
1579		1575
		1576	void init_anim ()
		1577
		1578	void init_globals ()
		1579
		1580	void init_experience ()
		1581
		1582	void init_attackmess ()
		1583
		1584	void init_dynamic ()
		1585
		1586	void init_block ()
		1587
		1588	void load_settings ()
		1589
		1590	void load_materials ()
		1591
		1592	void init_uuid ()
		1593	CODE:
		1594	UUID::init ();
		1595
		1596	void init_signals ()
		1597
		1598	void init_commands ()
		1599
		1600	void init_skills ()
		1601
		1602	void init_beforeplay ()
		1603
		1604	void evthread_start (int aiofd)
		1605
1580	void _post_tick ()	1606	void cede_to_tick ()
1581	CODE:	1607	CODE:
1582	coroapi::next_cede = SvNV (sv_next_tick) - TICK * (1. - 1. / CEDES_PER_TICK);	1608	coroapi::cede_to_tick ();
1583		1609
1584	NV till_cede ()	1610	NV till_tick ()
1585	CODE:	1611	CODE:
1586	RETVAL = coroapi::next_cede - now ();	1612	RETVAL = SvNVX (sv_next_tick) - now ();
1587	OUTPUT:	1613	OUTPUT:
1588	RETVAL	1614	RETVAL
1589		1615
1590	NV till_tick ()	1616	int tick_inhibit ()
1591	CODE:	1617	CODE:
1592	RETVAL = SvNV (sv_next_tick) - now ();	1618	RETVAL = tick_inhibit;
1593	OUTPUT:	1619	OUTPUT:
1594	RETVAL	1620	RETVAL
1595		1621
		1622	void tick_inhibit_inc ()
		1623	CODE:
		1624	++tick_inhibit;
		1625
		1626	void tick_inhibit_dec ()
		1627	CODE:
		1628	if (!--tick_inhibit)
		1629	if (tick_pending)
		1630	{
		1631	ev_async_send (EV_DEFAULT, &tick_watcher);
		1632	coroapi::cede ();
		1633	}
		1634
		1635	void server_tick ()
		1636	CODE:
		1637	{
		1638	NOW = ev_now (EV_DEFAULT);
		1639	SvNV_set (sv_now, NOW); SvNOK_only (sv_now);
		1640	SvNV_set (sv_tick_start, NOW); SvNOK_only (sv_tick_start);
		1641	runtime = SvNVX (sv_runtime);
		1642
		1643	server_tick ();
		1644
		1645	NOW = ev_time ();
		1646	SvNV_set (sv_now, NOW); SvNOK_only (sv_now);
		1647	runtime += TICK;
		1648	SvNV_set (sv_runtime, runtime); SvNOK_only (sv_runtime);
		1649	}
		1650
1596	NV floor (NV x)	1651	NV floor (NV x)
1597		1652
1598	NV ceil (NV x)	1653	NV ceil (NV x)
1599		1654
1600	NV rndm (...)	1655	NV rndm (...)
		1656	ALIAS:
		1657	rmg_rndm = 1
1601	CODE:	1658	CODE:
		1659	{
		1660	rand_gen &gen = ix ? rmg_rndm : rndm;
1602	switch (items)	1661	switch (items)
1603	{	1662	{
1604	case 0: RETVAL = rndm (); break;	1663	case 0: RETVAL = gen (); break;
1605	case 1: RETVAL = rndm (SvUV (ST (0))); break;	1664	case 1: RETVAL = gen (SvUV (ST (0))); break;
1606	case 2: RETVAL = rndm (SvIV (ST (0)), SvIV (ST (1))); break;	1665	case 2: RETVAL = gen (SvIV (ST (0)), SvIV (ST (1))); break;
1607	default: croak ("cf::rndm requires none, one or two parameters."); break;	1666	default: croak ("cf::rndm requires none, one or two parameters."); break;
1608	}	1667	}
		1668	}
1609	OUTPUT:	1669	OUTPUT:
1610	RETVAL	1670	RETVAL
1611		1671
1612	NV clamp (NV value, NV min_value, NV max_value)	1672	NV clamp (NV value, NV min_value, NV max_value)
1613	CODE:	1673	CODE:
…		…
1619	CODE:	1679	CODE:
1620	RETVAL = lerp (value, min_in, max_in, min_out, max_out);	1680	RETVAL = lerp (value, min_in, max_in, min_out, max_out);
1621	OUTPUT:	1681	OUTPUT:
1622	RETVAL	1682	RETVAL
1623		1683
1624	void cede_to_tick ()	1684	void weaken (...)
1625	CODE:	1685	PROTOTYPE: @
1626	coroapi::cede_to_tick ();	1686	CODE:
1627		1687	while (items > 0)
1628	void server_tick ()	1688	sv_rvweaken (ST (--items));
1629	CODE:
1630	NOW = now ();
1631	runtime = SvNVx (sv_runtime);
1632	server_tick ();
1633		1689
1634	void	1690	void
1635	log_backtrace (utf8_string msg)	1691	log_backtrace (utf8_string msg)
1636		1692
1637	void	1693	void
…		…
1676		1732
1677	void abort ()	1733	void abort ()
1678		1734
1679	void reset_signals ()	1735	void reset_signals ()
1680		1736
1681	void fork_abort (octet_string cause = "cf::fork_abort")	1737	void fork_abort (const_octet_string cause = "cf::fork_abort")
1682		1738
1683	void cleanup (octet_string cause, bool make_core = false)	1739	void cleanup (const_octet_string cause, bool make_core = false)
1684		1740
1685	void emergency_save ()	1741	void emergency_save ()
1686		1742
1687	void _exit (int status = EXIT_SUCCESS)	1743	void _exit (int status = EXIT_SUCCESS)
1688		1744
1689	UV sv_2watcher (SV *w)
1690	CODE:
1691	RETVAL = (UV)GEventAPI->sv_2watcher (w);
1692	OUTPUT:
1693	RETVAL
1694
1695	#if _POSIX_MEMLOCK	1745	#if _POSIX_MEMLOCK
1696		1746
1697	int mlockall (int flags = MCL_CURRENT \| MCL_FUTURE)	1747	int mlockall (int flags = MCL_CURRENT \| MCL_FUTURE)
		1748	INIT:
		1749	#if __GLIBC__
		1750	mallopt (M_TOP_PAD, 1024 * 1024);
		1751	mallopt (M_MMAP_THRESHOLD, 1024 * 1024 * 128);
		1752	mallopt (M_MMAP_MAX, 0); // likely bug-workaround, also frees memory
		1753	mallopt (M_PERTURB, 0xee); // bug-workaround for linux glibc+mlockall+calloc
		1754	#endif
1698		1755
1699	int munlockall ()	1756	int munlockall ()
1700		1757
1701	#endif	1758	#endif
		1759
		1760	int
		1761	malloc_trim (IV pad = 0)
		1762
		1763	void
		1764	mallinfo ()
		1765	PPCODE:
		1766	{
		1767	#if __GLIBC__
		1768	struct mallinfo mai = mallinfo ();
		1769	EXTEND (SP, 10*2);
		1770	PUSHs (sv_2mortal (newSVpv ("arena" , 0))); PUSHs (sv_2mortal (newSViv (mai.arena)));
		1771	PUSHs (sv_2mortal (newSVpv ("ordblks" , 0))); PUSHs (sv_2mortal (newSViv (mai.ordblks)));
		1772	PUSHs (sv_2mortal (newSVpv ("smblks" , 0))); PUSHs (sv_2mortal (newSViv (mai.smblks)));
		1773	PUSHs (sv_2mortal (newSVpv ("hblks" , 0))); PUSHs (sv_2mortal (newSViv (mai.hblks)));
		1774	PUSHs (sv_2mortal (newSVpv ("hblkhd" , 0))); PUSHs (sv_2mortal (newSViv (mai.hblkhd)));
		1775	PUSHs (sv_2mortal (newSVpv ("usmblks" , 0))); PUSHs (sv_2mortal (newSViv (mai.usmblks)));
		1776	PUSHs (sv_2mortal (newSVpv ("fsmblks" , 0))); PUSHs (sv_2mortal (newSViv (mai.fsmblks)));
		1777	PUSHs (sv_2mortal (newSVpv ("uordblks", 0))); PUSHs (sv_2mortal (newSViv (mai.uordblks)));
		1778	PUSHs (sv_2mortal (newSVpv ("fordblks", 0))); PUSHs (sv_2mortal (newSViv (mai.fordblks)));
		1779	PUSHs (sv_2mortal (newSVpv ("keepcost", 0))); PUSHs (sv_2mortal (newSViv (mai.keepcost)));
		1780	#endif
		1781	EXTEND (SP, 2*2);
		1782	PUSHs (sv_2mortal (newSVpv ("slice_alloc", 0))); PUSHs (sv_2mortal (newSVuv (slice_alloc)));
		1783	PUSHs (sv_2mortal (newSVpv ("shstr_alloc", 0))); PUSHs (sv_2mortal (newSVuv (shstr_alloc)));
		1784	PUSHs (sv_2mortal (newSVpv ("objects" , 0))); PUSHs (sv_2mortal (newSVuv (objects.size () * sizeof (object))));
		1785	}
1702		1786
1703	int find_animation (utf8_string text)	1787	int find_animation (utf8_string text)
1704	PROTOTYPE: $	1788	PROTOTYPE: $
1705		1789
1706	int random_roll (int min, int max, object *op, int goodbad);	1790	int random_roll (int min, int max, object *op, int goodbad);
…		…
1744	RETVAL = newSVpv (resist_plus[atnr], 0);	1828	RETVAL = newSVpv (resist_plus[atnr], 0);
1745	else	1829	else
1746	XSRETURN_UNDEF;	1830	XSRETURN_UNDEF;
1747	OUTPUT: RETVAL	1831	OUTPUT: RETVAL
1748		1832
		1833	UUID
		1834	uuid_cur ()
		1835	CODE:
		1836	RETVAL = UUID::cur;
		1837	OUTPUT:
		1838	RETVAL
		1839
		1840	UUID
		1841	uuid_gen ()
		1842	CODE:
		1843	RETVAL = UUID::gen ();
		1844	OUTPUT:
		1845	RETVAL
		1846
		1847	val64
		1848	uuid_seq (UUID uuid)
		1849	CODE:
		1850	RETVAL = uuid.seq;
		1851	OUTPUT:
		1852	RETVAL
		1853
		1854	UUID
		1855	uuid_str (val64 seq)
		1856	CODE:
		1857	RETVAL.seq = seq;
		1858	OUTPUT:
		1859	RETVAL
		1860
		1861	void
		1862	coin_names ()
		1863	PPCODE:
		1864	EXTEND (SP, NUM_COINS);
		1865	for (int i = 0; i < NUM_COINS; ++i)
		1866	PUSHs (sv_2mortal (newSVpv (coins [i], 0)));
		1867
		1868	void
		1869	coin_archetypes ()
		1870	PPCODE:
		1871	EXTEND (SP, NUM_COINS);
		1872	for (int i = 0; i < NUM_COINS; ++i)
		1873	PUSHs (sv_2mortal (to_sv (archetype::find (coins [i]))));
		1874
1749	bool	1875	bool
1750	load_resource_file (octet_string filename)	1876	load_resource_file_ (octet_string filename)
		1877
		1878	void
		1879	fix_weight ()
1751		1880
1752	MODULE = cf PACKAGE = cf::attachable	1881	MODULE = cf PACKAGE = cf::attachable
1753		1882
1754	int	1883	int
1755	valid (SV *obj)	1884	valid (SV *obj)
…		…
1819	object *actives (U32 index)	1948	object *actives (U32 index)
1820	CODE:	1949	CODE:
1821	RETVAL = index < actives.size () ? actives [index] : 0;	1950	RETVAL = index < actives.size () ? actives [index] : 0;
1822	OUTPUT: RETVAL	1951	OUTPUT: RETVAL
1823		1952
		1953	int mortals_size ()
		1954	CODE:
		1955	RETVAL = attachable::mortals.size ();
		1956	OUTPUT: RETVAL
		1957
1824	const char *slot_use_name (U32 slot)	1958	const char *slot_use_name (U32 slot)
1825	ALIAS:	1959	ALIAS:
1826	slot_nonuse_name = 1	1960	slot_nonuse_name = 1
1827	CODE:	1961	CODE:
1828	{	1962	{
…		…
1906	void apply_below (object *op)	2040	void apply_below (object *op)
1907	CODE:	2041	CODE:
1908	player_apply_below (op);	2042	player_apply_below (op);
1909		2043
1910	int cast_heal (object op, object caster, object *spell, int dir = 0)	2044	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		2045
1924	int pay_item (object op, object buyer)	2046	int pay_item (object op, object buyer)
1925	CODE:	2047	CODE:
1926	RETVAL = pay_for_item (op, buyer);	2048	RETVAL = pay_for_item (op, buyer);
1927	OUTPUT: RETVAL	2049	OUTPUT: RETVAL
…		…
2005	CODE:	2127	CODE:
2006	{	2128	{
2007	RETVAL = insert_ob_in_map_at (ob, where, orig, flag, x, y);	2129	RETVAL = insert_ob_in_map_at (ob, where, orig, flag, x, y);
2008	}	2130	}
2009		2131
2010	const_utf8_string get_ob_key_value (object *op, utf8_string key)	2132	shstr
		2133	object::kv_get (shstr key)
2011		2134
2012	bool set_ob_key_value (object *op, utf8_string key, utf8_string value = 0, int add_key = 1)	2135	void
		2136	object::kv_del (shstr key)
		2137
		2138	void
		2139	object::kv_set (shstr key, shstr value)
2013		2140
2014	object get_nearest_player (object ob)	2141	object get_nearest_player (object ob)
2015	ALIAS: nearest_player = 0	2142	ALIAS: nearest_player = 0
2016	PREINIT:	2143	PREINIT:
2017	extern object get_nearest_player (object );	2144	extern object get_nearest_player (object );
…		…
2019	void rangevector (object ob, object other, int flags = 0)	2146	void rangevector (object ob, object other, int flags = 0)
2020	PROTOTYPE: $$;$	2147	PROTOTYPE: $$;$
2021	PPCODE:	2148	PPCODE:
2022	{	2149	{
2023	rv_vector rv;	2150	rv_vector rv;
		2151
		2152	PUTBACK;
2024	get_rangevector (ob, other, &rv, flags);	2153	get_rangevector (ob, other, &rv, flags);
		2154	SPAGAIN;
		2155
2025	EXTEND (SP, 5);	2156	EXTEND (SP, 5);
2026	PUSHs (newSVuv (rv.distance));	2157	PUSHs (newSVuv (rv.distance));
2027	PUSHs (newSViv (rv.distance_x));	2158	PUSHs (newSViv (rv.distance_x));
2028	PUSHs (newSViv (rv.distance_y));	2159	PUSHs (newSViv (rv.distance_y));
2029	PUSHs (newSViv (rv.direction));	2160	PUSHs (newSViv (rv.direction));
…		…
2039	base_name (object *op, int plural = op->nrof > 1)	2170	base_name (object *op, int plural = op->nrof > 1)
2040	CODE:	2171	CODE:
2041	RETVAL = query_base_name (op, plural);	2172	RETVAL = query_base_name (op, plural);
2042	OUTPUT: RETVAL	2173	OUTPUT: RETVAL
2043		2174
2044	object decrease_ob_nr (object op, unsigned long i)
2045
2046	# return the tail of an object, excluding itself	2175	# return the tail of an object, excluding itself
2047	void	2176	void
2048	tail (object *op)	2177	tail (object *op)
2049	PPCODE:	2178	PPCODE:
2050	while ((op = op->more))	2179	while ((op = op->more))
…		…
2117	CODE:	2246	CODE:
2118	{	2247	{
2119	STRLEN len;	2248	STRLEN len;
2120	char *buf = SvPVbyte (packet, len);	2249	char *buf = SvPVbyte (packet, len);
2121		2250
		2251	if (len > MAXSOCKBUF)
		2252	pl->failmsg ("[packet too long for client]");
2122	if (pl->ns)	2253	else if (pl->ns)
2123	pl->ns->send_packet (buf, len);	2254	pl->ns->send_packet (buf, len);
2124	}	2255	}
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		2256
2135	void savebed (player pl, SV map_path = 0, SV x = 0, SV y = 0)	2257	void savebed (player pl, SV map_path = 0, SV x = 0, SV y = 0)
2136	PROTOTYPE: $;$$$	2258	PROTOTYPE: $;$$$
2137	PPCODE:	2259	PPCODE:
2138	if (GIMME_V != G_VOID)	2260	if (GIMME_V != G_VOID)
…		…
2293	}	2415	}
2294		2416
2295	void	2417	void
2296	maptile::create_region_treasure ()	2418	maptile::create_region_treasure ()
2297	CODE:	2419	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)	2420	for (int x = 0; x < THIS->width; ++x)
2304	for (int y = 0; y < THIS->height; ++y)	2421	for (int y = 0; y < THIS->height; ++y)
2305	{	2422	{
2306	region *rgn = THIS->region (x, y);	2423	region *rgn = THIS->region (x, y);
2307		2424
2308	//fprintf (stderr, "%d,%d %f %p\n", x, y, rgn->treasure_density,rgn->treasure);//D	2425	//fprintf (stderr, "%d,%d %f %p\n", x, y, rgn->treasure_density,rgn->treasure);//D
		2426	if (object *op = THIS->at (x, y).top)
2309	if (rgn->treasure && rndm () < rgn->treasure_density)	2427	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);	2428	create_treasure (rgn->treasure, op, GT_ENVIRONMENT, THIS->difficulty);
2314	}
2315	}	2429	}
2316
2317	op->destroy ();
2318	}
2319		2430
2320	int out_of_map (maptile *map, int x, int y)	2431	int out_of_map (maptile *map, int x, int y)
2321		2432
2322	void	2433	void
2323	trigger (maptile *map, long connection, bool state = true)	2434	trigger (maptile *map, long connection, bool state = true)
…		…
2336	get_map_flags (maptile *map, int x, int y)	2447	get_map_flags (maptile *map, int x, int y)
2337	PPCODE:	2448	PPCODE:
2338	{	2449	{
2339	maptile *nmap = 0;	2450	maptile *nmap = 0;
2340	I16 nx = 0, ny = 0;	2451	I16 nx = 0, ny = 0;
		2452
		2453	PUTBACK;
2341	int flags = get_map_flags (map, &nmap, x, y, &nx, &ny);	2454	int flags = get_map_flags (map, &nmap, x, y, &nx, &ny);
		2455	SPAGAIN;
2342		2456
2343	EXTEND (SP, 4);	2457	EXTEND (SP, 4);
2344	PUSHs (sv_2mortal (newSViv (flags)));	2458	PUSHs (sv_2mortal (newSViv (flags)));
2345		2459
2346	if (GIMME_V == G_ARRAY)	2460	if (GIMME_V == G_ARRAY)
…		…
2349	PUSHs (sv_2mortal (newSViv (nx)));	2463	PUSHs (sv_2mortal (newSViv (nx)));
2350	PUSHs (sv_2mortal (newSViv (ny)));	2464	PUSHs (sv_2mortal (newSViv (ny)));
2351	}	2465	}
2352	}	2466	}
2353		2467
		2468	mapspace *
		2469	ms (maptile *map, unsigned int x, unsigned int y)
		2470	PROTOTYPE: $$$
		2471	CODE:
		2472	{
		2473	maptile *nmap = 0;
		2474	I16 nx, ny;
		2475
		2476	PUTBACK;
		2477	get_map_flags (map, &nmap, x, y, &nx, &ny);
		2478	SPAGAIN;
		2479
		2480	if (!nmap)
		2481	XSRETURN_UNDEF;
		2482
		2483	RETVAL = &nmap->at (nx, ny);
		2484	}
		2485	OUTPUT:
		2486	RETVAL
		2487
2354	void	2488	void
2355	at (maptile *map, unsigned int x, unsigned int y)	2489	at (maptile *map, unsigned int x, unsigned int y)
2356	PROTOTYPE: $$$	2490	PROTOTYPE: $$$
2357	PPCODE:	2491	PPCODE:
2358	{	2492	{
2359	object *o;
2360	maptile *nmap = 0;	2493	maptile *nmap = 0;
2361	I16 nx, ny;	2494	I16 nx, ny;
2362		2495
		2496	PUTBACK;
2363	get_map_flags (map, &nmap, x, y, &nx, &ny);	2497	get_map_flags (map, &nmap, x, y, &nx, &ny);
		2498	SPAGAIN;
2364		2499
2365	if (nmap)	2500	if (nmap)
2366	for (o = GET_MAP_OB (nmap, nx, ny); o; o = o->above)	2501	for (object *o = nmap->at (nx, ny).bot; o; o = o->above)
2367	XPUSHs (sv_2mortal (to_sv (o)));	2502	XPUSHs (sv_2mortal (to_sv (o)));
2368	}	2503	}
2369		2504
2370	SV *	2505	SV *
2371	bot_at (maptile *obj, unsigned int x, unsigned int y)	2506	bot_at (maptile *obj, unsigned int x, unsigned int y)
…		…
2484	RETVAL = self->generate_random_map (&rmp);	2619	RETVAL = self->generate_random_map (&rmp);
2485	}	2620	}
2486	OUTPUT:	2621	OUTPUT:
2487	RETVAL	2622	RETVAL
2488		2623
		2624	MODULE = cf PACKAGE = cf::mapspace
		2625
		2626	INCLUDE: $PERL $srcdir/genacc mapspace ../include/map.h \|
		2627
2489	MODULE = cf PACKAGE = cf::arch	2628	MODULE = cf PACKAGE = cf::arch
2490		2629
2491	int archetypes_size ()	2630	int archetypes_size ()
2492	CODE:	2631	CODE:
2493	RETVAL = archetypes.size ();	2632	RETVAL = archetypes.size ();
…		…
2579	CODE:	2718	CODE:
2580	{	2719	{
2581	STRLEN len;	2720	STRLEN len;
2582	char *buf = SvPVbyte (packet, len);	2721	char *buf = SvPVbyte (packet, len);
2583		2722
		2723	if (len > MAXSOCKBUF)
		2724	{
		2725	// ugly
		2726	if (THIS->pl)
		2727	THIS->pl->failmsg ("[packet too long for client]");
		2728	}
		2729	else
2584	THIS->send_packet (buf, len);	2730	THIS->send_packet (buf, len);
2585	}	2731	}
2586		2732
2587	faceidx	2733	faceidx
2588	client::need_face (utf8_string name, int pri = 0)	2734	client::need_face (utf8_string name, int pri = 0)
2589	CODE:	2735	CODE:
…		…
2688	}	2834	}
2689	}	2835	}
2690		2836
2691	int get_data_size (faceidx idx, int faceset = 0)	2837	int get_data_size (faceidx idx, int faceset = 0)
2692	CODE:	2838	CODE:
2693	facedata *d = face_data (idx, faceset); assert (d);	2839	facedata *d = face_data (idx, faceset);
		2840	if (!d) XSRETURN_UNDEF;
2694	RETVAL = d->data.size ();	2841	RETVAL = d->data.size ();
2695	OUTPUT:	2842	OUTPUT:
2696	RETVAL	2843	RETVAL
2697		2844
2698	SV *get_chksum (faceidx idx, int faceset = 0)	2845	SV *get_chksum (faceidx idx, int faceset = 0)
2699	CODE:	2846	CODE:
2700	facedata *d = face_data (idx, faceset); assert (d);	2847	facedata *d = face_data (idx, faceset);
		2848	if (!d) XSRETURN_UNDEF;
2701	RETVAL = newSVpvn ((char *)d->chksum, CHKSUM_SIZE);	2849	RETVAL = newSVpvn ((char *)d->chksum, CHKSUM_SIZE);
		2850	OUTPUT:
		2851	RETVAL
		2852
		2853	SV *get_data (faceidx idx, int faceset = 0)
		2854	CODE:
		2855	facedata *d = face_data (idx, faceset);
		2856	if (!d) XSRETURN_UNDEF;
		2857	RETVAL = newSVpvn (d->data.data (), d->data.length ());
2702	OUTPUT:	2858	OUTPUT:
2703	RETVAL	2859	RETVAL
2704		2860
2705	void invalidate (faceidx idx)	2861	void invalidate (faceidx idx)
2706	CODE:	2862	CODE:
…		…
2798	extract_tags (object_thawer *self)	2954	extract_tags (object_thawer *self)
2799	PPCODE:	2955	PPCODE:
2800	while (self->kw != KW_EOF)	2956	while (self->kw != KW_EOF)
2801	{	2957	{
2802	PUTBACK;	2958	PUTBACK;
2803	coroapi::cede_to_tick_every (5000);	2959	coroapi::cede_to_tick ();
2804	SPAGAIN;	2960	SPAGAIN;
2805		2961
2806	if (self->kw == KW_tag)	2962	if (self->kw == KW_tag)
2807	XPUSHs (sv_2mortal (newSVpv_utf8 (self->get_str ())));	2963	XPUSHs (sv_2mortal (newSVpv_utf8 (self->get_str ())));
2808		2964

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.303 by root, Tue Sep 23 04:29:11 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.303 by root, Tue Sep 23 04:29:11 2008 UTC