[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.287 by root, Sun May 4 15:22:14 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
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		28
29	#define CEDES_PER_TICK 5
30
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 <cstdarg>	33	#include <cstdarg>
36		34
37	#include "global.h"	35	#include "global.h"
38	#include "loader.h"	36	#include "loader.h"
39	#include "../random_maps/random_map.h"	37	#include "../random_maps/random_map.h"
		38	#include "evthread.h"
40	#include <sproto.h>	39	#include "sproto.h"
41		40
42	#include <unistd.h>	41	#include <unistd.h>
43	#if _POSIX_MEMLOCK	42	#if _POSIX_MEMLOCK
44	# include <sys/mman.h>	43	# include <sys/mman.h>
45	#endif	44	#endif
46		45
47	#if HAVE_MALLOC_H	46	#if HAVE_MALLOC_H
48	# include <malloc.h>	47	# include <malloc.h>
49	#endif	48	#endif
50		49
		50	#if !__GLIBC__
		51	# define malloc_trim(pad) -1
		52	#endif
		53
51	#include <EXTERN.h>	54	#include <EXTERN.h>
52	#include <perl.h>	55	#include <perl.h>
53	#include <XSUB.h>	56	#include <XSUB.h>
54		57
55	#include "CoroAPI.h"	58	#include "CoroAPI.h"
…		…
60	typedef object_thawer &object_thawer_ref;	63	typedef object_thawer &object_thawer_ref;
61	typedef object_freezer &object_freezer_ref;	64	typedef object_freezer &object_freezer_ref;
62		65
63	typedef std::string std__string;	66	typedef std::string std__string;
64		67
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;	68	static PerlInterpreter *perl;
76		69
77	tstamp NOW, runtime;	70	tstamp NOW, runtime;
		71
		72	static int tick_inhibit;
		73	static int tick_pending;
78		74
79	global gbl_ev;	75	global gbl_ev;
80	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;
81	static SV sv_runtime, sv_next_tick, *sv_now;	77	static SV sv_runtime, sv_tick_start, sv_next_tick, sv_now;
82		78
83	bitset<NUM_EVENT_TYPES> ev_want_event;	79	bitset<NUM_EVENT_TYPES> ev_want_event;
84	bitset<NUM_TYPES> ev_want_type;	80	bitset<NUM_TYPES> ev_want_type;
85		81
86	static HV	82	static HV
…		…
442	inline SV *to_sv (living & v) { return to_sv (&v); }	438	inline SV *to_sv (living & v) { return to_sv (&v); }
443		439
444	inline SV *to_sv (const std::string & v) { return newSVpvn (v.data (), v.size ()); }	440	inline SV *to_sv (const std::string & v) { return newSVpvn (v.data (), v.size ()); }
445	inline SV to_sv (const treasurelist v) { return to_sv (v->name); }	441	inline SV to_sv (const treasurelist v) { return to_sv (v->name); }
446		442
447	inline SV *to_sv (UUID v)	443	inline SV *to_sv (UUID v) { return newSVpv (v.c_str (), 0); }
448	{
449	char buf[128];
450	snprintf (buf, 128, "<1.%" PRIx64 ">", v.seq);
451	return newSVpv (buf, 0);
452	}
453		444
454	inline void sv_to (SV *sv, shstr &v) { v = SvOK (sv) ? SvPVutf8_nolen (sv) : 0; }	445	inline void sv_to (SV *sv, shstr &v) { v = SvOK (sv) ? SvPVutf8_nolen (sv) : 0; }
455	inline void sv_to (SV sv, char &v) { free (v); v = SvOK (sv) ? strdup (SvPV_nolen (sv)) : 0; }	446	inline void sv_to (SV sv, char &v) { free (v); v = SvOK (sv) ? strdup (SvPV_nolen (sv)) : 0; }
456	inline void sv_to (SV *sv, bool &v) { v = SvIV (sv); }	447	inline void sv_to (SV *sv, bool &v) { v = SvIV (sv); }
457	inline void sv_to (SV *sv, signed char &v) { v = SvIV (sv); }	448	inline void sv_to (SV *sv, signed char &v) { v = SvIV (sv); }
…		…
499	v.assign (data, len);	490	v.assign (data, len);
500	}	491	}
501		492
502	inline void sv_to (SV *sv, UUID &v)	493	inline void sv_to (SV *sv, UUID &v)
503	{	494	{
504	unsigned int version;	495	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));	496	croak ("unparsable uuid: %s", SvPV_nolen (sv));
508	}	497	}
509		498
510	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); }
511		500
…		…
605	/////////////////////////////////////////////////////////////////////////////	594	/////////////////////////////////////////////////////////////////////////////
606		595
607	void	596	void
608	cfperl_init ()	597	cfperl_init ()
609	{	598	{
		599	extern char **environ;
		600
610	PERL_SYS_INIT3 (&settings.argc, &settings.argv, 0);	601	PERL_SYS_INIT3 (&settings.argc, &settings.argv, &environ);
611	perl = perl_alloc ();	602	perl = perl_alloc ();
612	perl_construct (perl);	603	perl_construct (perl);
613		604
614	PL_exit_flags \|= PERL_EXIT_DESTRUCT_END;	605	PL_exit_flags \|= PERL_EXIT_DESTRUCT_END;
615		606
…		…
620	"cf->bootstrap;" // required for datadir :*>	611	"cf->bootstrap;" // required for datadir :*>
621	"unshift @INC, cf::datadir ();"	612	"unshift @INC, cf::datadir ();"
622	"require cf;"	613	"require cf;"
623	};	614	};
624		615
625	if (perl_parse (perl, xs_init, 2, (char )argv, (char )NULL)	616	if (perl_parse (perl, xs_init, 2, (char **)argv, environ)
626	\|\| perl_run (perl))	617	\|\| perl_run (perl))
627	{	618	{
628	printf ("unable to initialize perl-interpreter, aborting.\n");	619	printf ("unable to initialize perl-interpreter, aborting.\n");
629	exit (EXIT_FAILURE);	620	exit (EXIT_FAILURE);
630	}	621	}
…		…
907	}	898	}
908		899
909	/////////////////////////////////////////////////////////////////////////////	900	/////////////////////////////////////////////////////////////////////////////
910	// various c++ => perl glue functions	901	// various c++ => perl glue functions
911		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	}
		920
