[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.293 by root, Mon Aug 11 23:23:41 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
447	inline SV *to_sv (UUID v)	443	inline SV *to_sv (UUID v) { return newSVpv (v.c_str (), 0); }
448	{
449	char buf[128];
450	snprintf (buf, 128, "<1.%" PRIx64 ">", v.seq);
451	return newSVpv (buf, 0);
452	}
453		444
454	inline void sv_to (SV *sv, shstr &v) { v = SvOK (sv) ? SvPVutf8_nolen (sv) : 0; }	445	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; }	446	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); }	447	inline void sv_to (SV *sv, bool &v) { v = SvIV (sv); }
457	inline void sv_to (SV *sv, signed char &v) { v = SvIV (sv); }	448	inline void sv_to (SV *sv, signed char &v) { v = SvIV (sv); }
…		…
473	inline void sv_to (SV sv, maptile &v) { v = (maptile )(attachable )SvPTR_ornull (sv, "cf::map"); }	464	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"); }	465	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"); }	466	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"); }	467	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"); }	468	inline void sv_to (SV sv, living &v) { v = (living *)SvPTR_ornull (sv, "cf::living"); }
		469	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"); }	470	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" ); }	471	inline void sv_to (SV sv, object_thawer &v) { v = (object_thawer *)SvPTR_ornull (sv, "cf::object::thawer" ); }
480		472
481	//inline void sv_to (SV sv, faceinfo &v) { v = &faces [face_find (SvPV_nolen (sv), 0)]; }	473	//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)); }	474	inline void sv_to (SV sv, treasurelist &v) { v = treasurelist::find (SvPV_nolen (sv)); }
…		…
499	v.assign (data, len);	491	v.assign (data, len);
500	}	492	}
501		493
502	inline void sv_to (SV *sv, UUID &v)	494	inline void sv_to (SV *sv, UUID &v)
503	{	495	{
504	unsigned int version;	496	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));	497	croak ("unparsable uuid: %s", SvPV_nolen (sv));
508	}	498	}
509		499
510	inline void sv_to (SV *sv, object::flags_t::reference v) { v = SvTRUE (sv); }	500	inline void sv_to (SV *sv, object::flags_t::reference v) { v = SvTRUE (sv); }
511		501
…		…
605	/////////////////////////////////////////////////////////////////////////////	595	/////////////////////////////////////////////////////////////////////////////
606		596
607	void	597	void
608	cfperl_init ()	598	cfperl_init ()
609	{	599	{
		600	extern char **environ;
		601
610	PERL_SYS_INIT3 (&settings.argc, &settings.argv, 0);	602	PERL_SYS_INIT3 (&settings.argc, &settings.argv, &environ);
611	perl = perl_alloc ();	603	perl = perl_alloc ();
612	perl_construct (perl);	604	perl_construct (perl);
613		605
614	PL_exit_flags \|= PERL_EXIT_DESTRUCT_END;	606	PL_exit_flags \|= PERL_EXIT_DESTRUCT_END;
615		607
…		…
620	"cf->bootstrap;" // required for datadir :*>	612	"cf->bootstrap;" // required for datadir :*>
621	"unshift @INC, cf::datadir ();"	613	"unshift @INC, cf::datadir ();"
622	"require cf;"	614	"require cf;"
623	};	615	};
624		616
625	if (perl_parse (perl, xs_init, 2, (char )argv, (char )NULL)	617	if (perl_parse (perl, xs_init, 2, (char **)argv, environ)
626	\|\| perl_run (perl))	618	\|\| perl_run (perl))
627	{	619	{
628	printf ("unable to initialize perl-interpreter, aborting.\n");	620	printf ("unable to initialize perl-interpreter, aborting.\n");
629	exit (EXIT_FAILURE);	621	exit (EXIT_FAILURE);
630	}	622	}
…		…
907	}	899	}
908		900
909	/////////////////////////////////////////////////////////////////////////////	901	/////////////////////////////////////////////////////////////////////////////
910	// various c++ => perl glue functions	902	// various c++ => perl glue functions
911		903
		904	void cfperl_tick ()
		905	{
		906	tick_pending = 1;
		907
		908	if (tick_inhibit)
		909	return;
		910
		911	tick_pending = 0;
		912
		913	dSP;
		914
		915	PUSHMARK (SP);
		916	PUTBACK;
		917	call_pv ("cf::tick", G_DISCARD \| G_VOID);
		918
		919	SvNV_set (sv_next_tick, get_next_tick ()); SvNOK_only (sv_next_tick);
		920	}
		921
