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

Comparing deliantra/server/server/cfperl.xs (file contents):
Revision 1.269 by root, Fri Feb 1 15:54:08 2008 UTC vs.
Revision 1.302 by root, Mon Sep 22 23:57:48 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;
…		…
435	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); }
436	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); }
437	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); }
438	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); }
439	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); }
440		436
441	inline SV *to_sv (object & v) { return to_sv (&v); }	437	inline SV *to_sv (object & v) { return to_sv (&v); }
442	inline SV *to_sv (living & v) { return to_sv (&v); }	438	inline SV *to_sv (living & v) { return to_sv (&v); }
443		439
444	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 ()); }
445	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); }
446		442
		443	inline SV *to_sv (UUID v) { return newSVpv (v.c_str (), 0); }
		444
447	inline SV *to_sv (UUID v)	445	inline SV to_sv (dynbuf v)
448	{	446	{
449	char buf[128];	447	SV *sv = newSV (0);
450	snprintf (buf, 128, "<1.%" PRIx64 ">", v.seq);	448
451	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;
452	}	464	}
453		465
454	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; }
455	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; }
456	inline void sv_to (SV *sv, bool &v) { v = SvIV (sv); }	468	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"); }	485	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"); }	486	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"); }	487	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"); }	488	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"); }	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"); }
478	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"); }
479	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" ); }
480		493
481	//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)]; }
482	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)); }
…		…
499	v.assign (data, len);	512	v.assign (data, len);
500	}	513	}
501		514
502	inline void sv_to (SV *sv, UUID &v)	515	inline void sv_to (SV *sv, UUID &v)
503	{	516	{
504	unsigned int version;	517	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));	518	croak ("unparsable uuid: %s", SvPV_nolen (sv));
508	}	519	}
509		520
510	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); }
511		522
…		…
605	/////////////////////////////////////////////////////////////////////////////	616	/////////////////////////////////////////////////////////////////////////////
606		617
607	void	618	void
608	cfperl_init ()	619	cfperl_init ()
609	{	620	{
		621	extern char **environ;
		622
610	PERL_SYS_INIT3 (&settings.argc, &settings.argv, 0);	623	PERL_SYS_INIT3 (&settings.argc, &settings.argv, &environ);
611	perl = perl_alloc ();	624	perl = perl_alloc ();
612	perl_construct (perl);	625	perl_construct (perl);
613		626
614	PL_exit_flags \|= PERL_EXIT_DESTRUCT_END;	627	PL_exit_flags \|= PERL_EXIT_DESTRUCT_END;
615		628
…		…
620	"cf->bootstrap;" // required for datadir :*>	633	"cf->bootstrap;" // required for datadir :*>
621	"unshift @INC, cf::datadir ();"	634	"unshift @INC, cf::datadir ();"
622	"require cf;"	635	"require cf;"
623	};	636	};
624		637
625	if (perl_parse (perl, xs_init, 2, (char )argv, (char )NULL)	638	if (perl_parse (perl, xs_init, 2, (char **)argv, environ)
626	\|\| perl_run (perl))	639	\|\| perl_run (perl))
627	{	640	{
628	printf ("unable to initialize perl-interpreter, aborting.\n");	641	printf ("unable to initialize perl-interpreter, aborting.\n");
629	exit (EXIT_FAILURE);	642	exit (EXIT_FAILURE);
630	}	643	}
…		…
907	}	920	}
908		921
909	/////////////////////////////////////////////////////////////////////////////	922	/////////////////////////////////////////////////////////////////////////////
910	// various c++ => perl glue functions	923	// various c++ => perl glue functions
911		924
		925	void cfperl_tick ()
		926	{
		927	tick_pending = 1;
		928
		929	if (tick_inhibit)
		930	return;
		931
		932	tick_pending = 0;
		933
		934	dSP;
		935
		936	PUSHMARK (SP);
		937	PUTBACK;
		938	call_pv ("cf::tick", G_DISCARD \| G_VOID);
		939
		940	SvNV_set (sv_next_tick, get_next_tick ()); SvNOK_only (sv_next_tick);
		941	}
		942