912	void	921	void
913	cfperl_emergency_save ()	922	cfperl_emergency_save ()
914	{	923	{
915	CALL_BEGIN (0);	924	CALL_BEGIN (0);
916	CALL_CALL ("cf::emergency_save", G_VOID);	925	CALL_CALL ("cf::emergency_save", G_VOID);
…		…
968	{	977	{
969	CALL_BEGIN (1);	978	CALL_BEGIN (1);
970	CALL_ARG (name);	979	CALL_ARG (name);
971	CALL_CALL ("cf::player::find", G_SCALAR);	980	CALL_CALL ("cf::player::find", G_SCALAR);
972		981
973	player *retval;	982	player *retval = 0;
974
975	if (count)
976	sv_to (POPs, retval);	983	if (count) sv_to (POPs, retval);
977	else	984
978	retval = 0;	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);
979		1001
980	CALL_END;	1002	CALL_END;
981		1003
982	return retval;	1004	return retval;
983	}	1005	}
…		…
988	CALL_BEGIN (2);	1010	CALL_BEGIN (2);
989	CALL_ARG (path);	1011	CALL_ARG (path);
990	CALL_ARG (origin);	1012	CALL_ARG (origin);
991	CALL_CALL ("cf::map::find_sync", G_SCALAR);	1013	CALL_CALL ("cf::map::find_sync", G_SCALAR);
992		1014
993	maptile *retval;	1015	maptile *retval = 0;
994
995	if (count)
996	sv_to (POPs, retval);	1016	if (count) sv_to (POPs, retval);
997	else
998	retval = 0;
999		1017
1000	CALL_END;	1018	CALL_END;
1001		1019
1002	return retval;	1020	return retval;
1003	}	1021	}
…		…
1009	CALL_ARG (path);	1027	CALL_ARG (path);
1010	CALL_ARG (origin);	1028	CALL_ARG (origin);
1011	CALL_ARG (load);	1029	CALL_ARG (load);
1012	CALL_CALL ("cf::map::find_async", G_SCALAR);	1030	CALL_CALL ("cf::map::find_async", G_SCALAR);
1013		1031
1014	maptile *retval;	1032	maptile *retval = 0;
1015
1016	if (count)
1017	sv_to (POPs, retval);	1033	if (count) sv_to (POPs, retval);
1018	else
1019	retval = 0;
1020		1034
1021	CALL_END;	1035	CALL_END;
1022		1036
1023	return retval;	1037	return retval;
1024	}	1038	}
…		…
1049		1063
1050	CALL_BEGIN (2);	1064	CALL_BEGIN (2);
1051	CALL_ARG (this);	1065	CALL_ARG (this);
1052	CALL_ARG (exit);	1066	CALL_ARG (exit);
1053	CALL_CALL ("cf::object::player::enter_exit", G_VOID);	1067	CALL_CALL ("cf::object::player::enter_exit", G_VOID);
		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);
