[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.21 by root, Fri Feb 10 04:35:33 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	{
		117	SV *sv;
		118
78	if (!ptr)	119	if (!ptr)
79	return &PL_sv_undef;	120	return &PL_sv_undef;
80		121
		122	sv = newSV (0);
		123	sv_magic (sv, 0, PERL_MAGIC_ext, (char *)ptr, 0);
		124	return sv_bless (newRV_noinc (sv), gv_stashpv (klass, 1));
		125	}
		126
		127	static SV *
		128	newSVptr_cached (void ptr, const char klass)
		129	{
		130	SV sv, *he;
		131
		132	if (!ptr)
		133	return &PL_sv_undef;
		134
		135	he = hv_fetch (obj_cache, (char *)&ptr, sizeof (ptr), 0);
		136
		137	if (he)
		138	sv = *he;
		139	else
		140	{
81	HV *hv = newHV ();	141	HV *hv = newHV ();
82	sv_magic ((SV )hv, 0, PERL_MAGIC_ext, (char )ptr, 0);	142	sv_magic ((SV )hv, 0, PERL_MAGIC_ext, (char )ptr, 0);
83	return sv_bless (newRV_noinc ((SV *)hv), gv_stashpv (klass, 1));	143	sv = sv_bless (newRV_noinc ((SV *)hv), gv_stashpv (klass, 1));
		144	hv_store (obj_cache, (char *)&ptr, sizeof (ptr), sv, 0);
		145	}
		146
		147	return newSVsv (sv);
84	}	148	}
85		149
86	static void	150	static void
87	clearSVptr (SV *sv)	151	clearSVptr (SV *sv)
88	{	152	{
…		…
144	sv = &PL_sv_undef;	208	sv = &PL_sv_undef;
145	else	209	else
146	switch ((int )cf_object_get_property (obj, CFAPI_OBJECT_PROP_TYPE))	210	switch ((int )cf_object_get_property (obj, CFAPI_OBJECT_PROP_TYPE))
147	{	211	{
148	case MAP:	212	case MAP:
149	sv = newSVptr (obj, "cf::object::map");	213	sv = newSVptr_cached (obj, "cf::object::map");
150	break;	214	break;
151		215
152	case PLAYER:	216	case PLAYER:
153	sv = newSVptr (obj, "cf::object::player");	217	sv = newSVptr_cached (obj, "cf::object::player");
154	break;	218	break;
155		219
156	default:	220	default:
157	sv = newSVptr (obj, "cf::object");	221	sv = newSVptr_cached (obj, "cf::object");
158	break;	222	break;
159	}	223	}
160	}	224	}
161	break;	225	break;
162		226
…		…
190	}	254	}
191		255
192	/////////////////////////////////////////////////////////////////////////////	256	/////////////////////////////////////////////////////////////////////////////
193		257
194	void	258	void
195	inject_event (CFPContext *context)	259	inject_event (const char func, CFPContext context)
196	{	260	{
197	dSP;	261	dSP;
198		262
199	ENTER;	263	ENTER;
200	SAVETMPS;	264	SAVETMPS;
201		265
202	PUSHMARK (SP);	266	PUSHMARK (SP);
203
204	EXTEND (SP, 2);
205	//PUSHs (sv_2mortal (newSViv (type)));
206		267
207	HV *hv = newHV ();	268	HV *hv = newHV ();
208	#define hv_context(type,addr,expr) hv_store (hv, #expr, sizeof (#expr) - 1, newSVcfapi (type, addr context->expr), 0)	269	#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);	270	hv_context (CFAPI_POBJECT, ,who);
210	hv_context (CFAPI_POBJECT, ,activator);	271	hv_context (CFAPI_POBJECT, ,activator);
211	hv_context (CFAPI_POBJECT, ,third);	272	hv_context (CFAPI_POBJECT, ,third);
212	hv_context (CFAPI_STRING , ,message);	273	hv_context (CFAPI_STRING , ,message);
213	hv_context (CFAPI_INT ,&,fix);	274	hv_context (CFAPI_INT ,&,fix);
214	hv_context (CFAPI_INT ,&,event_code);	275	hv_context (CFAPI_INT ,&,event_code);
215	hv_context (CFAPI_STRING , ,options);	276	hv_context (CFAPI_STRING , ,options);
		277	hv_context (CFAPI_STRING , ,extension);
216		278
217	PUSHs (sv_2mortal (newRV_noinc ((SV *)hv)));	279	XPUSHs (sv_2mortal (newRV_noinc ((SV *)hv)));
218		280
219	PUTBACK;	281	PUTBACK;
220	int count = call_pv ("cf::inject_event", G_SCALAR \| G_EVAL);	282	int count = call_pv (func, G_SCALAR \| G_EVAL);
221	SPAGAIN;	283	SPAGAIN;
222		284
223	if (SvTRUE (ERRSV))	285	if (SvTRUE (ERRSV))
224	LOG (llevError, "event '%d' callback evaluation error: %s", context->event_code, SvPV_nolen (ERRSV));	286	LOG (llevError, "event '%d' callback evaluation error: %s", context->event_code, SvPV_nolen (ERRSV));
225		287
…		…
334	printf (PLUGIN_VERSION " post init\n");	396	printf (PLUGIN_VERSION " post init\n");
335		397
336	registerGlobalEvent = gethook (&rtype, hooktype, "cfapi_system_register_global_event");	398	registerGlobalEvent = gethook (&rtype, hooktype, "cfapi_system_register_global_event");
337	unregisterGlobalEvent = gethook (&rtype, hooktype, "cfapi_system_unregister_global_event");	399	unregisterGlobalEvent = gethook (&rtype, hooktype, "cfapi_system_unregister_global_event");
338	systemDirectory = gethook (&rtype, hooktype, "cfapi_system_directory");	400	systemDirectory = gethook (&rtype, hooktype, "cfapi_system_directory");
		401	object_set_property = gethook (&rtype, hooktype, "cfapi_object_set_property");
		402	map_get_map = gethook (&rtype, hooktype, "cfapi_map_get_map");
		403
339	cf_init_plugin (gethook);	404	cf_init_plugin (gethook);
340		405
341	/* Pick the global events you want to monitor from this plugin */	406	/* Pick the global events you want to monitor from this plugin */
342	registerGlobalEvent (NULL, EVENT_BORN, PLUGIN_NAME, globalEventListener);	407	registerGlobalEvent (NULL, EVENT_BORN, PLUGIN_NAME, globalEventListener);
343	registerGlobalEvent (NULL, EVENT_CLOCK, PLUGIN_NAME, globalEventListener);	408	registerGlobalEvent (NULL, EVENT_CLOCK, PLUGIN_NAME, globalEventListener);
…		…
352	registerGlobalEvent (NULL, EVENT_REMOVE, PLUGIN_NAME, globalEventListener);	417	registerGlobalEvent (NULL, EVENT_REMOVE, PLUGIN_NAME, globalEventListener);
353	registerGlobalEvent (NULL, EVENT_SHOUT, PLUGIN_NAME, globalEventListener);	418	registerGlobalEvent (NULL, EVENT_SHOUT, PLUGIN_NAME, globalEventListener);
354	registerGlobalEvent (NULL, EVENT_TELL, PLUGIN_NAME, globalEventListener);	419	registerGlobalEvent (NULL, EVENT_TELL, PLUGIN_NAME, globalEventListener);
355	registerGlobalEvent (NULL, EVENT_MUZZLE, PLUGIN_NAME, globalEventListener);	420	registerGlobalEvent (NULL, EVENT_MUZZLE, PLUGIN_NAME, globalEventListener);
356	registerGlobalEvent (NULL, EVENT_KICK, PLUGIN_NAME, globalEventListener);	421	registerGlobalEvent (NULL, EVENT_KICK, PLUGIN_NAME, globalEventListener);
		422	registerGlobalEvent (NULL, EVENT_FREE_OB, PLUGIN_NAME, globalEventListener);
357		423
358	char *argv[] = {	424	char *argv[] = {
359	"",	425	"",
360	"-e"	426	"-e"
361	"BEGIN {"	427	"BEGIN {"
…		…
375		441
376	perl_destruct (perl);	442	perl_destruct (perl);
377	perl_free (perl);	443	perl_free (perl);
378	perl = 0;	444	perl = 0;
379	}	445	}
		446	else
		447	{
		448	obj_cache = newHV ();
		449	}
380		450
381	return 0;	451	return 0;
382	}	452	}
383		453
384	void *	454	void *
…		…
403	{	473	{
404	case EVENT_CRASH:	474	case EVENT_CRASH:
405	printf ("Unimplemented for now\n");	475	printf ("Unimplemented for now\n");
406	break;	476	break;
407		477
		478	case EVENT_MAPENTER:
		479	case EVENT_MAPLEAVE:
		480	case EVENT_FREE_OB:
408	case EVENT_BORN:	481	case EVENT_BORN:
		482	case EVENT_REMOVE:
409	context.activator = va_arg (args, object *);	483	context.activator = va_arg (args, object *);
410	break;	484	break;
411		485
412	case EVENT_PLAYER_DEATH:	486	case EVENT_PLAYER_DEATH:
413	context.who = va_arg (args, object *);	487	context.who = va_arg (args, object *);
…		…
417	context.who = va_arg (args, object *);	491	context.who = va_arg (args, object *);
418	context.activator = va_arg (args, object *);	492	context.activator = va_arg (args, object *);
419	break;	493	break;
420		494
421	case EVENT_LOGIN:	495	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:	496	case EVENT_LOGOUT:
430	pl = va_arg (args, player *);	497	pl = va_arg (args, player *);
431	context.activator = pl->ob;	498	context.activator = pl->ob;
432	buf = va_arg (args, char *);	499	buf = va_arg (args, char *);
433	if (buf != 0)	500	if (buf != 0)
434	strcpy (context.message, buf);	501	strncpy (context.message, buf, sizeof (context.message));
435	break;
436
437	case EVENT_REMOVE:
438	context.activator = va_arg (args, object *);
439	break;	502	break;
440		503
441	case EVENT_SHOUT:	504	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:	505	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:	506	case EVENT_KICK:
456	context.activator = va_arg (args, object *);	507	context.activator = va_arg (args, object *);
457	buf = va_arg (args, char *);	508	buf = va_arg (args, char *);
458	if (buf != 0)	509	if (buf != 0)
459	strcpy (context.message, buf);	510	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;	511	break;
469		512
470	case EVENT_CLOCK:	513	case EVENT_CLOCK:
		514	clean_obj_cache ();
		515	break;
		516
		517	case EVENT_TELL:
471	break;	518	break;
472		519
473	case EVENT_MAPRESET:	520	case EVENT_MAPRESET:
474	buf = va_arg (args, char *);	521	buf = va_arg (args, char *);
475	if (buf != 0)	522	if (buf != 0)
476	strcpy (context.message, buf);	523	strncpy (context.message, buf, sizeof (context.message));
477	break;
478
479	case EVENT_TELL:
480	break;	524	break;
481	}	525	}
482		526
483	va_end (args);	527	va_end (args);
484		528
485	inject_event (&context);	529	if (context.event_code == EVENT_FREE_OB)
		530	{
		531	SV sv = hv_delete (obj_cache, (char )&context.activator, sizeof (void *), 0);
		532
		533	if (sv)
		534	clearSVptr (sv);
		535	}
		536	else
		537	inject_event ("cf::inject_global_event", &context);
