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

Comparing deliantra/server/server/cfperl.xs (file contents):
Revision 1.267 by root, Mon Dec 17 08:03:22 2007 UTC vs.
Revision 1.313 by pippijn, Tue Dec 23 18:52:58 2008 UTC

…		…
1	/*	1	/*
2	* This file is part of Deliantra, the Roguelike Realtime MMORPG.	2	* This file is part of Deliantra, the Roguelike Realtime MMORPG.
3	*	3	*
4	* Copyright (©) 2006,2007 Marc Alexander Lehmann / Robin Redeker / the Deliantra 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	* Deliantra 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
21	* The authors can be reached via e-mail to <support@deliantra.net>	21	* The authors can be reached via e-mail to <support@deliantra.net>
22	*/	22	*/
23		23
24	#include "autoconf.h"	24	#include "autoconf.h"
25		25
26	#define PLUGIN_NAME "perl"
27	#define PLUGIN_VERSION "cfperl 0.5"
28
29	#define CEDES_PER_TICK 5
30
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, *sv_now;	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)
…		…
156	SvREFCNT_inc (self);	158	SvREFCNT_inc (self);
157	hv_clear (self);	159	hv_clear (self);
158	sv_unmagic ((SV *)self, PERL_MAGIC_ext);	160	sv_unmagic ((SV *)self, PERL_MAGIC_ext);
159	SvREFCNT_dec (self);	161	SvREFCNT_dec (self);
160		162
161	// self must be null now because thats sv_unmagic's job.	163	// self must be null now because that's sv_unmagic's job.
162	assert (!this->self);	164	assert (!this->self);
163	}	165	}
164	}	166	}
165		167
166	void	168	void
…		…
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 EV; 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
…		…
1102	/////////////////////////////////////////////////////////////////////////////	1155	/////////////////////////////////////////////////////////////////////////////
1103		1156
1104	struct EVAPI *evapi::GEVAPI;	1157	struct EVAPI *evapi::GEVAPI;
1105	struct CoroAPI *coroapi::GCoroAPI;	1158	struct CoroAPI *coroapi::GCoroAPI;
1106		1159
1107	int coroapi::cede_counter;
1108	tstamp coroapi::next_cede;
1109
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 > SvNVx (sv_next_tick) - 0.02)
1118	next_cede = SvNVx (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	{
…		…
1162	}	1192	}
1163		1193
1164	void	1194	void
1165	_connect_to_perl ()	1195	_connect_to_perl ()
1166	{	1196	{
1167	stash_cf = gv_stashpv ("cf" , 1);	1197	stash_cf = gv_stashpv ("cf", 1);
1168		1198
1169	stash_cf_object_wrap = gv_stashpv ("cf::object::wrap", 1);	1199	stash_cf_object_wrap = gv_stashpv ("cf::object::wrap", 1);
1170	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);
1171	stash_cf_player_wrap = gv_stashpv ("cf::player::wrap", 1);	1201	stash_cf_player_wrap = gv_stashpv ("cf::player::wrap", 1);
1172	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);
1173	stash_cf_client_wrap = gv_stashpv ("cf::client::wrap", 1);	1204	stash_cf_client_wrap = gv_stashpv ("cf::client::wrap", 1);
1174	stash_cf_arch_wrap = gv_stashpv ("cf::arch::wrap" , 1);	1205	stash_cf_arch_wrap = gv_stashpv ("cf::arch::wrap" , 1);
1175	stash_cf_party_wrap = gv_stashpv ("cf::party::wrap" , 1);	1206	stash_cf_party_wrap = gv_stashpv ("cf::party::wrap" , 1);
1176	stash_cf_region_wrap = gv_stashpv ("cf::region::wrap", 1);	1207	stash_cf_region_wrap = gv_stashpv ("cf::region::wrap", 1);
1177	stash_cf_living_wrap = gv_stashpv ("cf::living::wrap", 1);	1208	stash_cf_living_wrap = gv_stashpv ("cf::living::wrap", 1);
1178		1209
1179	sv_now = get_sv ("cf::NOW" , 1); sv_upgrade (sv_now , SVt_NV);	1210	sv_now = get_sv ("cf::NOW" , 1); SvUPGRADE (sv_now , SVt_NV);
1180	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);
1181	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);
1182		1214
1183	cb_global = get_av ("cf::CB_GLOBAL", 1);	1215	cb_global = get_av ("cf::CB_GLOBAL", 1);
1184	cb_attachable = get_av ("cf::CB_ATTACHABLE", 1);	1216	cb_attachable = get_av ("cf::CB_ATTACHABLE", 1);
1185	cb_object = get_av ("cf::CB_OBJECT", 1);	1217	cb_object = get_av ("cf::CB_OBJECT", 1);
1186	cb_player = get_av ("cf::CB_PLAYER", 1);	1218	cb_player = get_av ("cf::CB_PLAYER", 1);
…		…
1296	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)
1297	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)
1298	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)
1299	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)
1300	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)
1301	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)
1302	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)
1303	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)
1304	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)
1305	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)
1306		1338
1307	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)
1308	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)
1309	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)
1310	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)
1311	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)
1312	const_iv (NDI_NOCREATE) const_iv (NDI_CLEAR)	1344	const_iv (NDI_NOCREATE) const_iv (NDI_CLEAR) const_iv (NDI_VERBATIM)
1313		1345
1314	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)
1315	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)
1316		1348
1317	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)
…		…
1369	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)
1370	const_iv (F_LOCKED)	1402	const_iv (F_LOCKED)
1371		1403
1372	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)
1373		1405
1374	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)
1375	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)
1376		1408
1377	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)
1378		1410
1379	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)
…		…
1419	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)
1420	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)
1421	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)
1422	const_iv (ATNR_LIFE_STEALING) const_iv (ATNR_DISEASE)	1454	const_iv (ATNR_LIFE_STEALING) const_iv (ATNR_DISEASE)
1423		1455
1424	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)
1425		1458
1426	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)
1427	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)
1428		1461
1429	const_iv (VERSION_CS) const_iv (VERSION_SC)	1462	const_iv (VERSION_CS) const_iv (VERSION_SC)
…		…
1444		1477
1445	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)
1446	const_iv (SYMMETRY_Y) const_iv (SYMMETRY_XY)	1479	const_iv (SYMMETRY_Y) const_iv (SYMMETRY_XY)
1447		1480
1448	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)
1449	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)
1450	const_iv (GT_MINIMAL)
1451		1483
1452	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)
1453	const_iv (FT_RSRC) const_iv (FT_NUM)	1485	const_iv (FT_RSRC) const_iv (FT_NUM)
1454	};	1486	};
1455		1487
…		…
1477	av_store (av, eiv->iv, newRV_noinc ((SV *)event));	1509	av_store (av, eiv->iv, newRV_noinc ((SV *)event));
1478	newCONSTSUB (stash_cf, (char *)eiv->name, newSViv (eiv->iv));	1510	newCONSTSUB (stash_cf, (char *)eiv->name, newSViv (eiv->iv));
1479	}	1511	}
1480	}	1512	}
1481		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
1482	void _connect_to_perl ()	1528	void _connect_to_perl ()
1483		1529
1484	void _recalc_want ()	1530	void _recalc_want ()
1485		1531
		1532	# not used by default anymore