912	void	922	void
913	cfperl_emergency_save ()	923	cfperl_emergency_save ()
914	{	924	{
915	CALL_BEGIN (0);	925	CALL_BEGIN (0);
916	CALL_CALL ("cf::emergency_save", G_VOID);	926	CALL_CALL ("cf::emergency_save", G_VOID);
…		…
931	{	941	{
932	CALL_BEGIN (2);	942	CALL_BEGIN (2);
933	CALL_ARG (book);	943	CALL_ARG (book);
934	CALL_ARG (level);	944	CALL_ARG (level);
935	CALL_CALL ("ext::books::make_book", G_VOID);	945	CALL_CALL ("ext::books::make_book", G_VOID);
		946	CALL_END;
		947	}
		948
		949	void
		950	cfperl_expand_cfpod (player *pl, std::string &msg)
		951	{
		952	CALL_BEGIN (2);
		953	CALL_ARG (pl);
		954	CALL_ARG_SV (newSVpvn_utf8 (msg.data (), msg.size ()));
		955	CALL_CALL ("cf::player::expand_cfpod", G_SCALAR);
		956
		957	if (count)
		958	{
		959	STRLEN len;
		960	char *data = SvPVutf8 (TOPs, len);
		961	msg.assign (data, len);
		962	}
		963
936	CALL_END;	964	CALL_END;
937	}	965	}
938		966
939	void	967	void
940	cfperl_send_msg (client ns, int color, const char type, const char *msg)	968	cfperl_send_msg (client ns, int color, const char type, const char *msg)
…		…
968	{	996	{
969	CALL_BEGIN (1);	997	CALL_BEGIN (1);
970	CALL_ARG (name);	998	CALL_ARG (name);
971	CALL_CALL ("cf::player::find", G_SCALAR);	999	CALL_CALL ("cf::player::find", G_SCALAR);
972		1000
973	player *retval;	1001	player *retval = 0;
974
975	if (count)
976	sv_to (POPs, retval);	1002	if (count) sv_to (POPs, retval);
977	else	1003
978	retval = 0;	1004	CALL_END;
		1005
		1006	return retval;
		1007	}
		1008
		1009	maptile *
		1010	find_style (const char dirname, const char stylename, int difficulty)
		1011	{
		1012	CALL_BEGIN (3);
		1013	CALL_ARG (dirname);
		1014	CALL_ARG (stylename);
		1015	CALL_ARG (difficulty);
		1016	CALL_CALL ("ext::map_random::find_style", G_SCALAR);
		1017
		1018	maptile *retval = 0;
		1019	if (count) sv_to (POPs, retval);
979		1020
980	CALL_END;	1021	CALL_END;
981		1022
982	return retval;	1023	return retval;
983	}	1024	}
…		…
988	CALL_BEGIN (2);	1029	CALL_BEGIN (2);
989	CALL_ARG (path);	1030	CALL_ARG (path);
990	CALL_ARG (origin);	1031	CALL_ARG (origin);
991	CALL_CALL ("cf::map::find_sync", G_SCALAR);	1032	CALL_CALL ("cf::map::find_sync", G_SCALAR);
992		1033
993	maptile *retval;	1034	maptile *retval = 0;
994
995	if (count)
996	sv_to (POPs, retval);	1035	if (count) sv_to (POPs, retval);
997	else
998	retval = 0;
999		1036
1000	CALL_END;	1037	CALL_END;
1001		1038
1002	return retval;	1039	return retval;
1003	}	1040	}
…		…
1009	CALL_ARG (path);	1046	CALL_ARG (path);
1010	CALL_ARG (origin);	1047	CALL_ARG (origin);
1011	CALL_ARG (load);	1048	CALL_ARG (load);
1012	CALL_CALL ("cf::map::find_async", G_SCALAR);	1049	CALL_CALL ("cf::map::find_async", G_SCALAR);
1013		1050
1014	maptile *retval;	1051	maptile *retval = 0;
1015
1016	if (count)
1017	sv_to (POPs, retval);	1052	if (count) sv_to (POPs, retval);
1018	else
1019	retval = 0;
1020		1053
1021	CALL_END;	1054	CALL_END;
1022		1055
1023	return retval;	1056	return retval;
1024	}	1057	}
…		…
1049		1082
1050	CALL_BEGIN (2);	1083	CALL_BEGIN (2);
1051	CALL_ARG (this);	1084	CALL_ARG (this);
1052	CALL_ARG (exit);	1085	CALL_ARG (exit);
1053	CALL_CALL ("cf::object::player::enter_exit", G_VOID);	1086	CALL_CALL ("cf::object::player::enter_exit", G_VOID);
		1087	CALL_END;
		1088	}
		1089
		1090	void
		1091	object::player_goto (const char *path, int x, int y)
		1092	{
		1093	if (type != PLAYER)
		1094	return;
		1095
		1096	CALL_BEGIN (4);
		1097	CALL_ARG (this);
		1098	CALL_ARG (path);
		1099	CALL_ARG (x);
		1100	CALL_ARG (y);
		1101	CALL_CALL ("cf::object::player::goto", G_VOID);
1054	CALL_END;	1102	CALL_END;
1055	}	1103	}
1056		1104
1057	const char *	1105	const char *
1058	object::ref () const	1106	object::ref () const
…		…
1102	/////////////////////////////////////////////////////////////////////////////	1150	/////////////////////////////////////////////////////////////////////////////
1103		1151
1104	struct EVAPI *evapi::GEVAPI;	1152	struct EVAPI *evapi::GEVAPI;
1105	struct CoroAPI *coroapi::GCoroAPI;	1153	struct CoroAPI *coroapi::GCoroAPI;
1106		1154
1107	int coroapi::cede_counter;
1108	tstamp coroapi::next_cede;
1109
1110	void coroapi::do_cede_to_tick ()	1155	void coroapi::do_cede_to_tick ()
1111	{	1156	{
1112	cede_counter = 0;	1157	cede_pending = 0;
1113
1114	cede ();	1158	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	}	1159	}
1135		1160
1136	void	1161	void
1137	coroapi::wait_for_tick ()	1162	coroapi::wait_for_tick ()
1138	{	1163	{
…		…
1162	}	1187	}
1163		1188
1164	void	1189	void
1165	_connect_to_perl ()	1190	_connect_to_perl ()
1166	{	1191	{
1167	stash_cf = gv_stashpv ("cf" , 1);	1192	stash_cf = gv_stashpv ("cf", 1);
1168		1193
1169	stash_cf_object_wrap = gv_stashpv ("cf::object::wrap", 1);	1194	stash_cf_object_wrap = gv_stashpv ("cf::object::wrap", 1);
1170	stash_cf_object_player_wrap = gv_stashpv ("cf::object::player::wrap", 1);	1195	stash_cf_object_player_wrap = gv_stashpv ("cf::object::player::wrap", 1);
1171	stash_cf_player_wrap = gv_stashpv ("cf::player::wrap", 1);	1196	stash_cf_player_wrap = gv_stashpv ("cf::player::wrap", 1);
1172	stash_cf_map_wrap = gv_stashpv ("cf::map::wrap" , 1);	1197	stash_cf_map_wrap = gv_stashpv ("cf::map::wrap" , 1);
		1198	stash_cf_mapspace_wrap = gv_stashpv ("cf::mapspace::wrap" , 1);
1173	stash_cf_client_wrap = gv_stashpv ("cf::client::wrap", 1);	1199	stash_cf_client_wrap = gv_stashpv ("cf::client::wrap", 1);
1174	stash_cf_arch_wrap = gv_stashpv ("cf::arch::wrap" , 1);	1200	stash_cf_arch_wrap = gv_stashpv ("cf::arch::wrap" , 1);
1175	stash_cf_party_wrap = gv_stashpv ("cf::party::wrap" , 1);	1201	stash_cf_party_wrap = gv_stashpv ("cf::party::wrap" , 1);
1176	stash_cf_region_wrap = gv_stashpv ("cf::region::wrap", 1);	1202	stash_cf_region_wrap = gv_stashpv ("cf::region::wrap", 1);
1177	stash_cf_living_wrap = gv_stashpv ("cf::living::wrap", 1);	1203	stash_cf_living_wrap = gv_stashpv ("cf::living::wrap", 1);
1178		1204
1179	sv_now = get_sv ("cf::NOW" , 1); sv_upgrade (sv_now , SVt_NV);	1205	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);	1206	sv_runtime = get_sv ("cf::RUNTIME" , 1); SvUPGRADE (sv_runtime , SVt_NV);
		1207	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);	1208	sv_next_tick = get_sv ("cf::NEXT_TICK" , 1); SvUPGRADE (sv_next_tick , SVt_NV);
