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

Comparing deliantra/server/plugins/cfperl/cfperl.xs (file contents):
Revision 1.7 by root, Fri Feb 3 22:52:51 2006 UTC vs.
Revision 1.18 by root, Wed Feb 8 06:15:13 2006 UTC

…		…
28	#include <perl.h>	28	#include <perl.h>
29	#include <XSUB.h>	29	#include <XSUB.h>
30		30
31	#undef save_long // clashes with libproto.h	31	#undef save_long // clashes with libproto.h
32		32
33	#define PLUGIN_NAME "cfperl"	33	#define PLUGIN_NAME "perl"
34	#define PLUGIN_VERSION "cfperl 0.0"	34	#define PLUGIN_VERSION "cfperl 0.0"
35		35
36	#ifndef __CEXTRACT__	36	#ifndef __CEXTRACT__
37	#include <plugin.h>	37	#include <plugin.h>
38	#endif	38	#endif
…		…
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;
		57	static f_plug_api map_get_map;
56		58
57	typedef struct	59	typedef struct
58	{	60	{
59	object* who;	61	object* who;
60	object* activator;	62	object* activator;
61	object* third;	63	object* third;
62	char message[1024];	64	char message[1024];
63	int fix;	65	int fix;
64	int event_code;	66	int event_code;
65	char options[1024];	67	char extension[1024]; // name field, should invoke specific perl extension
		68	char options[1024]; // slaying field of event_connectors
66	int returnvalue;	69	int returnvalue;
67	} CFPContext;	70	} CFPContext;
68		71
69	//static int current_command = -999;	72	//static int current_command = -999;
70		73
		74	static HV *obj_cache;
71	static PerlInterpreter *perl;	75	static PerlInterpreter *perl;
72		76
73	//////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////	77	//////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
		78
		79	// garbage collect some perl objects, if possible
		80	// all objects no longer referenced and empty are
		81	// eligible for destruction.
		82	void
		83	clean_obj_cache ()
		84	{
		85	static int count;
		86
		87	if (++count & 7)
		88	return;
		89
		90	int todo = 1000;
		91	do
		92	{
		93	I32 klen;
		94	char *key;
		95	HE *he = hv_iternext (obj_cache);
		96
		97	if (he)
		98	{
		99	SV *sv = hv_iterval (obj_cache, he);
		100
		101	// empty and unreferenced? nuke it
		102	if (SvREFCNT (sv) == 1 && SvREFCNT (SvRV (sv)) == 1 && !HvFILL ((HV *)(SvRV (sv))))
		103	{
		104	hv_delete (obj_cache, HeKEY (he), HeKLEN (he), G_DISCARD);
		105	todo++;
		106	}
		107	}
		108	else
		109	break;
		110	}
		111	while (--todo);
		112	}
