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

Comparing deliantra/server/server/cfperl.xs (file contents):
Revision 1.267 by root, Mon Dec 17 08:03:22 2007 UTC vs.
Revision 1.292 by root, Tue Jul 29 02:00:55 2008 UTC

…		…
1	/*	1	/*
2	* This file is part of Deliantra, the Roguelike Realtime MMORPG.	2	* This file is part of Deliantra, the Roguelike Realtime MMORPG.
3	*	3	*
4	* Copyright (©) 2006,2007 Marc Alexander Lehmann / Robin Redeker / the Deliantra team	4	* Copyright (©) 2006,2007,2008 Marc Alexander Lehmann / Robin Redeker / the Deliantra team
5	* Copyright (©) 2001-2005,2007 by Chachkoff Yann	5	* Copyright (©) 2001-2005,2007 by Chachkoff Yann
6	* Copyright (©) 2006,2007 by Marc Lehmann <cf@schmorp.de>	6	* Copyright (©) 2006,2007 by Marc Lehmann <cf@schmorp.de>
7	*	7	*
8	* Deliantra is free software: you can redistribute it and/or modify	8	* Deliantra is free software: you can redistribute it and/or modify
9	* it under the terms of the GNU General Public License as published by	9	* it under the terms of the GNU General Public License as published by
21	* The authors can be reached via e-mail to <support@deliantra.net>	21	* The authors can be reached via e-mail to <support@deliantra.net>
22	*/	22	*/
23		23
24	#include "autoconf.h"	24	#include "autoconf.h"
25		25
26	#define PLUGIN_NAME "perl"
27	#define PLUGIN_VERSION "cfperl 0.5"
28
29	#define CEDES_PER_TICK 5
30
31	#if HAVE_EXECINFO_H	26	#if HAVE_EXECINFO_H
32	# include <execinfo.h>	27	# include <execinfo.h>
33	#endif	28	#endif
34		29
35	#include <cstdarg>	30	#include <cstdarg>
		31	#include <typeinfo>
36		32
37	#include "global.h"	33	#include "global.h"
38	#include "loader.h"	34	#include "loader.h"
39	#include "../random_maps/random_map.h"	35	#include "../random_maps/random_map.h"
		36	#include "evthread.h"
40	#include <sproto.h>	37	#include "sproto.h"
41		38
42	#include <unistd.h>	39	#include <unistd.h>
43	#if _POSIX_MEMLOCK	40	#if _POSIX_MEMLOCK
44	# include <sys/mman.h>	41	# include <sys/mman.h>
45	#endif	42	#endif
46		43
47	#if HAVE_MALLOC_H	44	#if HAVE_MALLOC_H
48	# include <malloc.h>	45	# include <malloc.h>
49	#endif	46	#endif
50		47
		48	#if !__GLIBC__
		49	# define malloc_trim(pad) -1
		50	#endif
		51
51	#include <EXTERN.h>	52	#include <EXTERN.h>
52	#include <perl.h>	53	#include <perl.h>
53	#include <XSUB.h>	54	#include <XSUB.h>
54		55
55	#include "CoroAPI.h"	56	#include "CoroAPI.h"
…		…
60	typedef object_thawer &object_thawer_ref;	61	typedef object_thawer &object_thawer_ref;
61	typedef object_freezer &object_freezer_ref;	62	typedef object_freezer &object_freezer_ref;
62		63
63	typedef std::string std__string;	64	typedef std::string std__string;
64		65
65	#if IVSIZE >= 8
66	typedef IV val64;
67	# define newSVval64 newSViv
68	# define SvVAL64 SvIV
69	#else
70	typedef double val64;
71	# define newSVval64 newSVnv
72	# define SvVAL64 SvNV
73	#endif
74
75	static PerlInterpreter *perl;	66	static PerlInterpreter *perl;
76		67
77	tstamp NOW, runtime;	68	tstamp NOW, runtime;
		69
		70	static int tick_inhibit;
		71	static int tick_pending;
