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

Comparing deliantra/server/plugins/cfperl/cfperl.xs (file contents):
Revision 1.2 by root, Fri Feb 3 07:51:14 2006 UTC vs.
Revision 1.14 by root, Tue Feb 7 23:29:55 2006 UTC

…		…
1	/*****************************************************************************/	1	/*****************************************************************************/
2	/* That code is placed under the GNU General Public Licence (GPL) */
3	/* (C)2001-2005 by Chachkoff Yann (Feel free to deliver your complaints) */
4	/*****************************************************************************/
5	/* CrossFire, A Multiplayer game for X-windows */	2	/* CrossFire, A Multiplayer game for the X Window System */
6	/* */
7	/* Copyright (C) 2000 Mark Wedel */
8	/* Copyright (C) 1992 Frank Tore Johansen */
9	/* Copyright (C) 2006 perl plugin by Marc Lehmann <cf@schmorpd.e> */
10	/* */
11	/* This program is free software; you can redistribute it and/or modify */
12	/* it under the terms of the GNU General Public License as published by */
13	/* the Free Software Foundation; either version 2 of the License, or */
14	/* (at your option) any later version. */
15	/* */
16	/* This program is distributed in the hope that it will be useful, */
17	/* but WITHOUT ANY WARRANTY; without even the implied warranty of */
18	/* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the */
19	/* GNU General Public License for more details. */
20	/* */
21	/* You should have received a copy of the GNU General Public License */
22	/* along with this program; if not, write to the Free Software */
23	/* Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */
24	/* */	3	/* */
25	/*****************************************************************************/	4	/*****************************************************************************/
		5
		6	/*
		7	* This code is placed under the GNU General Public Licence (GPL)
		8	*
		9	* Copyright (C) 2001-2005 by Chachkoff Yann
		10	* Copyright (C) 2006 by Marc Lehmann <cf@schmorpd.e>
		11	*
		12	* This program is free software; you can redistribute it and/or modify
		13	* it under the terms of the GNU General Public License as published by
		14	* the Free Software Foundation; either version 2 of the License, or
		15	* (at your option) any later version.
		16	*
		17	* This program is distributed in the hope that it will be useful,
		18	* but WITHOUT ANY WARRANTY; without even the implied warranty of
		19	* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
		20	* GNU General Public License for more details.
		21	*
		22	* You should have received a copy of the GNU General Public License
		23	* along with this program; if not, write to the Free Software
		24	* Foundation, Inc. 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
		25	*/
26		26
27	#include <EXTERN.h>	27	#include <EXTERN.h>
28	#include <perl.h>	28	#include <perl.h>
29	#include <XSUB.h>	29	#include <XSUB.h>
30		30
51		51
52	static f_plug_api gethook;	52	static f_plug_api gethook;
53	static f_plug_api registerGlobalEvent;	53	static f_plug_api registerGlobalEvent;
54	static f_plug_api unregisterGlobalEvent;	54	static f_plug_api unregisterGlobalEvent;
55	static f_plug_api systemDirectory;	55	static f_plug_api systemDirectory;
		56	static f_plug_api object_set_property;
56	static f_plug_api reCmp;	57	static f_plug_api map_get_map;
57		58
58	typedef struct	59	typedef struct
59	{	60	{
60	object* who;	61	object* who;
61	object* activator;	62	object* activator;
…		…
67	int returnvalue;	68	int returnvalue;
68	} CFPContext;	69	} CFPContext;
69		70
70	//static int current_command = -999;	71	//static int current_command = -999;
71		72
		73	static HV *obj_cache;
72	static PerlInterpreter *perl;	74	static PerlInterpreter *perl;
73		75
74	//////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////	76	//////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
		77
		78	// garbage collect some perl objects, if possible
		79	// all objects no longer referenced and empty are
		80	// eligible for destruction.
		81	void
		82	clean_obj_cache ()
		83	{
		84	int todo = 10;
		85	do
		86	{
		87	I32 klen;
		88	char *key;
		89	HE *he = hv_iternext (obj_cache);
		90
		91	if (he)
		92	{
		93	SV *sv = SvRV (hv_iterval (obj_cache, he));
		94
		95	// emopty and unreferened? nuke it
		96	if (SvREFCNT (sv) == 1 && !HvFILL ((HV *)sv))
		97	{
		98	hv_delete (obj_cache, HeKEY (he), HeKLEN (he), G_DISCARD);
		99	todo++;
		100	}
		101	}
		102	else
		103	break;
		104	}
		105	while (--todo);
		106	}
