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

Comparing deliantra/server/server/cfperl.xs (file contents):
Revision 1.254 by root, Mon Sep 10 18:30:30 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 <plugin_common.h>
36	#include <sounds.h>
37	#include <cstdarg>	30	#include <cstdarg>
38	#include <sproto.h>	31	#include <typeinfo>
39		32
		33	#include "global.h"
40	#include "loader.h"	34	#include "loader.h"
		35	#include "../random_maps/random_map.h"
41	#include "cfperl.h"	36	#include "evthread.h"
42	#include "shstr.h"	37	#include "sproto.h"
43		38
44	#include <unistd.h>	39	#include <unistd.h>
45	#if _POSIX_MEMLOCK	40	#if _POSIX_MEMLOCK
46	# include <sys/mman.h>	41	# include <sys/mman.h>
47	#endif	42	#endif
48		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
49	#include <EXTERN.h>	52	#include <EXTERN.h>
50	#include <perl.h>	53	#include <perl.h>
51	#include <XSUB.h>	54	#include <XSUB.h>
52		55
53	#include "CoroAPI.h"	56	#include "CoroAPI.h"
…		…
58	typedef object_thawer &object_thawer_ref;	61	typedef object_thawer &object_thawer_ref;
59	typedef object_freezer &object_freezer_ref;	62	typedef object_freezer &object_freezer_ref;
60		63
61	typedef std::string std__string;	64	typedef std::string std__string;
62		65
63	#if IVSIZE >= 8
64	typedef IV val64;
65	# define newSVval64 newSViv
66	# define SvVAL64 SvIV
67	#else
68	typedef double val64;
69	# define newSVval64 newSVnv
70	# define SvVAL64 SvNV
71	#endif
72
73	static f_plug_api gethook = cfapi_get_hooks;
74	static f_plug_api object_insert = cfapi_object_insert;
75
76	static PerlInterpreter *perl;	66	static PerlInterpreter *perl;
77		67
78	tstamp NOW, runtime;	68	tstamp NOW, runtime;
		69
		70	static int tick_inhibit;
		71	static int tick_pending;
79		72
80	global gbl_ev;	73	global gbl_ev;
81	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;
82	static SV sv_runtime, sv_next_tick;	75	static SV sv_runtime, sv_tick_start, sv_next_tick, sv_now;
83		76
84	bitset<NUM_EVENT_TYPES> ev_want_event;	77	bitset<NUM_EVENT_TYPES> ev_want_event;
85	bitset<NUM_TYPES> ev_want_type;	78	bitset<NUM_TYPES> ev_want_type;
86		79
87	static HV	80	static HV
88	*stash_cf,	81	*stash_cf,
89	*stash_cf_object_wrap,	82	*stash_cf_object_wrap,
90	*stash_cf_object_player_wrap,	83	*stash_cf_object_player_wrap,
91	*stash_cf_player_wrap,	84	*stash_cf_player_wrap,
92	*stash_cf_map_wrap,	85	*stash_cf_map_wrap,
		86	*stash_cf_mapspace_wrap,
93	*stash_cf_client_wrap,	87	*stash_cf_client_wrap,
94	*stash_cf_arch_wrap,	88	*stash_cf_arch_wrap,
95	*stash_cf_party_wrap,	89	*stash_cf_party_wrap,
96	*stash_cf_region_wrap,	90	*stash_cf_region_wrap,
97	*stash_cf_living_wrap;	91	*stash_cf_living_wrap;
…		…
436	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); }
437	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); }
438	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); }
439	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); }
440	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); }
441		436
442	inline SV *to_sv (object & v) { return to_sv (&v); }	437	inline SV *to_sv (object & v) { return to_sv (&v); }
443	inline SV *to_sv (living & v) { return to_sv (&v); }	438	inline SV *to_sv (living & v) { return to_sv (&v); }
444		439
445	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 ()); }
446	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); }
447		442
		443	inline SV *to_sv (UUID v) { return newSVpv (v.c_str (), 0); }
		444
