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

Comparing deliantra/server/server/cfperl.xs (file contents):
Revision 1.268 by root, Sat Dec 29 21:07:23 2007 UTC vs.
Revision 1.288 by root, Tue May 6 18:47:32 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:
…		…
1584	PROTOTYPE: @	1627	PROTOTYPE: @
1585	CODE:	1628	CODE:
1586	while (items > 0)	1629	while (items > 0)
1587	sv_rvweaken (ST (--items));	1630	sv_rvweaken (ST (--items));
1588		1631
1589	void cede_to_tick ()
1590	CODE:
1591	coroapi::cede_to_tick ();
1592
1593	void server_tick ()
1594	CODE:
1595	NOW = SvNVx (sv_now);
1596	runtime = SvNVx (sv_runtime);
1597	server_tick ();
1598
1599	void	1632	void
1600	log_backtrace (utf8_string msg)	1633	log_backtrace (utf8_string msg)
1601		1634
1602	void	1635	void
1603	LOG (int flags, utf8_string msg)	1636	LOG (int flags, utf8_string msg)
…		…
1607	octet_string path_combine (octet_string base, octet_string path)	1640	octet_string path_combine (octet_string base, octet_string path)
1608	PROTOTYPE: $$	1641	PROTOTYPE: $$
1609		1642
1610	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)
1611	PROTOTYPE: $$	1644	PROTOTYPE: $$
1612
1613	void
1614	mallinfo ()
1615	PPCODE:
1616	{
1617	#if __GLIBC__
1618	struct mallinfo mai = mallinfo ();
1619	EXTEND (SP, 10*2);
1620	PUSHs (sv_2mortal (newSVpv ("arena" , 0))); PUSHs (sv_2mortal (newSViv (mai.arena)));
1621	PUSHs (sv_2mortal (newSVpv ("ordblks" , 0))); PUSHs (sv_2mortal (newSViv (mai.ordblks)));
1622	PUSHs (sv_2mortal (newSVpv ("smblks" , 0))); PUSHs (sv_2mortal (newSViv (mai.smblks)));
1623	PUSHs (sv_2mortal (newSVpv ("hblks" , 0))); PUSHs (sv_2mortal (newSViv (mai.hblks)));
1624	PUSHs (sv_2mortal (newSVpv ("hblkhd" , 0))); PUSHs (sv_2mortal (newSViv (mai.hblkhd)));
1625	PUSHs (sv_2mortal (newSVpv ("usmblks" , 0))); PUSHs (sv_2mortal (newSViv (mai.usmblks)));
1626	PUSHs (sv_2mortal (newSVpv ("fsmblks" , 0))); PUSHs (sv_2mortal (newSViv (mai.fsmblks)));
1627	PUSHs (sv_2mortal (newSVpv ("uordblks", 0))); PUSHs (sv_2mortal (newSViv (mai.uordblks)));
1628	PUSHs (sv_2mortal (newSVpv ("fordblks", 0))); PUSHs (sv_2mortal (newSViv (mai.fordblks)));
1629	PUSHs (sv_2mortal (newSVpv ("keepcost", 0))); PUSHs (sv_2mortal (newSViv (mai.keepcost)));
1630	#endif
1631	EXTEND (SP, 2*2);
1632	PUSHs (sv_2mortal (newSVpv ("slice_alloc", 0))); PUSHs (sv_2mortal (newSVuv (slice_alloc)));
1633	PUSHs (sv_2mortal (newSVpv ("shstr_alloc", 0))); PUSHs (sv_2mortal (newSVuv (shstr_alloc)));
1634	}
1635		1645
1636	void	1646	void
1637	sub_generation_inc ()	1647	sub_generation_inc ()
1638	CODE:	1648	CODE:
1639	PL_sub_generation++;	1649	PL_sub_generation++;
…		…
1664		1674
1665	void abort ()	1675	void abort ()
1666		1676
1667	void reset_signals ()	1677	void reset_signals ()
1668		1678
1669	void fork_abort (octet_string cause = "cf::fork_abort")	1679	void fork_abort (const_octet_string cause = "cf::fork_abort")
1670		1680
1671	void cleanup (octet_string cause, bool make_core = false)	1681	void cleanup (const_octet_string cause, bool make_core = false)
1672		1682
1673	void emergency_save ()	1683	void emergency_save ()
1674		1684
1675	void _exit (int status = EXIT_SUCCESS)	1685	void _exit (int status = EXIT_SUCCESS)
1676		1686
1677	#if _POSIX_MEMLOCK	1687	#if _POSIX_MEMLOCK
1678		1688
1679	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
1680		1694
1681	int munlockall ()	1695	int munlockall ()
1682		1696
1683	#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	}
1684		1725
1685	int find_animation (utf8_string text)	1726	int find_animation (utf8_string text)
1686	PROTOTYPE: $	1727	PROTOTYPE: $
1687		1728
1688	int random_roll (int min, int max, object *op, int goodbad);	1729	int random_roll (int min, int max, object *op, int goodbad);
…		…
1726	RETVAL = newSVpv (resist_plus[atnr], 0);	1767	RETVAL = newSVpv (resist_plus[atnr], 0);
1727	else	1768	else
1728	XSRETURN_UNDEF;	1769	XSRETURN_UNDEF;
1729	OUTPUT: RETVAL	1770	OUTPUT: RETVAL
1730		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
1731	bool	1814	bool
1732	load_resource_file (octet_string filename)	1815	load_resource_file_ (octet_string filename)
		1816
		1817	void
		1818	fix_weight ()
