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

Comparing deliantra/server/server/cfperl.xs (file contents):
Revision 1.262 by root, Tue Oct 16 06:15:10 2007 UTC vs.
Revision 1.312 by root, Tue Dec 23 06:58:24 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
47	#if HAVE_MALLOC_H	44	#if HAVE_MALLOC_H
48	# include <malloc.h>	45	# include <malloc.h>
49	#endif	46	#endif
50		47
		48	#if !__GLIBC__
		49	# define malloc_trim(pad) -1
		50	#endif
		51
51	#include <EXTERN.h>	52	#include <EXTERN.h>
52	#include <perl.h>	53	#include <perl.h>
53	#include <XSUB.h>	54	#include <XSUB.h>
54		55
55	#include "CoroAPI.h"	56	#include "CoroAPI.h"
…		…
60	typedef object_thawer &object_thawer_ref;	61	typedef object_thawer &object_thawer_ref;
61	typedef object_freezer &object_freezer_ref;	62	typedef object_freezer &object_freezer_ref;
62		63
63	typedef std::string std__string;	64	typedef std::string std__string;
64		65
65	#if IVSIZE >= 8
66	typedef IV val64;
67	# define newSVval64 newSViv
68	# define SvVAL64 SvIV
69	#else
70	typedef double val64;
71	# define newSVval64 newSVnv
72	# define SvVAL64 SvNV
73	#endif
74
75	static PerlInterpreter *perl;	66	static PerlInterpreter *perl;
76		67
77	tstamp NOW, runtime;	68	tstamp NOW, runtime;
		69
		70	static int tick_inhibit;
		71	static int tick_pending;
78		72
79	global gbl_ev;	73	global gbl_ev;
80	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;
81	static SV sv_runtime, sv_next_tick;	75	static SV sv_runtime, sv_tick_start, sv_next_tick, sv_now;
82		76
83	bitset<NUM_EVENT_TYPES> ev_want_event;	77	bitset<NUM_EVENT_TYPES> ev_want_event;
84	bitset<NUM_TYPES> ev_want_type;	78	bitset<NUM_TYPES> ev_want_type;
85		79
86	static HV	80	static HV
87	*stash_cf,	81	*stash_cf,
88	*stash_cf_object_wrap,	82	*stash_cf_object_wrap,
89	*stash_cf_object_player_wrap,	83	*stash_cf_object_player_wrap,
90	*stash_cf_player_wrap,	84	*stash_cf_player_wrap,
91	*stash_cf_map_wrap,	85	*stash_cf_map_wrap,
		86	*stash_cf_mapspace_wrap,
92	*stash_cf_client_wrap,	87	*stash_cf_client_wrap,
93	*stash_cf_arch_wrap,	88	*stash_cf_arch_wrap,
94	*stash_cf_party_wrap,	89	*stash_cf_party_wrap,
95	*stash_cf_region_wrap,	90	*stash_cf_region_wrap,
96	*stash_cf_living_wrap;	91	*stash_cf_living_wrap;
97		92
		93	#ifndef newSVpv_utf8
98	static inline SV *	94	static inline SV *
99	newSVpv_utf8 (const char *s)	95	newSVpv_utf8 (const char *s)
100	{	96	{
101	if (!s)	97	if (!s)
102	return newSV (0);	98	return newSV (0);
103		99
104	SV *sv = newSVpv (s, 0);	100	SV *sv = newSVpv (s, 0);
105	SvUTF8_on (sv);	101	SvUTF8_on (sv);
106	return sv;	102	return sv;
107	}	103	}
		104	#endif
108		105
		106	#ifndef newSVpvn_utf8
109	static inline SV *	107	static inline SV *
110	newSVpvn_utf8 (const char *s, STRLEN l)	108	newSVpvn_utf8 (const char *s, STRLEN l, int utf8)
111	{	109	{
112	if (!s)	110	if (!s)
113	return newSV (0);	111	return newSV (0);
114		112
115	SV *sv = newSVpvn (s, l);	113	SV *sv = newSVpvn (s, l);
		114
		115	if (utf8)
116	SvUTF8_on (sv);	116	SvUTF8_on (sv);
		117
117	return sv;	118	return sv;
118	}	119	}
		120	#endif
119		121
120	// helper cast function, returns super class * or 0	122	// helper cast function, returns super class * or 0
121	template<class super>	123	template<class super>
122	static super *	124	static super *
123	is_a (attachable *at)	125	is_a (attachable *at)
…		…
412	return SvPTR (sv, klass);	414	return SvPTR (sv, klass);
413	else	415	else
414	return 0;	416	return 0;
415	}	417	}
416		418
417	inline SV to_sv (const shstr & v) { return newSVpvn_utf8 ((const char )v, v.length ()); }	419	inline SV to_sv (const shstr & v) { return newSVpvn_utf8 ((const char )v, v.length (), 1); }
418	inline SV to_sv (const char v) { return v ? newSVpv (v, 0) : newSV (0); }	420	inline SV to_sv (const char v) { return v ? newSVpv (v, 0) : newSV (0); }
419	inline SV *to_sv (bool v) { return newSViv (v); }	421	inline SV *to_sv (bool v) { return newSViv (v); }
420	inline SV *to_sv ( signed char v) { return newSViv (v); }	422	inline SV *to_sv ( signed char v) { return newSViv (v); }
421	inline SV *to_sv (unsigned char v) { return newSViv (v); }	423	inline SV *to_sv (unsigned char v) { return newSViv (v); }
422	inline SV *to_sv ( signed short v) { return newSViv (v); }	424	inline SV *to_sv ( signed short v) { return newSViv (v); }
…		…
435	inline SV to_sv (maptile v) { return newSVattachable (v, stash_cf_map_wrap); }	437	inline SV to_sv (maptile v) { return newSVattachable (v, stash_cf_map_wrap); }
436	inline SV to_sv (archetype v) { return newSVattachable (v, stash_cf_arch_wrap); }	438	inline SV to_sv (archetype v) { return newSVattachable (v, stash_cf_arch_wrap); }
437	inline SV to_sv (region v) { return newSVattachable (v, stash_cf_region_wrap); }	439	inline SV to_sv (region v) { return newSVattachable (v, stash_cf_region_wrap); }
438	inline SV to_sv (partylist v) { return newSVptr (v, stash_cf_party_wrap); }	440	inline SV to_sv (partylist v) { return newSVptr (v, stash_cf_party_wrap); }
439	inline SV to_sv (living v) { return newSVptr (v, stash_cf_living_wrap); }	441	inline SV to_sv (living v) { return newSVptr (v, stash_cf_living_wrap); }
		442	inline SV to_sv (mapspace v) { return newSVptr (v, stash_cf_mapspace_wrap); }
440		443
441	inline SV *to_sv (object & v) { return to_sv (&v); }	444	inline SV *to_sv (object & v) { return to_sv (&v); }
442	inline SV *to_sv (living & v) { return to_sv (&v); }	445	inline SV *to_sv (living & v) { return to_sv (&v); }
443		446
444	inline SV *to_sv (const std::string & v) { return newSVpvn (v.data (), v.size ()); }	447	inline SV *to_sv (const std::string & v) { return newSVpvn (v.data (), v.size ()); }
445	inline SV to_sv (const treasurelist v) { return to_sv (v->name); }	448	inline SV to_sv (const treasurelist v) { return to_sv (v->name); }
446		449
		450	inline SV *to_sv (UUID v) { return newSVpv (v.c_str (), 0); }
		451
447	inline SV *to_sv (UUID v)	452	inline SV to_sv (dynbuf v)
448	{	453	{
449	char buf[128];	454	SV *sv = newSV (0);
450	snprintf (buf, 128, "<1.%" PRIx64 ">", v.seq);	455
451	return newSVpv (buf, 0);	456	sv_upgrade (sv, SVt_PV);
		457	SvGROW (sv, v->size () + 1);
		458	SvPOK_only (sv);
		459	v->linearise (SvPVX (sv));
		460	SvCUR_set (sv, v->size ());
		461	*SvEND (sv) = 0;
		462
		463	return sv;
		464	}
		465
		466	inline SV to_sv (dynbuf_text v)
		467	{
		468	SV sv = to_sv (static_cast<dynbuf > (v));
		469	SvUTF8_on (sv);
		470	return sv;
452	}	471	}
453		472
454	inline void sv_to (SV *sv, shstr &v) { v = SvOK (sv) ? SvPVutf8_nolen (sv) : 0; }	473	inline void sv_to (SV *sv, shstr &v) { v = SvOK (sv) ? SvPVutf8_nolen (sv) : 0; }
455	inline void sv_to (SV sv, char &v) { free (v); v = SvOK (sv) ? strdup (SvPV_nolen (sv)) : 0; }	474	inline void sv_to (SV sv, char &v) { free (v); v = SvOK (sv) ? strdup (SvPV_nolen (sv)) : 0; }
456	inline void sv_to (SV *sv, bool &v) { v = SvIV (sv); }	475	inline void sv_to (SV *sv, bool &v) { v = SvIV (sv); }
…		…
473	inline void sv_to (SV sv, maptile &v) { v = (maptile )(attachable )SvPTR_ornull (sv, "cf::map"); }	492	inline void sv_to (SV sv, maptile &v) { v = (maptile )(attachable )SvPTR_ornull (sv, "cf::map"); }
474	inline void sv_to (SV sv, region &v) { v = (region )(attachable )SvPTR_ornull (sv, "cf::region"); }	493	inline void sv_to (SV sv, region &v) { v = (region )(attachable )SvPTR_ornull (sv, "cf::region"); }
475	inline void sv_to (SV sv, attachable &v) { v = (attachable *)SvPTR_ornull (sv, "cf::attachable"); }	494	inline void sv_to (SV sv, attachable &v) { v = (attachable *)SvPTR_ornull (sv, "cf::attachable"); }
476	inline void sv_to (SV sv, partylist &v) { v = (partylist *)SvPTR_ornull (sv, "cf::party"); }	495	inline void sv_to (SV sv, partylist &v) { v = (partylist *)SvPTR_ornull (sv, "cf::party"); }
477	inline void sv_to (SV sv, living &v) { v = (living *)SvPTR_ornull (sv, "cf::living"); }	496	inline void sv_to (SV sv, living &v) { v = (living *)SvPTR_ornull (sv, "cf::living"); }
		497	inline void sv_to (SV sv, mapspace &v) { v = (mapspace *)SvPTR_ornull (sv, "cf::mapspace"); }