1182		1209
1183	cb_global = get_av ("cf::CB_GLOBAL", 1);	1210	cb_global = get_av ("cf::CB_GLOBAL", 1);
1184	cb_attachable = get_av ("cf::CB_ATTACHABLE", 1);	1211	cb_attachable = get_av ("cf::CB_ATTACHABLE", 1);
1185	cb_object = get_av ("cf::CB_OBJECT", 1);	1212	cb_object = get_av ("cf::CB_OBJECT", 1);
1186	cb_player = get_av ("cf::CB_PLAYER", 1);	1213	cb_player = get_av ("cf::CB_PLAYER", 1);
…		…
1369	const_iv (F_CURSED) const_iv (F_DAMNED) const_iv (F_OPEN) const_iv (F_NOPICK)	1396	const_iv (F_CURSED) const_iv (F_DAMNED) const_iv (F_OPEN) const_iv (F_NOPICK)
1370	const_iv (F_LOCKED)	1397	const_iv (F_LOCKED)
1371		1398
1372	const_iv (F_BUY) const_iv (F_SHOP) const_iv (F_SELL)	1399	const_iv (F_BUY) const_iv (F_SHOP) const_iv (F_SELL)
1373		1400
1374	const_iv (P_BLOCKSVIEW) const_iv (P_PLAYER) const_iv (P_NO_MAGIC) const_iv (P_IS_ALIVE)	1401	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)	1402	const_iv (P_NO_CLERIC) const_iv (P_OUT_OF_MAP) const_iv (P_NEW_MAP) const_iv (P_UPTODATE)
1376		1403
1377	const_iv (UP_OBJ_INSERT) const_iv (UP_OBJ_REMOVE) const_iv (UP_OBJ_CHANGE) const_iv (UP_OBJ_FACE)	1404	const_iv (UP_OBJ_INSERT) const_iv (UP_OBJ_REMOVE) const_iv (UP_OBJ_CHANGE) const_iv (UP_OBJ_FACE)
1378		1405
1379	const_iv (INS_NO_MERGE) const_iv (INS_ABOVE_FLOOR_ONLY) const_iv (INS_NO_WALK_ON)	1406	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)	1446	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)	1447	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)	1448	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)	1449	const_iv (ATNR_LIFE_STEALING) const_iv (ATNR_DISEASE)
1423		1450
1424	const_iv (MAP_IN_MEMORY) const_iv (MAP_SWAPPED) const_iv (MAP_LOADING) const_iv (MAP_SAVING)	1451	const_iv (MAP_ACTIVE) const_iv (MAP_SWAPPED) const_iv (MAP_LOADING) const_iv (MAP_SAVING)
		1452	const_iv (MAP_INACTIVE)
