[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.296 by root, Sun Aug 31 02:01: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); SvUPGRADE (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); SvUPGRADE (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); SvUPGRADE (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);
…		…
1296	const_iv (FLAG_CURSED) const_iv (FLAG_DAMNED) const_iv (FLAG_SEE_ANYWHERE) const_iv (FLAG_KNOWN_MAGICAL)	1323	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)	1324	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)	1325	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)	1326	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)	1327	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)	1328	const_iv (FLAG_NO_STEAL) const_iv (FLAG_ONE_HIT) const_iv (FLAG_BERSERK)
1302	const_iv (FLAG_NEUTRAL) const_iv (FLAG_NO_ATTACK) const_iv (FLAG_NO_DAMAGE) const_iv (FLAG_OBJ_ORIGINAL)	1329	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)	1330	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)	1331	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)	1332	const_iv (FLAG_DESTROY_ON_DEATH) const_iv (FLAG_NO_MAP_SAVE)
1306		1333
…		…
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
…		…
1477	av_store (av, eiv->iv, newRV_noinc ((SV *)event));	1504	av_store (av, eiv->iv, newRV_noinc ((SV *)event));
1478	newCONSTSUB (stash_cf, (char *)eiv->name, newSViv (eiv->iv));	1505	newCONSTSUB (stash_cf, (char *)eiv->name, newSViv (eiv->iv));
1479	}	1506	}
1480	}	1507	}
1481		1508
		1509	void _gv_clear (SV *gv)
		1510	CODE:
		1511	assert (SvTYPE (gv) == SVt_PVGV);
		1512	# define f(sv) { SV sv_ = (SV )(sv); sv = 0; SvREFCNT_dec (sv_); }
		1513	f (GvGP (gv)->gp_form);
		1514	f (GvGP (gv)->gp_io);
		1515	f (GvGP (gv)->gp_sv);
		1516	f (GvGP (gv)->gp_av);
		1517	f (GvGP (gv)->gp_hv);
		1518	f (GvGP (gv)->gp_cv);
		1519	GvCVGEN (gv) = 0;
		1520	GvMULTI_off (gv);
		1521	# undef f
		1522
		1523
1482	void _connect_to_perl ()	1524	void _connect_to_perl ()
1483		1525
1484	void _recalc_want ()	1526	void _recalc_want ()
1485		1527
1486	void _global_reattach ()	1528	void _global_reattach ()
…		…
1534	}	1576	}
1535		1577
1536	SvCUR_set (data_sv, dst - SvPVX (data_sv));	1578	SvCUR_set (data_sv, dst - SvPVX (data_sv));
1537	}	1579	}
1538		1580
		1581	void evthread_start (int aiofd)
		1582
1539	void _post_tick ()	1583	void cede_to_tick ()
1540	CODE:	1584	CODE:
1541	coroapi::next_cede = SvNVx (sv_next_tick) - TICK * (1. - 1. / CEDES_PER_TICK);	1585	coroapi::cede_to_tick ();
1542		1586
1543	NV till_cede ()	1587	NV till_tick ()
1544	CODE:	1588	CODE:
1545	RETVAL = coroapi::next_cede - now ();	1589	RETVAL = SvNVX (sv_next_tick) - now ();
1546	OUTPUT:	1590	OUTPUT:
1547	RETVAL	1591	RETVAL
1548		1592
1549	NV till_tick ()	1593	int tick_inhibit ()
1550	CODE:	1594	CODE:
1551	RETVAL = SvNVx (sv_next_tick) - now ();	1595	RETVAL = tick_inhibit;
1552	OUTPUT:	1596	OUTPUT:
1553	RETVAL	1597	RETVAL
1554		1598
		1599	void tick_inhibit_inc ()
		1600	CODE:
		1601	++tick_inhibit;
		1602
		1603	void tick_inhibit_dec ()
		1604	CODE:
		1605	if (!--tick_inhibit)
		1606	if (tick_pending)
		1607	{
		1608	ev_async_send (EV_DEFAULT, &tick_watcher);
		1609	coroapi::cede ();
		1610	}
		1611
		1612	void server_tick ()
		1613	CODE:
		1614	{
		1615	NOW = ev_now (EV_DEFAULT);
		1616	SvNV_set (sv_now, NOW); SvNOK_only (sv_now);
		1617	SvNV_set (sv_tick_start, NOW); SvNOK_only (sv_tick_start);
		1618	runtime = SvNVX (sv_runtime);
		1619
		1620	server_tick ();
		1621
		1622	NOW = ev_time ();
		1623	SvNV_set (sv_now, NOW); SvNOK_only (sv_now);
		1624	runtime += TICK;
		1625	SvNV_set (sv_runtime, runtime); SvNOK_only (sv_runtime);
		1626	}
		1627