75		107
76	static SV *	108	static SV *
77	newSVptr (void ptr, const char klass)	109	newSVptr (void ptr, const char klass)
78	{	110	{
79	if (!ptr)	111	if (!ptr)
80	return &PL_sv_undef;	112	return &PL_sv_undef;
81		113
82	HV *hv = newHV ();	114	HV *hv = newHV ();
83	sv_magic ((SV )hv, 0, PERL_MAGIC_ext, (char )ptr, 0);	115	sv_magic ((SV )hv, 0, PERL_MAGIC_ext, (char )ptr, 0);
84	return sv_bless (newRV_noinc ((SV *)hv), gv_stashpv (klass, 1));	116	return sv_bless (newRV_noinc ((SV *)hv), gv_stashpv (klass, 1));
		117	}
		118
		119	static SV *
		120	newSVptr_cached (void ptr, const char klass)
		121	{
		122	SV sv, *he;
		123
		124	if (!ptr)
		125	return &PL_sv_undef;
		126
		127	he = hv_fetch (obj_cache, (char *)&ptr, sizeof (ptr), 0);
		128
		129	if (he)
		130	sv = *he;
		131	else
		132	{
		133	sv = newSVptr (ptr, klass);
		134	hv_store (obj_cache, (char *)&ptr, sizeof (ptr), sv, 0);
		135	}
		136
		137	return newSVsv (sv);
85	}	138	}
86		139
87	static void	140	static void
88	clearSVptr (SV *sv)	141	clearSVptr (SV *sv)
89	{	142	{
…		…
129	case CFAPI_DOUBLE:	182	case CFAPI_DOUBLE:
130	sv = newSViv (va_arg (args, double ));	183	sv = newSViv (va_arg (args, double ));
131	break;	184	break;
132		185
133	case CFAPI_STRING:	186	case CFAPI_STRING:
134	sv = newSVpv (va_arg (args, char *), 0);	187	{
		188	char str = va_arg (args, char );
		189	sv = str ? newSVpv (str, 0) : &PL_sv_undef;
		190	}
135	break;	191	break;
136		192
137	case CFAPI_POBJECT:	193	case CFAPI_POBJECT:
138	{	194	{
139	object obj = va_arg (args, object );	195	object obj = va_arg (args, object );
…		…
142	sv = &PL_sv_undef;	198	sv = &PL_sv_undef;
143	else	199	else
144	switch ((int )cf_object_get_property (obj, CFAPI_OBJECT_PROP_TYPE))	200	switch ((int )cf_object_get_property (obj, CFAPI_OBJECT_PROP_TYPE))
145	{	201	{
146	case MAP:	202	case MAP:
147	sv = newSVptr (obj, "cf::object::map");	203	sv = newSVptr_cached (obj, "cf::object::map");
148	break;	204	break;
149		205
150	case PLAYER:	206	case PLAYER:
151	sv = newSVptr (obj, "cf::object::player");	207	sv = newSVptr_cached (obj, "cf::object::player");
152	break;	208	break;
153		209
154	default:	210	default:
155	sv = newSVptr (obj, "cf::object");	211	sv = newSVptr_cached (obj, "cf::object");
156	break;	212	break;
157	}	213	}
158	}	214	}
159	break;	215	break;
160		216
161	case CFAPI_PMAP:	217	case CFAPI_PMAP:
162	sv = newSVptr (va_arg (args, object *), "cf::map");	218	sv = newSVptr (va_arg (args, mapstruct *), "cf::map");
163	break;	219	break;
164		220
165	case CFAPI_PPLAYER:	221	case CFAPI_PPLAYER:
166	sv = newSVptr (va_arg (args, object *), "cf::player");	222	sv = newSVptr (va_arg (args, player *), "cf::player");
167	break;	223	break;
168		224
169	case CFAPI_PARCH:	225	case CFAPI_PARCH:
170	sv = newSVptr (va_arg (args, object *), "cf::arch");	226	sv = newSVptr (va_arg (args, archetype *), "cf::arch");
171	break;	227	break;
172		228
173	case CFAPI_PPARTY:	229	case CFAPI_PPARTY:
174	sv = newSVptr (va_arg (args, object *), "cf::party");	230	sv = newSVptr (va_arg (args, partylist *), "cf::party");
175	break;	231	break;
176		232
177	case CFAPI_PREGION:	233	case CFAPI_PREGION:
178	sv = newSVptr (va_arg (args, object *), "cf::region");	234	sv = newSVptr (va_arg (args, region *), "cf::region");
179	break;	235	break;
180		236
181	default:	237	default:
182	assert (("unhandled type in newSVcfapi", 0));	238	assert (("unhandled type in newSVcfapi", 0));
183	}	239	}
…		…
216		272
217	PUTBACK;	273	PUTBACK;
218	int count = call_pv ("cf::inject_event", G_SCALAR \| G_EVAL);	274	int count = call_pv ("cf::inject_event", G_SCALAR \| G_EVAL);
219	SPAGAIN;	275	SPAGAIN;
220		276
		277	if (SvTRUE (ERRSV))
		278	LOG (llevError, "event '%d' callback evaluation error: %s", context->event_code, SvPV_nolen (ERRSV));
		279
221	context->returnvalue = count > 0 ? POPi : 0;	280	context->returnvalue = count > 0 ? POPi : 0;
222		281
223	PUTBACK;	282	PUTBACK;
224	FREETMPS;	283	FREETMPS;
225	LEAVE;	284	LEAVE;
226
227	if (SvTRUE (ERRSV))
228	LOG (llevError, "event '%d' callback evaluation error: %s", context->event_code, SvPV_nolen (ERRSV));
229	}	285	}
230		286
231	/////////////////////////////////////////////////////////////////////////////	287	/////////////////////////////////////////////////////////////////////////////
232		288
233	int	289	int
…		…
260		316
261	PUTBACK;	317	PUTBACK;
262	int count = call_pv ("cf::inject_command", G_SCALAR \| G_EVAL);	318	int count = call_pv ("cf::inject_command", G_SCALAR \| G_EVAL);
263	SPAGAIN;	319	SPAGAIN;
264		320
		321	if (SvTRUE (ERRSV))
		322	LOG (llevError, "command '%s' callback evaluation error: %s", rtn_cmd.name, SvPV_nolen (ERRSV));
		323