478	inline void sv_to (SV sv, object_freezer &v) { v = (object_freezer *)SvPTR_ornull (sv, "cf::object::freezer"); }	498	inline void sv_to (SV sv, object_freezer &v) { v = (object_freezer *)SvPTR_ornull (sv, "cf::object::freezer"); }
479	inline void sv_to (SV sv, object_thawer &v) { v = (object_thawer *)SvPTR_ornull (sv, "cf::object::thawer" ); }	499	inline void sv_to (SV sv, object_thawer &v) { v = (object_thawer *)SvPTR_ornull (sv, "cf::object::thawer" ); }
480		500
481	//inline void sv_to (SV sv, faceinfo &v) { v = &faces [face_find (SvPV_nolen (sv), 0)]; }	501	//inline void sv_to (SV sv, faceinfo &v) { v = &faces [face_find (SvPV_nolen (sv), 0)]; }
482	inline void sv_to (SV sv, treasurelist &v) { v = treasurelist::find (SvPV_nolen (sv)); }	502	inline void sv_to (SV sv, treasurelist &v) { v = treasurelist::find (SvPV_nolen (sv)); }
…		…
499	v.assign (data, len);	519	v.assign (data, len);
500	}	520	}
501		521
502	inline void sv_to (SV *sv, UUID &v)	522	inline void sv_to (SV *sv, UUID &v)
503	{	523	{
504	unsigned int version;	524	if (!v.parse (SvPV_nolen (sv)))
505
506	if (2 != sscanf (SvPV_nolen (sv), "<%d.%" SCNx64 ">", &version, &v.seq) \|\| 1 != version)
507	croak ("unparsable uuid: %s", SvPV_nolen (sv));	525	croak ("unparsable uuid: %s", SvPV_nolen (sv));
508	}	526	}
509		527
510	inline void sv_to (SV *sv, object::flags_t::reference v) { v = SvTRUE (sv); }	528	inline void sv_to (SV *sv, object::flags_t::reference v) { v = SvTRUE (sv); }
511		529
…		…
605	/////////////////////////////////////////////////////////////////////////////	623	/////////////////////////////////////////////////////////////////////////////
606		624
607	void	625	void
608	cfperl_init ()	626	cfperl_init ()
609	{	627	{
		628	extern char **environ;
		629
610	PERL_SYS_INIT3 (&settings.argc, &settings.argv, 0);	630	PERL_SYS_INIT3 (&settings.argc, &settings.argv, &environ);
611	perl = perl_alloc ();	631	perl = perl_alloc ();
612	perl_construct (perl);	632	perl_construct (perl);
613		633
614	PL_exit_flags \|= PERL_EXIT_DESTRUCT_END;	634	PL_exit_flags \|= PERL_EXIT_DESTRUCT_END;
615		635
616	const char *argv[] = {	636	const char *argv[] = {
617	settings.argv [0],	637	settings.argv [0],
618	"-e"	638	"-e0"
619	"use Event; use Coro;" // required for bootstrap
620	"cf->bootstrap;" // required for datadir :*>
621	"unshift @INC, cf::datadir ();"
622	"require cf;"
623	};	639	};
624		640
625	if (perl_parse (perl, xs_init, 2, (char )argv, (char )NULL)	641	if (perl_parse (perl, xs_init, 2, (char **)argv, environ)
626	\|\| perl_run (perl))	642	\|\| perl_run (perl))
627	{	643	{
628	printf ("unable to initialize perl-interpreter, aborting.\n");	644	printf ("unable to initialize perl-interpreter, aborting.\n");
629	exit (EXIT_FAILURE);	645	exit (EXIT_FAILURE);
630	}	646	}
631		647
		648	eval_pv (
		649	"#line 1 'cfperl init'\n"
		650	"use EV ();\n"
		651	"use Coro ();\n"
		652	"cf->bootstrap;\n"
		653	"unshift @INC, cf::datadir ();\n"
		654	"require cf;\n",
		655	0
		656	);
		657
		658	if (SvTRUE (ERRSV))
632	{	659	{
633	dSP;	660	printf ("unable to bootstrap perl, aborting:\n%s", SvPV_nolen (ERRSV));
634		661	exit (EXIT_FAILURE);
635	PUSHMARK (SP);
636	PUTBACK;
637	call_pv ("cf::init", G_DISCARD \| G_VOID);
638	}	662	}
639	}	663	}
640		664
641	void cfperl_main ()	665	void cfperl_main ()
642	{	666	{
643	dSP;	667	dSP;
…		…
907	}	931	}
908		932
909	/////////////////////////////////////////////////////////////////////////////	933	/////////////////////////////////////////////////////////////////////////////
910	// various c++ => perl glue functions	934	// various c++ => perl glue functions
911		935
		936	void cfperl_tick ()
		937	{
		938	tick_pending = 1;
		939
		940	if (tick_inhibit)
		941	return;
		942
		943	tick_pending = 0;
		944
		945	dSP;
		946
		947	PUSHMARK (SP);
		948	PUTBACK;
		949	call_pv ("cf::tick", G_DISCARD \| G_VOID);
		950
		951	SvNV_set (sv_next_tick, get_next_tick ()); SvNOK_only (sv_next_tick);
		952	}
		953