912	void	943	void
913	cfperl_emergency_save ()	944	cfperl_emergency_save ()
914	{	945	{
915	CALL_BEGIN (0);	946	CALL_BEGIN (0);
916	CALL_CALL ("cf::emergency_save", G_VOID);	947	CALL_CALL ("cf::emergency_save", G_VOID);
…		…
968	{	999	{
969	CALL_BEGIN (1);	1000	CALL_BEGIN (1);
970	CALL_ARG (name);	1001	CALL_ARG (name);
971	CALL_CALL ("cf::player::find", G_SCALAR);	1002	CALL_CALL ("cf::player::find", G_SCALAR);
972		1003
973	player *retval;	1004	player *retval = 0;
974
975	if (count)
976	sv_to (POPs, retval);	1005	if (count) sv_to (POPs, retval);
977	else	1006
978	retval = 0;	1007	CALL_END;
		1008
		1009	return retval;
		1010	}
		1011
		1012	maptile *
		1013	find_style (const char dirname, const char stylename, int difficulty)
		1014	{
		1015	CALL_BEGIN (3);
		1016	CALL_ARG (dirname);
		1017	CALL_ARG (stylename);
		1018	CALL_ARG (difficulty);
		1019	CALL_CALL ("ext::map_random::find_style", G_SCALAR);
		1020
		1021	maptile *retval = 0;
		1022	if (count) sv_to (POPs, retval);
979		1023
980	CALL_END;	1024	CALL_END;
981		1025
982	return retval;	1026	return retval;
983	}	1027	}
…		…
988	CALL_BEGIN (2);	1032	CALL_BEGIN (2);
989	CALL_ARG (path);	1033	CALL_ARG (path);
990	CALL_ARG (origin);	1034	CALL_ARG (origin);
991	CALL_CALL ("cf::map::find_sync", G_SCALAR);	1035	CALL_CALL ("cf::map::find_sync", G_SCALAR);
992		1036
993	maptile *retval;	1037	maptile *retval = 0;
994
995	if (count)
996	sv_to (POPs, retval);	1038	if (count) sv_to (POPs, retval);
997	else
998	retval = 0;
999		1039
1000	CALL_END;	1040	CALL_END;
1001		1041
1002	return retval;	1042	return retval;
1003	}	1043	}
…		…
1009	CALL_ARG (path);	1049	CALL_ARG (path);
1010	CALL_ARG (origin);	1050	CALL_ARG (origin);
1011	CALL_ARG (load);	1051	CALL_ARG (load);
1012	CALL_CALL ("cf::map::find_async", G_SCALAR);	1052	CALL_CALL ("cf::map::find_async", G_SCALAR);
1013		1053
1014	maptile *retval;	1054	maptile *retval = 0;
1015
1016	if (count)
1017	sv_to (POPs, retval);	1055	if (count) sv_to (POPs, retval);
1018	else
1019	retval = 0;
1020		1056
1021	CALL_END;	1057	CALL_END;
1022		1058
1023	return retval;	1059	return retval;
1024	}	1060	}
…		…
1049		1085
1050	CALL_BEGIN (2);	1086	CALL_BEGIN (2);
1051	CALL_ARG (this);	1087	CALL_ARG (this);
1052	CALL_ARG (exit);	1088	CALL_ARG (exit);
1053	CALL_CALL ("cf::object::player::enter_exit", G_VOID);	1089	CALL_CALL ("cf::object::player::enter_exit", G_VOID);
		1090	CALL_END;
		1091	}
		1092
		1093	void
		1094	object::player_goto (const char *path, int x, int y)
		1095	{
		1096	if (type != PLAYER)
		1097	return;
		1098
		1099	CALL_BEGIN (4);
		1100	CALL_ARG (this);
		1101	CALL_ARG (path);
		1102	CALL_ARG (x);
		1103	CALL_ARG (y);
		1104	CALL_CALL ("cf::object::player::goto", G_VOID);
1054	CALL_END;	1105	CALL_END;
1055	}	1106	}
1056		1107
1057	const char *	1108	const char *
1058	object::ref () const	1109	object::ref () const
…		…
1102	/////////////////////////////////////////////////////////////////////////////	1153	/////////////////////////////////////////////////////////////////////////////
1103		1154
1104	struct EVAPI *evapi::GEVAPI;	1155	struct EVAPI *evapi::GEVAPI;
1105	struct CoroAPI *coroapi::GCoroAPI;	1156	struct CoroAPI *coroapi::GCoroAPI;
1106		1157
1107	int coroapi::cede_counter;
1108	tstamp coroapi::next_cede;
1109
1110	void coroapi::do_cede_to_tick ()	1158	void coroapi::do_cede_to_tick ()
1111	{	1159	{
1112	cede_counter = 0;	1160	cede_pending = 0;
1113
1114	cede ();	1161	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	}	1162	}
1135		1163
1136	void	1164	void
1137	coroapi::wait_for_tick ()	1165	coroapi::wait_for_tick ()
1138	{	1166	{
…		…
1162	}	1190	}
1163		1191
1164	void	1192	void
1165	_connect_to_perl ()	1193	_connect_to_perl ()
1166	{	1194	{
1167	stash_cf = gv_stashpv ("cf" , 1);	1195	stash_cf = gv_stashpv ("cf", 1);
1168		1196
1169	stash_cf_object_wrap = gv_stashpv ("cf::object::wrap", 1);	1197	stash_cf_object_wrap = gv_stashpv ("cf::object::wrap", 1);
1170	stash_cf_object_player_wrap = gv_stashpv ("cf::object::player::wrap", 1);	1198	stash_cf_object_player_wrap = gv_stashpv ("cf::object::player::wrap", 1);
1171	stash_cf_player_wrap = gv_stashpv ("cf::player::wrap", 1);	1199	stash_cf_player_wrap = gv_stashpv ("cf::player::wrap", 1);
1172	stash_cf_map_wrap = gv_stashpv ("cf::map::wrap" , 1);	1200	stash_cf_map_wrap = gv_stashpv ("cf::map::wrap" , 1);
		1201	stash_cf_mapspace_wrap = gv_stashpv ("cf::mapspace::wrap" , 1);
1173	stash_cf_client_wrap = gv_stashpv ("cf::client::wrap", 1);	1202	stash_cf_client_wrap = gv_stashpv ("cf::client::wrap", 1);
1174	stash_cf_arch_wrap = gv_stashpv ("cf::arch::wrap" , 1);	1203	stash_cf_arch_wrap = gv_stashpv ("cf::arch::wrap" , 1);
1175	stash_cf_party_wrap = gv_stashpv ("cf::party::wrap" , 1);	1204	stash_cf_party_wrap = gv_stashpv ("cf::party::wrap" , 1);
1176	stash_cf_region_wrap = gv_stashpv ("cf::region::wrap", 1);	1205	stash_cf_region_wrap = gv_stashpv ("cf::region::wrap", 1);
1177	stash_cf_living_wrap = gv_stashpv ("cf::living::wrap", 1);	1206	stash_cf_living_wrap = gv_stashpv ("cf::living::wrap", 1);
1178		1207
1179	sv_now = get_sv ("cf::NOW" , 1); SvUPGRADE (sv_now , SVt_NV);	1208	sv_now = get_sv ("cf::NOW" , 1); SvUPGRADE (sv_now , SVt_NV);
1180	sv_runtime = get_sv ("cf::RUNTIME" , 1); SvUPGRADE (sv_runtime , SVt_NV);	1209	sv_runtime = get_sv ("cf::RUNTIME" , 1); SvUPGRADE (sv_runtime , SVt_NV);
		1210	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); SvUPGRADE (sv_next_tick, SVt_NV);	1211	sv_next_tick = get_sv ("cf::NEXT_TICK" , 1); SvUPGRADE (sv_next_tick , SVt_NV);
1182		1212
1183	cb_global = get_av ("cf::CB_GLOBAL", 1);	1213	cb_global = get_av ("cf::CB_GLOBAL", 1);
1184	cb_attachable = get_av ("cf::CB_ATTACHABLE", 1);	1214	cb_attachable = get_av ("cf::CB_ATTACHABLE", 1);
1185	cb_object = get_av ("cf::CB_OBJECT", 1);	1215	cb_object = get_av ("cf::CB_OBJECT", 1);
1186	cb_player = get_av ("cf::CB_PLAYER", 1);	1216	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)	1326	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)	1327	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)	1328	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)	1329	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)	1330	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)	1331	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)	1332	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)	1333	const_iv (FLAG_ACTIVATE_ON_PUSH) const_iv (FLAG_ACTIVATE_ON_RELEASE) const_iv (FLAG_IS_WATER)
1304	const_iv (FLAG_CONTENT_ON_GEN) const_iv (FLAG_IS_A_TEMPLATE) const_iv (FLAG_IS_BUILDABLE)	1334	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)	1335	const_iv (FLAG_DESTROY_ON_DEATH) const_iv (FLAG_NO_MAP_SAVE)
1306		1336
1307	const_iv (NDI_BLACK) const_iv (NDI_WHITE) const_iv (NDI_NAVY) const_iv (NDI_RED)	1337	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)	1338	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)	1339	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)	1340	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)	1341	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)	1342	const_iv (NDI_NOCREATE) const_iv (NDI_CLEAR) const_iv (NDI_VERBATIM)
1313		1343
1314	const_iv (UPD_LOCATION) const_iv (UPD_FLAGS) const_iv (UPD_WEIGHT) const_iv (UPD_FACE)	1344	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)	1345	const_iv (UPD_NAME) const_iv (UPD_ANIM) const_iv (UPD_ANIMSPEED) const_iv (UPD_NROF)
1316		1346
1317	const_iv (UPD_SP_MANA) const_iv (UPD_SP_GRACE) const_iv (UPD_SP_DAMAGE)	1347	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)	1399	const_iv (F_CURSED) const_iv (F_DAMNED) const_iv (F_OPEN) const_iv (F_NOPICK)
1370	const_iv (F_LOCKED)	1400	const_iv (F_LOCKED)
1371		1401
1372	const_iv (F_BUY) const_iv (F_SHOP) const_iv (F_SELL)	1402	const_iv (F_BUY) const_iv (F_SHOP) const_iv (F_SELL)
1373		1403
1374	const_iv (P_BLOCKSVIEW) const_iv (P_PLAYER) const_iv (P_NO_MAGIC) const_iv (P_IS_ALIVE)	1404	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)	1405	const_iv (P_NO_CLERIC) const_iv (P_OUT_OF_MAP) const_iv (P_NEW_MAP) const_iv (P_UPTODATE)
1376		1406
1377	const_iv (UP_OBJ_INSERT) const_iv (UP_OBJ_REMOVE) const_iv (UP_OBJ_CHANGE) const_iv (UP_OBJ_FACE)	1407	const_iv (UP_OBJ_INSERT) const_iv (UP_OBJ_REMOVE) const_iv (UP_OBJ_CHANGE) const_iv (UP_OBJ_FACE)
1378		1408
1379	const_iv (INS_NO_MERGE) const_iv (INS_ABOVE_FLOOR_ONLY) const_iv (INS_NO_WALK_ON)	1409	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)	1449	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)	1450	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)	1451	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)	1452	const_iv (ATNR_LIFE_STEALING) const_iv (ATNR_DISEASE)
1423		1453
1424	const_iv (MAP_IN_MEMORY) const_iv (MAP_SWAPPED) const_iv (MAP_LOADING) const_iv (MAP_SAVING)	1454	const_iv (MAP_ACTIVE) const_iv (MAP_SWAPPED) const_iv (MAP_LOADING) const_iv (MAP_SAVING)
		1455	const_iv (MAP_INACTIVE)