265	int returnvalue = count > 0 ? POPi : -1;	324	int returnvalue = count > 0 ? POPi : -1;
266		325
267	PUTBACK;	326	PUTBACK;
268	FREETMPS;	327	FREETMPS;
269	LEAVE;	328	LEAVE;
270
271	if (SvTRUE (ERRSV))
272	LOG (llevError, "command '%s' callback evaluation error: %s", rtn_cmd.name, SvPV_nolen (ERRSV));
273		329
274	return returnvalue;	330	return returnvalue;
275	}	331	}
276		332
277	void *	333	void *
…		…
281	char *propname;	337	char *propname;
282	int i;	338	int i;
283	va_start (args, type);	339	va_start (args, type);
284	propname = va_arg (args, char *);	340	propname = va_arg (args, char *);
285	//printf ("Property name: %s\n", propname);	341	//printf ("Property name: %s\n", propname);
286		342
287	if (!strcmp (propname, "command?"))	343	if (!strcmp (propname, "command?"))
288	{	344	{
		345	if (!perl)
		346	return NULL;
		347
289	const char cmdname = va_arg (args, const char );	348	const char cmdname = va_arg (args, const char );
290	HV *hv = get_hv ("cf::COMMAND", 1);	349	HV *hv = get_hv ("cf::COMMAND", 1);
291	SV **svp = hv_fetch (hv, cmdname, strlen (cmdname) + 1, 0);	350	SV **svp = hv_fetch (hv, cmdname, strlen (cmdname) + 1, 0);
292		351
293	va_end (args);	352	va_end (args);
…		…
329	printf (PLUGIN_VERSION " post init\n");	388	printf (PLUGIN_VERSION " post init\n");
330		389
331	registerGlobalEvent = gethook (&rtype, hooktype, "cfapi_system_register_global_event");	390	registerGlobalEvent = gethook (&rtype, hooktype, "cfapi_system_register_global_event");
332	unregisterGlobalEvent = gethook (&rtype, hooktype, "cfapi_system_unregister_global_event");	391	unregisterGlobalEvent = gethook (&rtype, hooktype, "cfapi_system_unregister_global_event");
333	systemDirectory = gethook (&rtype, hooktype, "cfapi_system_directory");	392	systemDirectory = gethook (&rtype, hooktype, "cfapi_system_directory");
		393	object_set_property = gethook (&rtype, hooktype, "cfapi_object_set_property");
334	reCmp = gethook (&rtype, hooktype, "cfapi_system_re_cmp");	394	map_get_map = gethook (&rtype, hooktype, "cfapi_map_get_map");
		395
335	cf_init_plugin (gethook);	396	cf_init_plugin (gethook);
336		397
337	/* Pick the global events you want to monitor from this plugin */	398	/* Pick the global events you want to monitor from this plugin */
338	registerGlobalEvent (NULL, EVENT_BORN, PLUGIN_NAME, globalEventListener);	399	registerGlobalEvent (NULL, EVENT_BORN, PLUGIN_NAME, globalEventListener);
339	registerGlobalEvent (NULL, EVENT_CLOCK, PLUGIN_NAME, globalEventListener);	400	registerGlobalEvent (NULL, EVENT_CLOCK, PLUGIN_NAME, globalEventListener);
…		…
348	registerGlobalEvent (NULL, EVENT_REMOVE, PLUGIN_NAME, globalEventListener);	409	registerGlobalEvent (NULL, EVENT_REMOVE, PLUGIN_NAME, globalEventListener);
349	registerGlobalEvent (NULL, EVENT_SHOUT, PLUGIN_NAME, globalEventListener);	410	registerGlobalEvent (NULL, EVENT_SHOUT, PLUGIN_NAME, globalEventListener);
350	registerGlobalEvent (NULL, EVENT_TELL, PLUGIN_NAME, globalEventListener);	411	registerGlobalEvent (NULL, EVENT_TELL, PLUGIN_NAME, globalEventListener);
351	registerGlobalEvent (NULL, EVENT_MUZZLE, PLUGIN_NAME, globalEventListener);	412	registerGlobalEvent (NULL, EVENT_MUZZLE, PLUGIN_NAME, globalEventListener);
352	registerGlobalEvent (NULL, EVENT_KICK, PLUGIN_NAME, globalEventListener);	413	registerGlobalEvent (NULL, EVENT_KICK, PLUGIN_NAME, globalEventListener);
		414	registerGlobalEvent (NULL, EVENT_FREE_OB, PLUGIN_NAME, globalEventListener);
353		415
354	char *argv[] = {	416	char *argv[] = {
355	"",	417	"",
356	"-e"	418	"-e"
357	"BEGIN {"	419	"BEGIN {"
358	" cf->bootstrap;"	420	" cf->bootstrap;"
359	" unshift @INC, cf::maps_directory ('perl');"	421	" unshift @INC, cf::datadir ();"
360	"}"	422	"}"
361	""	423	""
362	"use cf;"	424	"use cf;"
363	};	425	};
364		426
365	perl = perl_alloc ();	427	perl = perl_alloc ();
366	perl_construct (perl);	428	perl_construct (perl);
367		429
368	if (perl_parse (perl, xs_init, 2, argv, (char **)NULL)	430	if (perl_parse (perl, xs_init, 2, argv, (char **)NULL) \|\| perl_run (perl))
369	\|\| perl_run (perl))
370	{	431	{
371	printf ("unable to initialize perl-interpreter, continuing without.\n");	432	printf ("unable to initialize perl-interpreter, continuing without.\n");
372		433
373	perl_destruct (perl);	434	perl_destruct (perl);
374	perl_free (perl);	435	perl_free (perl);
375	perl = 0;	436	perl = 0;
		437	}
		438	else
		439	{
		440	obj_cache = newHV ();
376	}	441	}
377		442
378	return 0;	443	return 0;
379	}	444	}
380		445
…		…
400	{	465	{
401	case EVENT_CRASH:	466	case EVENT_CRASH:
402	printf ("Unimplemented for now\n");	467	printf ("Unimplemented for now\n");
403	break;	468	break;
404		469
		470	case EVENT_MAPENTER:
		471	case EVENT_MAPLEAVE:
		472	case EVENT_FREE_OB:
405	case EVENT_BORN:	473	case EVENT_BORN:
		474	case EVENT_REMOVE:
406	context.activator = va_arg (args, object *);	475	context.activator = va_arg (args, object *);
407	break;	476	break;
408		477
409	case EVENT_PLAYER_DEATH:	478	case EVENT_PLAYER_DEATH:
410	context.who = va_arg (args, object *);	479	context.who = va_arg (args, object *);
…		…
414	context.who = va_arg (args, object *);	483	context.who = va_arg (args, object *);
415	context.activator = va_arg (args, object *);	484	context.activator = va_arg (args, object *);
416	break;	485	break;
417		486
418	case EVENT_LOGIN:	487	case EVENT_LOGIN:
419	pl = va_arg (args, player *);
420	context.activator = pl->ob;
421	buf = va_arg (args, char *);
422	if (buf != 0)
423	strcpy (context.message, buf);
424	break;
425
426	case EVENT_LOGOUT:	488	case EVENT_LOGOUT:
427	pl = va_arg (args, player *);	489	pl = va_arg (args, player *);
428	context.activator = pl->ob;	490	context.activator = pl->ob;
429	buf = va_arg (args, char *);	491	buf = va_arg (args, char *);
430	if (buf != 0)	492	if (buf != 0)
431	strcpy (context.message, buf);	493	strcpy (context.message, buf);
432	break;	494	break;
433		495
434	case EVENT_REMOVE:
435	context.activator = va_arg (args, object *);
436	break;
437
438	case EVENT_SHOUT:	496	case EVENT_SHOUT:
439	context.activator = va_arg (args, object *);
440	buf = va_arg (args, char *);
441	if (buf != 0)
442	strcpy (context.message, buf);
443	break;
444
445	case EVENT_MUZZLE:	497	case EVENT_MUZZLE:
446	context.activator = va_arg (args, object *);
447	buf = va_arg (args, char *);
448	if (buf != 0)
449	strcpy (context.message, buf);
450	break;
451
452	case EVENT_KICK:	498	case EVENT_KICK:
453	context.activator = va_arg (args, object *);	499	context.activator = va_arg (args, object *);
454	buf = va_arg (args, char *);	500	buf = va_arg (args, char *);
455	if (buf != 0)	501	if (buf != 0)
456	strcpy (context.message, buf);	502	strcpy (context.message, buf);
457	break;	503	break;
458		504
459	case EVENT_MAPENTER:
460	context.activator = va_arg (args, object *);
461	break;
462
463	case EVENT_MAPLEAVE:
464	context.activator = va_arg (args, object *);
465	break;
466
467	case EVENT_CLOCK:	505	case EVENT_CLOCK:
		506	clean_obj_cache ();
		507	break;
		508
		509	case EVENT_TELL:
468	break;	510	break;
469		511
470	case EVENT_MAPRESET:	512	case EVENT_MAPRESET:
471	buf = va_arg (args, char *);	513	buf = va_arg (args, char *);
472	if (buf != 0)	514	if (buf != 0)
473	strcpy (context.message, buf);	515	strcpy (context.message, buf);
474	break;	516	break;
475
476	case EVENT_TELL:
477	break;
478	}	517	}
479		518
480	va_end (args);	519	va_end (args);
481		520
		521	if (context.event_code == EVENT_FREE_OB)
		522	{
		523	SV sv = hv_delete (obj_cache, (char )&context.activator, sizeof (object *), 0);
		524
		525	if (sv)
		526	{
		527	clearSVptr (sv);
		528	SvREFCNT_dec (sv);
		529	}
		530	}
		531	else