486		538
487	rv = context.returnvalue;	539	rv = context.returnvalue;
488		540
489	return &rv;	541	return &rv;
490	}	542	}
…		…
506		558
507	context.who = va_arg (args, object *);	559	context.who = va_arg (args, object *);
508	context.event_code = va_arg (args, int);	560	context.event_code = va_arg (args, int);
509	context.activator = va_arg (args, object *);	561	context.activator = va_arg (args, object *);
510	context.third = va_arg (args, object *);	562	context.third = va_arg (args, object *);
		563
511	buf = va_arg (args, char *);	564	buf = va_arg (args, char *);
512
513	if (buf != 0)	565	if (buf != 0)
514	strcpy (context.message, buf);	566	strncpy (context.message, buf, sizeof (context.message));
515		567
516	context.fix = va_arg (args, int);	568	context.fix = va_arg (args, int);
		569	strncpy (context.extension, va_arg (args, char *), sizeof (context.extension));
517	strcpy (context.options, va_arg (args, char *));	570	strncpy (context.options, va_arg (args, char *), sizeof (context.options));
518	context.returnvalue = 0;	571	context.returnvalue = 0;
519	va_end (args);	572	va_end (args);
520		573
521	inject_event (&context);	574	inject_event ("cf::inject_event", &context);
522		575
523	rv = context.returnvalue;	576	rv = context.returnvalue;
524	return &rv;	577	return &rv;
525	}	578	}
526		579
…		…
543		596
544	BOOT:	597	BOOT:
545	{	598	{
546	HV *stash = gv_stashpv ("cf", 1);	599	HV *stash = gv_stashpv ("cf", 1);
547		600
548	const struct {	601	static const struct {
549	const char *name;	602	const char *name;
550	IV iv;	603	IV iv;
551	} *civ, const_iv[] = {	604	} *civ, const_iv[] = {
552	# define const_iv(name) { # name, (IV)name },	605	# define const_iv(name) { # name, (IV)name },
553	const_iv (llevError)	606	const_iv (llevError)
…		…
832	const_iv (F_CURSED)	885	const_iv (F_CURSED)
833	const_iv (F_DAMNED)	886	const_iv (F_DAMNED)
834	const_iv (F_OPEN)	887	const_iv (F_OPEN)
835	const_iv (F_NOPICK)	888	const_iv (F_NOPICK)
836	const_iv (F_LOCKED)	889	const_iv (F_LOCKED)
		890
		891	const_iv (P_BLOCKSVIEW)
		892	const_iv (P_NO_MAGIC)
		893	const_iv (P_IS_ALIVE)
		894	const_iv (P_NO_CLERIC)
		895	const_iv (P_NEED_UPDATE)
		896	const_iv (P_NO_ERROR)
		897	const_iv (P_OUT_OF_MAP)
		898	const_iv (P_NEW_MAP)
		899
		900	const_iv (UP_OBJ_INSERT)
		901	const_iv (UP_OBJ_REMOVE)
		902	const_iv (UP_OBJ_CHANGE)
		903	const_iv (UP_OBJ_FACE)
		904
		905	const_iv (INS_NO_MERGE)
		906	const_iv (INS_ABOVE_FLOOR_ONLY)
		907	const_iv (INS_NO_WALK_ON)
		908	const_iv (INS_ON_TOP)
		909	const_iv (INS_BELOW_ORIGINATOR)
		910	const_iv (INS_MAP_LOAD)
		911
		912	const_iv (WILL_APPLY_HANDLE)
		913	const_iv (WILL_APPLY_TREASURE)
		914	const_iv (WILL_APPLY_EARTHWALL)
		915	const_iv (WILL_APPLY_DOOR)
		916	const_iv (WILL_APPLY_FOOD)
837	};	917	};
838		918
839	for (civ = const_iv + sizeof (const_iv) / sizeof (const_iv [0]); civ-- > const_iv; )	919	for (civ = const_iv + sizeof (const_iv) / sizeof (const_iv [0]); civ-- > const_iv; )
840	newCONSTSUB (stash, (char *)civ->name, newSViv (civ->iv));	920	newCONSTSUB (stash, (char *)civ->name, newSViv (civ->iv));
841		921
842	const struct {	922	static const struct {
843	const char *name;	923	const char *name;
844	IV iv;	924	IV iv;
845	} *event, event_list[] = {	925	} *event, event_list[] = {
846	# define const_event(name) { # name, (IV)EVENT_ ## name },	926	# define const_event(name) { # name, (IV)EVENT_ ## name },
847	const_event (NONE)	927	const_event (NONE)
…		…
855	const_event (TIME)	935	const_event (TIME)
856	const_event (THROW)	936	const_event (THROW)
857	const_event (TRIGGER)	937	const_event (TRIGGER)
858	const_event (CLOSE)	938	const_event (CLOSE)
859	const_event (TIMER)	939	const_event (TIMER)
		940	const_event (MOVE)
860		941
861	const_event (BORN)	942	const_event (BORN)
862	const_event (CLOCK)	943	const_event (CLOCK)
863	const_event (CRASH)	944	const_event (CRASH)
864	const_event (PLAYER_DEATH)	945	const_event (PLAYER_DEATH)
…		…
871	const_event (REMOVE)	952	const_event (REMOVE)
872	const_event (SHOUT)	953	const_event (SHOUT)
873	const_event (TELL)	954	const_event (TELL)
874	const_event (MUZZLE)	955	const_event (MUZZLE)
875	const_event (KICK)	956	const_event (KICK)
		957	//const_event (FREE_OB)
876	};	958	};
877		959
878	AV *av = get_av ("cf::EVENT", 1);	960	AV *av = get_av ("cf::EVENT", 1);
879		961
880	for (event = event_list + sizeof (event_list) / sizeof (event_list [0]); event-- > event_list; )	962	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));	963	av_store (av, event->iv, newSVpv ((char *)event->name, 0));
882		964
883	const struct {	965	static const struct {
884	int dtype;	966	int dtype;
885	const char *name;	967	const char *name;
886	IV idx;	968	IV idx;
887	} *cprop, prop_table[] = {	969	} *cprop, prop_table[] = {
888	# define prop(type, name) { type, # name, (IV) CFAPI_ ## name },	970	# define prop(type, name) { type, # name, (IV) CFAPI_ ## name },
…		…
1067	cf_object_set_int_property (obj, idx, SvIV (newval));	1149	cf_object_set_int_property (obj, idx, SvIV (newval));
1068	break;	1150	break;
1069	case CFAPI_LONG:	1151	case CFAPI_LONG:
1070	cf_object_set_long_property (obj, idx, SvNV (newval));	1152	cf_object_set_long_property (obj, idx, SvNV (newval));
1071	break;	1153	break;
		1154	case CFAPI_DOUBLE:
		1155	{
		1156	int unused_type;
		1157	object_set_property (&unused_type, obj, idx, (double)SvNV (newval));
		1158	}
		1159	break;
1072	case CFAPI_STRING:	1160	case CFAPI_STRING:
1073	cf_object_set_string_property (obj, idx, SvPV_nolen (newval));	1161	cf_object_set_string_property (obj, idx, SvPV_nolen (newval));
1074	break;	1162	break;
1075	default:	1163	default:
1076	croak ("unhandled type '%d' in set_property '%d'", type, idx);	1164	croak ("unhandled type '%d' in set_property '%d'", type, idx);
1077	}	1165	}
1078		1166
		1167	void
		1168	inv (object *obj)
		1169	PROTOTYPE: $
		1170	PPCODE:
		1171	{
		1172	object *o;
		1173	for (o = obj->inv; o; o = o->below)
		1174	XPUSHs (sv_2mortal (newSVcfapi (CFAPI_POBJECT, o)));
		1175	}
		1176