1425		1456
1426	const_iv (KLASS_ATTACHABLE) const_iv (KLASS_GLOBAL) const_iv (KLASS_OBJECT)	1457	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)	1458	const_iv (KLASS_CLIENT) const_iv (KLASS_PLAYER) const_iv (KLASS_MAP)
1428		1459
1429	const_iv (VERSION_CS) const_iv (VERSION_SC)	1460	const_iv (VERSION_CS) const_iv (VERSION_SC)
…		…
1444		1475
1445	const_iv (SYMMETRY_RANDOM) const_iv (SYMMETRY_NONE) const_iv (SYMMETRY_X)	1476	const_iv (SYMMETRY_RANDOM) const_iv (SYMMETRY_NONE) const_iv (SYMMETRY_X)
1446	const_iv (SYMMETRY_Y) const_iv (SYMMETRY_XY)	1477	const_iv (SYMMETRY_Y) const_iv (SYMMETRY_XY)
1447		1478
1448	const_iv (GT_ENVIRONMENT) const_iv (GT_INVISIBLE) const_iv (GT_STARTEQUIP)	1479	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)	1480	const_iv (GT_APPLY) const_iv (GT_ONLY_GOOD) const_iv (GT_MINIMAL)
1450	const_iv (GT_MINIMAL)
1451		1481
1452	const_iv (FT_FACE) const_iv (FT_MUSIC) const_iv (FT_SOUND)	1482	const_iv (FT_FACE) const_iv (FT_MUSIC) const_iv (FT_SOUND)
1453	const_iv (FT_RSRC) const_iv (FT_NUM)	1483	const_iv (FT_RSRC) const_iv (FT_NUM)
1454	};	1484	};
1455		1485
…		…
1477	av_store (av, eiv->iv, newRV_noinc ((SV *)event));	1507	av_store (av, eiv->iv, newRV_noinc ((SV *)event));
1478	newCONSTSUB (stash_cf, (char *)eiv->name, newSViv (eiv->iv));	1508	newCONSTSUB (stash_cf, (char *)eiv->name, newSViv (eiv->iv));
1479	}	1509	}
1480	}	1510	}
1481		1511
		1512	void _gv_clear (SV *gv)
		1513	CODE:
		1514	assert (SvTYPE (gv) == SVt_PVGV);
		1515	# define f(sv) { SV sv_ = (SV )(sv); sv = 0; SvREFCNT_dec (sv_); }
		1516	f (GvGP (gv)->gp_form);
		1517	f (GvGP (gv)->gp_io);
		1518	f (GvGP (gv)->gp_sv);
		1519	f (GvGP (gv)->gp_av);
		1520	f (GvGP (gv)->gp_hv);
		1521	f (GvGP (gv)->gp_cv);
		1522	GvCVGEN (gv) = 0;
		1523	GvMULTI_off (gv);
		1524	# undef f
		1525
		1526