1486	void _global_reattach ()	1533	void _global_reattach ()
1487	CODE:	1534	CODE:
1488	{	1535	{
1489	// reattach to all attachable objects in the game.	1536	// reattach to all attachable objects in the game.
1490	for_all_clients (ns)	1537	for_all_clients (ns)
…		…
1534	}	1581	}
1535		1582
1536	SvCUR_set (data_sv, dst - SvPVX (data_sv));	1583	SvCUR_set (data_sv, dst - SvPVX (data_sv));
1537	}	1584	}
1538		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
1539	void _post_tick ()	1614	void cede_to_tick ()
1540	CODE:	1615	CODE:
1541	coroapi::next_cede = SvNVx (sv_next_tick) - TICK * (1. - 1. / CEDES_PER_TICK);	1616	coroapi::cede_to_tick ();
1542		1617
1543	NV till_cede ()	1618	NV till_tick ()
1544	CODE:	1619	CODE:
1545	RETVAL = coroapi::next_cede - now ();	1620	RETVAL = SvNVX (sv_next_tick) - now ();
1546	OUTPUT:	1621	OUTPUT:
1547	RETVAL	1622	RETVAL
1548		1623
1549	NV till_tick ()	1624	int tick_inhibit ()
1550	CODE:	1625	CODE:
1551	RETVAL = SvNVx (sv_next_tick) - now ();	1626	RETVAL = tick_inhibit;
1552	OUTPUT:	1627	OUTPUT:
1553	RETVAL	1628	RETVAL
1554		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
1555	NV floor (NV x)	1659	NV floor (NV x)
1556		1660
1557	NV ceil (NV x)	1661	NV ceil (NV x)
1558		1662
1559	NV rndm (...)	1663	NV rndm (...)
		1664	ALIAS:
		1665	rmg_rndm = 1