1079	int cf_object_get_resistance (object *op, int rtype)	1177	int cf_object_get_resistance (object *op, int rtype)
1080	ALIAS: resistance = 0	1178	ALIAS: resistance = 0
1081		1179
1082	int cf_object_get_flag (object *op, int flag)	1180	int cf_object_get_flag (object *op, int flag)
1083	ALIAS: flag = 0	1181	ALIAS: flag = 0
1084		1182
1085	void cf_object_set_flag (object *op, int flag, int value)	1183	void cf_object_set_flag (object *op, int flag, int value)
1086		1184
1087	void cf_object_move (object op, object originator, int dir)	1185	void cf_object_move (object op, int dir, object originator = op)
1088		1186
1089	void cf_object_apply (object op, object author, int flags)	1187	void cf_object_apply (object op, object author, int flags = 0)
1090		1188
1091	void cf_object_apply_below (object *op)	1189	void cf_object_apply_below (object *op)
1092		1190
1093	void cf_object_remove (object *op)	1191	void cf_object_remove (object *op)
1094		1192
…		…
1098		1196
1099	int cf_object_transfer (object op, int x, int y, int r, object orig)	1197	int cf_object_transfer (object op, int x, int y, int r, object orig)
1100		1198
1101	int cf_object_change_map (object op, int x, int y, mapstruct map)	1199	int cf_object_change_map (object op, int x, int y, mapstruct map)
1102		1200
1103	object cf_object_clone (object op, int clonetype)	1201	object cf_object_clone (object op, int clonetype = 0)
1104		1202
1105	int cf_object_pay_item (object op, object buyer)	1203	int cf_object_pay_item (object op, object buyer)
1106		1204
1107	int cf_object_pay_amount (object *op, double amount)	1205	int cf_object_pay_amount (object *op, double amount)
1108		1206
…		…
1160	RETVAL = cf_query_base_name (ob, plural);	1258	RETVAL = cf_query_base_name (ob, plural);
1161	OUTPUT: RETVAL	1259	OUTPUT: RETVAL
1162		1260
1163	MODULE = cf PACKAGE = cf::object PREFIX = cf_object_	1261	MODULE = cf PACKAGE = cf::object PREFIX = cf_object_
1164		1262
1165	object *cf_create_object ()
1166	PROTOTYPE:
1167	ALIAS: new = 0
1168
1169	object cf_create_object_by_name (const char name)	1263	object cf_create_object_by_name (const char name = 0)
1170	PROTOTYPE: $	1264	PROTOTYPE: ;$
1171	ALIAS: new_from_name = 0	1265	ALIAS:
1172		1266	create_object = 0
1173	void cf_free_object (object *ob)	1267	new = 0
		1268	CODE:
		1269	RETVAL = name ? cf_create_object_by_name (name) : cf_create_object ();
		1270	OUTPUT:
		1271	RETVAL
