[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.6 by root, Fri Feb 3 21:22:53 2006 UTC

…		…
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 reCmp;
57		56
58	typedef struct	57	typedef struct
59	{	58	{
60	object* who;	59	object* who;
61	object* activator;	60	object* activator;
…		…
157	}	156	}
158	}	157	}
159	break;	158	break;
160		159
161	case CFAPI_PMAP:	160	case CFAPI_PMAP:
162	sv = newSVptr (va_arg (args, object *), "cf::map");	161	sv = newSVptr (va_arg (args, mapstruct *), "cf::map");
163	break;	162	break;
164		163
165	case CFAPI_PPLAYER:	164	case CFAPI_PPLAYER:
166	sv = newSVptr (va_arg (args, object *), "cf::player");	165	sv = newSVptr (va_arg (args, player *), "cf::player");
167	break;	166	break;
168		167
169	case CFAPI_PARCH:	168	case CFAPI_PARCH:
170	sv = newSVptr (va_arg (args, object *), "cf::arch");	169	sv = newSVptr (va_arg (args, archetype *), "cf::arch");
171	break;	170	break;
172		171
173	case CFAPI_PPARTY:	172	case CFAPI_PPARTY:
174	sv = newSVptr (va_arg (args, object *), "cf::party");	173	sv = newSVptr (va_arg (args, partylist *), "cf::party");
175	break;	174	break;
176		175
177	case CFAPI_PREGION:	176	case CFAPI_PREGION:
178	sv = newSVptr (va_arg (args, object *), "cf::region");	177	sv = newSVptr (va_arg (args, region *), "cf::region");
179	break;	178	break;
180		179
181	default:	180	default:
182	assert (("unhandled type in newSVcfapi", 0));	181	assert (("unhandled type in newSVcfapi", 0));
183	}	182	}
…		…
216		215
217	PUTBACK;	216	PUTBACK;
218	int count = call_pv ("cf::inject_event", G_SCALAR \| G_EVAL);	217	int count = call_pv ("cf::inject_event", G_SCALAR \| G_EVAL);
219	SPAGAIN;	218	SPAGAIN;
220		219
		220	if (SvTRUE (ERRSV))
		221	LOG (llevError, "event '%d' callback evaluation error: %s", context->event_code, SvPV_nolen (ERRSV));
		222
221	context->returnvalue = count > 0 ? POPi : 0;	223	context->returnvalue = count > 0 ? POPi : 0;
222		224
223	PUTBACK;	225	PUTBACK;
224	FREETMPS;	226	FREETMPS;
225	LEAVE;	227	LEAVE;
226
227	if (SvTRUE (ERRSV))
228	LOG (llevError, "event '%d' callback evaluation error: %s", context->event_code, SvPV_nolen (ERRSV));
229	}	228	}
230		229
231	/////////////////////////////////////////////////////////////////////////////	230	/////////////////////////////////////////////////////////////////////////////
232		231
233	int	232	int
…		…
260		259
261	PUTBACK;	260	PUTBACK;
262	int count = call_pv ("cf::inject_command", G_SCALAR \| G_EVAL);	261	int count = call_pv ("cf::inject_command", G_SCALAR \| G_EVAL);
263	SPAGAIN;	262	SPAGAIN;
264		263
		264	if (SvTRUE (ERRSV))
		265	LOG (llevError, "command '%s' callback evaluation error: %s", rtn_cmd.name, SvPV_nolen (ERRSV));
		266