1482	void _connect_to_perl ()	1527	void _connect_to_perl ()
1483		1528
1484	void _recalc_want ()	1529	void _recalc_want ()
1485		1530
1486	void _global_reattach ()	1531	void _global_reattach ()
…		…
1534	}	1579	}
1535		1580
1536	SvCUR_set (data_sv, dst - SvPVX (data_sv));	1581	SvCUR_set (data_sv, dst - SvPVX (data_sv));
1537	}	1582	}
1538		1583
		1584	void evthread_start (int aiofd)
		1585
1539	void _post_tick ()	1586	void cede_to_tick ()
1540	CODE:	1587	CODE:
1541	coroapi::next_cede = SvNVx (sv_next_tick) - TICK * (1. - 1. / CEDES_PER_TICK);	1588	coroapi::cede_to_tick ();
1542		1589
1543	NV till_cede ()	1590	NV till_tick ()
1544	CODE:	1591	CODE:
1545	RETVAL = coroapi::next_cede - now ();	1592	RETVAL = SvNVX (sv_next_tick) - now ();
1546	OUTPUT:	1593	OUTPUT:
1547	RETVAL	1594	RETVAL
1548		1595
1549	NV till_tick ()	1596	int tick_inhibit ()
1550	CODE:	1597	CODE:
1551	RETVAL = SvNVx (sv_next_tick) - now ();	1598	RETVAL = tick_inhibit;
1552	OUTPUT:	1599	OUTPUT:
1553	RETVAL	1600	RETVAL
1554		1601
		1602	void tick_inhibit_inc ()
		1603	CODE:
		1604	++tick_inhibit;
		1605
		1606	void tick_inhibit_dec ()
		1607	CODE:
		1608	if (!--tick_inhibit)
		1609	if (tick_pending)
		1610	{
		1611	ev_async_send (EV_DEFAULT, &tick_watcher);
		1612	coroapi::cede ();
		1613	}
		1614
		1615	void server_tick ()
		1616	CODE:
		1617	{
		1618	NOW = ev_now (EV_DEFAULT);
		1619	SvNV_set (sv_now, NOW); SvNOK_only (sv_now);
		1620	SvNV_set (sv_tick_start, NOW); SvNOK_only (sv_tick_start);
		1621	runtime = SvNVX (sv_runtime);
		1622
		1623	server_tick ();
		1624
		1625	NOW = ev_time ();
		1626	SvNV_set (sv_now, NOW); SvNOK_only (sv_now);
		1627	runtime += TICK;
		1628	SvNV_set (sv_runtime, runtime); SvNOK_only (sv_runtime);
		1629	}
		1630
1555	NV floor (NV x)	1631	NV floor (NV x)
1556		1632
1557	NV ceil (NV x)	1633	NV ceil (NV x)
1558		1634
1559	NV rndm (...)	1635	NV rndm (...)
		1636	ALIAS:
		1637	rmg_rndm = 1
1560	CODE:	1638	CODE:
		1639	{
		1640	rand_gen &gen = ix ? rmg_rndm : rndm;
1561	switch (items)	1641	switch (items)
1562	{	1642	{
1563	case 0: RETVAL = rndm (); break;	1643	case 0: RETVAL = gen (); break;
1564	case 1: RETVAL = rndm (SvUV (ST (0))); break;	1644	case 1: RETVAL = gen (SvUV (ST (0))); break;
1565	case 2: RETVAL = rndm (SvIV (ST (0)), SvIV (ST (1))); break;	1645	case 2: RETVAL = gen (SvIV (ST (0)), SvIV (ST (1))); break;
1566	default: croak ("cf::rndm requires none, one or two parameters."); break;	1646	default: croak ("cf::rndm requires none, one or two parameters."); break;
1567	}	1647	}
		1648	}