1054	CALL_END;	1083	CALL_END;
1055	}	1084	}
1056		1085
1057	const char *	1086	const char *
1058	object::ref () const	1087	object::ref () const
…		…
1102	/////////////////////////////////////////////////////////////////////////////	1131	/////////////////////////////////////////////////////////////////////////////
1103		1132
1104	struct EVAPI *evapi::GEVAPI;	1133	struct EVAPI *evapi::GEVAPI;
1105	struct CoroAPI *coroapi::GCoroAPI;	1134	struct CoroAPI *coroapi::GCoroAPI;
1106		1135
1107	int coroapi::cede_counter;
1108	tstamp coroapi::next_cede;
1109
1110	void coroapi::do_cede_to_tick ()	1136	void coroapi::do_cede_to_tick ()
1111	{	1137	{
1112	cede_counter = 0;	1138	cede_pending = 0;
1113
1114	cede ();	1139	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	}	1140	}
1135		1141
1136	void	1142	void
1137	coroapi::wait_for_tick ()	1143	coroapi::wait_for_tick ()
1138	{	1144	{
…		…
1162	}	1168	}
1163		1169
1164	void	1170	void
1165	_connect_to_perl ()	1171	_connect_to_perl ()
1166	{	1172	{
1167	stash_cf = gv_stashpv ("cf" , 1);	1173	stash_cf = gv_stashpv ("cf", 1);
1168		1174
1169	stash_cf_object_wrap = gv_stashpv ("cf::object::wrap", 1);	1175	stash_cf_object_wrap = gv_stashpv ("cf::object::wrap", 1);
1170	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);
1171	stash_cf_player_wrap = gv_stashpv ("cf::player::wrap", 1);	1177	stash_cf_player_wrap = gv_stashpv ("cf::player::wrap", 1);
1172	stash_cf_map_wrap = gv_stashpv ("cf::map::wrap" , 1);	1178	stash_cf_map_wrap = gv_stashpv ("cf::map::wrap" , 1);
…		…
1174	stash_cf_arch_wrap = gv_stashpv ("cf::arch::wrap" , 1);	1180	stash_cf_arch_wrap = gv_stashpv ("cf::arch::wrap" , 1);
1175	stash_cf_party_wrap = gv_stashpv ("cf::party::wrap" , 1);	1181	stash_cf_party_wrap = gv_stashpv ("cf::party::wrap" , 1);
1176	stash_cf_region_wrap = gv_stashpv ("cf::region::wrap", 1);	1182	stash_cf_region_wrap = gv_stashpv ("cf::region::wrap", 1);
1177	stash_cf_living_wrap = gv_stashpv ("cf::living::wrap", 1);	1183	stash_cf_living_wrap = gv_stashpv ("cf::living::wrap", 1);
1178		1184
1179	sv_now = get_sv ("cf::NOW" , 1); sv_upgrade (sv_now , SVt_NV);	1185	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);	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);
1181	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);
1182		1189
1183	cb_global = get_av ("cf::CB_GLOBAL", 1);	1190	cb_global = get_av ("cf::CB_GLOBAL", 1);
1184	cb_attachable = get_av ("cf::CB_ATTACHABLE", 1);	1191	cb_attachable = get_av ("cf::CB_ATTACHABLE", 1);
1185	cb_object = get_av ("cf::CB_OBJECT", 1);	1192	cb_object = get_av ("cf::CB_OBJECT", 1);
1186	cb_player = get_av ("cf::CB_PLAYER", 1);	1193	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)	1426	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)	1427	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)	1428	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)	1429	const_iv (ATNR_LIFE_STEALING) const_iv (ATNR_DISEASE)
1423		1430
1424	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)
1425		1433
1426	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)
1427	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)
1428		1436
1429	const_iv (VERSION_CS) const_iv (VERSION_SC)	1437	const_iv (VERSION_CS) const_iv (VERSION_SC)
…		…
1444		1452
1445	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)
1446	const_iv (SYMMETRY_Y) const_iv (SYMMETRY_XY)	1454	const_iv (SYMMETRY_Y) const_iv (SYMMETRY_XY)
1447		1455
1448	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)
1449	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)
1450	const_iv (GT_MINIMAL)
1451		1458
1452	const_iv (FT_FACE) const_iv (FT_MUSIC) const_iv (FT_SOUND)	1459	const_iv (FT_FACE) const_iv (FT_MUSIC) const_iv (FT_SOUND)
1453	const_iv (FT_RSRC) const_iv (FT_NUM)	1460	const_iv (FT_RSRC) const_iv (FT_NUM)
1454	};	1461	};
1455		1462
…		…
1534	}	1541	}
1535		1542
1536	SvCUR_set (data_sv, dst - SvPVX (data_sv));	1543	SvCUR_set (data_sv, dst - SvPVX (data_sv));
1537	}	1544	}
1538		1545
		1546	void evthread_start (int aiofd)
		1547