78		72
79	global gbl_ev;	73	global gbl_ev;
80	static AV cb_global, cb_attachable, cb_object, cb_player, cb_client, cb_type, *cb_map;	74	static AV cb_global, cb_attachable, cb_object, cb_player, cb_client, cb_type, *cb_map;
81	static SV sv_runtime, sv_next_tick, *sv_now;	75	static SV sv_runtime, sv_tick_start, sv_next_tick, sv_now;
82		76
83	bitset<NUM_EVENT_TYPES> ev_want_event;	77	bitset<NUM_EVENT_TYPES> ev_want_event;
84	bitset<NUM_TYPES> ev_want_type;	78	bitset<NUM_TYPES> ev_want_type;
85		79
86	static HV	80	static HV
…		…
442	inline SV *to_sv (living & v) { return to_sv (&v); }	436	inline SV *to_sv (living & v) { return to_sv (&v); }
443		437
444	inline SV *to_sv (const std::string & v) { return newSVpvn (v.data (), v.size ()); }	438	inline SV *to_sv (const std::string & v) { return newSVpvn (v.data (), v.size ()); }
445	inline SV to_sv (const treasurelist v) { return to_sv (v->name); }	439	inline SV to_sv (const treasurelist v) { return to_sv (v->name); }
446		440
447	inline SV *to_sv (UUID v)	441	inline SV *to_sv (UUID v) { return newSVpv (v.c_str (), 0); }
448	{
449	char buf[128];
450	snprintf (buf, 128, "<1.%" PRIx64 ">", v.seq);
451	return newSVpv (buf, 0);
452	}
453		442
454	inline void sv_to (SV *sv, shstr &v) { v = SvOK (sv) ? SvPVutf8_nolen (sv) : 0; }	443	inline void sv_to (SV *sv, shstr &v) { v = SvOK (sv) ? SvPVutf8_nolen (sv) : 0; }
455	inline void sv_to (SV sv, char &v) { free (v); v = SvOK (sv) ? strdup (SvPV_nolen (sv)) : 0; }	444	inline void sv_to (SV sv, char &v) { free (v); v = SvOK (sv) ? strdup (SvPV_nolen (sv)) : 0; }
456	inline void sv_to (SV *sv, bool &v) { v = SvIV (sv); }	445	inline void sv_to (SV *sv, bool &v) { v = SvIV (sv); }
457	inline void sv_to (SV *sv, signed char &v) { v = SvIV (sv); }	446	inline void sv_to (SV *sv, signed char &v) { v = SvIV (sv); }
…		…
499	v.assign (data, len);	488	v.assign (data, len);
500	}	489	}
501		490
502	inline void sv_to (SV *sv, UUID &v)	491	inline void sv_to (SV *sv, UUID &v)
503	{	492	{
504	unsigned int version;	493	if (!v.parse (SvPV_nolen (sv)))
505
506	if (2 != sscanf (SvPV_nolen (sv), "<%d.%" SCNx64 ">", &version, &v.seq) \|\| 1 != version)
507	croak ("unparsable uuid: %s", SvPV_nolen (sv));	494	croak ("unparsable uuid: %s", SvPV_nolen (sv));
508	}	495	}
509		496
510	inline void sv_to (SV *sv, object::flags_t::reference v) { v = SvTRUE (sv); }	497	inline void sv_to (SV *sv, object::flags_t::reference v) { v = SvTRUE (sv); }
511		498
…		…
605	/////////////////////////////////////////////////////////////////////////////	592	/////////////////////////////////////////////////////////////////////////////
606		593
607	void	594	void
608	cfperl_init ()	595	cfperl_init ()
609	{	596	{
		597	extern char **environ;
		598
610	PERL_SYS_INIT3 (&settings.argc, &settings.argv, 0);	599	PERL_SYS_INIT3 (&settings.argc, &settings.argv, &environ);
611	perl = perl_alloc ();	600	perl = perl_alloc ();
612	perl_construct (perl);	601	perl_construct (perl);
613		602
614	PL_exit_flags \|= PERL_EXIT_DESTRUCT_END;	603	PL_exit_flags \|= PERL_EXIT_DESTRUCT_END;
615		604
…		…
620	"cf->bootstrap;" // required for datadir :*>	609	"cf->bootstrap;" // required for datadir :*>
621	"unshift @INC, cf::datadir ();"	610	"unshift @INC, cf::datadir ();"
622	"require cf;"	611	"require cf;"
623	};	612	};
624		613
625	if (perl_parse (perl, xs_init, 2, (char )argv, (char )NULL)	614	if (perl_parse (perl, xs_init, 2, (char **)argv, environ)
626	\|\| perl_run (perl))	615	\|\| perl_run (perl))
627	{	616	{
628	printf ("unable to initialize perl-interpreter, aborting.\n");	617	printf ("unable to initialize perl-interpreter, aborting.\n");
629	exit (EXIT_FAILURE);	618	exit (EXIT_FAILURE);
630	}	619	}
…		…
907	}	896	}
908		897
909	/////////////////////////////////////////////////////////////////////////////	898	/////////////////////////////////////////////////////////////////////////////
910	// various c++ => perl glue functions	899	// various c++ => perl glue functions
911		900
		901	void cfperl_tick ()
		902	{
		903	tick_pending = 1;
		904
		905	if (tick_inhibit)
		906	return;
		907
		908	tick_pending = 0;
		909
		910	dSP;
		911
		912	PUSHMARK (SP);
		913	PUTBACK;
		914	call_pv ("cf::tick", G_DISCARD \| G_VOID);
		915
		916	SvNV_set (sv_next_tick, get_next_tick ()); SvNOK_only (sv_next_tick);
		917	}
		918
