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

Comparing deliantra/server/server/cfperl.xs (file contents):
Revision 1.265 by root, Wed Nov 14 08:09:46 2007 UTC vs.
Revision 1.312 by root, Tue Dec 23 06:58:24 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;	75	static SV sv_runtime, sv_tick_start, sv_next_tick, sv_now;
82		76
83	bitset<NUM_EVENT_TYPES> ev_want_event;	77	bitset<NUM_EVENT_TYPES> ev_want_event;
84	bitset<NUM_TYPES> ev_want_type;	78	bitset<NUM_TYPES> ev_want_type;
85		79
86	static HV	80	static HV
87	*stash_cf,	81	*stash_cf,
88	*stash_cf_object_wrap,	82	*stash_cf_object_wrap,
89	*stash_cf_object_player_wrap,	83	*stash_cf_object_player_wrap,
90	*stash_cf_player_wrap,	84	*stash_cf_player_wrap,
91	*stash_cf_map_wrap,	85	*stash_cf_map_wrap,
		86	*stash_cf_mapspace_wrap,
92	*stash_cf_client_wrap,	87	*stash_cf_client_wrap,
93	*stash_cf_arch_wrap,	88	*stash_cf_arch_wrap,
94	*stash_cf_party_wrap,	89	*stash_cf_party_wrap,
95	*stash_cf_region_wrap,	90	*stash_cf_region_wrap,
96	*stash_cf_living_wrap;	91	*stash_cf_living_wrap;
97		92
		93	#ifndef newSVpv_utf8
98	static inline SV *	94	static inline SV *
99	newSVpv_utf8 (const char *s)	95	newSVpv_utf8 (const char *s)
100	{	96	{
101	if (!s)	97	if (!s)
102	return newSV (0);	98	return newSV (0);
103		99
104	SV *sv = newSVpv (s, 0);	100	SV *sv = newSVpv (s, 0);
105	SvUTF8_on (sv);	101	SvUTF8_on (sv);
106	return sv;	102	return sv;
107	}	103	}
		104	#endif
108		105
		106	#ifndef newSVpvn_utf8
109	static inline SV *	107	static inline SV *
110	newSVpvn_utf8 (const char *s, STRLEN l)	108	newSVpvn_utf8 (const char *s, STRLEN l, int utf8)
111	{	109	{
112	if (!s)	110	if (!s)
113	return newSV (0);	111	return newSV (0);
114		112
115	SV *sv = newSVpvn (s, l);	113	SV *sv = newSVpvn (s, l);
		114
		115	if (utf8)
116	SvUTF8_on (sv);	116	SvUTF8_on (sv);
		117
117	return sv;	118	return sv;
118	}	119	}
		120	#endif
119		121
120	// helper cast function, returns super class * or 0	122	// helper cast function, returns super class * or 0
121	template<class super>	123	template<class super>
122	static super *	124	static super *
123	is_a (attachable *at)	125	is_a (attachable *at)
…		…
412	return SvPTR (sv, klass);	414	return SvPTR (sv, klass);
413	else	415	else
414	return 0;	416	return 0;
415	}	417	}
416		418
417	inline SV to_sv (const shstr & v) { return newSVpvn_utf8 ((const char )v, v.length ()); }	419	inline SV to_sv (const shstr & v) { return newSVpvn_utf8 ((const char )v, v.length (), 1); }
418	inline SV to_sv (const char v) { return v ? newSVpv (v, 0) : newSV (0); }	420	inline SV to_sv (const char v) { return v ? newSVpv (v, 0) : newSV (0); }
419	inline SV *to_sv (bool v) { return newSViv (v); }	421	inline SV *to_sv (bool v) { return newSViv (v); }
420	inline SV *to_sv ( signed char v) { return newSViv (v); }	422	inline SV *to_sv ( signed char v) { return newSViv (v); }
421	inline SV *to_sv (unsigned char v) { return newSViv (v); }	423	inline SV *to_sv (unsigned char v) { return newSViv (v); }
422	inline SV *to_sv ( signed short v) { return newSViv (v); }	424	inline SV *to_sv ( signed short v) { return newSViv (v); }
…		…
435	inline SV to_sv (maptile v) { return newSVattachable (v, stash_cf_map_wrap); }	437	inline SV to_sv (maptile v) { return newSVattachable (v, stash_cf_map_wrap); }
436	inline SV to_sv (archetype v) { return newSVattachable (v, stash_cf_arch_wrap); }	438	inline SV to_sv (archetype v) { return newSVattachable (v, stash_cf_arch_wrap); }
437	inline SV to_sv (region v) { return newSVattachable (v, stash_cf_region_wrap); }	439	inline SV to_sv (region v) { return newSVattachable (v, stash_cf_region_wrap); }
438	inline SV to_sv (partylist v) { return newSVptr (v, stash_cf_party_wrap); }	440	inline SV to_sv (partylist v) { return newSVptr (v, stash_cf_party_wrap); }
439	inline SV to_sv (living v) { return newSVptr (v, stash_cf_living_wrap); }	441	inline SV to_sv (living v) { return newSVptr (v, stash_cf_living_wrap); }
		442	inline SV to_sv (mapspace v) { return newSVptr (v, stash_cf_mapspace_wrap); }
440		443
441	inline SV *to_sv (object & v) { return to_sv (&v); }	444	inline SV *to_sv (object & v) { return to_sv (&v); }
442	inline SV *to_sv (living & v) { return to_sv (&v); }	445	inline SV *to_sv (living & v) { return to_sv (&v); }
443		446
444	inline SV *to_sv (const std::string & v) { return newSVpvn (v.data (), v.size ()); }	447	inline SV *to_sv (const std::string & v) { return newSVpvn (v.data (), v.size ()); }
445	inline SV to_sv (const treasurelist v) { return to_sv (v->name); }	448	inline SV to_sv (const treasurelist v) { return to_sv (v->name); }
446		449
		450	inline SV *to_sv (UUID v) { return newSVpv (v.c_str (), 0); }
		451
447	inline SV *to_sv (UUID v)	452	inline SV to_sv (dynbuf v)
448	{	453	{
449	char buf[128];	454	SV *sv = newSV (0);
450	snprintf (buf, 128, "<1.%" PRIx64 ">", v.seq);	455
451	return newSVpv (buf, 0);	456	sv_upgrade (sv, SVt_PV);
		457	SvGROW (sv, v->size () + 1);
		458	SvPOK_only (sv);
		459	v->linearise (SvPVX (sv));
		460	SvCUR_set (sv, v->size ());
		461	*SvEND (sv) = 0;
		462
		463	return sv;
		464	}
		465
		466	inline SV to_sv (dynbuf_text v)
		467	{
		468	SV sv = to_sv (static_cast<dynbuf > (v));
		469	SvUTF8_on (sv);
		470	return sv;
452	}	471	}
453		472
454	inline void sv_to (SV *sv, shstr &v) { v = SvOK (sv) ? SvPVutf8_nolen (sv) : 0; }	473	inline void sv_to (SV *sv, shstr &v) { v = SvOK (sv) ? SvPVutf8_nolen (sv) : 0; }
455	inline void sv_to (SV sv, char &v) { free (v); v = SvOK (sv) ? strdup (SvPV_nolen (sv)) : 0; }	474	inline void sv_to (SV sv, char &v) { free (v); v = SvOK (sv) ? strdup (SvPV_nolen (sv)) : 0; }
456	inline void sv_to (SV *sv, bool &v) { v = SvIV (sv); }	475	inline void sv_to (SV *sv, bool &v) { v = SvIV (sv); }
…		…
473	inline void sv_to (SV sv, maptile &v) { v = (maptile )(attachable )SvPTR_ornull (sv, "cf::map"); }	492	inline void sv_to (SV sv, maptile &v) { v = (maptile )(attachable )SvPTR_ornull (sv, "cf::map"); }
474	inline void sv_to (SV sv, region &v) { v = (region )(attachable )SvPTR_ornull (sv, "cf::region"); }	493	inline void sv_to (SV sv, region &v) { v = (region )(attachable )SvPTR_ornull (sv, "cf::region"); }
475	inline void sv_to (SV sv, attachable &v) { v = (attachable *)SvPTR_ornull (sv, "cf::attachable"); }	494	inline void sv_to (SV sv, attachable &v) { v = (attachable *)SvPTR_ornull (sv, "cf::attachable"); }
476	inline void sv_to (SV sv, partylist &v) { v = (partylist *)SvPTR_ornull (sv, "cf::party"); }	495	inline void sv_to (SV sv, partylist &v) { v = (partylist *)SvPTR_ornull (sv, "cf::party"); }
477	inline void sv_to (SV sv, living &v) { v = (living *)SvPTR_ornull (sv, "cf::living"); }	496	inline void sv_to (SV sv, living &v) { v = (living *)SvPTR_ornull (sv, "cf::living"); }
		497	inline void sv_to (SV sv, mapspace &v) { v = (mapspace *)SvPTR_ornull (sv, "cf::mapspace"); }