448	inline SV *to_sv (UUID v)	445	inline SV to_sv (dynbuf v)
449	{	446	{
450	char buf[128];	447	SV *sv = newSV (0);
451	snprintf (buf, 128, "<1.%" PRIx64 ">", v.seq);	448
452	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;
453	}	464	}
454		465
455	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; }
456	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; }
457	inline void sv_to (SV *sv, bool &v) { v = SvIV (sv); }	468	inline void sv_to (SV *sv, bool &v) { v = SvIV (sv); }
…		…
474	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"); }
475	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"); }
476	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"); }
477	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"); }
478	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"); }
479	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"); }
480	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" ); }
481		493
482	//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)]; }
483	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)); }
…		…
500	v.assign (data, len);	512	v.assign (data, len);
501	}	513	}
502		514
503	inline void sv_to (SV *sv, UUID &v)	515	inline void sv_to (SV *sv, UUID &v)
504	{	516	{
505	unsigned int version;	517	if (!v.parse (SvPV_nolen (sv)))
506
507	if (2 != sscanf (SvPV_nolen (sv), "<%d.%" SCNx64 ">", &version, &v.seq) \|\| 1 != version)
508	croak ("unparsable uuid: %s", SvPV_nolen (sv));	518	croak ("unparsable uuid: %s", SvPV_nolen (sv));
509	}	519	}
510		520
511	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); }
512		522
…		…
590	va_end (ap);	600	va_end (ap);
591		601
592	return sv;	602	return sv;
593	}	603	}
594		604
595	static SV *
596	newSVcfapi (int type, ...)
597	{
598	SV *sv;
599
600	va_list ap;
601	va_start (ap, type);
602
603	switch (type)
604	{
605	case CFAPI_INT: sv = newSViv (va_arg (ap, int )); break;
606	case CFAPI_LONG: sv = newSVval64 (va_arg (ap, sint64 )); break;
607	case CFAPI_DOUBLE: sv = newSVnv (va_arg (ap, double )); break;
608	case CFAPI_STRING: sv = newSVdt_va (ap, DT_STRING); break;
609	case CFAPI_POBJECT: sv = newSVdt_va (ap, DT_OBJECT); break;
610	case CFAPI_PMAP: sv = newSVdt_va (ap, DT_MAP ); break;
611	case CFAPI_PPLAYER: sv = newSVdt_va (ap, DT_PLAYER); break;
612	case CFAPI_PARCH: sv = newSVdt_va (ap, DT_ARCH ); break;
613	case CFAPI_PPARTY: sv = newSVdt_va (ap, DT_PARTY ); break;
614	case CFAPI_PREGION: sv = newSVdt_va (ap, DT_REGION); break;
615
616	default:
617	assert (("unhandled type in newSVcfapi", 0));
618	}
619
620	va_end (ap);
621
622	return sv;
623	}
624
625	//////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////	605	//////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
626		606
627	SV *	607	SV *
628	registry (attachable *ext)	608	registry (attachable *ext)
629	{	609	{
…		…
633	return newRV_inc ((SV *)ext->cb);	613	return newRV_inc ((SV *)ext->cb);
634	}	614	}
635		615
636	/////////////////////////////////////////////////////////////////////////////	616	/////////////////////////////////////////////////////////////////////////////
637		617
638	extern "C" int cfperl_initPlugin (const char *iversion, f_plug_api gethooksptr)
639	{
640	return 0;
641	}
642
643	static CommArray_s rtn_cmd;
644
645	static int
646	runPluginCommand (object obj, char params)
647	{
648	return -1;
649	}
650
651	extern "C" void cfperl_getPluginProperty (int type, ...)
652	{
653	va_list args;
654	char *propname;
655	int i;
656	va_start (args, type);
657	propname = va_arg (args, char *);
658	//printf ("Property name: %s\n", propname);
659
660	if (!strcmp (propname, "command?"))
661	return NULL;
662	else if (!strcmp (propname, "Identification"))
663	{
664	va_end (args);
665	return (void *)PLUGIN_NAME;
666	}
667	else if (!strcmp (propname, "FullName"))
668	{
669	va_end (args);
670	return (void *)PLUGIN_VERSION;
671	}
672	else
673	va_end (args);
674
675	return NULL;
676	}
677
678	extern "C" int cfperl_postInitPlugin ()
679	{
680	int hooktype = 1;
681	int rtype = 0;
682
683	cf_init_plugin (gethook);
684
685	return 0;
686	}
687
688	extern "C" int cfperl_closePlugin ()
689	{
690	return 0;
691	}
692
693	void	618	void
694	cfperl_init ()	619	cfperl_init ()
695	{	620	{
		621	extern char **environ;
		622
696	PERL_SYS_INIT3 (&settings.argc, &settings.argv, 0);	623	PERL_SYS_INIT3 (&settings.argc, &settings.argv, &environ);
697	perl = perl_alloc ();	624	perl = perl_alloc ();
698	perl_construct (perl);	625	perl_construct (perl);
699		626
700	PL_exit_flags \|= PERL_EXIT_DESTRUCT_END;	627	PL_exit_flags \|= PERL_EXIT_DESTRUCT_END;
701		628
702	const char *argv[] = {	629	const char *argv[] = {
703	settings.argv [0],	630	settings.argv [0],
704	"-e"	631	"-e"
705	"use Event; use Coro;" // required for bootstrap	632	"use EV ();"
706	"cf->bootstrap;" // required for datadir :*>	633	"use Coro ();"
		634	"cf->bootstrap;"
707	"unshift @INC, cf::datadir ();"	635	"unshift @INC, cf::datadir ();"
708	"require cf;"	636	"require cf;"
709	};	637	};
710		638
711	if (perl_parse (perl, xs_init, 2, (char )argv, (char )NULL)	639	if (perl_parse (perl, xs_init, 2, (char **)argv, environ)
712	\|\| perl_run (perl))	640	\|\| perl_run (perl))
713	{	641	{
714	printf ("unable to initialize perl-interpreter, aborting.\n");	642	printf ("unable to initialize perl-interpreter, aborting.\n");
715	exit (EXIT_FAILURE);	643	exit (EXIT_FAILURE);
716	}	644	}
717
718	{
719	dSP;
720
721	PUSHMARK (SP);
722	PUTBACK;
723	call_pv ("cf::init", G_DISCARD \| G_VOID);
724	}
725	}	645	}
726		646
727	void cfperl_main ()	647	void cfperl_main ()
728	{	648	{
729	dSP;	649	dSP;
…		…
993	}	913	}
994		914
995	/////////////////////////////////////////////////////////////////////////////	915	/////////////////////////////////////////////////////////////////////////////
996	// various c++ => perl glue functions	916	// various c++ => perl glue functions
997		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
998	void	936	void
999	cfperl_emergency_save ()	937	cfperl_emergency_save ()
1000	{	938	{
1001	CALL_BEGIN (0);	939	CALL_BEGIN (0);
1002	CALL_CALL ("cf::emergency_save", G_VOID);	940	CALL_CALL ("cf::emergency_save", G_VOID);
…		…
1054	{	992	{
1055	CALL_BEGIN (1);	993	CALL_BEGIN (1);
1056	CALL_ARG (name);	994	CALL_ARG (name);
1057	CALL_CALL ("cf::player::find", G_SCALAR);	995	CALL_CALL ("cf::player::find", G_SCALAR);
1058		996
1059	player *retval;	997	player *retval = 0;
1060
1061	if (count)
1062	sv_to (POPs, retval);	998	if (count) sv_to (POPs, retval);
1063	else	999
1064	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);
1065		1016
1066	CALL_END;	1017	CALL_END;
1067		1018
1068	return retval;	1019	return retval;
1069	}	1020	}
…		…
1074	CALL_BEGIN (2);	1025	CALL_BEGIN (2);
1075	CALL_ARG (path);	1026	CALL_ARG (path);
1076	CALL_ARG (origin);	1027	CALL_ARG (origin);
1077	CALL_CALL ("cf::map::find_sync", G_SCALAR);	1028	CALL_CALL ("cf::map::find_sync", G_SCALAR);
1078		1029
1079	maptile *retval;	1030	maptile *retval = 0;
1080
1081	if (count)
1082	sv_to (POPs, retval);	1031	if (count) sv_to (POPs, retval);
1083	else
1084	retval = 0;
1085		1032
1086	CALL_END;	1033	CALL_END;
1087		1034
1088	return retval;	1035	return retval;
1089	}	1036	}
…		…
1095	CALL_ARG (path);	1042	CALL_ARG (path);
1096	CALL_ARG (origin);	1043	CALL_ARG (origin);
1097	CALL_ARG (load);	1044	CALL_ARG (load);
1098	CALL_CALL ("cf::map::find_async", G_SCALAR);	1045	CALL_CALL ("cf::map::find_async", G_SCALAR);
1099		1046
1100	maptile *retval;	1047	maptile *retval = 0;
1101
1102	if (count)
1103	sv_to (POPs, retval);	1048	if (count) sv_to (POPs, retval);
1104	else
1105	retval = 0;
1106		1049
1107	CALL_END;	1050	CALL_END;
1108		1051
1109	return retval;	1052	return retval;
1110	}	1053	}
…		…
1135		1078
1136	CALL_BEGIN (2);	1079	CALL_BEGIN (2);
1137	CALL_ARG (this);	1080	CALL_ARG (this);
1138	CALL_ARG (exit);	1081	CALL_ARG (exit);
1139	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);
1140	CALL_END;	1098	CALL_END;
1141	}	1099	}
1142		1100
1143	const char *	1101	const char *
1144	object::ref () const	1102	object::ref () const
…		…
1185	#endif	1143	#endif
1186	}	1144	}
1187		1145
1188	/////////////////////////////////////////////////////////////////////////////	1146	/////////////////////////////////////////////////////////////////////////////
1189		1147
1190	struct EventAPI *watcher_base::GEventAPI;	1148	struct EVAPI *evapi::GEVAPI;
1191	struct CoroAPI *coroapi::GCoroAPI;	1149	struct CoroAPI *coroapi::GCoroAPI;
1192
1193	int coroapi::cede_counter;
1194	tstamp coroapi::next_cede;
1195		1150
1196	void coroapi::do_cede_to_tick ()	1151	void coroapi::do_cede_to_tick ()
1197	{	1152	{
1198	cede_counter = 0;	1153	cede_pending = 0;
1199
1200	cede ();	1154	cede ();
1201
1202	next_cede += (TICK / CEDES_PER_TICK) * 0.99;
1203	if (next_cede > SvNV (sv_next_tick) - 0.02)
1204	next_cede = SvNV (sv_next_tick);
1205	}
1206
1207	void coroapi::do_cede_every ()
1208	{
1209	cede_counter = 0;
1210
1211	if (coroapi::nready ())
1212	coroapi::cede ();
1213	}
1214
1215	void coroapi::do_cede_to_tick_every ()
1216	{
1217	cede_counter = 0;
1218
1219	cede_to_tick ();
1220	}	1155	}
1221		1156
1222	void	1157	void
1223	coroapi::wait_for_tick ()	1158	coroapi::wait_for_tick ()
1224	{	1159	{
…		…
1233	CALL_BEGIN (0);	1168	CALL_BEGIN (0);
1234	CALL_CALL ("cf::wait_for_tick_begin", G_DISCARD);	1169	CALL_CALL ("cf::wait_for_tick_begin", G_DISCARD);
1235	CALL_END;	1170	CALL_END;
1236	}	1171	}
1237		1172
1238	static void
1239	iw_dispatch (pe_event *ev)
1240	{
1241	iw w = (iw )ev->ext_data;
1242	w->call (*w);
1243	}
1244
1245	void
1246	iw::alloc ()
1247	{
1248	pe = GEventAPI->new_idle (0, 0);
1249
1250	WaREENTRANT_off (pe);
1251	pe->base.callback = (void *)iw_dispatch;
1252	pe->base.ext_data = (void *)this;
1253	}
1254
1255	static void iow_dispatch (pe_event *ev)
1256	{
1257	iow w = (iow )ev->ext_data;
1258	w->call (w, ((pe_ioevent )ev)->got);
1259	}
1260
1261	void
1262	iow::alloc ()
1263	{
1264	pe = GEventAPI->new_io (0, 0);
1265
1266	WaREENTRANT_off (pe);
1267	pe->base.callback = (void *)iow_dispatch;
1268	pe->base.ext_data = (void *)this;
1269
1270	pe->fd = -1;
1271	pe->poll = 0;
1272	}
1273
1274	void
1275	iow::fd (int fd)
1276	{
1277	pe->fd = fd;
1278	}
1279
1280	int
1281	iow::poll ()
1282	{
1283	return pe->poll;
1284	}
1285
1286	void	1173	void
1287	iow::poll (int events)	1174	iow::poll (int events)
1288	{	1175	{
1289	if (pe->poll != events)	1176	if (events != this->events)
1290	{	1177	{
		1178	int active = ev_is_active ((ev_io *)this);
1291	if (pe->poll) stop ();	1179	if (active) stop ();
1292	pe->poll = events;	1180	ev_io_set ((ev_io *)this, fd, events);
1293	if (pe->poll) start ();	1181	if (active) start ();
1294	}	1182	}
1295	}	1183	}
1296		1184
1297	void	1185	void
1298	_connect_to_perl ()	1186	_connect_to_perl ()
1299	{	1187	{
1300	stash_cf = gv_stashpv ("cf" , 1);	1188	stash_cf = gv_stashpv ("cf", 1);
1301		1189
1302	stash_cf_object_wrap = gv_stashpv ("cf::object::wrap", 1);	1190	stash_cf_object_wrap = gv_stashpv ("cf::object::wrap", 1);
1303	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);
1304	stash_cf_player_wrap = gv_stashpv ("cf::player::wrap", 1);	1192	stash_cf_player_wrap = gv_stashpv ("cf::player::wrap", 1);
1305	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);
1306	stash_cf_client_wrap = gv_stashpv ("cf::client::wrap", 1);	1195	stash_cf_client_wrap = gv_stashpv ("cf::client::wrap", 1);
1307	stash_cf_arch_wrap = gv_stashpv ("cf::arch::wrap" , 1);	1196	stash_cf_arch_wrap = gv_stashpv ("cf::arch::wrap" , 1);
1308	stash_cf_party_wrap = gv_stashpv ("cf::party::wrap" , 1);	1197	stash_cf_party_wrap = gv_stashpv ("cf::party::wrap" , 1);
1309	stash_cf_region_wrap = gv_stashpv ("cf::region::wrap", 1);	1198	stash_cf_region_wrap = gv_stashpv ("cf::region::wrap", 1);
1310	stash_cf_living_wrap = gv_stashpv ("cf::living::wrap", 1);	1199	stash_cf_living_wrap = gv_stashpv ("cf::living::wrap", 1);
1311		1200
		1201	sv_now = get_sv ("cf::NOW" , 1); SvUPGRADE (sv_now , SVt_NV);