265	int returnvalue = count > 0 ? POPi : -1;	267	int returnvalue = count > 0 ? POPi : -1;
266		268
267	PUTBACK;	269	PUTBACK;
268	FREETMPS;	270	FREETMPS;
269	LEAVE;	271	LEAVE;
270
271	if (SvTRUE (ERRSV))
272	LOG (llevError, "command '%s' callback evaluation error: %s", rtn_cmd.name, SvPV_nolen (ERRSV));
273		272
274	return returnvalue;	273	return returnvalue;
275	}	274	}
276		275
277	void *	276	void *
…		…
281	char *propname;	280	char *propname;
282	int i;	281	int i;
283	va_start (args, type);	282	va_start (args, type);
284	propname = va_arg (args, char *);	283	propname = va_arg (args, char *);
285	//printf ("Property name: %s\n", propname);	284	//printf ("Property name: %s\n", propname);
286		285
287	if (!strcmp (propname, "command?"))	286	if (!strcmp (propname, "command?"))
288	{	287	{
		288	if (!perl)
		289	return NULL;
		290
289	const char cmdname = va_arg (args, const char );	291	const char cmdname = va_arg (args, const char );
290	HV *hv = get_hv ("cf::COMMAND", 1);	292	HV *hv = get_hv ("cf::COMMAND", 1);
291	SV **svp = hv_fetch (hv, cmdname, strlen (cmdname) + 1, 0);	293	SV **svp = hv_fetch (hv, cmdname, strlen (cmdname) + 1, 0);
292		294
293	va_end (args);	295	va_end (args);
…		…
329	printf (PLUGIN_VERSION " post init\n");	331	printf (PLUGIN_VERSION " post init\n");
330		332
331	registerGlobalEvent = gethook (&rtype, hooktype, "cfapi_system_register_global_event");	333	registerGlobalEvent = gethook (&rtype, hooktype, "cfapi_system_register_global_event");
332	unregisterGlobalEvent = gethook (&rtype, hooktype, "cfapi_system_unregister_global_event");	334	unregisterGlobalEvent = gethook (&rtype, hooktype, "cfapi_system_unregister_global_event");
333	systemDirectory = gethook (&rtype, hooktype, "cfapi_system_directory");	335	systemDirectory = gethook (&rtype, hooktype, "cfapi_system_directory");
334	reCmp = gethook (&rtype, hooktype, "cfapi_system_re_cmp");
335	cf_init_plugin (gethook);	336	cf_init_plugin (gethook);
336		337
337	/* Pick the global events you want to monitor from this plugin */	338	/* Pick the global events you want to monitor from this plugin */
338	registerGlobalEvent (NULL, EVENT_BORN, PLUGIN_NAME, globalEventListener);	339	registerGlobalEvent (NULL, EVENT_BORN, PLUGIN_NAME, globalEventListener);
339	registerGlobalEvent (NULL, EVENT_CLOCK, PLUGIN_NAME, globalEventListener);	340	registerGlobalEvent (NULL, EVENT_CLOCK, PLUGIN_NAME, globalEventListener);
…		…
354	char *argv[] = {	355	char *argv[] = {
355	"",	356	"",
356	"-e"	357	"-e"
357	"BEGIN {"	358	"BEGIN {"
358	" cf->bootstrap;"	359	" cf->bootstrap;"
359	" unshift @INC, cf::maps_directory ('perl');"	360	" unshift @INC, cf::datadir ();"
360	"}"	361	"}"
361	""	362	""
362	"use cf;"	363	"use cf;"
363	};	364	};
364		365
365	perl = perl_alloc ();	366	perl = perl_alloc ();
366	perl_construct (perl);	367	perl_construct (perl);
367		368
368	if (perl_parse (perl, xs_init, 2, argv, (char **)NULL)	369	if (perl_parse (perl, xs_init, 2, argv, (char **)NULL) \|\| perl_run (perl))
369	\|\| perl_run (perl))
370	{	370	{
371	printf ("unable to initialize perl-interpreter, continuing without.\n");	371	printf ("unable to initialize perl-interpreter, continuing without.\n");
372		372
373	perl_destruct (perl);	373	perl_destruct (perl);
374	perl_free (perl);	374	perl_free (perl);
…		…
801	const_iv (FLAG_IS_WATER)	801	const_iv (FLAG_IS_WATER)
802	const_iv (FLAG_CONTENT_ON_GEN)	802	const_iv (FLAG_CONTENT_ON_GEN)
803	const_iv (FLAG_IS_A_TEMPLATE)	803	const_iv (FLAG_IS_A_TEMPLATE)
804	const_iv (FLAG_IS_BUILDABLE)	804	const_iv (FLAG_IS_BUILDABLE)
805	const_iv (FLAG_AFK)	805	const_iv (FLAG_AFK)
		806
		807	const_iv (NDI_BLACK)
		808	const_iv (NDI_WHITE)
		809	const_iv (NDI_NAVY)
		810	const_iv (NDI_RED)
		811	const_iv (NDI_ORANGE)
		812	const_iv (NDI_BLUE)
		813	const_iv (NDI_DK_ORANGE)
		814	const_iv (NDI_GREEN)
		815	const_iv (NDI_LT_GREEN)
		816	const_iv (NDI_GREY)
		817	const_iv (NDI_BROWN)
		818	const_iv (NDI_GOLD)
		819	const_iv (NDI_TAN)
		820	const_iv (NDI_MAX_COLOR)
		821	const_iv (NDI_COLOR_MASK)
		822	const_iv (NDI_UNIQUE)
		823	const_iv (NDI_ALL)
		824
		825	const_iv (F_APPLIED)
		826	const_iv (F_LOCATION)
		827	const_iv (F_UNPAID)
		828	const_iv (F_MAGIC)
		829	const_iv (F_CURSED)
		830	const_iv (F_DAMNED)
		831	const_iv (F_OPEN)
		832	const_iv (F_NOPICK)
		833	const_iv (F_LOCKED)
806	};	834	};
807		835
808	for (civ = const_iv + sizeof (const_iv) / sizeof (const_iv [0]); civ-- > const_iv; )	836	for (civ = const_iv + sizeof (const_iv) / sizeof (const_iv [0]); civ-- > const_iv; )
809	newCONSTSUB (stash, (char *)civ->name, newSViv (civ->iv));	837	newCONSTSUB (stash, (char *)civ->name, newSViv (civ->iv));
810		838
…		…
973	prop (CFAPI_INT, OBJECT_PROP_DAM)	1001	prop (CFAPI_INT, OBJECT_PROP_DAM)
974	prop (CFAPI_STRING, OBJECT_PROP_GOD)	1002	prop (CFAPI_STRING, OBJECT_PROP_GOD)
975	prop (CFAPI_STRING, OBJECT_PROP_ARCH_NAME)	1003	prop (CFAPI_STRING, OBJECT_PROP_ARCH_NAME)
976	prop (CFAPI_INT, OBJECT_PROP_INVISIBLE)	1004	prop (CFAPI_INT, OBJECT_PROP_INVISIBLE)
977	prop (CFAPI_INT, OBJECT_PROP_FACE)	1005	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	};	1006	};
982		1007
983	HV *prop_type = get_hv ("cf::PROP_TYPE", 1);	1008	HV *prop_type = get_hv ("cf::PROP_TYPE", 1);
984	HV *prop_idx = get_hv ("cf::PROP_IDX", 1);	1009	HV *prop_idx = get_hv ("cf::PROP_IDX", 1);
985		1010
…		…
990	}	1015	}
991	}	1016	}
992		1017
993	void	1018	void
994	LOG (int level, char *msg)	1019	LOG (int level, char *msg)
		1020	PROTOTYPE: $$