1568	OUTPUT:	1649	OUTPUT:
1569	RETVAL	1650	RETVAL
1570		1651
1571	NV clamp (NV value, NV min_value, NV max_value)	1652	NV clamp (NV value, NV min_value, NV max_value)
1572	CODE:	1653	CODE:
…		…
1584	PROTOTYPE: @	1665	PROTOTYPE: @
1585	CODE:	1666	CODE:
1586	while (items > 0)	1667	while (items > 0)
1587	sv_rvweaken (ST (--items));	1668	sv_rvweaken (ST (--items));
1588		1669
1589	void cede_to_tick ()
1590	CODE:
1591	coroapi::cede_to_tick ();
1592
1593	void server_tick ()
1594	CODE:
1595	NOW = SvNVx (sv_now);
1596	runtime = SvNVx (sv_runtime);
1597	server_tick ();
1598
1599	void	1670	void
1600	log_backtrace (utf8_string msg)	1671	log_backtrace (utf8_string msg)
1601		1672
1602	void	1673	void
1603	LOG (int flags, utf8_string msg)	1674	LOG (int flags, utf8_string msg)
…		…
1607	octet_string path_combine (octet_string base, octet_string path)	1678	octet_string path_combine (octet_string base, octet_string path)
1608	PROTOTYPE: $$	1679	PROTOTYPE: $$
1609		1680
1610	octet_string path_combine_and_normalize (octet_string base, octet_string path)	1681	octet_string path_combine_and_normalize (octet_string base, octet_string path)
1611	PROTOTYPE: $$	1682	PROTOTYPE: $$
1612
1613	void
1614	mallinfo ()
1615	PPCODE:
1616	{
1617	#if __GLIBC__
1618	struct mallinfo mai = mallinfo ();
1619	EXTEND (SP, 10*2);
1620	PUSHs (sv_2mortal (newSVpv ("arena" , 0))); PUSHs (sv_2mortal (newSViv (mai.arena)));
1621	PUSHs (sv_2mortal (newSVpv ("ordblks" , 0))); PUSHs (sv_2mortal (newSViv (mai.ordblks)));
1622	PUSHs (sv_2mortal (newSVpv ("smblks" , 0))); PUSHs (sv_2mortal (newSViv (mai.smblks)));
1623	PUSHs (sv_2mortal (newSVpv ("hblks" , 0))); PUSHs (sv_2mortal (newSViv (mai.hblks)));
1624	PUSHs (sv_2mortal (newSVpv ("hblkhd" , 0))); PUSHs (sv_2mortal (newSViv (mai.hblkhd)));
1625	PUSHs (sv_2mortal (newSVpv ("usmblks" , 0))); PUSHs (sv_2mortal (newSViv (mai.usmblks)));
1626	PUSHs (sv_2mortal (newSVpv ("fsmblks" , 0))); PUSHs (sv_2mortal (newSViv (mai.fsmblks)));
1627	PUSHs (sv_2mortal (newSVpv ("uordblks", 0))); PUSHs (sv_2mortal (newSViv (mai.uordblks)));
1628	PUSHs (sv_2mortal (newSVpv ("fordblks", 0))); PUSHs (sv_2mortal (newSViv (mai.fordblks)));
1629	PUSHs (sv_2mortal (newSVpv ("keepcost", 0))); PUSHs (sv_2mortal (newSViv (mai.keepcost)));
1630	#endif
1631	EXTEND (SP, 2*2);
1632	PUSHs (sv_2mortal (newSVpv ("slice_alloc", 0))); PUSHs (sv_2mortal (newSVuv (slice_alloc)));
1633	PUSHs (sv_2mortal (newSVpv ("shstr_alloc", 0))); PUSHs (sv_2mortal (newSVuv (shstr_alloc)));
1634	}
1635		1683
1636	void	1684	void
1637	sub_generation_inc ()	1685	sub_generation_inc ()
1638	CODE:	1686	CODE:
1639	PL_sub_generation++;	1687	PL_sub_generation++;
…		…
1664		1712
1665	void abort ()	1713	void abort ()
1666		1714
1667	void reset_signals ()	1715	void reset_signals ()
1668		1716
1669	void fork_abort (octet_string cause = "cf::fork_abort")	1717	void fork_abort (const_octet_string cause = "cf::fork_abort")
1670		1718
1671	void cleanup (octet_string cause, bool make_core = false)	1719	void cleanup (const_octet_string cause, bool make_core = false)
1672		1720
1673	void emergency_save ()	1721	void emergency_save ()
1674		1722
1675	void _exit (int status = EXIT_SUCCESS)	1723	void _exit (int status = EXIT_SUCCESS)
1676		1724
1677	#if _POSIX_MEMLOCK	1725	#if _POSIX_MEMLOCK
1678		1726
1679	int mlockall (int flags = MCL_CURRENT \| MCL_FUTURE)	1727	int mlockall (int flags = MCL_CURRENT \| MCL_FUTURE)
		1728	INIT:
		1729	#if __GLIBC__
		1730	mallopt (M_TOP_PAD, 1024 * 1024);
		1731	mallopt (M_MMAP_THRESHOLD, 1024 * 1024 * 128);
		1732	mallopt (M_MMAP_MAX, 0); // likely bug-workaround, also frees memory
		1733	mallopt (M_PERTURB, 0xee); // bug-workaround for linux glibc+mlockall+calloc
		1734	#endif