1312	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);
1313	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);
1314		1205
1315	cb_global = get_av ("cf::CB_GLOBAL", 1);	1206	cb_global = get_av ("cf::CB_GLOBAL", 1);
1316	cb_attachable = get_av ("cf::CB_ATTACHABLE", 1);	1207	cb_attachable = get_av ("cf::CB_ATTACHABLE", 1);
1317	cb_object = get_av ("cf::CB_OBJECT", 1);	1208	cb_object = get_av ("cf::CB_OBJECT", 1);
1318	cb_player = get_av ("cf::CB_PLAYER", 1);	1209	cb_player = get_av ("cf::CB_PLAYER", 1);
…		…
1323		1214
1324	MODULE = cf PACKAGE = cf PREFIX = cf_	1215	MODULE = cf PACKAGE = cf PREFIX = cf_
1325		1216
1326	BOOT:	1217	BOOT:
1327	{	1218	{
1328	I_EVENT_API (PACKAGE); watcher_base::GEventAPI = GEventAPI;	1219	I_EV_API (PACKAGE); evapi::GEVAPI = GEVAPI;
1329	I_CORO_API (PACKAGE); coroapi::GCoroAPI = GCoroAPI;	1220	I_CORO_API (PACKAGE); coroapi::GCoroAPI = GCoroAPI;
1330		1221
1331	_connect_to_perl ();	1222	_connect_to_perl ();
1332		1223
1333	newCONSTSUB (stash_cf, "VERSION", newSVpv (VERSION, sizeof (VERSION) - 1));	1224	newCONSTSUB (stash_cf, "VERSION", newSVpv (VERSION, sizeof (VERSION) - 1));
1334		1225
…		…
1352	const_iv (Map0Cmd) const_iv (Map1Cmd) const_iv (Map1aCmd)	1243	const_iv (Map0Cmd) const_iv (Map1Cmd) const_iv (Map1aCmd)
1353		1244
1354	const_iv (MAP_CLIENT_X) const_iv (MAP_CLIENT_Y)	1245	const_iv (MAP_CLIENT_X) const_iv (MAP_CLIENT_Y)
1355		1246
1356	const_iv (MAX_TIME)	1247	const_iv (MAX_TIME)
		1248	const_iv (MAXSOCKBUF)
1357		1249
1358	const_iv (NUM_BODY_LOCATIONS)	1250	const_iv (NUM_BODY_LOCATIONS)
1359	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)
1360	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)
1361	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)
…		…
1427	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)
1428	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)
1429	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)
1430	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)
1431	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)
1432	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)
1433	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)
1434	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)
1435	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)
1436	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)
1437		1329
1438	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)
1439	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)
1440	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)
1441	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)
1442	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)
1443	const_iv (NDI_NOCREATE) const_iv (NDI_CLEAR)	1335	const_iv (NDI_NOCREATE) const_iv (NDI_CLEAR) const_iv (NDI_VERBATIM)
1444		1336
1445	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)
1446	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)
1447		1339
1448	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)
…		…
1500	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)
1501	const_iv (F_LOCKED)	1393	const_iv (F_LOCKED)
1502		1394
1503	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)
1504		1396
1505	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)
1506	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)
1507		1399
1508	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)
1509		1401
1510	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)
1511	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)
1512		1404
1513	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)
1514	const_iv (WILL_APPLY_DOOR) const_iv (WILL_APPLY_FOOD)	1406	const_iv (WILL_APPLY_DOOR) const_iv (WILL_APPLY_FOOD)
1515		1407
1516	const_iv (SAVE_MODE) const_iv (SAVE_DIR_MODE)	1408	const_iv (SAVE_MODE) const_iv (SAVE_DIR_MODE)
…		…
1550	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)
1551	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)
1552	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)
1553	const_iv (ATNR_LIFE_STEALING) const_iv (ATNR_DISEASE)	1445	const_iv (ATNR_LIFE_STEALING) const_iv (ATNR_DISEASE)
1554		1446
1555	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)
1556		1449
1557	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)
1558	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)
1559		1452
1560	const_iv (VERSION_CS) const_iv (VERSION_SC)	1453	const_iv (VERSION_CS) const_iv (VERSION_SC)
…		…
1575		1468
1576	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)
1577	const_iv (SYMMETRY_Y) const_iv (SYMMETRY_XY)	1470	const_iv (SYMMETRY_Y) const_iv (SYMMETRY_XY)
1578		1471
1579	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)
1580	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)
1581	const_iv (GT_MINIMAL)
1582		1474
1583	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)
1584	const_iv (FT_RSRC) const_iv (FT_NUM)	1476	const_iv (FT_RSRC) const_iv (FT_NUM)
1585	};	1477	};
1586		1478
…		…
1608	av_store (av, eiv->iv, newRV_noinc ((SV *)event));	1500	av_store (av, eiv->iv, newRV_noinc ((SV *)event));
1609	newCONSTSUB (stash_cf, (char *)eiv->name, newSViv (eiv->iv));	1501	newCONSTSUB (stash_cf, (char *)eiv->name, newSViv (eiv->iv));
1610	}	1502	}
1611	}	1503	}
1612		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
1613	void _connect_to_perl ()	1519	void _connect_to_perl ()
1614		1520
1615	void _recalc_want ()	1521	void _recalc_want ()
1616		1522
1617	void _global_reattach ()	1523	void _global_reattach ()
…		…
1665	}	1571	}
1666		1572
1667	SvCUR_set (data_sv, dst - SvPVX (data_sv));	1573	SvCUR_set (data_sv, dst - SvPVX (data_sv));
1668	}	1574	}
1669		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
1670	void _post_tick ()	1606	void cede_to_tick ()
1671	CODE:	1607	CODE:
1672	coroapi::next_cede = SvNV (sv_next_tick) - TICK * (1. - 1. / CEDES_PER_TICK);	1608	coroapi::cede_to_tick ();
1673		1609
1674	NV till_cede ()	1610	NV till_tick ()
1675	CODE:	1611	CODE:
1676	RETVAL = coroapi::next_cede - now ();	1612	RETVAL = SvNVX (sv_next_tick) - now ();
1677	OUTPUT:	1613	OUTPUT:
1678	RETVAL	1614	RETVAL
1679		1615
1680	NV till_tick ()	1616	int tick_inhibit ()
1681	CODE:	1617	CODE:
1682	RETVAL = SvNV (sv_next_tick) - now ();	1618	RETVAL = tick_inhibit;
1683	OUTPUT:	1619	OUTPUT:
1684	RETVAL	1620	RETVAL
1685		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
1686	NV floor (NV x)	1651	NV floor (NV x)
1687		1652
1688	NV ceil (NV x)	1653	NV ceil (NV x)
1689		1654
1690	NV rndm (...)	1655	NV rndm (...)
		1656	ALIAS:
		1657	rmg_rndm = 1