912	void	954	void
913	cfperl_emergency_save ()	955	cfperl_emergency_save ()
914	{	956	{
915	CALL_BEGIN (0);	957	CALL_BEGIN (0);
916	CALL_CALL ("cf::emergency_save", G_VOID);	958	CALL_CALL ("cf::emergency_save", G_VOID);
…		…
968	{	1010	{
969	CALL_BEGIN (1);	1011	CALL_BEGIN (1);
970	CALL_ARG (name);	1012	CALL_ARG (name);
971	CALL_CALL ("cf::player::find", G_SCALAR);	1013	CALL_CALL ("cf::player::find", G_SCALAR);
972		1014
973	player *retval;	1015	player *retval = 0;
974
975	if (count)
976	sv_to (POPs, retval);	1016	if (count) sv_to (POPs, retval);
977	else	1017
978	retval = 0;	1018	CALL_END;
		1019
		1020	return retval;
		1021	}
		1022
		1023	maptile *
		1024	find_style (const char dirname, const char stylename, int difficulty)
		1025	{
		1026	CALL_BEGIN (3);
		1027	CALL_ARG (dirname);
		1028	CALL_ARG (stylename);
		1029	CALL_ARG (difficulty);
		1030	CALL_CALL ("ext::map_random::find_style", G_SCALAR);
		1031
		1032	maptile *retval = 0;
		1033	if (count) sv_to (POPs, retval);
979		1034
980	CALL_END;	1035	CALL_END;
981		1036
982	return retval;	1037	return retval;
983	}	1038	}
…		…
988	CALL_BEGIN (2);	1043	CALL_BEGIN (2);
989	CALL_ARG (path);	1044	CALL_ARG (path);
990	CALL_ARG (origin);	1045	CALL_ARG (origin);
991	CALL_CALL ("cf::map::find_sync", G_SCALAR);	1046	CALL_CALL ("cf::map::find_sync", G_SCALAR);
992		1047
993	maptile *retval;	1048	maptile *retval = 0;
994
995	if (count)
996	sv_to (POPs, retval);	1049	if (count) sv_to (POPs, retval);
997	else
998	retval = 0;
999		1050
1000	CALL_END;	1051	CALL_END;
1001		1052
1002	return retval;	1053	return retval;
1003	}	1054	}
…		…
1009	CALL_ARG (path);	1060	CALL_ARG (path);
1010	CALL_ARG (origin);	1061	CALL_ARG (origin);
1011	CALL_ARG (load);	1062	CALL_ARG (load);
1012	CALL_CALL ("cf::map::find_async", G_SCALAR);	1063	CALL_CALL ("cf::map::find_async", G_SCALAR);
1013		1064
1014	maptile *retval;	1065	maptile *retval = 0;
1015
1016	if (count)
1017	sv_to (POPs, retval);	1066	if (count) sv_to (POPs, retval);
1018	else
1019	retval = 0;
1020		1067
1021	CALL_END;	1068	CALL_END;
1022		1069
1023	return retval;	1070	return retval;
1024	}	1071	}
…		…
1031	CALL_CALL ("cf::map::do_load_sync", G_SCALAR);	1078	CALL_CALL ("cf::map::do_load_sync", G_SCALAR);
1032	CALL_END;	1079	CALL_END;
1033	}	1080	}
1034		1081
1035	void	1082	void
1036	maptile::change_all_map_light (int change)
1037	{
1038	CALL_BEGIN (1);
1039	CALL_ARG (change);
1040	CALL_CALL ("cf::map::change_all_map_light", G_VOID);
1041	CALL_END;
1042	}
1043
1044	void
1045	object::enter_exit (object *exit)	1083	object::enter_exit (object *exit)
1046	{	1084	{
1047	if (type != PLAYER)	1085	if (type != PLAYER)
1048	return;	1086	return;
1049		1087
1050	CALL_BEGIN (2);	1088	CALL_BEGIN (2);
1051	CALL_ARG (this);	1089	CALL_ARG (this);
1052	CALL_ARG (exit);	1090	CALL_ARG (exit);
1053	CALL_CALL ("cf::object::player::enter_exit", G_VOID);	1091	CALL_CALL ("cf::object::player::enter_exit", G_VOID);
		1092	CALL_END;
		1093	}
		1094
		1095	void
		1096	object::player_goto (const char *path, int x, int y)
		1097	{
		1098	if (type != PLAYER)
		1099	return;
		1100
		1101	CALL_BEGIN (4);
		1102	CALL_ARG (this);
		1103	CALL_ARG (path);
		1104	CALL_ARG (x);
		1105	CALL_ARG (y);
		1106	CALL_CALL ("cf::object::player::goto", G_VOID);
1054	CALL_END;	1107	CALL_END;
1055	}	1108	}
1056		1109
1057	const char *	1110	const char *
1058	object::ref () const	1111	object::ref () const
…		…
1099	#endif	1152	#endif
1100	}	1153	}
1101		1154
1102	/////////////////////////////////////////////////////////////////////////////	1155	/////////////////////////////////////////////////////////////////////////////
1103		1156
1104	struct EventAPI *watcher_base::GEventAPI;	1157	struct EVAPI *evapi::GEVAPI;
1105	struct CoroAPI *coroapi::GCoroAPI;	1158	struct CoroAPI *coroapi::GCoroAPI;
1106
1107	int coroapi::cede_counter;
1108	tstamp coroapi::next_cede;
1109		1159
1110	void coroapi::do_cede_to_tick ()	1160	void coroapi::do_cede_to_tick ()
1111	{	1161	{
1112	cede_counter = 0;	1162	cede_pending = 0;
1113
1114	cede ();	1163	cede ();
1115
1116	next_cede += (TICK / CEDES_PER_TICK) * 0.99;
1117	if (next_cede > SvNV (sv_next_tick) - 0.02)
1118	next_cede = SvNV (sv_next_tick);
1119	}
1120
1121	void coroapi::do_cede_every ()
1122	{
1123	cede_counter = 0;
1124
1125	if (coroapi::nready ())
1126	coroapi::cede ();
1127	}
1128
1129	void coroapi::do_cede_to_tick_every ()
1130	{
1131	cede_counter = 0;
1132
1133	cede_to_tick ();
1134	}	1164	}
1135		1165
1136	void	1166	void
1137	coroapi::wait_for_tick ()	1167	coroapi::wait_for_tick ()
1138	{	1168	{
…		…
1147	CALL_BEGIN (0);	1177	CALL_BEGIN (0);
1148	CALL_CALL ("cf::wait_for_tick_begin", G_DISCARD);	1178	CALL_CALL ("cf::wait_for_tick_begin", G_DISCARD);
1149	CALL_END;	1179	CALL_END;
1150	}	1180	}
1151		1181
1152	static void
1153	iw_dispatch (pe_event *ev)
1154	{
1155	iw w = (iw )ev->ext_data;
1156	w->call (*w);
1157	}
1158
1159	void
1160	iw::alloc ()
1161	{
1162	pe = GEventAPI->new_idle (0, 0);
1163
1164	WaREENTRANT_off (pe);
1165	pe->base.callback = (void *)iw_dispatch;
1166	pe->base.ext_data = (void *)this;
1167	}
1168
1169	static void iow_dispatch (pe_event *ev)
1170	{
1171	iow w = (iow )ev->ext_data;
1172	w->call (w, ((pe_ioevent )ev)->got);
1173	}
1174
1175	void
1176	iow::alloc ()
1177	{
1178	pe = GEventAPI->new_io (0, 0);
1179
1180	WaREENTRANT_off (pe);
1181	pe->base.callback = (void *)iow_dispatch;
1182	pe->base.ext_data = (void *)this;
1183
1184	pe->fd = -1;
1185	pe->poll = 0;
1186	}
1187
1188	void
1189	iow::fd (int fd)
1190	{
1191	pe->fd = fd;
1192	}
1193
1194	int
1195	iow::poll ()
1196	{
1197	return pe->poll;
1198	}
1199
1200	void	1182	void
1201	iow::poll (int events)	1183	iow::poll (int events)
1202	{	1184	{
1203	if (pe->poll != events)	1185	if (events != this->events)
1204	{	1186	{
		1187	int active = ev_is_active ((ev_io *)this);
1205	if (pe->poll) stop ();	1188	if (active) stop ();
1206	pe->poll = events;	1189	ev_io_set ((ev_io *)this, fd, events);
1207	if (pe->poll) start ();	1190	if (active) start ();
1208	}	1191	}
1209	}	1192	}
1210		1193
1211	void	1194	void
1212	_connect_to_perl ()	1195	_connect_to_perl ()
1213	{	1196	{
1214	stash_cf = gv_stashpv ("cf" , 1);	1197	stash_cf = gv_stashpv ("cf", 1);
1215		1198
1216	stash_cf_object_wrap = gv_stashpv ("cf::object::wrap", 1);	1199	stash_cf_object_wrap = gv_stashpv ("cf::object::wrap", 1);
1217	stash_cf_object_player_wrap = gv_stashpv ("cf::object::player::wrap", 1);	1200	stash_cf_object_player_wrap = gv_stashpv ("cf::object::player::wrap", 1);
1218	stash_cf_player_wrap = gv_stashpv ("cf::player::wrap", 1);	1201	stash_cf_player_wrap = gv_stashpv ("cf::player::wrap", 1);
1219	stash_cf_map_wrap = gv_stashpv ("cf::map::wrap" , 1);	1202	stash_cf_map_wrap = gv_stashpv ("cf::map::wrap" , 1);
		1203	stash_cf_mapspace_wrap = gv_stashpv ("cf::mapspace::wrap" , 1);
1220	stash_cf_client_wrap = gv_stashpv ("cf::client::wrap", 1);	1204	stash_cf_client_wrap = gv_stashpv ("cf::client::wrap", 1);
1221	stash_cf_arch_wrap = gv_stashpv ("cf::arch::wrap" , 1);	1205	stash_cf_arch_wrap = gv_stashpv ("cf::arch::wrap" , 1);
1222	stash_cf_party_wrap = gv_stashpv ("cf::party::wrap" , 1);	1206	stash_cf_party_wrap = gv_stashpv ("cf::party::wrap" , 1);
1223	stash_cf_region_wrap = gv_stashpv ("cf::region::wrap", 1);	1207	stash_cf_region_wrap = gv_stashpv ("cf::region::wrap", 1);
1224	stash_cf_living_wrap = gv_stashpv ("cf::living::wrap", 1);	1208	stash_cf_living_wrap = gv_stashpv ("cf::living::wrap", 1);
1225		1209
		1210	sv_now = get_sv ("cf::NOW" , 1); SvUPGRADE (sv_now , SVt_NV);
1226	sv_runtime = get_sv ("cf::RUNTIME" , 1); sv_upgrade (sv_runtime , SVt_NV);	1211	sv_runtime = get_sv ("cf::RUNTIME" , 1); SvUPGRADE (sv_runtime , SVt_NV);
		1212	sv_tick_start = get_sv ("cf::TICK_START", 1); SvUPGRADE (sv_tick_start, SVt_NV);
1227	sv_next_tick = get_sv ("cf::NEXT_TICK", 1); sv_upgrade (sv_next_tick, SVt_NV);	1213	sv_next_tick = get_sv ("cf::NEXT_TICK" , 1); SvUPGRADE (sv_next_tick , SVt_NV);
1228		1214
1229	cb_global = get_av ("cf::CB_GLOBAL", 1);	1215	cb_global = get_av ("cf::CB_GLOBAL", 1);
1230	cb_attachable = get_av ("cf::CB_ATTACHABLE", 1);	1216	cb_attachable = get_av ("cf::CB_ATTACHABLE", 1);
1231	cb_object = get_av ("cf::CB_OBJECT", 1);	1217	cb_object = get_av ("cf::CB_OBJECT", 1);
1232	cb_player = get_av ("cf::CB_PLAYER", 1);	1218	cb_player = get_av ("cf::CB_PLAYER", 1);
…		…
1237		1223
1238	MODULE = cf PACKAGE = cf PREFIX = cf_	1224	MODULE = cf PACKAGE = cf PREFIX = cf_
1239		1225
1240	BOOT:	1226	BOOT:
1241	{	1227	{
1242	I_EVENT_API (PACKAGE); watcher_base::GEventAPI = GEventAPI;	1228	I_EV_API (PACKAGE); evapi::GEVAPI = GEVAPI;
1243	I_CORO_API (PACKAGE); coroapi::GCoroAPI = GCoroAPI;	1229	I_CORO_API (PACKAGE); coroapi::GCoroAPI = GCoroAPI;
1244		1230
1245	_connect_to_perl ();	1231	_connect_to_perl ();
1246		1232
1247	newCONSTSUB (stash_cf, "VERSION", newSVpv (VERSION, sizeof (VERSION) - 1));	1233	newCONSTSUB (stash_cf, "VERSION", newSVpv (VERSION, sizeof (VERSION) - 1));
1248		1234
…		…
1342	const_iv (FLAG_CURSED) const_iv (FLAG_DAMNED) const_iv (FLAG_SEE_ANYWHERE) const_iv (FLAG_KNOWN_MAGICAL)	1328	const_iv (FLAG_CURSED) const_iv (FLAG_DAMNED) const_iv (FLAG_SEE_ANYWHERE) const_iv (FLAG_KNOWN_MAGICAL)
1343	const_iv (FLAG_KNOWN_CURSED) const_iv (FLAG_CAN_USE_SKILL) const_iv (FLAG_BEEN_APPLIED) const_iv (FLAG_READY_SCROLL)	1329	const_iv (FLAG_KNOWN_CURSED) const_iv (FLAG_CAN_USE_SKILL) const_iv (FLAG_BEEN_APPLIED) const_iv (FLAG_READY_SCROLL)
1344	const_iv (FLAG_USE_ROD) const_iv (FLAG_USE_HORN) const_iv (FLAG_MAKE_INVIS) const_iv (FLAG_INV_LOCKED)	1330	const_iv (FLAG_USE_ROD) const_iv (FLAG_USE_HORN) const_iv (FLAG_MAKE_INVIS) const_iv (FLAG_INV_LOCKED)
1345	const_iv (FLAG_IS_WOODED) const_iv (FLAG_IS_HILLY) const_iv (FLAG_READY_SKILL) const_iv (FLAG_READY_WEAPON)	1331	const_iv (FLAG_IS_WOODED) const_iv (FLAG_IS_HILLY) const_iv (FLAG_READY_SKILL) const_iv (FLAG_READY_WEAPON)
1346	const_iv (FLAG_NO_SKILL_IDENT) const_iv (FLAG_BLIND) const_iv (FLAG_SEE_IN_DARK) const_iv (FLAG_IS_CAULDRON)	1332	const_iv (FLAG_NO_SKILL_IDENT) const_iv (FLAG_BLIND) const_iv (FLAG_SEE_IN_DARK) const_iv (FLAG_IS_CAULDRON)
1347	const_iv (FLAG_NO_STEAL) const_iv (FLAG_ONE_HIT) const_iv (FLAG_CLIENT_SENT) const_iv (FLAG_BERSERK)	1333	const_iv (FLAG_NO_STEAL) const_iv (FLAG_ONE_HIT) const_iv (FLAG_DEBUG) const_iv (FLAG_BERSERK)
1348	const_iv (FLAG_NEUTRAL) const_iv (FLAG_NO_ATTACK) const_iv (FLAG_NO_DAMAGE) const_iv (FLAG_OBJ_ORIGINAL)	1334	const_iv (FLAG_NEUTRAL) const_iv (FLAG_NO_ATTACK) const_iv (FLAG_NO_DAMAGE) const_iv (FLAG_OBJ_ORIGINAL)
1349	const_iv (FLAG_ACTIVATE_ON_PUSH) const_iv (FLAG_ACTIVATE_ON_RELEASE) const_iv (FLAG_IS_WATER)	1335	const_iv (FLAG_ACTIVATE_ON_PUSH) const_iv (FLAG_ACTIVATE_ON_RELEASE) const_iv (FLAG_IS_WATER) const_iv (FLAG_WIZLOOK)
1350	const_iv (FLAG_CONTENT_ON_GEN) const_iv (FLAG_IS_A_TEMPLATE) const_iv (FLAG_IS_BUILDABLE)	1336	const_iv (FLAG_CONTENT_ON_GEN) const_iv (FLAG_IS_A_TEMPLATE) const_iv (FLAG_IS_BUILDABLE)
1351	const_iv (FLAG_DESTROY_ON_DEATH) const_iv (FLAG_NO_MAP_SAVE)	1337	const_iv (FLAG_DESTROY_ON_DEATH) const_iv (FLAG_NO_MAP_SAVE)
1352		1338
1353	const_iv (NDI_BLACK) const_iv (NDI_WHITE) const_iv (NDI_NAVY) const_iv (NDI_RED)	1339	const_iv (NDI_BLACK) const_iv (NDI_WHITE) const_iv (NDI_NAVY) const_iv (NDI_RED)
1354	const_iv (NDI_ORANGE) const_iv (NDI_BLUE) const_iv (NDI_DK_ORANGE) const_iv (NDI_GREEN)	1340	const_iv (NDI_ORANGE) const_iv (NDI_BLUE) const_iv (NDI_DK_ORANGE) const_iv (NDI_GREEN)
1355	const_iv (NDI_LT_GREEN) const_iv (NDI_GREY) const_iv (NDI_BROWN) const_iv (NDI_GOLD)	1341	const_iv (NDI_LT_GREEN) const_iv (NDI_GREY) const_iv (NDI_BROWN) const_iv (NDI_GOLD)
1356	const_iv (NDI_TAN) const_iv (NDI_MAX_COLOR) const_iv (NDI_COLOR_MASK) const_iv (NDI_UNIQUE)	1342	const_iv (NDI_TAN) const_iv (NDI_MAX_COLOR) const_iv (NDI_COLOR_MASK) const_iv (NDI_UNIQUE)
1357	const_iv (NDI_ALL) const_iv (NDI_DEF) const_iv (NDI_REPLY) const_iv (NDI_CLIENT_MASK)	1343	const_iv (NDI_ALL) const_iv (NDI_DEF) const_iv (NDI_REPLY) const_iv (NDI_CLIENT_MASK)
1358	const_iv (NDI_NOCREATE) const_iv (NDI_CLEAR)	1344	const_iv (NDI_NOCREATE) const_iv (NDI_CLEAR) const_iv (NDI_VERBATIM)
1359		1345
1360	const_iv (UPD_LOCATION) const_iv (UPD_FLAGS) const_iv (UPD_WEIGHT) const_iv (UPD_FACE)	1346	const_iv (UPD_LOCATION) const_iv (UPD_FLAGS) const_iv (UPD_WEIGHT) const_iv (UPD_FACE)
1361	const_iv (UPD_NAME) const_iv (UPD_ANIM) const_iv (UPD_ANIMSPEED) const_iv (UPD_NROF)	1347	const_iv (UPD_NAME) const_iv (UPD_ANIM) const_iv (UPD_ANIMSPEED) const_iv (UPD_NROF)
1362		1348
1363	const_iv (UPD_SP_MANA) const_iv (UPD_SP_GRACE) const_iv (UPD_SP_DAMAGE)	1349	const_iv (UPD_SP_MANA) const_iv (UPD_SP_GRACE) const_iv (UPD_SP_DAMAGE)
…		…
1415	const_iv (F_CURSED) const_iv (F_DAMNED) const_iv (F_OPEN) const_iv (F_NOPICK)	1401	const_iv (F_CURSED) const_iv (F_DAMNED) const_iv (F_OPEN) const_iv (F_NOPICK)
1416	const_iv (F_LOCKED)	1402	const_iv (F_LOCKED)
1417		1403
1418	const_iv (F_BUY) const_iv (F_SHOP) const_iv (F_SELL)	1404	const_iv (F_BUY) const_iv (F_SHOP) const_iv (F_SELL)
1419		1405
1420	const_iv (P_BLOCKSVIEW) const_iv (P_PLAYER) const_iv (P_NO_MAGIC) const_iv (P_IS_ALIVE)	1406	const_iv (P_BLOCKSVIEW) const_iv (P_NO_MAGIC) const_iv (P_IS_ALIVE)
1421	const_iv (P_NO_CLERIC) const_iv (P_OUT_OF_MAP) const_iv (P_NEW_MAP) const_iv (P_UPTODATE)	1407	const_iv (P_NO_CLERIC) const_iv (P_OUT_OF_MAP) const_iv (P_NEW_MAP) const_iv (P_UPTODATE)
1422		1408
1423	const_iv (UP_OBJ_INSERT) const_iv (UP_OBJ_REMOVE) const_iv (UP_OBJ_CHANGE) const_iv (UP_OBJ_FACE)	1409	const_iv (UP_OBJ_INSERT) const_iv (UP_OBJ_REMOVE) const_iv (UP_OBJ_CHANGE) const_iv (UP_OBJ_FACE)
1424		1410
1425	const_iv (INS_NO_MERGE) const_iv (INS_ABOVE_FLOOR_ONLY) const_iv (INS_NO_WALK_ON)	1411	const_iv (INS_NO_MERGE) const_iv (INS_ABOVE_FLOOR_ONLY) const_iv (INS_NO_WALK_ON)
…		…
1465	const_iv (ATNR_PARALYZE) const_iv (ATNR_TURN_UNDEAD) const_iv (ATNR_FEAR) const_iv (ATNR_CANCELLATION)	1451	const_iv (ATNR_PARALYZE) const_iv (ATNR_TURN_UNDEAD) const_iv (ATNR_FEAR) const_iv (ATNR_CANCELLATION)
1466	const_iv (ATNR_DEPLETE) const_iv (ATNR_DEATH) const_iv (ATNR_CHAOS) const_iv (ATNR_COUNTERSPELL)	1452	const_iv (ATNR_DEPLETE) const_iv (ATNR_DEATH) const_iv (ATNR_CHAOS) const_iv (ATNR_COUNTERSPELL)
1467	const_iv (ATNR_GODPOWER) const_iv (ATNR_HOLYWORD) const_iv (ATNR_BLIND) const_iv (ATNR_INTERNAL)	1453	const_iv (ATNR_GODPOWER) const_iv (ATNR_HOLYWORD) const_iv (ATNR_BLIND) const_iv (ATNR_INTERNAL)
1468	const_iv (ATNR_LIFE_STEALING) const_iv (ATNR_DISEASE)	1454	const_iv (ATNR_LIFE_STEALING) const_iv (ATNR_DISEASE)
1469		1455
1470	const_iv (MAP_IN_MEMORY) const_iv (MAP_SWAPPED) const_iv (MAP_LOADING) const_iv (MAP_SAVING)	1456	const_iv (MAP_ACTIVE) const_iv (MAP_SWAPPED) const_iv (MAP_LOADING) const_iv (MAP_SAVING)
		1457	const_iv (MAP_INACTIVE)
1471		1458
1472	const_iv (KLASS_ATTACHABLE) const_iv (KLASS_GLOBAL) const_iv (KLASS_OBJECT)	1459	const_iv (KLASS_ATTACHABLE) const_iv (KLASS_GLOBAL) const_iv (KLASS_OBJECT)
1473	const_iv (KLASS_CLIENT) const_iv (KLASS_PLAYER) const_iv (KLASS_MAP)	1460	const_iv (KLASS_CLIENT) const_iv (KLASS_PLAYER) const_iv (KLASS_MAP)
1474		1461
1475	const_iv (VERSION_CS) const_iv (VERSION_SC)	1462	const_iv (VERSION_CS) const_iv (VERSION_SC)
…		…
1490		1477
1491	const_iv (SYMMETRY_RANDOM) const_iv (SYMMETRY_NONE) const_iv (SYMMETRY_X)	1478	const_iv (SYMMETRY_RANDOM) const_iv (SYMMETRY_NONE) const_iv (SYMMETRY_X)
1492	const_iv (SYMMETRY_Y) const_iv (SYMMETRY_XY)	1479	const_iv (SYMMETRY_Y) const_iv (SYMMETRY_XY)
1493		1480
1494	const_iv (GT_ENVIRONMENT) const_iv (GT_INVISIBLE) const_iv (GT_STARTEQUIP)	1481	const_iv (GT_ENVIRONMENT) const_iv (GT_INVISIBLE) const_iv (GT_STARTEQUIP)
1495	const_iv (GT_APPLY) const_iv (GT_ONLY_GOOD) const_iv (GT_UPDATE_INV)	1482	const_iv (GT_APPLY) const_iv (GT_ONLY_GOOD) const_iv (GT_MINIMAL)
1496	const_iv (GT_MINIMAL)
1497		1483
1498	const_iv (FT_FACE) const_iv (FT_MUSIC) const_iv (FT_SOUND)	1484	const_iv (FT_FACE) const_iv (FT_MUSIC) const_iv (FT_SOUND)
1499	const_iv (FT_RSRC) const_iv (FT_NUM)	1485	const_iv (FT_RSRC) const_iv (FT_NUM)
1500	};	1486	};
1501		1487
…		…
1523	av_store (av, eiv->iv, newRV_noinc ((SV *)event));	1509	av_store (av, eiv->iv, newRV_noinc ((SV *)event));
1524	newCONSTSUB (stash_cf, (char *)eiv->name, newSViv (eiv->iv));	1510	newCONSTSUB (stash_cf, (char *)eiv->name, newSViv (eiv->iv));
1525	}	1511	}
1526	}	1512	}
1527		1513
		1514	void _gv_clear (SV *gv)
		1515	CODE:
		1516	assert (SvTYPE (gv) == SVt_PVGV);
		1517	# define f(sv) { SV sv_ = (SV )(sv); sv = 0; SvREFCNT_dec (sv_); }
		1518	f (GvGP (gv)->gp_form);
		1519	f (GvGP (gv)->gp_io);
		1520	f (GvGP (gv)->gp_sv);
		1521	f (GvGP (gv)->gp_av);
		1522	f (GvGP (gv)->gp_hv);
		1523	f (GvGP (gv)->gp_cv);
		1524	GvCVGEN (gv) = 0;
		1525	GvMULTI_off (gv);
		1526	# undef f
		1527