912	void	919	void
913	cfperl_emergency_save ()	920	cfperl_emergency_save ()
914	{	921	{
915	CALL_BEGIN (0);	922	CALL_BEGIN (0);
916	CALL_CALL ("cf::emergency_save", G_VOID);	923	CALL_CALL ("cf::emergency_save", G_VOID);
…		…
931	{	938	{
932	CALL_BEGIN (2);	939	CALL_BEGIN (2);
933	CALL_ARG (book);	940	CALL_ARG (book);
934	CALL_ARG (level);	941	CALL_ARG (level);
935	CALL_CALL ("ext::books::make_book", G_VOID);	942	CALL_CALL ("ext::books::make_book", G_VOID);
		943	CALL_END;
		944	}
		945
		946	void
		947	cfperl_expand_cfpod (player *pl, std::string &msg)
		948	{
		949	CALL_BEGIN (2);
		950	CALL_ARG (pl);
		951	CALL_ARG_SV (newSVpvn_utf8 (msg.data (), msg.size ()));
		952	CALL_CALL ("cf::player::expand_cfpod", G_SCALAR);
		953
		954	if (count)
		955	{
		956	STRLEN len;
		957	char *data = SvPVutf8 (TOPs, len);
		958	msg.assign (data, len);
		959	}
		960
936	CALL_END;	961	CALL_END;
937	}	962	}
938		963
939	void	964	void
940	cfperl_send_msg (client ns, int color, const char type, const char *msg)	965	cfperl_send_msg (client ns, int color, const char type, const char *msg)
…		…
968	{	993	{
969	CALL_BEGIN (1);	994	CALL_BEGIN (1);
970	CALL_ARG (name);	995	CALL_ARG (name);
971	CALL_CALL ("cf::player::find", G_SCALAR);	996	CALL_CALL ("cf::player::find", G_SCALAR);
972		997
973	player *retval;	998	player *retval = 0;
974
975	if (count)
976	sv_to (POPs, retval);	999	if (count) sv_to (POPs, retval);
977	else	1000
978	retval = 0;	1001	CALL_END;
		1002
		1003	return retval;
		1004	}
		1005
		1006	maptile *
		1007	find_style (const char dirname, const char stylename, int difficulty)
		1008	{
		1009	CALL_BEGIN (3);
		1010	CALL_ARG (dirname);
		1011	CALL_ARG (stylename);
		1012	CALL_ARG (difficulty);
		1013	CALL_CALL ("ext::map_random::find_style", G_SCALAR);
		1014
		1015	maptile *retval = 0;
		1016	if (count) sv_to (POPs, retval);
979		1017
980	CALL_END;	1018	CALL_END;
981		1019
982	return retval;	1020	return retval;
983	}	1021	}
…		…
988	CALL_BEGIN (2);	1026	CALL_BEGIN (2);
989	CALL_ARG (path);	1027	CALL_ARG (path);
990	CALL_ARG (origin);	1028	CALL_ARG (origin);
991	CALL_CALL ("cf::map::find_sync", G_SCALAR);	1029	CALL_CALL ("cf::map::find_sync", G_SCALAR);
992		1030
993	maptile *retval;	1031	maptile *retval = 0;
994
995	if (count)
996	sv_to (POPs, retval);	1032	if (count) sv_to (POPs, retval);
997	else
998	retval = 0;
999		1033
1000	CALL_END;	1034	CALL_END;
1001		1035
1002	return retval;	1036	return retval;
1003	}	1037	}
…		…
1009	CALL_ARG (path);	1043	CALL_ARG (path);
1010	CALL_ARG (origin);	1044	CALL_ARG (origin);
1011	CALL_ARG (load);	1045	CALL_ARG (load);
1012	CALL_CALL ("cf::map::find_async", G_SCALAR);	1046	CALL_CALL ("cf::map::find_async", G_SCALAR);
1013		1047
1014	maptile *retval;	1048	maptile *retval = 0;
1015
1016	if (count)
1017	sv_to (POPs, retval);	1049	if (count) sv_to (POPs, retval);
1018	else
1019	retval = 0;
1020		1050
1021	CALL_END;	1051	CALL_END;
1022		1052
1023	return retval;	1053	return retval;
1024	}	1054	}
…		…
1049		1079
1050	CALL_BEGIN (2);	1080	CALL_BEGIN (2);
1051	CALL_ARG (this);	1081	CALL_ARG (this);
1052	CALL_ARG (exit);	1082	CALL_ARG (exit);
1053	CALL_CALL ("cf::object::player::enter_exit", G_VOID);	1083	CALL_CALL ("cf::object::player::enter_exit", G_VOID);
		1084	CALL_END;
		1085	}
		1086
		1087	void
		1088	object::player_goto (const char *path, int x, int y)
		1089	{
		1090	if (type != PLAYER)
		1091	return;
		1092
		1093	CALL_BEGIN (4);
		1094	CALL_ARG (this);
		1095	CALL_ARG (path);
		1096	CALL_ARG (x);
		1097	CALL_ARG (y);
		1098	CALL_CALL ("cf::object::player::goto", G_VOID);
1054	CALL_END;	1099	CALL_END;
1055	}	1100	}
1056		1101
1057	const char *	1102	const char *
1058	object::ref () const	1103	object::ref () const
…		…
1102	/////////////////////////////////////////////////////////////////////////////	1147	/////////////////////////////////////////////////////////////////////////////
1103		1148
1104	struct EVAPI *evapi::GEVAPI;	1149	struct EVAPI *evapi::GEVAPI;
1105	struct CoroAPI *coroapi::GCoroAPI;	1150	struct CoroAPI *coroapi::GCoroAPI;
1106		1151
1107	int coroapi::cede_counter;
1108	tstamp coroapi::next_cede;
1109
1110	void coroapi::do_cede_to_tick ()	1152	void coroapi::do_cede_to_tick ()
1111	{	1153	{
1112	cede_counter = 0;	1154	cede_pending = 0;
1113
1114	cede ();	1155	cede ();
1115
1116	next_cede += (TICK / CEDES_PER_TICK) * 0.99;
1117	if (next_cede > SvNVx (sv_next_tick) - 0.02)
1118	next_cede = SvNVx (sv_next_tick);
1119	}
1120
1121	void coroapi::do_cede_every ()
1122	{
1123	cede_counter = 0;
1124
1125	if (coroapi::nready ())
1126	coroapi::cede ();
1127	}
1128
1129	void coroapi::do_cede_to_tick_every ()
1130	{
1131	cede_counter = 0;
1132
1133	cede_to_tick ();
1134	}	1156	}
1135		1157
1136	void	1158	void
1137	coroapi::wait_for_tick ()	1159	coroapi::wait_for_tick ()
1138	{	1160	{
…		…
1162	}	1184	}
1163		1185
1164	void	1186	void
1165	_connect_to_perl ()	1187	_connect_to_perl ()
1166	{	1188	{
1167	stash_cf = gv_stashpv ("cf" , 1);	1189	stash_cf = gv_stashpv ("cf", 1);
1168		1190
1169	stash_cf_object_wrap = gv_stashpv ("cf::object::wrap", 1);	1191	stash_cf_object_wrap = gv_stashpv ("cf::object::wrap", 1);
1170	stash_cf_object_player_wrap = gv_stashpv ("cf::object::player::wrap", 1);	1192	stash_cf_object_player_wrap = gv_stashpv ("cf::object::player::wrap", 1);
1171	stash_cf_player_wrap = gv_stashpv ("cf::player::wrap", 1);	1193	stash_cf_player_wrap = gv_stashpv ("cf::player::wrap", 1);
1172	stash_cf_map_wrap = gv_stashpv ("cf::map::wrap" , 1);	1194	stash_cf_map_wrap = gv_stashpv ("cf::map::wrap" , 1);
…		…
1174	stash_cf_arch_wrap = gv_stashpv ("cf::arch::wrap" , 1);	1196	stash_cf_arch_wrap = gv_stashpv ("cf::arch::wrap" , 1);
1175	stash_cf_party_wrap = gv_stashpv ("cf::party::wrap" , 1);	1197	stash_cf_party_wrap = gv_stashpv ("cf::party::wrap" , 1);
1176	stash_cf_region_wrap = gv_stashpv ("cf::region::wrap", 1);	1198	stash_cf_region_wrap = gv_stashpv ("cf::region::wrap", 1);
1177	stash_cf_living_wrap = gv_stashpv ("cf::living::wrap", 1);	1199	stash_cf_living_wrap = gv_stashpv ("cf::living::wrap", 1);
1178		1200
1179	sv_now = get_sv ("cf::NOW" , 1); sv_upgrade (sv_now , SVt_NV);	1201	sv_now = get_sv ("cf::NOW" , 1); SvUPGRADE (sv_now , SVt_NV);
1180	sv_runtime = get_sv ("cf::RUNTIME" , 1); sv_upgrade (sv_runtime , SVt_NV);	1202	sv_runtime = get_sv ("cf::RUNTIME" , 1); SvUPGRADE (sv_runtime , SVt_NV);
		1203	sv_tick_start = get_sv ("cf::TICK_START", 1); SvUPGRADE (sv_tick_start, SVt_NV);
1181	sv_next_tick = get_sv ("cf::NEXT_TICK", 1); sv_upgrade (sv_next_tick, SVt_NV);	1204	sv_next_tick = get_sv ("cf::NEXT_TICK" , 1); SvUPGRADE (sv_next_tick , SVt_NV);
1182		1205
1183	cb_global = get_av ("cf::CB_GLOBAL", 1);	1206	cb_global = get_av ("cf::CB_GLOBAL", 1);
1184	cb_attachable = get_av ("cf::CB_ATTACHABLE", 1);	1207	cb_attachable = get_av ("cf::CB_ATTACHABLE", 1);
1185	cb_object = get_av ("cf::CB_OBJECT", 1);	1208	cb_object = get_av ("cf::CB_OBJECT", 1);
1186	cb_player = get_av ("cf::CB_PLAYER", 1);	1209	cb_player = get_av ("cf::CB_PLAYER", 1);
…		…
1419	const_iv (ATNR_PARALYZE) const_iv (ATNR_TURN_UNDEAD) const_iv (ATNR_FEAR) const_iv (ATNR_CANCELLATION)	1442	const_iv (ATNR_PARALYZE) const_iv (ATNR_TURN_UNDEAD) const_iv (ATNR_FEAR) const_iv (ATNR_CANCELLATION)
1420	const_iv (ATNR_DEPLETE) const_iv (ATNR_DEATH) const_iv (ATNR_CHAOS) const_iv (ATNR_COUNTERSPELL)	1443	const_iv (ATNR_DEPLETE) const_iv (ATNR_DEATH) const_iv (ATNR_CHAOS) const_iv (ATNR_COUNTERSPELL)
1421	const_iv (ATNR_GODPOWER) const_iv (ATNR_HOLYWORD) const_iv (ATNR_BLIND) const_iv (ATNR_INTERNAL)	1444	const_iv (ATNR_GODPOWER) const_iv (ATNR_HOLYWORD) const_iv (ATNR_BLIND) const_iv (ATNR_INTERNAL)
1422	const_iv (ATNR_LIFE_STEALING) const_iv (ATNR_DISEASE)	1445	const_iv (ATNR_LIFE_STEALING) const_iv (ATNR_DISEASE)
1423		1446
1424	const_iv (MAP_IN_MEMORY) const_iv (MAP_SWAPPED) const_iv (MAP_LOADING) const_iv (MAP_SAVING)	1447	const_iv (MAP_ACTIVE) const_iv (MAP_SWAPPED) const_iv (MAP_LOADING) const_iv (MAP_SAVING)
		1448	const_iv (MAP_INACTIVE)
1425		1449
1426	const_iv (KLASS_ATTACHABLE) const_iv (KLASS_GLOBAL) const_iv (KLASS_OBJECT)	1450	const_iv (KLASS_ATTACHABLE) const_iv (KLASS_GLOBAL) const_iv (KLASS_OBJECT)
1427	const_iv (KLASS_CLIENT) const_iv (KLASS_PLAYER) const_iv (KLASS_MAP)	1451	const_iv (KLASS_CLIENT) const_iv (KLASS_PLAYER) const_iv (KLASS_MAP)
1428		1452
1429	const_iv (VERSION_CS) const_iv (VERSION_SC)	1453	const_iv (VERSION_CS) const_iv (VERSION_SC)
…		…
1444		1468
1445	const_iv (SYMMETRY_RANDOM) const_iv (SYMMETRY_NONE) const_iv (SYMMETRY_X)	1469	const_iv (SYMMETRY_RANDOM) const_iv (SYMMETRY_NONE) const_iv (SYMMETRY_X)
1446	const_iv (SYMMETRY_Y) const_iv (SYMMETRY_XY)	1470	const_iv (SYMMETRY_Y) const_iv (SYMMETRY_XY)
1447		1471
1448	const_iv (GT_ENVIRONMENT) const_iv (GT_INVISIBLE) const_iv (GT_STARTEQUIP)	1472	const_iv (GT_ENVIRONMENT) const_iv (GT_INVISIBLE) const_iv (GT_STARTEQUIP)
1449	const_iv (GT_APPLY) const_iv (GT_ONLY_GOOD) const_iv (GT_UPDATE_INV)	1473	const_iv (GT_APPLY) const_iv (GT_ONLY_GOOD) const_iv (GT_MINIMAL)
1450	const_iv (GT_MINIMAL)
1451		1474
1452	const_iv (FT_FACE) const_iv (FT_MUSIC) const_iv (FT_SOUND)	1475	const_iv (FT_FACE) const_iv (FT_MUSIC) const_iv (FT_SOUND)
1453	const_iv (FT_RSRC) const_iv (FT_NUM)	1476	const_iv (FT_RSRC) const_iv (FT_NUM)
1454	};	1477	};
1455		1478
…		…
1534	}	1557	}
1535		1558
1536	SvCUR_set (data_sv, dst - SvPVX (data_sv));	1559	SvCUR_set (data_sv, dst - SvPVX (data_sv));
1537	}	1560	}
1538		1561
		1562	void evthread_start (int aiofd)
		1563