1691	CODE:	1658	CODE:
		1659	{
		1660	rand_gen &gen = ix ? rmg_rndm : rndm;
1692	switch (items)	1661	switch (items)
1693	{	1662	{
1694	case 0: RETVAL = rndm (); break;	1663	case 0: RETVAL = gen (); break;
1695	case 1: RETVAL = rndm (SvUV (ST (0))); break;	1664	case 1: RETVAL = gen (SvUV (ST (0))); break;
1696	case 2: RETVAL = rndm (SvIV (ST (0)), SvIV (ST (1))); break;	1665	case 2: RETVAL = gen (SvIV (ST (0)), SvIV (ST (1))); break;
1697	default: croak ("cf::rndm requires none, one or two parameters."); break;	1666	default: croak ("cf::rndm requires none, one or two parameters."); break;
1698	}	1667	}
		1668	}
1699	OUTPUT:	1669	OUTPUT:
1700	RETVAL	1670	RETVAL
1701		1671
1702	NV clamp (NV value, NV min_value, NV max_value)	1672	NV clamp (NV value, NV min_value, NV max_value)
1703	CODE:	1673	CODE:
…		…
1709	CODE:	1679	CODE:
1710	RETVAL = lerp (value, min_in, max_in, min_out, max_out);	1680	RETVAL = lerp (value, min_in, max_in, min_out, max_out);
1711	OUTPUT:	1681	OUTPUT:
1712	RETVAL	1682	RETVAL
1713		1683
1714	void cede_to_tick ()	1684	void weaken (...)
1715	CODE:	1685	PROTOTYPE: @
1716	coroapi::cede_to_tick ();	1686	CODE:
1717		1687	while (items > 0)
1718	void server_tick ()	1688	sv_rvweaken (ST (--items));
1719	CODE:
1720	NOW = now ();
1721	runtime = SvNVx (sv_runtime);
1722	server_tick ();
1723		1689
1724	void	1690	void
1725	log_backtrace (utf8_string msg)	1691	log_backtrace (utf8_string msg)
1726		1692
1727	void	1693	void
…		…
1766		1732
1767	void abort ()	1733	void abort ()
1768		1734
1769	void reset_signals ()	1735	void reset_signals ()
1770		1736
1771	void fork_abort (octet_string cause = "cf::fork_abort")	1737	void fork_abort (const_octet_string cause = "cf::fork_abort")
1772		1738
1773	void cleanup (octet_string cause, bool make_core = false)	1739	void cleanup (const_octet_string cause, bool make_core = false)
1774		1740
1775	void emergency_save ()	1741	void emergency_save ()
1776		1742
1777	void _exit (int status = EXIT_SUCCESS)	1743	void _exit (int status = EXIT_SUCCESS)
1778		1744
1779	UV sv_2watcher (SV *w)
1780	CODE:
1781	RETVAL = (UV)GEventAPI->sv_2watcher (w);
1782	OUTPUT:
1783	RETVAL
1784
1785	#if _POSIX_MEMLOCK	1745	#if _POSIX_MEMLOCK
1786		1746
1787	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
1788		1755
1789	int munlockall ()	1756	int munlockall ()
1790		1757
1791	#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	}
1792		1786
1793	int find_animation (utf8_string text)	1787	int find_animation (utf8_string text)
1794	PROTOTYPE: $	1788	PROTOTYPE: $
1795		1789
1796	int random_roll (int min, int max, object *op, int goodbad);	1790	int random_roll (int min, int max, object *op, int goodbad);
…		…
1834	RETVAL = newSVpv (resist_plus[atnr], 0);	1828	RETVAL = newSVpv (resist_plus[atnr], 0);
1835	else	1829	else
1836	XSRETURN_UNDEF;	1830	XSRETURN_UNDEF;
1837	OUTPUT: RETVAL	1831	OUTPUT: RETVAL
1838		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
1839	bool	1875	bool
1840	load_resource_file (octet_string filename)	1876	load_resource_file_ (octet_string filename)
		1877
		1878	void
		1879	fix_weight ()