482	inject_event (&context);	532	inject_event (&context);
483		533
484	rv = context.returnvalue;	534	rv = context.returnvalue;
485		535
486	return &rv;	536	return &rv;
487	}	537	}
…		…
540		590
541	BOOT:	591	BOOT:
542	{	592	{
543	HV *stash = gv_stashpv ("cf", 1);	593	HV *stash = gv_stashpv ("cf", 1);
544		594
545	const struct {	595	static const struct {
546	const char *name;	596	const char *name;
547	IV iv;	597	IV iv;
548	} *civ, const_iv[] = {	598	} *civ, const_iv[] = {
549	# define const_iv(name) { # name, (IV)name },	599	# define const_iv(name) { # name, (IV)name },
550	const_iv (llevError)	600	const_iv (llevError)
…		…
801	const_iv (FLAG_IS_WATER)	851	const_iv (FLAG_IS_WATER)
802	const_iv (FLAG_CONTENT_ON_GEN)	852	const_iv (FLAG_CONTENT_ON_GEN)
803	const_iv (FLAG_IS_A_TEMPLATE)	853	const_iv (FLAG_IS_A_TEMPLATE)
804	const_iv (FLAG_IS_BUILDABLE)	854	const_iv (FLAG_IS_BUILDABLE)
805	const_iv (FLAG_AFK)	855	const_iv (FLAG_AFK)
		856
		857	const_iv (NDI_BLACK)
		858	const_iv (NDI_WHITE)
		859	const_iv (NDI_NAVY)
		860	const_iv (NDI_RED)
		861	const_iv (NDI_ORANGE)
		862	const_iv (NDI_BLUE)
		863	const_iv (NDI_DK_ORANGE)
		864	const_iv (NDI_GREEN)
		865	const_iv (NDI_LT_GREEN)
		866	const_iv (NDI_GREY)
		867	const_iv (NDI_BROWN)
		868	const_iv (NDI_GOLD)
		869	const_iv (NDI_TAN)
		870	const_iv (NDI_MAX_COLOR)
		871	const_iv (NDI_COLOR_MASK)
		872	const_iv (NDI_UNIQUE)
		873	const_iv (NDI_ALL)
		874
		875	const_iv (F_APPLIED)
		876	const_iv (F_LOCATION)
		877	const_iv (F_UNPAID)
		878	const_iv (F_MAGIC)
		879	const_iv (F_CURSED)
		880	const_iv (F_DAMNED)
		881	const_iv (F_OPEN)
		882	const_iv (F_NOPICK)
		883	const_iv (F_LOCKED)
		884
		885	const_iv (P_BLOCKSVIEW)
		886	const_iv (P_NO_MAGIC)
		887	const_iv (P_IS_ALIVE)
		888	const_iv (P_NO_CLERIC)
		889	const_iv (P_NEED_UPDATE)
		890	const_iv (P_NO_ERROR)
		891	const_iv (P_OUT_OF_MAP)
		892	const_iv (P_NEW_MAP)
		893
		894	const_iv (UP_OBJ_INSERT)
		895	const_iv (UP_OBJ_REMOVE)
		896	const_iv (UP_OBJ_CHANGE)
		897	const_iv (UP_OBJ_FACE)
		898
		899	const_iv (INS_NO_MERGE)
		900	const_iv (INS_ABOVE_FLOOR_ONLY)
		901	const_iv (INS_NO_WALK_ON)
		902	const_iv (INS_ON_TOP)
		903	const_iv (INS_BELOW_ORIGINATOR)
		904	const_iv (INS_MAP_LOAD)
		905
		906	const_iv (WILL_APPLY_HANDLE)
		907	const_iv (WILL_APPLY_TREASURE)
		908	const_iv (WILL_APPLY_EARTHWALL)
		909	const_iv (WILL_APPLY_DOOR)
		910	const_iv (WILL_APPLY_FOOD)
806	};	911	};
807		912
808	for (civ = const_iv + sizeof (const_iv) / sizeof (const_iv [0]); civ-- > const_iv; )	913	for (civ = const_iv + sizeof (const_iv) / sizeof (const_iv [0]); civ-- > const_iv; )
809	newCONSTSUB (stash, (char *)civ->name, newSViv (civ->iv));	914	newCONSTSUB (stash, (char *)civ->name, newSViv (civ->iv));
810		915
811	const struct {	916	static const struct {
812	const char *name;	917	const char *name;
813	IV iv;	918	IV iv;
814	} *event, event_list[] = {	919	} *event, event_list[] = {
815	# define const_event(name) { # name, (IV)EVENT_ ## name },	920	# define const_event(name) { # name, (IV)EVENT_ ## name },
816	const_event (NONE)	921	const_event (NONE)
…		…
824	const_event (TIME)	929	const_event (TIME)
825	const_event (THROW)	930	const_event (THROW)
826	const_event (TRIGGER)	931	const_event (TRIGGER)
827	const_event (CLOSE)	932	const_event (CLOSE)
828	const_event (TIMER)	933	const_event (TIMER)
		934	const_event (MOVE)
829		935
830	const_event (BORN)	936	const_event (BORN)
831	const_event (CLOCK)	937	const_event (CLOCK)
832	const_event (CRASH)	938	const_event (CRASH)
833	const_event (PLAYER_DEATH)	939	const_event (PLAYER_DEATH)
…		…
840	const_event (REMOVE)	946	const_event (REMOVE)
841	const_event (SHOUT)	947	const_event (SHOUT)
842	const_event (TELL)	948	const_event (TELL)
843	const_event (MUZZLE)	949	const_event (MUZZLE)
844	const_event (KICK)	950	const_event (KICK)
		951	//const_event (FREE_OB)
845	};	952	};
846		953
847	AV *av = get_av ("cf::EVENT", 1);	954	AV *av = get_av ("cf::EVENT", 1);
848		955
849	for (event = event_list + sizeof (event_list) / sizeof (event_list [0]); event-- > event_list; )	956	for (event = event_list + sizeof (event_list) / sizeof (event_list [0]); event-- > event_list; )
850	av_store (av, event->iv, newSVpv ((char *)event->name, 0));	957	av_store (av, event->iv, newSVpv ((char *)event->name, 0));
851		958
852	const struct {	959	static const struct {
853	int dtype;	960	int dtype;
854	const char *name;	961	const char *name;
855	IV idx;	962	IV idx;
856	} *cprop, prop_table[] = {	963	} *cprop, prop_table[] = {
857	# define prop(type, name) { type, # name, (IV) CFAPI_ ## name },	964	# define prop(type, name) { type, # name, (IV) CFAPI_ ## name },
…		…
973	prop (CFAPI_INT, OBJECT_PROP_DAM)	1080	prop (CFAPI_INT, OBJECT_PROP_DAM)
974	prop (CFAPI_STRING, OBJECT_PROP_GOD)	1081	prop (CFAPI_STRING, OBJECT_PROP_GOD)
975	prop (CFAPI_STRING, OBJECT_PROP_ARCH_NAME)	1082	prop (CFAPI_STRING, OBJECT_PROP_ARCH_NAME)
976	prop (CFAPI_INT, OBJECT_PROP_INVISIBLE)	1083	prop (CFAPI_INT, OBJECT_PROP_INVISIBLE)
977	prop (CFAPI_INT, OBJECT_PROP_FACE)	1084	prop (CFAPI_INT, OBJECT_PROP_FACE)
978	prop (CFAPI_STRING, PLAYER_PROP_IP)
979	prop (CFAPI_POBJECT, PLAYER_PROP_MARKED_ITEM)
980	prop (CFAPI_PPARTY, PLAYER_PROP_PARTY)
981	};	1085	};
982		1086
983	HV *prop_type = get_hv ("cf::PROP_TYPE", 1);	1087	HV *prop_type = get_hv ("cf::PROP_TYPE", 1);
984	HV *prop_idx = get_hv ("cf::PROP_IDX", 1);	1088	HV *prop_idx = get_hv ("cf::PROP_IDX", 1);
985		1089
…		…
990	}	1094	}
991	}	1095	}
992		1096
993	void	1097	void
994	LOG (int level, char *msg)	1098	LOG (int level, char *msg)
		1099	PROTOTYPE: $$