478	inline void sv_to (SV sv, object_freezer &v) { v = (object_freezer *)SvPTR_ornull (sv, "cf::object::freezer"); }	498	inline void sv_to (SV sv, object_freezer &v) { v = (object_freezer *)SvPTR_ornull (sv, "cf::object::freezer"); }
479	inline void sv_to (SV sv, object_thawer &v) { v = (object_thawer *)SvPTR_ornull (sv, "cf::object::thawer" ); }	499	inline void sv_to (SV sv, object_thawer &v) { v = (object_thawer *)SvPTR_ornull (sv, "cf::object::thawer" ); }
480		500
481	//inline void sv_to (SV sv, faceinfo &v) { v = &faces [face_find (SvPV_nolen (sv), 0)]; }	501	//inline void sv_to (SV sv, faceinfo &v) { v = &faces [face_find (SvPV_nolen (sv), 0)]; }
482	inline void sv_to (SV sv, treasurelist &v) { v = treasurelist::find (SvPV_nolen (sv)); }	502	inline void sv_to (SV sv, treasurelist &v) { v = treasurelist::find (SvPV_nolen (sv)); }
…		…
499	v.assign (data, len);	519	v.assign (data, len);
500	}	520	}
501		521
502	inline void sv_to (SV *sv, UUID &v)	522	inline void sv_to (SV *sv, UUID &v)
503	{	523	{
504	unsigned int version;	524	if (!v.parse (SvPV_nolen (sv)))
505
506	if (2 != sscanf (SvPV_nolen (sv), "<%d.%" SCNx64 ">", &version, &v.seq) \|\| 1 != version)
507	croak ("unparsable uuid: %s", SvPV_nolen (sv));	525	croak ("unparsable uuid: %s", SvPV_nolen (sv));
508	}	526	}
509		527
510	inline void sv_to (SV *sv, object::flags_t::reference v) { v = SvTRUE (sv); }	528	inline void sv_to (SV *sv, object::flags_t::reference v) { v = SvTRUE (sv); }
511		529
…		…
605	/////////////////////////////////////////////////////////////////////////////	623	/////////////////////////////////////////////////////////////////////////////
606		624
607	void	625	void
608	cfperl_init ()	626	cfperl_init ()
609	{	627	{
		628	extern char **environ;
		629
610	PERL_SYS_INIT3 (&settings.argc, &settings.argv, 0);	630	PERL_SYS_INIT3 (&settings.argc, &settings.argv, &environ);
611	perl = perl_alloc ();	631	perl = perl_alloc ();
612	perl_construct (perl);	632	perl_construct (perl);
613		633
614	PL_exit_flags \|= PERL_EXIT_DESTRUCT_END;	634	PL_exit_flags \|= PERL_EXIT_DESTRUCT_END;
615		635
616	const char *argv[] = {	636	const char *argv[] = {
617	settings.argv [0],	637	settings.argv [0],
618	"-e"	638	"-e0"
619	"use EV; use Coro;" // required for bootstrap
620	"cf->bootstrap;" // required for datadir :*>
621	"unshift @INC, cf::datadir ();"
622	"require cf;"
623	};	639	};
624		640
625	if (perl_parse (perl, xs_init, 2, (char )argv, (char )NULL)	641	if (perl_parse (perl, xs_init, 2, (char **)argv, environ)
626	\|\| perl_run (perl))	642	\|\| perl_run (perl))
627	{	643	{
628	printf ("unable to initialize perl-interpreter, aborting.\n");	644	printf ("unable to initialize perl-interpreter, aborting.\n");
629	exit (EXIT_FAILURE);	645	exit (EXIT_FAILURE);
630	}	646	}
631		647
		648	eval_pv (
		649	"#line 1 'cfperl init'\n"
		650	"use EV ();\n"
		651	"use Coro ();\n"
		652	"cf->bootstrap;\n"
		653	"unshift @INC, cf::datadir ();\n"
		654	"require cf;\n",
		655	0
		656	);
		657
		658	if (SvTRUE (ERRSV))
632	{	659	{
633	dSP;	660	printf ("unable to bootstrap perl, aborting:\n%s", SvPV_nolen (ERRSV));
634		661	exit (EXIT_FAILURE);
635	PUSHMARK (SP);
636	PUTBACK;
637	call_pv ("cf::init", G_DISCARD \| G_VOID);
638	}	662	}
639	}	663	}
640		664
641	void cfperl_main ()	665	void cfperl_main ()
642	{	666	{
643	dSP;	667	dSP;
…		…
907	}	931	}
908		932
909	/////////////////////////////////////////////////////////////////////////////	933	/////////////////////////////////////////////////////////////////////////////
910	// various c++ => perl glue functions	934	// various c++ => perl glue functions
911		935
		936	void cfperl_tick ()
		937	{
		938	tick_pending = 1;
		939
		940	if (tick_inhibit)
		941	return;
		942
		943	tick_pending = 0;
		944
		945	dSP;
		946
		947	PUSHMARK (SP);
		948	PUTBACK;
		949	call_pv ("cf::tick", G_DISCARD \| G_VOID);
		950
		951	SvNV_set (sv_next_tick, get_next_tick ()); SvNOK_only (sv_next_tick);
		952	}
		953