995	C_ARGS: level, "%s", msg	1021	C_ARGS: level, "%s", msg
996		1022
997	char *	1023	char *
998	cf_get_maps_directory (char *path)	1024	cf_get_maps_directory (char *path)
		1025	PROTOTYPE: $
999	ALIAS: maps_directory = 0	1026	ALIAS: maps_directory = 0
1000		1027
		1028	char *
		1029	mapdir ()
		1030	PROTOTYPE:
		1031	ALIAS:
		1032	mapdir = 0
		1033	uniquedir = 1
		1034	tmpdir = 2
		1035	confdir = 3
		1036	localdir = 4
		1037	playerdir = 5
		1038	datadir = 6
		1039	CODE:
		1040	{
		1041	int unused_type;
		1042	RETVAL = (char *)systemDirectory (&unused_type, ix);
		1043	}
		1044	OUTPUT: RETVAL
		1045
		1046	int
		1047	cf_find_animation (char *text)
		1048	PROTOTYPE: $
		1049
1001	MODULE = cf PACKAGE = cf::object PREFIX = cf_object_	1050	MODULE = cf PACKAGE = cf::object PREFIX = cf_object_
1002		1051
1003	PROTOTYPES: DISABLE
1004
1005	SV *	1052	SV *
1006	cf_object_get_property (object *obj, int type, int idx)	1053	get_property (object *obj, int type, int idx)
1007	CODE:	1054	CODE:
1008	RETVAL = newSVcfapi (type, cf_object_get_property (obj, idx));	1055	RETVAL = newSVcfapi (type, cf_object_get_property (obj, idx));
1009	OUTPUT:	1056	OUTPUT: RETVAL
1010	RETVAL	1057
		1058	SV *
		1059	set_property (object obj, int type, int idx, SV newval)
		1060	CODE:
		1061	switch (type)
		1062	{
		1063	case CFAPI_INT:
		1064	cf_object_set_int_property (obj, idx, SvIV (newval));
		1065	break;
		1066	case CFAPI_LONG:
		1067	cf_object_set_long_property (obj, idx, SvNV (newval));
		1068	break;
		1069	case CFAPI_STRING:
		1070	cf_object_set_string_property (obj, idx, SvPV_nolen (newval));
		1071	break;
		1072	default:
		1073	croak ("unhandled type '%d' in set_property '%d'", type, idx);
		1074	}