1555	NV floor (NV x)	1628	NV floor (NV x)
1556		1629
1557	NV ceil (NV x)	1630	NV ceil (NV x)
1558		1631
1559	NV rndm (...)	1632	NV rndm (...)
		1633	ALIAS:
		1634	rmg_rndm = 1
1560	CODE:	1635	CODE:
		1636	{
		1637	rand_gen &gen = ix ? rmg_rndm : rndm;
1561	switch (items)	1638	switch (items)
1562	{	1639	{
1563	case 0: RETVAL = rndm (); break;	1640	case 0: RETVAL = gen (); break;
1564	case 1: RETVAL = rndm (SvUV (ST (0))); break;	1641	case 1: RETVAL = gen (SvUV (ST (0))); break;
1565	case 2: RETVAL = rndm (SvIV (ST (0)), SvIV (ST (1))); break;	1642	case 2: RETVAL = gen (SvIV (ST (0)), SvIV (ST (1))); break;
1566	default: croak ("cf::rndm requires none, one or two parameters."); break;	1643	default: croak ("cf::rndm requires none, one or two parameters."); break;
1567	}	1644	}
		1645	}
1568	OUTPUT:	1646	OUTPUT:
1569	RETVAL	1647	RETVAL
1570		1648
1571	NV clamp (NV value, NV min_value, NV max_value)	1649	NV clamp (NV value, NV min_value, NV max_value)
1572	CODE:	1650	CODE:
…		…
1584	PROTOTYPE: @	1662	PROTOTYPE: @
1585	CODE:	1663	CODE:
1586	while (items > 0)	1664	while (items > 0)
1587	sv_rvweaken (ST (--items));	1665	sv_rvweaken (ST (--items));
1588		1666
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	1667	void
1600	log_backtrace (utf8_string msg)	1668	log_backtrace (utf8_string msg)
1601		1669
1602	void	1670	void
1603	LOG (int flags, utf8_string msg)	1671	LOG (int flags, utf8_string msg)
…		…
1607	octet_string path_combine (octet_string base, octet_string path)	1675	octet_string path_combine (octet_string base, octet_string path)
1608	PROTOTYPE: $$	1676	PROTOTYPE: $$
1609		1677
1610	octet_string path_combine_and_normalize (octet_string base, octet_string path)	1678	octet_string path_combine_and_normalize (octet_string base, octet_string path)
1611	PROTOTYPE: $$	1679	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		1680
1636	void	1681	void
1637	sub_generation_inc ()	1682	sub_generation_inc ()
1638	CODE:	1683	CODE:
1639	PL_sub_generation++;	1684	PL_sub_generation++;
…		…
1664		1709
1665	void abort ()	1710	void abort ()
1666		1711
1667	void reset_signals ()	1712	void reset_signals ()
1668		1713
1669	void fork_abort (octet_string cause = "cf::fork_abort")	1714	void fork_abort (const_octet_string cause = "cf::fork_abort")
1670		1715
1671	void cleanup (octet_string cause, bool make_core = false)	1716	void cleanup (const_octet_string cause, bool make_core = false)
1672		1717
1673	void emergency_save ()	1718	void emergency_save ()
1674		1719
1675	void _exit (int status = EXIT_SUCCESS)	1720	void _exit (int status = EXIT_SUCCESS)
1676		1721
1677	#if _POSIX_MEMLOCK	1722	#if _POSIX_MEMLOCK
1678		1723
1679	int mlockall (int flags = MCL_CURRENT \| MCL_FUTURE)	1724	int mlockall (int flags = MCL_CURRENT \| MCL_FUTURE)
		1725	INIT:
		1726	#if __GLIBC__
		1727	mallopt (M_PERTURB, 0xee); // bug-workaround for linux glibc+mlockall+calloc
		1728	#endif