912	void	954	void
913	cfperl_emergency_save ()	955	cfperl_emergency_save ()
914	{	956	{
915	CALL_BEGIN (0);	957	CALL_BEGIN (0);
916	CALL_CALL ("cf::emergency_save", G_VOID);	958	CALL_CALL ("cf::emergency_save", G_VOID);
…		…
968	{	1010	{
969	CALL_BEGIN (1);	1011	CALL_BEGIN (1);
970	CALL_ARG (name);	1012	CALL_ARG (name);
971	CALL_CALL ("cf::player::find", G_SCALAR);	1013	CALL_CALL ("cf::player::find", G_SCALAR);
972		1014
973	player *retval;	1015	player *retval = 0;
974
975	if (count)
976	sv_to (POPs, retval);	1016	if (count) sv_to (POPs, retval);
977	else	1017
978	retval = 0;	1018	CALL_END;
		1019
		1020	return retval;
		1021	}
		1022
		1023	maptile *
		1024	find_style (const char dirname, const char stylename, int difficulty)
		1025	{
		1026	CALL_BEGIN (3);
		1027	CALL_ARG (dirname);
		1028	CALL_ARG (stylename);
		1029	CALL_ARG (difficulty);
		1030	CALL_CALL ("ext::map_random::find_style", G_SCALAR);
		1031
		1032	maptile *retval = 0;
		1033	if (count) sv_to (POPs, retval);
979		1034
980	CALL_END;	1035	CALL_END;
981		1036
982	return retval;	1037	return retval;
983	}	1038	}
…		…
988	CALL_BEGIN (2);	1043	CALL_BEGIN (2);
989	CALL_ARG (path);	1044	CALL_ARG (path);
990	CALL_ARG (origin);	1045	CALL_ARG (origin);
991	CALL_CALL ("cf::map::find_sync", G_SCALAR);	1046	CALL_CALL ("cf::map::find_sync", G_SCALAR);
992		1047
993	maptile *retval;	1048	maptile *retval = 0;
994
995	if (count)
996	sv_to (POPs, retval);	1049	if (count) sv_to (POPs, retval);
997	else
998	retval = 0;
999		1050
1000	CALL_END;	1051	CALL_END;
1001		1052
1002	return retval;	1053	return retval;
1003	}	1054	}
…		…
1009	CALL_ARG (path);	1060	CALL_ARG (path);
1010	CALL_ARG (origin);	1061	CALL_ARG (origin);
1011	CALL_ARG (load);	1062	CALL_ARG (load);
1012	CALL_CALL ("cf::map::find_async", G_SCALAR);	1063	CALL_CALL ("cf::map::find_async", G_SCALAR);
1013		1064
1014	maptile *retval;	1065	maptile *retval = 0;
1015
1016	if (count)
1017	sv_to (POPs, retval);	1066	if (count) sv_to (POPs, retval);
1018	else
1019	retval = 0;
1020		1067
1021	CALL_END;	1068	CALL_END;
1022		1069
1023	return retval;	1070	return retval;
1024	}	1071	}
…		…
1031	CALL_CALL ("cf::map::do_load_sync", G_SCALAR);	1078	CALL_CALL ("cf::map::do_load_sync", G_SCALAR);
1032	CALL_END;	1079	CALL_END;
1033	}	1080	}
1034		1081
1035	void	1082	void
1036	maptile::change_all_map_light (int change)
1037	{
1038	CALL_BEGIN (1);
1039	CALL_ARG (change);
1040	CALL_CALL ("cf::map::change_all_map_light", G_VOID);
1041	CALL_END;
1042	}
1043
1044	void
1045	object::enter_exit (object *exit)	1083	object::enter_exit (object *exit)
1046	{	1084	{
1047	if (type != PLAYER)	1085	if (type != PLAYER)
1048	return;	1086	return;
1049		1087
1050	CALL_BEGIN (2);	1088	CALL_BEGIN (2);
1051	CALL_ARG (this);	1089	CALL_ARG (this);
1052	CALL_ARG (exit);	1090	CALL_ARG (exit);
1053	CALL_CALL ("cf::object::player::enter_exit", G_VOID);	1091	CALL_CALL ("cf::object::player::enter_exit", G_VOID);
		1092	CALL_END;
		1093	}
		1094
		1095	void
		1096	object::player_goto (const char *path, int x, int y)
		1097	{
		1098	if (type != PLAYER)
		1099	return;
		1100
		1101	CALL_BEGIN (4);
		1102	CALL_ARG (this);
		1103	CALL_ARG (path);
		1104	CALL_ARG (x);
		1105	CALL_ARG (y);
		1106	CALL_CALL ("cf::object::player::goto", G_VOID);
1054	CALL_END;	1107	CALL_END;
1055	}	1108	}
1056		1109
1057	const char *	1110	const char *
1058	object::ref () const	1111	object::ref () const
…		…
1102	/////////////////////////////////////////////////////////////////////////////	1155	/////////////////////////////////////////////////////////////////////////////
1103		1156
1104	struct EVAPI *evapi::GEVAPI;	1157	struct EVAPI *evapi::GEVAPI;
1105	struct CoroAPI *coroapi::GCoroAPI;	1158	struct CoroAPI *coroapi::GCoroAPI;
1106		1159
1107	int coroapi::cede_counter;
1108	tstamp coroapi::next_cede;
1109
1110	void coroapi::do_cede_to_tick ()	1160	void coroapi::do_cede_to_tick ()
1111	{	1161	{
1112	cede_counter = 0;	1162	cede_pending = 0;
1113
1114	cede ();	1163	cede ();
1115
1116	next_cede += (TICK / CEDES_PER_TICK) * 0.99;
1117	if (next_cede > SvNV (sv_next_tick) - 0.02)
1118	next_cede = SvNV (sv_next_tick);
1119	}
1120
1121	void coroapi::do_cede_every ()
1122	{
1123	cede_counter = 0;
1124
1125	if (coroapi::nready ())
1126	coroapi::cede ();
1127	}
1128
1129	void coroapi::do_cede_to_tick_every ()
1130	{
1131	cede_counter = 0;
1132
1133	cede_to_tick ();
1134	}	1164	}
1135		1165
1136	void	1166	void
1137	coroapi::wait_for_tick ()	1167	coroapi::wait_for_tick ()
1138	{	1168	{
…		…
1162	}	1192	}
1163		1193
1164	void	1194	void
1165	_connect_to_perl ()	1195	_connect_to_perl ()
1166	{	1196	{
1167	stash_cf = gv_stashpv ("cf" , 1);	1197	stash_cf = gv_stashpv ("cf", 1);
1168		1198
1169	stash_cf_object_wrap = gv_stashpv ("cf::object::wrap", 1);	1199	stash_cf_object_wrap = gv_stashpv ("cf::object::wrap", 1);
1170	stash_cf_object_player_wrap = gv_stashpv ("cf::object::player::wrap", 1);	1200	stash_cf_object_player_wrap = gv_stashpv ("cf::object::player::wrap", 1);
1171	stash_cf_player_wrap = gv_stashpv ("cf::player::wrap", 1);	1201	stash_cf_player_wrap = gv_stashpv ("cf::player::wrap", 1);
1172	stash_cf_map_wrap = gv_stashpv ("cf::map::wrap" , 1);	1202	stash_cf_map_wrap = gv_stashpv ("cf::map::wrap" , 1);
		1203	stash_cf_mapspace_wrap = gv_stashpv ("cf::mapspace::wrap" , 1);
1173	stash_cf_client_wrap = gv_stashpv ("cf::client::wrap", 1);	1204	stash_cf_client_wrap = gv_stashpv ("cf::client::wrap", 1);
1174	stash_cf_arch_wrap = gv_stashpv ("cf::arch::wrap" , 1);	1205	stash_cf_arch_wrap = gv_stashpv ("cf::arch::wrap" , 1);
1175	stash_cf_party_wrap = gv_stashpv ("cf::party::wrap" , 1);	1206	stash_cf_party_wrap = gv_stashpv ("cf::party::wrap" , 1);
1176	stash_cf_region_wrap = gv_stashpv ("cf::region::wrap", 1);	1207	stash_cf_region_wrap = gv_stashpv ("cf::region::wrap", 1);
1177	stash_cf_living_wrap = gv_stashpv ("cf::living::wrap", 1);	1208	stash_cf_living_wrap = gv_stashpv ("cf::living::wrap", 1);
1178		1209
		1210	sv_now = get_sv ("cf::NOW" , 1); SvUPGRADE (sv_now , SVt_NV);
1179	sv_runtime = get_sv ("cf::RUNTIME" , 1); sv_upgrade (sv_runtime , SVt_NV);	1211	sv_runtime = get_sv ("cf::RUNTIME" , 1); SvUPGRADE (sv_runtime , SVt_NV);
		1212	sv_tick_start = get_sv ("cf::TICK_START", 1); SvUPGRADE (sv_tick_start, SVt_NV);
1180	sv_next_tick = get_sv ("cf::NEXT_TICK", 1); sv_upgrade (sv_next_tick, SVt_NV);	1213	sv_next_tick = get_sv ("cf::NEXT_TICK" , 1); SvUPGRADE (sv_next_tick , SVt_NV);
1181		1214
1182	cb_global = get_av ("cf::CB_GLOBAL", 1);	1215	cb_global = get_av ("cf::CB_GLOBAL", 1);
1183	cb_attachable = get_av ("cf::CB_ATTACHABLE", 1);	1216	cb_attachable = get_av ("cf::CB_ATTACHABLE", 1);
1184	cb_object = get_av ("cf::CB_OBJECT", 1);	1217	cb_object = get_av ("cf::CB_OBJECT", 1);
1185	cb_player = get_av ("cf::CB_PLAYER", 1);	1218	cb_player = get_av ("cf::CB_PLAYER", 1);
…		…
1295	const_iv (FLAG_CURSED) const_iv (FLAG_DAMNED) const_iv (FLAG_SEE_ANYWHERE) const_iv (FLAG_KNOWN_MAGICAL)	1328	const_iv (FLAG_CURSED) const_iv (FLAG_DAMNED) const_iv (FLAG_SEE_ANYWHERE) const_iv (FLAG_KNOWN_MAGICAL)
1296	const_iv (FLAG_KNOWN_CURSED) const_iv (FLAG_CAN_USE_SKILL) const_iv (FLAG_BEEN_APPLIED) const_iv (FLAG_READY_SCROLL)	1329	const_iv (FLAG_KNOWN_CURSED) const_iv (FLAG_CAN_USE_SKILL) const_iv (FLAG_BEEN_APPLIED) const_iv (FLAG_READY_SCROLL)
1297	const_iv (FLAG_USE_ROD) const_iv (FLAG_USE_HORN) const_iv (FLAG_MAKE_INVIS) const_iv (FLAG_INV_LOCKED)	1330	const_iv (FLAG_USE_ROD) const_iv (FLAG_USE_HORN) const_iv (FLAG_MAKE_INVIS) const_iv (FLAG_INV_LOCKED)
1298	const_iv (FLAG_IS_WOODED) const_iv (FLAG_IS_HILLY) const_iv (FLAG_READY_SKILL) const_iv (FLAG_READY_WEAPON)	1331	const_iv (FLAG_IS_WOODED) const_iv (FLAG_IS_HILLY) const_iv (FLAG_READY_SKILL) const_iv (FLAG_READY_WEAPON)
1299	const_iv (FLAG_NO_SKILL_IDENT) const_iv (FLAG_BLIND) const_iv (FLAG_SEE_IN_DARK) const_iv (FLAG_IS_CAULDRON)	1332	const_iv (FLAG_NO_SKILL_IDENT) const_iv (FLAG_BLIND) const_iv (FLAG_SEE_IN_DARK) const_iv (FLAG_IS_CAULDRON)
1300	const_iv (FLAG_NO_STEAL) const_iv (FLAG_ONE_HIT) const_iv (FLAG_CLIENT_SENT) const_iv (FLAG_BERSERK)	1333	const_iv (FLAG_NO_STEAL) const_iv (FLAG_ONE_HIT) const_iv (FLAG_DEBUG) const_iv (FLAG_BERSERK)
1301	const_iv (FLAG_NEUTRAL) const_iv (FLAG_NO_ATTACK) const_iv (FLAG_NO_DAMAGE) const_iv (FLAG_OBJ_ORIGINAL)	1334	const_iv (FLAG_NEUTRAL) const_iv (FLAG_NO_ATTACK) const_iv (FLAG_NO_DAMAGE) const_iv (FLAG_OBJ_ORIGINAL)
1302	const_iv (FLAG_ACTIVATE_ON_PUSH) const_iv (FLAG_ACTIVATE_ON_RELEASE) const_iv (FLAG_IS_WATER)	1335	const_iv (FLAG_ACTIVATE_ON_PUSH) const_iv (FLAG_ACTIVATE_ON_RELEASE) const_iv (FLAG_IS_WATER) const_iv (FLAG_WIZLOOK)
1303	const_iv (FLAG_CONTENT_ON_GEN) const_iv (FLAG_IS_A_TEMPLATE) const_iv (FLAG_IS_BUILDABLE)	1336	const_iv (FLAG_CONTENT_ON_GEN) const_iv (FLAG_IS_A_TEMPLATE) const_iv (FLAG_IS_BUILDABLE)
1304	const_iv (FLAG_DESTROY_ON_DEATH) const_iv (FLAG_NO_MAP_SAVE)	1337	const_iv (FLAG_DESTROY_ON_DEATH) const_iv (FLAG_NO_MAP_SAVE)
1305		1338
1306	const_iv (NDI_BLACK) const_iv (NDI_WHITE) const_iv (NDI_NAVY) const_iv (NDI_RED)	1339	const_iv (NDI_BLACK) const_iv (NDI_WHITE) const_iv (NDI_NAVY) const_iv (NDI_RED)
1307	const_iv (NDI_ORANGE) const_iv (NDI_BLUE) const_iv (NDI_DK_ORANGE) const_iv (NDI_GREEN)	1340	const_iv (NDI_ORANGE) const_iv (NDI_BLUE) const_iv (NDI_DK_ORANGE) const_iv (NDI_GREEN)
1308	const_iv (NDI_LT_GREEN) const_iv (NDI_GREY) const_iv (NDI_BROWN) const_iv (NDI_GOLD)	1341	const_iv (NDI_LT_GREEN) const_iv (NDI_GREY) const_iv (NDI_BROWN) const_iv (NDI_GOLD)
1309	const_iv (NDI_TAN) const_iv (NDI_MAX_COLOR) const_iv (NDI_COLOR_MASK) const_iv (NDI_UNIQUE)	1342	const_iv (NDI_TAN) const_iv (NDI_MAX_COLOR) const_iv (NDI_COLOR_MASK) const_iv (NDI_UNIQUE)
1310	const_iv (NDI_ALL) const_iv (NDI_DEF) const_iv (NDI_REPLY) const_iv (NDI_CLIENT_MASK)	1343	const_iv (NDI_ALL) const_iv (NDI_DEF) const_iv (NDI_REPLY) const_iv (NDI_CLIENT_MASK)
1311	const_iv (NDI_NOCREATE) const_iv (NDI_CLEAR)	1344	const_iv (NDI_NOCREATE) const_iv (NDI_CLEAR) const_iv (NDI_VERBATIM)
1312		1345
1313	const_iv (UPD_LOCATION) const_iv (UPD_FLAGS) const_iv (UPD_WEIGHT) const_iv (UPD_FACE)	1346	const_iv (UPD_LOCATION) const_iv (UPD_FLAGS) const_iv (UPD_WEIGHT) const_iv (UPD_FACE)
1314	const_iv (UPD_NAME) const_iv (UPD_ANIM) const_iv (UPD_ANIMSPEED) const_iv (UPD_NROF)	1347	const_iv (UPD_NAME) const_iv (UPD_ANIM) const_iv (UPD_ANIMSPEED) const_iv (UPD_NROF)
1315		1348
1316	const_iv (UPD_SP_MANA) const_iv (UPD_SP_GRACE) const_iv (UPD_SP_DAMAGE)	1349	const_iv (UPD_SP_MANA) const_iv (UPD_SP_GRACE) const_iv (UPD_SP_DAMAGE)
…		…
1368	const_iv (F_CURSED) const_iv (F_DAMNED) const_iv (F_OPEN) const_iv (F_NOPICK)	1401	const_iv (F_CURSED) const_iv (F_DAMNED) const_iv (F_OPEN) const_iv (F_NOPICK)
1369	const_iv (F_LOCKED)	1402	const_iv (F_LOCKED)
1370		1403
1371	const_iv (F_BUY) const_iv (F_SHOP) const_iv (F_SELL)	1404	const_iv (F_BUY) const_iv (F_SHOP) const_iv (F_SELL)
1372		1405
1373	const_iv (P_BLOCKSVIEW) const_iv (P_PLAYER) const_iv (P_NO_MAGIC) const_iv (P_IS_ALIVE)	1406	const_iv (P_BLOCKSVIEW) const_iv (P_NO_MAGIC) const_iv (P_IS_ALIVE)
1374	const_iv (P_NO_CLERIC) const_iv (P_OUT_OF_MAP) const_iv (P_NEW_MAP) const_iv (P_UPTODATE)	1407	const_iv (P_NO_CLERIC) const_iv (P_OUT_OF_MAP) const_iv (P_NEW_MAP) const_iv (P_UPTODATE)
1375		1408
1376	const_iv (UP_OBJ_INSERT) const_iv (UP_OBJ_REMOVE) const_iv (UP_OBJ_CHANGE) const_iv (UP_OBJ_FACE)	1409	const_iv (UP_OBJ_INSERT) const_iv (UP_OBJ_REMOVE) const_iv (UP_OBJ_CHANGE) const_iv (UP_OBJ_FACE)
1377		1410
1378	const_iv (INS_NO_MERGE) const_iv (INS_ABOVE_FLOOR_ONLY) const_iv (INS_NO_WALK_ON)	1411	const_iv (INS_NO_MERGE) const_iv (INS_ABOVE_FLOOR_ONLY) const_iv (INS_NO_WALK_ON)
…		…
1418	const_iv (ATNR_PARALYZE) const_iv (ATNR_TURN_UNDEAD) const_iv (ATNR_FEAR) const_iv (ATNR_CANCELLATION)	1451	const_iv (ATNR_PARALYZE) const_iv (ATNR_TURN_UNDEAD) const_iv (ATNR_FEAR) const_iv (ATNR_CANCELLATION)
1419	const_iv (ATNR_DEPLETE) const_iv (ATNR_DEATH) const_iv (ATNR_CHAOS) const_iv (ATNR_COUNTERSPELL)	1452	const_iv (ATNR_DEPLETE) const_iv (ATNR_DEATH) const_iv (ATNR_CHAOS) const_iv (ATNR_COUNTERSPELL)
1420	const_iv (ATNR_GODPOWER) const_iv (ATNR_HOLYWORD) const_iv (ATNR_BLIND) const_iv (ATNR_INTERNAL)	1453	const_iv (ATNR_GODPOWER) const_iv (ATNR_HOLYWORD) const_iv (ATNR_BLIND) const_iv (ATNR_INTERNAL)
1421	const_iv (ATNR_LIFE_STEALING) const_iv (ATNR_DISEASE)	1454	const_iv (ATNR_LIFE_STEALING) const_iv (ATNR_DISEASE)
1422		1455
1423	const_iv (MAP_IN_MEMORY) const_iv (MAP_SWAPPED) const_iv (MAP_LOADING) const_iv (MAP_SAVING)	1456	const_iv (MAP_ACTIVE) const_iv (MAP_SWAPPED) const_iv (MAP_LOADING) const_iv (MAP_SAVING)
		1457	const_iv (MAP_INACTIVE)
1424		1458
1425	const_iv (KLASS_ATTACHABLE) const_iv (KLASS_GLOBAL) const_iv (KLASS_OBJECT)	1459	const_iv (KLASS_ATTACHABLE) const_iv (KLASS_GLOBAL) const_iv (KLASS_OBJECT)
1426	const_iv (KLASS_CLIENT) const_iv (KLASS_PLAYER) const_iv (KLASS_MAP)	1460	const_iv (KLASS_CLIENT) const_iv (KLASS_PLAYER) const_iv (KLASS_MAP)
1427		1461
1428	const_iv (VERSION_CS) const_iv (VERSION_SC)	1462	const_iv (VERSION_CS) const_iv (VERSION_SC)
…		…
1443		1477
1444	const_iv (SYMMETRY_RANDOM) const_iv (SYMMETRY_NONE) const_iv (SYMMETRY_X)	1478	const_iv (SYMMETRY_RANDOM) const_iv (SYMMETRY_NONE) const_iv (SYMMETRY_X)
1445	const_iv (SYMMETRY_Y) const_iv (SYMMETRY_XY)	1479	const_iv (SYMMETRY_Y) const_iv (SYMMETRY_XY)
1446		1480
1447	const_iv (GT_ENVIRONMENT) const_iv (GT_INVISIBLE) const_iv (GT_STARTEQUIP)	1481	const_iv (GT_ENVIRONMENT) const_iv (GT_INVISIBLE) const_iv (GT_STARTEQUIP)
1448	const_iv (GT_APPLY) const_iv (GT_ONLY_GOOD) const_iv (GT_UPDATE_INV)	1482	const_iv (GT_APPLY) const_iv (GT_ONLY_GOOD) const_iv (GT_MINIMAL)
1449	const_iv (GT_MINIMAL)
1450		1483
1451	const_iv (FT_FACE) const_iv (FT_MUSIC) const_iv (FT_SOUND)	1484	const_iv (FT_FACE) const_iv (FT_MUSIC) const_iv (FT_SOUND)
1452	const_iv (FT_RSRC) const_iv (FT_NUM)	1485	const_iv (FT_RSRC) const_iv (FT_NUM)
1453	};	1486	};
1454		1487
…		…
1476	av_store (av, eiv->iv, newRV_noinc ((SV *)event));	1509	av_store (av, eiv->iv, newRV_noinc ((SV *)event));
1477	newCONSTSUB (stash_cf, (char *)eiv->name, newSViv (eiv->iv));	1510	newCONSTSUB (stash_cf, (char *)eiv->name, newSViv (eiv->iv));
1478	}	1511	}
1479	}	1512	}
1480		1513
		1514	void _gv_clear (SV *gv)
		1515	CODE:
		1516	assert (SvTYPE (gv) == SVt_PVGV);
		1517	# define f(sv) { SV sv_ = (SV )(sv); sv = 0; SvREFCNT_dec (sv_); }
		1518	f (GvGP (gv)->gp_form);
		1519	f (GvGP (gv)->gp_io);
		1520	f (GvGP (gv)->gp_sv);
		1521	f (GvGP (gv)->gp_av);
		1522	f (GvGP (gv)->gp_hv);
		1523	f (GvGP (gv)->gp_cv);
		1524	GvCVGEN (gv) = 0;
		1525	GvMULTI_off (gv);
		1526	# undef f
		1527