1528	void _connect_to_perl ()	1528	void _connect_to_perl ()
1529		1529
1530	void _recalc_want ()	1530	void _recalc_want ()
1531		1531
		1532	# not used by default anymore
1532	void _global_reattach ()	1533	void _global_reattach ()
1533	CODE:	1534	CODE:
1534	{	1535	{
1535	// reattach to all attachable objects in the game.	1536	// reattach to all attachable objects in the game.
1536	for_all_clients (ns)	1537	for_all_clients (ns)
…		…
1580	}	1581	}
1581		1582
1582	SvCUR_set (data_sv, dst - SvPVX (data_sv));	1583	SvCUR_set (data_sv, dst - SvPVX (data_sv));
1583	}	1584	}
1584		1585
		1586	void init_anim ()
		1587
		1588	void init_globals ()
		1589
		1590	void init_experience ()
		1591
		1592	void init_attackmess ()
		1593
		1594	void init_dynamic ()
		1595
		1596	void load_settings ()
		1597
		1598	void load_materials ()
		1599
		1600	void init_uuid ()
		1601	CODE:
		1602	UUID::init ();
		1603
		1604	void init_signals ()
		1605
		1606	void init_commands ()
		1607
		1608	void init_skills ()
		1609
		1610	void init_beforeplay ()
		1611
		1612	void evthread_start (int aiofd)
		1613