1680		1735
1681	int munlockall ()	1736	int munlockall ()
1682		1737
1683	#endif	1738	#endif
		1739
		1740	int
		1741	malloc_trim (IV pad = 0)
		1742
		1743	void
		1744	mallinfo ()
		1745	PPCODE:
		1746	{
		1747	#if __GLIBC__
		1748	struct mallinfo mai = mallinfo ();
		1749	EXTEND (SP, 10*2);
		1750	PUSHs (sv_2mortal (newSVpv ("arena" , 0))); PUSHs (sv_2mortal (newSViv (mai.arena)));
		1751	PUSHs (sv_2mortal (newSVpv ("ordblks" , 0))); PUSHs (sv_2mortal (newSViv (mai.ordblks)));
		1752	PUSHs (sv_2mortal (newSVpv ("smblks" , 0))); PUSHs (sv_2mortal (newSViv (mai.smblks)));
		1753	PUSHs (sv_2mortal (newSVpv ("hblks" , 0))); PUSHs (sv_2mortal (newSViv (mai.hblks)));
		1754	PUSHs (sv_2mortal (newSVpv ("hblkhd" , 0))); PUSHs (sv_2mortal (newSViv (mai.hblkhd)));
		1755	PUSHs (sv_2mortal (newSVpv ("usmblks" , 0))); PUSHs (sv_2mortal (newSViv (mai.usmblks)));
		1756	PUSHs (sv_2mortal (newSVpv ("fsmblks" , 0))); PUSHs (sv_2mortal (newSViv (mai.fsmblks)));
		1757	PUSHs (sv_2mortal (newSVpv ("uordblks", 0))); PUSHs (sv_2mortal (newSViv (mai.uordblks)));
		1758	PUSHs (sv_2mortal (newSVpv ("fordblks", 0))); PUSHs (sv_2mortal (newSViv (mai.fordblks)));
		1759	PUSHs (sv_2mortal (newSVpv ("keepcost", 0))); PUSHs (sv_2mortal (newSViv (mai.keepcost)));
		1760	#endif
		1761	EXTEND (SP, 2*2);
		1762	PUSHs (sv_2mortal (newSVpv ("slice_alloc", 0))); PUSHs (sv_2mortal (newSVuv (slice_alloc)));
		1763	PUSHs (sv_2mortal (newSVpv ("shstr_alloc", 0))); PUSHs (sv_2mortal (newSVuv (shstr_alloc)));
		1764	PUSHs (sv_2mortal (newSVpv ("objects" , 0))); PUSHs (sv_2mortal (newSVuv (objects.size () * sizeof (object))));
		1765	}
1684		1766
1685	int find_animation (utf8_string text)	1767	int find_animation (utf8_string text)
1686	PROTOTYPE: $	1768	PROTOTYPE: $
1687		1769
1688	int random_roll (int min, int max, object *op, int goodbad);	1770	int random_roll (int min, int max, object *op, int goodbad);
…		…
1726	RETVAL = newSVpv (resist_plus[atnr], 0);	1808	RETVAL = newSVpv (resist_plus[atnr], 0);
1727	else	1809	else
1728	XSRETURN_UNDEF;	1810	XSRETURN_UNDEF;
1729	OUTPUT: RETVAL	1811	OUTPUT: RETVAL
1730		1812
		1813	UUID
		1814	uuid_cur ()
		1815	CODE:
		1816	RETVAL = UUID::cur;
		1817	OUTPUT:
		1818	RETVAL
		1819
		1820	UUID
		1821	uuid_gen ()
		1822	CODE:
		1823	RETVAL = UUID::gen ();
		1824	OUTPUT:
		1825	RETVAL
		1826
		1827	val64
		1828	uuid_seq (UUID uuid)
		1829	CODE:
		1830	RETVAL = uuid.seq;
		1831	OUTPUT:
		1832	RETVAL
		1833
		1834	UUID
		1835	uuid_str (val64 seq)
		1836	CODE:
		1837	RETVAL.seq = seq;
		1838	OUTPUT:
		1839	RETVAL
		1840
		1841	void
		1842	coin_names ()
		1843	PPCODE:
		1844	EXTEND (SP, NUM_COINS);
		1845	for (int i = 0; i < NUM_COINS; ++i)
		1846	PUSHs (sv_2mortal (newSVpv (coins [i], 0)));
		1847
		1848	void
		1849	coin_archetypes ()
		1850	PPCODE:
		1851	EXTEND (SP, NUM_COINS);
		1852	for (int i = 0; i < NUM_COINS; ++i)
		1853	PUSHs (sv_2mortal (to_sv (archetype::find (coins [i]))));
		1854
1731	bool	1855	bool
1732	load_resource_file (octet_string filename)	1856	load_resource_file_ (octet_string filename)
		1857
		1858	void
		1859	fix_weight ()
1733		1860
1734	MODULE = cf PACKAGE = cf::attachable	1861	MODULE = cf PACKAGE = cf::attachable
1735		1862
1736	int	1863	int
1737	valid (SV *obj)	1864	valid (SV *obj)
…		…
1801	object *actives (U32 index)	1928	object *actives (U32 index)
1802	CODE:	1929	CODE:
1803	RETVAL = index < actives.size () ? actives [index] : 0;	1930	RETVAL = index < actives.size () ? actives [index] : 0;
1804	OUTPUT: RETVAL	1931	OUTPUT: RETVAL
1805		1932
		1933	int mortals_size ()
		1934	CODE:
		1935	RETVAL = attachable::mortals.size ();
		1936	OUTPUT: RETVAL
		1937