1539	void _post_tick ()	1548	void cede_to_tick ()
1540	CODE:	1549	CODE:
1541	coroapi::next_cede = SvNVx (sv_next_tick) - TICK * (1. - 1. / CEDES_PER_TICK);	1550	coroapi::cede_to_tick ();
1542		1551
1543	NV till_cede ()	1552	NV till_tick ()
1544	CODE:	1553	CODE:
1545	RETVAL = coroapi::next_cede - now ();	1554	RETVAL = SvNVX (sv_next_tick) - now ();
1546	OUTPUT:	1555	OUTPUT:
1547	RETVAL	1556	RETVAL
1548		1557
1549	NV till_tick ()	1558	int tick_inhibit ()
1550	CODE:	1559	CODE:
1551	RETVAL = SvNVx (sv_next_tick) - now ();	1560	RETVAL = tick_inhibit;
1552	OUTPUT:	1561	OUTPUT:
1553	RETVAL	1562	RETVAL
1554		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
1555	NV floor (NV x)	1593	NV floor (NV x)
1556		1594
1557	NV ceil (NV x)	1595	NV ceil (NV x)
1558		1596
1559	NV rndm (...)	1597	NV rndm (...)
		1598	ALIAS:
		1599	rmg_rndm = 1
1560	CODE:	1600	CODE:
		1601	{
		1602	rand_gen &gen = ix ? rmg_rndm : rndm;
1561	switch (items)	1603	switch (items)
1562	{	1604	{
1563	case 0: RETVAL = rndm (); break;	1605	case 0: RETVAL = gen (); break;
1564	case 1: RETVAL = rndm (SvUV (ST (0))); break;	1606	case 1: RETVAL = gen (SvUV (ST (0))); break;
1565	case 2: RETVAL = rndm (SvIV (ST (0)), SvIV (ST (1))); break;	1607	case 2: RETVAL = gen (SvIV (ST (0)), SvIV (ST (1))); break;
1566	default: croak ("cf::rndm requires none, one or two parameters."); break;	1608	default: croak ("cf::rndm requires none, one or two parameters."); break;
1567	}	1609	}
		1610	}