1585	void _post_tick ()	1614	void cede_to_tick ()
1586	CODE:	1615	CODE:
1587	coroapi::next_cede = SvNV (sv_next_tick) - TICK * (1. - 1. / CEDES_PER_TICK);	1616	coroapi::cede_to_tick ();
1588		1617
1589	NV till_cede ()	1618	NV till_tick ()
1590	CODE:	1619	CODE:
1591	RETVAL = coroapi::next_cede - now ();	1620	RETVAL = SvNVX (sv_next_tick) - now ();
1592	OUTPUT:	1621	OUTPUT:
1593	RETVAL	1622	RETVAL
1594		1623
1595	NV till_tick ()	1624	int tick_inhibit ()
1596	CODE:	1625	CODE:
1597	RETVAL = SvNV (sv_next_tick) - now ();	1626	RETVAL = tick_inhibit;
1598	OUTPUT:	1627	OUTPUT:
1599	RETVAL	1628	RETVAL
1600		1629
		1630	void tick_inhibit_inc ()
		1631	CODE:
		1632	++tick_inhibit;
		1633
		1634	void tick_inhibit_dec ()
		1635	CODE:
		1636	if (!--tick_inhibit)
		1637	if (tick_pending)
		1638	{
		1639	ev_async_send (EV_DEFAULT, &tick_watcher);
		1640	coroapi::cede ();
		1641	}
		1642
		1643	void server_tick ()
		1644	CODE:
		1645	{
		1646	NOW = ev_now (EV_DEFAULT);
		1647	SvNV_set (sv_now, NOW); SvNOK_only (sv_now);
		1648	SvNV_set (sv_tick_start, NOW); SvNOK_only (sv_tick_start);
		1649	runtime = SvNVX (sv_runtime);
		1650
		1651	server_tick ();
		1652
		1653	NOW = ev_time ();
		1654	SvNV_set (sv_now, NOW); SvNOK_only (sv_now);
		1655	runtime += TICK;
		1656	SvNV_set (sv_runtime, runtime); SvNOK_only (sv_runtime);
		1657	}
		1658
1601	NV floor (NV x)	1659	NV floor (NV x)
1602		1660
1603	NV ceil (NV x)	1661	NV ceil (NV x)
1604		1662
1605	NV rndm (...)	1663	NV rndm (...)
		1664	ALIAS:
		1665	rmg_rndm = 1
1606	CODE:	1666	CODE:
		1667	{
		1668	rand_gen &gen = ix ? rmg_rndm : rndm;
1607	switch (items)	1669	switch (items)
1608	{	1670	{
1609	case 0: RETVAL = rndm (); break;	1671	case 0: RETVAL = gen (); break;
1610	case 1: RETVAL = rndm (SvUV (ST (0))); break;	1672	case 1: RETVAL = gen (SvUV (ST (0))); break;
1611	case 2: RETVAL = rndm (SvIV (ST (0)), SvIV (ST (1))); break;	1673	case 2: RETVAL = gen (SvIV (ST (0)), SvIV (ST (1))); break;
1612	default: croak ("cf::rndm requires none, one or two parameters."); break;	1674	default: croak ("cf::rndm requires none, one or two parameters."); break;
1613	}	1675	}
		1676	}