1841		1880
1842	MODULE = cf PACKAGE = cf::attachable	1881	MODULE = cf PACKAGE = cf::attachable
1843		1882
1844	int	1883	int
1845	valid (SV *obj)	1884	valid (SV *obj)
…		…
1909	object *actives (U32 index)	1948	object *actives (U32 index)
1910	CODE:	1949	CODE:
1911	RETVAL = index < actives.size () ? actives [index] : 0;	1950	RETVAL = index < actives.size () ? actives [index] : 0;
1912	OUTPUT: RETVAL	1951	OUTPUT: RETVAL
1913		1952
		1953	int mortals_size ()
		1954	CODE:
		1955	RETVAL = attachable::mortals.size ();
		1956	OUTPUT: RETVAL
		1957
1914	const char *slot_use_name (U32 slot)	1958	const char *slot_use_name (U32 slot)
1915	ALIAS:	1959	ALIAS:
1916	slot_nonuse_name = 1	1960	slot_nonuse_name = 1
1917	CODE:	1961	CODE:
1918	{	1962	{
…		…
1981		2025
1982	int need_identify (object *obj);	2026	int need_identify (object *obj);
1983		2027
1984	int apply_shop_mat (object shop_mat, object op);	2028	int apply_shop_mat (object shop_mat, object op);
1985		2029
1986	int move_player (object *op, int dir)
1987	CODE:
1988	RETVAL = move_player (op, dir);
1989	OUTPUT:
1990	RETVAL
1991
1992	int move (object op, int dir, object originator = op)	2030	int move (object op, int dir, object originator = op)
1993	CODE:	2031	CODE:
1994	RETVAL = move_ob (op, dir, originator);	2032	RETVAL = move_ob (op, dir, originator);
1995	OUTPUT:	2033	OUTPUT:
1996	RETVAL	2034	RETVAL
…		…
2003	CODE:	2041	CODE:
2004	player_apply_below (op);	2042	player_apply_below (op);
2005		2043
2006	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)
2007		2045
2008	object cf_object_present_archname_inside (object op, utf8_string whatstr)
2009
2010	int cf_object_transfer (object op, int x, int y, int r = 0, object_ornull orig = 0)
2011
2012	int cf_object_change_map (object op, int x, int y, maptile map)
2013
2014	#//TODO
2015	object clone_ (object op, int recursive = 0)
2016	CODE:
2017	if (recursive)
2018	RETVAL = object_create_clone (op);
2019	else
2020	{
2021	RETVAL = object::create ();
2022	op->copy_to (RETVAL);
2023	}
2024	OUTPUT: RETVAL
2025
2026	int pay_item (object op, object buyer)	2046	int pay_item (object op, object buyer)
2027	CODE:	2047	CODE:
2028	RETVAL = pay_for_item (op, buyer);	2048	RETVAL = pay_for_item (op, buyer);
2029	OUTPUT: RETVAL	2049	OUTPUT: RETVAL
2030		2050
…		…
2064		2084
2065	void drop (object who, object op)	2085	void drop (object who, object op)
2066		2086
2067	void pick_up (object who, object op)	2087	void pick_up (object who, object op)
2068		2088
2069	int cf_object_teleport (object op, maptile map, int x, int y)
2070
2071	void update_object (object *op, int action)	2089	void update_object (object *op, int action)
2072		2090
2073	object *cf_create_object_by_name (utf8_string name)
2074
2075	void change_exp (object *op, uint64 exp, utf8_string skill_name = 0, int flag = 0)	2091	void change_exp (object *op, uint64 exp, utf8_string skill_name = 0, int flag = 0)
2076		2092
2077	void player_lvl_adj (object who, object skill = 0)	2093	void player_lvl_adj (object who, object skill = 0)
2078		2094
2079	int kill_object (object op, int dam = 0, object hitter = 0, int type = AT_PHYSICAL)	2095	int kill_object (object op, int dam = 0, object hitter = 0, int type = AT_PHYSICAL)
…		…
2090		2106
2091	void handle_apply_yield (object *op);	2107	void handle_apply_yield (object *op);
2092		2108
2093		2109
2094	MODULE = cf PACKAGE = cf::object PREFIX = cf_	2110	MODULE = cf PACKAGE = cf::object PREFIX = cf_
2095
2096	object cf_insert_ob_in_ob (object ob, object *where)
2097		2111
2098	# no clean way to get an object from an archetype - stupid idiotic	2112	# no clean way to get an object from an archetype - stupid idiotic
2099	# dumb kludgy misdesigned plug-in api slowly gets on my nerves.	2113	# dumb kludgy misdesigned plug-in api slowly gets on my nerves.
2100		2114
2101	object *new (utf8_string archetype = 0)	2115	object *new (utf8_string archetype = 0)
…		…
2110	# TODO: nuke	2124	# TODO: nuke
2111	object insert_ob_in_map_at (object ob, maptile where, object_ornull orig, int flag, int x, int y)	2125	object insert_ob_in_map_at (object ob, maptile where, object_ornull orig, int flag, int x, int y)
2112	PROTOTYPE: $$$$$$	2126	PROTOTYPE: $$$$$$
2113	CODE:	2127	CODE:
2114	{	2128	{
2115	int unused_type;	2129	RETVAL = insert_ob_in_map_at (ob, where, orig, flag, x, y);
2116	RETVAL = (object *)object_insert (&unused_type, ob, 0, where, orig, flag, x, y);
2117	}	2130	}
2118		2131
2119	const_utf8_string get_ob_key_value (object *op, utf8_string key)	2132	shstr
		2133	object::kv_get (shstr key)
2120		2134
2121	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)
2122		2140
2123	object get_nearest_player (object ob)	2141	object get_nearest_player (object ob)
2124	ALIAS: nearest_player = 0	2142	ALIAS: nearest_player = 0
2125	PREINIT:	2143	PREINIT:
2126	extern object get_nearest_player (object );	2144	extern object get_nearest_player (object );
…		…
2128	void rangevector (object ob, object other, int flags = 0)	2146	void rangevector (object ob, object other, int flags = 0)
2129	PROTOTYPE: $$;$	2147	PROTOTYPE: $$;$
2130	PPCODE:	2148	PPCODE:
2131	{	2149	{
2132	rv_vector rv;	2150	rv_vector rv;
		2151
		2152	PUTBACK;
2133	get_rangevector (ob, other, &rv, flags);	2153	get_rangevector (ob, other, &rv, flags);
		2154	SPAGAIN;
		2155
2134	EXTEND (SP, 5);	2156	EXTEND (SP, 5);
2135	PUSHs (newSVuv (rv.distance));	2157	PUSHs (newSVuv (rv.distance));
2136	PUSHs (newSViv (rv.distance_x));	2158	PUSHs (newSViv (rv.distance_x));
2137	PUSHs (newSViv (rv.distance_y));	2159	PUSHs (newSViv (rv.distance_y));
2138	PUSHs (newSViv (rv.direction));	2160	PUSHs (newSViv (rv.direction));
2139	PUSHs (newSVcfapi (CFAPI_POBJECT, rv.part));	2161	PUSHs (to_sv (rv.part));
2140	}	2162	}
2141		2163
2142	bool on_same_map_as (object ob, object other)	2164	bool on_same_map_as (object ob, object other)
2143	CODE:	2165	CODE:
2144	RETVAL = on_same_map (ob, other);	2166	RETVAL = on_same_map (ob, other);
…		…
2148	base_name (object *op, int plural = op->nrof > 1)	2170	base_name (object *op, int plural = op->nrof > 1)
2149	CODE:	2171	CODE:
2150	RETVAL = query_base_name (op, plural);	2172	RETVAL = query_base_name (op, plural);
2151	OUTPUT: RETVAL	2173	OUTPUT: RETVAL
2152		2174
2153	object decrease_ob_nr (object op, unsigned long i)	2175	# return the tail of an object, excluding itself
		2176	void
		2177	tail (object *op)
		2178	PPCODE:
		2179	while ((op = op->more))
		2180	XPUSHs (sv_2mortal (to_sv (op)));