1481	void _connect_to_perl ()	1528	void _connect_to_perl ()
1482		1529
1483	void _recalc_want ()	1530	void _recalc_want ()
1484		1531
		1532	# not used by default anymore
1485	void _global_reattach ()	1533	void _global_reattach ()
1486	CODE:	1534	CODE:
1487	{	1535	{
1488	// reattach to all attachable objects in the game.	1536	// reattach to all attachable objects in the game.
1489	for_all_clients (ns)	1537	for_all_clients (ns)
…		…
1533	}	1581	}
1534		1582
1535	SvCUR_set (data_sv, dst - SvPVX (data_sv));	1583	SvCUR_set (data_sv, dst - SvPVX (data_sv));
1536	}	1584	}
1537		1585
		1586	void init_anim ()
		1587
		1588	void init_globals ()
		1589
		1590	void init_experience ()
		1591
		1592	void init_attackmess ()
		1593
		1594	void init_dynamic ()
		1595
		1596	void load_settings ()
		1597
		1598	void load_materials ()
		1599
		1600	void init_uuid ()
		1601	CODE:
		1602	UUID::init ();
		1603
		1604	void init_signals ()
		1605
		1606	void init_commands ()
		1607
		1608	void init_skills ()
		1609
		1610	void init_beforeplay ()
		1611
		1612	void evthread_start (int aiofd)
		1613