1614	OUTPUT:	1677	OUTPUT:
1615	RETVAL	1678	RETVAL
1616		1679
1617	NV clamp (NV value, NV min_value, NV max_value)	1680	NV clamp (NV value, NV min_value, NV max_value)
1618	CODE:	1681	CODE:
…		…
1624	CODE:	1687	CODE:
1625	RETVAL = lerp (value, min_in, max_in, min_out, max_out);	1688	RETVAL = lerp (value, min_in, max_in, min_out, max_out);
1626	OUTPUT:	1689	OUTPUT:
1627	RETVAL	1690	RETVAL
1628		1691
1629	void cede_to_tick ()	1692	void weaken (...)
1630	CODE:	1693	PROTOTYPE: @
1631	coroapi::cede_to_tick ();	1694	CODE:
1632		1695	while (items > 0)
1633	void server_tick ()	1696	sv_rvweaken (ST (--items));
1634	CODE:
1635	NOW = now ();
1636	runtime = SvNVx (sv_runtime);
1637	server_tick ();
1638		1697
1639	void	1698	void
1640	log_backtrace (utf8_string msg)	1699	log_backtrace (utf8_string msg)
1641		1700
1642	void	1701	void
…		…
1647	octet_string path_combine (octet_string base, octet_string path)	1706	octet_string path_combine (octet_string base, octet_string path)
1648	PROTOTYPE: $$	1707	PROTOTYPE: $$
1649		1708
1650	octet_string path_combine_and_normalize (octet_string base, octet_string path)	1709	octet_string path_combine_and_normalize (octet_string base, octet_string path)
1651	PROTOTYPE: $$	1710	PROTOTYPE: $$
1652
1653	int
1654	malloc_trim (U32 pad = 0)
1655	CODE:
1656	#if __GLIBC__
1657	RETVAL = malloc_trim (pad);
1658	#else
1659	RETVAL = 0;
1660	#endif
1661	OUTPUT:
1662	RETVAL
1663
1664	void
1665	mallinfo ()
1666	PPCODE:
1667	{
1668	#if __GLIBC__
1669	struct mallinfo mai = mallinfo ();
1670	EXTEND (SP, 10*2);
1671	PUSHs (sv_2mortal (newSVpv ("arena" , 0))); PUSHs (sv_2mortal (newSViv (mai.arena)));
1672	PUSHs (sv_2mortal (newSVpv ("ordblks" , 0))); PUSHs (sv_2mortal (newSViv (mai.ordblks)));
1673	PUSHs (sv_2mortal (newSVpv ("smblks" , 0))); PUSHs (sv_2mortal (newSViv (mai.smblks)));
1674	PUSHs (sv_2mortal (newSVpv ("hblks" , 0))); PUSHs (sv_2mortal (newSViv (mai.hblks)));
1675	PUSHs (sv_2mortal (newSVpv ("hblkhd" , 0))); PUSHs (sv_2mortal (newSViv (mai.hblkhd)));
1676	PUSHs (sv_2mortal (newSVpv ("usmblks" , 0))); PUSHs (sv_2mortal (newSViv (mai.usmblks)));
1677	PUSHs (sv_2mortal (newSVpv ("fsmblks" , 0))); PUSHs (sv_2mortal (newSViv (mai.fsmblks)));
1678	PUSHs (sv_2mortal (newSVpv ("uordblks", 0))); PUSHs (sv_2mortal (newSViv (mai.uordblks)));
1679	PUSHs (sv_2mortal (newSVpv ("fordblks", 0))); PUSHs (sv_2mortal (newSViv (mai.fordblks)));
1680	PUSHs (sv_2mortal (newSVpv ("keepcost", 0))); PUSHs (sv_2mortal (newSViv (mai.keepcost)));
1681	#endif
1682	EXTEND (SP, 2*2);
1683	PUSHs (sv_2mortal (newSVpv ("slice_alloc", 0))); PUSHs (sv_2mortal (newSVuv (slice_alloc)));
1684	PUSHs (sv_2mortal (newSVpv ("shstr_alloc", 0))); PUSHs (sv_2mortal (newSVuv (shstr_alloc)));
1685	}
1686		1711
1687	void	1712	void
1688	sub_generation_inc ()	1713	sub_generation_inc ()
1689	CODE:	1714	CODE:
1690	PL_sub_generation++;	1715	PL_sub_generation++;
…		…
1715		1740
1716	void abort ()	1741	void abort ()
1717		1742
1718	void reset_signals ()	1743	void reset_signals ()
1719		1744
1720	void fork_abort (octet_string cause = "cf::fork_abort")	1745	void fork_abort (const_octet_string cause = "cf::fork_abort")
1721		1746
1722	void cleanup (octet_string cause, bool make_core = false)	1747	void cleanup (const_octet_string cause, bool make_core = false)
1723		1748
1724	void emergency_save ()	1749	void emergency_save ()
1725		1750
1726	void _exit (int status = EXIT_SUCCESS)	1751	void _exit (int status = EXIT_SUCCESS)
1727		1752
1728	UV sv_2watcher (SV *w)
1729	CODE:
1730	RETVAL = (UV)GEventAPI->sv_2watcher (w);
1731	OUTPUT:
1732	RETVAL
1733
1734	#if _POSIX_MEMLOCK	1753	#if _POSIX_MEMLOCK
1735		1754
1736	int mlockall (int flags = MCL_CURRENT \| MCL_FUTURE)	1755	int mlockall (int flags = MCL_CURRENT \| MCL_FUTURE)
		1756	INIT:
		1757	#if __GLIBC__
		1758	mallopt (M_TOP_PAD, 1024 * 1024);
		1759	mallopt (M_MMAP_THRESHOLD, 1024 * 1024 * 128);
		1760	mallopt (M_MMAP_MAX, 0); // likely bug-workaround, also frees memory
		1761	mallopt (M_PERTURB, 0xee); // bug-workaround for linux glibc+mlockall+calloc
		1762	#endif
1737		1763
1738	int munlockall ()	1764	int munlockall ()
1739		1765
1740	#endif	1766	#endif
		1767
		1768	int
		1769	malloc_trim (IV pad = 0)
		1770
		1771	void
		1772	mallinfo ()
		1773	PPCODE:
		1774	{
		1775	#if __GLIBC__
		1776	struct mallinfo mai = mallinfo ();
		1777	EXTEND (SP, 10*2);
		1778	PUSHs (sv_2mortal (newSVpv ("arena" , 0))); PUSHs (sv_2mortal (newSViv (mai.arena)));
		1779	PUSHs (sv_2mortal (newSVpv ("ordblks" , 0))); PUSHs (sv_2mortal (newSViv (mai.ordblks)));
		1780	PUSHs (sv_2mortal (newSVpv ("smblks" , 0))); PUSHs (sv_2mortal (newSViv (mai.smblks)));
		1781	PUSHs (sv_2mortal (newSVpv ("hblks" , 0))); PUSHs (sv_2mortal (newSViv (mai.hblks)));
		1782	PUSHs (sv_2mortal (newSVpv ("hblkhd" , 0))); PUSHs (sv_2mortal (newSViv (mai.hblkhd)));
		1783	PUSHs (sv_2mortal (newSVpv ("usmblks" , 0))); PUSHs (sv_2mortal (newSViv (mai.usmblks)));
		1784	PUSHs (sv_2mortal (newSVpv ("fsmblks" , 0))); PUSHs (sv_2mortal (newSViv (mai.fsmblks)));
		1785	PUSHs (sv_2mortal (newSVpv ("uordblks", 0))); PUSHs (sv_2mortal (newSViv (mai.uordblks)));
		1786	PUSHs (sv_2mortal (newSVpv ("fordblks", 0))); PUSHs (sv_2mortal (newSViv (mai.fordblks)));
		1787	PUSHs (sv_2mortal (newSVpv ("keepcost", 0))); PUSHs (sv_2mortal (newSViv (mai.keepcost)));
		1788	#endif
		1789	EXTEND (SP, 5*2);
		1790	PUSHs (sv_2mortal (newSVpv ("slice_alloc", 0))); PUSHs (sv_2mortal (newSVuv (slice_alloc)));
		1791	PUSHs (sv_2mortal (newSVpv ("shstr_alloc", 0))); PUSHs (sv_2mortal (newSVuv (shstr_alloc)));
		1792	PUSHs (sv_2mortal (newSVpv ("objects" , 0))); PUSHs (sv_2mortal (newSVuv (objects.size () * sizeof (object))));
		1793	PUSHs (sv_2mortal (newSVpv ("sv_count" , 0))); PUSHs (sv_2mortal (newSVuv (PL_sv_count)));
		1794	PUSHs (sv_2mortal (newSVpv ("sv_objcount", 0))); PUSHs (sv_2mortal (newSVuv (PL_sv_objcount)));
		1795	}
1741		1796
1742	int find_animation (utf8_string text)	1797	int find_animation (utf8_string text)
1743	PROTOTYPE: $	1798	PROTOTYPE: $
1744		1799
1745	int random_roll (int min, int max, object *op, int goodbad);	1800	int random_roll (int min, int max, object *op, int goodbad);
…		…
1783	RETVAL = newSVpv (resist_plus[atnr], 0);	1838	RETVAL = newSVpv (resist_plus[atnr], 0);
1784	else	1839	else
1785	XSRETURN_UNDEF;	1840	XSRETURN_UNDEF;
1786	OUTPUT: RETVAL	1841	OUTPUT: RETVAL
1787		1842
		1843	UUID
		1844	uuid_cur ()
		1845	CODE:
		1846	RETVAL = UUID::cur;
		1847	OUTPUT:
		1848	RETVAL
		1849
		1850	UUID
		1851	uuid_gen ()
		1852	CODE:
		1853	RETVAL = UUID::gen ();
		1854	OUTPUT:
		1855	RETVAL
		1856
		1857	val64
		1858	uuid_seq (UUID uuid)
		1859	CODE:
		1860	RETVAL = uuid.seq;
		1861	OUTPUT:
		1862	RETVAL
		1863
		1864	UUID
		1865	uuid_str (val64 seq)
		1866	CODE:
		1867	RETVAL.seq = seq;
		1868	OUTPUT:
		1869	RETVAL
		1870
		1871	void
		1872	coin_names ()
		1873	PPCODE:
		1874	EXTEND (SP, NUM_COINS);
		1875	for (int i = 0; i < NUM_COINS; ++i)
		1876	PUSHs (sv_2mortal (newSVpv (coins [i], 0)));
		1877
		1878	void
		1879	coin_archetypes ()
		1880	PPCODE:
		1881	EXTEND (SP, NUM_COINS);
		1882	for (int i = 0; i < NUM_COINS; ++i)
		1883	PUSHs (sv_2mortal (to_sv (archetype::find (coins [i]))));
		1884
1788	bool	1885	bool
1789	load_resource_file (octet_string filename)	1886	load_resource_file_ (octet_string filename)
		1887
		1888	void
		1889	fix_weight ()
1790		1890
1791	MODULE = cf PACKAGE = cf::attachable	1891	MODULE = cf PACKAGE = cf::attachable
1792		1892
1793	int	1893	int
1794	valid (SV *obj)	1894	valid (SV *obj)
…		…
1858	object *actives (U32 index)	1958	object *actives (U32 index)
1859	CODE:	1959	CODE:
1860	RETVAL = index < actives.size () ? actives [index] : 0;	1960	RETVAL = index < actives.size () ? actives [index] : 0;
1861	OUTPUT: RETVAL	1961	OUTPUT: RETVAL
1862		1962
		1963	int mortals_size ()
		1964	CODE:
		1965	RETVAL = attachable::mortals.size ();
		1966	OUTPUT: RETVAL
		1967