2154		2181
2155	MODULE = cf PACKAGE = cf::object::player PREFIX = cf_player_	2182	MODULE = cf PACKAGE = cf::object::player PREFIX = cf_player_
2156		2183
2157	player player (object op)	2184	player player (object op)
2158	CODE:	2185	CODE:
2159	RETVAL = op->contr;	2186	RETVAL = op->contr;
2160	OUTPUT: RETVAL	2187	OUTPUT: RETVAL
2161		2188
		2189	bool move_player (object *op, int dir)
		2190
2162	void check_score (object *op)	2191	void check_score (object *op)
2163		2192
2164	void message (object *op, utf8_string txt, int flags = NDI_ORANGE \| NDI_UNIQUE)	2193	void message (object *op, utf8_string txt, int flags = NDI_ORANGE \| NDI_UNIQUE)
2165	CODE:	2194	CODE:
2166	new_draw_info (flags, 0, op, txt);	2195	new_draw_info (flags, 0, op, txt);
2167		2196
2168	void kill_player (object *op)	2197	void kill_player (object *op)
2169		2198
		2199	void esrv_send_item (object pl, object item)
		2200
2170	void esrv_update_item (object op, int what, object item)	2201	void esrv_update_item (object pl, int what, object item)
2171	C_ARGS: what, op, item	2202	C_ARGS: what, pl, item
		2203
		2204	void esrv_del_item (object *pl, int tag)
		2205	C_ARGS: pl->contr, tag
