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

Comparing deliantra/server/server/cfperl.xs (file contents):
Revision 1.328 by root, Tue Nov 3 22:57:06 2009 UTC vs.
Revision 1.343 by root, Fri Dec 18 21:25:27 2009 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,2008 Marc Alexander Lehmann / Robin Redeker / the Deliantra team	4	* Copyright (©) 2006,2007,2008,2009 Marc Alexander Lehmann / Robin Redeker / the Deliantra team
5	* Copyright (©) 2006,2007 by Marc Lehmann <cf@schmorp.de>
6	*	5	*
7	* Deliantra is free software: you can redistribute it and/or modify it under	6	* Deliantra is free software: you can redistribute it and/or modify it under
8	* the terms of the Affero GNU General Public License as published by the	7	* the terms of the Affero GNU General Public License as published by the
9	* Free Software Foundation, either version 3 of the License, or (at your	8	* Free Software Foundation, either version 3 of the License, or (at your
10	* option) any later version.	9	* option) any later version.
210	attachable::destroy ()	209	attachable::destroy ()
211	{	210	{
212	if (destroyed ())	211	if (destroyed ())
213	return;	212	return;
214		213
215	flags \|= F_DESTROYED;	214	attachable_flags \|= F_DESTROYED;
216	do_destroy ();	215	do_destroy ();
217	sever_self ();	216	sever_self ();
218	}	217	}
219		218
220	void	219	void
…		…
294		293
295	attach = src.attach;	294	attach = src.attach;
296	return *this;	295	return *this;
297	}	296	}
298		297
		298	#if 0
299	template<typename T>	299	template<typename T>
300	static bool	300	static bool
301	find_backref (void ptr, T obj)	301	find_backref (void ptr, T obj)
302	{	302	{
303	char s = (char )obj;	303	char s = (char )obj;
…		…
311		311
312	return false;	312	return false;
313	}	313	}
314		314
315	// for debugging, find "live" objects containing this ptr	315	// for debugging, find "live" objects containing this ptr
316	void	316	static void
317	find_backref (void *ptr)	317	find_backref (void *ptr)
318	{	318	{
319	for_all_objects (op)	319	for_all_objects (op)
320	if (find_backref (ptr, op))	320	if (find_backref (ptr, op))
321	fprintf (stderr, "O %p %d:'%s'\n", op, op->count, &op->name);	321	fprintf (stderr, "O %p %d:'%s'\n", op, op->count, &op->name);
…		…
326		326
327	for_all_clients (ns)	327	for_all_clients (ns)
328	if (find_backref (ptr, ns))	328	if (find_backref (ptr, ns))
329	fprintf (stderr, "C %p\n", ns);	329	fprintf (stderr, "C %p\n", ns);
330	}	330	}
		331	#endif
331		332
332	//////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////	333	//////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
333		334
334	static SV *	335	static SV *
335	newSVptr (void ptr, HV stash, HV *hv = newHV ())	336	newSVptr (void ptr, HV stash, HV *hv = newHV ())
…		…
388		389
389	return sv;	390	return sv;
390	}	391	}
391	}	392	}
392		393
		394	#if 0 // unused
393	static void	395	static void
394	clearSVptr (SV *sv)	396	clearSVptr (SV *sv)
395	{	397	{
396	if (SvROK (sv))	398	if (SvROK (sv))
397	sv = SvRV (sv);	399	sv = SvRV (sv);
398		400
399	hv_clear ((HV *)sv);	401	hv_clear ((HV *)sv);
400	sv_unmagic (sv, PERL_MAGIC_ext);	402	sv_unmagic (sv, PERL_MAGIC_ext);
401	}	403	}
		404	#endif
		405
		406	static long
		407	SvPTR_nc (SV *sv)
		408	{
		409	sv = SvRV (sv);
		410
		411	// very important shortcut
		412	if (expect_true (SvMAGIC (sv) && SvMAGIC (sv)->mg_type == PERL_MAGIC_ext))
		413	return (long)SvMAGIC (sv)->mg_ptr;
		414
		415	if (MAGIC *mg = mg_find (sv, PERL_MAGIC_ext))
		416	return (long)mg->mg_ptr;
		417
		418	croak ("perl code used object, but C object is already destroyed, caught");
		419	}