1560	CODE:	1666	CODE:
		1667	{
		1668	rand_gen &gen = ix ? rmg_rndm : rndm;
1561	switch (items)	1669	switch (items)
1562	{	1670	{
1563	case 0: RETVAL = rndm (); break;	1671	case 0: RETVAL = gen (); break;
1564	case 1: RETVAL = rndm (SvUV (ST (0))); break;	1672	case 1: RETVAL = gen (SvUV (ST (0))); break;
1565	case 2: RETVAL = rndm (SvIV (ST (0)), SvIV (ST (1))); break;	1673	case 2: RETVAL = gen (SvIV (ST (0)), SvIV (ST (1))); break;
1566	default: croak ("cf::rndm requires none, one or two parameters."); break;	1674	default: croak ("cf::rndm requires none, one or two parameters."); break;
1567	}	1675	}
		1676	}
1568	OUTPUT:	1677	OUTPUT:
1569	RETVAL	1678	RETVAL
1570		1679
1571	NV clamp (NV value, NV min_value, NV max_value)	1680	NV clamp (NV value, NV min_value, NV max_value)
1572	CODE:	1681	CODE:
…		…
1578	CODE:	1687	CODE:
1579	RETVAL = lerp (value, min_in, max_in, min_out, max_out);	1688	RETVAL = lerp (value, min_in, max_in, min_out, max_out);
1580	OUTPUT:	1689	OUTPUT:
1581	RETVAL	1690	RETVAL
1582		1691
1583	void cede_to_tick ()	1692	void weaken (...)
1584	CODE:	1693	PROTOTYPE: @
1585	coroapi::cede_to_tick ();	1694	CODE:
1586		1695	while (items > 0)
1587	void server_tick ()	1696	sv_rvweaken (ST (--items));
1588	CODE:
1589	NOW = SvNVx (sv_now);
1590	runtime = SvNVx (sv_runtime);
1591	server_tick ();
1592		1697
1593	void	1698	void
1594	log_backtrace (utf8_string msg)	1699	log_backtrace (utf8_string msg)
1595		1700
1596	void	1701	void
…		…
1601	octet_string path_combine (octet_string base, octet_string path)	1706	octet_string path_combine (octet_string base, octet_string path)
1602	PROTOTYPE: $$	1707	PROTOTYPE: $$
1603		1708
1604	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)
1605	PROTOTYPE: $$	1710	PROTOTYPE: $$
1606
1607	void
1608	mallinfo ()
1609	PPCODE:
1610	{
1611	#if __GLIBC__
1612	struct mallinfo mai = mallinfo ();
1613	EXTEND (SP, 10*2);
1614	PUSHs (sv_2mortal (newSVpv ("arena" , 0))); PUSHs (sv_2mortal (newSViv (mai.arena)));
1615	PUSHs (sv_2mortal (newSVpv ("ordblks" , 0))); PUSHs (sv_2mortal (newSViv (mai.ordblks)));
1616	PUSHs (sv_2mortal (newSVpv ("smblks" , 0))); PUSHs (sv_2mortal (newSViv (mai.smblks)));
1617	PUSHs (sv_2mortal (newSVpv ("hblks" , 0))); PUSHs (sv_2mortal (newSViv (mai.hblks)));
1618	PUSHs (sv_2mortal (newSVpv ("hblkhd" , 0))); PUSHs (sv_2mortal (newSViv (mai.hblkhd)));
1619	PUSHs (sv_2mortal (newSVpv ("usmblks" , 0))); PUSHs (sv_2mortal (newSViv (mai.usmblks)));
1620	PUSHs (sv_2mortal (newSVpv ("fsmblks" , 0))); PUSHs (sv_2mortal (newSViv (mai.fsmblks)));
1621	PUSHs (sv_2mortal (newSVpv ("uordblks", 0))); PUSHs (sv_2mortal (newSViv (mai.uordblks)));
1622	PUSHs (sv_2mortal (newSVpv ("fordblks", 0))); PUSHs (sv_2mortal (newSViv (mai.fordblks)));
1623	PUSHs (sv_2mortal (newSVpv ("keepcost", 0))); PUSHs (sv_2mortal (newSViv (mai.keepcost)));
1624	#endif
1625	EXTEND (SP, 2*2);
1626	PUSHs (sv_2mortal (newSVpv ("slice_alloc", 0))); PUSHs (sv_2mortal (newSVuv (slice_alloc)));
1627	PUSHs (sv_2mortal (newSVpv ("shstr_alloc", 0))); PUSHs (sv_2mortal (newSVuv (shstr_alloc)));
1628	}
1629		1711
1630	void	1712	void
1631	sub_generation_inc ()	1713	sub_generation_inc ()
1632	CODE:	1714	CODE:
1633	PL_sub_generation++;	1715	PL_sub_generation++;
…		…
1658		1740
1659	void abort ()	1741	void abort ()
1660		1742
1661	void reset_signals ()	1743	void reset_signals ()
1662		1744
1663	void fork_abort (octet_string cause = "cf::fork_abort")	1745	void fork_abort (const_octet_string cause = "cf::fork_abort")
1664		1746
1665	void cleanup (octet_string cause, bool make_core = false)	1747	void cleanup (const_octet_string cause, bool make_core = false)
1666		1748
1667	void emergency_save ()	1749	void emergency_save ()
1668		1750
1669	void _exit (int status = EXIT_SUCCESS)	1751	void _exit (int status = EXIT_SUCCESS)
1670		1752
1671	#if _POSIX_MEMLOCK	1753	#if _POSIX_MEMLOCK
1672		1754
1673	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
1674		1763
1675	int munlockall ()	1764	int munlockall ()
1676		1765
1677	#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	}
1678		1796
1679	int find_animation (utf8_string text)	1797	int find_animation (utf8_string text)
1680	PROTOTYPE: $	1798	PROTOTYPE: $
1681		1799
1682	int random_roll (int min, int max, object *op, int goodbad);	1800	int random_roll (int min, int max, object *op, int goodbad);
…		…
1720	RETVAL = newSVpv (resist_plus[atnr], 0);	1838	RETVAL = newSVpv (resist_plus[atnr], 0);
1721	else	1839	else
1722	XSRETURN_UNDEF;	1840	XSRETURN_UNDEF;
1723	OUTPUT: RETVAL	1841	OUTPUT: RETVAL
1724		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
1725	bool	1885	bool
1726	load_resource_file (octet_string filename)	1886	load_resource_file_ (octet_string filename)
		1887
		1888	void
		1889	fix_weight ()