1174		1272
1175	void cf_fix_object (object *pl)	1273	void cf_fix_object (object *pl)
		1274	ALIAS: fix = 0
1176		1275
1177	object cf_insert_ob_in_ob (object ob, object *where)	1276	object cf_insert_ob_in_ob (object ob, object *where)
		1277
		1278	object get_nearest_player (object ob)
		1279	ALIAS: nearest_player = 0
		1280	PREINIT:
		1281	extern object get_nearest_player (object );
		1282
		1283	void rangevector (object ob, object other, int flags = 0)
		1284	PROTOTYPE: $$;$
		1285	PPCODE:
		1286	{
		1287	rv_vector rv;
		1288	get_rangevector (ob, other, &rv, flags);
		1289	EXTEND (SP, 5);
		1290	PUSHs (newSVuv (rv.distance));
		1291	PUSHs (newSViv (rv.distance_x));
		1292	PUSHs (newSViv (rv.distance_y));
		1293	PUSHs (newSViv (rv.direction));
		1294	PUSHs (newSVcfapi (CFAPI_POBJECT, rv.part));
		1295	}
		1296
		1297	bool on_same_map_as (object ob, object other)
		1298	CODE:
		1299	RETVAL = on_same_map (ob, other);
		1300	OUTPUT: RETVAL