1011		1075
1012	int cf_object_get_resistance (object *op, int rtype)	1076	int cf_object_get_resistance (object *op, int rtype)
1013	ALIAS: resistance = 0	1077	ALIAS: resistance = 0
1014		1078
1015	int cf_object_get_flag (object *op, int flag)	1079	int cf_object_get_flag (object *op, int flag)
…		…
1089		1153
1090	char *	1154	char *
1091	base_name (object *ob, int plural)	1155	base_name (object *ob, int plural)
1092	CODE:	1156	CODE:
1093	RETVAL = cf_query_base_name (ob, plural);	1157	RETVAL = cf_query_base_name (ob, plural);
1094	OUTPUT:	1158	OUTPUT: RETVAL
1095	RETVAL
1096		1159
1097	MODULE = cf PACKAGE = cf::object PREFIX = cf_object_	1160	MODULE = cf PACKAGE = cf::object PREFIX = cf_object_
1098		1161
1099	object *cf_create_object ()	1162	object *cf_create_object ()
		1163	PROTOTYPE:
1100	ALIAS: new = 0	1164	ALIAS: new = 0
1101		1165
1102	object cf_create_object_by_name (const char name)	1166	object cf_create_object_by_name (const char name)
		1167	PROTOTYPE: $
1103	ALIAS: new_from_name = 0	1168	ALIAS: new_from_name = 0
1104		1169
1105	void cf_free_object (object *ob)	1170	void cf_free_object (object *ob)
1106		1171
1107	void cf_fix_object (object *pl)	1172	void cf_fix_object (object *pl)
…		…
1112	MODULE = cf PACKAGE = cf::object::player PREFIX = cf_player_	1177	MODULE = cf PACKAGE = cf::object::player PREFIX = cf_player_
1113		1178
1114	player player (object op)	1179	player player (object op)
1115	CODE:	1180	CODE:
1116	RETVAL = cf_player_find (cf_query_name (op));	1181	RETVAL = cf_player_find (cf_query_name (op));
1117	OUTPUT:	1182	OUTPUT: RETVAL
1118	RETVAL
1119		1183
1120	void cf_player_message (object obj, char txt, int flags = 0)	1184	void cf_player_message (object obj, char txt, int flags = NDI_ORANGE \| NDI_UNIQUE)
1121		1185
1122	object cf_player_send_inventory (object op)	1186	object cf_player_send_inventory (object op)
1123		1187
		1188	char cf_player_get_ip (object op)
		1189	ALIAS: ip = 0
		1190
		1191	object cf_player_get_marked_item (object op)
		1192	ALIAS: marked_item = 0
		1193
		1194	void cf_player_set_marked_item (object op, object ob)
		1195
		1196	partylist cf_player_get_party (object op)
		1197	ALIAS: party = 0
		1198
		1199	void cf_player_set_party (object op, partylist party)
		1200
1124		1201
1125	MODULE = cf PACKAGE = cf::object::map PREFIX = cf_	1202	MODULE = cf PACKAGE = cf::object::map PREFIX = cf_
1126		1203
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_	1204	MODULE = cf PACKAGE = cf::player PREFIX = cf_player_
1144		1205
1145	player cf_player_find (char name)	1206	player cf_player_find (char name)
		1207	PROTOTYPE: $
1146		1208
1147	void cf_player_move (player *pl, int dir)	1209	void cf_player_move (player *pl, int dir)
1148		1210
		1211	# nonstandard
		1212	object ob (player pl)
		1213	CODE:
		1214	RETVAL = pl->ob;
		1215	OUTPUT: RETVAL
1149		1216
		1217