1863	const char *slot_use_name (U32 slot)	1968	const char *slot_use_name (U32 slot)
1864	ALIAS:	1969	ALIAS:
1865	slot_nonuse_name = 1	1970	slot_nonuse_name = 1
1866	CODE:	1971	CODE:
1867	{	1972	{
…		…
1945	void apply_below (object *op)	2050	void apply_below (object *op)
1946	CODE:	2051	CODE:
1947	player_apply_below (op);	2052	player_apply_below (op);
1948		2053
1949	int cast_heal (object op, object caster, object *spell, int dir = 0)	2054	int cast_heal (object op, object caster, object *spell, int dir = 0)
1950
1951	#//TODO
1952	object clone_ (object op, int recursive = 0)
1953	CODE:
1954	if (recursive)
1955	RETVAL = object_create_clone (op);
1956	else
1957	{
1958	RETVAL = object::create ();
1959	op->copy_to (RETVAL);
1960	}
1961	OUTPUT: RETVAL
1962		2055
1963	int pay_item (object op, object buyer)	2056	int pay_item (object op, object buyer)
1964	CODE:	2057	CODE:
1965	RETVAL = pay_for_item (op, buyer);	2058	RETVAL = pay_for_item (op, buyer);
1966	OUTPUT: RETVAL	2059	OUTPUT: RETVAL
…		…
2044	CODE:	2137	CODE:
2045	{	2138	{
2046	RETVAL = insert_ob_in_map_at (ob, where, orig, flag, x, y);	2139	RETVAL = insert_ob_in_map_at (ob, where, orig, flag, x, y);
2047	}	2140	}
2048		2141
2049	const_utf8_string get_ob_key_value (object *op, utf8_string key)	2142	shstr
		2143	object::kv_get (shstr key)
2050		2144
2051	bool set_ob_key_value (object *op, utf8_string key, utf8_string value = 0, int add_key = 1)	2145	void
		2146	object::kv_del (shstr key)
		2147
		2148	void
		2149	object::kv_set (shstr key, shstr value)
2052		2150
2053	object get_nearest_player (object ob)	2151	object get_nearest_player (object ob)
2054	ALIAS: nearest_player = 0	2152	ALIAS: nearest_player = 0
2055	PREINIT:	2153	PREINIT:
2056	extern object get_nearest_player (object );	2154	extern object get_nearest_player (object );
…		…
2058	void rangevector (object ob, object other, int flags = 0)	2156	void rangevector (object ob, object other, int flags = 0)
2059	PROTOTYPE: $$;$	2157	PROTOTYPE: $$;$
2060	PPCODE:	2158	PPCODE:
2061	{	2159	{
2062	rv_vector rv;	2160	rv_vector rv;
		2161
		2162	PUTBACK;
2063	get_rangevector (ob, other, &rv, flags);	2163	get_rangevector (ob, other, &rv, flags);
		2164	SPAGAIN;
		2165
2064	EXTEND (SP, 5);	2166	EXTEND (SP, 5);
2065	PUSHs (newSVuv (rv.distance));	2167	PUSHs (newSVuv (rv.distance));
2066	PUSHs (newSViv (rv.distance_x));	2168	PUSHs (newSViv (rv.distance_x));
2067	PUSHs (newSViv (rv.distance_y));	2169	PUSHs (newSViv (rv.distance_y));
2068	PUSHs (newSViv (rv.direction));	2170	PUSHs (newSViv (rv.direction));
…		…
2078	base_name (object *op, int plural = op->nrof > 1)	2180	base_name (object *op, int plural = op->nrof > 1)
2079	CODE:	2181	CODE:
2080	RETVAL = query_base_name (op, plural);	2182	RETVAL = query_base_name (op, plural);
2081	OUTPUT: RETVAL	2183	OUTPUT: RETVAL
2082		2184
2083	object decrease_ob_nr (object op, unsigned long i)
2084
2085	# return the tail of an object, excluding itself	2185	# return the tail of an object, excluding itself
2086	void	2186	void
2087	tail (object *op)	2187	tail (object *op)
2088	PPCODE:	2188	PPCODE:
2089	while ((op = op->more))	2189	while ((op = op->more))
…		…
2139	pl->ob->stats.hp = pl->ob->stats.maxhp;	2239	pl->ob->stats.hp = pl->ob->stats.maxhp;
2140	pl->ob->stats.sp = pl->ob->stats.maxsp;	2240	pl->ob->stats.sp = pl->ob->stats.maxsp;
2141	pl->ob->stats.grace = pl->ob->stats.maxgrace;	2241	pl->ob->stats.grace = pl->ob->stats.maxgrace;
2142	pl->orig_stats = pl->ob->stats;	2242	pl->orig_stats = pl->ob->stats;
2143		2243
2144	void clear_los (player *pl)	2244	# should only be temporary
		2245	void esrv_new_player (player *pl)
2145		2246
		2247	#d# TODO: replace by blocked_los accessor, fix code using this
2146	bool	2248	bool
2147	cell_visible (player *pl, int dx, int dy)	2249	cell_visible (player *pl, int dx, int dy)
2148	CODE:	2250	CODE:
2149	RETVAL = FABS (dx) <= pl->ns->mapx / 2 && FABS (dy) <= pl->ns->mapy / 2	2251	RETVAL = pl->blocked_los (dx, dy) != LOS_BLOCKED;
2150	&& !pl->blocked_los [dx + pl->ns->mapx / 2][dy + pl->ns->mapy / 2];
2151	OUTPUT:	2252	OUTPUT:
2152	RETVAL	2253	RETVAL
2153		2254
2154	void	2255	void
2155	send (player pl, SV packet)	2256	send (player pl, SV packet)
…		…
2161	if (len > MAXSOCKBUF)	2262	if (len > MAXSOCKBUF)
2162	pl->failmsg ("[packet too long for client]");	2263	pl->failmsg ("[packet too long for client]");
2163	else if (pl->ns)	2264	else if (pl->ns)
2164	pl->ns->send_packet (buf, len);	2265	pl->ns->send_packet (buf, len);
2165	}	2266	}
2166
2167	int
2168	listening (player *pl, int new_value = -1)
2169	CODE:
2170	RETVAL = pl->listening;
2171	if (new_value >= 0)
2172	pl->listening = new_value;
2173	OUTPUT:
2174	RETVAL
2175		2267
2176	void savebed (player pl, SV map_path = 0, SV x = 0, SV y = 0)	2268	void savebed (player pl, SV map_path = 0, SV x = 0, SV y = 0)
2177	PROTOTYPE: $;$$$	2269	PROTOTYPE: $;$$$
2178	PPCODE:	2270	PPCODE:
2179	if (GIMME_V != G_VOID)	2271	if (GIMME_V != G_VOID)
…		…
2232	}	2324	}
2233		2325
2234	INCLUDE: $PERL $srcdir/genacc maptile ../include/map.h \|	2326	INCLUDE: $PERL $srcdir/genacc maptile ../include/map.h \|
2235		2327
2236	void	2328	void
		2329	adjust_daylight ()
		2330	CODE:
		2331	maptile::adjust_daylight ();
		2332
		2333	void
2237	maptile::instantiate ()	2334	maptile::instantiate ()
2238		2335
2239	maptile *new ()	2336	maptile *new ()
2240	PROTOTYPE:	2337	PROTOTYPE:
2241	CODE:	2338	CODE:
…		…
2334	}	2431	}
2335		2432
2336	void	2433	void
2337	maptile::create_region_treasure ()	2434	maptile::create_region_treasure ()
2338	CODE:	2435	CODE:
2339	{
2340	object *op = object::create ();
2341	op->type = FLOOR;
2342	op->map = THIS;
2343
2344	for (int x = 0; x < THIS->width; ++x)	2436	for (int x = 0; x < THIS->width; ++x)
2345	for (int y = 0; y < THIS->height; ++y)	2437	for (int y = 0; y < THIS->height; ++y)
2346	{	2438	{
2347	region *rgn = THIS->region (x, y);	2439	region *rgn = THIS->region (x, y);
2348		2440
2349	//fprintf (stderr, "%d,%d %f %p\n", x, y, rgn->treasure_density,rgn->treasure);//D	2441	//fprintf (stderr, "%d,%d %f %p\n", x, y, rgn->treasure_density,rgn->treasure);//D
		2442	if (object *op = THIS->at (x, y).top)
2350	if (rgn->treasure && rndm () < rgn->treasure_density)	2443	if (rgn->treasure && rndm () < rgn->treasure_density)
2351	{
2352	op->x = x;
2353	op->y = y;
2354	create_treasure (rgn->treasure, op, GT_ENVIRONMENT, THIS->difficulty);	2444	create_treasure (rgn->treasure, op, GT_ENVIRONMENT, THIS->difficulty);
2355	}
2356	}	2445	}
2357
2358	op->destroy ();
2359	}
2360		2446
2361	int out_of_map (maptile *map, int x, int y)	2447	int out_of_map (maptile *map, int x, int y)
2362		2448
2363	void	2449	void
2364	trigger (maptile *map, long connection, bool state = true)	2450	trigger (maptile *map, long connection, bool state = true)
…		…
2377	get_map_flags (maptile *map, int x, int y)	2463	get_map_flags (maptile *map, int x, int y)
2378	PPCODE:	2464	PPCODE:
2379	{	2465	{
2380	maptile *nmap = 0;	2466	maptile *nmap = 0;
2381	I16 nx = 0, ny = 0;	2467	I16 nx = 0, ny = 0;
		2468
		2469	PUTBACK;
2382	int flags = get_map_flags (map, &nmap, x, y, &nx, &ny);	2470	int flags = get_map_flags (map, &nmap, x, y, &nx, &ny);
		2471	SPAGAIN;
2383		2472
2384	EXTEND (SP, 4);	2473	EXTEND (SP, 4);
2385	PUSHs (sv_2mortal (newSViv (flags)));	2474	PUSHs (sv_2mortal (newSViv (flags)));
2386		2475
2387	if (GIMME_V == G_ARRAY)	2476	if (GIMME_V == G_ARRAY)
…		…
2390	PUSHs (sv_2mortal (newSViv (nx)));	2479	PUSHs (sv_2mortal (newSViv (nx)));
2391	PUSHs (sv_2mortal (newSViv (ny)));	2480	PUSHs (sv_2mortal (newSViv (ny)));
2392	}	2481	}
2393	}	2482	}
2394		2483
		2484	mapspace *
		2485	ms (maptile *map, unsigned int x, unsigned int y)
		2486	PROTOTYPE: $$$
		2487	CODE:
		2488	{
		2489	maptile *nmap = 0;
		2490	I16 nx, ny;
		2491
		2492	PUTBACK;
		2493	get_map_flags (map, &nmap, x, y, &nx, &ny);
		2494	SPAGAIN;
		2495
		2496	if (!nmap)
		2497	XSRETURN_UNDEF;
		2498
		2499	RETVAL = &nmap->at (nx, ny);
		2500	}
		2501	OUTPUT:
		2502	RETVAL
		2503
