ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/deliantra/server/plugins/cfperl/cfperl.xs
(Generate patch)

Comparing deliantra/server/plugins/cfperl/cfperl.xs (file contents):
Revision 1.4 by root, Fri Feb 3 17:19:13 2006 UTC vs.
Revision 1.6 by root, Fri Feb 3 21:22:53 2006 UTC

… …
51 51
52static f_plug_api gethook; 52static f_plug_api gethook;
53static f_plug_api registerGlobalEvent; 53static f_plug_api registerGlobalEvent;
54static f_plug_api unregisterGlobalEvent; 54static f_plug_api unregisterGlobalEvent;
55static f_plug_api systemDirectory; 55static f_plug_api systemDirectory;
56static f_plug_api reCmp;
57 56
58typedef struct 57typedef 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
233int 232int
… …
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
277void * 276void *
… …
332 printf (PLUGIN_VERSION " post init\n"); 331 printf (PLUGIN_VERSION " post init\n");
333 332
334 registerGlobalEvent = gethook (&rtype, hooktype, "cfapi_system_register_global_event"); 333 registerGlobalEvent = gethook (&rtype, hooktype, "cfapi_system_register_global_event");
335 unregisterGlobalEvent = gethook (&rtype, hooktype, "cfapi_system_unregister_global_event"); 334 unregisterGlobalEvent = gethook (&rtype, hooktype, "cfapi_system_unregister_global_event");
336 systemDirectory = gethook (&rtype, hooktype, "cfapi_system_directory"); 335 systemDirectory = gethook (&rtype, hooktype, "cfapi_system_directory");
337 reCmp = gethook (&rtype, hooktype, "cfapi_system_re_cmp");
338 cf_init_plugin (gethook); 336 cf_init_plugin (gethook);
339 337
340 /* Pick the global events you want to monitor from this plugin */ 338 /* Pick the global events you want to monitor from this plugin */
341 registerGlobalEvent (NULL, EVENT_BORN, PLUGIN_NAME, globalEventListener); 339 registerGlobalEvent (NULL, EVENT_BORN, PLUGIN_NAME, globalEventListener);
342 registerGlobalEvent (NULL, EVENT_CLOCK, PLUGIN_NAME, globalEventListener); 340 registerGlobalEvent (NULL, EVENT_CLOCK, PLUGIN_NAME, globalEventListener);
… …
357 char *argv[] = { 355 char *argv[] = {
358 "", 356 "",
359 "-e" 357 "-e"
360 "BEGIN {" 358 "BEGIN {"
361 " cf->bootstrap;" 359 " cf->bootstrap;"
362 " unshift @INC, cf::maps_directory ('perl');" 360 " unshift @INC, cf::datadir ();"
363 "}" 361 "}"
364 "" 362 ""
365 "use cf;" 363 "use cf;"
366 }; 364 };
367 365
368 perl = perl_alloc (); 366 perl = perl_alloc ();
369 perl_construct (perl); 367 perl_construct (perl);
370 368
371 if (perl_parse (perl, xs_init, 2, argv, (char **)NULL) 369 if (perl_parse (perl, xs_init, 2, argv, (char **)NULL) || perl_run (perl))
372 || perl_run (perl))
373 { 370 {
374 printf ("unable to initialize perl-interpreter, continuing without.\n"); 371 printf ("unable to initialize perl-interpreter, continuing without.\n");
375 372
376 perl_destruct (perl); 373 perl_destruct (perl);
377 perl_free (perl); 374 perl_free (perl);
… …
804 const_iv (FLAG_IS_WATER) 801 const_iv (FLAG_IS_WATER)
805 const_iv (FLAG_CONTENT_ON_GEN) 802 const_iv (FLAG_CONTENT_ON_GEN)
806 const_iv (FLAG_IS_A_TEMPLATE) 803 const_iv (FLAG_IS_A_TEMPLATE)
807 const_iv (FLAG_IS_BUILDABLE) 804 const_iv (FLAG_IS_BUILDABLE)
808 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)
809 }; 834 };
810 835
811 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; )
812 newCONSTSUB (stash, (char *)civ->name, newSViv (civ->iv)); 837 newCONSTSUB (stash, (char *)civ->name, newSViv (civ->iv));
813 838
… …
976 prop (CFAPI_INT, OBJECT_PROP_DAM) 1001 prop (CFAPI_INT, OBJECT_PROP_DAM)
977 prop (CFAPI_STRING, OBJECT_PROP_GOD) 1002 prop (CFAPI_STRING, OBJECT_PROP_GOD)
978 prop (CFAPI_STRING, OBJECT_PROP_ARCH_NAME) 1003 prop (CFAPI_STRING, OBJECT_PROP_ARCH_NAME)
979 prop (CFAPI_INT, OBJECT_PROP_INVISIBLE) 1004 prop (CFAPI_INT, OBJECT_PROP_INVISIBLE)
980 prop (CFAPI_INT, OBJECT_PROP_FACE) 1005 prop (CFAPI_INT, OBJECT_PROP_FACE)
981 prop (CFAPI_STRING, PLAYER_PROP_IP)
982 prop (CFAPI_POBJECT, PLAYER_PROP_MARKED_ITEM)
983 prop (CFAPI_PPARTY, PLAYER_PROP_PARTY)
984 }; 1006 };
985 1007
986 HV *prop_type = get_hv ("cf::PROP_TYPE", 1); 1008 HV *prop_type = get_hv ("cf::PROP_TYPE", 1);
987 HV *prop_idx = get_hv ("cf::PROP_IDX", 1); 1009 HV *prop_idx = get_hv ("cf::PROP_IDX", 1);
988 1010
… …
993 } 1015 }
994} 1016}
995 1017
996void 1018void
997LOG (int level, char *msg) 1019LOG (int level, char *msg)
1020 PROTOTYPE: $$
998 C_ARGS: level, "%s", msg 1021 C_ARGS: level, "%s", msg
999 1022
1000char * 1023char *
1001cf_get_maps_directory (char *path) 1024cf_get_maps_directory (char *path)
1025 PROTOTYPE: $
1002 ALIAS: maps_directory = 0 1026 ALIAS: maps_directory = 0
1027
1028char *
1029mapdir ()
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
1003 1045
1004int 1046int
1005cf_find_animation (char *text) 1047cf_find_animation (char *text)
1048 PROTOTYPE: $
1006 1049
1007MODULE = cf PACKAGE = cf::object PREFIX = cf_object_ 1050MODULE = cf PACKAGE = cf::object PREFIX = cf_object_
1008
1009PROTOTYPES: DISABLE
1010 1051
1011SV * 1052SV *
1012get_property (object *obj, int type, int idx) 1053get_property (object *obj, int type, int idx)
1013 CODE: 1054 CODE:
1014 RETVAL = newSVcfapi (type, cf_object_get_property (obj, idx)); 1055 RETVAL = newSVcfapi (type, cf_object_get_property (obj, idx));
1015 OUTPUT: 1056 OUTPUT: RETVAL
1016 RETVAL
1017 1057
1018SV * 1058SV *
1019set_property (object *obj, int type, int idx, SV *newval) 1059set_property (object *obj, int type, int idx, SV *newval)
1020 CODE: 1060 CODE:
1021 switch (type) 1061 switch (type)
… …
1113 1153
1114char * 1154char *
1115base_name (object *ob, int plural) 1155base_name (object *ob, int plural)
1116 CODE: 1156 CODE:
1117 RETVAL = cf_query_base_name (ob, plural); 1157 RETVAL = cf_query_base_name (ob, plural);
1118 OUTPUT: 1158 OUTPUT: RETVAL
1119 RETVAL
1120 1159
1121MODULE = cf PACKAGE = cf::object PREFIX = cf_object_ 1160MODULE = cf PACKAGE = cf::object PREFIX = cf_object_
1122 1161
1123object *cf_create_object () 1162object *cf_create_object ()
1163 PROTOTYPE:
1124 ALIAS: new = 0 1164 ALIAS: new = 0
1125 1165
1126object *cf_create_object_by_name (const char *name) 1166object *cf_create_object_by_name (const char *name)
1167 PROTOTYPE: $
1127 ALIAS: new_from_name = 0 1168 ALIAS: new_from_name = 0
1128 1169
1129void cf_free_object (object *ob) 1170void cf_free_object (object *ob)
1130 1171
1131void cf_fix_object (object *pl) 1172void cf_fix_object (object *pl)
… …
1136MODULE = cf PACKAGE = cf::object::player PREFIX = cf_player_ 1177MODULE = cf PACKAGE = cf::object::player PREFIX = cf_player_
1137 1178
1138player *player (object *op) 1179player *player (object *op)
1139 CODE: 1180 CODE:
1140 RETVAL = cf_player_find (cf_query_name (op)); 1181 RETVAL = cf_player_find (cf_query_name (op));
1141 OUTPUT: 1182 OUTPUT: RETVAL
1142 RETVAL
1143 1183
1144void cf_player_message (object *obj, char *txt, int flags = 0) 1184void cf_player_message (object *obj, char *txt, int flags = NDI_ORANGE | NDI_UNIQUE)
1145 1185
1146object *cf_player_send_inventory (object *op) 1186object *cf_player_send_inventory (object *op)
1147 1187
1188char *cf_player_get_ip (object *op)
1189 ALIAS: ip = 0
1190
1191object *cf_player_get_marked_item (object *op)
1192 ALIAS: marked_item = 0
1193
1148void cf_player_set_marked_item(object *op, object *ob) 1194void cf_player_set_marked_item (object *op, object *ob)
1149 1195
1196partylist *cf_player_get_party (object *op)
1197 ALIAS: party = 0
1198
1150void cf_player_set_party(object *op, partylist *party) 1199void cf_player_set_party (object *op, partylist *party)
1151 1200
1152 1201
1153MODULE = cf PACKAGE = cf::object::map PREFIX = cf_ 1202MODULE = cf PACKAGE = cf::object::map PREFIX = cf_
1154 1203
1155MODULE = cf PACKAGE = cf::player PREFIX = cf_ 1204MODULE = cf PACKAGE = cf::player PREFIX = cf_player_
1156 1205
1157player *cf_player_find (char *name) 1206player *cf_player_find (char *name)
1207 PROTOTYPE: $
1158 1208
1159void cf_player_move (player *pl, int dir) 1209void cf_player_move (player *pl, int dir)
1160 1210
1211# nonstandard
1212object *ob (player *pl)
1213 CODE:
1214 RETVAL = pl->ob;
1215 OUTPUT: RETVAL
1161 1216
1217
1162MODULE = cf PACKAGE = cf::map PREFIX = cf_ 1218MODULE = cf PACKAGE = cf::map PREFIX = cf_map_
1163 1219
1164SV * 1220SV *
1165get_property (mapstruct *obj, int type, int idx) 1221get_property (mapstruct *obj, int type, int idx)
1166 CODE: 1222 CODE:
1167 RETVAL = newSVcfapi (type, cf_map_get_property (obj, idx)); 1223 RETVAL = newSVcfapi (type, cf_map_get_property (obj, idx));
1168 OUTPUT: 1224 OUTPUT: RETVAL
1169 RETVAL
1170 1225
1171SV * 1226SV *
1172set_property (mapstruct *obj, int type, int idx, SV *newval) 1227set_property (mapstruct *obj, int type, int idx, SV *newval)
1173 CODE: 1228 CODE:
1174 switch (type) 1229 switch (type)
… …
1179 default: 1234 default:
1180 croak ("unhandled type '%d' in set_property '%d'", type, idx); 1235 croak ("unhandled type '%d' in set_property '%d'", type, idx);
1181 } 1236 }
1182 1237
1183mapstruct *cf_map_get_map (char *name) 1238mapstruct *cf_map_get_map (char *name)
1239 PROTOTYPE: $
1184 ALIAS: map = 0 1240 ALIAS: map = 0
1185 1241
1186mapstruct *cf_map_get_first () 1242mapstruct *cf_map_get_first ()
1243 PROTOTYPE:
1187 ALIAS: first = 0 1244 ALIAS: first = 0
1188 1245
1189object *cf_map_insert_object_there (mapstruct *where, object *op, object *originator, int flags) 1246object *cf_map_insert_object_there (mapstruct *where, object *op, object *originator, int flags)
1190 1247
1191object *cf_map_insert_object (mapstruct *where, object* op, int x, int y) 1248object *cf_map_insert_object (mapstruct *where, object* op, int x, int y)
… …
1198 1255
1199 1256
1200MODULE = cf PACKAGE = cf::arch PREFIX = cf_archetype_ 1257MODULE = cf PACKAGE = cf::arch PREFIX = cf_archetype_
1201 1258
1202archetype*cf_archetype_get_first() 1259archetype*cf_archetype_get_first()
1260 PROTOTYPE:
1203 ALIAS: first = 0 1261 ALIAS: first = 0
1204 1262
1205archetype *cf_archetype_get_next (archetype *arch) 1263archetype *cf_archetype_get_next (archetype *arch)
1206 ALIAS: next = 0 1264 ALIAS: next = 0
1207 1265
… …
1214const char *cf_archetype_get_name (archetype *arch) 1272const char *cf_archetype_get_name (archetype *arch)
1215 ALIAS: name = 0 1273 ALIAS: name = 0
1216 1274
1217MODULE = cf PACKAGE = cf::party PREFIX = cf_party_ 1275MODULE = cf PACKAGE = cf::party PREFIX = cf_party_
1218 1276
1219const char *cf_party_get_name (partylist *party)
1220
1221partylist *cf_party_get_first () 1277partylist *cf_party_get_first ()
1278 PROTOTYPE:
1222 ALIAS: first = 0 1279 ALIAS: first = 0
1223 1280
1224partylist *cf_party_get_next (partylist *party) 1281partylist *cf_party_get_next (partylist *party)
1225 ALIAS: next = 0 1282 ALIAS: next = 0
1226 1283
1284const char *cf_party_get_name (partylist *party)
1285
1227const char *cf_party_get_password (partylist *party) 1286const char *cf_party_get_password (partylist *party)
1228 ALIAS: password = 0 1287 ALIAS: password = 0
1229 1288
1230player *cf_party_get_first_player (partylist *party) 1289player *cf_party_get_first_player (partylist *party)
1231 ALIAS: first_player = 0 1290 ALIAS: first_player = 0
… …
1235 1294
1236 1295
1237MODULE = cf PACKAGE = cf::region PREFIX = cf_region_ 1296MODULE = cf PACKAGE = cf::region PREFIX = cf_region_
1238 1297
1239region *cf_region_get_first () 1298region *cf_region_get_first ()
1299 PROTOTYPE:
1240 ALIAS: first = 0 1300 ALIAS: first = 0
1241 1301
1242const char *cf_region_get_name (region *reg) 1302const char *cf_region_get_name (region *reg)
1243 ALIAS: name = 0 1303 ALIAS: name = 0
1244 1304

Diff Legend

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