402		420
403	static long	421	static long
404	SvPTR (SV sv, const char klass)	422	SvPTR (SV sv, const char klass)
405	{	423	{
406	if (!sv_derived_from (sv, klass))	424	if (!sv_derived_from (sv, klass))
407	croak ("object of type %s expected", klass);	425	croak ("object of type %s expected", klass);
408		426
409	MAGIC *mg = mg_find (SvRV (sv), PERL_MAGIC_ext);	427	return SvPTR_nc (sv);
410
411	if (!mg)
412	croak ("perl code used %s object, but C object is already destroyed, caught", klass);
413
414	return (long)mg->mg_ptr;
415	}	428	}
416		429
417	static long noinline	430	static long noinline
418	SvPTR_ornull (SV sv, const char klass)	431	SvPTR_ornull (SV sv, const char klass)
419	{	432	{
420	if (SvOK (sv))	433	if (expect_false (!SvOK (sv))) return 0;
		434
421	return SvPTR (sv, klass);	435	return SvPTR (sv, klass);
422	else
423	return 0;
424	}	436	}
425		437
		438	static long noinline
		439	SvPTR_ornull_client (SV *sv)
		440	{
		441	if (expect_false (!SvOK (sv))) return 0;
		442
		443	if (!SvROK (sv)
		444	\|\| (SvSTASH (SvRV (sv)) != stash_cf_client_wrap
		445	&& !sv_derived_from (sv, "cf::client")))
		446	croak ("object of type cf::client expected");
		447
		448	return SvPTR_nc (sv);
		449	}
		450
		451	static long noinline
		452	SvPTR_ornull_object (SV *sv)
		453	{
		454	if (expect_false (!SvOK (sv))) return 0;
		455
		456	if (!SvROK (sv)
		457	\|\| (SvSTASH (SvRV (sv)) != stash_cf_object_wrap
		458	&& SvSTASH (SvRV (sv)) != stash_cf_object_player_wrap
		459	&& SvSTASH (SvRV (sv)) != stash_cf_arch_wrap
		460	&& !sv_derived_from (sv, "cf::object")))
		461	croak ("object of type cf::object expected");
		462
		463	return SvPTR_nc (sv);
		464	}
		465
		466	static long noinline
		467	SvPTR_ornull_player (SV *sv)
		468	{
		469	if (expect_false (!SvOK (sv))) return 0;
		470
		471	if (!SvROK (sv)
		472	\|\| (SvSTASH (SvRV (sv)) != stash_cf_player_wrap
		473	&& !sv_derived_from (sv, "cf::player")))
		474	croak ("object of type cf::player expected");
		475
		476	return SvPTR_nc (sv);
		477	}
		478