2395	void	2504	void
2396	at (maptile *map, unsigned int x, unsigned int y)	2505	at (maptile *map, unsigned int x, unsigned int y)
2397	PROTOTYPE: $$$	2506	PROTOTYPE: $$$
2398	PPCODE:	2507	PPCODE:
2399	{	2508	{
2400	object *o;
2401	maptile *nmap = 0;	2509	maptile *nmap = 0;
2402	I16 nx, ny;	2510	I16 nx, ny;
2403		2511
		2512	PUTBACK;
2404	get_map_flags (map, &nmap, x, y, &nx, &ny);	2513	get_map_flags (map, &nmap, x, y, &nx, &ny);
		2514	SPAGAIN;
2405		2515
2406	if (nmap)	2516	if (nmap)
2407	for (o = GET_MAP_OB (nmap, nx, ny); o; o = o->above)	2517	for (object *o = nmap->at (nx, ny).bot; o; o = o->above)
2408	XPUSHs (sv_2mortal (to_sv (o)));	2518	XPUSHs (sv_2mortal (to_sv (o)));
2409	}	2519	}
2410		2520
2411	SV *	2521	SV *
2412	bot_at (maptile *obj, unsigned int x, unsigned int y)	2522	bot_at (maptile *map, unsigned int x, unsigned int y)
2413	PROTOTYPE: $$$	2523	PROTOTYPE: $$$
2414	ALIAS:	2524	ALIAS:
2415	top_at = 1	2525	top_at = 1
2416	flags_at = 2	2526	flags_at = 2
2417	light_at = 3	2527	light_at = 3
2418	move_block_at = 4	2528	move_block_at = 4
2419	move_slow_at = 5	2529	move_slow_at = 5
2420	move_on_at = 6	2530	move_on_at = 6
2421	move_off_at = 7	2531	move_off_at = 7
2422	INIT:
2423	if (x >= obj->width \|\| y >= obj->height) XSRETURN_UNDEF;
2424	CODE:	2532	CODE:
		2533	{
		2534	sint16 nx = x;
		2535	sint16 ny = y;
		2536
		2537	if (!xy_normalise (map, nx, ny))
		2538	XSRETURN_UNDEF;
		2539
		2540	mapspace &ms = map->at (nx, ny);
		2541
		2542	ms.update ();
		2543
2425	switch (ix)	2544	switch (ix)
2426	{	2545	{
2427	case 0: RETVAL = to_sv (GET_MAP_OB (obj, x, y)); break;	2546	case 0: RETVAL = to_sv (ms.bot ); break;
2428	case 1: RETVAL = to_sv (GET_MAP_TOP (obj, x, y)); break;	2547	case 1: RETVAL = to_sv (ms.top ); break;
2429	case 2: RETVAL = newSVuv (GET_MAP_FLAGS (obj, x, y)); break;	2548	case 2: RETVAL = newSVuv (ms.flags_ ); break;
2430	case 3: RETVAL = newSViv (GET_MAP_LIGHT (obj, x, y)); break;	2549	case 3: RETVAL = newSViv (ms.light ); break;
2431	case 4: RETVAL = newSVuv (GET_MAP_MOVE_BLOCK (obj, x, y)); break;	2550	case 4: RETVAL = newSVuv (ms.move_block); break;
2432	case 5: RETVAL = newSVuv (GET_MAP_MOVE_SLOW (obj, x, y)); break;	2551	case 5: RETVAL = newSVuv (ms.move_slow ); break;
2433	case 6: RETVAL = newSVuv (GET_MAP_MOVE_ON (obj, x, y)); break;	2552	case 6: RETVAL = newSVuv (ms.move_on ); break;
2434	case 7: RETVAL = newSVuv (GET_MAP_MOVE_OFF (obj, x, y)); break;	2553	case 7: RETVAL = newSVuv (ms.move_off ); break;
2435	}	2554	}
		2555	}
2436	OUTPUT: RETVAL	2556	OUTPUT: RETVAL
2437		2557
2438	void fix_walls (maptile *map, int x, int y)	2558	void fix_walls (maptile *map, int x, int y)
2439		2559
2440	void fix_walls_around (maptile *map, int x, int y)	2560	void fix_walls_around (maptile *map, int x, int y)
…		…
2525	RETVAL = self->generate_random_map (&rmp);	2645	RETVAL = self->generate_random_map (&rmp);
2526	}	2646	}
2527	OUTPUT:	2647	OUTPUT:
2528	RETVAL	2648	RETVAL
2529		2649
		2650	MODULE = cf PACKAGE = cf::mapspace
		2651
		2652	INCLUDE: $PERL $srcdir/genacc mapspace ../include/map.h \|
		2653
2530	MODULE = cf PACKAGE = cf::arch	2654	MODULE = cf PACKAGE = cf::arch
2531		2655
2532	int archetypes_size ()	2656	int archetypes_size ()
2533	CODE:	2657	CODE:
2534	RETVAL = archetypes.size ();	2658	RETVAL = archetypes.size ();
…		…
2736	}	2860	}
2737	}	2861	}
2738		2862
2739	int get_data_size (faceidx idx, int faceset = 0)	2863	int get_data_size (faceidx idx, int faceset = 0)
2740	CODE:	2864	CODE:
2741	facedata *d = face_data (idx, faceset); assert (d);	2865	facedata *d = face_data (idx, faceset);
		2866	if (!d) XSRETURN_UNDEF;
2742	RETVAL = d->data.size ();	2867	RETVAL = d->data.size ();
2743	OUTPUT:	2868	OUTPUT:
2744	RETVAL	2869	RETVAL
2745		2870
2746	SV *get_chksum (faceidx idx, int faceset = 0)	2871	SV *get_chksum (faceidx idx, int faceset = 0)
2747	CODE:	2872	CODE:
2748	facedata *d = face_data (idx, faceset); assert (d);	2873	facedata *d = face_data (idx, faceset);
		2874	if (!d) XSRETURN_UNDEF;
2749	RETVAL = newSVpvn ((char *)d->chksum, CHKSUM_SIZE);	2875	RETVAL = newSVpvn ((char *)d->chksum, CHKSUM_SIZE);
		2876	OUTPUT:
		2877	RETVAL
		2878
		2879	SV *get_data (faceidx idx, int faceset = 0)
		2880	CODE:
		2881	facedata *d = face_data (idx, faceset);
		2882	if (!d) XSRETURN_UNDEF;
		2883	RETVAL = newSVpvn (d->data.data (), d->data.length ());
2750	OUTPUT:	2884	OUTPUT:
2751	RETVAL	2885	RETVAL
2752		2886
2753	void invalidate (faceidx idx)	2887	void invalidate (faceidx idx)
2754	CODE:	2888	CODE:
…		…
2846	extract_tags (object_thawer *self)	2980	extract_tags (object_thawer *self)
2847	PPCODE:	2981	PPCODE:
2848	while (self->kw != KW_EOF)	2982	while (self->kw != KW_EOF)
2849	{	2983	{
2850	PUTBACK;	2984	PUTBACK;
2851	coroapi::cede_to_tick_every (5000);	2985	coroapi::cede_to_tick ();
2852	SPAGAIN;	2986	SPAGAIN;
2853		2987
2854	if (self->kw == KW_tag)	2988	if (self->kw == KW_tag)
2855	XPUSHs (sv_2mortal (newSVpv_utf8 (self->get_str ())));	2989	XPUSHs (sv_2mortal (newSVpv_utf8 (self->get_str ())));
2856		2990

Diff Legend

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

Comparing deliantra/server/server/cfperl.xs (file contents): Revision 1.262 by root, Tue Oct 16 06:15:10 2007 UTC vs. Revision 1.312 by root, Tue Dec 23 06:58:24 2008 UTC

Diff Legend

Comparing deliantra/server/server/cfperl.xs (file contents):
Revision 1.262 by root, Tue Oct 16 06:15:10 2007 UTC vs.
Revision 1.312 by root, Tue Dec 23 06:58:24 2008 UTC