1727		1890
1728	MODULE = cf PACKAGE = cf::attachable	1891	MODULE = cf PACKAGE = cf::attachable
1729		1892
1730	int	1893	int
1731	valid (SV *obj)	1894	valid (SV *obj)
…		…
1795	object *actives (U32 index)	1958	object *actives (U32 index)
1796	CODE:	1959	CODE:
1797	RETVAL = index < actives.size () ? actives [index] : 0;	1960	RETVAL = index < actives.size () ? actives [index] : 0;
1798	OUTPUT: RETVAL	1961	OUTPUT: RETVAL
1799		1962
		1963	int mortals_size ()
		1964	CODE:
		1965	RETVAL = attachable::mortals.size ();
		1966	OUTPUT: RETVAL
		1967
1800	const char *slot_use_name (U32 slot)	1968	const char *slot_use_name (U32 slot)
1801	ALIAS:	1969	ALIAS:
1802	slot_nonuse_name = 1	1970	slot_nonuse_name = 1
1803	CODE:	1971	CODE:
1804	{	1972	{
…		…
1882	void apply_below (object *op)	2050	void apply_below (object *op)
1883	CODE:	2051	CODE:
1884	player_apply_below (op);	2052	player_apply_below (op);
1885		2053
1886	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)
1887
1888	#//TODO
1889	object clone_ (object op, int recursive = 0)
1890	CODE:
1891	if (recursive)
1892	RETVAL = object_create_clone (op);
1893	else
1894	{
1895	RETVAL = object::create ();
1896	op->copy_to (RETVAL);
1897	}
1898	OUTPUT: RETVAL
1899		2055
1900	int pay_item (object op, object buyer)	2056	int pay_item (object op, object buyer)
1901	CODE:	2057	CODE:
1902	RETVAL = pay_for_item (op, buyer);	2058	RETVAL = pay_for_item (op, buyer);
1903	OUTPUT: RETVAL	2059	OUTPUT: RETVAL
…		…
1981	CODE:	2137	CODE:
1982	{	2138	{
1983	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);
1984	}	2140	}
1985		2141
1986	const_utf8_string get_ob_key_value (object *op, utf8_string key)	2142	shstr
		2143	object::kv_get (shstr key)