1539	void _post_tick ()	1564	void cede_to_tick ()
1540	CODE:	1565	CODE:
1541	coroapi::next_cede = SvNVx (sv_next_tick) - TICK * (1. - 1. / CEDES_PER_TICK);	1566	coroapi::cede_to_tick ();
1542		1567
1543	NV till_cede ()	1568	NV till_tick ()
1544	CODE:	1569	CODE:
1545	RETVAL = coroapi::next_cede - now ();	1570	RETVAL = SvNVX (sv_next_tick) - now ();
1546	OUTPUT:	1571	OUTPUT:
1547	RETVAL	1572	RETVAL
1548		1573
1549	NV till_tick ()	1574	int tick_inhibit ()
1550	CODE:	1575	CODE:
1551	RETVAL = SvNVx (sv_next_tick) - now ();	1576	RETVAL = tick_inhibit;
1552	OUTPUT:	1577	OUTPUT:
1553	RETVAL	1578	RETVAL
1554		1579
		1580	void tick_inhibit_inc ()
		1581	CODE:
		1582	++tick_inhibit;
		1583
		1584	void tick_inhibit_dec ()
		1585	CODE:
		1586	if (!--tick_inhibit)
		1587	if (tick_pending)
		1588	{
		1589	ev_async_send (EV_DEFAULT, &tick_watcher);
		1590	coroapi::cede ();
		1591	}
		1592
		1593	void server_tick ()
		1594	CODE:
		1595	{
		1596	NOW = ev_now (EV_DEFAULT);
		1597	SvNV_set (sv_now, NOW); SvNOK_only (sv_now);
		1598	SvNV_set (sv_tick_start, NOW); SvNOK_only (sv_tick_start);
		1599	runtime = SvNVX (sv_runtime);
		1600
		1601	server_tick ();
		1602
		1603	NOW = ev_time ();
		1604	SvNV_set (sv_now, NOW); SvNOK_only (sv_now);
		1605	runtime += TICK;
		1606	SvNV_set (sv_runtime, runtime); SvNOK_only (sv_runtime);
		1607	}
		1608