1806	const char *slot_use_name (U32 slot)	1938	const char *slot_use_name (U32 slot)
1807	ALIAS:	1939	ALIAS:
1808	slot_nonuse_name = 1	1940	slot_nonuse_name = 1
1809	CODE:	1941	CODE:
1810	{	1942	{
…		…
1888	void apply_below (object *op)	2020	void apply_below (object *op)
1889	CODE:	2021	CODE:
1890	player_apply_below (op);	2022	player_apply_below (op);
1891		2023
1892	int cast_heal (object op, object caster, object *spell, int dir = 0)	2024	int cast_heal (object op, object caster, object *spell, int dir = 0)
1893
1894	#//TODO
1895	object clone_ (object op, int recursive = 0)
1896	CODE:
1897	if (recursive)
1898	RETVAL = object_create_clone (op);
1899	else
1900	{
1901	RETVAL = object::create ();
1902	op->copy_to (RETVAL);
1903	}
1904	OUTPUT: RETVAL
1905		2025
1906	int pay_item (object op, object buyer)	2026	int pay_item (object op, object buyer)
1907	CODE:	2027	CODE:
1908	RETVAL = pay_for_item (op, buyer);	2028	RETVAL = pay_for_item (op, buyer);
1909	OUTPUT: RETVAL	2029	OUTPUT: RETVAL
…		…
1987	CODE:	2107	CODE:
1988	{	2108	{
1989	RETVAL = insert_ob_in_map_at (ob, where, orig, flag, x, y);	2109	RETVAL = insert_ob_in_map_at (ob, where, orig, flag, x, y);
1990	}	2110	}
1991		2111
1992	const_utf8_string get_ob_key_value (object *op, utf8_string key)	2112	shstr
		2113	object::kv_get (shstr key)
1993		2114
1994	bool set_ob_key_value (object *op, utf8_string key, utf8_string value = 0, int add_key = 1)	2115	void
		2116	object::kv_del (shstr key)
		2117
		2118	void
		2119	object::kv_set (shstr key, shstr value)
1995		2120
1996	object get_nearest_player (object ob)	2121	object get_nearest_player (object ob)
1997	ALIAS: nearest_player = 0	2122	ALIAS: nearest_player = 0
1998	PREINIT:	2123	PREINIT:
1999	extern object get_nearest_player (object );	2124	extern object get_nearest_player (object );
…		…
2001	void rangevector (object ob, object other, int flags = 0)	2126	void rangevector (object ob, object other, int flags = 0)
2002	PROTOTYPE: $$;$	2127	PROTOTYPE: $$;$
2003	PPCODE:	2128	PPCODE:
2004	{	2129	{
2005	rv_vector rv;	2130	rv_vector rv;
		2131
		2132	PUTBACK;
2006	get_rangevector (ob, other, &rv, flags);	2133	get_rangevector (ob, other, &rv, flags);
		2134	SPAGAIN;
		2135
2007	EXTEND (SP, 5);	2136	EXTEND (SP, 5);
2008	PUSHs (newSVuv (rv.distance));	2137	PUSHs (newSVuv (rv.distance));
2009	PUSHs (newSViv (rv.distance_x));	2138	PUSHs (newSViv (rv.distance_x));
2010	PUSHs (newSViv (rv.distance_y));	2139	PUSHs (newSViv (rv.distance_y));
2011	PUSHs (newSViv (rv.direction));	2140	PUSHs (newSViv (rv.direction));
…		…
2021	base_name (object *op, int plural = op->nrof > 1)	2150	base_name (object *op, int plural = op->nrof > 1)
2022	CODE:	2151	CODE:
2023	RETVAL = query_base_name (op, plural);	2152	RETVAL = query_base_name (op, plural);
2024	OUTPUT: RETVAL	2153	OUTPUT: RETVAL
2025		2154
2026	object decrease_ob_nr (object op, unsigned long i)
2027
2028	# return the tail of an object, excluding itself	2155	# return the tail of an object, excluding itself
2029	void	2156	void
2030	tail (object *op)	2157	tail (object *op)
2031	PPCODE:	2158	PPCODE:
2032	while ((op = op->more))	2159	while ((op = op->more))
…		…
2104	if (len > MAXSOCKBUF)	2231	if (len > MAXSOCKBUF)
2105	pl->failmsg ("[packet too long for client]");	2232	pl->failmsg ("[packet too long for client]");
2106	else if (pl->ns)	2233	else if (pl->ns)
2107	pl->ns->send_packet (buf, len);	2234	pl->ns->send_packet (buf, len);
2108	}	2235	}
2109
2110	int
2111	listening (player *pl, int new_value = -1)
2112	CODE:
2113	RETVAL = pl->listening;
2114	if (new_value >= 0)
2115	pl->listening = new_value;
2116	OUTPUT:
2117	RETVAL
2118		2236
2119	void savebed (player pl, SV map_path = 0, SV x = 0, SV y = 0)	2237	void savebed (player pl, SV map_path = 0, SV x = 0, SV y = 0)
2120	PROTOTYPE: $;$$$	2238	PROTOTYPE: $;$$$
2121	PPCODE:	2239	PPCODE:
2122	if (GIMME_V != G_VOID)	2240	if (GIMME_V != G_VOID)
…		…
2277	}	2395	}
2278		2396
2279	void	2397	void
2280	maptile::create_region_treasure ()	2398	maptile::create_region_treasure ()
2281	CODE:	2399	CODE:
2282	{
2283	object *op = object::create ();
2284	op->type = FLOOR;
2285	op->map = THIS;
2286
2287	for (int x = 0; x < THIS->width; ++x)	2400	for (int x = 0; x < THIS->width; ++x)
2288	for (int y = 0; y < THIS->height; ++y)	2401	for (int y = 0; y < THIS->height; ++y)
2289	{	2402	{
2290	region *rgn = THIS->region (x, y);	2403	region *rgn = THIS->region (x, y);
2291		2404
2292	//fprintf (stderr, "%d,%d %f %p\n", x, y, rgn->treasure_density,rgn->treasure);//D	2405	//fprintf (stderr, "%d,%d %f %p\n", x, y, rgn->treasure_density,rgn->treasure);//D
		2406	if (object *op = THIS->at (x, y).top)
2293	if (rgn->treasure && rndm () < rgn->treasure_density)	2407	if (rgn->treasure && rndm () < rgn->treasure_density)
2294	{
2295	op->x = x;
2296	op->y = y;
2297	create_treasure (rgn->treasure, op, GT_ENVIRONMENT, THIS->difficulty);	2408	create_treasure (rgn->treasure, op, GT_ENVIRONMENT, THIS->difficulty);
2298	}
2299	}	2409	}
2300
2301	op->destroy ();
2302	}
2303		2410
2304	int out_of_map (maptile *map, int x, int y)	2411	int out_of_map (maptile *map, int x, int y)
2305		2412
2306	void	2413	void
2307	trigger (maptile *map, long connection, bool state = true)	2414	trigger (maptile *map, long connection, bool state = true)
…		…
2320	get_map_flags (maptile *map, int x, int y)	2427	get_map_flags (maptile *map, int x, int y)
2321	PPCODE:	2428	PPCODE:
2322	{	2429	{
2323	maptile *nmap = 0;	2430	maptile *nmap = 0;
2324	I16 nx = 0, ny = 0;	2431	I16 nx = 0, ny = 0;
		2432
		2433	PUTBACK;
2325	int flags = get_map_flags (map, &nmap, x, y, &nx, &ny);	2434	int flags = get_map_flags (map, &nmap, x, y, &nx, &ny);
		2435	SPAGAIN;
2326		2436
2327	EXTEND (SP, 4);	2437	EXTEND (SP, 4);
2328	PUSHs (sv_2mortal (newSViv (flags)));	2438	PUSHs (sv_2mortal (newSViv (flags)));
2329		2439
2330	if (GIMME_V == G_ARRAY)	2440	if (GIMME_V == G_ARRAY)
…		…
2333	PUSHs (sv_2mortal (newSViv (nx)));	2443	PUSHs (sv_2mortal (newSViv (nx)));
2334	PUSHs (sv_2mortal (newSViv (ny)));	2444	PUSHs (sv_2mortal (newSViv (ny)));
2335	}	2445	}
2336	}	2446	}
2337		2447
		2448	mapspace *
		2449	ms (maptile *map, unsigned int x, unsigned int y)
		2450	PROTOTYPE: $$$
		2451	CODE:
		2452	{
		2453	maptile *nmap = 0;
		2454	I16 nx, ny;
		2455
		2456	PUTBACK;
		2457	get_map_flags (map, &nmap, x, y, &nx, &ny);
		2458	SPAGAIN;
		2459
		2460	if (!nmap)
		2461	XSRETURN_UNDEF;
		2462
		2463	RETVAL = &nmap->at (nx, ny);
		2464	}
		2465	OUTPUT:
		2466	RETVAL
		2467