1178		1301
1179		1302
1180	MODULE = cf PACKAGE = cf::object::player PREFIX = cf_player_	1303	MODULE = cf PACKAGE = cf::object::player PREFIX = cf_player_
1181		1304
1182	player player (object op)	1305	player player (object op)
…		…
1214	# nonstandard	1337	# nonstandard
1215	object ob (player pl)	1338	object ob (player pl)
1216	CODE:	1339	CODE:
1217	RETVAL = pl->ob;	1340	RETVAL = pl->ob;
1218	OUTPUT: RETVAL	1341	OUTPUT: RETVAL
		1342
		1343	player *first ()
		1344	CODE:
		1345	RETVAL = first_player;
		1346	OUTPUT: RETVAL
		1347
		1348	player next (player pl)
		1349	CODE:
		1350	RETVAL = pl->next;
		1351	OUTPUT: RETVAL
		1352
		1353	void
		1354	list ()
		1355	PPCODE:
		1356	{
		1357	player *pl;
		1358	for (pl = first_player; pl; pl = pl->next)
		1359	XPUSHs (newSVcfapi (CFAPI_PPLAYER, pl));
		1360	}
1219		1361
1220		1362
1221	MODULE = cf PACKAGE = cf::map PREFIX = cf_map_	1363	MODULE = cf PACKAGE = cf::map PREFIX = cf_map_
1222		1364
1223	SV *	1365	SV *
…		…
1236	break;	1378	break;
1237	default:	1379	default:
1238	croak ("unhandled type '%d' in set_property '%d'", type, idx);	1380	croak ("unhandled type '%d' in set_property '%d'", type, idx);
1239	}	1381	}
1240		1382
		1383	mapstruct *new (int width, int height)
		1384	PROTOTYPE:
		1385	CODE:
		1386	{
		1387	int unused_type;
		1388	RETVAL = map_get_map (&unused_type, 0, width, height);
		1389	}
		1390	OUTPUT:
		1391	RETVAL
		1392