1555	NV floor (NV x)	1609	NV floor (NV x)
1556		1610
1557	NV ceil (NV x)	1611	NV ceil (NV x)
1558		1612
1559	NV rndm (...)	1613	NV rndm (...)
		1614	ALIAS:
		1615	rmg_rndm = 1
1560	CODE:	1616	CODE:
		1617	{
		1618	rand_gen &gen = ix ? rmg_rndm : rndm;
1561	switch (items)	1619	switch (items)
1562	{	1620	{
1563	case 0: RETVAL = rndm (); break;	1621	case 0: RETVAL = gen (); break;
1564	case 1: RETVAL = rndm (SvUV (ST (0))); break;	1622	case 1: RETVAL = gen (SvUV (ST (0))); break;
1565	case 2: RETVAL = rndm (SvIV (ST (0)), SvIV (ST (1))); break;	1623	case 2: RETVAL = gen (SvIV (ST (0)), SvIV (ST (1))); break;
1566	default: croak ("cf::rndm requires none, one or two parameters."); break;	1624	default: croak ("cf::rndm requires none, one or two parameters."); break;
1567	}	1625	}
		1626	}
1568	OUTPUT:	1627	OUTPUT:
1569	RETVAL	1628	RETVAL
1570		1629
1571	NV clamp (NV value, NV min_value, NV max_value)	1630	NV clamp (NV value, NV min_value, NV max_value)
1572	CODE:	1631	CODE:
…		…
1578	CODE:	1637	CODE:
1579	RETVAL = lerp (value, min_in, max_in, min_out, max_out);	1638	RETVAL = lerp (value, min_in, max_in, min_out, max_out);
1580	OUTPUT:	1639	OUTPUT:
1581	RETVAL	1640	RETVAL
1582		1641
1583	void cede_to_tick ()	1642	void weaken (...)
1584	CODE:	1643	PROTOTYPE: @
1585	coroapi::cede_to_tick ();	1644	CODE:
1586		1645	while (items > 0)
1587	void server_tick ()	1646	sv_rvweaken (ST (--items));
1588	CODE:
1589	NOW = SvNVx (sv_now);
1590	runtime = SvNVx (sv_runtime);
1591	server_tick ();
1592		1647
1593	void	1648	void
1594	log_backtrace (utf8_string msg)	1649	log_backtrace (utf8_string msg)
1595		1650
1596	void	1651	void
…		…
1601	octet_string path_combine (octet_string base, octet_string path)	1656	octet_string path_combine (octet_string base, octet_string path)
1602	PROTOTYPE: $$	1657	PROTOTYPE: $$
1603		1658
1604	octet_string path_combine_and_normalize (octet_string base, octet_string path)	1659	octet_string path_combine_and_normalize (octet_string base, octet_string path)
1605	PROTOTYPE: $$	1660	PROTOTYPE: $$
1606
1607	void
1608	mallinfo ()
1609	PPCODE:
1610	{
1611	#if __GLIBC__
1612	struct mallinfo mai = mallinfo ();
1613	EXTEND (SP, 10*2);
1614	PUSHs (sv_2mortal (newSVpv ("arena" , 0))); PUSHs (sv_2mortal (newSViv (mai.arena)));
1615	PUSHs (sv_2mortal (newSVpv ("ordblks" , 0))); PUSHs (sv_2mortal (newSViv (mai.ordblks)));
1616	PUSHs (sv_2mortal (newSVpv ("smblks" , 0))); PUSHs (sv_2mortal (newSViv (mai.smblks)));
1617	PUSHs (sv_2mortal (newSVpv ("hblks" , 0))); PUSHs (sv_2mortal (newSViv (mai.hblks)));
1618	PUSHs (sv_2mortal (newSVpv ("hblkhd" , 0))); PUSHs (sv_2mortal (newSViv (mai.hblkhd)));
1619	PUSHs (sv_2mortal (newSVpv ("usmblks" , 0))); PUSHs (sv_2mortal (newSViv (mai.usmblks)));
1620	PUSHs (sv_2mortal (newSVpv ("fsmblks" , 0))); PUSHs (sv_2mortal (newSViv (mai.fsmblks)));
1621	PUSHs (sv_2mortal (newSVpv ("uordblks", 0))); PUSHs (sv_2mortal (newSViv (mai.uordblks)));
1622	PUSHs (sv_2mortal (newSVpv ("fordblks", 0))); PUSHs (sv_2mortal (newSViv (mai.fordblks)));
1623	PUSHs (sv_2mortal (newSVpv ("keepcost", 0))); PUSHs (sv_2mortal (newSViv (mai.keepcost)));
1624	#endif
1625	EXTEND (SP, 2*2);
1626	PUSHs (sv_2mortal (newSVpv ("slice_alloc", 0))); PUSHs (sv_2mortal (newSVuv (slice_alloc)));
1627	PUSHs (sv_2mortal (newSVpv ("shstr_alloc", 0))); PUSHs (sv_2mortal (newSVuv (shstr_alloc)));
1628	}
1629		1661
1630	void	1662	void
1631	sub_generation_inc ()	1663	sub_generation_inc ()
1632	CODE:	1664	CODE:
1633	PL_sub_generation++;	1665	PL_sub_generation++;
…		…
1658		1690
1659	void abort ()	1691	void abort ()
1660		1692
1661	void reset_signals ()	1693	void reset_signals ()
1662		1694
1663	void fork_abort (octet_string cause = "cf::fork_abort")	1695	void fork_abort (const_octet_string cause = "cf::fork_abort")
1664		1696
1665	void cleanup (octet_string cause, bool make_core = false)	1697	void cleanup (const_octet_string cause, bool make_core = false)
1666		1698
1667	void emergency_save ()	1699	void emergency_save ()
1668		1700
1669	void _exit (int status = EXIT_SUCCESS)	1701	void _exit (int status = EXIT_SUCCESS)
1670		1702
1671	#if _POSIX_MEMLOCK	1703	#if _POSIX_MEMLOCK
1672		1704
1673	int mlockall (int flags = MCL_CURRENT \| MCL_FUTURE)	1705	int mlockall (int flags = MCL_CURRENT \| MCL_FUTURE)
		1706	INIT:
		1707	#if __GLIBC__
		1708	mallopt (M_PERTURB, 0xee); // bug-workaround for linux glibc+mlockall+calloc
		1709	#endif