1680		1729
1681	int munlockall ()	1730	int munlockall ()
1682		1731
1683	#endif	1732	#endif
		1733
		1734	int
		1735	malloc_trim (IV pad = 0)
		1736
		1737	void
		1738	mallinfo ()
		1739	PPCODE:
		1740	{
		1741	#if __GLIBC__
		1742	struct mallinfo mai = mallinfo ();
		1743	EXTEND (SP, 10*2);
		1744	PUSHs (sv_2mortal (newSVpv ("arena" , 0))); PUSHs (sv_2mortal (newSViv (mai.arena)));
		1745	PUSHs (sv_2mortal (newSVpv ("ordblks" , 0))); PUSHs (sv_2mortal (newSViv (mai.ordblks)));
		1746	PUSHs (sv_2mortal (newSVpv ("smblks" , 0))); PUSHs (sv_2mortal (newSViv (mai.smblks)));
		1747	PUSHs (sv_2mortal (newSVpv ("hblks" , 0))); PUSHs (sv_2mortal (newSViv (mai.hblks)));
		1748	PUSHs (sv_2mortal (newSVpv ("hblkhd" , 0))); PUSHs (sv_2mortal (newSViv (mai.hblkhd)));
		1749	PUSHs (sv_2mortal (newSVpv ("usmblks" , 0))); PUSHs (sv_2mortal (newSViv (mai.usmblks)));
		1750	PUSHs (sv_2mortal (newSVpv ("fsmblks" , 0))); PUSHs (sv_2mortal (newSViv (mai.fsmblks)));
		1751	PUSHs (sv_2mortal (newSVpv ("uordblks", 0))); PUSHs (sv_2mortal (newSViv (mai.uordblks)));
		1752	PUSHs (sv_2mortal (newSVpv ("fordblks", 0))); PUSHs (sv_2mortal (newSViv (mai.fordblks)));
		1753	PUSHs (sv_2mortal (newSVpv ("keepcost", 0))); PUSHs (sv_2mortal (newSViv (mai.keepcost)));
		1754	#endif
		1755	EXTEND (SP, 2*2);
		1756	PUSHs (sv_2mortal (newSVpv ("slice_alloc", 0))); PUSHs (sv_2mortal (newSVuv (slice_alloc)));
		1757	PUSHs (sv_2mortal (newSVpv ("shstr_alloc", 0))); PUSHs (sv_2mortal (newSVuv (shstr_alloc)));
		1758	PUSHs (sv_2mortal (newSVpv ("objects" , 0))); PUSHs (sv_2mortal (newSVuv (objects.size () * sizeof (object))));
		1759	}