2172		2206
2173	int command_summon (object *op, utf8_string params)	2207	int command_summon (object *op, utf8_string params)
2174		2208
2175	int command_arrest (object *op, utf8_string params)	2209	int command_arrest (object *op, utf8_string params)
2176		2210
…		…
2197	pl->ob->stats.grace = pl->ob->stats.maxgrace;	2231	pl->ob->stats.grace = pl->ob->stats.maxgrace;
2198	pl->orig_stats = pl->ob->stats;	2232	pl->orig_stats = pl->ob->stats;
2199		2233
2200	void clear_los (player *pl)	2234	void clear_los (player *pl)
2201		2235
2202	void cf_player_move (player *pl, int dir)
2203
2204	bool	2236	bool
2205	cell_visible (player *pl, int dx, int dy)	2237	cell_visible (player *pl, int dx, int dy)
2206	CODE:	2238	CODE:
2207	RETVAL = FABS (dx) <= pl->ns->mapx / 2 && FABS (dy) <= pl->ns->mapy / 2	2239	RETVAL = FABS (dx) <= pl->ns->mapx / 2 && FABS (dy) <= pl->ns->mapy / 2
2208	&& !pl->blocked_los [dx + pl->ns->mapx / 2][dy + pl->ns->mapy / 2];	2240	&& !pl->blocked_los [dx + pl->ns->mapx / 2][dy + pl->ns->mapy / 2];
…		…
2214	CODE:	2246	CODE:
2215	{	2247	{
2216	STRLEN len;	2248	STRLEN len;
2217	char *buf = SvPVbyte (packet, len);	2249	char *buf = SvPVbyte (packet, len);
2218		2250
		2251	if (len > MAXSOCKBUF)
		2252	pl->failmsg ("[packet too long for client]");
2219	if (pl->ns)	2253	else if (pl->ns)
2220	pl->ns->send_packet (buf, len);	2254	pl->ns->send_packet (buf, len);
2221	}	2255	}
2222
2223	int
2224	listening (player *pl, int new_value = -1)
2225	CODE:
2226	RETVAL = pl->listening;
2227	if (new_value >= 0)
2228	pl->listening = new_value;
2229	OUTPUT:
2230	RETVAL
2231		2256
2232	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)
2233	PROTOTYPE: $;$$$	2258	PROTOTYPE: $;$$$
2234	PPCODE:	2259	PPCODE:
2235	if (GIMME_V != G_VOID)	2260	if (GIMME_V != G_VOID)
…		…
2260	RETVAL = map->invoke ((event_type)event, ARG_AV (av), DT_END);	2285	RETVAL = map->invoke ((event_type)event, ARG_AV (av), DT_END);
2261	OUTPUT: RETVAL	2286	OUTPUT: RETVAL
2262		2287
2263	SV registry (maptile map)	2288	SV registry (maptile map)
2264		2289
		2290	void
		2291	find_tagged_objects (maptile *map, utf8_string tag = 0)
		2292	PPCODE:
		2293	{
		2294	if (!map->spaces)
		2295	XSRETURN_EMPTY;
		2296
		2297	if (tag)
		2298	{
		2299	shstr_cmp tag_ (tag);
		2300
		2301	for (mapspace *ms = map->spaces + map->size (); ms-- > map->spaces; )
		2302	for (object *op = ms->bot; op; op = op->above)
		2303	if (op->tag == tag_)
		2304	XPUSHs (sv_2mortal (to_sv (op)));
		2305	}
		2306	else
		2307	{
		2308	for (mapspace *ms = map->spaces + map->size (); ms-- > map->spaces; )
		2309	for (object *op = ms->bot; op; op = op->above)
		2310	if (op->tag)
		2311	XPUSHs (sv_2mortal (to_sv (op)));
		2312	}
		2313	}
		2314
2265	INCLUDE: $PERL $srcdir/genacc maptile ../include/map.h \|	2315	INCLUDE: $PERL $srcdir/genacc maptile ../include/map.h \|
2266		2316
2267	void	2317	void
2268	maptile::instantiate ()	2318	maptile::instantiate ()
2269		2319
…		…
2365	}	2415	}
2366		2416
2367	void	2417	void
2368	maptile::create_region_treasure ()	2418	maptile::create_region_treasure ()
2369	CODE:	2419	CODE:
2370	{
2371	object *op = object::create ();
2372	op->type = FLOOR;
2373	op->map = THIS;
2374
2375	for (int x = 0; x < THIS->width; ++x)	2420	for (int x = 0; x < THIS->width; ++x)
2376	for (int y = 0; y < THIS->height; ++y)	2421	for (int y = 0; y < THIS->height; ++y)
2377	{	2422	{
2378	region *rgn = THIS->region (x, y);	2423	region *rgn = THIS->region (x, y);
2379		2424
2380	//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)
2381	if (rgn->treasure && rndm () < rgn->treasure_density)	2427	if (rgn->treasure && rndm () < rgn->treasure_density)
2382	{
2383	op->x = x;
2384	op->y = y;
2385	create_treasure (rgn->treasure, op, GT_ENVIRONMENT, THIS->difficulty);	2428	create_treasure (rgn->treasure, op, GT_ENVIRONMENT, THIS->difficulty);
2386	}
2387	}	2429	}
2388
2389	op->destroy ();
2390	}
2391		2430
2392	int out_of_map (maptile *map, int x, int y)	2431	int out_of_map (maptile *map, int x, int y)
2393		2432
2394	void	2433	void
2395	trigger (maptile *map, long connection, bool state = true)	2434	trigger (maptile *map, long connection, bool state = true)
…		…
2400	get_connection (maptile *map, long connection)	2439	get_connection (maptile *map, long connection)
2401	PPCODE:	2440	PPCODE:
2402	oblinkpt *obp = get_connection_links (map, connection);	2441	oblinkpt *obp = get_connection_links (map, connection);
2403	if (obp)	2442	if (obp)
2404	for (objectlink *ol = obp->link; ol; ol = ol->next)	2443	for (objectlink *ol = obp->link; ol; ol = ol->next)
2405	XPUSHs (sv_2mortal (newSVcfapi (CFAPI_POBJECT, (object *)ol->ob)));	2444	XPUSHs (sv_2mortal (to_sv ((object *)ol->ob)));
2406
2407	object cf_map_insert_object_there (maptile where, object op, object originator, int flags)
2408
2409	object cf_map_insert_object (maptile where, object* op, int x, int y)
2410
2411	object* cf_map_present_arch_by_name (maptile map, const char str, int nx, int ny)
2412	C_ARGS: str, map, nx, ny
2413		2445
2414	void	2446	void
2415	get_map_flags (maptile *map, int x, int y)	2447	get_map_flags (maptile *map, int x, int y)
2416	PPCODE:	2448	PPCODE:
2417	{	2449	{
2418	maptile *nmap = 0;	2450	maptile *nmap = 0;
2419	I16 nx = 0, ny = 0;	2451	I16 nx = 0, ny = 0;
		2452
		2453	PUTBACK;
2420	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;
2421		2456
2422	EXTEND (SP, 4);	2457	EXTEND (SP, 4);
2423	PUSHs (sv_2mortal (newSViv (flags)));	2458	PUSHs (sv_2mortal (newSViv (flags)));
2424		2459
2425	if (GIMME_V == G_ARRAY)	2460	if (GIMME_V == G_ARRAY)
2426	{	2461	{
2427	PUSHs (sv_2mortal (newSVcfapi (CFAPI_PMAP, nmap)));	2462	PUSHs (sv_2mortal (to_sv (nmap)));
2428	PUSHs (sv_2mortal (newSViv (nx)));	2463	PUSHs (sv_2mortal (newSViv (nx)));
2429	PUSHs (sv_2mortal (newSViv (ny)));	2464	PUSHs (sv_2mortal (newSViv (ny)));
2430	}	2465	}
2431	}	2466	}
2432		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
2433	void	2488	void
2434	at (maptile *map, unsigned int x, unsigned int y)	2489	at (maptile *map, unsigned int x, unsigned int y)
2435	PROTOTYPE: $$$	2490	PROTOTYPE: $$$
2436	PPCODE:	2491	PPCODE:
2437	{	2492	{
2438	object *o;
2439	maptile *nmap = 0;	2493	maptile *nmap = 0;
2440	I16 nx, ny;	2494	I16 nx, ny;
2441		2495
		2496	PUTBACK;
2442	get_map_flags (map, &nmap, x, y, &nx, &ny);	2497	get_map_flags (map, &nmap, x, y, &nx, &ny);
		2498	SPAGAIN;
2443		2499
2444	if (nmap)	2500	if (nmap)
2445	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)
2446	XPUSHs (sv_2mortal (newSVcfapi (CFAPI_POBJECT, o)));	2502	XPUSHs (sv_2mortal (to_sv (o)));
2447	}	2503	}
2448		2504
2449	SV *	2505	SV *
2450	bot_at (maptile *obj, unsigned int x, unsigned int y)	2506	bot_at (maptile *obj, unsigned int x, unsigned int y)
2451	PROTOTYPE: $$$	2507	PROTOTYPE: $$$
…		…
2460	INIT:	2516	INIT:
2461	if (x >= obj->width \|\| y >= obj->height) XSRETURN_UNDEF;	2517	if (x >= obj->width \|\| y >= obj->height) XSRETURN_UNDEF;
2462	CODE:	2518	CODE:
2463	switch (ix)	2519	switch (ix)
2464	{	2520	{
2465	case 0: RETVAL = newSVcfapi (CFAPI_POBJECT, GET_MAP_OB (obj, x, y)); break;	2521	case 0: RETVAL = to_sv (GET_MAP_OB (obj, x, y)); break;
2466	case 1: RETVAL = newSVcfapi (CFAPI_POBJECT, GET_MAP_TOP (obj, x, y)); break;	2522	case 1: RETVAL = to_sv (GET_MAP_TOP (obj, x, y)); break;
2467	case 2: RETVAL = newSVuv ( GET_MAP_FLAGS (obj, x, y)); break;	2523	case 2: RETVAL = newSVuv (GET_MAP_FLAGS (obj, x, y)); break;
2468	case 3: RETVAL = newSViv ( GET_MAP_LIGHT (obj, x, y)); break;	2524	case 3: RETVAL = newSViv (GET_MAP_LIGHT (obj, x, y)); break;
2469	case 4: RETVAL = newSVuv ( GET_MAP_MOVE_BLOCK (obj, x, y)); break;	2525	case 4: RETVAL = newSVuv (GET_MAP_MOVE_BLOCK (obj, x, y)); break;
2470	case 5: RETVAL = newSVuv ( GET_MAP_MOVE_SLOW (obj, x, y)); break;	2526	case 5: RETVAL = newSVuv (GET_MAP_MOVE_SLOW (obj, x, y)); break;
2471	case 6: RETVAL = newSVuv ( GET_MAP_MOVE_ON (obj, x, y)); break;	2527	case 6: RETVAL = newSVuv (GET_MAP_MOVE_ON (obj, x, y)); break;
2472	case 7: RETVAL = newSVuv ( GET_MAP_MOVE_OFF (obj, x, y)); break;	2528	case 7: RETVAL = newSVuv (GET_MAP_MOVE_OFF (obj, x, y)); break;
2473	}	2529	}
2474	OUTPUT: RETVAL	2530	OUTPUT: RETVAL
2475		2531
2476	void fix_walls (maptile *map, int x, int y)	2532	void fix_walls (maptile *map, int x, int y)
2477		2533
…		…
2563	RETVAL = self->generate_random_map (&rmp);	2619	RETVAL = self->generate_random_map (&rmp);
2564	}	2620	}
2565	OUTPUT:	2621	OUTPUT:
2566	RETVAL	2622	RETVAL
2567		2623
		2624	MODULE = cf PACKAGE = cf::mapspace
		2625
		2626	INCLUDE: $PERL $srcdir/genacc mapspace ../include/map.h \|
		2627