1568	OUTPUT:	1611	OUTPUT:
1569	RETVAL	1612	RETVAL
1570		1613
1571	NV clamp (NV value, NV min_value, NV max_value)	1614	NV clamp (NV value, NV min_value, NV max_value)
1572	CODE:	1615	CODE:
…		…
1578	CODE:	1621	CODE:
1579	RETVAL = lerp (value, min_in, max_in, min_out, max_out);	1622	RETVAL = lerp (value, min_in, max_in, min_out, max_out);
1580	OUTPUT:	1623	OUTPUT:
1581	RETVAL	1624	RETVAL
1582		1625
1583	void cede_to_tick ()	1626	void weaken (...)
1584	CODE:	1627	PROTOTYPE: @
1585	coroapi::cede_to_tick ();	1628	CODE:
1586		1629	while (items > 0)
1587	void server_tick ()	1630	sv_rvweaken (ST (--items));
1588	CODE:
1589	NOW = SvNVx (sv_now);
1590	runtime = SvNVx (sv_runtime);
1591	server_tick ();
1592		1631
1593	void	1632	void
1594	log_backtrace (utf8_string msg)	1633	log_backtrace (utf8_string msg)
1595		1634
1596	void	1635	void
…		…
1601	octet_string path_combine (octet_string base, octet_string path)	1640	octet_string path_combine (octet_string base, octet_string path)
1602	PROTOTYPE: $$	1641	PROTOTYPE: $$
1603		1642
1604	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)
1605	PROTOTYPE: $$	1644	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		1645
1630	void	1646	void
1631	sub_generation_inc ()	1647	sub_generation_inc ()
1632	CODE:	1648	CODE:
1633	PL_sub_generation++;	1649	PL_sub_generation++;
…		…
1658		1674
1659	void abort ()	1675	void abort ()
1660		1676
1661	void reset_signals ()	1677	void reset_signals ()
1662		1678
1663	void fork_abort (octet_string cause = "cf::fork_abort")	1679	void fork_abort (const_octet_string cause = "cf::fork_abort")
1664		1680
1665	void cleanup (octet_string cause, bool make_core = false)	1681	void cleanup (const_octet_string cause, bool make_core = false)
1666		1682
1667	void emergency_save ()	1683	void emergency_save ()
1668		1684
1669	void _exit (int status = EXIT_SUCCESS)	1685	void _exit (int status = EXIT_SUCCESS)
1670		1686
1671	#if _POSIX_MEMLOCK	1687	#if _POSIX_MEMLOCK
1672		1688
1673	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
1674		1694
1675	int munlockall ()	1695	int munlockall ()
1676		1696
1677	#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	}
1678		1725
1679	int find_animation (utf8_string text)	1726	int find_animation (utf8_string text)
1680	PROTOTYPE: $	1727	PROTOTYPE: $
1681		1728
1682	int random_roll (int min, int max, object *op, int goodbad);	1729	int random_roll (int min, int max, object *op, int goodbad);
…		…
1720	RETVAL = newSVpv (resist_plus[atnr], 0);	1767	RETVAL = newSVpv (resist_plus[atnr], 0);
1721	else	1768	else
1722	XSRETURN_UNDEF;	1769	XSRETURN_UNDEF;
1723	OUTPUT: RETVAL	1770	OUTPUT: RETVAL
1724		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
1725	bool	1814	bool
1726	load_resource_file (octet_string filename)	1815	load_resource_file_ (octet_string filename)
1727		1816
1728	MODULE = cf PACKAGE = cf::attachable	1817	MODULE = cf PACKAGE = cf::attachable
1729		1818
1730	int	1819	int
1731	valid (SV *obj)	1820	valid (SV *obj)
…		…
1795	object *actives (U32 index)	1884	object *actives (U32 index)
1796	CODE:	1885	CODE:
1797	RETVAL = index < actives.size () ? actives [index] : 0;	1886	RETVAL = index < actives.size () ? actives [index] : 0;
1798	OUTPUT: RETVAL	1887	OUTPUT: RETVAL
1799		1888
		1889	int mortals_size ()
		1890	CODE:
		1891	RETVAL = attachable::mortals.size ();
		1892	OUTPUT: RETVAL
		1893