1150	MODULE = cf PACKAGE = cf::map PREFIX = cf_	1218	MODULE = cf PACKAGE = cf::map PREFIX = cf_map_
1151		1219
1152	SV *	1220	SV *
1153	get_property (mapstruct *obj, int type, int idx)	1221	get_property (mapstruct *obj, int type, int idx)
1154	CODE:	1222	CODE:
1155	RETVAL = newSVcfapi (type, cf_map_get_property (obj, idx));	1223	RETVAL = newSVcfapi (type, cf_map_get_property (obj, idx));
1156	OUTPUT:	1224	OUTPUT: RETVAL
1157	RETVAL	1225
		1226	SV *
		1227	set_property (mapstruct obj, int type, int idx, SV newval)
		1228	CODE:
		1229	switch (type)
		1230	{
		1231	case CFAPI_INT:
		1232	cf_map_set_int_property (obj, idx, SvIV (newval));
		1233	break;
		1234	default:
		1235	croak ("unhandled type '%d' in set_property '%d'", type, idx);
		1236	}
		1237
		1238	mapstruct cf_map_get_map (char name)
		1239	PROTOTYPE: $
		1240	ALIAS: map = 0
		1241
		1242	mapstruct *cf_map_get_first ()
		1243	PROTOTYPE:
		1244	ALIAS: first = 0
		1245
		1246	object cf_map_insert_object_there (mapstruct where, object op, object originator, int flags)
		1247
		1248	object cf_map_insert_object (mapstruct where, object* op, int x, int y)
		1249
		1250	object* cf_map_present_arch_by_name (mapstruct map, const char str, int nx, int ny)
		1251	C_ARGS: str, map, nx, ny
		1252
		1253	#int cf_map_get_flags (mapstruct* map, mapstruct** nmap, I16 x, I16 y, I16 nx, I16 ny)
		1254
1158		1255
1159		1256
1160	MODULE = cf PACKAGE = cf::arch PREFIX = cf_archetype_	1257	MODULE = cf PACKAGE = cf::arch PREFIX = cf_archetype_
1161		1258
1162	archetype*cf_archetype_get_first()	1259	archetype*cf_archetype_get_first()
		1260	PROTOTYPE:
1163	ALIAS: first = 0	1261	ALIAS: first = 0
1164		1262
1165	archetype cf_archetype_get_next (archetype arch)	1263	archetype cf_archetype_get_next (archetype arch)
1166	ALIAS: next = 0	1264	ALIAS: next = 0
1167		1265
…		…
1174	const char cf_archetype_get_name (archetype arch)	1272	const char cf_archetype_get_name (archetype arch)
1175	ALIAS: name = 0	1273	ALIAS: name = 0
1176		1274
1177	MODULE = cf PACKAGE = cf::party PREFIX = cf_party_	1275	MODULE = cf PACKAGE = cf::party PREFIX = cf_party_
1178		1276
1179	const char cf_party_get_name (partylist party)
1180
1181	partylist *cf_party_get_first ()	1277	partylist *cf_party_get_first ()
		1278	PROTOTYPE:
1182	ALIAS: first = 0	1279	ALIAS: first = 0
1183		1280
1184	partylist cf_party_get_next (partylist party)	1281	partylist cf_party_get_next (partylist party)
1185	ALIAS: next = 0	1282	ALIAS: next = 0
1186		1283
		1284	const char cf_party_get_name (partylist party)
		1285
1187	const char cf_party_get_password (partylist party)	1286	const char cf_party_get_password (partylist party)
1188	ALIAS: password = 0	1287	ALIAS: password = 0
1189		1288
1190	player cf_party_get_first_player (partylist party)	1289	player cf_party_get_first_player (partylist party)
1191	ALIAS: first_player = 0	1290	ALIAS: first_player = 0
…		…
1195		1294
1196		1295
1197	MODULE = cf PACKAGE = cf::region PREFIX = cf_region_	1296	MODULE = cf PACKAGE = cf::region PREFIX = cf_region_
1198		1297
1199	region *cf_region_get_first ()	1298	region *cf_region_get_first ()
		1299	PROTOTYPE:
1200	ALIAS: first = 0	1300	ALIAS: first = 0
1201		1301
1202	const char cf_region_get_name (region reg)	1302	const char cf_region_get_name (region reg)
1203	ALIAS: name = 0	1303	ALIAS: name = 0
1204		1304

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.6 by root, Fri Feb 3 21:22:53 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.6 by root, Fri Feb 3 21:22:53 2006 UTC