1674		1710
1675	int munlockall ()	1711	int munlockall ()
1676		1712
1677	#endif	1713	#endif
		1714
		1715	int
		1716	malloc_trim (IV pad = 0)
		1717
		1718	void
		1719	mallinfo ()
		1720	PPCODE:
		1721	{
		1722	#if __GLIBC__
		1723	struct mallinfo mai = mallinfo ();
		1724	EXTEND (SP, 10*2);
		1725	PUSHs (sv_2mortal (newSVpv ("arena" , 0))); PUSHs (sv_2mortal (newSViv (mai.arena)));
		1726	PUSHs (sv_2mortal (newSVpv ("ordblks" , 0))); PUSHs (sv_2mortal (newSViv (mai.ordblks)));
		1727	PUSHs (sv_2mortal (newSVpv ("smblks" , 0))); PUSHs (sv_2mortal (newSViv (mai.smblks)));
		1728	PUSHs (sv_2mortal (newSVpv ("hblks" , 0))); PUSHs (sv_2mortal (newSViv (mai.hblks)));
		1729	PUSHs (sv_2mortal (newSVpv ("hblkhd" , 0))); PUSHs (sv_2mortal (newSViv (mai.hblkhd)));
		1730	PUSHs (sv_2mortal (newSVpv ("usmblks" , 0))); PUSHs (sv_2mortal (newSViv (mai.usmblks)));
		1731	PUSHs (sv_2mortal (newSVpv ("fsmblks" , 0))); PUSHs (sv_2mortal (newSViv (mai.fsmblks)));
		1732	PUSHs (sv_2mortal (newSVpv ("uordblks", 0))); PUSHs (sv_2mortal (newSViv (mai.uordblks)));
		1733	PUSHs (sv_2mortal (newSVpv ("fordblks", 0))); PUSHs (sv_2mortal (newSViv (mai.fordblks)));
		1734	PUSHs (sv_2mortal (newSVpv ("keepcost", 0))); PUSHs (sv_2mortal (newSViv (mai.keepcost)));
		1735	#endif
		1736	EXTEND (SP, 2*2);
		1737	PUSHs (sv_2mortal (newSVpv ("slice_alloc", 0))); PUSHs (sv_2mortal (newSVuv (slice_alloc)));
		1738	PUSHs (sv_2mortal (newSVpv ("shstr_alloc", 0))); PUSHs (sv_2mortal (newSVuv (shstr_alloc)));
		1739	PUSHs (sv_2mortal (newSVpv ("objects" , 0))); PUSHs (sv_2mortal (newSVuv (objects.size () * sizeof (object))));
		1740	}
