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

Comparing deliantra/server/server/cfperl.xs (file contents):
Revision 1.215 by root, Sun May 27 23:56:21 2007 UTC vs.
Revision 1.288 by root, Tue May 6 18:47:32 2008 UTC

…		…
1	/*	1	/*
2	* CrossFire, A Multiplayer game	2	* This file is part of Deliantra, the Roguelike Realtime MMORPG.
3	*	3	*
4	* This code is placed under the GNU General Public Licence (GPL)	4	* Copyright (©) 2006,2007,2008 Marc Alexander Lehmann / Robin Redeker / the Deliantra team
5	*
6	* Copyright (C) 2001-2005 by Chachkoff Yann	5	* Copyright (©) 2001-2005,2007 by Chachkoff Yann
7	* Copyright (C) 2006,2007 by Marc Lehmann <cf@schmorp.de>	6	* Copyright (©) 2006,2007 by Marc Lehmann <cf@schmorp.de>
8	*	7	*
9	* This program is free software; you can redistribute it and/or modify	8	* Deliantra is free software: you can redistribute it and/or modify
10	* 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
11	* the Free Software Foundation; either version 2 of the License, or	10	* the Free Software Foundation, either version 3 of the License, or
12	* (at your option) any later version.	11	* (at your option) any later version.
13	*	12	*
14	* This program is distributed in the hope that it will be useful,	13	* This program is distributed in the hope that it will be useful,
15	* but WITHOUT ANY WARRANTY; without even the implied warranty of	14	* but WITHOUT ANY WARRANTY; without even the implied warranty of
16	* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the	15	* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
17	* GNU General Public License for more details.	16	* GNU General Public License for more details.
18	*	17	*
19	* You should have received a copy of the GNU General Public License	18	* You should have received a copy of the GNU General Public License
20	* along with this program; if not, write to the Free Software	19	* along with this program. If not, see <http://www.gnu.org/licenses/>.
21	* Foundation, Inc. 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA	20	*
		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"	26	#define PLUGIN_NAME "perl"
27	#define PLUGIN_VERSION "cfperl 0.5"	27	#define PLUGIN_VERSION "cfperl 0.5"
28
29	#define CEDES_PER_TICK 5
30		28
31	#if HAVE_EXECINFO_H	29	#if HAVE_EXECINFO_H
32	# include <execinfo.h>	30	# include <execinfo.h>
33	#endif	31	#endif
34		32
35	#include <plugin_common.h>
36	#include <sounds.h>
37	#include <cstdarg>	33	#include <cstdarg>
38	#include <sproto.h>
39		34
		35	#include "global.h"
40	#include "loader.h"	36	#include "loader.h"
		37	#include "../random_maps/random_map.h"
41	#include "cfperl.h"	38	#include "evthread.h"
42	#include "shstr.h"	39	#include "sproto.h"
43		40
44	#include <unistd.h>	41	#include <unistd.h>
45	#if _POSIX_MEMLOCK	42	#if _POSIX_MEMLOCK
46	# include <sys/mman.h>	43	# include <sys/mman.h>
47	#endif	44	#endif
48		45
		46	#if HAVE_MALLOC_H
		47	# include <malloc.h>
		48	#endif
		49
		50	#if !__GLIBC__
		51	# define malloc_trim(pad) -1
		52	#endif
		53
49	#include <EXTERN.h>	54	#include <EXTERN.h>
50	#include <perl.h>	55	#include <perl.h>
51	#include <XSUB.h>	56	#include <XSUB.h>
52		57
53	#include "CoroAPI.h"	58	#include "CoroAPI.h"
54	#include "perlxsi.c"	59	#include "perlxsi.c"
55		60
56	extern sint64 *levels; // the experience table	61	extern sint64 *levels; // the experience table
57		62
58	typedef object object_ornull;	63	typedef object_thawer &object_thawer_ref;
59	typedef maptile maptile_ornull;	64	typedef object_freezer &object_freezer_ref;
60
61	typedef char *octet_string;
62	typedef char *utf8_string;
63	typedef const char *const_octet_string;
64	typedef const char *const_utf8_string;
65		65
66	typedef std::string std__string;	66	typedef std::string std__string;
67		67
68	#if IVSIZE >= 8
69	typedef IV val64;
70	# define newSVval64 newSViv
71	# define SvVAL64 SvIV
72	#else
73	typedef double val64;
74	# define newSVval64 newSVnv
75	# define SvVAL64 SvNV
76	#endif
77
78	static f_plug_api gethook = cfapi_get_hooks;
79	static f_plug_api object_set_property = cfapi_object_set_property;
80	static f_plug_api object_insert = cfapi_object_insert;
81
82	static PerlInterpreter *perl;	68	static PerlInterpreter *perl;
83		69
84	double runtime;	70	tstamp NOW, runtime;
		71
		72	static int tick_inhibit;
		73	static int tick_pending;
85		74
86	global gbl_ev;	75	global gbl_ev;
87	static AV cb_global, cb_attachable, cb_object, cb_player, cb_client, cb_type, *cb_map;	76	static AV cb_global, cb_attachable, cb_object, cb_player, cb_client, cb_type, *cb_map;
88	static SV sv_runtime, sv_next_tick;	77	static SV sv_runtime, sv_tick_start, sv_next_tick, sv_now;
89		78
90	bitset<NUM_EVENT_TYPES> ev_want_event;	79	bitset<NUM_EVENT_TYPES> ev_want_event;
91	bitset<NUM_TYPES> ev_want_type;	80	bitset<NUM_TYPES> ev_want_type;
92		81
93	static HV	82	static HV
100	*stash_cf_arch_wrap,	89	*stash_cf_arch_wrap,
101	*stash_cf_party_wrap,	90	*stash_cf_party_wrap,
102	*stash_cf_region_wrap,	91	*stash_cf_region_wrap,
103	*stash_cf_living_wrap;	92	*stash_cf_living_wrap;
104		93
		94	static inline SV *
		95	newSVpv_utf8 (const char *s)
		96	{
		97	if (!s)
		98	return newSV (0);
		99
		100	SV *sv = newSVpv (s, 0);
		101	SvUTF8_on (sv);
		102	return sv;
		103	}
		104
		105	static inline SV *
		106	newSVpvn_utf8 (const char *s, STRLEN l)
		107	{
		108	if (!s)
		109	return newSV (0);
		110
		111	SV *sv = newSVpvn (s, l);
		112	SvUTF8_on (sv);
		113	return sv;
		114	}
		115
105	// helper cast function, returns super class * or 0	116	// helper cast function, returns super class * or 0
106	template<class super>	117	template<class super>
107	static super *	118	static super *
108	is_a (attachable *at)	119	is_a (attachable *at)
109	{	120	{
…		…
201	{	212	{
202	if (i >= mortals.size ())	213	if (i >= mortals.size ())
203	{	214	{
204	i = 0;	215	i = 0;
205		216
206	if (mortals.size () > 1000)	217	if (mortals.size () >= 512)
		218	{
		219	static int last_mortalcount;
		220	if (mortals.size () != last_mortalcount)
		221	{
		222	last_mortalcount = mortals.size ();
207	LOG (llevInfo, "mortal queue size (%d) exceeds 1000.\n", (int)mortals.size ());	223	LOG (llevInfo, "%d mortals.\n", (int)mortals.size ());
		224
		225	if (0)
		226	{
		227	for (int j = 0; j < mortals.size (); ++j)//D
		228	fprintf (stderr, "%d:%s %p ", j, &((object *)mortals[j])->name, mortals[j]);//D
		229	fprintf (stderr, "\n");//D
		230	}
		231	}
		232	}
208		233
209	break;	234	break;
210	}	235	}
211		236
212	attachable *obj = mortals [i];	237	attachable *obj = mortals [i];
…		…
233	delete obj;	258	delete obj;
234	}	259	}
235	}	260	}
236	}	261	}
237		262
		263	void
		264	attachable::set_key (const char key, const char value, bool is_utf8)
		265	{
		266	if (!self)
		267	self = newHV ();
		268
		269	if (value)
		270	hv_store (self, key, strlen (key), is_utf8 ? newSVpv_utf8 (value) : newSVpv (value, 0), 0);
		271	else
		272	hv_delete (self, key, strlen (key), G_DISCARD);
		273	}
		274
238	attachable &	275	attachable &
239	attachable::operator =(const attachable &src)	276	attachable::operator =(const attachable &src)
240	{	277	{
241	//if (self \|\| cb)	278	//if (self \|\| cb)
242	//INVOKE_OBJECT (CLONE, this, ARG_OBJECT (dst));	279	//INVOKE_OBJECT (CLONE, this, ARG_OBJECT (dst));
243		280
244	attach = src.attach;	281	attach = src.attach;
245	return *this;	282	return *this;
246	}	283	}
247		284
		285	template<typename T>
		286	static bool
		287	find_backref (void ptr, T obj)
		288	{
		289	char s = (char )obj;
		290	while (s < (char *)obj + sizeof (T))
		291	{
		292	if (ptr == (void *)s)
		293	return true;
		294
		295	s += sizeof (void *); // assume natural alignment
		296	}
		297
		298	return false;
		299	}
		300
		301	// for debugging, find "live" objects containing this ptr
		302	void
		303	find_backref (void *ptr)
		304	{
		305	for_all_objects (op)
		306	if (find_backref (ptr, op))
		307	fprintf (stderr, "O %p %d:'%s'\n", op, op->count, &op->name);
		308
		309	for_all_players (pl)
		310	if (find_backref (ptr, pl))
		311	fprintf (stderr, "P %p\n", pl);
		312
		313	for_all_clients (ns)
		314	if (find_backref (ptr, ns))
		315	fprintf (stderr, "C %p\n", ns);
		316
		317	}
		318
248	//////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////	319	//////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
249		320
250	static SV *	321	static SV *
251	newSVptr (void ptr, HV stash, HV *hv = newHV ())	322	newSVptr (void ptr, HV stash, HV *hv = newHV ())
252	{	323	{
253	SV *sv;	324	SV *sv;
254		325
255	if (!ptr)	326	if (!ptr)
256	return &PL_sv_undef;	327	return newSV (0);
257		328
258	sv_magicext ((SV )hv, 0, PERL_MAGIC_ext, 0, (char )ptr, 0);	329	sv_magicext ((SV )hv, 0, PERL_MAGIC_ext, 0, (char )ptr, 0);
259	return sv_bless (newRV_noinc ((SV *)hv), stash);	330	return sv_bless (newRV_noinc ((SV *)hv), stash);
260	}	331	}
261		332
…		…
280		351
281	static SV *	352	static SV *
282	newSVattachable (attachable obj, HV stash)	353	newSVattachable (attachable obj, HV stash)
283	{	354	{
284	if (!obj)	355	if (!obj)
285	return &PL_sv_undef;	356	return newSV (0);
286		357
287	if (!obj->self)	358	if (!obj->self)
		359	obj->self = newHV ();
		360
		361	if (!SvOBJECT (obj->self))
288	{	362	{
289	obj->self = newHV ();
290	sv_magicext ((SV )obj->self, 0, PERL_MAGIC_ext, &attachable::vtbl, (char )obj, 0);	363	sv_magicext ((SV )obj->self, 0, PERL_MAGIC_ext, &attachable::vtbl, (char )obj, 0);
291		364
292	// now bless the object _once_	365	// now bless the object _once_
		366	//TODO: create a class registry with c++ type<=>perl name<=>stash and use it here and elsewhere
293	return sv_bless (newRV_inc ((SV *)obj->self), stash);	367	return sv_bless (newRV_inc ((SV *)obj->self), stash);
294	}	368	}
295	else	369	else
296	{	370	{
297	SV sv = newRV_inc ((SV )obj->self);	371	SV sv = newRV_inc ((SV )obj->self);
…		…
334	return SvPTR (sv, klass);	408	return SvPTR (sv, klass);
335	else	409	else
336	return 0;	410	return 0;
337	}	411	}
338		412
339	inline SV to_sv (const shstr & v) { return v ? newSVpvn ((const char )v, v.length ()) : &PL_sv_undef; }	413	inline SV to_sv (const shstr & v) { return newSVpvn_utf8 ((const char )v, v.length ()); }
340	inline SV to_sv (const char v) { return newSVpv (v, 0); }	414	inline SV to_sv (const char v) { return v ? newSVpv (v, 0) : newSV (0); }
341	inline SV *to_sv (bool v) { return newSViv (v); }	415	inline SV *to_sv (bool v) { return newSViv (v); }
342	inline SV *to_sv ( signed char v) { return newSViv (v); }	416	inline SV *to_sv ( signed char v) { return newSViv (v); }
343	inline SV *to_sv (unsigned char v) { return newSViv (v); }	417	inline SV *to_sv (unsigned char v) { return newSViv (v); }
344	inline SV *to_sv ( signed short v) { return newSViv (v); }	418	inline SV *to_sv ( signed short v) { return newSViv (v); }
345	inline SV *to_sv (unsigned short v) { return newSVuv (v); }	419	inline SV *to_sv (unsigned short v) { return newSVuv (v); }
…		…
354	inline SV to_sv (client v) { return newSVattachable (v, stash_cf_client_wrap); }	428	inline SV to_sv (client v) { return newSVattachable (v, stash_cf_client_wrap); }
355	inline SV to_sv (player v) { return newSVattachable (v, stash_cf_player_wrap); }	429	inline SV to_sv (player v) { return newSVattachable (v, stash_cf_player_wrap); }
356	inline SV to_sv (object v) { return newSVattachable (v, v && v->type == PLAYER ? stash_cf_object_player_wrap : stash_cf_object_wrap); }	430	inline SV to_sv (object v) { return newSVattachable (v, v && v->type == PLAYER ? stash_cf_object_player_wrap : stash_cf_object_wrap); }
357	inline SV to_sv (maptile v) { return newSVattachable (v, stash_cf_map_wrap); }	431	inline SV to_sv (maptile v) { return newSVattachable (v, stash_cf_map_wrap); }
358	inline SV to_sv (archetype v) { return newSVattachable (v, stash_cf_arch_wrap); }	432	inline SV to_sv (archetype v) { return newSVattachable (v, stash_cf_arch_wrap); }
		433	inline SV to_sv (region v) { return newSVattachable (v, stash_cf_region_wrap); }
359	inline SV to_sv (partylist v) { return newSVptr (v, stash_cf_party_wrap); }	434	inline SV to_sv (partylist v) { return newSVptr (v, stash_cf_party_wrap); }
360	inline SV to_sv (region v) { return newSVptr (v, stash_cf_region_wrap); }
361	inline SV to_sv (living v) { return newSVptr (v, stash_cf_living_wrap); }	435	inline SV to_sv (living v) { return newSVptr (v, stash_cf_living_wrap); }
362		436
363	inline SV *to_sv (object & v) { return to_sv (&v); }	437	inline SV *to_sv (object & v) { return to_sv (&v); }
364	inline SV *to_sv (living & v) { return to_sv (&v); }	438	inline SV *to_sv (living & v) { return to_sv (&v); }
365		439
366	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 ()); }
367	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); }
368		442
369	inline SV *to_sv (UUID v)	443	inline SV *to_sv (UUID v) { return newSVpv (v.c_str (), 0); }
370	{
371	char buf[128];
372	snprintf (buf, 128, "<1.%" PRIx64 ">", v.seq);
373	return newSVpv (buf, 0);
374	}
375		444
376	inline void sv_to (SV *sv, shstr &v) { v = SvOK (sv) ? SvPV_nolen (sv) : 0; }	445	inline void sv_to (SV *sv, shstr &v) { v = SvOK (sv) ? SvPVutf8_nolen (sv) : 0; }
377	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; }
378	inline void sv_to (SV *sv, bool &v) { v = SvIV (sv); }	447	inline void sv_to (SV *sv, bool &v) { v = SvIV (sv); }
379	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); }
380	inline void sv_to (SV *sv, unsigned char &v) { v = SvIV (sv); }	449	inline void sv_to (SV *sv, unsigned char &v) { v = SvIV (sv); }
381	inline void sv_to (SV *sv, signed short &v) { v = SvIV (sv); }	450	inline void sv_to (SV *sv, signed short &v) { v = SvIV (sv); }
382	inline void sv_to (SV *sv, unsigned short &v) { v = SvIV (sv); }	451	inline void sv_to (SV *sv, unsigned short &v) { v = SvIV (sv); }
383	inline void sv_to (SV *sv, signed int &v) { v = SvIV (sv); }	452	inline void sv_to (SV *sv, signed int &v) { v = SvIV (sv); }
384	inline void sv_to (SV *sv, unsigned int &v) { v = SvUV (sv); }	453	inline void sv_to (SV *sv, unsigned int &v) { v = SvUV (sv); }
385	inline void sv_to (SV *sv, signed long &v) { v = SvIV (sv); }	454	inline void sv_to (SV *sv, signed long &v) { v = SvIV (sv); }
386	inline void sv_to (SV *sv, unsigned long &v) { v = SvUV (sv); }	455	inline void sv_to (SV *sv, unsigned long &v) { v = SvUV (sv); }
387	inline void sv_to (SV *sv, signed long long &v) { v = ( signed long long)SvVAL64 (sv); }	456	inline void sv_to (SV *sv, signed long long &v) { v = ( signed long long)SvVAL64 (sv); }
388	inline void sv_to (SV *sv, unsigned long long &v) { v = (unsigned long long)SvVAL64 (sv); }	457	inline void sv_to (SV *sv, unsigned long long &v) { v = (unsigned long long)SvVAL64 (sv); }
389	inline void sv_to (SV *sv, float &v) { v = SvNV (sv); }	458	inline void sv_to (SV *sv, float &v) { v = SvNV (sv); }
390	inline void sv_to (SV *sv, double &v) { v = SvNV (sv); }	459	inline void sv_to (SV *sv, double &v) { v = SvNV (sv); }
391	inline void sv_to (SV sv, client &v) { v = (client )(attachable )SvPTR_ornull (sv, "cf::client"); }	460	inline void sv_to (SV sv, client &v) { v = (client )(attachable )SvPTR_ornull (sv, "cf::client"); }
392	inline void sv_to (SV sv, player &v) { v = (player )(attachable )SvPTR_ornull (sv, "cf::player"); }	461	inline void sv_to (SV sv, player &v) { v = (player )(attachable )SvPTR_ornull (sv, "cf::player"); }
393	inline void sv_to (SV sv, object &v) { v = (object )(attachable )SvPTR_ornull (sv, "cf::object"); }	462	inline void sv_to (SV sv, object &v) { v = (object )(attachable )SvPTR_ornull (sv, "cf::object"); }
394	inline void sv_to (SV sv, archetype &v) { v = (archetype )(attachable )SvPTR_ornull (sv, "cf::arch"); }	463	inline void sv_to (SV sv, archetype &v) { v = (archetype )(attachable )SvPTR_ornull (sv, "cf::arch"); }
395	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"); }
		465	inline void sv_to (SV sv, region &v) { v = (region )(attachable )SvPTR_ornull (sv, "cf::region"); }
396	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"); }
397	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"); }
398	inline void sv_to (SV sv, region &v) { v = (region *)SvPTR_ornull (sv, "cf::region"); }
399	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, object_freezer &v) { v = (object_freezer *)SvPTR_ornull (sv, "cf::object::freezer"); }
		470	inline void sv_to (SV sv, object_thawer &v) { v = (object_thawer *)SvPTR_ornull (sv, "cf::object::thawer" ); }
400		471
401	//inline void sv_to (SV sv, faceinfo &v) { v = &faces [face_find (SvPV_nolen (sv), 0)]; }	472	//inline void sv_to (SV sv, faceinfo &v) { v = &faces [face_find (SvPV_nolen (sv), 0)]; }
402	inline void sv_to (SV sv, treasurelist &v) { v = treasurelist::find (SvPV_nolen (sv)); }	473	inline void sv_to (SV sv, treasurelist &v) { v = treasurelist::find (SvPV_nolen (sv)); }
403		474
404	template<class T>	475	template<class T>
405	inline void sv_to (SV sv, refptr<T> &v) { T tmp; sv_to (sv, tmp); v = tmp; }	476	inline void sv_to (SV sv, refptr<T> &v) { T tmp; sv_to (sv, tmp); v = tmp; }
406		477
407	template<int N>	478	template<int N>
408	inline void sv_to (SV *sv, char (&v)[N]) { assign (v, SvPV_nolen (sv)); }	479	inline void sv_to (SV *sv, char (&v)[N]) { assign (v, SvPV_nolen (sv)); }
409		480
410	inline void sv_to (SV *sv, bowtype_t &v) { v = (bowtype_t) SvIV (sv); }	481	inline void sv_to (SV *sv, bowtype_t &v) { v = (bowtype_t) SvIV (sv); }
411	inline void sv_to (SV *sv, petmode_t &v) { v = (petmode_t) SvIV (sv); }	482	inline void sv_to (SV *sv, petmode_t &v) { v = (petmode_t) SvIV (sv); }
412	inline void sv_to (SV *sv, usekeytype &v) { v = (usekeytype) SvIV (sv); }	483	inline void sv_to (SV *sv, usekeytype &v) { v = (usekeytype) SvIV (sv); }
413	inline void sv_to (SV *sv, unapplymode &v) { v = (unapplymode) SvIV (sv); }	484	inline void sv_to (SV *sv, unapplymode &v) { v = (unapplymode) SvIV (sv); }
414		485
415	inline void sv_to (SV *sv, std::string &v)	486	inline void sv_to (SV *sv, std::string &v)
416	{	487	{
417	STRLEN len;	488	STRLEN len;
418	char *data = SvPVbyte (sv, len);	489	char *data = SvPVbyte (sv, len);
419	v.assign (data, len);	490	v.assign (data, len);
420	}	491	}
421		492
422	inline void sv_to (SV *sv, UUID &v)	493	inline void sv_to (SV *sv, UUID &v)
423	{	494	{
424	unsigned int version;	495	if (!v.parse (SvPV_nolen (sv)))
425
426	if (2 != sscanf (SvPV_nolen (sv), "<%d.%" SCNx64 ">", &version, &v.seq) \|\| 1 != version)
427	croak ("unparsable uuid: %s", SvPV_nolen (sv));	496	croak ("unparsable uuid: %s", SvPV_nolen (sv));
428	}	497	}
429		498
430	inline void sv_to (SV *sv, object::flags_t::reference v) { v = SvTRUE (sv); }	499	inline void sv_to (SV *sv, object::flags_t::reference v) { v = SvTRUE (sv); }
431		500
…		…
449	break;	518	break;
450		519
451	case DT_STRING:	520	case DT_STRING:
452	{	521	{
453	char str = (char )va_arg (ap, const char *);	522	char str = (char )va_arg (ap, const char *);
454	sv = str ? newSVpv (str, 0) : &PL_sv_undef;	523	sv = str ? newSVpv (str, 0) : newSV (0);
455	}	524	}
456	break;	525	break;
457		526
458	case DT_DATA:	527	case DT_DATA:
459	{	528	{
460	char str = (char )va_arg (ap, const void *);	529	char str = (char )va_arg (ap, const void *);
461	int len = va_arg (ap, int);	530	int len = va_arg (ap, int);
462	sv = str ? newSVpv (str, len) : &PL_sv_undef;	531	sv = str ? newSVpv (str, len) : newSV (0);
463	}	532	}
464	break;	533	break;
465		534
466	case DT_OBJECT:	535	case DT_OBJECT:
467	sv = to_sv (va_arg (ap, object *));	536	sv = to_sv (va_arg (ap, object *));
…		…
509	va_end (ap);	578	va_end (ap);
510		579
511	return sv;	580	return sv;
512	}	581	}
513		582
514	static SV *
515	newSVcfapi (int type, ...)
516	{
517	SV *sv;
518
519	va_list ap;
520	va_start (ap, type);
521
522	switch (type)
523	{
524	case CFAPI_INT: sv = newSViv (va_arg (ap, int )); break;
525	case CFAPI_LONG: sv = newSVval64 (va_arg (ap, sint64 )); break;
526	case CFAPI_DOUBLE: sv = newSVnv (va_arg (ap, double )); break;
527	case CFAPI_STRING: sv = newSVdt_va (ap, DT_STRING); break;
528	case CFAPI_POBJECT: sv = newSVdt_va (ap, DT_OBJECT); break;
529	case CFAPI_PMAP: sv = newSVdt_va (ap, DT_MAP ); break;
530	case CFAPI_PPLAYER: sv = newSVdt_va (ap, DT_PLAYER); break;
531	case CFAPI_PARCH: sv = newSVdt_va (ap, DT_ARCH ); break;
532	case CFAPI_PPARTY: sv = newSVdt_va (ap, DT_PARTY ); break;
533	case CFAPI_PREGION: sv = newSVdt_va (ap, DT_REGION); break;
534
535	default:
536	assert (("unhandled type in newSVcfapi", 0));
537	}
538
539	va_end (ap);
540
541	return sv;
542	}
543
544	//////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////	583	//////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
545		584
546	SV *	585	SV *
547	registry (attachable *ext)	586	registry (attachable *ext)
548	{	587	{
…		…
552	return newRV_inc ((SV *)ext->cb);	591	return newRV_inc ((SV *)ext->cb);
553	}	592	}
554		593
555	/////////////////////////////////////////////////////////////////////////////	594	/////////////////////////////////////////////////////////////////////////////
556		595
557	extern "C" int cfperl_initPlugin (const char *iversion, f_plug_api gethooksptr)
558	{
559	return 0;
560	}
561
562	static CommArray_s rtn_cmd;
563
564	static int
565	runPluginCommand (object obj, char params)
566	{
567	return -1;
568	}
569
570	extern "C" void cfperl_getPluginProperty (int type, ...)
571	{
572	va_list args;
573	char *propname;
574	int i;
575	va_start (args, type);
576	propname = va_arg (args, char *);
577	//printf ("Property name: %s\n", propname);
578
579	if (!strcmp (propname, "command?"))
580	return NULL;
581	else if (!strcmp (propname, "Identification"))
582	{
583	va_end (args);
584	return (void *)PLUGIN_NAME;
585	}
586	else if (!strcmp (propname, "FullName"))
587	{
588	va_end (args);
589	return (void *)PLUGIN_VERSION;
590	}
591	else
592	va_end (args);
593
594	return NULL;
595	}
596
597	extern "C" int cfperl_postInitPlugin ()
598	{
599	int hooktype = 1;
600	int rtype = 0;
601
602	cf_init_plugin (gethook);
603
604	return 0;
605	}
606
607	extern "C" int cfperl_closePlugin ()
608	{
609	return 0;
610	}
611
612	void	596	void
613	cfperl_init ()	597	cfperl_init ()
614	{	598	{
		599	extern char **environ;
		600
615	PERL_SYS_INIT3 (&settings.argc, &settings.argv, 0);	601	PERL_SYS_INIT3 (&settings.argc, &settings.argv, &environ);
616	perl = perl_alloc ();	602	perl = perl_alloc ();
617	perl_construct (perl);	603	perl_construct (perl);
618		604
619	PL_exit_flags \|= PERL_EXIT_DESTRUCT_END;	605	PL_exit_flags \|= PERL_EXIT_DESTRUCT_END;
620		606
621	const char *argv[] = {	607	const char *argv[] = {
622	settings.argv [0],	608	settings.argv [0],
623	"-e"	609	"-e"
624	"use Event; use Coro;" // required for bootstrap	610	"use EV; use Coro;" // required for bootstrap
625	"cf->bootstrap;" // required for datadir :*>	611	"cf->bootstrap;" // required for datadir :*>
626	"unshift @INC, cf::datadir ();"	612	"unshift @INC, cf::datadir ();"
627	"require cf;"	613	"require cf;"
628	};	614	};
629		615
630	if (perl_parse (perl, xs_init, 2, (char )argv, (char )NULL)	616	if (perl_parse (perl, xs_init, 2, (char **)argv, environ)
631	\|\| perl_run (perl))	617	\|\| perl_run (perl))
632	{	618	{
633	printf ("unable to initialize perl-interpreter, aborting.\n");	619	printf ("unable to initialize perl-interpreter, aborting.\n");
634	exit (EXIT_FAILURE);	620	exit (EXIT_FAILURE);
635	}	621	}
…		…
886	}	872	}
887		873
888	SV *	874	SV *
889	cfperl_result (int idx)	875	cfperl_result (int idx)
890	{	876	{
891	AV *av = get_av ("cfperl::invoke_results", 0);	877	AV *av = get_av ("cf::INVOKE_RESULTS", 0);
892	if (!av)	878	if (!av)
893	return &PL_sv_undef;	879	return &PL_sv_undef;
894		880
895	SV **sv = av_fetch (av, idx, 0);	881	SV **sv = av_fetch (av, idx, 0);
896	if (!sv)	882	if (!sv)
…		…
910	{	896	{
911	return SvNV (cfperl_result (idx));	897	return SvNV (cfperl_result (idx));
912	}	898	}
913		899
914	/////////////////////////////////////////////////////////////////////////////	900	/////////////////////////////////////////////////////////////////////////////
		901	// various c++ => perl glue functions
		902
		903	void cfperl_tick ()
		904	{
		905	tick_pending = 1;
		906
		907	if (tick_inhibit)
		908	return;
		909
		910	tick_pending = 0;
		911
		912	dSP;
		913
		914	PUSHMARK (SP);
		915	PUTBACK;
		916	call_pv ("cf::tick", G_DISCARD \| G_VOID);
		917
		918	SvNV_set (sv_next_tick, get_next_tick ()); SvNOK_only (sv_next_tick);
		919	}
915		920
916	void	921	void
917	cfperl_emergency_save ()	922	cfperl_emergency_save ()
918	{	923	{
919	CALL_BEGIN (0);	924	CALL_BEGIN (0);
…		…
938	CALL_ARG (level);	943	CALL_ARG (level);
939	CALL_CALL ("ext::books::make_book", G_VOID);	944	CALL_CALL ("ext::books::make_book", G_VOID);
940	CALL_END;	945	CALL_END;
941	}	946	}
942		947
		948	void
		949	cfperl_send_msg (client ns, int color, const char type, const char *msg)
		950	{
		951	CALL_BEGIN (4);
		952	CALL_ARG (ns);
		953	CALL_ARG (type);
		954	CALL_ARG_SV (newSVpv_utf8 (msg));
		955	CALL_ARG (color);
		956	CALL_CALL ("cf::client::send_msg", G_VOID);
		957	CALL_END;
		958	}
		959
		960	int
		961	cfperl_can_merge (object ob1, object ob2)
		962	{
		963	int can;
		964
		965	CALL_BEGIN (2);
		966	CALL_ARG (ob1);
		967	CALL_ARG (ob2);
		968	CALL_CALL ("cf::_can_merge", G_SCALAR);
		969	can = count && SvTRUE (TOPs);
		970	CALL_END;
		971
		972	return can;
		973	}
		974
		975	player *
		976	player::find (const char *name)
		977	{
		978	CALL_BEGIN (1);
		979	CALL_ARG (name);
		980	CALL_CALL ("cf::player::find", G_SCALAR);
		981
		982	player *retval = 0;
		983	if (count) sv_to (POPs, retval);
		984
		985	CALL_END;
		986
		987	return retval;
		988	}
		989
		990	maptile *
		991	find_style (const char dirname, const char stylename, int difficulty)
		992	{
		993	CALL_BEGIN (3);
		994	CALL_ARG (dirname);
		995	CALL_ARG (stylename);
		996	CALL_ARG (difficulty);
		997	CALL_CALL ("ext::map_random::find_style", G_SCALAR);
		998
		999	maptile *retval = 0;
		1000	if (count) sv_to (POPs, retval);
		1001
		1002	CALL_END;
		1003
		1004	return retval;
		1005	}
		1006
943	maptile *	1007	maptile *
944	maptile::find_sync (const char path, maptile origin)	1008	maptile::find_sync (const char path, maptile origin)
945	{	1009	{
946	CALL_BEGIN (2);	1010	CALL_BEGIN (2);
947	CALL_ARG (path);	1011	CALL_ARG (path);
948	CALL_ARG (origin);	1012	CALL_ARG (origin);
949	CALL_CALL ("cf::map::find_sync", G_SCALAR);	1013	CALL_CALL ("cf::map::find_sync", G_SCALAR);
950		1014
951	maptile *retval;	1015	maptile *retval = 0;
952
953	if (count)
954	sv_to (POPs, retval);	1016	if (count) sv_to (POPs, retval);
955	else
956	retval = 0;
957		1017
958	CALL_END;	1018	CALL_END;
959		1019
960	return retval;	1020	return retval;
961	}	1021	}
962		1022
963	maptile *	1023	maptile *
964	maptile::find_async (const char path, maptile origin)	1024	maptile::find_async (const char path, maptile origin, bool load)
965	{	1025	{
966	CALL_BEGIN (2);	1026	CALL_BEGIN (3);
967	CALL_ARG (path);	1027	CALL_ARG (path);
968	CALL_ARG (origin);	1028	CALL_ARG (origin);
		1029	CALL_ARG (load);
969	CALL_CALL ("cf::map::find_async", G_SCALAR);	1030	CALL_CALL ("cf::map::find_async", G_SCALAR);
970		1031
971	maptile *retval;	1032	maptile *retval = 0;
972
973	if (count)
974	sv_to (POPs, retval);	1033	if (count) sv_to (POPs, retval);
975	else
976	retval = 0;
977		1034
978	CALL_END;	1035	CALL_END;
979		1036
980	return retval;	1037	return retval;
981	}	1038	}
…		…
1007	CALL_BEGIN (2);	1064	CALL_BEGIN (2);
1008	CALL_ARG (this);	1065	CALL_ARG (this);
1009	CALL_ARG (exit);	1066	CALL_ARG (exit);
1010	CALL_CALL ("cf::object::player::enter_exit", G_VOID);	1067	CALL_CALL ("cf::object::player::enter_exit", G_VOID);
1011	CALL_END;	1068	CALL_END;
		1069	}
		1070
		1071	void
		1072	object::player_goto (const char *path, int x, int y)
		1073	{
		1074	if (type != PLAYER)
		1075	return;
		1076
		1077	CALL_BEGIN (4);
		1078	CALL_ARG (this);
		1079	CALL_ARG (path);
		1080	CALL_ARG (x);
		1081	CALL_ARG (y);
		1082	CALL_CALL ("cf::object::player::goto", G_VOID);
		1083	CALL_END;
		1084	}
		1085
		1086	const char *
		1087	object::ref () const
		1088	{
		1089	if (type == PLAYER)
		1090	return format ("player/<1.%llx>/%s", (unsigned long long)uuid.seq, &name);
		1091	else
		1092	return 0;
		1093	}
		1094
		1095	object *
		1096	object::deref (const char *ref)
		1097	{
		1098	object *retval = 0;
		1099
		1100	if (ref)
		1101	{
		1102	CALL_BEGIN (1);
		1103	CALL_ARG (ref);
		1104	CALL_CALL ("cf::object::deref", G_SCALAR);
		1105
		1106	if (count)
		1107	sv_to (POPs, retval);
		1108
		1109	CALL_END;
		1110	}
		1111
		1112	return retval;
1012	}	1113	}
1013		1114
1014	void	1115	void
1015	log_backtrace (const char *msg)	1116	log_backtrace (const char *msg)
1016	{	1117	{
…		…
1027	#endif	1128	#endif
1028	}	1129	}
1029		1130
1030	/////////////////////////////////////////////////////////////////////////////	1131	/////////////////////////////////////////////////////////////////////////////
1031		1132
1032	struct EventAPI *watcher_base::GEventAPI;	1133	struct EVAPI *evapi::GEVAPI;
1033	struct CoroAPI *coroapi::GCoroAPI;	1134	struct CoroAPI *coroapi::GCoroAPI;
1034
1035	int coroapi::cede_counter;
1036	double (*coroapi::time)();
1037	double coroapi::next_cede;
1038		1135
1039	void coroapi::do_cede_to_tick ()	1136	void coroapi::do_cede_to_tick ()
1040	{	1137	{
1041	cede_counter = 0;	1138	cede_pending = 0;
1042
1043	cede ();	1139	cede ();
1044
1045	next_cede += (TICK / CEDES_PER_TICK) * 0.99;
1046	if (next_cede > SvNV (sv_next_tick) - 0.02)
1047	next_cede = SvNV (sv_next_tick);
1048	}
1049
1050	void coroapi::do_cede_every ()
1051	{
1052	cede_counter = 0;
1053
1054	if (coroapi::nready ())
1055	coroapi::cede ();
1056	}
1057
1058	void coroapi::do_cede_to_tick_every ()
1059	{
1060	cede_counter = 0;
1061
1062	cede_to_tick ();
1063	}	1140	}
1064		1141
1065	void	1142	void
1066	coroapi::wait_for_tick ()	1143	coroapi::wait_for_tick ()
1067	{	1144	{
…		…
1076	CALL_BEGIN (0);	1153	CALL_BEGIN (0);
1077	CALL_CALL ("cf::wait_for_tick_begin", G_DISCARD);	1154	CALL_CALL ("cf::wait_for_tick_begin", G_DISCARD);
1078	CALL_END;	1155	CALL_END;
1079	}	1156	}
1080		1157
1081	static void
1082	iw_dispatch (pe_event *ev)
1083	{
1084	iw w = (iw )ev->ext_data;
1085	w->call (*w);
1086	}
1087
1088	void
1089	iw::alloc ()
1090	{
1091	pe = GEventAPI->new_idle (0, 0);
1092
1093	WaREENTRANT_off (pe);
1094	pe->base.callback = (void *)iw_dispatch;
1095	pe->base.ext_data = (void *)this;
1096	}
1097
1098	static void iow_dispatch (pe_event *ev)
1099	{
1100	iow w = (iow )ev->ext_data;
1101	w->call (w, ((pe_ioevent )ev)->got);
1102	}
1103
1104	void
1105	iow::alloc ()
1106	{
1107	pe = GEventAPI->new_io (0, 0);
1108
1109	WaREENTRANT_off (pe);
1110	pe->base.callback = (void *)iow_dispatch;
1111	pe->base.ext_data = (void *)this;
1112
1113	pe->fd = -1;
1114	pe->poll = 0;
1115	}
1116
1117	void
1118	iow::fd (int fd)
1119	{
1120	pe->fd = fd;
1121	}
1122
1123	int
1124	iow::poll ()
1125	{
1126	return pe->poll;
1127	}
1128
1129	void	1158	void
1130	iow::poll (int events)	1159	iow::poll (int events)
1131	{	1160	{
1132	if (pe->poll != events)	1161	if (events != this->events)
1133	{	1162	{
		1163	int active = ev_is_active ((ev_io *)this);
1134	if (pe->poll) stop ();	1164	if (active) stop ();
1135	pe->poll = events;	1165	ev_io_set ((ev_io *)this, fd, events);
1136	if (pe->poll) start ();	1166	if (active) start ();
1137	}	1167	}
1138	}	1168	}
1139		1169
1140	void	1170	void
1141	_connect_to_perl ()	1171	_connect_to_perl ()
1142	{	1172	{
1143	stash_cf = gv_stashpv ("cf" , 1);	1173	stash_cf = gv_stashpv ("cf", 1);
1144		1174
1145	stash_cf_object_wrap = gv_stashpv ("cf::object::wrap", 1);	1175	stash_cf_object_wrap = gv_stashpv ("cf::object::wrap", 1);
1146	stash_cf_object_player_wrap = gv_stashpv ("cf::object::player::wrap", 1);	1176	stash_cf_object_player_wrap = gv_stashpv ("cf::object::player::wrap", 1);
1147	stash_cf_player_wrap = gv_stashpv ("cf::player::wrap", 1);	1177	stash_cf_player_wrap = gv_stashpv ("cf::player::wrap", 1);
1148	stash_cf_map_wrap = gv_stashpv ("cf::map::wrap" , 1);	1178	stash_cf_map_wrap = gv_stashpv ("cf::map::wrap" , 1);
…		…
1150	stash_cf_arch_wrap = gv_stashpv ("cf::arch::wrap" , 1);	1180	stash_cf_arch_wrap = gv_stashpv ("cf::arch::wrap" , 1);
1151	stash_cf_party_wrap = gv_stashpv ("cf::party::wrap" , 1);	1181	stash_cf_party_wrap = gv_stashpv ("cf::party::wrap" , 1);
1152	stash_cf_region_wrap = gv_stashpv ("cf::region::wrap", 1);	1182	stash_cf_region_wrap = gv_stashpv ("cf::region::wrap", 1);
1153	stash_cf_living_wrap = gv_stashpv ("cf::living::wrap", 1);	1183	stash_cf_living_wrap = gv_stashpv ("cf::living::wrap", 1);
1154		1184
		1185	sv_now = get_sv ("cf::NOW" , 1); SvUPGRADE (sv_now , SVt_NV);
1155	sv_runtime = get_sv ("cf::RUNTIME" , 1); sv_upgrade (sv_runtime , SVt_NV);	1186	sv_runtime = get_sv ("cf::RUNTIME" , 1); SvUPGRADE (sv_runtime , SVt_NV);
		1187	sv_tick_start = get_sv ("cf::TICK_START", 1); SvUPGRADE (sv_tick_start, SVt_NV);
1156	sv_next_tick = get_sv ("cf::NEXT_TICK", 1); sv_upgrade (sv_next_tick, SVt_NV);	1188	sv_next_tick = get_sv ("cf::NEXT_TICK" , 1); SvUPGRADE (sv_next_tick , SVt_NV);
1157		1189
1158	cb_global = get_av ("cf::CB_GLOBAL", 1);	1190	cb_global = get_av ("cf::CB_GLOBAL", 1);
1159	cb_attachable = get_av ("cf::CB_ATTACHABLE", 1);	1191	cb_attachable = get_av ("cf::CB_ATTACHABLE", 1);
1160	cb_object = get_av ("cf::CB_OBJECT", 1);	1192	cb_object = get_av ("cf::CB_OBJECT", 1);
1161	cb_player = get_av ("cf::CB_PLAYER", 1);	1193	cb_player = get_av ("cf::CB_PLAYER", 1);
…		…
1166		1198
1167	MODULE = cf PACKAGE = cf PREFIX = cf_	1199	MODULE = cf PACKAGE = cf PREFIX = cf_
1168		1200
1169	BOOT:	1201	BOOT:
1170	{	1202	{
1171	I_EVENT_API (PACKAGE); watcher_base::GEventAPI = GEventAPI;	1203	I_EV_API (PACKAGE); evapi::GEVAPI = GEVAPI;
1172	I_CORO_API (PACKAGE); coroapi::GCoroAPI = GCoroAPI;	1204	I_CORO_API (PACKAGE); coroapi::GCoroAPI = GCoroAPI;
1173		1205
1174	_connect_to_perl ();	1206	_connect_to_perl ();
1175		1207
1176	newCONSTSUB (stash_cf, "VERSION", newSVpv (VERSION, sizeof (VERSION) - 1));	1208	newCONSTSUB (stash_cf, "VERSION", newSVpv (VERSION, sizeof (VERSION) - 1));
1177		1209
1178	{	1210	//{
1179	require_pv ("Time::HiRes");	1211	// require_pv ("Time::HiRes");
1180		1212	//
1181	SV **svp = hv_fetch (PL_modglobal, "Time::NVtime", 12, 0);	1213	// SV **svp = hv_fetch (PL_modglobal, "Time::NVtime", 12, 0);
1182	if (!svp) croak ("Time::HiRes is required");	1214	// if (!svp) croak ("Time::HiRes is required");
1183	if (!SvIOK(*svp)) croak ("Time::NVtime isn’t a function pointer");	1215	// if (!SvIOK(*svp)) croak ("Time::NVtime isn’t a function pointer");
1184	coroapi::time = INT2PTR (double()(), SvIV(svp));	1216	// coroapi::time = INT2PTR (double()(), SvIV(svp));
1185	}	1217	//}
1186		1218
1187	static const struct {	1219	static const struct {
1188	const char *name;	1220	const char *name;
1189	IV iv;	1221	IV iv;
1190	} *civ, const_iv[] = {	1222	} *civ, const_iv[] = {
…		…
1195	const_iv (Map0Cmd) const_iv (Map1Cmd) const_iv (Map1aCmd)	1227	const_iv (Map0Cmd) const_iv (Map1Cmd) const_iv (Map1aCmd)
1196		1228
1197	const_iv (MAP_CLIENT_X) const_iv (MAP_CLIENT_Y)	1229	const_iv (MAP_CLIENT_X) const_iv (MAP_CLIENT_Y)
1198		1230
1199	const_iv (MAX_TIME)	1231	const_iv (MAX_TIME)
		1232	const_iv (MAXSOCKBUF)
1200		1233
1201	const_iv (NUM_BODY_LOCATIONS)	1234	const_iv (NUM_BODY_LOCATIONS)
1202	const_iv (body_range) const_iv (body_shield) const_iv (body_combat)	1235	const_iv (body_range) const_iv (body_shield) const_iv (body_combat)
1203	const_iv (body_arm) const_iv (body_torso) const_iv (body_head)	1236	const_iv (body_arm) const_iv (body_torso) const_iv (body_head)
1204	const_iv (body_neck) const_iv (body_skill) const_iv (body_finger)	1237	const_iv (body_neck) const_iv (body_skill) const_iv (body_finger)
…		…
1272	const_iv (FLAG_USE_ROD) const_iv (FLAG_USE_HORN) const_iv (FLAG_MAKE_INVIS) const_iv (FLAG_INV_LOCKED)	1305	const_iv (FLAG_USE_ROD) const_iv (FLAG_USE_HORN) const_iv (FLAG_MAKE_INVIS) const_iv (FLAG_INV_LOCKED)
1273	const_iv (FLAG_IS_WOODED) const_iv (FLAG_IS_HILLY) const_iv (FLAG_READY_SKILL) const_iv (FLAG_READY_WEAPON)	1306	const_iv (FLAG_IS_WOODED) const_iv (FLAG_IS_HILLY) const_iv (FLAG_READY_SKILL) const_iv (FLAG_READY_WEAPON)
1274	const_iv (FLAG_NO_SKILL_IDENT) const_iv (FLAG_BLIND) const_iv (FLAG_SEE_IN_DARK) const_iv (FLAG_IS_CAULDRON)	1307	const_iv (FLAG_NO_SKILL_IDENT) const_iv (FLAG_BLIND) const_iv (FLAG_SEE_IN_DARK) const_iv (FLAG_IS_CAULDRON)
1275	const_iv (FLAG_NO_STEAL) const_iv (FLAG_ONE_HIT) const_iv (FLAG_CLIENT_SENT) const_iv (FLAG_BERSERK)	1308	const_iv (FLAG_NO_STEAL) const_iv (FLAG_ONE_HIT) const_iv (FLAG_CLIENT_SENT) const_iv (FLAG_BERSERK)
1276	const_iv (FLAG_NEUTRAL) const_iv (FLAG_NO_ATTACK) const_iv (FLAG_NO_DAMAGE) const_iv (FLAG_OBJ_ORIGINAL)	1309	const_iv (FLAG_NEUTRAL) const_iv (FLAG_NO_ATTACK) const_iv (FLAG_NO_DAMAGE) const_iv (FLAG_OBJ_ORIGINAL)
1277	const_iv (FLAG_OBJ_SAVE_ON_OVL) const_iv (FLAG_ACTIVATE_ON_PUSH) const_iv (FLAG_ACTIVATE_ON_RELEASE) const_iv (FLAG_IS_WATER)	1310	const_iv (FLAG_ACTIVATE_ON_PUSH) const_iv (FLAG_ACTIVATE_ON_RELEASE) const_iv (FLAG_IS_WATER)
1278	const_iv (FLAG_CONTENT_ON_GEN) const_iv (FLAG_IS_A_TEMPLATE) const_iv (FLAG_IS_BUILDABLE)	1311	const_iv (FLAG_CONTENT_ON_GEN) const_iv (FLAG_IS_A_TEMPLATE) const_iv (FLAG_IS_BUILDABLE)
1279	const_iv (FLAG_DESTROY_ON_DEATH) const_iv (FLAG_NO_MAP_SAVE)	1312	const_iv (FLAG_DESTROY_ON_DEATH) const_iv (FLAG_NO_MAP_SAVE)
1280		1313
1281	const_iv (NDI_BLACK) const_iv (NDI_WHITE) const_iv (NDI_NAVY) const_iv (NDI_RED)	1314	const_iv (NDI_BLACK) const_iv (NDI_WHITE) const_iv (NDI_NAVY) const_iv (NDI_RED)
1282	const_iv (NDI_ORANGE) const_iv (NDI_BLUE) const_iv (NDI_DK_ORANGE) const_iv (NDI_GREEN)	1315	const_iv (NDI_ORANGE) const_iv (NDI_BLUE) const_iv (NDI_DK_ORANGE) const_iv (NDI_GREEN)
1283	const_iv (NDI_LT_GREEN) const_iv (NDI_GREY) const_iv (NDI_BROWN) const_iv (NDI_GOLD)	1316	const_iv (NDI_LT_GREEN) const_iv (NDI_GREY) const_iv (NDI_BROWN) const_iv (NDI_GOLD)
1284	const_iv (NDI_TAN) const_iv (NDI_MAX_COLOR) const_iv (NDI_COLOR_MASK) const_iv (NDI_UNIQUE)	1317	const_iv (NDI_TAN) const_iv (NDI_MAX_COLOR) const_iv (NDI_COLOR_MASK) const_iv (NDI_UNIQUE)
1285	const_iv (NDI_ALL)	1318	const_iv (NDI_ALL) const_iv (NDI_DEF) const_iv (NDI_REPLY) const_iv (NDI_CLIENT_MASK)
		1319	const_iv (NDI_NOCREATE) const_iv (NDI_CLEAR)
1286		1320
1287	const_iv (UPD_LOCATION) const_iv (UPD_FLAGS) const_iv (UPD_WEIGHT) const_iv (UPD_FACE)	1321	const_iv (UPD_LOCATION) const_iv (UPD_FLAGS) const_iv (UPD_WEIGHT) const_iv (UPD_FACE)
1288	const_iv (UPD_NAME) const_iv (UPD_ANIM) const_iv (UPD_ANIMSPEED) const_iv (UPD_NROF)	1322	const_iv (UPD_NAME) const_iv (UPD_ANIM) const_iv (UPD_ANIMSPEED) const_iv (UPD_NROF)
1289		1323
1290	const_iv (UPD_SP_MANA) const_iv (UPD_SP_GRACE) const_iv (UPD_SP_DAMAGE)	1324	const_iv (UPD_SP_MANA) const_iv (UPD_SP_GRACE) const_iv (UPD_SP_DAMAGE)
…		…
1348	const_iv (P_NO_CLERIC) const_iv (P_OUT_OF_MAP) const_iv (P_NEW_MAP) const_iv (P_UPTODATE)	1382	const_iv (P_NO_CLERIC) const_iv (P_OUT_OF_MAP) const_iv (P_NEW_MAP) const_iv (P_UPTODATE)
1349		1383
1350	const_iv (UP_OBJ_INSERT) const_iv (UP_OBJ_REMOVE) const_iv (UP_OBJ_CHANGE) const_iv (UP_OBJ_FACE)	1384	const_iv (UP_OBJ_INSERT) const_iv (UP_OBJ_REMOVE) const_iv (UP_OBJ_CHANGE) const_iv (UP_OBJ_FACE)
1351		1385
1352	const_iv (INS_NO_MERGE) const_iv (INS_ABOVE_FLOOR_ONLY) const_iv (INS_NO_WALK_ON)	1386	const_iv (INS_NO_MERGE) const_iv (INS_ABOVE_FLOOR_ONLY) const_iv (INS_NO_WALK_ON)
1353	const_iv (INS_ON_TOP) const_iv (INS_BELOW_ORIGINATOR) const_iv (INS_MAP_LOAD)	1387	const_iv (INS_ON_TOP) const_iv (INS_BELOW_ORIGINATOR)
1354		1388
1355	const_iv (WILL_APPLY_HANDLE) const_iv (WILL_APPLY_TREASURE) const_iv (WILL_APPLY_EARTHWALL)	1389	const_iv (WILL_APPLY_HANDLE) const_iv (WILL_APPLY_TREASURE) const_iv (WILL_APPLY_EARTHWALL)
1356	const_iv (WILL_APPLY_DOOR) const_iv (WILL_APPLY_FOOD)	1390	const_iv (WILL_APPLY_DOOR) const_iv (WILL_APPLY_FOOD)
1357		1391
1358	const_iv (SAVE_MODE) const_iv (SAVE_DIR_MODE)	1392	const_iv (SAVE_MODE) const_iv (SAVE_DIR_MODE)
…		…
1392	const_iv (ATNR_PARALYZE) const_iv (ATNR_TURN_UNDEAD) const_iv (ATNR_FEAR) const_iv (ATNR_CANCELLATION)	1426	const_iv (ATNR_PARALYZE) const_iv (ATNR_TURN_UNDEAD) const_iv (ATNR_FEAR) const_iv (ATNR_CANCELLATION)
1393	const_iv (ATNR_DEPLETE) const_iv (ATNR_DEATH) const_iv (ATNR_CHAOS) const_iv (ATNR_COUNTERSPELL)	1427	const_iv (ATNR_DEPLETE) const_iv (ATNR_DEATH) const_iv (ATNR_CHAOS) const_iv (ATNR_COUNTERSPELL)
1394	const_iv (ATNR_GODPOWER) const_iv (ATNR_HOLYWORD) const_iv (ATNR_BLIND) const_iv (ATNR_INTERNAL)	1428	const_iv (ATNR_GODPOWER) const_iv (ATNR_HOLYWORD) const_iv (ATNR_BLIND) const_iv (ATNR_INTERNAL)
1395	const_iv (ATNR_LIFE_STEALING) const_iv (ATNR_DISEASE)	1429	const_iv (ATNR_LIFE_STEALING) const_iv (ATNR_DISEASE)
1396		1430
1397	const_iv (MAP_IN_MEMORY) const_iv (MAP_SWAPPED) const_iv (MAP_LOADING) const_iv (MAP_SAVING)	1431	const_iv (MAP_ACTIVE) const_iv (MAP_SWAPPED) const_iv (MAP_LOADING) const_iv (MAP_SAVING)
		1432	const_iv (MAP_INACTIVE)
1398		1433
1399	const_iv (KLASS_ATTACHABLE) const_iv (KLASS_GLOBAL) const_iv (KLASS_OBJECT)	1434	const_iv (KLASS_ATTACHABLE) const_iv (KLASS_GLOBAL) const_iv (KLASS_OBJECT)
1400	const_iv (KLASS_CLIENT) const_iv (KLASS_PLAYER) const_iv (KLASS_MAP)	1435	const_iv (KLASS_CLIENT) const_iv (KLASS_PLAYER) const_iv (KLASS_MAP)
		1436
		1437	const_iv (VERSION_CS) const_iv (VERSION_SC)
1401		1438
1402	const_iv (CS_QUERY_YESNO) const_iv (CS_QUERY_SINGLECHAR) const_iv (CS_QUERY_HIDEINPUT)	1439	const_iv (CS_QUERY_YESNO) const_iv (CS_QUERY_SINGLECHAR) const_iv (CS_QUERY_HIDEINPUT)
1403		1440
1404	const_iv (ST_DEAD) const_iv (ST_SETUP) const_iv (ST_PLAYING) const_iv (ST_CUSTOM)	1441	const_iv (ST_DEAD) const_iv (ST_SETUP) const_iv (ST_PLAYING) const_iv (ST_CUSTOM)
1405		1442
…		…
1415		1452
1416	const_iv (SYMMETRY_RANDOM) const_iv (SYMMETRY_NONE) const_iv (SYMMETRY_X)	1453	const_iv (SYMMETRY_RANDOM) const_iv (SYMMETRY_NONE) const_iv (SYMMETRY_X)
1417	const_iv (SYMMETRY_Y) const_iv (SYMMETRY_XY)	1454	const_iv (SYMMETRY_Y) const_iv (SYMMETRY_XY)
1418		1455
1419	const_iv (GT_ENVIRONMENT) const_iv (GT_INVISIBLE) const_iv (GT_STARTEQUIP)	1456	const_iv (GT_ENVIRONMENT) const_iv (GT_INVISIBLE) const_iv (GT_STARTEQUIP)
1420	const_iv (GT_APPLY) const_iv (GT_ONLY_GOOD) const_iv (GT_UPDATE_INV)	1457	const_iv (GT_APPLY) const_iv (GT_ONLY_GOOD) const_iv (GT_MINIMAL)
1421	const_iv (GT_MINIMAL)	1458
		1459	const_iv (FT_FACE) const_iv (FT_MUSIC) const_iv (FT_SOUND)
		1460	const_iv (FT_RSRC) const_iv (FT_NUM)
1422	};	1461	};
1423		1462
1424	for (civ = const_iv + sizeof (const_iv) / sizeof (const_iv [0]); civ-- > const_iv; )	1463	for (civ = const_iv + sizeof (const_iv) / sizeof (const_iv [0]); civ-- > const_iv; )
1425	newCONSTSUB (stash_cf, (char *)civ->name, newSViv (civ->iv));	1464	newCONSTSUB (stash_cf, (char *)civ->name, newSViv (civ->iv));
1426		1465
…		…
1460		1499
1461	for_all_objects (op)	1500	for_all_objects (op)
1462	op->reattach ();	1501	op->reattach ();
1463	}	1502	}
1464		1503
1465	void _post_tick ()
1466	CODE:
1467	coroapi::next_cede = SvNV (sv_next_tick) - TICK * (1. - 1. / CEDES_PER_TICK);
1468
1469	# support function for map-world.ext	1504	# support function for map-world.ext
1470	void _quantise (SV data_sv, SV plt_sv)	1505	void _quantise (SV data_sv, SV plt_sv)
1471	CODE:	1506	CODE:
1472	{	1507	{
1473	if (!SvROK (plt_sv) \|\| SvTYPE (SvRV (plt_sv)) != SVt_PVAV)	1508	if (!SvROK (plt_sv) \|\| SvTYPE (SvRV (plt_sv)) != SVt_PVAV)
…		…
1506	}	1541	}
1507		1542
1508	SvCUR_set (data_sv, dst - SvPVX (data_sv));	1543	SvCUR_set (data_sv, dst - SvPVX (data_sv));
1509	}	1544	}
1510		1545
		1546	void evthread_start (int aiofd)
		1547
		1548	void cede_to_tick ()
		1549	CODE:
		1550	coroapi::cede_to_tick ();
		1551
		1552	NV till_tick ()
		1553	CODE:
		1554	RETVAL = SvNVX (sv_next_tick) - now ();
		1555	OUTPUT:
		1556	RETVAL
		1557
		1558	int tick_inhibit ()
		1559	CODE:
		1560	RETVAL = tick_inhibit;
		1561	OUTPUT:
		1562	RETVAL
		1563
		1564	void tick_inhibit_inc ()
		1565	CODE:
		1566	++tick_inhibit;
		1567
		1568	void tick_inhibit_dec ()
		1569	CODE:
		1570	if (!--tick_inhibit)
		1571	if (tick_pending)
		1572	{
		1573	ev_async_send (EV_DEFAULT, &tick_watcher);
		1574	coroapi::cede ();
		1575	}
		1576
		1577	void server_tick ()
		1578	CODE:
		1579	{
		1580	NOW = ev_now (EV_DEFAULT);
		1581	SvNV_set (sv_now, NOW); SvNOK_only (sv_now);
		1582	SvNV_set (sv_tick_start, NOW); SvNOK_only (sv_tick_start);
		1583	runtime = SvNVX (sv_runtime);
		1584
		1585	server_tick ();
		1586
		1587	NOW = ev_time ();
		1588	SvNV_set (sv_now, NOW); SvNOK_only (sv_now);
		1589	runtime += TICK;
		1590	SvNV_set (sv_runtime, runtime); SvNOK_only (sv_runtime);
		1591	}
		1592
1511	NV floor (NV x)	1593	NV floor (NV x)
1512		1594
1513	NV ceil (NV x)	1595	NV ceil (NV x)
1514		1596
1515	NV rndm (...)	1597	NV rndm (...)
		1598	ALIAS:
		1599	rmg_rndm = 1
1516	CODE:	1600	CODE:
		1601	{
		1602	rand_gen &gen = ix ? rmg_rndm : rndm;
1517	switch (items)	1603	switch (items)
1518	{	1604	{
1519	case 0: RETVAL = rndm (); break;	1605	case 0: RETVAL = gen (); break;
1520	case 1: RETVAL = rndm (SvUV (ST (0))); break;	1606	case 1: RETVAL = gen (SvUV (ST (0))); break;
1521	case 2: RETVAL = rndm (SvIV (ST (0)), SvIV (ST (1))); break;	1607	case 2: RETVAL = gen (SvIV (ST (0)), SvIV (ST (1))); break;
1522	default: croak ("cf::rndm requires none, one or two parameters."); break;	1608	default: croak ("cf::rndm requires none, one or two parameters."); break;
1523	}	1609	}
		1610	}
1524	OUTPUT:	1611	OUTPUT:
1525	RETVAL	1612	RETVAL
1526		1613
1527	NV clamp (NV value, NV min_value, NV max_value)	1614	NV clamp (NV value, NV min_value, NV max_value)
1528	CODE:	1615	CODE:
…		…
1534	CODE:	1621	CODE:
1535	RETVAL = lerp (value, min_in, max_in, min_out, max_out);	1622	RETVAL = lerp (value, min_in, max_in, min_out, max_out);
1536	OUTPUT:	1623	OUTPUT:
1537	RETVAL	1624	RETVAL
1538		1625
1539	void cede_to_tick ()	1626	void weaken (...)
1540	CODE:	1627	PROTOTYPE: @
1541	coroapi::cede_to_tick ();	1628	CODE:
1542		1629	while (items > 0)
1543	void server_tick ()	1630	sv_rvweaken (ST (--items));
1544	CODE:
1545	runtime = SvNVx (sv_runtime);
1546	server_tick ();
1547		1631
1548	void	1632	void
1549	log_backtrace (utf8_string msg)	1633	log_backtrace (utf8_string msg)
1550		1634
1551	void	1635	void
…		…
1556	octet_string path_combine (octet_string base, octet_string path)	1640	octet_string path_combine (octet_string base, octet_string path)
1557	PROTOTYPE: $$	1641	PROTOTYPE: $$
1558		1642
1559	octet_string path_combine_and_normalize (octet_string base, octet_string path)	1643	octet_string path_combine_and_normalize (octet_string base, octet_string path)
1560	PROTOTYPE: $$	1644	PROTOTYPE: $$
1561
1562	const_octet_string
1563	get_maps_directory (octet_string path)
1564	PROTOTYPE: $
1565	ALIAS: maps_directory = 0
1566	CODE:
1567	RETVAL = create_pathname (path);
1568	OUTPUT: RETVAL
1569		1645
1570	void	1646	void
1571	sub_generation_inc ()	1647	sub_generation_inc ()
1572	CODE:	1648	CODE:
1573	PL_sub_generation++;	1649	PL_sub_generation++;
…		…
1598		1674
1599	void abort ()	1675	void abort ()
1600		1676
1601	void reset_signals ()	1677	void reset_signals ()
1602		1678
1603	void fork_abort (octet_string cause = "cf::fork_abort")	1679	void fork_abort (const_octet_string cause = "cf::fork_abort")
1604		1680
1605	void cleanup (octet_string cause, bool make_core = false)	1681	void cleanup (const_octet_string cause, bool make_core = false)
1606		1682
1607	void emergency_save ()	1683	void emergency_save ()
1608		1684
1609	void _exit (int status = EXIT_SUCCESS)	1685	void _exit (int status = EXIT_SUCCESS)
1610		1686
1611	UV sv_2watcher (SV *w)
1612	CODE:
1613	RETVAL = (UV)GEventAPI->sv_2watcher (w);
1614	OUTPUT:
1615	RETVAL
1616
1617	#if _POSIX_MEMLOCK	1687	#if _POSIX_MEMLOCK
1618		1688
1619	int mlockall (int flags = MCL_CURRENT \| MCL_FUTURE)	1689	int mlockall (int flags = MCL_CURRENT \| MCL_FUTURE)
		1690	INIT:
		1691	#if __GLIBC__
		1692	mallopt (M_PERTURB, 0xee); // bug-workaround for linux glibc+mlockall+calloc
		1693	#endif
1620		1694
1621	int munlockall ()	1695	int munlockall ()
1622		1696
1623	#endif	1697	#endif
		1698
		1699	int
		1700	malloc_trim (IV pad = 0)
		1701
		1702	void
		1703	mallinfo ()
		1704	PPCODE:
		1705	{
		1706	#if __GLIBC__
		1707	struct mallinfo mai = mallinfo ();
		1708	EXTEND (SP, 10*2);
		1709	PUSHs (sv_2mortal (newSVpv ("arena" , 0))); PUSHs (sv_2mortal (newSViv (mai.arena)));
		1710	PUSHs (sv_2mortal (newSVpv ("ordblks" , 0))); PUSHs (sv_2mortal (newSViv (mai.ordblks)));
		1711	PUSHs (sv_2mortal (newSVpv ("smblks" , 0))); PUSHs (sv_2mortal (newSViv (mai.smblks)));
		1712	PUSHs (sv_2mortal (newSVpv ("hblks" , 0))); PUSHs (sv_2mortal (newSViv (mai.hblks)));
		1713	PUSHs (sv_2mortal (newSVpv ("hblkhd" , 0))); PUSHs (sv_2mortal (newSViv (mai.hblkhd)));
		1714	PUSHs (sv_2mortal (newSVpv ("usmblks" , 0))); PUSHs (sv_2mortal (newSViv (mai.usmblks)));
		1715	PUSHs (sv_2mortal (newSVpv ("fsmblks" , 0))); PUSHs (sv_2mortal (newSViv (mai.fsmblks)));
		1716	PUSHs (sv_2mortal (newSVpv ("uordblks", 0))); PUSHs (sv_2mortal (newSViv (mai.uordblks)));
		1717	PUSHs (sv_2mortal (newSVpv ("fordblks", 0))); PUSHs (sv_2mortal (newSViv (mai.fordblks)));
		1718	PUSHs (sv_2mortal (newSVpv ("keepcost", 0))); PUSHs (sv_2mortal (newSViv (mai.keepcost)));
		1719	#endif
		1720	EXTEND (SP, 2*2);
		1721	PUSHs (sv_2mortal (newSVpv ("slice_alloc", 0))); PUSHs (sv_2mortal (newSVuv (slice_alloc)));
		1722	PUSHs (sv_2mortal (newSVpv ("shstr_alloc", 0))); PUSHs (sv_2mortal (newSVuv (shstr_alloc)));
		1723	PUSHs (sv_2mortal (newSVpv ("objects" , 0))); PUSHs (sv_2mortal (newSVuv (objects.size () * sizeof (object))));
		1724	}
1624		1725
1625	int find_animation (utf8_string text)	1726	int find_animation (utf8_string text)
1626	PROTOTYPE: $	1727	PROTOTYPE: $
1627		1728
1628	int random_roll (int min, int max, object *op, int goodbad);	1729	int random_roll (int min, int max, object *op, int goodbad);
…		…
1666	RETVAL = newSVpv (resist_plus[atnr], 0);	1767	RETVAL = newSVpv (resist_plus[atnr], 0);
1667	else	1768	else
1668	XSRETURN_UNDEF;	1769	XSRETURN_UNDEF;
1669	OUTPUT: RETVAL	1770	OUTPUT: RETVAL
1670		1771
		1772	UUID
		1773	uuid_cur ()
		1774	CODE:
		1775	RETVAL = UUID::cur;
		1776	OUTPUT:
		1777	RETVAL
		1778
		1779	UUID
		1780	uuid_gen ()
		1781	CODE:
		1782	RETVAL = UUID::gen ();
		1783	OUTPUT:
		1784	RETVAL
		1785
		1786	val64
		1787	uuid_seq (UUID uuid)
		1788	CODE:
		1789	RETVAL = uuid.seq;
		1790	OUTPUT:
		1791	RETVAL
		1792
		1793	UUID
		1794	uuid_str (val64 seq)
		1795	CODE:
		1796	RETVAL.seq = seq;
		1797	OUTPUT:
		1798	RETVAL
		1799
		1800	void
		1801	coin_names ()
		1802	PPCODE:
		1803	EXTEND (SP, NUM_COINS);
		1804	for (int i = 0; i < NUM_COINS; ++i)
		1805	PUSHs (sv_2mortal (newSVpv (coins [i], 0)));
		1806
		1807	void
		1808	coin_archetypes ()
		1809	PPCODE:
		1810	EXTEND (SP, NUM_COINS);
		1811	for (int i = 0; i < NUM_COINS; ++i)
		1812	PUSHs (sv_2mortal (to_sv (archetype::find (coins [i]))));
		1813
1671	bool	1814	bool
1672	load_resource_file (octet_string filename)	1815	load_resource_file_ (octet_string filename)
		1816
		1817	void
		1818	fix_weight ()
1673		1819
1674	MODULE = cf PACKAGE = cf::attachable	1820	MODULE = cf PACKAGE = cf::attachable
1675		1821
1676	int	1822	int
1677	valid (SV *obj)	1823	valid (SV *obj)
…		…
1695	#object *mortals (U32 index)	1841	#object *mortals (U32 index)
1696	# CODE:	1842	# CODE:
1697	# RETVAL = index < attachable::mortals.size () ? attachable::mortals [index] : 0;	1843	# RETVAL = index < attachable::mortals.size () ? attachable::mortals [index] : 0;
1698	# OUTPUT: RETVAL	1844	# OUTPUT: RETVAL
1699		1845
1700	INCLUDE: $PERL $srcdir/genacc attachable ../include/cfperl.h \|	1846	INCLUDE: $PERL $srcdir/genacc attachable ../include/util.h ../include/cfperl.h \|
1701		1847
1702	MODULE = cf PACKAGE = cf::global	1848	MODULE = cf PACKAGE = cf::global
1703		1849
1704	int invoke (SV *klass, int event, ...)	1850	int invoke (SV *klass, int event, ...)
1705	CODE:	1851	CODE:
…		…
1741	object *actives (U32 index)	1887	object *actives (U32 index)
1742	CODE:	1888	CODE:
1743	RETVAL = index < actives.size () ? actives [index] : 0;	1889	RETVAL = index < actives.size () ? actives [index] : 0;
1744	OUTPUT: RETVAL	1890	OUTPUT: RETVAL
1745		1891
		1892	int mortals_size ()
		1893	CODE:
		1894	RETVAL = attachable::mortals.size ();
		1895	OUTPUT: RETVAL
		1896
1746	const char *slot_use_name (U32 slot)	1897	const char *slot_use_name (U32 slot)
1747	ALIAS:	1898	ALIAS:
1748	slot_nonuse_name = 1	1899	slot_nonuse_name = 1
1749	CODE:	1900	CODE:
1750	{	1901	{
…		…
1766	PROTOTYPE: $	1917	PROTOTYPE: $
1767	CODE:	1918	CODE:
1768	RETVAL = op->head_ ();	1919	RETVAL = op->head_ ();
1769	OUTPUT: RETVAL	1920	OUTPUT: RETVAL
1770		1921
1771	int is_head (object *op)
1772	PROTOTYPE: $
1773	CODE:
1774	RETVAL = op->head_ () == op;
1775	OUTPUT: RETVAL
1776
1777	void	1922	void
1778	inv (object *obj)	1923	inv (object *obj)
1779	PROTOTYPE: $	1924	PROTOTYPE: $
1780	PPCODE:	1925	PPCODE:
1781	{	1926	{
1782	object *o;
1783	for (o = obj->inv; o; o = o->below)	1927	for (object *o = obj->inv; o; o = o->below)
1784	XPUSHs (sv_2mortal (to_sv (o)));	1928	XPUSHs (sv_2mortal (to_sv (o)));
1785	}	1929	}
1786		1930
1787	void	1931	void
1788	set_animation (object *op, int idx)	1932	set_animation (object *op, int idx)
…		…
1820		1964
1821	int need_identify (object *obj);	1965	int need_identify (object *obj);
1822		1966
1823	int apply_shop_mat (object shop_mat, object op);	1967	int apply_shop_mat (object shop_mat, object op);
1824		1968
1825	int move_player (object *op, int dir)
1826	CODE:
1827	RETVAL = move_player (op, dir);
1828	OUTPUT:
1829	RETVAL
1830
1831	int move (object op, int dir, object originator = op)	1969	int move (object op, int dir, object originator = op)
1832	CODE:	1970	CODE:
1833	RETVAL = move_ob (op, dir, originator);	1971	RETVAL = move_ob (op, dir, originator);
1834	OUTPUT:	1972	OUTPUT:
1835	RETVAL	1973	RETVAL
…		…
1842	CODE:	1980	CODE:
1843	player_apply_below (op);	1981	player_apply_below (op);
1844		1982
1845	int cast_heal (object op, object caster, object *spell, int dir = 0)	1983	int cast_heal (object op, object caster, object *spell, int dir = 0)
1846		1984
1847	object cf_object_present_archname_inside (object op, utf8_string whatstr)
1848
1849	int cf_object_transfer (object op, int x, int y, int r = 0, object_ornull orig = 0)
1850
1851	int cf_object_change_map (object op, int x, int y, maptile map)
1852
1853	#//TODO
1854	object clone_ (object op, int recursive = 0)
1855	CODE:
1856	if (recursive)
1857	RETVAL = object_create_clone (op);
1858	else
1859	{
1860	RETVAL = object::create ();
1861	op->copy_to (RETVAL);
1862	}
1863	OUTPUT: RETVAL
1864
1865	int pay_item (object op, object buyer)	1985	int pay_item (object op, object buyer)
1866	CODE:	1986	CODE:
1867	RETVAL = pay_for_item (op, buyer);	1987	RETVAL = pay_for_item (op, buyer);
1868	OUTPUT: RETVAL	1988	OUTPUT: RETVAL
1869		1989
…		…
1903		2023
1904	void drop (object who, object op)	2024	void drop (object who, object op)
1905		2025
1906	void pick_up (object who, object op)	2026	void pick_up (object who, object op)
1907		2027
1908	int cf_object_teleport (object op, maptile map, int x, int y)
1909
1910	void update_object (object *op, int action)	2028	void update_object (object *op, int action)
1911		2029
1912	object *cf_create_object_by_name (utf8_string name)
1913
1914	void change_exp (object *op, uint64 exp, utf8_string skill_name = 0, int flag = 0)	2030	void change_exp (object *op, uint64 exp, utf8_string skill_name = 0, int flag = 0)
1915		2031
1916	void player_lvl_adj (object who, object skill = 0)	2032	void player_lvl_adj (object who, object skill = 0)
1917		2033
1918	int kill_object (object op, int dam = 0, object hitter = 0, int type = AT_PHYSICAL)	2034	int kill_object (object op, int dam = 0, object hitter = 0, int type = AT_PHYSICAL)
…		…
1925		2041
1926	void add_button_link (object button, maptile map, int connected);	2042	void add_button_link (object button, maptile map, int connected);
1927		2043
1928	void remove_button_link (object *op);	2044	void remove_button_link (object *op);
1929		2045
		2046	void handle_apply_yield (object *op);
		2047
1930		2048
1931	MODULE = cf PACKAGE = cf::object PREFIX = cf_	2049	MODULE = cf PACKAGE = cf::object PREFIX = cf_
1932
1933	object cf_insert_ob_in_ob (object ob, object *where)
1934		2050
1935	# no clean way to get an object from an archetype - stupid idiotic	2051	# no clean way to get an object from an archetype - stupid idiotic
1936	# dumb kludgy misdesigned plug-in api slowly gets on my nerves.	2052	# dumb kludgy misdesigned plug-in api slowly gets on my nerves.
1937		2053
1938	object *new (utf8_string archetype = 0)	2054	object *new (utf8_string archetype = 0)
1939	PROTOTYPE: ;$	2055	PROTOTYPE: ;$
1940	CODE:	2056	CODE:
1941	RETVAL = archetype ? get_archetype (archetype) : cf_create_object ();	2057	RETVAL = archetype ? get_archetype (archetype) : object::create ();
1942	OUTPUT:	2058	OUTPUT:
1943	RETVAL	2059	RETVAL
1944		2060
		2061	object *find_object (U32 tag)
		2062
		2063	# TODO: nuke
1945	object insert_ob_in_map_at (object ob, maptile where, object_ornull orig, int flag, int x, int y)	2064	object insert_ob_in_map_at (object ob, maptile where, object_ornull orig, int flag, int x, int y)
1946	PROTOTYPE: $$$$$$	2065	PROTOTYPE: $$$$$$
1947	CODE:	2066	CODE:
1948	{	2067	{
1949	int unused_type;	2068	RETVAL = insert_ob_in_map_at (ob, where, orig, flag, x, y);
1950	RETVAL = (object *)object_insert (&unused_type, ob, 0, where, orig, flag, x, y);
1951	}	2069	}
1952		2070
1953	player contr (object op)	2071	shstr
1954	CODE:	2072	object::kv_get (shstr key)
1955	RETVAL = op->contr;
1956	OUTPUT: RETVAL
1957		2073
1958	const_utf8_string get_ob_key_value (object *op, utf8_string key)	2074	void
		2075	object::kv_del (shstr key)
1959		2076
1960	bool set_ob_key_value (object *op, utf8_string key, utf8_string value = 0, int add_key = 1)	2077	void
		2078	object::kv_set (shstr key, shstr value)
1961		2079
1962	object get_nearest_player (object ob)	2080	object get_nearest_player (object ob)
1963	ALIAS: nearest_player = 0	2081	ALIAS: nearest_player = 0
1964	PREINIT:	2082	PREINIT:
1965	extern object get_nearest_player (object );	2083	extern object get_nearest_player (object );
…		…
1973	EXTEND (SP, 5);	2091	EXTEND (SP, 5);
1974	PUSHs (newSVuv (rv.distance));	2092	PUSHs (newSVuv (rv.distance));
1975	PUSHs (newSViv (rv.distance_x));	2093	PUSHs (newSViv (rv.distance_x));
1976	PUSHs (newSViv (rv.distance_y));	2094	PUSHs (newSViv (rv.distance_y));
1977	PUSHs (newSViv (rv.direction));	2095	PUSHs (newSViv (rv.direction));
1978	PUSHs (newSVcfapi (CFAPI_POBJECT, rv.part));	2096	PUSHs (to_sv (rv.part));
1979	}	2097	}
1980		2098
1981	bool on_same_map_as (object ob, object other)	2099	bool on_same_map_as (object ob, object other)
1982	CODE:	2100	CODE:
1983	RETVAL = on_same_map (ob, other);	2101	RETVAL = on_same_map (ob, other);
…		…
1987	base_name (object *op, int plural = op->nrof > 1)	2105	base_name (object *op, int plural = op->nrof > 1)
1988	CODE:	2106	CODE:
1989	RETVAL = query_base_name (op, plural);	2107	RETVAL = query_base_name (op, plural);
1990	OUTPUT: RETVAL	2108	OUTPUT: RETVAL
1991		2109
1992	object decrease_ob_nr (object op, unsigned long i)	2110	# return the tail of an object, excluding itself
		2111	void
		2112	tail (object *op)
		2113	PPCODE:
		2114	while ((op = op->more))
		2115	XPUSHs (sv_2mortal (to_sv (op)));
1993		2116
1994	MODULE = cf PACKAGE = cf::object::player PREFIX = cf_player_	2117	MODULE = cf PACKAGE = cf::object::player PREFIX = cf_player_
1995		2118
1996	player player (object op)	2119	player player (object op)
1997	CODE:	2120	CODE:
1998	RETVAL = op->contr;	2121	RETVAL = op->contr;
1999	OUTPUT: RETVAL	2122	OUTPUT: RETVAL
2000		2123
		2124	bool move_player (object *op, int dir)
		2125
2001	void check_score (object *op)	2126	void check_score (object *op)
2002		2127
2003	void message (object *op, utf8_string txt, int flags = NDI_ORANGE \| NDI_UNIQUE)	2128	void message (object *op, utf8_string txt, int flags = NDI_ORANGE \| NDI_UNIQUE)
2004	CODE:	2129	CODE:
2005	new_draw_info (flags, 0, op, txt);	2130	new_draw_info (flags, 0, op, txt);
2006		2131
2007	void kill_player (object *op)	2132	void kill_player (object *op)
2008		2133
		2134	void esrv_send_item (object pl, object item)
		2135
2009	void esrv_update_item (object op, int what, object item)	2136	void esrv_update_item (object pl, int what, object item)
2010	C_ARGS: what, op, item	2137	C_ARGS: what, pl, item
2011		2138
2012	void clear_los (object *op)	2139	void esrv_del_item (object *pl, int tag)
		2140	C_ARGS: pl->contr, tag
2013		2141
2014	int command_summon (object *op, utf8_string params)	2142	int command_summon (object *op, utf8_string params)
2015		2143
2016	int command_arrest (object *op, utf8_string params)	2144	int command_arrest (object *op, utf8_string params)
2017		2145
…		…
2036	pl->ob->stats.hp = pl->ob->stats.maxhp;	2164	pl->ob->stats.hp = pl->ob->stats.maxhp;
2037	pl->ob->stats.sp = pl->ob->stats.maxsp;	2165	pl->ob->stats.sp = pl->ob->stats.maxsp;
2038	pl->ob->stats.grace = pl->ob->stats.maxgrace;	2166	pl->ob->stats.grace = pl->ob->stats.maxgrace;
2039	pl->orig_stats = pl->ob->stats;	2167	pl->orig_stats = pl->ob->stats;
2040		2168
2041	void cf_player_move (player *pl, int dir)	2169	void clear_los (player *pl)
2042
2043	void play_sound_player_only (player *pl, int soundnum, int x = 0, int y = 0);
2044		2170
2045	bool	2171	bool
2046	cell_visible (player *pl, int dx, int dy)	2172	cell_visible (player *pl, int dx, int dy)
2047	CODE:	2173	CODE:
2048	RETVAL = FABS (dx) <= pl->ns->mapx / 2 && FABS (dy) <= pl->ns->mapy / 2	2174	RETVAL = FABS (dx) <= pl->ns->mapx / 2 && FABS (dy) <= pl->ns->mapy / 2
…		…
2055	CODE:	2181	CODE:
2056	{	2182	{
2057	STRLEN len;	2183	STRLEN len;
2058	char *buf = SvPVbyte (packet, len);	2184	char *buf = SvPVbyte (packet, len);
2059		2185
		2186	if (len > MAXSOCKBUF)
		2187	pl->failmsg ("[packet too long for client]");
2060	if (pl->ns)	2188	else if (pl->ns)
2061	pl->ns->send_packet (buf, len);	2189	pl->ns->send_packet (buf, len);
2062	}	2190	}
2063		2191
2064	int	2192	int
2065	listening (player *pl, int new_value = -1)	2193	listening (player *pl, int new_value = -1)
…		…
2101	RETVAL = map->invoke ((event_type)event, ARG_AV (av), DT_END);	2229	RETVAL = map->invoke ((event_type)event, ARG_AV (av), DT_END);
2102	OUTPUT: RETVAL	2230	OUTPUT: RETVAL
2103		2231
2104	SV registry (maptile map)	2232	SV registry (maptile map)
2105		2233
		2234	void
		2235	find_tagged_objects (maptile *map, utf8_string tag = 0)
		2236	PPCODE:
		2237	{
		2238	if (!map->spaces)
		2239	XSRETURN_EMPTY;
		2240
		2241	if (tag)
		2242	{
		2243	shstr_cmp tag_ (tag);
		2244
		2245	for (mapspace *ms = map->spaces + map->size (); ms-- > map->spaces; )
		2246	for (object *op = ms->bot; op; op = op->above)
		2247	if (op->tag == tag_)
		2248	XPUSHs (sv_2mortal (to_sv (op)));
		2249	}
		2250	else
		2251	{
		2252	for (mapspace *ms = map->spaces + map->size (); ms-- > map->spaces; )
		2253	for (object *op = ms->bot; op; op = op->above)
		2254	if (op->tag)
		2255	XPUSHs (sv_2mortal (to_sv (op)));
		2256	}
		2257	}
		2258
2106	INCLUDE: $PERL $srcdir/genacc maptile ../include/map.h \|	2259	INCLUDE: $PERL $srcdir/genacc maptile ../include/map.h \|
2107		2260
2108	void	2261	void
2109	maptile::instantiate ()	2262	maptile::instantiate ()
2110		2263
…		…
2187	palette = SvRV (palette);	2340	palette = SvRV (palette);
2188		2341
2189	STRLEN idxlen;	2342	STRLEN idxlen;
2190	const uint8_t idx = (const uint8_t )SvPVbyte (data, idxlen);	2343	const uint8_t idx = (const uint8_t )SvPVbyte (data, idxlen);
2191		2344
2192	region regionmap = (region )malloc (	2345	region_ptr regionmap = new region_ptr [av_len ((AV )palette) + 1];
2193	(av_len ((AV )palette) + 1) sizeof (region *));
2194	uint8_t *regions = salloc<uint8_t> (THIS->size ());	2346	uint8_t *regions = salloc<uint8_t> (THIS->size ());
2195		2347
2196	for (int i = av_len ((AV *)palette) + 1; i--; )	2348	for (int i = av_len ((AV *)palette) + 1; i--; )
2197	regionmap [i] = region::find (	2349	regionmap [i] = region::find (SvPVutf8_nolen (av_fetch ((AV )palette, i, 1)));
2198	SvPVutf8_nolen (av_fetch ((AV )palette, i, 1)));
2199		2350
2200	for (int y = 0; y < THIS->height; ++y)	2351	for (int y = 0; y < THIS->height; ++y)
2201	memcpy (regions + y * THIS->width, idx + offset + y * stride, THIS->width);	2352	memcpy (regions + y * THIS->width, idx + offset + y * stride, THIS->width);
2202		2353
2203	sfree (THIS->regions, THIS->size ());	2354	sfree (THIS->regions, THIS->size ());
2204	free (THIS->regionmap);	2355	delete [] THIS->regionmap;
2205		2356
2206	THIS->regions = regions;	2357	THIS->regions = regions;
2207	THIS->regionmap = regionmap;	2358	THIS->regionmap = regionmap;
2208	}	2359	}
2209		2360
…		…
2230	}	2381	}
2231		2382
2232	op->destroy ();	2383	op->destroy ();
2233	}	2384	}
2234		2385
2235	void play_sound_map (maptile *map, int x, int y, int sound_num)
2236
2237	int out_of_map (maptile *map, int x, int y)	2386	int out_of_map (maptile *map, int x, int y)
2238		2387
2239	void	2388	void
2240	trigger (maptile *map, long connection, bool state = true)	2389	trigger (maptile *map, long connection, bool state = true)
2241	CODE:	2390	CODE:
…		…
2245	get_connection (maptile *map, long connection)	2394	get_connection (maptile *map, long connection)
2246	PPCODE:	2395	PPCODE:
2247	oblinkpt *obp = get_connection_links (map, connection);	2396	oblinkpt *obp = get_connection_links (map, connection);
2248	if (obp)	2397	if (obp)
2249	for (objectlink *ol = obp->link; ol; ol = ol->next)	2398	for (objectlink *ol = obp->link; ol; ol = ol->next)
2250	XPUSHs (sv_2mortal (newSVcfapi (CFAPI_POBJECT, (object *)ol->ob)));	2399	XPUSHs (sv_2mortal (to_sv ((object *)ol->ob)));
2251
2252	object cf_map_insert_object_there (maptile where, object op, object originator, int flags)
2253
2254	object cf_map_insert_object (maptile where, object* op, int x, int y)
2255
2256	object* cf_map_present_arch_by_name (maptile map, const char str, int nx, int ny)
2257	C_ARGS: str, map, nx, ny
2258		2400
2259	void	2401	void
2260	get_map_flags (maptile *map, int x, int y)	2402	get_map_flags (maptile *map, int x, int y)
2261	PPCODE:	2403	PPCODE:
2262	{	2404	{
…		…
2267	EXTEND (SP, 4);	2409	EXTEND (SP, 4);
2268	PUSHs (sv_2mortal (newSViv (flags)));	2410	PUSHs (sv_2mortal (newSViv (flags)));
2269		2411
2270	if (GIMME_V == G_ARRAY)	2412	if (GIMME_V == G_ARRAY)
2271	{	2413	{
2272	PUSHs (sv_2mortal (newSVcfapi (CFAPI_PMAP, nmap)));	2414	PUSHs (sv_2mortal (to_sv (nmap)));
2273	PUSHs (sv_2mortal (newSViv (nx)));	2415	PUSHs (sv_2mortal (newSViv (nx)));
2274	PUSHs (sv_2mortal (newSViv (ny)));	2416	PUSHs (sv_2mortal (newSViv (ny)));
2275	}	2417	}
2276	}	2418	}
2277		2419
…		…
2286		2428
2287	get_map_flags (map, &nmap, x, y, &nx, &ny);	2429	get_map_flags (map, &nmap, x, y, &nx, &ny);
2288		2430
2289	if (nmap)	2431	if (nmap)
2290	for (o = GET_MAP_OB (nmap, nx, ny); o; o = o->above)	2432	for (o = GET_MAP_OB (nmap, nx, ny); o; o = o->above)
2291	XPUSHs (sv_2mortal (newSVcfapi (CFAPI_POBJECT, o)));	2433	XPUSHs (sv_2mortal (to_sv (o)));
2292	}	2434	}
2293		2435
2294	SV *	2436	SV *
2295	bot_at (maptile *obj, unsigned int x, unsigned int y)	2437	bot_at (maptile *obj, unsigned int x, unsigned int y)
2296	PROTOTYPE: $$$	2438	PROTOTYPE: $$$
…		…
2305	INIT:	2447	INIT:
2306	if (x >= obj->width \|\| y >= obj->height) XSRETURN_UNDEF;	2448	if (x >= obj->width \|\| y >= obj->height) XSRETURN_UNDEF;
2307	CODE:	2449	CODE:
2308	switch (ix)	2450	switch (ix)
2309	{	2451	{
2310	case 0: RETVAL = newSVcfapi (CFAPI_POBJECT, GET_MAP_OB (obj, x, y)); break;	2452	case 0: RETVAL = to_sv (GET_MAP_OB (obj, x, y)); break;
2311	case 1: RETVAL = newSVcfapi (CFAPI_POBJECT, GET_MAP_TOP (obj, x, y)); break;	2453	case 1: RETVAL = to_sv (GET_MAP_TOP (obj, x, y)); break;
2312	case 2: RETVAL = newSVuv ( GET_MAP_FLAGS (obj, x, y)); break;	2454	case 2: RETVAL = newSVuv (GET_MAP_FLAGS (obj, x, y)); break;
2313	case 3: RETVAL = newSViv ( GET_MAP_LIGHT (obj, x, y)); break;	2455	case 3: RETVAL = newSViv (GET_MAP_LIGHT (obj, x, y)); break;
2314	case 4: RETVAL = newSVuv ( GET_MAP_MOVE_BLOCK (obj, x, y)); break;	2456	case 4: RETVAL = newSVuv (GET_MAP_MOVE_BLOCK (obj, x, y)); break;
2315	case 5: RETVAL = newSVuv ( GET_MAP_MOVE_SLOW (obj, x, y)); break;	2457	case 5: RETVAL = newSVuv (GET_MAP_MOVE_SLOW (obj, x, y)); break;
2316	case 6: RETVAL = newSVuv ( GET_MAP_MOVE_ON (obj, x, y)); break;	2458	case 6: RETVAL = newSVuv (GET_MAP_MOVE_ON (obj, x, y)); break;
2317	case 7: RETVAL = newSVuv ( GET_MAP_MOVE_OFF (obj, x, y)); break;	2459	case 7: RETVAL = newSVuv (GET_MAP_MOVE_OFF (obj, x, y)); break;
2318	}	2460	}
2319	OUTPUT: RETVAL	2461	OUTPUT: RETVAL
2320		2462
2321	void fix_walls (maptile *map, int x, int y)	2463	void fix_walls (maptile *map, int x, int y)
2322		2464
…		…
2410	OUTPUT:	2552	OUTPUT:
2411	RETVAL	2553	RETVAL
2412		2554
2413	MODULE = cf PACKAGE = cf::arch	2555	MODULE = cf PACKAGE = cf::arch
2414		2556
2415	archetype *find (utf8_string name)	2557	int archetypes_size ()
2416	CODE:	2558	CODE:
2417	RETVAL = archetype::find (name);	2559	RETVAL = archetypes.size ();
2418	OUTPUT:
2419	RETVAL
2420
2421	archetype *first()
2422	PROTOTYPE:
2423	CODE:
2424	RETVAL = first_archetype;
2425	OUTPUT: RETVAL	2560	OUTPUT: RETVAL
		2561
		2562	archetype *archetypes (U32 index)
		2563	CODE:
		2564	RETVAL = index < archetypes.size () ? archetypes [index] : 0;
		2565	OUTPUT: RETVAL
2426		2566
2427	object instantiate (archetype arch)	2567	object instantiate (archetype arch)
2428	CODE:	2568	CODE:
2429	RETVAL = arch_to_object (arch);	2569	RETVAL = arch_to_object (arch);
2430	OUTPUT:	2570	OUTPUT:
…		…
2505	CODE:	2645	CODE:
2506	{	2646	{
2507	STRLEN len;	2647	STRLEN len;
2508	char *buf = SvPVbyte (packet, len);	2648	char *buf = SvPVbyte (packet, len);
2509		2649
		2650	if (len > MAXSOCKBUF)
		2651	{
		2652	// ugly
		2653	if (THIS->pl)
		2654	THIS->pl->failmsg ("[packet too long for client]");
		2655	}
		2656	else
2510	THIS->send_packet (buf, len);	2657	THIS->send_packet (buf, len);
2511	}	2658	}
		2659
		2660	faceidx
		2661	client::need_face (utf8_string name, int pri = 0)
		2662	CODE:
		2663	RETVAL = face_find (name, 0);
		2664	if (RETVAL)
		2665	{
		2666	THIS->send_face (RETVAL, pri);
		2667	THIS->flush_fx ();
		2668	}
		2669	OUTPUT:
		2670	RETVAL
		2671
		2672	int
		2673	client::fx_want (int idx, int value = -1)
		2674	CODE:
		2675	if (0 < idx && idx < FT_NUM)
		2676	{
		2677	RETVAL = THIS->fx_want [idx];
		2678	if (items > 2)
		2679	THIS->fx_want [idx] = value;
		2680	}
		2681	else
		2682	RETVAL = 0;
		2683	OUTPUT:
		2684	RETVAL
		2685
		2686	MODULE = cf PACKAGE = cf::sound PREFIX = sound_
		2687
		2688	faceidx sound_find (utf8_string name)
		2689
		2690	void sound_set (utf8_string str, faceidx face)
		2691
		2692	# dire hack
		2693	void old_sound_index (int idx, faceidx face)
		2694	CODE:
		2695	extern faceidx old_sound_index [SOUND_CAST_SPELL_0];
		2696	old_sound_index [idx] = face;
2512		2697
2513	MODULE = cf PACKAGE = cf::face PREFIX = face_	2698	MODULE = cf PACKAGE = cf::face PREFIX = face_
2514		2699
2515	#INCLUDE: $PERL $srcdir/genacc faceset ../include/face.h \|	2700	#INCLUDE: $PERL $srcdir/genacc faceset ../include/face.h \|
2516		2701
…		…
2532	if (!strcmp (name, BLANK_FACE_NAME)) blank_face = RETVAL;	2717	if (!strcmp (name, BLANK_FACE_NAME)) blank_face = RETVAL;
2533	if (!strcmp (name, EMPTY_FACE_NAME)) empty_face = RETVAL;	2718	if (!strcmp (name, EMPTY_FACE_NAME)) empty_face = RETVAL;
2534	}	2719	}
2535	OUTPUT: RETVAL	2720	OUTPUT: RETVAL
2536		2721
2537	void set (faceidx idx, int visibility, int magicmap)	2722	void set_type (faceidx idx, int value)
2538	CODE:	2723	ALIAS:
2539	faceinfo *f = face_info (idx);	2724	set_type = 0
2540	assert (f);	2725	set_visibility = 1
2541	f->visibility = visibility;	2726	set_magicmap = 2
2542	f->magicmap = magicmap;	2727	set_smooth = 3
2543		2728	set_smoothlevel = 4
2544	void set_smooth (faceidx idx, faceidx smooth, int smoothlevel)
2545	CODE:	2729	CODE:
2546	faceinfo *f = face_info (idx); assert (f);	2730	faceinfo *f = face_info (idx); assert (f);
2547	f->smooth = smooth;	2731	switch (ix)
2548	f->smoothlevel = smoothlevel;	2732	{
		2733	case 0: f->type = value; break;
		2734	case 1: f->visibility = value; break;
		2735	case 2: f->magicmap = value; break;
		2736	case 3: f->smooth = value; break;
		2737	case 4: f->smoothlevel = value; break;
		2738	}
2549		2739
2550	void set_data (faceidx idx, int faceset, SV data, SV chksum)	2740	void set_data (faceidx idx, int faceset, SV data, SV chksum)
2551	CODE:	2741	CODE:
2552	{	2742	{
2553	facedata *d = face_data (idx, faceset);	2743	faceinfo *f = face_info (idx); assert (f);
2554	assert (d);	2744	facedata *d = &(faceset ? f->data64 : f->data32);
2555	sv_to (data, d->data);	2745	sv_to (data, d->data);
2556	STRLEN clen;	2746	STRLEN clen;
2557	char *cdata = SvPVbyte (chksum, clen);	2747	char *cdata = SvPVbyte (chksum, clen);
2558	clen = min (CHKSUM_SIZE, clen);	2748	clen = min (CHKSUM_SIZE, clen);
2559		2749
…		…
2569	ns->force_newmap = true;	2759	ns->force_newmap = true;
2570	}	2760	}
2571	}	2761	}
2572	}	2762	}
2573		2763
		2764	int get_data_size (faceidx idx, int faceset = 0)
		2765	CODE:
		2766	facedata *d = face_data (idx, faceset);
		2767	if (!d) XSRETURN_UNDEF;
		2768	RETVAL = d->data.size ();
		2769	OUTPUT:
		2770	RETVAL
		2771
		2772	SV *get_chksum (faceidx idx, int faceset = 0)
		2773	CODE:
		2774	facedata *d = face_data (idx, faceset);
		2775	if (!d) XSRETURN_UNDEF;
		2776	RETVAL = newSVpvn ((char *)d->chksum, CHKSUM_SIZE);
		2777	OUTPUT:
		2778	RETVAL
		2779
		2780	SV *get_data (faceidx idx, int faceset = 0)
		2781	CODE:
		2782	facedata *d = face_data (idx, faceset);
		2783	if (!d) XSRETURN_UNDEF;
		2784	RETVAL = newSVpvn (d->data.data (), d->data.length ());
		2785	OUTPUT:
		2786	RETVAL
		2787
2574	void invalidate (faceidx idx)	2788	void invalidate (faceidx idx)
2575	CODE:	2789	CODE:
2576	for_all_clients (ns)	2790	for_all_clients (ns)
2577	{	2791	{
2578	ns->faces_sent [idx] = false;	2792	ns->faces_sent [idx] = false;
…		…
2621	void invalidate_all ()	2835	void invalidate_all ()
2622	CODE:	2836	CODE:
2623	for_all_clients (ns)	2837	for_all_clients (ns)
2624	ns->anims_sent.reset ();	2838	ns->anims_sent.reset ();
2625		2839
		2840	MODULE = cf PACKAGE = cf::object::freezer
		2841
		2842	INCLUDE: $PERL $srcdir/genacc object_freezer ../include/cfperl.h \|
		2843
		2844	SV *
		2845	new (char *klass)
		2846	CODE:
		2847	RETVAL = newSVptr (new object_freezer, gv_stashpv ("cf::object::freezer", 1));
		2848	OUTPUT: RETVAL
		2849
		2850	void
		2851	DESTROY (SV *sv)
		2852	CODE:
		2853	object_freezer *self;
		2854	sv_to (sv, self);
		2855	delete self;
		2856
		2857	MODULE = cf PACKAGE = cf::object::thawer
		2858
		2859	INCLUDE: $PERL $srcdir/genacc object_thawer ../include/cfperl.h \|
		2860
		2861	SV *
		2862	new_from_file (char *klass, octet_string path)
		2863	CODE:
		2864	object_thawer *f = new object_thawer (path);
		2865	if (!*f)
		2866	{
		2867	delete f;
		2868	XSRETURN_UNDEF;
		2869	}
		2870	RETVAL = newSVptr (f, gv_stashpv ("cf::object::thawer", 1));
		2871	OUTPUT: RETVAL
		2872
		2873	void
		2874	DESTROY (SV *sv)
		2875	CODE:
		2876	object_thawer *self;
		2877	sv_to (sv, self);
		2878	delete self;
		2879
		2880	void
		2881	extract_tags (object_thawer *self)
		2882	PPCODE:
		2883	while (self->kw != KW_EOF)
		2884	{
		2885	PUTBACK;
		2886	coroapi::cede_to_tick ();
		2887	SPAGAIN;
		2888
		2889	if (self->kw == KW_tag)
		2890	XPUSHs (sv_2mortal (newSVpv_utf8 (self->get_str ())));
		2891
		2892	self->skip ();
		2893	}
		2894

Diff Legend

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

Comparing deliantra/server/server/cfperl.xs (file contents): Revision 1.215 by root, Sun May 27 23:56:21 2007 UTC vs. Revision 1.288 by root, Tue May 6 18:47:32 2008 UTC

Diff Legend

Comparing deliantra/server/server/cfperl.xs (file contents):
Revision 1.215 by root, Sun May 27 23:56:21 2007 UTC vs.
Revision 1.288 by root, Tue May 6 18:47:32 2008 UTC