1425		1453
1426	const_iv (KLASS_ATTACHABLE) const_iv (KLASS_GLOBAL) const_iv (KLASS_OBJECT)	1454	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)	1455	const_iv (KLASS_CLIENT) const_iv (KLASS_PLAYER) const_iv (KLASS_MAP)
1428		1456
1429	const_iv (VERSION_CS) const_iv (VERSION_SC)	1457	const_iv (VERSION_CS) const_iv (VERSION_SC)
…		…
1444		1472
1445	const_iv (SYMMETRY_RANDOM) const_iv (SYMMETRY_NONE) const_iv (SYMMETRY_X)	1473	const_iv (SYMMETRY_RANDOM) const_iv (SYMMETRY_NONE) const_iv (SYMMETRY_X)
1446	const_iv (SYMMETRY_Y) const_iv (SYMMETRY_XY)	1474	const_iv (SYMMETRY_Y) const_iv (SYMMETRY_XY)
1447		1475
1448	const_iv (GT_ENVIRONMENT) const_iv (GT_INVISIBLE) const_iv (GT_STARTEQUIP)	1476	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)	1477	const_iv (GT_APPLY) const_iv (GT_ONLY_GOOD) const_iv (GT_MINIMAL)
1450	const_iv (GT_MINIMAL)
1451		1478
1452	const_iv (FT_FACE) const_iv (FT_MUSIC) const_iv (FT_SOUND)	1479	const_iv (FT_FACE) const_iv (FT_MUSIC) const_iv (FT_SOUND)
1453	const_iv (FT_RSRC) const_iv (FT_NUM)	1480	const_iv (FT_RSRC) const_iv (FT_NUM)
1454	};	1481	};
1455		1482
…		…
1534	}	1561	}
1535		1562
1536	SvCUR_set (data_sv, dst - SvPVX (data_sv));	1563	SvCUR_set (data_sv, dst - SvPVX (data_sv));
1537	}	1564	}
1538		1565
		1566	void evthread_start (int aiofd)
		1567
1539	void _post_tick ()	1568	void cede_to_tick ()
1540	CODE:	1569	CODE:
1541	coroapi::next_cede = SvNVx (sv_next_tick) - TICK * (1. - 1. / CEDES_PER_TICK);	1570	coroapi::cede_to_tick ();
1542		1571
1543	NV till_cede ()	1572	NV till_tick ()
1544	CODE:	1573	CODE:
1545	RETVAL = coroapi::next_cede - now ();	1574	RETVAL = SvNVX (sv_next_tick) - now ();
1546	OUTPUT:	1575	OUTPUT:
1547	RETVAL	1576	RETVAL
1548		1577
1549	NV till_tick ()	1578	int tick_inhibit ()
1550	CODE:	1579	CODE:
1551	RETVAL = SvNVx (sv_next_tick) - now ();	1580	RETVAL = tick_inhibit;
1552	OUTPUT:	1581	OUTPUT:
1553	RETVAL	1582	RETVAL
1554		1583
		1584	void tick_inhibit_inc ()
		1585	CODE:
		1586	++tick_inhibit;
		1587
		1588	void tick_inhibit_dec ()
		1589	CODE:
		1590	if (!--tick_inhibit)
		1591	if (tick_pending)
		1592	{
		1593	ev_async_send (EV_DEFAULT, &tick_watcher);
		1594	coroapi::cede ();
		1595	}
		1596
		1597	void server_tick ()
		1598	CODE:
		1599	{
		1600	NOW = ev_now (EV_DEFAULT);
		1601	SvNV_set (sv_now, NOW); SvNOK_only (sv_now);
		1602	SvNV_set (sv_tick_start, NOW); SvNOK_only (sv_tick_start);
		1603	runtime = SvNVX (sv_runtime);
		1604
		1605	server_tick ();
		1606
		1607	NOW = ev_time ();
		1608	SvNV_set (sv_now, NOW); SvNOK_only (sv_now);
		1609	runtime += TICK;
		1610	SvNV_set (sv_runtime, runtime); SvNOK_only (sv_runtime);
		1611	}
		1612