1987		2144
1988	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)
1989		2150
1990	object get_nearest_player (object ob)	2151	object get_nearest_player (object ob)
1991	ALIAS: nearest_player = 0	2152	ALIAS: nearest_player = 0
1992	PREINIT:	2153	PREINIT:
1993	extern object get_nearest_player (object );	2154	extern object get_nearest_player (object );
…		…
1995	void rangevector (object ob, object other, int flags = 0)	2156	void rangevector (object ob, object other, int flags = 0)
1996	PROTOTYPE: $$;$	2157	PROTOTYPE: $$;$
1997	PPCODE:	2158	PPCODE:
1998	{	2159	{
1999	rv_vector rv;	2160	rv_vector rv;
		2161
		2162	PUTBACK;
2000	get_rangevector (ob, other, &rv, flags);	2163	get_rangevector (ob, other, &rv, flags);
		2164	SPAGAIN;
		2165
2001	EXTEND (SP, 5);	2166	EXTEND (SP, 5);
2002	PUSHs (newSVuv (rv.distance));	2167	PUSHs (newSVuv (rv.distance));
2003	PUSHs (newSViv (rv.distance_x));	2168	PUSHs (newSViv (rv.distance_x));
2004	PUSHs (newSViv (rv.distance_y));	2169	PUSHs (newSViv (rv.distance_y));
2005	PUSHs (newSViv (rv.direction));	2170	PUSHs (newSViv (rv.direction));
…		…
2015	base_name (object *op, int plural = op->nrof > 1)	2180	base_name (object *op, int plural = op->nrof > 1)
2016	CODE:	2181	CODE:
2017	RETVAL = query_base_name (op, plural);	2182	RETVAL = query_base_name (op, plural);
2018	OUTPUT: RETVAL	2183	OUTPUT: RETVAL
2019		2184
2020	object decrease_ob_nr (object op, unsigned long i)
2021
2022	# return the tail of an object, excluding itself	2185	# return the tail of an object, excluding itself
2023	void	2186	void
2024	tail (object *op)	2187	tail (object *op)
2025	PPCODE:	2188	PPCODE:
2026	while ((op = op->more))	2189	while ((op = op->more))
…		…
2076	pl->ob->stats.hp = pl->ob->stats.maxhp;	2239	pl->ob->stats.hp = pl->ob->stats.maxhp;
2077	pl->ob->stats.sp = pl->ob->stats.maxsp;	2240	pl->ob->stats.sp = pl->ob->stats.maxsp;
2078	pl->ob->stats.grace = pl->ob->stats.maxgrace;	2241	pl->ob->stats.grace = pl->ob->stats.maxgrace;
2079	pl->orig_stats = pl->ob->stats;	2242	pl->orig_stats = pl->ob->stats;
2080		2243
2081	void clear_los (player *pl)	2244	# should only be temporary
		2245	void esrv_new_player (player *pl)
2082		2246
		2247	#d# TODO: replace by blocked_los accessor, fix code using this
2083	bool	2248	bool
2084	cell_visible (player *pl, int dx, int dy)	2249	cell_visible (player *pl, int dx, int dy)
2085	CODE:	2250	CODE:
2086	RETVAL = FABS (dx) <= pl->ns->mapx / 2 && FABS (dy) <= pl->ns->mapy / 2	2251	RETVAL = pl->blocked_los (dx, dy) != LOS_BLOCKED;
2087	&& !pl->blocked_los [dx + pl->ns->mapx / 2][dy + pl->ns->mapy / 2];
2088	OUTPUT:	2252	OUTPUT:
2089	RETVAL	2253	RETVAL
2090		2254
2091	void	2255	void
2092	send (player pl, SV packet)	2256	send (player pl, SV packet)
…		…
2098	if (len > MAXSOCKBUF)	2262	if (len > MAXSOCKBUF)
2099	pl->failmsg ("[packet too long for client]");	2263	pl->failmsg ("[packet too long for client]");
2100	else if (pl->ns)	2264	else if (pl->ns)
2101	pl->ns->send_packet (buf, len);	2265	pl->ns->send_packet (buf, len);
2102	}	2266	}
2103
2104	int
2105	listening (player *pl, int new_value = -1)
2106	CODE:
2107	RETVAL = pl->listening;
2108	if (new_value >= 0)
2109	pl->listening = new_value;
2110	OUTPUT:
2111	RETVAL
2112		2267
2113	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)
2114	PROTOTYPE: $;$$$	2269	PROTOTYPE: $;$$$
2115	PPCODE:	2270	PPCODE:
2116	if (GIMME_V != G_VOID)	2271	if (GIMME_V != G_VOID)
…		…
2169	}	2324	}
2170		2325
2171	INCLUDE: $PERL $srcdir/genacc maptile ../include/map.h \|	2326	INCLUDE: $PERL $srcdir/genacc maptile ../include/map.h \|
2172		2327
2173	void	2328	void
		2329	adjust_daylight ()
		2330	CODE:
		2331	maptile::adjust_daylight ();
		2332
		2333	void