2568	MODULE = cf PACKAGE = cf::arch	2628	MODULE = cf PACKAGE = cf::arch
2569		2629
2570	int archetypes_size ()	2630	int archetypes_size ()
2571	CODE:	2631	CODE:
2572	RETVAL = archetypes.size ();	2632	RETVAL = archetypes.size ();
…		…
2658	CODE:	2718	CODE:
2659	{	2719	{
2660	STRLEN len;	2720	STRLEN len;
2661	char *buf = SvPVbyte (packet, len);	2721	char *buf = SvPVbyte (packet, len);
2662		2722
		2723	if (len > MAXSOCKBUF)
		2724	{
		2725	// ugly
		2726	if (THIS->pl)
		2727	THIS->pl->failmsg ("[packet too long for client]");
		2728	}
		2729	else
2663	THIS->send_packet (buf, len);	2730	THIS->send_packet (buf, len);
2664	}	2731	}
2665		2732
2666	faceidx	2733	faceidx
2667	client::need_face (utf8_string name, int pri = 0)	2734	client::need_face (utf8_string name, int pri = 0)
2668	CODE:	2735	CODE:
…		…
2767	}	2834	}
2768	}	2835	}
2769		2836
2770	int get_data_size (faceidx idx, int faceset = 0)	2837	int get_data_size (faceidx idx, int faceset = 0)
2771	CODE:	2838	CODE:
2772	facedata *d = face_data (idx, faceset); assert (d);	2839	facedata *d = face_data (idx, faceset);
		2840	if (!d) XSRETURN_UNDEF;
2773	RETVAL = d->data.size ();	2841	RETVAL = d->data.size ();
2774	OUTPUT:	2842	OUTPUT:
2775	RETVAL	2843	RETVAL
2776		2844
2777	SV *get_chksum (faceidx idx, int faceset = 0)	2845	SV *get_chksum (faceidx idx, int faceset = 0)
2778	CODE:	2846	CODE:
2779	facedata *d = face_data (idx, faceset); assert (d);	2847	facedata *d = face_data (idx, faceset);
		2848	if (!d) XSRETURN_UNDEF;
2780	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 ());
2781	OUTPUT:	2858	OUTPUT:
2782	RETVAL	2859	RETVAL
2783		2860
2784	void invalidate (faceidx idx)	2861	void invalidate (faceidx idx)
2785	CODE:	2862	CODE:
…		…
2877	extract_tags (object_thawer *self)	2954	extract_tags (object_thawer *self)
2878	PPCODE:	2955	PPCODE:
2879	while (self->kw != KW_EOF)	2956	while (self->kw != KW_EOF)
2880	{	2957	{
2881	PUTBACK;	2958	PUTBACK;
2882	coroapi::cede_to_tick_every (5000);	2959	coroapi::cede_to_tick ();
2883	SPAGAIN;	2960	SPAGAIN;
2884		2961
2885	if (self->kw == KW_tag)	2962	if (self->kw == KW_tag)
2886	XPUSHs (sv_2mortal (newSVpv_utf8 (self->get_str ())));	2963	XPUSHs (sv_2mortal (newSVpv_utf8 (self->get_str ())));
2887		2964

Diff Legend

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

Comparing deliantra/server/server/cfperl.xs (file contents): Revision 1.254 by root, Mon Sep 10 18:30:30 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.254 by root, Mon Sep 10 18:30:30 2007 UTC vs.
Revision 1.303 by root, Tue Sep 23 04:29:11 2008 UTC