74		113
75	static SV *	114	static SV *
76	newSVptr (void ptr, const char klass)	115	newSVptr (void ptr, const char klass)
77	{	116	{
78	if (!ptr)	117	if (!ptr)
79	return &PL_sv_undef;	118	return &PL_sv_undef;
80		119
81	HV *hv = newHV ();	120	HV *hv = newHV ();
82	sv_magic ((SV )hv, 0, PERL_MAGIC_ext, (char )ptr, 0);	121	sv_magic ((SV )hv, 0, PERL_MAGIC_ext, (char )ptr, 0);
83	return sv_bless (newRV_noinc ((SV *)hv), gv_stashpv (klass, 1));	122	return sv_bless (newRV_noinc ((SV *)hv), gv_stashpv (klass, 1));
		123	}
		124
		125	static SV *
		126	newSVptr_cached (void ptr, const char klass)
		127	{
		128	SV sv, *he;
		129
		130	if (!ptr)
		131	return &PL_sv_undef;
		132
		133	he = hv_fetch (obj_cache, (char *)&ptr, sizeof (ptr), 0);
		134
		135	if (he)
		136	sv = *he;
		137	else
		138	{
		139	sv = newSVptr (ptr, klass);
		140	hv_store (obj_cache, (char *)&ptr, sizeof (ptr), sv, 0);
		141	}
		142
		143	return newSVsv (sv);
84	}	144	}
85		145
86	static void	146	static void
87	clearSVptr (SV *sv)	147	clearSVptr (SV *sv)
88	{	148	{
…		…
144	sv = &PL_sv_undef;	204	sv = &PL_sv_undef;
145	else	205	else
146	switch ((int )cf_object_get_property (obj, CFAPI_OBJECT_PROP_TYPE))	206	switch ((int )cf_object_get_property (obj, CFAPI_OBJECT_PROP_TYPE))
147	{	207	{
148	case MAP:	208	case MAP:
149	sv = newSVptr (obj, "cf::object::map");	209	sv = newSVptr_cached (obj, "cf::object::map");
150	break;	210	break;
151		211
152	case PLAYER:	212	case PLAYER:
153	sv = newSVptr (obj, "cf::object::player");	213	sv = newSVptr_cached (obj, "cf::object::player");
154	break;	214	break;
155		215
156	default:	216	default:
157	sv = newSVptr (obj, "cf::object");	217	sv = newSVptr_cached (obj, "cf::object");
158	break;	218	break;
159	}	219	}
160	}	220	}
161	break;	221	break;
162		222
…		…
190	}	250	}
191		251
192	/////////////////////////////////////////////////////////////////////////////	252	/////////////////////////////////////////////////////////////////////////////
193		253
194	void	254	void
195	inject_event (CFPContext *context)	255	inject_event (const char func, CFPContext context)
196	{	256	{
197	dSP;	257	dSP;
198		258
199	ENTER;	259	ENTER;
200	SAVETMPS;	260	SAVETMPS;
201		261
202	PUSHMARK (SP);	262	PUSHMARK (SP);
203
204	EXTEND (SP, 2);
205	//PUSHs (sv_2mortal (newSViv (type)));
206		263
207	HV *hv = newHV ();	264	HV *hv = newHV ();
208	#define hv_context(type,addr,expr) hv_store (hv, #expr, sizeof (#expr) - 1, newSVcfapi (type, addr context->expr), 0)	265	#define hv_context(type,addr,expr) hv_store (hv, #expr, sizeof (#expr) - 1, newSVcfapi (type, addr context->expr), 0)
209	hv_context (CFAPI_POBJECT, ,who);	266	hv_context (CFAPI_POBJECT, ,who);
210	hv_context (CFAPI_POBJECT, ,activator);	267	hv_context (CFAPI_POBJECT, ,activator);
211	hv_context (CFAPI_POBJECT, ,third);	268	hv_context (CFAPI_POBJECT, ,third);
212	hv_context (CFAPI_STRING , ,message);	269	hv_context (CFAPI_STRING , ,message);
213	hv_context (CFAPI_INT ,&,fix);	270	hv_context (CFAPI_INT ,&,fix);
214	hv_context (CFAPI_INT ,&,event_code);	271	hv_context (CFAPI_INT ,&,event_code);
215	hv_context (CFAPI_STRING , ,options);	272	hv_context (CFAPI_STRING , ,options);
		273	hv_context (CFAPI_STRING , ,extension);
216		274
217	PUSHs (sv_2mortal (newRV_noinc ((SV *)hv)));	275	XPUSHs (sv_2mortal (newRV_noinc ((SV *)hv)));
218		276
219	PUTBACK;	277	PUTBACK;
220	int count = call_pv ("cf::inject_event", G_SCALAR \| G_EVAL);	278	int count = call_pv (func, G_SCALAR \| G_EVAL);
221	SPAGAIN;	279	SPAGAIN;
222		280
223	if (SvTRUE (ERRSV))	281	if (SvTRUE (ERRSV))
224	LOG (llevError, "event '%d' callback evaluation error: %s", context->event_code, SvPV_nolen (ERRSV));	282	LOG (llevError, "event '%d' callback evaluation error: %s", context->event_code, SvPV_nolen (ERRSV));
225		283
…		…
334	printf (PLUGIN_VERSION " post init\n");	392	printf (PLUGIN_VERSION " post init\n");
335		393
336	registerGlobalEvent = gethook (&rtype, hooktype, "cfapi_system_register_global_event");	394	registerGlobalEvent = gethook (&rtype, hooktype, "cfapi_system_register_global_event");
337	unregisterGlobalEvent = gethook (&rtype, hooktype, "cfapi_system_unregister_global_event");	395	unregisterGlobalEvent = gethook (&rtype, hooktype, "cfapi_system_unregister_global_event");
338	systemDirectory = gethook (&rtype, hooktype, "cfapi_system_directory");	396	systemDirectory = gethook (&rtype, hooktype, "cfapi_system_directory");
		397	object_set_property = gethook (&rtype, hooktype, "cfapi_object_set_property");
		398	map_get_map = gethook (&rtype, hooktype, "cfapi_map_get_map");
		399
339	cf_init_plugin (gethook);	400	cf_init_plugin (gethook);
340		401
341	/* Pick the global events you want to monitor from this plugin */	402	/* Pick the global events you want to monitor from this plugin */
342	registerGlobalEvent (NULL, EVENT_BORN, PLUGIN_NAME, globalEventListener);	403	registerGlobalEvent (NULL, EVENT_BORN, PLUGIN_NAME, globalEventListener);
343	registerGlobalEvent (NULL, EVENT_CLOCK, PLUGIN_NAME, globalEventListener);	404	registerGlobalEvent (NULL, EVENT_CLOCK, PLUGIN_NAME, globalEventListener);
…		…
352	registerGlobalEvent (NULL, EVENT_REMOVE, PLUGIN_NAME, globalEventListener);	413	registerGlobalEvent (NULL, EVENT_REMOVE, PLUGIN_NAME, globalEventListener);
353	registerGlobalEvent (NULL, EVENT_SHOUT, PLUGIN_NAME, globalEventListener);	414	registerGlobalEvent (NULL, EVENT_SHOUT, PLUGIN_NAME, globalEventListener);
354	registerGlobalEvent (NULL, EVENT_TELL, PLUGIN_NAME, globalEventListener);	415	registerGlobalEvent (NULL, EVENT_TELL, PLUGIN_NAME, globalEventListener);
355	registerGlobalEvent (NULL, EVENT_MUZZLE, PLUGIN_NAME, globalEventListener);	416	registerGlobalEvent (NULL, EVENT_MUZZLE, PLUGIN_NAME, globalEventListener);
356	registerGlobalEvent (NULL, EVENT_KICK, PLUGIN_NAME, globalEventListener);	417	registerGlobalEvent (NULL, EVENT_KICK, PLUGIN_NAME, globalEventListener);
		418	registerGlobalEvent (NULL, EVENT_FREE_OB, PLUGIN_NAME, globalEventListener);
357		419
358	char *argv[] = {	420	char *argv[] = {
359	"",	421	"",
360	"-e"	422	"-e"
361	"BEGIN {"	423	"BEGIN {"
…		…
375		437
376	perl_destruct (perl);	438	perl_destruct (perl);
377	perl_free (perl);	439	perl_free (perl);
378	perl = 0;	440	perl = 0;
379	}	441	}
		442	else
		443	{
		444	obj_cache = newHV ();
		445	}
380		446
381	return 0;	447	return 0;
382	}	448	}
383		449
384	void *	450	void *
…		…
403	{	469	{
404	case EVENT_CRASH:	470	case EVENT_CRASH:
405	printf ("Unimplemented for now\n");	471	printf ("Unimplemented for now\n");
406	break;	472	break;
407		473
		474	case EVENT_MAPENTER:
		475	case EVENT_MAPLEAVE:
		476	case EVENT_FREE_OB:
408	case EVENT_BORN:	477	case EVENT_BORN:
		478	case EVENT_REMOVE:
409	context.activator = va_arg (args, object *);	479	context.activator = va_arg (args, object *);
410	break;	480	break;
411		481
412	case EVENT_PLAYER_DEATH:	482	case EVENT_PLAYER_DEATH:
413	context.who = va_arg (args, object *);	483	context.who = va_arg (args, object *);
…		…
417	context.who = va_arg (args, object *);	487	context.who = va_arg (args, object *);
418	context.activator = va_arg (args, object *);	488	context.activator = va_arg (args, object *);
419	break;	489	break;
420		490
421	case EVENT_LOGIN:	491	case EVENT_LOGIN:
422	pl = va_arg (args, player *);
423	context.activator = pl->ob;
424	buf = va_arg (args, char *);
425	if (buf != 0)
426	strcpy (context.message, buf);
427	break;
428
429	case EVENT_LOGOUT:	492	case EVENT_LOGOUT:
430	pl = va_arg (args, player *);	493	pl = va_arg (args, player *);
431	context.activator = pl->ob;	494	context.activator = pl->ob;
432	buf = va_arg (args, char *);	495	buf = va_arg (args, char *);
433	if (buf != 0)	496	if (buf != 0)
434	strcpy (context.message, buf);	497	strncpy (context.message, buf, sizeof (context.message));
435	break;
436
437	case EVENT_REMOVE:
438	context.activator = va_arg (args, object *);
439	break;	498	break;
440		499
441	case EVENT_SHOUT:	500	case EVENT_SHOUT:
442	context.activator = va_arg (args, object *);
443	buf = va_arg (args, char *);
444	if (buf != 0)
445	strcpy (context.message, buf);
446	break;
447
448	case EVENT_MUZZLE:	501	case EVENT_MUZZLE:
449	context.activator = va_arg (args, object *);
450	buf = va_arg (args, char *);
451	if (buf != 0)
452	strcpy (context.message, buf);
453	break;
454
455	case EVENT_KICK:	502	case EVENT_KICK:
456	context.activator = va_arg (args, object *);	503	context.activator = va_arg (args, object *);
457	buf = va_arg (args, char *);	504	buf = va_arg (args, char *);
458	if (buf != 0)	505	if (buf != 0)
459	strcpy (context.message, buf);	506	strncpy (context.message, buf, sizeof (context.message));
460	break;
461
462	case EVENT_MAPENTER:
463	context.activator = va_arg (args, object *);
464	break;
465
466	case EVENT_MAPLEAVE:
467	context.activator = va_arg (args, object *);
468	break;	507	break;
469		508
470	case EVENT_CLOCK:	509	case EVENT_CLOCK:
		510	clean_obj_cache ();
		511	break;
		512
		513	case EVENT_TELL:
471	break;	514	break;
472		515
473	case EVENT_MAPRESET:	516	case EVENT_MAPRESET:
474	buf = va_arg (args, char *);	517	buf = va_arg (args, char *);
475	if (buf != 0)	518	if (buf != 0)
476	strcpy (context.message, buf);	519	strncpy (context.message, buf, sizeof (context.message));
477	break;
478
479	case EVENT_TELL:
480	break;	520	break;
481	}	521	}
482		522
483	va_end (args);	523	va_end (args);
484		524
485	inject_event (&context);	525	if (context.event_code == EVENT_FREE_OB)
		526	{
		527	SV *svp = hv_fetch (obj_cache, (char )&context.activator, sizeof (void *), 0);
		528
		529	if (svp)
		530	clearSVptr (*svp);
		531	}
		532	else
		533	inject_event ("cf::inject_global_event", &context);