426	inline SV to_sv (const shstr & v) { return newSVpvn_utf8 ((const char )v, v.length (), 1); }	479	static inline SV to_sv (const shstr & v) { return newSVpvn_utf8 ((const char )v, v.length (), 1); }
427	inline SV to_sv (const char v) { return v ? newSVpv (v, 0) : newSV (0); }	480	static inline SV to_sv (const char v) { return v ? newSVpv (v, 0) : newSV (0); }
428	inline SV *to_sv (bool v) { return newSViv (v); }	481	static inline SV *to_sv (bool v) { return newSViv (v); }
429	inline SV *to_sv ( signed char v) { return newSViv (v); }	482	static inline SV *to_sv ( signed char v) { return newSViv (v); }
430	inline SV *to_sv (unsigned char v) { return newSViv (v); }	483	static inline SV *to_sv (unsigned char v) { return newSViv (v); }
431	inline SV *to_sv ( signed short v) { return newSViv (v); }	484	static inline SV *to_sv ( signed short v) { return newSViv (v); }
432	inline SV *to_sv (unsigned short v) { return newSVuv (v); }	485	static inline SV *to_sv (unsigned short v) { return newSVuv (v); }
433	inline SV *to_sv ( signed int v) { return newSViv (v); }	486	static inline SV *to_sv ( signed int v) { return newSViv (v); }
434	inline SV *to_sv (unsigned int v) { return newSVuv (v); }	487	static inline SV *to_sv (unsigned int v) { return newSVuv (v); }
435	inline SV *to_sv ( signed long v) { return newSViv (v); }	488	static inline SV *to_sv ( signed long v) { return newSViv (v); }
436	inline SV *to_sv (unsigned long v) { return newSVuv (v); }	489	static inline SV *to_sv (unsigned long v) { return newSVuv (v); }
437	inline SV *to_sv ( signed long long v) { return newSVval64 (v); }	490	static inline SV *to_sv ( signed long long v) { return newSVval64 (v); }
438	inline SV *to_sv (unsigned long long v) { return newSVval64 (v); }	491	static inline SV *to_sv (unsigned long long v) { return newSVval64 (v); }
439	inline SV *to_sv (float v) { return newSVnv (v); }	492	static inline SV *to_sv (float v) { return newSVnv (v); }
440	inline SV *to_sv (double v) { return newSVnv (v); }	493	static inline SV *to_sv (double v) { return newSVnv (v); }
441	inline SV to_sv (client v) { return newSVattachable (v, stash_cf_client_wrap); }	494	static inline SV to_sv (client v) { return newSVattachable (v, stash_cf_client_wrap); }
442	inline SV to_sv (player v) { return newSVattachable (v, stash_cf_player_wrap); }	495	static inline SV to_sv (player v) { return newSVattachable (v, stash_cf_player_wrap); }
443	inline SV to_sv (object v) { return newSVattachable (v, v && v->type == PLAYER ? stash_cf_object_player_wrap : stash_cf_object_wrap); }	496	static inline SV to_sv (object v) { return newSVattachable (v, v && v->type == PLAYER ? stash_cf_object_player_wrap : stash_cf_object_wrap); }
444	inline SV to_sv (maptile v) { return newSVattachable (v, stash_cf_map_wrap); }	497	static inline SV to_sv (maptile v) { return newSVattachable (v, stash_cf_map_wrap); }
445	inline SV to_sv (archetype v) { return newSVattachable (v, stash_cf_arch_wrap); }	498	static inline SV to_sv (archetype v) { return newSVattachable (v, stash_cf_arch_wrap); }
446	inline SV to_sv (region v) { return newSVattachable (v, stash_cf_region_wrap); }	499	static inline SV to_sv (region v) { return newSVattachable (v, stash_cf_region_wrap); }
447	inline SV to_sv (partylist v) { return newSVptr (v, stash_cf_party_wrap); }	500	static inline SV to_sv (partylist v) { return newSVptr (v, stash_cf_party_wrap); }
448	inline SV to_sv (living v) { return newSVptr (v, stash_cf_living_wrap); }	501	static inline SV to_sv (living v) { return newSVptr (v, stash_cf_living_wrap); }
449	inline SV to_sv (mapspace v) { return newSVptr (v, stash_cf_mapspace_wrap); }	502	static inline SV to_sv (mapspace v) { return newSVptr (v, stash_cf_mapspace_wrap); }
450		503
451	inline SV *to_sv (object & v) { return to_sv (&v); }	504	static inline SV *to_sv (object & v) { return to_sv (&v); }
452	inline SV *to_sv (living & v) { return to_sv (&v); }	505	static inline SV *to_sv (living & v) { return to_sv (&v); }
453		506
454	inline SV *to_sv (const std::string & v) { return newSVpvn (v.data (), v.size ()); }	507	static inline SV *to_sv (const std::string & v) { return newSVpvn (v.data (), v.size ()); }
455	inline SV to_sv (const treasurelist v) { return to_sv (v->name); }	508	static inline SV to_sv (const treasurelist v) { return to_sv (v->name); }
456		509
457	inline SV *to_sv (UUID v) { return newSVpv (v.c_str (), 0); }	510	static inline SV *to_sv (UUID v) { return newSVpv (v.c_str (), 0); }
458		511
459	inline SV to_sv (dynbuf v)	512	static inline SV to_sv (dynbuf v)
460	{	513	{
461	SV *sv = newSV (0);	514	SV *sv = newSV (0);
462		515
463	sv_upgrade (sv, SVt_PV);	516	sv_upgrade (sv, SVt_PV);
464	SvGROW (sv, v->size () + 1);	517	SvGROW (sv, v->size () + 1);
…		…
468	*SvEND (sv) = 0;	521	*SvEND (sv) = 0;
469		522
470	return sv;	523	return sv;
471	}	524	}
472		525
473	inline SV to_sv (dynbuf_text v)	526	static inline SV to_sv (dynbuf_text v)
474	{	527	{
475	SV sv = to_sv (static_cast<dynbuf > (v));	528	SV sv = to_sv (static_cast<dynbuf > (v));
476	SvUTF8_on (sv);	529	SvUTF8_on (sv);
477	return sv;	530	return sv;
478	}	531	}
479		532
480	inline void sv_to (SV *sv, shstr &v) { v = SvOK (sv) ? SvPVutf8_nolen (sv) : 0; }	533	static inline void sv_to (SV *sv, shstr &v) { v = SvOK (sv) ? SvPVutf8_nolen (sv) : 0; }
481	inline void sv_to (SV sv, char &v) { free (v); v = SvOK (sv) ? strdup (SvPV_nolen (sv)) : 0; }	534	static inline void sv_to (SV sv, char &v) { free (v); v = SvOK (sv) ? strdup (SvPV_nolen (sv)) : 0; }
482	inline void sv_to (SV *sv, bool &v) { v = SvIV (sv); }	535	static inline void sv_to (SV *sv, bool &v) { v = SvIV (sv); }
483	inline void sv_to (SV *sv, signed char &v) { v = SvIV (sv); }	536	static inline void sv_to (SV *sv, signed char &v) { v = SvIV (sv); }
484	inline void sv_to (SV *sv, unsigned char &v) { v = SvIV (sv); }	537	static inline void sv_to (SV *sv, unsigned char &v) { v = SvIV (sv); }
485	inline void sv_to (SV *sv, signed short &v) { v = SvIV (sv); }	538	static inline void sv_to (SV *sv, signed short &v) { v = SvIV (sv); }
486	inline void sv_to (SV *sv, unsigned short &v) { v = SvIV (sv); }	539	static inline void sv_to (SV *sv, unsigned short &v) { v = SvIV (sv); }
487	inline void sv_to (SV *sv, signed int &v) { v = SvIV (sv); }	540	static inline void sv_to (SV *sv, signed int &v) { v = SvIV (sv); }
488	inline void sv_to (SV *sv, unsigned int &v) { v = SvUV (sv); }	541	static inline void sv_to (SV *sv, unsigned int &v) { v = SvUV (sv); }
489	inline void sv_to (SV *sv, signed long &v) { v = SvIV (sv); }	542	static inline void sv_to (SV *sv, signed long &v) { v = SvIV (sv); }
490	inline void sv_to (SV *sv, unsigned long &v) { v = SvUV (sv); }	543	static inline void sv_to (SV *sv, unsigned long &v) { v = SvUV (sv); }
491	inline void sv_to (SV *sv, signed long long &v) { v = ( signed long long)SvVAL64 (sv); }	544	static inline void sv_to (SV *sv, signed long long &v) { v = ( signed long long)SvVAL64 (sv); }
492	inline void sv_to (SV *sv, unsigned long long &v) { v = (unsigned long long)SvVAL64 (sv); }	545	static inline void sv_to (SV *sv, unsigned long long &v) { v = (unsigned long long)SvVAL64 (sv); }
493	inline void sv_to (SV *sv, float &v) { v = SvNV (sv); }	546	static inline void sv_to (SV *sv, float &v) { v = SvNV (sv); }
494	inline void sv_to (SV *sv, double &v) { v = SvNV (sv); }	547	static inline void sv_to (SV *sv, double &v) { v = SvNV (sv); }
495	inline void sv_to (SV sv, client &v) { v = (client )(attachable )SvPTR_ornull (sv, "cf::client"); }	548	static inline void sv_to (SV sv, client &v) { v = (client ) (attachable )SvPTR_ornull_client (sv); }
496	inline void sv_to (SV sv, player &v) { v = (player )(attachable )SvPTR_ornull (sv, "cf::player"); }	549	static inline void sv_to (SV sv, player &v) { v = (player ) (attachable )SvPTR_ornull_player (sv); }
497	inline void sv_to (SV sv, object &v) { v = (object )(attachable )SvPTR_ornull (sv, "cf::object"); }	550	static inline void sv_to (SV sv, object &v) { v = (object ) (attachable )SvPTR_ornull_object (sv); }
498	inline void sv_to (SV sv, archetype &v) { v = (archetype )(attachable )SvPTR_ornull (sv, "cf::arch"); }	551	static inline void sv_to (SV sv, archetype &v) { v = (archetype )(attachable )SvPTR_ornull (sv, "cf::arch"); }
499	inline void sv_to (SV sv, maptile &v) { v = (maptile )(attachable )SvPTR_ornull (sv, "cf::map"); }	552	static inline void sv_to (SV sv, maptile &v) { v = (maptile ) (attachable )SvPTR_ornull (sv, "cf::map"); }
500	inline void sv_to (SV sv, region &v) { v = (region )(attachable )SvPTR_ornull (sv, "cf::region"); }	553	static inline void sv_to (SV sv, region &v) { v = (region ) (attachable )SvPTR_ornull (sv, "cf::region"); }
501	inline void sv_to (SV sv, attachable &v) { v = (attachable *)SvPTR_ornull (sv, "cf::attachable"); }	554	static inline void sv_to (SV sv, attachable &v) { v = (attachable *)SvPTR_ornull (sv, "cf::attachable"); }
502	inline void sv_to (SV sv, partylist &v) { v = (partylist *)SvPTR_ornull (sv, "cf::party"); }	555	static inline void sv_to (SV sv, partylist &v) { v = (partylist *) SvPTR_ornull (sv, "cf::party"); }
503	inline void sv_to (SV sv, living &v) { v = (living *)SvPTR_ornull (sv, "cf::living"); }	556	static inline void sv_to (SV sv, living &v) { v = (living *) SvPTR_ornull (sv, "cf::living"); }
504	inline void sv_to (SV sv, mapspace &v) { v = (mapspace *)SvPTR_ornull (sv, "cf::mapspace"); }	557	static inline void sv_to (SV sv, mapspace &v) { v = (mapspace *) SvPTR_ornull (sv, "cf::mapspace"); }
505	inline void sv_to (SV sv, object_freezer &v) { v = (object_freezer *)SvPTR_ornull (sv, "cf::object::freezer"); }	558	static inline void sv_to (SV sv, object_freezer &v) { v = (object_freezer *) SvPTR_ornull (sv, "cf::object::freezer"); }
506	inline void sv_to (SV sv, object_thawer &v) { v = (object_thawer *)SvPTR_ornull (sv, "cf::object::thawer" ); }	559	static inline void sv_to (SV sv, object_thawer &v) { v = (object_thawer *) SvPTR_ornull (sv, "cf::object::thawer" ); }
507		560
508	//inline void sv_to (SV sv, faceinfo &v) { v = &faces [face_find (SvPV_nolen (sv), 0)]; }	561	//static inline void sv_to (SV sv, faceinfo &v) { v = &faces [face_find (SvPV_nolen (sv), 0)]; }
509	inline void sv_to (SV sv, treasurelist &v) { v = treasurelist::find (SvPV_nolen (sv)); }	562	static inline void sv_to (SV sv, treasurelist &v) { v = treasurelist::find (SvPV_nolen (sv)); }
510		563
511	template<class T>	564	template<class T>
512	inline void sv_to (SV sv, refptr<T> &v) { T tmp; sv_to (sv, tmp); v = tmp; }	565	static inline void sv_to (SV sv, refptr<T> &v) { T tmp; sv_to (sv, tmp); v = tmp; }
513		566
514	template<int N>	567	template<int N>
515	inline void sv_to (SV *sv, char (&v)[N]) { assign (v, SvPV_nolen (sv)); }	568	static inline void sv_to (SV *sv, char (&v)[N]) { assign (v, SvPV_nolen (sv)); }
516		569
517	inline void sv_to (SV *sv, bowtype_t &v) { v = (bowtype_t) SvIV (sv); }	570	static inline void sv_to (SV *sv, bowtype_t &v) { v = (bowtype_t) SvIV (sv); }
518	inline void sv_to (SV *sv, petmode_t &v) { v = (petmode_t) SvIV (sv); }	571	static inline void sv_to (SV *sv, petmode_t &v) { v = (petmode_t) SvIV (sv); }
519	inline void sv_to (SV *sv, usekeytype &v) { v = (usekeytype) SvIV (sv); }	572	static inline void sv_to (SV *sv, usekeytype &v) { v = (usekeytype) SvIV (sv); }
520	inline void sv_to (SV *sv, unapplymode &v) { v = (unapplymode) SvIV (sv); }	573	static inline void sv_to (SV *sv, unapplymode &v) { v = (unapplymode) SvIV (sv); }
521		574
522	inline void sv_to (SV *sv, std::string &v)	575	static inline void sv_to (SV *sv, std::string &v)
523	{	576	{
524	STRLEN len;	577	STRLEN len;
525	char *data = SvPVbyte (sv, len);	578	char *data = SvPVbyte (sv, len);
526	v.assign (data, len);	579	v.assign (data, len);
527	}	580	}
528		581
529	inline void sv_to (SV *sv, UUID &v)	582	static inline void sv_to (SV *sv, UUID &v)
530	{	583	{
531	if (!v.parse (SvPV_nolen (sv)))	584	if (!v.parse (SvPV_nolen (sv)))
532	croak ("unparsable uuid: %s", SvPV_nolen (sv));	585	croak ("unparsable uuid: %s", SvPV_nolen (sv));
533	}	586	}
534		587
535	inline void sv_to (SV *sv, object::flags_t::reference v) { v = SvTRUE (sv); }	588	static inline void sv_to (SV *sv, object::flags_t::reference v) { v = SvTRUE (sv); }
536		589
537	static SV *	590	static SV *
538	newSVdt_va (va_list &ap, data_type type)	591	newSVdt_va (va_list &ap, data_type type)
539	{	592	{
540	SV *sv;	593	SV *sv;
…		…
640	var = 0;	693	var = 0;
641	}	694	}
642		695
643	//////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////	696	//////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
644		697
645	SV *	698	static SV *
646	registry (attachable *ext)	699	registry (attachable *ext)
647	{	700	{
648	if (!ext->cb)	701	if (!ext->cb)
649	ext->cb = newAV ();	702	ext->cb = newAV ();
650		703
…		…
934	CALL_END;	987	CALL_END;
935		988
936	return count;	989	return count;
937	}	990	}
938		991
939	SV *	992	static SV *
940	cfperl_result (int idx)	993	cfperl_result (int idx)
941	{	994	{
942	AV *av = get_av ("cf::INVOKE_RESULTS", 0);	995	AV *av = get_av ("cf::INVOKE_RESULTS", 0);
943	if (!av)	996	if (!av)
944	return &PL_sv_undef;	997	return &PL_sv_undef;
…		…
1220	bool matched = count && SvTRUE (TOPs);	1273	bool matched = count && SvTRUE (TOPs);
1221		1274
1222	CALL_END;	1275	CALL_END;
1223		1276
1224	return matched;	1277	return matched;
		1278	}
		1279
		1280	object *
		1281	match_one (const char expr, object ob, object self, object source, object *originator)
		1282	{
		1283	if (!strncmp (expr, "match ", sizeof ("match ") - 1))
		1284	expr += sizeof ("match ") - 1;
		1285
		1286	CALL_BEGIN (5);
		1287	CALL_ARG (expr);
		1288	CALL_ARG (ob);
		1289	CALL_ARG (self);
		1290	CALL_ARG (source);
		1291	CALL_ARG (originator);
		1292	CALL_CALL (cv_cf_match_match, G_ARRAY);
		1293
		1294	object *one = 0;
		1295
		1296	if (count)
		1297	sv_to (TOPs, one);
		1298
		1299	CALL_END;
		1300
		1301	return one;
1225	}	1302	}
1226		1303
1227	/////////////////////////////////////////////////////////////////////////////	1304	/////////////////////////////////////////////////////////////////////////////
1228		1305
1229	struct EVAPI *evapi::GEVAPI;	1306	struct EVAPI *evapi::GEVAPI;
…		…
1399	const_iv (FLAG_GENERATOR) const_iv (FLAG_IS_THROWN) const_iv (FLAG_AUTO_APPLY) const_iv (FLAG_PLAYER_SOLD)	1476	const_iv (FLAG_GENERATOR) const_iv (FLAG_IS_THROWN) const_iv (FLAG_AUTO_APPLY) const_iv (FLAG_PLAYER_SOLD)
1400	const_iv (FLAG_SEE_INVISIBLE) const_iv (FLAG_CAN_ROLL) const_iv (FLAG_OVERLAY_FLOOR) const_iv (FLAG_IS_TURNABLE)	1477	const_iv (FLAG_SEE_INVISIBLE) const_iv (FLAG_CAN_ROLL) const_iv (FLAG_OVERLAY_FLOOR) const_iv (FLAG_IS_TURNABLE)
1401	const_iv (FLAG_IS_USED_UP) const_iv (FLAG_IDENTIFIED) const_iv (FLAG_REFLECTING) const_iv (FLAG_CHANGING)	1478	const_iv (FLAG_IS_USED_UP) const_iv (FLAG_IDENTIFIED) const_iv (FLAG_REFLECTING) const_iv (FLAG_CHANGING)
1402	const_iv (FLAG_SPLITTING) const_iv (FLAG_HITBACK) const_iv (FLAG_STARTEQUIP) const_iv (FLAG_BLOCKSVIEW)	1479	const_iv (FLAG_SPLITTING) const_iv (FLAG_HITBACK) const_iv (FLAG_STARTEQUIP) const_iv (FLAG_BLOCKSVIEW)
1403	const_iv (FLAG_UNDEAD) const_iv (FLAG_SCARED) const_iv (FLAG_UNAGGRESSIVE) const_iv (FLAG_REFL_MISSILE)	1480	const_iv (FLAG_UNDEAD) const_iv (FLAG_SCARED) const_iv (FLAG_UNAGGRESSIVE) const_iv (FLAG_REFL_MISSILE)
1404	const_iv (FLAG_REFL_SPELL) const_iv (FLAG_NO_MAGIC) const_iv (FLAG_NO_FIX_PLAYER) const_iv (FLAG_IS_LIGHTABLE)	1481	const_iv (FLAG_REFL_SPELL) const_iv (FLAG_NO_MAGIC) const_iv (FLAG_IS_LIGHTABLE)
1405	const_iv (FLAG_TEAR_DOWN) const_iv (FLAG_RUN_AWAY) const_iv (FLAG_PICK_UP) const_iv (FLAG_UNIQUE)	1482	const_iv (FLAG_TEAR_DOWN) const_iv (FLAG_RUN_AWAY) const_iv (FLAG_PICK_UP) const_iv (FLAG_UNIQUE)
1406	const_iv (FLAG_NO_DROP) const_iv (FLAG_WIZCAST) const_iv (FLAG_CAST_SPELL) const_iv (FLAG_USE_SCROLL)	1483	const_iv (FLAG_NO_DROP) const_iv (FLAG_WIZCAST) const_iv (FLAG_CAST_SPELL) const_iv (FLAG_USE_SCROLL)
1407	const_iv (FLAG_USE_RANGE) const_iv (FLAG_USE_BOW) const_iv (FLAG_USE_ARMOUR) const_iv (FLAG_USE_WEAPON)	1484	const_iv (FLAG_USE_RANGE) const_iv (FLAG_USE_BOW) const_iv (FLAG_USE_ARMOUR) const_iv (FLAG_USE_WEAPON)
1408	const_iv (FLAG_USE_RING) const_iv (FLAG_READY_RANGE) const_iv (FLAG_READY_BOW) const_iv (FLAG_XRAYS)	1485	const_iv (FLAG_USE_RING) const_iv (FLAG_READY_RANGE) const_iv (FLAG_READY_BOW) const_iv (FLAG_XRAYS)
1409	const_iv (FLAG_NO_APPLY) const_iv (FLAG_IS_FLOOR) const_iv (FLAG_LIFESAVE) const_iv (FLAG_NO_STRENGTH)	1486	const_iv (FLAG_NO_APPLY) const_iv (FLAG_IS_FLOOR) const_iv (FLAG_LIFESAVE) const_iv (FLAG_NO_STRENGTH)
…		…
1987	RETVAL	2064	RETVAL
1988		2065
1989	void	2066	void
1990	debug_trace (attachable *obj, bool on = true)	2067	debug_trace (attachable *obj, bool on = true)
1991	CODE:	2068	CODE:
1992	obj->flags &= ~attachable::F_DEBUG_TRACE;	2069	obj->attachable_flags &= ~attachable::F_DEBUG_TRACE;
1993	if (on)	2070	if (on)
1994	obj->flags \|= attachable::F_DEBUG_TRACE;	2071	obj->attachable_flags \|= attachable::F_DEBUG_TRACE;
1995		2072
1996	int mortals_size ()	2073	int mortals_size ()
1997	CODE:	2074	CODE:
1998	RETVAL = attachable::mortals.size ();	2075	RETVAL = attachable::mortals.size ();
1999	OUTPUT: RETVAL	2076	OUTPUT: RETVAL
…		…
2140	CODE:	2217	CODE:
2141	player_apply_below (op);	2218	player_apply_below (op);
2142		2219
2143	int cast_heal (object op, object caster, object *spell, int dir = 0)	2220	int cast_heal (object op, object caster, object *spell, int dir = 0)
2144		2221
		2222	int casting_level (object caster, object spell)
		2223