1733		1819
1734	MODULE = cf PACKAGE = cf::attachable	1820	MODULE = cf PACKAGE = cf::attachable
1735		1821
1736	int	1822	int
1737	valid (SV *obj)	1823	valid (SV *obj)
…		…
1801	object *actives (U32 index)	1887	object *actives (U32 index)
1802	CODE:	1888	CODE:
1803	RETVAL = index < actives.size () ? actives [index] : 0;	1889	RETVAL = index < actives.size () ? actives [index] : 0;
1804	OUTPUT: RETVAL	1890	OUTPUT: RETVAL
1805		1891
		1892	int mortals_size ()
		1893	CODE:
		1894	RETVAL = attachable::mortals.size ();
		1895	OUTPUT: RETVAL
		1896
1806	const char *slot_use_name (U32 slot)	1897	const char *slot_use_name (U32 slot)
1807	ALIAS:	1898	ALIAS:
1808	slot_nonuse_name = 1	1899	slot_nonuse_name = 1
1809	CODE:	1900	CODE:
1810	{	1901	{
…		…
1888	void apply_below (object *op)	1979	void apply_below (object *op)
1889	CODE:	1980	CODE:
1890	player_apply_below (op);	1981	player_apply_below (op);
1891		1982
1892	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)
1893
1894	#//TODO
1895	object clone_ (object op, int recursive = 0)
1896	CODE:
1897	if (recursive)
1898	RETVAL = object_create_clone (op);
1899	else
1900	{
1901	RETVAL = object::create ();
1902	op->copy_to (RETVAL);
1903	}
1904	OUTPUT: RETVAL
1905		1984
1906	int pay_item (object op, object buyer)	1985	int pay_item (object op, object buyer)
1907	CODE:	1986	CODE:
1908	RETVAL = pay_for_item (op, buyer);	1987	RETVAL = pay_for_item (op, buyer);
1909	OUTPUT: RETVAL	1988	OUTPUT: RETVAL
…		…
1987	CODE:	2066	CODE:
1988	{	2067	{
1989	RETVAL = insert_ob_in_map_at (ob, where, orig, flag, x, y);	2068	RETVAL = insert_ob_in_map_at (ob, where, orig, flag, x, y);
1990	}	2069	}
1991		2070
1992	const_utf8_string get_ob_key_value (object *op, utf8_string key)	2071	shstr
		2072	object::kv_get (shstr key)
1993		2073
1994	bool set_ob_key_value (object *op, utf8_string key, utf8_string value = 0, int add_key = 1)	2074	void
		2075	object::kv_del (shstr key)
		2076
		2077	void
		2078	object::kv_set (shstr key, shstr value)
1995		2079
1996	object get_nearest_player (object ob)	2080	object get_nearest_player (object ob)
1997	ALIAS: nearest_player = 0	2081	ALIAS: nearest_player = 0
1998	PREINIT:	2082	PREINIT:
1999	extern object get_nearest_player (object );	2083	extern object get_nearest_player (object );
…		…
2020	const_utf8_string	2104	const_utf8_string
2021	base_name (object *op, int plural = op->nrof > 1)	2105	base_name (object *op, int plural = op->nrof > 1)
2022	CODE:	2106	CODE:
2023	RETVAL = query_base_name (op, plural);	2107	RETVAL = query_base_name (op, plural);
2024	OUTPUT: RETVAL	2108	OUTPUT: RETVAL
2025
2026	object decrease_ob_nr (object op, unsigned long i)
2027		2109
2028	# return the tail of an object, excluding itself	2110	# return the tail of an object, excluding itself
2029	void	2111	void
2030	tail (object *op)	2112	tail (object *op)
2031	PPCODE:	2113	PPCODE:
…		…
2799	extract_tags (object_thawer *self)	2881	extract_tags (object_thawer *self)
2800	PPCODE:	2882	PPCODE:
2801	while (self->kw != KW_EOF)	2883	while (self->kw != KW_EOF)
2802	{	2884	{
2803	PUTBACK;	2885	PUTBACK;
2804	coroapi::cede_to_tick_every (5000);	2886	coroapi::cede_to_tick ();
2805	SPAGAIN;	2887	SPAGAIN;
2806		2888
2807	if (self->kw == KW_tag)	2889	if (self->kw == KW_tag)
2808	XPUSHs (sv_2mortal (newSVpv_utf8 (self->get_str ())));	2890	XPUSHs (sv_2mortal (newSVpv_utf8 (self->get_str ())));
2809		2891

Diff Legend

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

Comparing deliantra/server/server/cfperl.xs (file contents): Revision 1.268 by root, Sat Dec 29 21:07:23 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.268 by root, Sat Dec 29 21:07:23 2007 UTC vs.
Revision 1.288 by root, Tue May 6 18:47:32 2008 UTC