1538	void _post_tick ()	1614	void cede_to_tick ()
1539	CODE:	1615	CODE:
1540	coroapi::next_cede = SvNV (sv_next_tick) - TICK * (1. - 1. / CEDES_PER_TICK);	1616	coroapi::cede_to_tick ();
1541		1617
1542	NV till_cede ()	1618	NV till_tick ()
1543	CODE:	1619	CODE:
1544	RETVAL = coroapi::next_cede - now ();	1620	RETVAL = SvNVX (sv_next_tick) - now ();
1545	OUTPUT:	1621	OUTPUT:
1546	RETVAL	1622	RETVAL
1547		1623
1548	NV till_tick ()	1624	int tick_inhibit ()
1549	CODE:	1625	CODE:
1550	RETVAL = SvNV (sv_next_tick) - now ();	1626	RETVAL = tick_inhibit;
1551	OUTPUT:	1627	OUTPUT:
1552	RETVAL	1628	RETVAL
1553		1629
		1630	void tick_inhibit_inc ()
		1631	CODE:
		1632	++tick_inhibit;
		1633
		1634	void tick_inhibit_dec ()
		1635	CODE:
		1636	if (!--tick_inhibit)
		1637	if (tick_pending)
		1638	{
		1639	ev_async_send (EV_DEFAULT, &tick_watcher);
		1640	coroapi::cede ();
		1641	}
		1642
		1643	void server_tick ()
		1644	CODE:
		1645	{
		1646	NOW = ev_now (EV_DEFAULT);
		1647	SvNV_set (sv_now, NOW); SvNOK_only (sv_now);
		1648	SvNV_set (sv_tick_start, NOW); SvNOK_only (sv_tick_start);
		1649	runtime = SvNVX (sv_runtime);
		1650
		1651	server_tick ();
		1652
		1653	NOW = ev_time ();
		1654	SvNV_set (sv_now, NOW); SvNOK_only (sv_now);
		1655	runtime += TICK;
		1656	SvNV_set (sv_runtime, runtime); SvNOK_only (sv_runtime);
		1657	}
		1658
1554	NV floor (NV x)	1659	NV floor (NV x)
1555		1660
1556	NV ceil (NV x)	1661	NV ceil (NV x)
1557		1662
1558	NV rndm (...)	1663	NV rndm (...)
		1664	ALIAS:
		1665	rmg_rndm = 1
1559	CODE:	1666	CODE:
		1667	{
		1668	rand_gen &gen = ix ? rmg_rndm : rndm;
1560	switch (items)	1669	switch (items)
1561	{	1670	{
1562	case 0: RETVAL = rndm (); break;	1671	case 0: RETVAL = gen (); break;
1563	case 1: RETVAL = rndm (SvUV (ST (0))); break;	1672	case 1: RETVAL = gen (SvUV (ST (0))); break;
1564	case 2: RETVAL = rndm (SvIV (ST (0)), SvIV (ST (1))); break;	1673	case 2: RETVAL = gen (SvIV (ST (0)), SvIV (ST (1))); break;
1565	default: croak ("cf::rndm requires none, one or two parameters."); break;	1674	default: croak ("cf::rndm requires none, one or two parameters."); break;
1566	}	1675	}
		1676	}
1567	OUTPUT:	1677	OUTPUT:
1568	RETVAL	1678	RETVAL
1569		1679
1570	NV clamp (NV value, NV min_value, NV max_value)	1680	NV clamp (NV value, NV min_value, NV max_value)
1571	CODE:	1681	CODE:
…		…
1577	CODE:	1687	CODE:
1578	RETVAL = lerp (value, min_in, max_in, min_out, max_out);	1688	RETVAL = lerp (value, min_in, max_in, min_out, max_out);
1579	OUTPUT:	1689	OUTPUT:
1580	RETVAL	1690	RETVAL
1581		1691
1582	void cede_to_tick ()	1692	void weaken (...)
1583	CODE:	1693	PROTOTYPE: @
1584	coroapi::cede_to_tick ();	1694	CODE:
1585		1695	while (items > 0)
1586	void server_tick ()	1696	sv_rvweaken (ST (--items));
1587	CODE:
1588	NOW = now ();
1589	runtime = SvNVx (sv_runtime);
1590	server_tick ();
1591		1697
1592	void	1698	void
1593	log_backtrace (utf8_string msg)	1699	log_backtrace (utf8_string msg)
1594		1700
1595	void	1701	void
…		…
1600	octet_string path_combine (octet_string base, octet_string path)	1706	octet_string path_combine (octet_string base, octet_string path)
1601	PROTOTYPE: $$	1707	PROTOTYPE: $$
1602		1708
1603	octet_string path_combine_and_normalize (octet_string base, octet_string path)	1709	octet_string path_combine_and_normalize (octet_string base, octet_string path)
1604	PROTOTYPE: $$	1710	PROTOTYPE: $$
1605
1606	void
1607	mallinfo ()
1608	PPCODE:
1609	{
1610	#if __GLIBC__
1611	struct mallinfo mai = mallinfo ();
1612	EXTEND (SP, 10*2);
1613	PUSHs (sv_2mortal (newSVpv ("arena" , 0))); PUSHs (sv_2mortal (newSViv (mai.arena)));
1614	PUSHs (sv_2mortal (newSVpv ("ordblks" , 0))); PUSHs (sv_2mortal (newSViv (mai.ordblks)));
1615	PUSHs (sv_2mortal (newSVpv ("smblks" , 0))); PUSHs (sv_2mortal (newSViv (mai.smblks)));
1616	PUSHs (sv_2mortal (newSVpv ("hblks" , 0))); PUSHs (sv_2mortal (newSViv (mai.hblks)));
1617	PUSHs (sv_2mortal (newSVpv ("hblkhd" , 0))); PUSHs (sv_2mortal (newSViv (mai.hblkhd)));
1618	PUSHs (sv_2mortal (newSVpv ("usmblks" , 0))); PUSHs (sv_2mortal (newSViv (mai.usmblks)));
1619	PUSHs (sv_2mortal (newSVpv ("fsmblks" , 0))); PUSHs (sv_2mortal (newSViv (mai.fsmblks)));
1620	PUSHs (sv_2mortal (newSVpv ("uordblks", 0))); PUSHs (sv_2mortal (newSViv (mai.uordblks)));
1621	PUSHs (sv_2mortal (newSVpv ("fordblks", 0))); PUSHs (sv_2mortal (newSViv (mai.fordblks)));
1622	PUSHs (sv_2mortal (newSVpv ("keepcost", 0))); PUSHs (sv_2mortal (newSViv (mai.keepcost)));
1623	#endif
1624	EXTEND (SP, 2*2);
1625	PUSHs (sv_2mortal (newSVpv ("slice_alloc", 0))); PUSHs (sv_2mortal (newSVuv (slice_alloc)));
1626	PUSHs (sv_2mortal (newSVpv ("shstr_alloc", 0))); PUSHs (sv_2mortal (newSVuv (shstr_alloc)));
1627	}
1628		1711
1629	void	1712	void
1630	sub_generation_inc ()	1713	sub_generation_inc ()
1631	CODE:	1714	CODE:
1632	PL_sub_generation++;	1715	PL_sub_generation++;
…		…
1657		1740
1658	void abort ()	1741	void abort ()
1659		1742
1660	void reset_signals ()	1743	void reset_signals ()
1661		1744
1662	void fork_abort (octet_string cause = "cf::fork_abort")	1745	void fork_abort (const_octet_string cause = "cf::fork_abort")
1663		1746
1664	void cleanup (octet_string cause, bool make_core = false)	1747	void cleanup (const_octet_string cause, bool make_core = false)
1665		1748
1666	void emergency_save ()	1749	void emergency_save ()
1667		1750
1668	void _exit (int status = EXIT_SUCCESS)	1751	void _exit (int status = EXIT_SUCCESS)
1669		1752
1670	#if _POSIX_MEMLOCK	1753	#if _POSIX_MEMLOCK
1671		1754
1672	int mlockall (int flags = MCL_CURRENT \| MCL_FUTURE)	1755	int mlockall (int flags = MCL_CURRENT \| MCL_FUTURE)
		1756	INIT:
		1757	#if __GLIBC__
		1758	mallopt (M_TOP_PAD, 1024 * 1024);
		1759	mallopt (M_MMAP_THRESHOLD, 1024 * 1024 * 128);
		1760	mallopt (M_MMAP_MAX, 0); // likely bug-workaround, also frees memory
		1761	mallopt (M_PERTURB, 0xee); // bug-workaround for linux glibc+mlockall+calloc
		1762	#endif