2145	int pay_item (object op, object buyer)	2224	int pay_item (object op, object buyer)
2146	CODE:	2225	CODE:
2147	RETVAL = pay_for_item (op, buyer);	2226	RETVAL = pay_for_item (op, buyer);
2148	OUTPUT: RETVAL	2227	OUTPUT: RETVAL
2149		2228
…		…
2191		2270
2192	void player_lvl_adj (object who, object skill = 0)	2271	void player_lvl_adj (object who, object skill = 0)
2193		2272
2194	int kill_object (object op, int dam = 0, object hitter = 0, int type = AT_PHYSICAL)	2273	int kill_object (object op, int dam = 0, object hitter = 0, int type = AT_PHYSICAL)
2195		2274
2196	int calc_skill_exp (object who, object op, object *skill);	2275	int calc_skill_exp (object who, object op, object *skill)
2197		2276
2198	void push_button (object op, object originator);	2277	void push_button (object op, object originator)
2199		2278
2200	void use_trigger (object op, object originator);	2279	void use_trigger (object op, object originator)
2201		2280
2202	void handle_apply_yield (object *op);	2281	void handle_apply_yield (object *op)
2203		2282
2204	int convert_item (object item, object converter);	2283	int convert_item (object item, object converter)
2205		2284
2206		2285
2207	MODULE = cf PACKAGE = cf::object PREFIX = cf_	2286	MODULE = cf PACKAGE = cf::object PREFIX = cf_
2208		2287
2209	# no clean way to get an object from an archetype - stupid idiotic	2288	# no clean way to get an object from an archetype - stupid idiotic
…		…
2222	object insert_ob_in_map_at (object ob, maptile where, object_ornull orig, int flag, int x, int y)	2301	object insert_ob_in_map_at (object ob, maptile where, object_ornull orig, int flag, int x, int y)
2223	PROTOTYPE: $$$$$$	2302	PROTOTYPE: $$$$$$
2224	CODE:	2303	CODE:
2225	{	2304	{
2226	RETVAL = insert_ob_in_map_at (ob, where, orig, flag, x, y);	2305	RETVAL = insert_ob_in_map_at (ob, where, orig, flag, x, y);
		2306
		2307	if (RETVAL->destroyed ())
		2308	RETVAL = 0;
2227	}	2309	}
2228		2310
2229	shstr	2311	shstr
2230	object::kv_get (shstr key)	2312	object::kv_get (shstr key)
2231		2313
…		…
2464	for (int x = 0; x < THIS->width; ++x)	2546	for (int x = 0; x < THIS->width; ++x)
2465	for (int y = 0; y < THIS->height; ++y)	2547	for (int y = 0; y < THIS->height; ++y)
2466	{	2548	{
2467	for (object *op = THIS->at (x, y).bot; op; op = op->above)	2549	for (object *op = THIS->at (x, y).bot; op; op = op->above)
2468	if (op->flag [FLAG_IS_FLOOR])	2550	if (op->flag [FLAG_IS_FLOOR])
2469	goto skip_space;	2551	goto skip;
2470		2552
2471	{	2553	{
2472	int offs = offset + y * stride + x;	2554	int offs = offset + y * stride + x;
		2555
2473	if (IN_RANGE_EXC (offs, 0, idxlen))	2556	if (IN_RANGE_EXC (offs, 0, idxlen))
2474	{	2557	{
2475	if (SV *elem = av_fetch ((AV )palette, idx [offs], 0))	2558	if (SV *elem = av_fetch ((AV )palette, idx [offs], 0))
2476	{	2559	{
2477	object ob = get_archetype (SvPVutf8_nolen (elem));	2560	object ob = get_archetype (SvPVutf8_nolen (elem));
2478	ob->flag [FLAG_NO_MAP_SAVE] = true;	2561	ob->flag [FLAG_NO_MAP_SAVE] = true;
2479	THIS->insert (ob, x, y, 0, INS_ABOVE_FLOOR_ONLY);	2562	THIS->insert (ob, x, y, 0, INS_ABOVE_FLOOR_ONLY);
2480		2563
2481	if (ob->randomitems)	2564	if (ob->randomitems && !ob->above)
2482	{	2565	{
2483	if (!ob->above)
2484	{
2485	ob->create_treasure (ob->randomitems);	2566	ob->create_treasure (ob->randomitems);
2486		2567
2487	for (object *op = ob->above; op; op = op->above)	2568	for (object *op = ob->above; op; op = op->above)
2488	op->flag [FLAG_NO_MAP_SAVE] = true;	2569	op->flag [FLAG_NO_MAP_SAVE] = true;
2489	}	2570	// TODO: if this is a pickable object, then the item
2490		2571	// will at a bit weird - saving inside the player
2491	ob->randomitems = 0;	2572	// will clear the flag, but when the player drops
		2573	// it without logging out, it keeps the flag.
		2574	// nobody ahs reported this, but this can be rather
		2575	// annoying on persistent maps.
2492	}	2576	}
2493	}	2577	}
2494	}	2578	}
2495	}	2579	}
2496		2580
2497	skip_space: ;	2581	skip: ;
2498	}	2582	}
2499	}	2583	}
2500		2584
2501	void	2585	void
2502	maptile::set_regiondata (SV data, int offset, int stride, SV palette)	2586	maptile::set_regiondata (SV data, int offset, int stride, SV palette)
…		…
2747	archetype *archetypes (U32 index)	2831	archetype *archetypes (U32 index)
2748	CODE:	2832	CODE:
2749	RETVAL = index < archetypes.size () ? archetypes [index] : 0;	2833	RETVAL = index < archetypes.size () ? archetypes [index] : 0;
2750	OUTPUT: RETVAL	2834	OUTPUT: RETVAL
2751		2835
2752	object instantiate (archetype arch)
2753	CODE:
2754	RETVAL = arch_to_object (arch);
2755	OUTPUT:
2756	RETVAL
2757
2758	INCLUDE: $PERL $srcdir/genacc archetype ../include/object.h \|	2836	INCLUDE: $PERL $srcdir/genacc archetype ../include/object.h \|
2759		2837
2760	MODULE = cf PACKAGE = cf::party	2838	MODULE = cf PACKAGE = cf::party
2761		2839
2762	partylist *first ()	2840	partylist *first ()
…		…
2922	faceinfo *f = face_info (idx); assert (f);	3000	faceinfo *f = face_info (idx); assert (f);
2923	facedata *d = &(faceset ? f->data64 : f->data32);	3001	facedata *d = &(faceset ? f->data64 : f->data32);
2924	sv_to (data, d->data);	3002	sv_to (data, d->data);
2925	STRLEN clen;	3003	STRLEN clen;
2926	char *cdata = SvPVbyte (chksum, clen);	3004	char *cdata = SvPVbyte (chksum, clen);
2927	clen = min (CHKSUM_SIZE, clen);	3005	clen = min (CHKSUM_MAXLEN, clen);
2928		3006
2929	if (memcmp (d->chksum, cdata, clen))	3007	if (clen != d->chksum_len \|\| memcmp (d->chksum, cdata, clen))
2930	{	3008	{
		3009	d->chksum_len = clen;
2931	memcpy (d->chksum, cdata, clen);	3010	memcpy (d->chksum, cdata, clen);
2932		3011
2933	// invalidate existing client face info	3012	// invalidate existing client face info
2934	for_all_clients (ns)	3013	for_all_clients (ns)
2935	if (ns->faceset == faceset)	3014	if (ns->faceset == faceset)
…		…
2950		3029
2951	SV *get_chksum (faceidx idx, int faceset = 0)	3030	SV *get_chksum (faceidx idx, int faceset = 0)
2952	CODE:	3031	CODE:
2953	facedata *d = face_data (idx, faceset);	3032	facedata *d = face_data (idx, faceset);
2954	if (!d) XSRETURN_UNDEF;	3033	if (!d) XSRETURN_UNDEF;
2955	RETVAL = newSVpvn ((char *)d->chksum, CHKSUM_SIZE);	3034	RETVAL = newSVpvn ((char *)d->chksum, d->chksum_len);
2956	OUTPUT:	3035	OUTPUT:
2957	RETVAL	3036	RETVAL
2958		3037
2959	SV *get_data (faceidx idx, int faceset = 0)	3038	SV *get_data (faceidx idx, int faceset = 0)
2960	CODE:	3039	CODE:

Diff Legend

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

Comparing deliantra/server/server/cfperl.xs (file contents): Revision 1.328 by root, Tue Nov 3 22:57:06 2009 UTC vs. Revision 1.343 by root, Fri Dec 18 21:25:27 2009 UTC

Diff Legend

Comparing deliantra/server/server/cfperl.xs (file contents):
Revision 1.328 by root, Tue Nov 3 22:57:06 2009 UTC vs.
Revision 1.343 by root, Fri Dec 18 21:25:27 2009 UTC