995	C_ARGS: level, "%s", msg	1100	C_ARGS: level, "%s", msg
996		1101
997	char *	1102	char *
998	cf_get_maps_directory (char *path)	1103	cf_get_maps_directory (char *path)
		1104	PROTOTYPE: $
999	ALIAS: maps_directory = 0	1105	ALIAS: maps_directory = 0
1000		1106
		1107	char *
		1108	mapdir ()
		1109	PROTOTYPE:
		1110	ALIAS:
		1111	mapdir = 0
		1112	uniquedir = 1
		1113	tmpdir = 2
		1114	confdir = 3
		1115	localdir = 4
		1116	playerdir = 5
		1117	datadir = 6
		1118	CODE:
		1119	{
		1120	int unused_type;
		1121	RETVAL = (char *)systemDirectory (&unused_type, ix);
		1122	}
		1123	OUTPUT: RETVAL
		1124
		1125	int
		1126	cf_find_animation (char *text)
		1127	PROTOTYPE: $
		1128
1001	MODULE = cf PACKAGE = cf::object PREFIX = cf_object_	1129	MODULE = cf PACKAGE = cf::object PREFIX = cf_object_
1002		1130
1003	PROTOTYPES: DISABLE
1004
1005	SV *	1131	SV *
1006	cf_object_get_property (object *obj, int type, int idx)	1132	get_property (object *obj, int type, int idx)
1007	CODE:	1133	CODE:
1008	RETVAL = newSVcfapi (type, cf_object_get_property (obj, idx));	1134	RETVAL = newSVcfapi (type, cf_object_get_property (obj, idx));
1009	OUTPUT:	1135	OUTPUT: RETVAL
1010	RETVAL	1136
		1137	SV *
		1138	set_property (object obj, int type, int idx, SV newval)
		1139	CODE:
		1140	switch (type)
		1141	{
		1142	case CFAPI_INT:
		1143	cf_object_set_int_property (obj, idx, SvIV (newval));
		1144	break;
		1145	case CFAPI_LONG:
		1146	cf_object_set_long_property (obj, idx, SvNV (newval));
		1147	break;
		1148	case CFAPI_DOUBLE:
		1149	{
		1150	int unused_type;
		1151	object_set_property (&unused_type, obj, idx, (double)SvNV (newval));
		1152	}
		1153	break;
		1154	case CFAPI_STRING:
		1155	cf_object_set_string_property (obj, idx, SvPV_nolen (newval));
		1156	break;
		1157	default:
		1158	croak ("unhandled type '%d' in set_property '%d'", type, idx);
		1159	}
		1160
		1161	void
		1162	inv (object *obj)
		1163	PROTOTYPE: $
		1164	PPCODE:
		1165	{
		1166	object *o;
		1167	for (o = obj->inv; o; o = o->below)
		1168	XPUSHs (sv_2mortal (newSVcfapi (CFAPI_POBJECT, o)));
		1169	}