2174	maptile::instantiate ()	2334	maptile::instantiate ()
2175		2335
2176	maptile *new ()	2336	maptile *new ()
2177	PROTOTYPE:	2337	PROTOTYPE:
2178	CODE:	2338	CODE:
…		…
2271	}	2431	}
2272		2432
2273	void	2433	void
2274	maptile::create_region_treasure ()	2434	maptile::create_region_treasure ()
2275	CODE:	2435	CODE:
2276	{
2277	object *op = object::create ();
2278	op->type = FLOOR;
2279	op->map = THIS;
2280
2281	for (int x = 0; x < THIS->width; ++x)	2436	for (int x = 0; x < THIS->width; ++x)
2282	for (int y = 0; y < THIS->height; ++y)	2437	for (int y = 0; y < THIS->height; ++y)
2283	{	2438	{
2284	region *rgn = THIS->region (x, y);	2439	region *rgn = THIS->region (x, y);
2285		2440
2286	//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)
2287	if (rgn->treasure && rndm () < rgn->treasure_density)	2443	if (rgn->treasure && rndm () < rgn->treasure_density)
2288	{
2289	op->x = x;
2290	op->y = y;
2291	create_treasure (rgn->treasure, op, GT_ENVIRONMENT, THIS->difficulty);	2444	create_treasure (rgn->treasure, op, GT_ENVIRONMENT, THIS->difficulty);
2292	}
2293	}	2445	}
2294
2295	op->destroy ();
2296	}
2297		2446
2298	int out_of_map (maptile *map, int x, int y)	2447	int out_of_map (maptile *map, int x, int y)
2299		2448
2300	void	2449	void
2301	trigger (maptile *map, long connection, bool state = true)	2450	trigger (maptile *map, long connection, bool state = true)
…		…
2314	get_map_flags (maptile *map, int x, int y)	2463	get_map_flags (maptile *map, int x, int y)
2315	PPCODE:	2464	PPCODE:
2316	{	2465	{
2317	maptile *nmap = 0;	2466	maptile *nmap = 0;
2318	I16 nx = 0, ny = 0;	2467	I16 nx = 0, ny = 0;
		2468
		2469	PUTBACK;
2319	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;
2320		2472
2321	EXTEND (SP, 4);	2473	EXTEND (SP, 4);
2322	PUSHs (sv_2mortal (newSViv (flags)));	2474	PUSHs (sv_2mortal (newSViv (flags)));
2323		2475
2324	if (GIMME_V == G_ARRAY)	2476	if (GIMME_V == G_ARRAY)
…		…
2327	PUSHs (sv_2mortal (newSViv (nx)));	2479	PUSHs (sv_2mortal (newSViv (nx)));
2328	PUSHs (sv_2mortal (newSViv (ny)));	2480	PUSHs (sv_2mortal (newSViv (ny)));
2329	}	2481	}
2330	}	2482	}
2331		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
2332	void	2504	void
2333	at (maptile *map, unsigned int x, unsigned int y)	2505	at (maptile *map, unsigned int x, unsigned int y)
2334	PROTOTYPE: $$$	2506	PROTOTYPE: $$$
2335	PPCODE:	2507	PPCODE:
2336	{	2508	{
2337	object *o;
2338	maptile *nmap = 0;	2509	maptile *nmap = 0;
2339	I16 nx, ny;	2510	I16 nx, ny;
2340		2511
		2512	PUTBACK;
2341	get_map_flags (map, &nmap, x, y, &nx, &ny);	2513	get_map_flags (map, &nmap, x, y, &nx, &ny);
		2514	SPAGAIN;
2342		2515
2343	if (nmap)	2516	if (nmap)
2344	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)
2345	XPUSHs (sv_2mortal (to_sv (o)));	2518	XPUSHs (sv_2mortal (to_sv (o)));
2346	}	2519	}
2347		2520
2348	SV *	2521	SV *
2349	bot_at (maptile *obj, unsigned int x, unsigned int y)	2522	bot_at (maptile *map, unsigned int x, unsigned int y)
2350	PROTOTYPE: $$$	2523	PROTOTYPE: $$$
2351	ALIAS:	2524	ALIAS:
2352	top_at = 1	2525	top_at = 1
2353	flags_at = 2	2526	flags_at = 2
2354	light_at = 3	2527	light_at = 3
2355	move_block_at = 4	2528	move_block_at = 4
2356	move_slow_at = 5	2529	move_slow_at = 5
2357	move_on_at = 6	2530	move_on_at = 6
2358	move_off_at = 7	2531	move_off_at = 7
2359	INIT:
2360	if (x >= obj->width \|\| y >= obj->height) XSRETURN_UNDEF;
2361	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
2362	switch (ix)	2544	switch (ix)
2363	{	2545	{
2364	case 0: RETVAL = to_sv (GET_MAP_OB (obj, x, y)); break;	2546	case 0: RETVAL = to_sv (ms.bot ); break;
2365	case 1: RETVAL = to_sv (GET_MAP_TOP (obj, x, y)); break;	2547	case 1: RETVAL = to_sv (ms.top ); break;
2366	case 2: RETVAL = newSVuv (GET_MAP_FLAGS (obj, x, y)); break;	2548	case 2: RETVAL = newSVuv (ms.flags_ ); break;
2367	case 3: RETVAL = newSViv (GET_MAP_LIGHT (obj, x, y)); break;	2549	case 3: RETVAL = newSViv (ms.light ); break;
2368	case 4: RETVAL = newSVuv (GET_MAP_MOVE_BLOCK (obj, x, y)); break;	2550	case 4: RETVAL = newSVuv (ms.move_block); break;
2369	case 5: RETVAL = newSVuv (GET_MAP_MOVE_SLOW (obj, x, y)); break;	2551	case 5: RETVAL = newSVuv (ms.move_slow ); break;
2370	case 6: RETVAL = newSVuv (GET_MAP_MOVE_ON (obj, x, y)); break;	2552	case 6: RETVAL = newSVuv (ms.move_on ); break;
2371	case 7: RETVAL = newSVuv (GET_MAP_MOVE_OFF (obj, x, y)); break;	2553	case 7: RETVAL = newSVuv (ms.move_off ); break;
2372	}	2554	}
		2555	}