1673		1763
1674	int munlockall ()	1764	int munlockall ()
1675		1765
1676	#endif	1766	#endif
		1767
		1768	int
		1769	malloc_trim (IV pad = 0)
		1770
		1771	void
		1772	mallinfo ()
		1773	PPCODE:
		1774	{
		1775	#if __GLIBC__
		1776	struct mallinfo mai = mallinfo ();
		1777	EXTEND (SP, 10*2);
		1778	PUSHs (sv_2mortal (newSVpv ("arena" , 0))); PUSHs (sv_2mortal (newSViv (mai.arena)));
		1779	PUSHs (sv_2mortal (newSVpv ("ordblks" , 0))); PUSHs (sv_2mortal (newSViv (mai.ordblks)));
		1780	PUSHs (sv_2mortal (newSVpv ("smblks" , 0))); PUSHs (sv_2mortal (newSViv (mai.smblks)));
		1781	PUSHs (sv_2mortal (newSVpv ("hblks" , 0))); PUSHs (sv_2mortal (newSViv (mai.hblks)));
		1782	PUSHs (sv_2mortal (newSVpv ("hblkhd" , 0))); PUSHs (sv_2mortal (newSViv (mai.hblkhd)));
		1783	PUSHs (sv_2mortal (newSVpv ("usmblks" , 0))); PUSHs (sv_2mortal (newSViv (mai.usmblks)));
		1784	PUSHs (sv_2mortal (newSVpv ("fsmblks" , 0))); PUSHs (sv_2mortal (newSViv (mai.fsmblks)));
		1785	PUSHs (sv_2mortal (newSVpv ("uordblks", 0))); PUSHs (sv_2mortal (newSViv (mai.uordblks)));
		1786	PUSHs (sv_2mortal (newSVpv ("fordblks", 0))); PUSHs (sv_2mortal (newSViv (mai.fordblks)));
		1787	PUSHs (sv_2mortal (newSVpv ("keepcost", 0))); PUSHs (sv_2mortal (newSViv (mai.keepcost)));
		1788	#endif
		1789	EXTEND (SP, 5*2);
		1790	PUSHs (sv_2mortal (newSVpv ("slice_alloc", 0))); PUSHs (sv_2mortal (newSVuv (slice_alloc)));
		1791	PUSHs (sv_2mortal (newSVpv ("shstr_alloc", 0))); PUSHs (sv_2mortal (newSVuv (shstr_alloc)));
		1792	PUSHs (sv_2mortal (newSVpv ("objects" , 0))); PUSHs (sv_2mortal (newSVuv (objects.size () * sizeof (object))));
		1793	PUSHs (sv_2mortal (newSVpv ("sv_count" , 0))); PUSHs (sv_2mortal (newSVuv (PL_sv_count)));
		1794	PUSHs (sv_2mortal (newSVpv ("sv_objcount", 0))); PUSHs (sv_2mortal (newSVuv (PL_sv_objcount)));
		1795	}
1677		1796
1678	int find_animation (utf8_string text)	1797	int find_animation (utf8_string text)
1679	PROTOTYPE: $	1798	PROTOTYPE: $
1680		1799
1681	int random_roll (int min, int max, object *op, int goodbad);	1800	int random_roll (int min, int max, object *op, int goodbad);
…		…
1719	RETVAL = newSVpv (resist_plus[atnr], 0);	1838	RETVAL = newSVpv (resist_plus[atnr], 0);
1720	else	1839	else
1721	XSRETURN_UNDEF;	1840	XSRETURN_UNDEF;
1722	OUTPUT: RETVAL	1841	OUTPUT: RETVAL
1723		1842
		1843	UUID
		1844	uuid_cur ()
		1845	CODE:
		1846	RETVAL = UUID::cur;
		1847	OUTPUT:
		1848	RETVAL
		1849
		1850	UUID
		1851	uuid_gen ()
		1852	CODE:
		1853	RETVAL = UUID::gen ();
		1854	OUTPUT:
		1855	RETVAL
		1856
		1857	val64
		1858	uuid_seq (UUID uuid)
		1859	CODE:
		1860	RETVAL = uuid.seq;
		1861	OUTPUT:
		1862	RETVAL
		1863
		1864	UUID
		1865	uuid_str (val64 seq)
		1866	CODE:
		1867	RETVAL.seq = seq;
		1868	OUTPUT:
		1869	RETVAL
		1870
		1871	void
		1872	coin_names ()
		1873	PPCODE:
		1874	EXTEND (SP, NUM_COINS);
		1875	for (int i = 0; i < NUM_COINS; ++i)
		1876	PUSHs (sv_2mortal (newSVpv (coins [i], 0)));
		1877
		1878	void
		1879	coin_archetypes ()
		1880	PPCODE:
		1881	EXTEND (SP, NUM_COINS);
		1882	for (int i = 0; i < NUM_COINS; ++i)
		1883	PUSHs (sv_2mortal (to_sv (archetype::find (coins [i]))));
		1884
1724	bool	1885	bool
1725	load_resource_file (octet_string filename)	1886	load_resource_file_ (octet_string filename)
		1887
		1888	void
		1889	fix_weight ()
1726		1890
1727	MODULE = cf PACKAGE = cf::attachable	1891	MODULE = cf PACKAGE = cf::attachable
1728		1892
1729	int	1893	int
1730	valid (SV *obj)	1894	valid (SV *obj)
…		…
1794	object *actives (U32 index)	1958	object *actives (U32 index)
1795	CODE:	1959	CODE:
1796	RETVAL = index < actives.size () ? actives [index] : 0;	1960	RETVAL = index < actives.size () ? actives [index] : 0;
1797	OUTPUT: RETVAL	1961	OUTPUT: RETVAL
1798		1962
		1963	int mortals_size ()
		1964	CODE:
		1965	RETVAL = attachable::mortals.size ();
		1966	OUTPUT: RETVAL
		1967