1011		1170
1012	int cf_object_get_resistance (object *op, int rtype)	1171	int cf_object_get_resistance (object *op, int rtype)
1013	ALIAS: resistance = 0	1172	ALIAS: resistance = 0
1014		1173
1015	int cf_object_get_flag (object *op, int flag)	1174	int cf_object_get_flag (object *op, int flag)
…		…
1017		1176
1018	void cf_object_set_flag (object *op, int flag, int value)	1177	void cf_object_set_flag (object *op, int flag, int value)
1019		1178
1020	void cf_object_move (object op, object originator, int dir)	1179	void cf_object_move (object op, object originator, int dir)
1021		1180
1022	void cf_object_apply (object op, object author, int flags)	1181	void cf_object_apply (object op, object author, int flags = 0)
1023		1182
1024	void cf_object_apply_below (object *op)	1183	void cf_object_apply_below (object *op)
1025		1184
1026	void cf_object_remove (object *op)	1185	void cf_object_remove (object *op)
1027		1186
…		…
1089		1248
1090	char *	1249	char *
1091	base_name (object *ob, int plural)	1250	base_name (object *ob, int plural)
1092	CODE:	1251	CODE:
1093	RETVAL = cf_query_base_name (ob, plural);	1252	RETVAL = cf_query_base_name (ob, plural);
		1253	OUTPUT: RETVAL
		1254
		1255	MODULE = cf PACKAGE = cf::object PREFIX = cf_object_
		1256
		1257	object cf_create_object_by_name (const char name = 0)
		1258	PROTOTYPE: ;$
		1259	ALIAS:
		1260	create_object = 0
		1261	new = 0
		1262	CODE:
		1263	RETVAL = name ? cf_create_object_by_name (name) : cf_create_object ();