1678		1741
1679	int find_animation (utf8_string text)	1742	int find_animation (utf8_string text)
1680	PROTOTYPE: $	1743	PROTOTYPE: $
1681		1744
1682	int random_roll (int min, int max, object *op, int goodbad);	1745	int random_roll (int min, int max, object *op, int goodbad);
…		…
1720	RETVAL = newSVpv (resist_plus[atnr], 0);	1783	RETVAL = newSVpv (resist_plus[atnr], 0);
1721	else	1784	else
1722	XSRETURN_UNDEF;	1785	XSRETURN_UNDEF;
1723	OUTPUT: RETVAL	1786	OUTPUT: RETVAL
1724		1787
		1788	UUID
		1789	uuid_cur ()
		1790	CODE:
		1791	RETVAL = UUID::cur;
		1792	OUTPUT:
		1793	RETVAL
		1794
		1795	UUID
		1796	uuid_gen ()
		1797	CODE:
		1798	RETVAL = UUID::gen ();
		1799	OUTPUT:
		1800	RETVAL
		1801
		1802	val64
		1803	uuid_seq (UUID uuid)
		1804	CODE:
		1805	RETVAL = uuid.seq;
		1806	OUTPUT:
		1807	RETVAL
		1808
		1809	UUID
		1810	uuid_str (val64 seq)
		1811	CODE:
		1812	RETVAL.seq = seq;
		1813	OUTPUT:
		1814	RETVAL
		1815
		1816	void
		1817	coin_names ()
		1818	PPCODE:
		1819	EXTEND (SP, NUM_COINS);
		1820	for (int i = 0; i < NUM_COINS; ++i)
		1821	PUSHs (sv_2mortal (newSVpv (coins [i], 0)));
		1822
		1823	void
		1824	coin_archetypes ()
		1825	PPCODE:
		1826	EXTEND (SP, NUM_COINS);
		1827	for (int i = 0; i < NUM_COINS; ++i)
		1828	PUSHs (sv_2mortal (to_sv (archetype::find (coins [i]))));
		1829
1725	bool	1830	bool
1726	load_resource_file (octet_string filename)	1831	load_resource_file_ (octet_string filename)
		1832
		1833	void
		1834	fix_weight ()
1727		1835
1728	MODULE = cf PACKAGE = cf::attachable	1836	MODULE = cf PACKAGE = cf::attachable
1729		1837
1730	int	1838	int
1731	valid (SV *obj)	1839	valid (SV *obj)
…		…
1795	object *actives (U32 index)	1903	object *actives (U32 index)
1796	CODE:	1904	CODE:
1797	RETVAL = index < actives.size () ? actives [index] : 0;	1905	RETVAL = index < actives.size () ? actives [index] : 0;
1798	OUTPUT: RETVAL	1906	OUTPUT: RETVAL
1799		1907
		1908	int mortals_size ()
		1909	CODE:
		1910	RETVAL = attachable::mortals.size ();
		1911	OUTPUT: RETVAL
		1912