1684		1760
1685	int find_animation (utf8_string text)	1761	int find_animation (utf8_string text)
1686	PROTOTYPE: $	1762	PROTOTYPE: $
1687		1763
1688	int random_roll (int min, int max, object *op, int goodbad);	1764	int random_roll (int min, int max, object *op, int goodbad);
…		…
1726	RETVAL = newSVpv (resist_plus[atnr], 0);	1802	RETVAL = newSVpv (resist_plus[atnr], 0);
1727	else	1803	else
1728	XSRETURN_UNDEF;	1804	XSRETURN_UNDEF;
1729	OUTPUT: RETVAL	1805	OUTPUT: RETVAL
1730		1806
		1807	UUID
		1808	uuid_cur ()
		1809	CODE:
		1810	RETVAL = UUID::cur;
		1811	OUTPUT:
		1812	RETVAL
		1813
		1814	UUID
		1815	uuid_gen ()
		1816	CODE:
		1817	RETVAL = UUID::gen ();
		1818	OUTPUT:
		1819	RETVAL
		1820
		1821	val64
		1822	uuid_seq (UUID uuid)
		1823	CODE:
		1824	RETVAL = uuid.seq;
		1825	OUTPUT:
		1826	RETVAL
		1827
		1828	UUID
		1829	uuid_str (val64 seq)
		1830	CODE:
		1831	RETVAL.seq = seq;
		1832	OUTPUT:
		1833	RETVAL
		1834
		1835	void
		1836	coin_names ()
		1837	PPCODE:
		1838	EXTEND (SP, NUM_COINS);
		1839	for (int i = 0; i < NUM_COINS; ++i)
		1840	PUSHs (sv_2mortal (newSVpv (coins [i], 0)));
		1841
		1842	void
		1843	coin_archetypes ()
		1844	PPCODE:
		1845	EXTEND (SP, NUM_COINS);
		1846	for (int i = 0; i < NUM_COINS; ++i)
		1847	PUSHs (sv_2mortal (to_sv (archetype::find (coins [i]))));
		1848
1731	bool	1849	bool
1732	load_resource_file (octet_string filename)	1850	load_resource_file_ (octet_string filename)
		1851
		1852	void
		1853	fix_weight ()
1733		1854
1734	MODULE = cf PACKAGE = cf::attachable	1855	MODULE = cf PACKAGE = cf::attachable
1735		1856
1736	int	1857	int
1737	valid (SV *obj)	1858	valid (SV *obj)
…		…
1801	object *actives (U32 index)	1922	object *actives (U32 index)
1802	CODE:	1923	CODE:
1803	RETVAL = index < actives.size () ? actives [index] : 0;	1924	RETVAL = index < actives.size () ? actives [index] : 0;
1804	OUTPUT: RETVAL	1925	OUTPUT: RETVAL
1805		1926
		1927	int mortals_size ()
		1928	CODE:
		1929	RETVAL = attachable::mortals.size ();
		1930	OUTPUT: RETVAL
		1931