1094	OUTPUT:	1264	OUTPUT:
1095	RETVAL	1265	RETVAL
1096
1097	MODULE = cf PACKAGE = cf::object PREFIX = cf_object_
1098
1099	object *cf_create_object ()
1100	ALIAS: new = 0
1101
1102	object cf_create_object_by_name (const char name)
1103	ALIAS: new_from_name = 0
1104
1105	void cf_free_object (object *ob)
1106		1266
1107	void cf_fix_object (object *pl)	1267	void cf_fix_object (object *pl)
		1268	ALIAS: fix = 0
1108		1269
1109	object cf_insert_ob_in_ob (object ob, object *where)	1270	object cf_insert_ob_in_ob (object ob, object *where)
1110		1271
1111		1272
1112	MODULE = cf PACKAGE = cf::object::player PREFIX = cf_player_	1273	MODULE = cf PACKAGE = cf::object::player PREFIX = cf_player_
1113		1274
1114	player player (object op)	1275	player player (object op)
1115	CODE:	1276	CODE:
1116	RETVAL = cf_player_find (cf_query_name (op));	1277	RETVAL = cf_player_find (cf_query_name (op));
1117	OUTPUT:	1278	OUTPUT: RETVAL
1118	RETVAL
1119		1279
1120	void cf_player_message (object obj, char txt, int flags = 0)	1280	void cf_player_message (object obj, char txt, int flags = NDI_ORANGE \| NDI_UNIQUE)
1121		1281
1122	object cf_player_send_inventory (object op)	1282	object cf_player_send_inventory (object op)
1123		1283
		1284	char cf_player_get_ip (object op)
		1285	ALIAS: ip = 0
		1286
		1287	object cf_player_get_marked_item (object op)
		1288	ALIAS: marked_item = 0
		1289
		1290	void cf_player_set_marked_item (object op, object ob)
		1291
		1292	partylist cf_player_get_party (object op)
		1293	ALIAS: party = 0
		1294
		1295	void cf_player_set_party (object op, partylist party)
		1296
1124		1297
1125	MODULE = cf PACKAGE = cf::object::map PREFIX = cf_	1298	MODULE = cf PACKAGE = cf::object::map PREFIX = cf_
1126		1299
1127	mapstruct cf_map_get_map (char name)
1128	ALIAS: map = 0
1129
1130	mapstruct *cf_map_get_first ()
1131	ALIAS: first = 0
1132
1133	object cf_map_insert_object_there (mapstruct where, object op, object originator, int flags)
1134
1135	object cf_map_insert_object (mapstruct where, object* op, int x, int y)
1136
1137	object* cf_map_present_arch_by_name (mapstruct map, const char str, int nx, int ny)
1138	C_ARGS: str, map, nx, ny
1139
1140	#int cf_map_get_flags (mapstruct* map, mapstruct** nmap, I16 x, I16 y, I16 nx, I16 ny)
1141
1142
1143	MODULE = cf PACKAGE = cf::player PREFIX = cf_	1300	MODULE = cf PACKAGE = cf::player PREFIX = cf_player_
1144		1301
1145	player cf_player_find (char name)	1302	player cf_player_find (char name)
		1303	PROTOTYPE: $
1146		1304
1147	void cf_player_move (player *pl, int dir)	1305	void cf_player_move (player *pl, int dir)
1148		1306
		1307	# nonstandard
		1308	object ob (player pl)
		1309	CODE:
		1310	RETVAL = pl->ob;
		1311	OUTPUT: RETVAL
1149		1312
		1313
1150	MODULE = cf PACKAGE = cf::map PREFIX = cf_	1314	MODULE = cf PACKAGE = cf::map PREFIX = cf_map_
1151		1315
1152	SV *	1316	SV *
1153	get_property (mapstruct *obj, int type, int idx)	1317	get_property (mapstruct *obj, int type, int idx)
1154	CODE:	1318	CODE:
1155	RETVAL = newSVcfapi (type, cf_map_get_property (obj, idx));	1319	RETVAL = newSVcfapi (type, cf_map_get_property (obj, idx));
		1320	OUTPUT: RETVAL
		1321
		1322	SV *
		1323	set_property (mapstruct obj, int type, int idx, SV newval)
		1324	CODE:
		1325	switch (type)
		1326	{
		1327	case CFAPI_INT:
		1328	cf_map_set_int_property (obj, idx, SvIV (newval));
		1329	break;
		1330	default:
		1331	croak ("unhandled type '%d' in set_property '%d'", type, idx);
		1332	}
		1333
		1334	mapstruct *new (int width, int height)
		1335	PROTOTYPE:
		1336	CODE:
		1337	{
		1338	int unused_type;
		1339	RETVAL = map_get_map (&unused_type, 0, width, height);
		1340	}