1241	mapstruct cf_map_get_map (char name)	1393	mapstruct cf_map_get_map (char name)
1242	PROTOTYPE: $	1394	PROTOTYPE: $
1243	ALIAS: map = 0	1395	ALIAS: map = 0
1244		1396
1245	mapstruct *cf_map_get_first ()	1397	mapstruct *cf_map_get_first ()
…		…
1253	object* cf_map_present_arch_by_name (mapstruct map, const char str, int nx, int ny)	1405	object* cf_map_present_arch_by_name (mapstruct map, const char str, int nx, int ny)
1254	C_ARGS: str, map, nx, ny	1406	C_ARGS: str, map, nx, ny
1255		1407
1256	#int cf_map_get_flags (mapstruct* map, mapstruct** nmap, I16 x, I16 y, I16 nx, I16 ny)	1408	#int cf_map_get_flags (mapstruct* map, mapstruct** nmap, I16 x, I16 y, I16 nx, I16 ny)
1257		1409
		1410	void
		1411	at (mapstruct *obj, unsigned int x, unsigned int y)
		1412	PROTOTYPE: $$$
		1413	INIT:
		1414	if (x >= MAP_WIDTH (obj) \|\| y >= MAP_HEIGHT (obj)) XSRETURN_EMPTY;
		1415	PPCODE:
		1416	{
		1417	object *o;
		1418	for (o = GET_MAP_OB (obj, x, y); o; o = o->above)
		1419	XPUSHs (sv_2mortal (newSVcfapi (CFAPI_POBJECT, o)));
		1420	}
		1421
		1422	SV *
		1423	bot_at (mapstruct *obj, unsigned int x, unsigned int y)
		1424	PROTOTYPE: $$$
		1425	ALIAS:
		1426	top_at = 1
		1427	flags_at = 2
		1428	light_at = 3
		1429	move_block_at = 4
		1430	move_slow_at = 5
		1431	move_on_at = 6
		1432	move_off_at = 7
		1433	INIT:
		1434	if (x >= MAP_WIDTH (obj) \|\| y >= MAP_HEIGHT (obj)) XSRETURN_UNDEF;
		1435	CODE:
		1436	switch (ix)
		1437	{
		1438	case 0: RETVAL = newSVcfapi (CFAPI_POBJECT, GET_MAP_OB (obj, x, y)); break;
		1439	case 1: RETVAL = newSVcfapi (CFAPI_POBJECT, GET_MAP_TOP (obj, x, y)); break;
		1440	case 2: RETVAL = newSVuv ( GET_MAP_FLAGS (obj, x, y)); break;
		1441	case 3: RETVAL = newSViv ( GET_MAP_LIGHT (obj, x, y)); break;
		1442	case 4: RETVAL = newSVuv ( GET_MAP_MOVE_BLOCK (obj, x, y)); break;
		1443	case 5: RETVAL = newSVuv ( GET_MAP_MOVE_SLOW (obj, x, y)); break;
		1444	case 6: RETVAL = newSVuv ( GET_MAP_MOVE_ON (obj, x, y)); break;
		1445	case 7: RETVAL = newSVuv ( GET_MAP_MOVE_OFF (obj, x, y)); break;
		1446	}
		1447	OUTPUT:
		1448	RETVAL
1258		1449
1259		1450
1260	MODULE = cf PACKAGE = cf::arch PREFIX = cf_archetype_	1451	MODULE = cf PACKAGE = cf::arch PREFIX = cf_archetype_
1261		1452
1262	archetype*cf_archetype_get_first()	1453	archetype *cf_archetype_get_first()
1263	PROTOTYPE:	1454	PROTOTYPE:
1264	ALIAS: first = 0	1455	ALIAS: first = 0
1265		1456
1266	archetype cf_archetype_get_next (archetype arch)	1457	archetype cf_archetype_get_next (archetype arch)
1267	ALIAS: next = 0	1458	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.21 by root, Fri Feb 10 04:35:33 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.21 by root, Fri Feb 10 04:35:33 2006 UTC