1800	const char *slot_use_name (U32 slot)	1913	const char *slot_use_name (U32 slot)
1801	ALIAS:	1914	ALIAS:
1802	slot_nonuse_name = 1	1915	slot_nonuse_name = 1
1803	CODE:	1916	CODE:
1804	{	1917	{
…		…
1882	void apply_below (object *op)	1995	void apply_below (object *op)
1883	CODE:	1996	CODE:
1884	player_apply_below (op);	1997	player_apply_below (op);
1885		1998
1886	int cast_heal (object op, object caster, object *spell, int dir = 0)	1999	int cast_heal (object op, object caster, object *spell, int dir = 0)
1887
1888	#//TODO
1889	object clone_ (object op, int recursive = 0)
1890	CODE:
1891	if (recursive)
1892	RETVAL = object_create_clone (op);
1893	else
1894	{
1895	RETVAL = object::create ();
1896	op->copy_to (RETVAL);
1897	}
1898	OUTPUT: RETVAL
1899		2000
1900	int pay_item (object op, object buyer)	2001	int pay_item (object op, object buyer)
1901	CODE:	2002	CODE:
1902	RETVAL = pay_for_item (op, buyer);	2003	RETVAL = pay_for_item (op, buyer);
1903	OUTPUT: RETVAL	2004	OUTPUT: RETVAL
…		…
1981	CODE:	2082	CODE:
1982	{	2083	{
1983	RETVAL = insert_ob_in_map_at (ob, where, orig, flag, x, y);	2084	RETVAL = insert_ob_in_map_at (ob, where, orig, flag, x, y);
1984	}	2085	}
1985		2086
1986	const_utf8_string get_ob_key_value (object *op, utf8_string key)	2087	shstr
		2088	object::kv_get (shstr key)
1987		2089
1988	bool set_ob_key_value (object *op, utf8_string key, utf8_string value = 0, int add_key = 1)	2090	void
		2091	object::kv_del (shstr key)
		2092
		2093	void
		2094	object::kv_set (shstr key, shstr value)
1989		2095
1990	object get_nearest_player (object ob)	2096	object get_nearest_player (object ob)
1991	ALIAS: nearest_player = 0	2097	ALIAS: nearest_player = 0
1992	PREINIT:	2098	PREINIT:
1993	extern object get_nearest_player (object );	2099	extern object get_nearest_player (object );
…		…
1995	void rangevector (object ob, object other, int flags = 0)	2101	void rangevector (object ob, object other, int flags = 0)
1996	PROTOTYPE: $$;$	2102	PROTOTYPE: $$;$
1997	PPCODE:	2103	PPCODE:
1998	{	2104	{
1999	rv_vector rv;	2105	rv_vector rv;
		2106
		2107	PUTBACK;
2000	get_rangevector (ob, other, &rv, flags);	2108	get_rangevector (ob, other, &rv, flags);
		2109	SPAGAIN;
		2110
2001	EXTEND (SP, 5);	2111	EXTEND (SP, 5);
2002	PUSHs (newSVuv (rv.distance));	2112	PUSHs (newSVuv (rv.distance));
2003	PUSHs (newSViv (rv.distance_x));	2113	PUSHs (newSViv (rv.distance_x));
2004	PUSHs (newSViv (rv.distance_y));	2114	PUSHs (newSViv (rv.distance_y));
2005	PUSHs (newSViv (rv.direction));	2115	PUSHs (newSViv (rv.direction));
…		…
2014	const_utf8_string	2124	const_utf8_string
2015	base_name (object *op, int plural = op->nrof > 1)	2125	base_name (object *op, int plural = op->nrof > 1)
2016	CODE:	2126	CODE:
2017	RETVAL = query_base_name (op, plural);	2127	RETVAL = query_base_name (op, plural);
2018	OUTPUT: RETVAL	2128	OUTPUT: RETVAL
2019
2020	object decrease_ob_nr (object op, unsigned long i)
2021		2129
2022	# return the tail of an object, excluding itself	2130	# return the tail of an object, excluding itself
2023	void	2131	void
2024	tail (object *op)	2132	tail (object *op)
2025	PPCODE:	2133	PPCODE:
…		…
2314	get_map_flags (maptile *map, int x, int y)	2422	get_map_flags (maptile *map, int x, int y)
2315	PPCODE:	2423	PPCODE:
2316	{	2424	{
2317	maptile *nmap = 0;	2425	maptile *nmap = 0;
2318	I16 nx = 0, ny = 0;	2426	I16 nx = 0, ny = 0;
		2427
		2428	PUTBACK;
2319	int flags = get_map_flags (map, &nmap, x, y, &nx, &ny);	2429	int flags = get_map_flags (map, &nmap, x, y, &nx, &ny);
		2430	SPAGAIN;
2320		2431
2321	EXTEND (SP, 4);	2432	EXTEND (SP, 4);
2322	PUSHs (sv_2mortal (newSViv (flags)));	2433	PUSHs (sv_2mortal (newSViv (flags)));
2323		2434
2324	if (GIMME_V == G_ARRAY)	2435	if (GIMME_V == G_ARRAY)
…		…
2332	void	2443	void
2333	at (maptile *map, unsigned int x, unsigned int y)	2444	at (maptile *map, unsigned int x, unsigned int y)
2334	PROTOTYPE: $$$	2445	PROTOTYPE: $$$
2335	PPCODE:	2446	PPCODE:
2336	{	2447	{
2337	object *o;
2338	maptile *nmap = 0;	2448	maptile *nmap = 0;
2339	I16 nx, ny;	2449	I16 nx, ny;
2340		2450
		2451	PUTBACK;
2341	get_map_flags (map, &nmap, x, y, &nx, &ny);	2452	get_map_flags (map, &nmap, x, y, &nx, &ny);
		2453	SPAGAIN;
2342		2454
2343	if (nmap)	2455	if (nmap)
2344	for (o = GET_MAP_OB (nmap, nx, ny); o; o = o->above)	2456	for (object *o = nmap->at (nx, ny).bot; o; o = o->above)
2345	XPUSHs (sv_2mortal (to_sv (o)));	2457	XPUSHs (sv_2mortal (to_sv (o)));
2346	}	2458	}
2347		2459
2348	SV *	2460	SV *
2349	bot_at (maptile *obj, unsigned int x, unsigned int y)	2461	bot_at (maptile *obj, unsigned int x, unsigned int y)
…		…
2793	extract_tags (object_thawer *self)	2905	extract_tags (object_thawer *self)
2794	PPCODE:	2906	PPCODE:
2795	while (self->kw != KW_EOF)	2907	while (self->kw != KW_EOF)
2796	{	2908	{
2797	PUTBACK;	2909	PUTBACK;
2798	coroapi::cede_to_tick_every (5000);	2910	coroapi::cede_to_tick ();
2799	SPAGAIN;	2911	SPAGAIN;
2800		2912
2801	if (self->kw == KW_tag)	2913	if (self->kw == KW_tag)
2802	XPUSHs (sv_2mortal (newSVpv_utf8 (self->get_str ())));	2914	XPUSHs (sv_2mortal (newSVpv_utf8 (self->get_str ())));
2803		2915

Diff Legend

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

Comparing deliantra/server/server/cfperl.xs (file contents): Revision 1.267 by root, Mon Dec 17 08:03:22 2007 UTC vs. Revision 1.292 by root, Tue Jul 29 02:00:55 2008 UTC

Diff Legend

Comparing deliantra/server/server/cfperl.xs (file contents):
Revision 1.267 by root, Mon Dec 17 08:03:22 2007 UTC vs.
Revision 1.292 by root, Tue Jul 29 02:00:55 2008 UTC