1555	NV floor (NV x)	1613	NV floor (NV x)
1556		1614
1557	NV ceil (NV x)	1615	NV ceil (NV x)
1558		1616
1559	NV rndm (...)	1617	NV rndm (...)
		1618	ALIAS:
		1619	rmg_rndm = 1
1560	CODE:	1620	CODE:
		1621	{
		1622	rand_gen &gen = ix ? rmg_rndm : rndm;
1561	switch (items)	1623	switch (items)
1562	{	1624	{
1563	case 0: RETVAL = rndm (); break;	1625	case 0: RETVAL = gen (); break;
1564	case 1: RETVAL = rndm (SvUV (ST (0))); break;	1626	case 1: RETVAL = gen (SvUV (ST (0))); break;
1565	case 2: RETVAL = rndm (SvIV (ST (0)), SvIV (ST (1))); break;	1627	case 2: RETVAL = gen (SvIV (ST (0)), SvIV (ST (1))); break;
1566	default: croak ("cf::rndm requires none, one or two parameters."); break;	1628	default: croak ("cf::rndm requires none, one or two parameters."); break;
1567	}	1629	}
		1630	}
1568	OUTPUT:	1631	OUTPUT:
1569	RETVAL	1632	RETVAL
1570		1633
1571	NV clamp (NV value, NV min_value, NV max_value)	1634	NV clamp (NV value, NV min_value, NV max_value)
1572	CODE:	1635	CODE:
…		…
1578	CODE:	1641	CODE:
1579	RETVAL = lerp (value, min_in, max_in, min_out, max_out);	1642	RETVAL = lerp (value, min_in, max_in, min_out, max_out);
1580	OUTPUT:	1643	OUTPUT:
1581	RETVAL	1644	RETVAL
1582		1645
1583	void cede_to_tick ()	1646	void weaken (...)
1584	CODE:	1647	PROTOTYPE: @
1585	coroapi::cede_to_tick ();	1648	CODE:
1586		1649	while (items > 0)
1587	void server_tick ()	1650	sv_rvweaken (ST (--items));
1588	CODE:
1589	NOW = SvNVx (sv_now);
1590	runtime = SvNVx (sv_runtime);
1591	server_tick ();
1592		1651
1593	void	1652	void
1594	log_backtrace (utf8_string msg)	1653	log_backtrace (utf8_string msg)
1595		1654
1596	void	1655	void
…		…
1601	octet_string path_combine (octet_string base, octet_string path)	1660	octet_string path_combine (octet_string base, octet_string path)
1602	PROTOTYPE: $$	1661	PROTOTYPE: $$
1603		1662
1604	octet_string path_combine_and_normalize (octet_string base, octet_string path)	1663	octet_string path_combine_and_normalize (octet_string base, octet_string path)
1605	PROTOTYPE: $$	1664	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		1665
1630	void	1666	void
1631	sub_generation_inc ()	1667	sub_generation_inc ()
1632	CODE:	1668	CODE:
1633	PL_sub_generation++;	1669	PL_sub_generation++;
…		…
1658		1694
1659	void abort ()	1695	void abort ()
1660		1696
1661	void reset_signals ()	1697	void reset_signals ()
1662		1698
1663	void fork_abort (octet_string cause = "cf::fork_abort")	1699	void fork_abort (const_octet_string cause = "cf::fork_abort")
1664		1700
1665	void cleanup (octet_string cause, bool make_core = false)	1701	void cleanup (const_octet_string cause, bool make_core = false)
1666		1702
1667	void emergency_save ()	1703	void emergency_save ()
1668		1704
1669	void _exit (int status = EXIT_SUCCESS)	1705	void _exit (int status = EXIT_SUCCESS)
1670		1706
1671	#if _POSIX_MEMLOCK	1707	#if _POSIX_MEMLOCK
1672		1708
1673	int mlockall (int flags = MCL_CURRENT \| MCL_FUTURE)	1709	int mlockall (int flags = MCL_CURRENT \| MCL_FUTURE)
		1710	INIT:
		1711	#if __GLIBC__
		1712	mallopt (M_PERTURB, 0xee); // bug-workaround for linux glibc+mlockall+calloc
		1713	#endif