486		534
487	rv = context.returnvalue;	535	rv = context.returnvalue;
488		536
489	return &rv;	537	return &rv;
490	}	538	}
…		…
506		554
507	context.who = va_arg (args, object *);	555	context.who = va_arg (args, object *);
508	context.event_code = va_arg (args, int);	556	context.event_code = va_arg (args, int);
509	context.activator = va_arg (args, object *);	557	context.activator = va_arg (args, object *);
510	context.third = va_arg (args, object *);	558	context.third = va_arg (args, object *);
		559
511	buf = va_arg (args, char *);	560	buf = va_arg (args, char *);
512
513	if (buf != 0)	561	if (buf != 0)
514	strcpy (context.message, buf);	562	strncpy (context.message, buf, sizeof (context.message));
515		563
516	context.fix = va_arg (args, int);	564	context.fix = va_arg (args, int);
		565	strncpy (context.extension, va_arg (args, char *), sizeof (context.extension));
517	strcpy (context.options, va_arg (args, char *));	566	strncpy (context.options, va_arg (args, char *), sizeof (context.options));
518	context.returnvalue = 0;	567	context.returnvalue = 0;
519	va_end (args);	568	va_end (args);
520		569
521	inject_event (&context);	570	inject_event ("cf::inject_event", &context);
522		571
523	rv = context.returnvalue;	572	rv = context.returnvalue;
524	return &rv;	573	return &rv;
525	}	574	}
526		575
…		…
543		592
544	BOOT:	593	BOOT:
545	{	594	{
546	HV *stash = gv_stashpv ("cf", 1);	595	HV *stash = gv_stashpv ("cf", 1);
547		596
548	const struct {	597	static const struct {
549	const char *name;	598	const char *name;
550	IV iv;	599	IV iv;
551	} *civ, const_iv[] = {	600	} *civ, const_iv[] = {
552	# define const_iv(name) { # name, (IV)name },	601	# define const_iv(name) { # name, (IV)name },
553	const_iv (llevError)	602	const_iv (llevError)
…		…
832	const_iv (F_CURSED)	881	const_iv (F_CURSED)
833	const_iv (F_DAMNED)	882	const_iv (F_DAMNED)
834	const_iv (F_OPEN)	883	const_iv (F_OPEN)
835	const_iv (F_NOPICK)	884	const_iv (F_NOPICK)
836	const_iv (F_LOCKED)	885	const_iv (F_LOCKED)
		886
		887	const_iv (P_BLOCKSVIEW)
		888	const_iv (P_NO_MAGIC)
		889	const_iv (P_IS_ALIVE)
		890	const_iv (P_NO_CLERIC)
		891	const_iv (P_NEED_UPDATE)
		892	const_iv (P_NO_ERROR)
		893	const_iv (P_OUT_OF_MAP)
		894	const_iv (P_NEW_MAP)
		895
		896	const_iv (UP_OBJ_INSERT)
		897	const_iv (UP_OBJ_REMOVE)
		898	const_iv (UP_OBJ_CHANGE)
		899	const_iv (UP_OBJ_FACE)
		900
		901	const_iv (INS_NO_MERGE)
		902	const_iv (INS_ABOVE_FLOOR_ONLY)
		903	const_iv (INS_NO_WALK_ON)
		904	const_iv (INS_ON_TOP)
		905	const_iv (INS_BELOW_ORIGINATOR)
		906	const_iv (INS_MAP_LOAD)
		907
		908	const_iv (WILL_APPLY_HANDLE)
		909	const_iv (WILL_APPLY_TREASURE)
		910	const_iv (WILL_APPLY_EARTHWALL)
		911	const_iv (WILL_APPLY_DOOR)
		912	const_iv (WILL_APPLY_FOOD)
837	};	913	};
838		914
839	for (civ = const_iv + sizeof (const_iv) / sizeof (const_iv [0]); civ-- > const_iv; )	915	for (civ = const_iv + sizeof (const_iv) / sizeof (const_iv [0]); civ-- > const_iv; )
840	newCONSTSUB (stash, (char *)civ->name, newSViv (civ->iv));	916	newCONSTSUB (stash, (char *)civ->name, newSViv (civ->iv));
841		917
842	const struct {	918	static const struct {
843	const char *name;	919	const char *name;
844	IV iv;	920	IV iv;
845	} *event, event_list[] = {	921	} *event, event_list[] = {
846	# define const_event(name) { # name, (IV)EVENT_ ## name },	922	# define const_event(name) { # name, (IV)EVENT_ ## name },
847	const_event (NONE)	923	const_event (NONE)
…		…
855	const_event (TIME)	931	const_event (TIME)
856	const_event (THROW)	932	const_event (THROW)
857	const_event (TRIGGER)	933	const_event (TRIGGER)
858	const_event (CLOSE)	934	const_event (CLOSE)
859	const_event (TIMER)	935	const_event (TIMER)
		936	const_event (MOVE)
860		937
861	const_event (BORN)	938	const_event (BORN)
862	const_event (CLOCK)	939	const_event (CLOCK)
863	const_event (CRASH)	940	const_event (CRASH)
864	const_event (PLAYER_DEATH)	941	const_event (PLAYER_DEATH)
…		…
871	const_event (REMOVE)	948	const_event (REMOVE)
872	const_event (SHOUT)	949	const_event (SHOUT)
873	const_event (TELL)	950	const_event (TELL)
874	const_event (MUZZLE)	951	const_event (MUZZLE)
875	const_event (KICK)	952	const_event (KICK)
		953	//const_event (FREE_OB)
876	};	954	};
877		955
878	AV *av = get_av ("cf::EVENT", 1);	956	AV *av = get_av ("cf::EVENT", 1);
879		957
880	for (event = event_list + sizeof (event_list) / sizeof (event_list [0]); event-- > event_list; )	958	for (event = event_list + sizeof (event_list) / sizeof (event_list [0]); event-- > event_list; )
881	av_store (av, event->iv, newSVpv ((char *)event->name, 0));	959	av_store (av, event->iv, newSVpv ((char *)event->name, 0));
882		960
883	const struct {	961	static const struct {
884	int dtype;	962	int dtype;
885	const char *name;	963	const char *name;
886	IV idx;	964	IV idx;
887	} *cprop, prop_table[] = {	965	} *cprop, prop_table[] = {
888	# define prop(type, name) { type, # name, (IV) CFAPI_ ## name },	966	# define prop(type, name) { type, # name, (IV) CFAPI_ ## name },
…		…
1067	cf_object_set_int_property (obj, idx, SvIV (newval));	1145	cf_object_set_int_property (obj, idx, SvIV (newval));
1068	break;	1146	break;
1069	case CFAPI_LONG:	1147	case CFAPI_LONG:
1070	cf_object_set_long_property (obj, idx, SvNV (newval));	1148	cf_object_set_long_property (obj, idx, SvNV (newval));
1071	break;	1149	break;
		1150	case CFAPI_DOUBLE:
		1151	{
		1152	int unused_type;
		1153	object_set_property (&unused_type, obj, idx, (double)SvNV (newval));
		1154	}
		1155	break;
1072	case CFAPI_STRING:	1156	case CFAPI_STRING:
1073	cf_object_set_string_property (obj, idx, SvPV_nolen (newval));	1157	cf_object_set_string_property (obj, idx, SvPV_nolen (newval));
1074	break;	1158	break;
1075	default:	1159	default:
1076	croak ("unhandled type '%d' in set_property '%d'", type, idx);	1160	croak ("unhandled type '%d' in set_property '%d'", type, idx);
1077	}	1161	}
1078		1162
		1163	void
		1164	inv (object *obj)
		1165	PROTOTYPE: $
		1166	PPCODE:
		1167	{
		1168	object *o;
		1169	for (o = obj->inv; o; o = o->below)
		1170	XPUSHs (sv_2mortal (newSVcfapi (CFAPI_POBJECT, o)));
		1171	}
		1172
1079	int cf_object_get_resistance (object *op, int rtype)	1173	int cf_object_get_resistance (object *op, int rtype)
1080	ALIAS: resistance = 0	1174	ALIAS: resistance = 0
1081		1175
1082	int cf_object_get_flag (object *op, int flag)	1176	int cf_object_get_flag (object *op, int flag)
1083	ALIAS: flag = 0	1177	ALIAS: flag = 0
1084		1178
1085	void cf_object_set_flag (object *op, int flag, int value)	1179	void cf_object_set_flag (object *op, int flag, int value)
1086		1180
1087	void cf_object_move (object op, object originator, int dir)	1181	void cf_object_move (object op, int dir, object originator)
1088		1182
1089	void cf_object_apply (object op, object author, int flags)	1183	void cf_object_apply (object op, object author, int flags = 0)
1090		1184
1091	void cf_object_apply_below (object *op)	1185	void cf_object_apply_below (object *op)
1092		1186
1093	void cf_object_remove (object *op)	1187	void cf_object_remove (object *op)
1094		1188
…		…
1160	RETVAL = cf_query_base_name (ob, plural);	1254	RETVAL = cf_query_base_name (ob, plural);
1161	OUTPUT: RETVAL	1255	OUTPUT: RETVAL
1162		1256
1163	MODULE = cf PACKAGE = cf::object PREFIX = cf_object_	1257	MODULE = cf PACKAGE = cf::object PREFIX = cf_object_
1164		1258
1165	object *cf_create_object ()
1166	PROTOTYPE:
1167	ALIAS: new = 0
1168
1169	object cf_create_object_by_name (const char name)	1259	object cf_create_object_by_name (const char name = 0)
1170	PROTOTYPE: $	1260	PROTOTYPE: ;$
1171	ALIAS: new_from_name = 0	1261	ALIAS:
1172		1262	create_object = 0
1173	void cf_free_object (object *ob)	1263	new = 0
		1264	CODE:
		1265	RETVAL = name ? cf_create_object_by_name (name) : cf_create_object ();
		1266	OUTPUT:
		1267	RETVAL
1174		1268
1175	void cf_fix_object (object *pl)	1269	void cf_fix_object (object *pl)
		1270	ALIAS: fix = 0
1176		1271
1177	object cf_insert_ob_in_ob (object ob, object *where)	1272	object cf_insert_ob_in_ob (object ob, object *where)
		1273
		1274	object get_nearest_player (object ob)
		1275	ALIAS: nearest_player = 0
		1276	PREINIT:
		1277	extern object get_nearest_player (object );
		1278
		1279	void rangevector (object ob, object other, int flags = 0)
		1280	PROTOTYPE: $$;$
		1281	PPCODE:
		1282	{
		1283	rv_vector rv;
		1284	get_rangevector (ob, other, &rv, flags);
		1285	EXTEND (SP, 5);
		1286	PUSHs (newSVuv (rv.distance));
		1287	PUSHs (newSViv (rv.distance_x));
		1288	PUSHs (newSViv (rv.distance_y));
		1289	PUSHs (newSViv (rv.direction));
		1290	PUSHs (newSVcfapi (CFAPI_POBJECT, rv.part));
		1291	}
		1292
		1293	bool on_same_map_as (object ob, object other)
		1294	CODE:
		1295	RETVAL = on_same_map (ob, other);
		1296	OUTPUT: RETVAL
1178		1297
1179		1298
1180	MODULE = cf PACKAGE = cf::object::player PREFIX = cf_player_	1299	MODULE = cf PACKAGE = cf::object::player PREFIX = cf_player_
1181		1300
1182	player player (object op)	1301	player player (object op)
…		…
1214	# nonstandard	1333	# nonstandard
1215	object ob (player pl)	1334	object ob (player pl)
1216	CODE:	1335	CODE:
1217	RETVAL = pl->ob;	1336	RETVAL = pl->ob;
1218	OUTPUT: RETVAL	1337	OUTPUT: RETVAL
		1338
		1339	player *first ()
		1340	CODE:
		1341	RETVAL = first_player;
		1342	OUTPUT: RETVAL
		1343
		1344	player next (player pl)
		1345	CODE:
		1346	RETVAL = pl->next;
		1347	OUTPUT: RETVAL
		1348
		1349	void
		1350	list ()
		1351	PPCODE:
		1352	{
		1353	player *pl;
		1354	for (pl = first_player; pl; pl = pl->next)
		1355	XPUSHs (newSVcfapi (CFAPI_PPLAYER, pl));
		1356	}
1219		1357
1220		1358
1221	MODULE = cf PACKAGE = cf::map PREFIX = cf_map_	1359	MODULE = cf PACKAGE = cf::map PREFIX = cf_map_
1222		1360
1223	SV *	1361	SV *
…		…
1236	break;	1374	break;
1237	default:	1375	default:
1238	croak ("unhandled type '%d' in set_property '%d'", type, idx);	1376	croak ("unhandled type '%d' in set_property '%d'", type, idx);
1239	}	1377	}
1240		1378
		1379	mapstruct *new (int width, int height)
		1380	PROTOTYPE:
		1381	CODE:
		1382	{
		1383	int unused_type;
		1384	RETVAL = map_get_map (&unused_type, 0, width, height);
		1385	}
		1386	OUTPUT:
		1387	RETVAL
		1388