2338	void	2468	void
2339	at (maptile *map, unsigned int x, unsigned int y)	2469	at (maptile *map, unsigned int x, unsigned int y)
2340	PROTOTYPE: $$$	2470	PROTOTYPE: $$$
2341	PPCODE:	2471	PPCODE:
2342	{	2472	{
2343	object *o;
2344	maptile *nmap = 0;	2473	maptile *nmap = 0;
2345	I16 nx, ny;	2474	I16 nx, ny;
2346		2475
		2476	PUTBACK;
2347	get_map_flags (map, &nmap, x, y, &nx, &ny);	2477	get_map_flags (map, &nmap, x, y, &nx, &ny);
		2478	SPAGAIN;
2348		2479
2349	if (nmap)	2480	if (nmap)
2350	for (o = GET_MAP_OB (nmap, nx, ny); o; o = o->above)	2481	for (object *o = nmap->at (nx, ny).bot; o; o = o->above)
2351	XPUSHs (sv_2mortal (to_sv (o)));	2482	XPUSHs (sv_2mortal (to_sv (o)));
2352	}	2483	}
2353		2484
2354	SV *	2485	SV *
2355	bot_at (maptile *obj, unsigned int x, unsigned int y)	2486	bot_at (maptile *obj, unsigned int x, unsigned int y)
…		…
2468	RETVAL = self->generate_random_map (&rmp);	2599	RETVAL = self->generate_random_map (&rmp);
2469	}	2600	}
2470	OUTPUT:	2601	OUTPUT:
2471	RETVAL	2602	RETVAL
2472		2603
		2604	MODULE = cf PACKAGE = cf::mapspace
		2605
		2606	INCLUDE: $PERL $srcdir/genacc mapspace ../include/map.h \|
		2607
2473	MODULE = cf PACKAGE = cf::arch	2608	MODULE = cf PACKAGE = cf::arch
2474		2609
2475	int archetypes_size ()	2610	int archetypes_size ()
2476	CODE:	2611	CODE:
2477	RETVAL = archetypes.size ();	2612	RETVAL = archetypes.size ();
…		…
2799	extract_tags (object_thawer *self)	2934	extract_tags (object_thawer *self)
2800	PPCODE:	2935	PPCODE:
2801	while (self->kw != KW_EOF)	2936	while (self->kw != KW_EOF)
2802	{	2937	{
2803	PUTBACK;	2938	PUTBACK;
2804	coroapi::cede_to_tick_every (5000);	2939	coroapi::cede_to_tick ();
2805	SPAGAIN;	2940	SPAGAIN;
2806		2941
2807	if (self->kw == KW_tag)	2942	if (self->kw == KW_tag)
2808	XPUSHs (sv_2mortal (newSVpv_utf8 (self->get_str ())));	2943	XPUSHs (sv_2mortal (newSVpv_utf8 (self->get_str ())));
2809		2944

Diff Legend

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

Comparing deliantra/server/server/cfperl.xs (file contents): Revision 1.269 by root, Fri Feb 1 15:54:08 2008 UTC vs. Revision 1.302 by root, Mon Sep 22 23:57:48 2008 UTC

Diff Legend

Comparing deliantra/server/server/cfperl.xs (file contents):
Revision 1.269 by root, Fri Feb 1 15:54:08 2008 UTC vs.
Revision 1.302 by root, Mon Sep 22 23:57:48 2008 UTC