1800	const char *slot_use_name (U32 slot)	1894	const char *slot_use_name (U32 slot)
1801	ALIAS:	1895	ALIAS:
1802	slot_nonuse_name = 1	1896	slot_nonuse_name = 1
1803	CODE:	1897	CODE:
1804	{	1898	{
…		…
1882	void apply_below (object *op)	1976	void apply_below (object *op)
1883	CODE:	1977	CODE:
1884	player_apply_below (op);	1978	player_apply_below (op);
1885		1979
1886	int cast_heal (object op, object caster, object *spell, int dir = 0)	1980	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		1981
1900	int pay_item (object op, object buyer)	1982	int pay_item (object op, object buyer)
1901	CODE:	1983	CODE:
1902	RETVAL = pay_for_item (op, buyer);	1984	RETVAL = pay_for_item (op, buyer);
1903	OUTPUT: RETVAL	1985	OUTPUT: RETVAL
…		…
1981	CODE:	2063	CODE:
1982	{	2064	{
1983	RETVAL = insert_ob_in_map_at (ob, where, orig, flag, x, y);	2065	RETVAL = insert_ob_in_map_at (ob, where, orig, flag, x, y);
1984	}	2066	}
1985		2067
1986	const_utf8_string get_ob_key_value (object *op, utf8_string key)	2068	shstr
		2069	object::kv_get (shstr key)
1987		2070
1988	bool set_ob_key_value (object *op, utf8_string key, utf8_string value = 0, int add_key = 1)	2071	void
		2072	object::kv_del (shstr key)
		2073
		2074	void
		2075	object::kv_set (shstr key, shstr value)
1989		2076
1990	object get_nearest_player (object ob)	2077	object get_nearest_player (object ob)
1991	ALIAS: nearest_player = 0	2078	ALIAS: nearest_player = 0
1992	PREINIT:	2079	PREINIT:
1993	extern object get_nearest_player (object );	2080	extern object get_nearest_player (object );
…		…
2014	const_utf8_string	2101	const_utf8_string
2015	base_name (object *op, int plural = op->nrof > 1)	2102	base_name (object *op, int plural = op->nrof > 1)
2016	CODE:	2103	CODE:
2017	RETVAL = query_base_name (op, plural);	2104	RETVAL = query_base_name (op, plural);
2018	OUTPUT: RETVAL	2105	OUTPUT: RETVAL
2019
2020	object decrease_ob_nr (object op, unsigned long i)
2021		2106
2022	# return the tail of an object, excluding itself	2107	# return the tail of an object, excluding itself
2023	void	2108	void
2024	tail (object *op)	2109	tail (object *op)
2025	PPCODE:	2110	PPCODE:
…		…
2793	extract_tags (object_thawer *self)	2878	extract_tags (object_thawer *self)
2794	PPCODE:	2879	PPCODE:
2795	while (self->kw != KW_EOF)	2880	while (self->kw != KW_EOF)
2796	{	2881	{
2797	PUTBACK;	2882	PUTBACK;
2798	coroapi::cede_to_tick_every (5000);	2883	coroapi::cede_to_tick ();
2799	SPAGAIN;	2884	SPAGAIN;
2800		2885
2801	if (self->kw == KW_tag)	2886	if (self->kw == KW_tag)
2802	XPUSHs (sv_2mortal (newSVpv_utf8 (self->get_str ())));	2887	XPUSHs (sv_2mortal (newSVpv_utf8 (self->get_str ())));
2803		2888

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.287 by root, Sun May 4 15:22:14 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.287 by root, Sun May 4 15:22:14 2008 UTC