1241	mapstruct cf_map_get_map (char name)	1389	mapstruct cf_map_get_map (char name)
1242	PROTOTYPE: $	1390	PROTOTYPE: $
1243	ALIAS: map = 0	1391	ALIAS: map = 0
1244		1392
1245	mapstruct *cf_map_get_first ()	1393	mapstruct *cf_map_get_first ()
…		…
1253	object* cf_map_present_arch_by_name (mapstruct map, const char str, int nx, int ny)	1401	object* cf_map_present_arch_by_name (mapstruct map, const char str, int nx, int ny)
1254	C_ARGS: str, map, nx, ny	1402	C_ARGS: str, map, nx, ny
1255		1403
1256	#int cf_map_get_flags (mapstruct* map, mapstruct** nmap, I16 x, I16 y, I16 nx, I16 ny)	1404	#int cf_map_get_flags (mapstruct* map, mapstruct** nmap, I16 x, I16 y, I16 nx, I16 ny)
1257		1405
		1406	void
		1407	at (mapstruct *obj, unsigned int x, unsigned int y)
		1408	PROTOTYPE: $$$
		1409	INIT:
		1410	if (x >= MAP_WIDTH (obj) \|\| y >= MAP_HEIGHT (obj)) XSRETURN_EMPTY;
		1411	PPCODE:
		1412	{
		1413	object *o;
		1414	for (o = GET_MAP_OB (obj, x, y); o; o = o->above)
		1415	XPUSHs (sv_2mortal (newSVcfapi (CFAPI_POBJECT, o)));
		1416	}
		1417
		1418	SV *
		1419	bot_at (mapstruct *obj, unsigned int x, unsigned int y)
		1420	PROTOTYPE: $$$
		1421	ALIAS:
		1422	top_at = 1
		1423	flags_at = 2
		1424	light_at = 3
		1425	move_block_at = 4
		1426	move_slow_at = 5
		1427	move_on_at = 6
		1428	move_off_at = 7
		1429	INIT:
		1430	if (x >= MAP_WIDTH (obj) \|\| y >= MAP_HEIGHT (obj)) XSRETURN_UNDEF;
		1431	CODE:
		1432	switch (ix)
		1433	{
		1434	case 0: RETVAL = newSVcfapi (CFAPI_POBJECT, GET_MAP_OB (obj, x, y)); break;
		1435	case 1: RETVAL = newSVcfapi (CFAPI_POBJECT, GET_MAP_TOP (obj, x, y)); break;
		1436	case 2: RETVAL = newSVuv ( GET_MAP_FLAGS (obj, x, y)); break;
		1437	case 3: RETVAL = newSViv ( GET_MAP_LIGHT (obj, x, y)); break;
		1438	case 4: RETVAL = newSVuv ( GET_MAP_MOVE_BLOCK (obj, x, y)); break;
		1439	case 5: RETVAL = newSVuv ( GET_MAP_MOVE_SLOW (obj, x, y)); break;
		1440	case 6: RETVAL = newSVuv ( GET_MAP_MOVE_ON (obj, x, y)); break;
		1441	case 7: RETVAL = newSVuv ( GET_MAP_MOVE_OFF (obj, x, y)); break;
		1442	}
		1443	OUTPUT:
		1444	RETVAL
1258		1445
1259		1446
1260	MODULE = cf PACKAGE = cf::arch PREFIX = cf_archetype_	1447	MODULE = cf PACKAGE = cf::arch PREFIX = cf_archetype_
1261		1448
1262	archetype*cf_archetype_get_first()	1449	archetype *cf_archetype_get_first()
1263	PROTOTYPE:	1450	PROTOTYPE:
1264	ALIAS: first = 0	1451	ALIAS: first = 0
1265		1452
1266	archetype cf_archetype_get_next (archetype arch)	1453	archetype cf_archetype_get_next (archetype arch)
1267	ALIAS: next = 0	1454	ALIAS: next = 0

Diff Legend

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

Comparing deliantra/server/plugins/cfperl/cfperl.xs (file contents): Revision 1.7 by root, Fri Feb 3 22:52:51 2006 UTC vs. Revision 1.18 by root, Wed Feb 8 06:15:13 2006 UTC

Diff Legend

Comparing deliantra/server/plugins/cfperl/cfperl.xs (file contents):
Revision 1.7 by root, Fri Feb 3 22:52:51 2006 UTC vs.
Revision 1.18 by root, Wed Feb 8 06:15:13 2006 UTC