1806	const char *slot_use_name (U32 slot)	1932	const char *slot_use_name (U32 slot)
1807	ALIAS:	1933	ALIAS:
1808	slot_nonuse_name = 1	1934	slot_nonuse_name = 1
1809	CODE:	1935	CODE:
1810	{	1936	{
…		…
1888	void apply_below (object *op)	2014	void apply_below (object *op)
1889	CODE:	2015	CODE:
1890	player_apply_below (op);	2016	player_apply_below (op);
1891		2017
1892	int cast_heal (object op, object caster, object *spell, int dir = 0)	2018	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		2019
1906	int pay_item (object op, object buyer)	2020	int pay_item (object op, object buyer)
1907	CODE:	2021	CODE:
1908	RETVAL = pay_for_item (op, buyer);	2022	RETVAL = pay_for_item (op, buyer);
1909	OUTPUT: RETVAL	2023	OUTPUT: RETVAL
…		…
1987	CODE:	2101	CODE:
1988	{	2102	{
1989	RETVAL = insert_ob_in_map_at (ob, where, orig, flag, x, y);	2103	RETVAL = insert_ob_in_map_at (ob, where, orig, flag, x, y);
1990	}	2104	}
1991		2105
1992	const_utf8_string get_ob_key_value (object *op, utf8_string key)	2106	shstr
		2107	object::kv_get (shstr key)
1993		2108
1994	bool set_ob_key_value (object *op, utf8_string key, utf8_string value = 0, int add_key = 1)	2109	void
		2110	object::kv_del (shstr key)
		2111
		2112	void
		2113	object::kv_set (shstr key, shstr value)
1995		2114
1996	object get_nearest_player (object ob)	2115	object get_nearest_player (object ob)
1997	ALIAS: nearest_player = 0	2116	ALIAS: nearest_player = 0
1998	PREINIT:	2117	PREINIT:
1999	extern object get_nearest_player (object );	2118	extern object get_nearest_player (object );
…		…
2001	void rangevector (object ob, object other, int flags = 0)	2120	void rangevector (object ob, object other, int flags = 0)
2002	PROTOTYPE: $$;$	2121	PROTOTYPE: $$;$
2003	PPCODE:	2122	PPCODE:
2004	{	2123	{
2005	rv_vector rv;	2124	rv_vector rv;
		2125
		2126	PUTBACK;
2006	get_rangevector (ob, other, &rv, flags);	2127	get_rangevector (ob, other, &rv, flags);
		2128	SPAGAIN;
		2129
2007	EXTEND (SP, 5);	2130	EXTEND (SP, 5);
2008	PUSHs (newSVuv (rv.distance));	2131	PUSHs (newSVuv (rv.distance));
2009	PUSHs (newSViv (rv.distance_x));	2132	PUSHs (newSViv (rv.distance_x));
2010	PUSHs (newSViv (rv.distance_y));	2133	PUSHs (newSViv (rv.distance_y));
2011	PUSHs (newSViv (rv.direction));	2134	PUSHs (newSViv (rv.direction));
…		…
2021	base_name (object *op, int plural = op->nrof > 1)	2144	base_name (object *op, int plural = op->nrof > 1)
2022	CODE:	2145	CODE:
2023	RETVAL = query_base_name (op, plural);	2146	RETVAL = query_base_name (op, plural);
2024	OUTPUT: RETVAL	2147	OUTPUT: RETVAL
2025		2148
2026	object decrease_ob_nr (object op, unsigned long i)
2027
2028	# return the tail of an object, excluding itself	2149	# return the tail of an object, excluding itself
2029	void	2150	void
2030	tail (object *op)	2151	tail (object *op)
2031	PPCODE:	2152	PPCODE:
2032	while ((op = op->more))	2153	while ((op = op->more))
…		…
2104	if (len > MAXSOCKBUF)	2225	if (len > MAXSOCKBUF)
2105	pl->failmsg ("[packet too long for client]");	2226	pl->failmsg ("[packet too long for client]");
2106	else if (pl->ns)	2227	else if (pl->ns)
2107	pl->ns->send_packet (buf, len);	2228	pl->ns->send_packet (buf, len);
2108	}	2229	}
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		2230
2119	void savebed (player pl, SV map_path = 0, SV x = 0, SV y = 0)	2231	void savebed (player pl, SV map_path = 0, SV x = 0, SV y = 0)
2120	PROTOTYPE: $;$$$	2232	PROTOTYPE: $;$$$
2121	PPCODE:	2233	PPCODE:
2122	if (GIMME_V != G_VOID)	2234	if (GIMME_V != G_VOID)
…		…
2320	get_map_flags (maptile *map, int x, int y)	2432	get_map_flags (maptile *map, int x, int y)
2321	PPCODE:	2433	PPCODE:
2322	{	2434	{
2323	maptile *nmap = 0;	2435	maptile *nmap = 0;
2324	I16 nx = 0, ny = 0;	2436	I16 nx = 0, ny = 0;
		2437
		2438	PUTBACK;
2325	int flags = get_map_flags (map, &nmap, x, y, &nx, &ny);	2439	int flags = get_map_flags (map, &nmap, x, y, &nx, &ny);
		2440	SPAGAIN;
2326		2441
2327	EXTEND (SP, 4);	2442	EXTEND (SP, 4);
2328	PUSHs (sv_2mortal (newSViv (flags)));	2443	PUSHs (sv_2mortal (newSViv (flags)));
2329		2444
2330	if (GIMME_V == G_ARRAY)	2445	if (GIMME_V == G_ARRAY)
…		…
2333	PUSHs (sv_2mortal (newSViv (nx)));	2448	PUSHs (sv_2mortal (newSViv (nx)));
2334	PUSHs (sv_2mortal (newSViv (ny)));	2449	PUSHs (sv_2mortal (newSViv (ny)));
2335	}	2450	}
2336	}	2451	}
2337		2452
		2453	mapspace *
		2454	ms (maptile *map, unsigned int x, unsigned int y)
		2455	PROTOTYPE: $$$
		2456	CODE:
		2457	{
		2458	maptile *nmap = 0;
		2459	I16 nx, ny;
		2460
		2461	PUTBACK;
		2462	get_map_flags (map, &nmap, x, y, &nx, &ny);
		2463	SPAGAIN;
		2464
		2465	if (!nmap)
		2466	XSRETURN_UNDEF;
		2467
		2468	RETVAL = &nmap->at (nx, ny);
		2469	}
		2470	OUTPUT:
		2471	RETVAL
		2472