1799	const char *slot_use_name (U32 slot)	1968	const char *slot_use_name (U32 slot)
1800	ALIAS:	1969	ALIAS:
1801	slot_nonuse_name = 1	1970	slot_nonuse_name = 1
1802	CODE:	1971	CODE:
1803	{	1972	{
…		…
1881	void apply_below (object *op)	2050	void apply_below (object *op)
1882	CODE:	2051	CODE:
1883	player_apply_below (op);	2052	player_apply_below (op);
1884		2053
1885	int cast_heal (object op, object caster, object *spell, int dir = 0)	2054	int cast_heal (object op, object caster, object *spell, int dir = 0)
1886
1887	#//TODO
1888	object clone_ (object op, int recursive = 0)
1889	CODE:
1890	if (recursive)
1891	RETVAL = object_create_clone (op);
1892	else
1893	{
1894	RETVAL = object::create ();
1895	op->copy_to (RETVAL);
1896	}
1897	OUTPUT: RETVAL
1898		2055
1899	int pay_item (object op, object buyer)	2056	int pay_item (object op, object buyer)
1900	CODE:	2057	CODE:
1901	RETVAL = pay_for_item (op, buyer);	2058	RETVAL = pay_for_item (op, buyer);
1902	OUTPUT: RETVAL	2059	OUTPUT: RETVAL
…		…
1980	CODE:	2137	CODE:
1981	{	2138	{
1982	RETVAL = insert_ob_in_map_at (ob, where, orig, flag, x, y);	2139	RETVAL = insert_ob_in_map_at (ob, where, orig, flag, x, y);
1983	}	2140	}
1984		2141
1985	const_utf8_string get_ob_key_value (object *op, utf8_string key)	2142	shstr
		2143	object::kv_get (shstr key)
1986		2144
1987	bool set_ob_key_value (object *op, utf8_string key, utf8_string value = 0, int add_key = 1)	2145	void
		2146	object::kv_del (shstr key)
		2147
		2148	void
		2149	object::kv_set (shstr key, shstr value)
1988		2150
1989	object get_nearest_player (object ob)	2151	object get_nearest_player (object ob)
1990	ALIAS: nearest_player = 0	2152	ALIAS: nearest_player = 0
1991	PREINIT:	2153	PREINIT:
1992	extern object get_nearest_player (object );	2154	extern object get_nearest_player (object );
…		…
1994	void rangevector (object ob, object other, int flags = 0)	2156	void rangevector (object ob, object other, int flags = 0)
1995	PROTOTYPE: $$;$	2157	PROTOTYPE: $$;$
1996	PPCODE:	2158	PPCODE:
1997	{	2159	{
1998	rv_vector rv;	2160	rv_vector rv;
		2161
		2162	PUTBACK;
1999	get_rangevector (ob, other, &rv, flags);	2163	get_rangevector (ob, other, &rv, flags);
		2164	SPAGAIN;
		2165
2000	EXTEND (SP, 5);	2166	EXTEND (SP, 5);
2001	PUSHs (newSVuv (rv.distance));	2167	PUSHs (newSVuv (rv.distance));
2002	PUSHs (newSViv (rv.distance_x));	2168	PUSHs (newSViv (rv.distance_x));
2003	PUSHs (newSViv (rv.distance_y));	2169	PUSHs (newSViv (rv.distance_y));
2004	PUSHs (newSViv (rv.direction));	2170	PUSHs (newSViv (rv.direction));
…		…
2014	base_name (object *op, int plural = op->nrof > 1)	2180	base_name (object *op, int plural = op->nrof > 1)
2015	CODE:	2181	CODE:
2016	RETVAL = query_base_name (op, plural);	2182	RETVAL = query_base_name (op, plural);
2017	OUTPUT: RETVAL	2183	OUTPUT: RETVAL
2018		2184
2019	object decrease_ob_nr (object op, unsigned long i)
2020
2021	# return the tail of an object, excluding itself	2185	# return the tail of an object, excluding itself
2022	void	2186	void
2023	tail (object *op)	2187	tail (object *op)
2024	PPCODE:	2188	PPCODE:
2025	while ((op = op->more))	2189	while ((op = op->more))
…		…
2075	pl->ob->stats.hp = pl->ob->stats.maxhp;	2239	pl->ob->stats.hp = pl->ob->stats.maxhp;
2076	pl->ob->stats.sp = pl->ob->stats.maxsp;	2240	pl->ob->stats.sp = pl->ob->stats.maxsp;
2077	pl->ob->stats.grace = pl->ob->stats.maxgrace;	2241	pl->ob->stats.grace = pl->ob->stats.maxgrace;
2078	pl->orig_stats = pl->ob->stats;	2242	pl->orig_stats = pl->ob->stats;
2079		2243
2080	void clear_los (player *pl)	2244	# should only be temporary
		2245	void esrv_new_player (player *pl)
2081		2246
		2247	#d# TODO: replace by blocked_los accessor, fix code using this
2082	bool	2248	bool
2083	cell_visible (player *pl, int dx, int dy)	2249	cell_visible (player *pl, int dx, int dy)
2084	CODE:	2250	CODE:
2085	RETVAL = FABS (dx) <= pl->ns->mapx / 2 && FABS (dy) <= pl->ns->mapy / 2	2251	RETVAL = pl->blocked_los (dx, dy) != LOS_BLOCKED;
2086	&& !pl->blocked_los [dx + pl->ns->mapx / 2][dy + pl->ns->mapy / 2];
2087	OUTPUT:	2252	OUTPUT:
2088	RETVAL	2253	RETVAL
2089		2254
2090	void	2255	void
2091	send (player pl, SV packet)	2256	send (player pl, SV packet)
…		…
2097	if (len > MAXSOCKBUF)	2262	if (len > MAXSOCKBUF)
2098	pl->failmsg ("[packet too long for client]");	2263	pl->failmsg ("[packet too long for client]");
2099	else if (pl->ns)	2264	else if (pl->ns)
2100	pl->ns->send_packet (buf, len);	2265	pl->ns->send_packet (buf, len);
2101	}	2266	}
2102
2103	int
2104	listening (player *pl, int new_value = -1)
2105	CODE:
2106	RETVAL = pl->listening;
2107	if (new_value >= 0)
2108	pl->listening = new_value;
2109	OUTPUT:
2110	RETVAL
2111		2267
2112	void savebed (player pl, SV map_path = 0, SV x = 0, SV y = 0)	2268	void savebed (player pl, SV map_path = 0, SV x = 0, SV y = 0)
2113	PROTOTYPE: $;$$$	2269	PROTOTYPE: $;$$$
2114	PPCODE:	2270	PPCODE:
2115	if (GIMME_V != G_VOID)	2271	if (GIMME_V != G_VOID)
…		…
2168	}	2324	}
2169		2325
2170	INCLUDE: $PERL $srcdir/genacc maptile ../include/map.h \|	2326	INCLUDE: $PERL $srcdir/genacc maptile ../include/map.h \|
2171		2327
2172	void	2328	void
		2329	adjust_daylight ()
		2330	CODE:
		2331	maptile::adjust_daylight ();
		2332
		2333	void
2173	maptile::instantiate ()	2334	maptile::instantiate ()
2174		2335
2175	maptile *new ()	2336	maptile *new ()
2176	PROTOTYPE:	2337	PROTOTYPE:
2177	CODE:	2338	CODE:
…		…
2270	}	2431	}
2271		2432
2272	void	2433	void
2273	maptile::create_region_treasure ()	2434	maptile::create_region_treasure ()
2274	CODE:	2435	CODE:
2275	{
2276	object *op = object::create ();
2277	op->type = FLOOR;
2278	op->map = THIS;
2279
2280	for (int x = 0; x < THIS->width; ++x)	2436	for (int x = 0; x < THIS->width; ++x)
2281	for (int y = 0; y < THIS->height; ++y)	2437	for (int y = 0; y < THIS->height; ++y)
2282	{	2438	{
2283	region *rgn = THIS->region (x, y);	2439	region *rgn = THIS->region (x, y);
2284		2440
2285	//fprintf (stderr, "%d,%d %f %p\n", x, y, rgn->treasure_density,rgn->treasure);//D	2441	//fprintf (stderr, "%d,%d %f %p\n", x, y, rgn->treasure_density,rgn->treasure);//D
		2442	if (object *op = THIS->at (x, y).top)
2286	if (rgn->treasure && rndm () < rgn->treasure_density)	2443	if (rgn->treasure && rndm () < rgn->treasure_density)
2287	{
2288	op->x = x;
2289	op->y = y;
2290	create_treasure (rgn->treasure, op, GT_ENVIRONMENT, THIS->difficulty);	2444	create_treasure (rgn->treasure, op, GT_ENVIRONMENT, THIS->difficulty);
2291	}
2292	}	2445	}
2293
2294	op->destroy ();
2295	}
2296		2446
2297	int out_of_map (maptile *map, int x, int y)	2447	int out_of_map (maptile *map, int x, int y)
2298		2448
2299	void	2449	void
2300	trigger (maptile *map, long connection, bool state = true)	2450	trigger (maptile *map, long connection, bool state = true)
…		…
2313	get_map_flags (maptile *map, int x, int y)	2463	get_map_flags (maptile *map, int x, int y)
2314	PPCODE:	2464	PPCODE:
2315	{	2465	{
2316	maptile *nmap = 0;	2466	maptile *nmap = 0;
2317	I16 nx = 0, ny = 0;	2467	I16 nx = 0, ny = 0;
		2468
		2469	PUTBACK;
2318	int flags = get_map_flags (map, &nmap, x, y, &nx, &ny);	2470	int flags = get_map_flags (map, &nmap, x, y, &nx, &ny);
		2471	SPAGAIN;
2319		2472
2320	EXTEND (SP, 4);	2473	EXTEND (SP, 4);
2321	PUSHs (sv_2mortal (newSViv (flags)));	2474	PUSHs (sv_2mortal (newSViv (flags)));
2322		2475
2323	if (GIMME_V == G_ARRAY)	2476	if (GIMME_V == G_ARRAY)
…		…
2326	PUSHs (sv_2mortal (newSViv (nx)));	2479	PUSHs (sv_2mortal (newSViv (nx)));
2327	PUSHs (sv_2mortal (newSViv (ny)));	2480	PUSHs (sv_2mortal (newSViv (ny)));
2328	}	2481	}
2329	}	2482	}
2330		2483
		2484	mapspace *
		2485	ms (maptile *map, unsigned int x, unsigned int y)
		2486	PROTOTYPE: $$$
		2487	CODE:
		2488	{
		2489	maptile *nmap = 0;
		2490	I16 nx, ny;
		2491
		2492	PUTBACK;
		2493	get_map_flags (map, &nmap, x, y, &nx, &ny);
		2494	SPAGAIN;
		2495
		2496	if (!nmap)
		2497	XSRETURN_UNDEF;
		2498
		2499	RETVAL = &nmap->at (nx, ny);
		2500	}
		2501	OUTPUT:
		2502	RETVAL
		2503