2373	OUTPUT: RETVAL	2556	OUTPUT: RETVAL
2374		2557
2375	void fix_walls (maptile *map, int x, int y)	2558	void fix_walls (maptile *map, int x, int y)
2376		2559
2377	void fix_walls_around (maptile *map, int x, int y)	2560	void fix_walls_around (maptile *map, int x, int y)
…		…
2462	RETVAL = self->generate_random_map (&rmp);	2645	RETVAL = self->generate_random_map (&rmp);
2463	}	2646	}
2464	OUTPUT:	2647	OUTPUT:
2465	RETVAL	2648	RETVAL
2466		2649
		2650	MODULE = cf PACKAGE = cf::mapspace
		2651
		2652	INCLUDE: $PERL $srcdir/genacc mapspace ../include/map.h \|
		2653
2467	MODULE = cf PACKAGE = cf::arch	2654	MODULE = cf PACKAGE = cf::arch
2468		2655
2469	int archetypes_size ()	2656	int archetypes_size ()
2470	CODE:	2657	CODE:
2471	RETVAL = archetypes.size ();	2658	RETVAL = archetypes.size ();
…		…
2793	extract_tags (object_thawer *self)	2980	extract_tags (object_thawer *self)
2794	PPCODE:	2981	PPCODE:
2795	while (self->kw != KW_EOF)	2982	while (self->kw != KW_EOF)
2796	{	2983	{
2797	PUTBACK;	2984	PUTBACK;
2798	coroapi::cede_to_tick_every (5000);	2985	coroapi::cede_to_tick ();
2799	SPAGAIN;	2986	SPAGAIN;
2800		2987
2801	if (self->kw == KW_tag)	2988	if (self->kw == KW_tag)
2802	XPUSHs (sv_2mortal (newSVpv_utf8 (self->get_str ())));	2989	XPUSHs (sv_2mortal (newSVpv_utf8 (self->get_str ())));
2803		2990

Diff Legend

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

Comparing deliantra/server/server/cfperl.xs (file contents): Revision 1.267 by root, Mon Dec 17 08:03:22 2007 UTC vs. Revision 1.313 by pippijn, Tue Dec 23 18:52:58 2008 UTC

Diff Legend

Comparing deliantra/server/server/cfperl.xs (file contents):
Revision 1.267 by root, Mon Dec 17 08:03:22 2007 UTC vs.
Revision 1.313 by pippijn, Tue Dec 23 18:52:58 2008 UTC