2338	void	2473	void
2339	at (maptile *map, unsigned int x, unsigned int y)	2474	at (maptile *map, unsigned int x, unsigned int y)
2340	PROTOTYPE: $$$	2475	PROTOTYPE: $$$
2341	PPCODE:	2476	PPCODE:
2342	{	2477	{
2343	object *o;
2344	maptile *nmap = 0;	2478	maptile *nmap = 0;
2345	I16 nx, ny;	2479	I16 nx, ny;
2346		2480
		2481	PUTBACK;
2347	get_map_flags (map, &nmap, x, y, &nx, &ny);	2482	get_map_flags (map, &nmap, x, y, &nx, &ny);
		2483	SPAGAIN;
2348		2484
2349	if (nmap)	2485	if (nmap)
2350	for (o = GET_MAP_OB (nmap, nx, ny); o; o = o->above)	2486	for (object *o = nmap->at (nx, ny).bot; o; o = o->above)
2351	XPUSHs (sv_2mortal (to_sv (o)));	2487	XPUSHs (sv_2mortal (to_sv (o)));
2352	}	2488	}
2353		2489
2354	SV *	2490	SV *
2355	bot_at (maptile *obj, unsigned int x, unsigned int y)	2491	bot_at (maptile *obj, unsigned int x, unsigned int y)
…		…
2468	RETVAL = self->generate_random_map (&rmp);	2604	RETVAL = self->generate_random_map (&rmp);
2469	}	2605	}
2470	OUTPUT:	2606	OUTPUT:
2471	RETVAL	2607	RETVAL
2472		2608
		2609	MODULE = cf PACKAGE = cf::mapspace
		2610
		2611	INCLUDE: $PERL $srcdir/genacc mapspace ../include/map.h \|
		2612
2473	MODULE = cf PACKAGE = cf::arch	2613	MODULE = cf PACKAGE = cf::arch
2474		2614
2475	int archetypes_size ()	2615	int archetypes_size ()
2476	CODE:	2616	CODE:
2477	RETVAL = archetypes.size ();	2617	RETVAL = archetypes.size ();
…		…
2799	extract_tags (object_thawer *self)	2939	extract_tags (object_thawer *self)
2800	PPCODE:	2940	PPCODE:
2801	while (self->kw != KW_EOF)	2941	while (self->kw != KW_EOF)
2802	{	2942	{
2803	PUTBACK;	2943	PUTBACK;
2804	coroapi::cede_to_tick_every (5000);	2944	coroapi::cede_to_tick ();
2805	SPAGAIN;	2945	SPAGAIN;
2806		2946
2807	if (self->kw == KW_tag)	2947	if (self->kw == KW_tag)
2808	XPUSHs (sv_2mortal (newSVpv_utf8 (self->get_str ())));	2948	XPUSHs (sv_2mortal (newSVpv_utf8 (self->get_str ())));
2809		2949

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.296 by root, Sun Aug 31 02:01:41 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.296 by root, Sun Aug 31 02:01:41 2008 UTC