2331	void	2504	void
2332	at (maptile *map, unsigned int x, unsigned int y)	2505	at (maptile *map, unsigned int x, unsigned int y)
2333	PROTOTYPE: $$$	2506	PROTOTYPE: $$$
2334	PPCODE:	2507	PPCODE:
2335	{	2508	{
2336	object *o;
2337	maptile *nmap = 0;	2509	maptile *nmap = 0;
2338	I16 nx, ny;	2510	I16 nx, ny;
2339		2511
		2512	PUTBACK;
2340	get_map_flags (map, &nmap, x, y, &nx, &ny);	2513	get_map_flags (map, &nmap, x, y, &nx, &ny);
		2514	SPAGAIN;
2341		2515
2342	if (nmap)	2516	if (nmap)
2343	for (o = GET_MAP_OB (nmap, nx, ny); o; o = o->above)	2517	for (object *o = nmap->at (nx, ny).bot; o; o = o->above)
2344	XPUSHs (sv_2mortal (to_sv (o)));	2518	XPUSHs (sv_2mortal (to_sv (o)));
2345	}	2519	}
2346		2520
2347	SV *	2521	SV *
2348	bot_at (maptile *obj, unsigned int x, unsigned int y)	2522	bot_at (maptile *map, unsigned int x, unsigned int y)
2349	PROTOTYPE: $$$	2523	PROTOTYPE: $$$
2350	ALIAS:	2524	ALIAS:
2351	top_at = 1	2525	top_at = 1
2352	flags_at = 2	2526	flags_at = 2
2353	light_at = 3	2527	light_at = 3
2354	move_block_at = 4	2528	move_block_at = 4
2355	move_slow_at = 5	2529	move_slow_at = 5
2356	move_on_at = 6	2530	move_on_at = 6
2357	move_off_at = 7	2531	move_off_at = 7
2358	INIT:
2359	if (x >= obj->width \|\| y >= obj->height) XSRETURN_UNDEF;
2360	CODE:	2532	CODE:
		2533	{
		2534	sint16 nx = x;
		2535	sint16 ny = y;
		2536
		2537	if (!xy_normalise (map, nx, ny))
		2538	XSRETURN_UNDEF;
		2539
		2540	mapspace &ms = map->at (nx, ny);
		2541
		2542	ms.update ();
		2543
2361	switch (ix)	2544	switch (ix)
2362	{	2545	{
2363	case 0: RETVAL = to_sv (GET_MAP_OB (obj, x, y)); break;	2546	case 0: RETVAL = to_sv (ms.bot ); break;
2364	case 1: RETVAL = to_sv (GET_MAP_TOP (obj, x, y)); break;	2547	case 1: RETVAL = to_sv (ms.top ); break;
2365	case 2: RETVAL = newSVuv (GET_MAP_FLAGS (obj, x, y)); break;	2548	case 2: RETVAL = newSVuv (ms.flags_ ); break;
2366	case 3: RETVAL = newSViv (GET_MAP_LIGHT (obj, x, y)); break;	2549	case 3: RETVAL = newSViv (ms.light ); break;
2367	case 4: RETVAL = newSVuv (GET_MAP_MOVE_BLOCK (obj, x, y)); break;	2550	case 4: RETVAL = newSVuv (ms.move_block); break;
2368	case 5: RETVAL = newSVuv (GET_MAP_MOVE_SLOW (obj, x, y)); break;	2551	case 5: RETVAL = newSVuv (ms.move_slow ); break;
2369	case 6: RETVAL = newSVuv (GET_MAP_MOVE_ON (obj, x, y)); break;	2552	case 6: RETVAL = newSVuv (ms.move_on ); break;
2370	case 7: RETVAL = newSVuv (GET_MAP_MOVE_OFF (obj, x, y)); break;	2553	case 7: RETVAL = newSVuv (ms.move_off ); break;
2371	}	2554	}
		2555	}
2372	OUTPUT: RETVAL	2556	OUTPUT: RETVAL
2373		2557
2374	void fix_walls (maptile *map, int x, int y)	2558	void fix_walls (maptile *map, int x, int y)
2375		2559
2376	void fix_walls_around (maptile *map, int x, int y)	2560	void fix_walls_around (maptile *map, int x, int y)
…		…
2461	RETVAL = self->generate_random_map (&rmp);	2645	RETVAL = self->generate_random_map (&rmp);
2462	}	2646	}
2463	OUTPUT:	2647	OUTPUT:
2464	RETVAL	2648	RETVAL
2465		2649
		2650	MODULE = cf PACKAGE = cf::mapspace
		2651
		2652	INCLUDE: $PERL $srcdir/genacc mapspace ../include/map.h \|
		2653
2466	MODULE = cf PACKAGE = cf::arch	2654	MODULE = cf PACKAGE = cf::arch
2467		2655
2468	int archetypes_size ()	2656	int archetypes_size ()
2469	CODE:	2657	CODE:
2470	RETVAL = archetypes.size ();	2658	RETVAL = archetypes.size ();
…		…
2672	}	2860	}
2673	}	2861	}
2674		2862
2675	int get_data_size (faceidx idx, int faceset = 0)	2863	int get_data_size (faceidx idx, int faceset = 0)
2676	CODE:	2864	CODE:
2677	facedata *d = face_data (idx, faceset); assert (d);	2865	facedata *d = face_data (idx, faceset);
		2866	if (!d) XSRETURN_UNDEF;
2678	RETVAL = d->data.size ();	2867	RETVAL = d->data.size ();
2679	OUTPUT:	2868	OUTPUT:
2680	RETVAL	2869	RETVAL
2681		2870
2682	SV *get_chksum (faceidx idx, int faceset = 0)	2871	SV *get_chksum (faceidx idx, int faceset = 0)
2683	CODE:	2872	CODE:
2684	facedata *d = face_data (idx, faceset); assert (d);	2873	facedata *d = face_data (idx, faceset);
		2874	if (!d) XSRETURN_UNDEF;
2685	RETVAL = newSVpvn ((char *)d->chksum, CHKSUM_SIZE);	2875	RETVAL = newSVpvn ((char *)d->chksum, CHKSUM_SIZE);
		2876	OUTPUT:
		2877	RETVAL
		2878
		2879	SV *get_data (faceidx idx, int faceset = 0)
		2880	CODE:
		2881	facedata *d = face_data (idx, faceset);
		2882	if (!d) XSRETURN_UNDEF;
		2883	RETVAL = newSVpvn (d->data.data (), d->data.length ());
2686	OUTPUT:	2884	OUTPUT:
2687	RETVAL	2885	RETVAL
2688		2886
2689	void invalidate (faceidx idx)	2887	void invalidate (faceidx idx)
2690	CODE:	2888	CODE:
…		…
2782	extract_tags (object_thawer *self)	2980	extract_tags (object_thawer *self)
2783	PPCODE:	2981	PPCODE:
2784	while (self->kw != KW_EOF)	2982	while (self->kw != KW_EOF)
2785	{	2983	{
2786	PUTBACK;	2984	PUTBACK;
2787	coroapi::cede_to_tick_every (5000);	2985	coroapi::cede_to_tick ();
2788	SPAGAIN;	2986	SPAGAIN;
2789		2987
2790	if (self->kw == KW_tag)	2988	if (self->kw == KW_tag)
2791	XPUSHs (sv_2mortal (newSVpv_utf8 (self->get_str ())));	2989	XPUSHs (sv_2mortal (newSVpv_utf8 (self->get_str ())));
2792		2990

Diff Legend

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

Comparing deliantra/server/server/cfperl.xs (file contents): Revision 1.265 by root, Wed Nov 14 08:09:46 2007 UTC vs. Revision 1.312 by root, Tue Dec 23 06:58:24 2008 UTC

Diff Legend

Comparing deliantra/server/server/cfperl.xs (file contents):
Revision 1.265 by root, Wed Nov 14 08:09:46 2007 UTC vs.
Revision 1.312 by root, Tue Dec 23 06:58:24 2008 UTC