1674		1714
1675	int munlockall ()	1715	int munlockall ()
1676		1716
1677	#endif	1717	#endif
		1718
		1719	int
		1720	malloc_trim (IV pad = 0)
		1721
		1722	void
		1723	mallinfo ()
		1724	PPCODE:
		1725	{
		1726	#if __GLIBC__
		1727	struct mallinfo mai = mallinfo ();
		1728	EXTEND (SP, 10*2);
		1729	PUSHs (sv_2mortal (newSVpv ("arena" , 0))); PUSHs (sv_2mortal (newSViv (mai.arena)));
		1730	PUSHs (sv_2mortal (newSVpv ("ordblks" , 0))); PUSHs (sv_2mortal (newSViv (mai.ordblks)));
		1731	PUSHs (sv_2mortal (newSVpv ("smblks" , 0))); PUSHs (sv_2mortal (newSViv (mai.smblks)));
		1732	PUSHs (sv_2mortal (newSVpv ("hblks" , 0))); PUSHs (sv_2mortal (newSViv (mai.hblks)));
		1733	PUSHs (sv_2mortal (newSVpv ("hblkhd" , 0))); PUSHs (sv_2mortal (newSViv (mai.hblkhd)));
		1734	PUSHs (sv_2mortal (newSVpv ("usmblks" , 0))); PUSHs (sv_2mortal (newSViv (mai.usmblks)));
		1735	PUSHs (sv_2mortal (newSVpv ("fsmblks" , 0))); PUSHs (sv_2mortal (newSViv (mai.fsmblks)));
		1736	PUSHs (sv_2mortal (newSVpv ("uordblks", 0))); PUSHs (sv_2mortal (newSViv (mai.uordblks)));
		1737	PUSHs (sv_2mortal (newSVpv ("fordblks", 0))); PUSHs (sv_2mortal (newSViv (mai.fordblks)));
		1738	PUSHs (sv_2mortal (newSVpv ("keepcost", 0))); PUSHs (sv_2mortal (newSViv (mai.keepcost)));
		1739	#endif
		1740	EXTEND (SP, 2*2);
		1741	PUSHs (sv_2mortal (newSVpv ("slice_alloc", 0))); PUSHs (sv_2mortal (newSVuv (slice_alloc)));
		1742	PUSHs (sv_2mortal (newSVpv ("shstr_alloc", 0))); PUSHs (sv_2mortal (newSVuv (shstr_alloc)));
		1743	PUSHs (sv_2mortal (newSVpv ("objects" , 0))); PUSHs (sv_2mortal (newSVuv (objects.size () * sizeof (object))));
		1744	}
1678		1745
1679	int find_animation (utf8_string text)	1746	int find_animation (utf8_string text)
1680	PROTOTYPE: $	1747	PROTOTYPE: $
1681		1748
1682	int random_roll (int min, int max, object *op, int goodbad);	1749	int random_roll (int min, int max, object *op, int goodbad);
…		…
1720	RETVAL = newSVpv (resist_plus[atnr], 0);	1787	RETVAL = newSVpv (resist_plus[atnr], 0);
1721	else	1788	else
1722	XSRETURN_UNDEF;	1789	XSRETURN_UNDEF;
1723	OUTPUT: RETVAL	1790	OUTPUT: RETVAL
1724		1791
		1792	UUID
		1793	uuid_cur ()
		1794	CODE:
		1795	RETVAL = UUID::cur;
		1796	OUTPUT:
		1797	RETVAL
		1798
		1799	UUID
		1800	uuid_gen ()
		1801	CODE:
		1802	RETVAL = UUID::gen ();
		1803	OUTPUT:
		1804	RETVAL
		1805
		1806	val64
		1807	uuid_seq (UUID uuid)
		1808	CODE:
		1809	RETVAL = uuid.seq;
		1810	OUTPUT:
		1811	RETVAL
		1812
		1813	UUID
		1814	uuid_str (val64 seq)
		1815	CODE:
		1816	RETVAL.seq = seq;
		1817	OUTPUT:
		1818	RETVAL
		1819
		1820	void
		1821	coin_names ()
		1822	PPCODE:
		1823	EXTEND (SP, NUM_COINS);
		1824	for (int i = 0; i < NUM_COINS; ++i)
		1825	PUSHs (sv_2mortal (newSVpv (coins [i], 0)));
		1826
		1827	void
		1828	coin_archetypes ()
		1829	PPCODE:
		1830	EXTEND (SP, NUM_COINS);
		1831	for (int i = 0; i < NUM_COINS; ++i)
		1832	PUSHs (sv_2mortal (to_sv (archetype::find (coins [i]))));
		1833