1156	OUTPUT:	1341	OUTPUT:
1157	RETVAL	1342	RETVAL
		1343
		1344	mapstruct cf_map_get_map (char name)
		1345	PROTOTYPE: $
		1346	ALIAS: map = 0
		1347
		1348	mapstruct *cf_map_get_first ()
		1349	PROTOTYPE:
		1350	ALIAS: first = 0
		1351
		1352	object cf_map_insert_object_there (mapstruct where, object op, object originator, int flags)
		1353
		1354	object cf_map_insert_object (mapstruct where, object* op, int x, int y)
		1355
		1356	object* cf_map_present_arch_by_name (mapstruct map, const char str, int nx, int ny)
		1357	C_ARGS: str, map, nx, ny
		1358
		1359	#int cf_map_get_flags (mapstruct* map, mapstruct** nmap, I16 x, I16 y, I16 nx, I16 ny)
		1360
		1361	void
		1362	at (mapstruct *obj, unsigned int x, unsigned int y)
		1363	PROTOTYPE: $$$
		1364	INIT:
		1365	if (x >= MAP_WIDTH (obj) \|\| y >= MAP_HEIGHT (obj)) XSRETURN_EMPTY;
		1366	PPCODE:
		1367	{
		1368	object *o;
		1369	for (o = GET_MAP_OB (obj, x, y); o; o = o->above)
		1370	XPUSHs (sv_2mortal (newSVcfapi (CFAPI_POBJECT, o)));
		1371	}
		1372
		1373	SV *
		1374	bot_at (mapstruct *obj, unsigned int x, unsigned int y)
		1375	PROTOTYPE: $$$
		1376	ALIAS:
		1377	top_at = 1
		1378	flags_at = 2
		1379	light_at = 3
		1380	move_block_at = 4
		1381	move_slow_at = 5
		1382	move_on_at = 6
		1383	move_off_at = 7
		1384	INIT:
		1385	if (x >= MAP_WIDTH (obj) \|\| y >= MAP_HEIGHT (obj)) XSRETURN_UNDEF;
		1386	CODE:
		1387	switch (ix)
		1388	{
		1389	case 0: RETVAL = newSVcfapi (CFAPI_POBJECT, GET_MAP_OB (obj, x, y)); break;
		1390	case 1: RETVAL = newSVcfapi (CFAPI_POBJECT, GET_MAP_TOP (obj, x, y)); break;
		1391	case 2: RETVAL = newSVuv ( GET_MAP_FLAGS (obj, x, y)); break;
		1392	case 3: RETVAL = newSViv ( GET_MAP_LIGHT (obj, x, y)); break;
		1393	case 4: RETVAL = newSVuv ( GET_MAP_MOVE_BLOCK (obj, x, y)); break;
		1394	case 5: RETVAL = newSVuv ( GET_MAP_MOVE_SLOW (obj, x, y)); break;
		1395	case 6: RETVAL = newSVuv ( GET_MAP_MOVE_ON (obj, x, y)); break;
		1396	case 7: RETVAL = newSVuv ( GET_MAP_MOVE_OFF (obj, x, y)); break;
		1397	}
		1398	OUTPUT:
		1399	RETVAL
1158		1400
1159		1401
1160	MODULE = cf PACKAGE = cf::arch PREFIX = cf_archetype_	1402	MODULE = cf PACKAGE = cf::arch PREFIX = cf_archetype_
1161		1403
1162	archetype*cf_archetype_get_first()	1404	archetype *cf_archetype_get_first()
		1405	PROTOTYPE:
1163	ALIAS: first = 0	1406	ALIAS: first = 0
1164		1407
1165	archetype cf_archetype_get_next (archetype arch)	1408	archetype cf_archetype_get_next (archetype arch)
1166	ALIAS: next = 0	1409	ALIAS: next = 0
1167		1410
…		…
1174	const char cf_archetype_get_name (archetype arch)	1417	const char cf_archetype_get_name (archetype arch)
1175	ALIAS: name = 0	1418	ALIAS: name = 0
1176		1419
1177	MODULE = cf PACKAGE = cf::party PREFIX = cf_party_	1420	MODULE = cf PACKAGE = cf::party PREFIX = cf_party_
1178		1421
1179	const char cf_party_get_name (partylist party)
1180
1181	partylist *cf_party_get_first ()	1422	partylist *cf_party_get_first ()
		1423	PROTOTYPE:
1182	ALIAS: first = 0	1424	ALIAS: first = 0
1183		1425
1184	partylist cf_party_get_next (partylist party)	1426	partylist cf_party_get_next (partylist party)
1185	ALIAS: next = 0	1427	ALIAS: next = 0
1186		1428
		1429	const char cf_party_get_name (partylist party)
		1430
1187	const char cf_party_get_password (partylist party)	1431	const char cf_party_get_password (partylist party)
1188	ALIAS: password = 0	1432	ALIAS: password = 0
1189		1433
1190	player cf_party_get_first_player (partylist party)	1434	player cf_party_get_first_player (partylist party)
1191	ALIAS: first_player = 0	1435	ALIAS: first_player = 0
…		…
1195		1439
1196		1440
1197	MODULE = cf PACKAGE = cf::region PREFIX = cf_region_	1441	MODULE = cf PACKAGE = cf::region PREFIX = cf_region_
1198		1442
1199	region *cf_region_get_first ()	1443	region *cf_region_get_first ()
		1444	PROTOTYPE:
1200	ALIAS: first = 0	1445	ALIAS: first = 0
1201		1446
1202	const char cf_region_get_name (region reg)	1447	const char cf_region_get_name (region reg)
1203	ALIAS: name = 0	1448	ALIAS: name = 0
1204		1449

Diff Legend

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

Comparing deliantra/server/plugins/cfperl/cfperl.xs (file contents): Revision 1.2 by root, Fri Feb 3 07:51:14 2006 UTC vs. Revision 1.14 by root, Tue Feb 7 23:29:55 2006 UTC

Diff Legend

Comparing deliantra/server/plugins/cfperl/cfperl.xs (file contents):
Revision 1.2 by root, Fri Feb 3 07:51:14 2006 UTC vs.
Revision 1.14 by root, Tue Feb 7 23:29:55 2006 UTC