1725	bool	1834	bool
1726	load_resource_file (octet_string filename)	1835	load_resource_file_ (octet_string filename)
		1836
		1837	void
		1838	fix_weight ()
1727		1839
1728	MODULE = cf PACKAGE = cf::attachable	1840	MODULE = cf PACKAGE = cf::attachable
1729		1841
1730	int	1842	int
1731	valid (SV *obj)	1843	valid (SV *obj)
…		…
1795	object *actives (U32 index)	1907	object *actives (U32 index)
1796	CODE:	1908	CODE:
1797	RETVAL = index < actives.size () ? actives [index] : 0;	1909	RETVAL = index < actives.size () ? actives [index] : 0;
1798	OUTPUT: RETVAL	1910	OUTPUT: RETVAL
1799		1911
		1912	int mortals_size ()
		1913	CODE:
		1914	RETVAL = attachable::mortals.size ();
		1915	OUTPUT: RETVAL
		1916
1800	const char *slot_use_name (U32 slot)	1917	const char *slot_use_name (U32 slot)
1801	ALIAS:	1918	ALIAS:
1802	slot_nonuse_name = 1	1919	slot_nonuse_name = 1
1803	CODE:	1920	CODE:
1804	{	1921	{
…		…
1882	void apply_below (object *op)	1999	void apply_below (object *op)
1883	CODE:	2000	CODE:
1884	player_apply_below (op);	2001	player_apply_below (op);
1885		2002
1886	int cast_heal (object op, object caster, object *spell, int dir = 0)	2003	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		2004
1900	int pay_item (object op, object buyer)	2005	int pay_item (object op, object buyer)
1901	CODE:	2006	CODE:
1902	RETVAL = pay_for_item (op, buyer);	2007	RETVAL = pay_for_item (op, buyer);
1903	OUTPUT: RETVAL	2008	OUTPUT: RETVAL
…		…
1981	CODE:	2086	CODE:
1982	{	2087	{
1983	RETVAL = insert_ob_in_map_at (ob, where, orig, flag, x, y);	2088	RETVAL = insert_ob_in_map_at (ob, where, orig, flag, x, y);
1984	}	2089	}
1985		2090
1986	const_utf8_string get_ob_key_value (object *op, utf8_string key)	2091	shstr
		2092	object::kv_get (shstr key)
1987		2093
1988	bool set_ob_key_value (object *op, utf8_string key, utf8_string value = 0, int add_key = 1)	2094	void
		2095	object::kv_del (shstr key)
		2096
		2097	void
		2098	object::kv_set (shstr key, shstr value)
1989		2099
1990	object get_nearest_player (object ob)	2100	object get_nearest_player (object ob)
1991	ALIAS: nearest_player = 0	2101	ALIAS: nearest_player = 0
1992	PREINIT:	2102	PREINIT:
1993	extern object get_nearest_player (object );	2103	extern object get_nearest_player (object );
…		…
1995	void rangevector (object ob, object other, int flags = 0)	2105	void rangevector (object ob, object other, int flags = 0)
1996	PROTOTYPE: $$;$	2106	PROTOTYPE: $$;$
1997	PPCODE:	2107	PPCODE:
1998	{	2108	{
1999	rv_vector rv;	2109	rv_vector rv;
		2110
		2111	PUTBACK;
2000	get_rangevector (ob, other, &rv, flags);	2112	get_rangevector (ob, other, &rv, flags);
		2113	SPAGAIN;
		2114
2001	EXTEND (SP, 5);	2115	EXTEND (SP, 5);
2002	PUSHs (newSVuv (rv.distance));	2116	PUSHs (newSVuv (rv.distance));
2003	PUSHs (newSViv (rv.distance_x));	2117	PUSHs (newSViv (rv.distance_x));
2004	PUSHs (newSViv (rv.distance_y));	2118	PUSHs (newSViv (rv.distance_y));
2005	PUSHs (newSViv (rv.direction));	2119	PUSHs (newSViv (rv.direction));
…		…
2014	const_utf8_string	2128	const_utf8_string
2015	base_name (object *op, int plural = op->nrof > 1)	2129	base_name (object *op, int plural = op->nrof > 1)
2016	CODE:	2130	CODE:
2017	RETVAL = query_base_name (op, plural);	2131	RETVAL = query_base_name (op, plural);
2018	OUTPUT: RETVAL	2132	OUTPUT: RETVAL
2019
2020	object decrease_ob_nr (object op, unsigned long i)
2021		2133
2022	# return the tail of an object, excluding itself	2134	# return the tail of an object, excluding itself
2023	void	2135	void
2024	tail (object *op)	2136	tail (object *op)
2025	PPCODE:	2137	PPCODE:
…		…
2314	get_map_flags (maptile *map, int x, int y)	2426	get_map_flags (maptile *map, int x, int y)
2315	PPCODE:	2427	PPCODE:
2316	{	2428	{
2317	maptile *nmap = 0;	2429	maptile *nmap = 0;
2318	I16 nx = 0, ny = 0;	2430	I16 nx = 0, ny = 0;
		2431
		2432	PUTBACK;
2319	int flags = get_map_flags (map, &nmap, x, y, &nx, &ny);	2433	int flags = get_map_flags (map, &nmap, x, y, &nx, &ny);
		2434	SPAGAIN;
2320		2435
2321	EXTEND (SP, 4);	2436	EXTEND (SP, 4);
2322	PUSHs (sv_2mortal (newSViv (flags)));	2437	PUSHs (sv_2mortal (newSViv (flags)));
2323		2438
2324	if (GIMME_V == G_ARRAY)	2439	if (GIMME_V == G_ARRAY)
…		…
2327	PUSHs (sv_2mortal (newSViv (nx)));	2442	PUSHs (sv_2mortal (newSViv (nx)));
2328	PUSHs (sv_2mortal (newSViv (ny)));	2443	PUSHs (sv_2mortal (newSViv (ny)));
2329	}	2444	}
2330	}	2445	}
2331		2446
		2447	mapspace *
		2448	ms (maptile *map, unsigned int x, unsigned int y)
		2449	PROTOTYPE: $$$
		2450	CODE:
		2451	{
		2452	maptile *nmap = 0;
		2453	I16 nx, ny;
		2454
		2455	PUTBACK;
		2456	get_map_flags (map, &nmap, x, y, &nx, &ny);
		2457	SPAGAIN;
		2458
		2459	if (!nmap)
		2460	XSRETURN_UNDEF;
		2461
		2462	RETVAL = &nmap->at (nx, ny);
		2463	}
		2464	OUTPUT:
		2465	RETVAL
		2466
2332	void	2467	void
2333	at (maptile *map, unsigned int x, unsigned int y)	2468	at (maptile *map, unsigned int x, unsigned int y)
2334	PROTOTYPE: $$$	2469	PROTOTYPE: $$$
2335	PPCODE:	2470	PPCODE:
2336	{	2471	{
2337	object *o;
2338	maptile *nmap = 0;	2472	maptile *nmap = 0;
2339	I16 nx, ny;	2473	I16 nx, ny;
2340		2474
		2475	PUTBACK;
2341	get_map_flags (map, &nmap, x, y, &nx, &ny);	2476	get_map_flags (map, &nmap, x, y, &nx, &ny);
		2477	SPAGAIN;
2342		2478
2343	if (nmap)	2479	if (nmap)
2344	for (o = GET_MAP_OB (nmap, nx, ny); o; o = o->above)	2480	for (object *o = nmap->at (nx, ny).bot; o; o = o->above)
2345	XPUSHs (sv_2mortal (to_sv (o)));	2481	XPUSHs (sv_2mortal (to_sv (o)));
2346	}	2482	}
2347		2483
2348	SV *	2484	SV *
2349	bot_at (maptile *obj, unsigned int x, unsigned int y)	2485	bot_at (maptile *obj, unsigned int x, unsigned int y)
…		…
2462	RETVAL = self->generate_random_map (&rmp);	2598	RETVAL = self->generate_random_map (&rmp);
2463	}	2599	}
2464	OUTPUT:	2600	OUTPUT:
2465	RETVAL	2601	RETVAL
2466		2602
		2603	MODULE = cf PACKAGE = cf::mapspace
		2604
		2605	INCLUDE: $PERL $srcdir/genacc mapspace ../include/map.h \|
		2606
2467	MODULE = cf PACKAGE = cf::arch	2607	MODULE = cf PACKAGE = cf::arch
2468		2608
2469	int archetypes_size ()	2609	int archetypes_size ()
2470	CODE:	2610	CODE:
2471	RETVAL = archetypes.size ();	2611	RETVAL = archetypes.size ();
…		…
2793	extract_tags (object_thawer *self)	2933	extract_tags (object_thawer *self)
2794	PPCODE:	2934	PPCODE:
2795	while (self->kw != KW_EOF)	2935	while (self->kw != KW_EOF)
2796	{	2936	{
2797	PUTBACK;	2937	PUTBACK;
2798	coroapi::cede_to_tick_every (5000);	2938	coroapi::cede_to_tick ();
2799	SPAGAIN;	2939	SPAGAIN;
2800		2940
2801	if (self->kw == KW_tag)	2941	if (self->kw == KW_tag)
2802	XPUSHs (sv_2mortal (newSVpv_utf8 (self->get_str ())));	2942	XPUSHs (sv_2mortal (newSVpv_utf8 (self->get_str ())));
2803		2943

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.293 by root, Mon Aug 11 23:23:41 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.293 by root, Mon Aug 11 23:23:41 2008 UTC