… | |
… | |
156 | } |
156 | } |
157 | } |
157 | } |
158 | break; |
158 | break; |
159 | |
159 | |
160 | case CFAPI_PMAP: |
160 | case CFAPI_PMAP: |
161 | sv = newSVptr (va_arg (args, object *), "cf::map"); |
161 | sv = newSVptr (va_arg (args, mapstruct *), "cf::map"); |
162 | break; |
162 | break; |
163 | |
163 | |
164 | case CFAPI_PPLAYER: |
164 | case CFAPI_PPLAYER: |
165 | sv = newSVptr (va_arg (args, object *), "cf::player"); |
165 | sv = newSVptr (va_arg (args, player *), "cf::player"); |
166 | break; |
166 | break; |
167 | |
167 | |
168 | case CFAPI_PARCH: |
168 | case CFAPI_PARCH: |
169 | sv = newSVptr (va_arg (args, object *), "cf::arch"); |
169 | sv = newSVptr (va_arg (args, archetype *), "cf::arch"); |
170 | break; |
170 | break; |
171 | |
171 | |
172 | case CFAPI_PPARTY: |
172 | case CFAPI_PPARTY: |
173 | sv = newSVptr (va_arg (args, object *), "cf::party"); |
173 | sv = newSVptr (va_arg (args, partylist *), "cf::party"); |
174 | break; |
174 | break; |
175 | |
175 | |
176 | case CFAPI_PREGION: |
176 | case CFAPI_PREGION: |
177 | sv = newSVptr (va_arg (args, object *), "cf::region"); |
177 | sv = newSVptr (va_arg (args, region *), "cf::region"); |
178 | break; |
178 | break; |
179 | |
179 | |
180 | default: |
180 | default: |
181 | assert (("unhandled type in newSVcfapi", 0)); |
181 | assert (("unhandled type in newSVcfapi", 0)); |
182 | } |
182 | } |
… | |
… | |
215 | |
215 | |
216 | PUTBACK; |
216 | PUTBACK; |
217 | int count = call_pv ("cf::inject_event", G_SCALAR | G_EVAL); |
217 | int count = call_pv ("cf::inject_event", G_SCALAR | G_EVAL); |
218 | SPAGAIN; |
218 | SPAGAIN; |
219 | |
219 | |
|
|
220 | if (SvTRUE (ERRSV)) |
|
|
221 | LOG (llevError, "event '%d' callback evaluation error: %s", context->event_code, SvPV_nolen (ERRSV)); |
|
|
222 | |
220 | context->returnvalue = count > 0 ? POPi : 0; |
223 | context->returnvalue = count > 0 ? POPi : 0; |
221 | |
224 | |
222 | PUTBACK; |
225 | PUTBACK; |
223 | FREETMPS; |
226 | FREETMPS; |
224 | LEAVE; |
227 | LEAVE; |
225 | |
|
|
226 | if (SvTRUE (ERRSV)) |
|
|
227 | LOG (llevError, "event '%d' callback evaluation error: %s", context->event_code, SvPV_nolen (ERRSV)); |
|
|
228 | } |
228 | } |
229 | |
229 | |
230 | ///////////////////////////////////////////////////////////////////////////// |
230 | ///////////////////////////////////////////////////////////////////////////// |
231 | |
231 | |
232 | int |
232 | int |
… | |
… | |
259 | |
259 | |
260 | PUTBACK; |
260 | PUTBACK; |
261 | int count = call_pv ("cf::inject_command", G_SCALAR | G_EVAL); |
261 | int count = call_pv ("cf::inject_command", G_SCALAR | G_EVAL); |
262 | SPAGAIN; |
262 | SPAGAIN; |
263 | |
263 | |
|
|
264 | if (SvTRUE (ERRSV)) |
|
|
265 | LOG (llevError, "command '%s' callback evaluation error: %s", rtn_cmd.name, SvPV_nolen (ERRSV)); |
|
|
266 | |
264 | int returnvalue = count > 0 ? POPi : -1; |
267 | int returnvalue = count > 0 ? POPi : -1; |
265 | |
268 | |
266 | PUTBACK; |
269 | PUTBACK; |
267 | FREETMPS; |
270 | FREETMPS; |
268 | LEAVE; |
271 | LEAVE; |
269 | |
|
|
270 | if (SvTRUE (ERRSV)) |
|
|
271 | LOG (llevError, "command '%s' callback evaluation error: %s", rtn_cmd.name, SvPV_nolen (ERRSV)); |
|
|
272 | |
272 | |
273 | return returnvalue; |
273 | return returnvalue; |
274 | } |
274 | } |
275 | |
275 | |
276 | void * |
276 | void * |
… | |
… | |
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 | |
1001 | char * |
1028 | char * |
1002 | mapdir () |
1029 | mapdir () |
|
|
1030 | PROTOTYPE: |
1003 | ALIAS: |
1031 | ALIAS: |
1004 | mapdir = 0 |
1032 | mapdir = 0 |
1005 | uniquedir = 1 |
1033 | uniquedir = 1 |
1006 | tmpdir = 2 |
1034 | tmpdir = 2 |
1007 | confdir = 3 |
1035 | confdir = 3 |
… | |
… | |
1011 | CODE: |
1039 | CODE: |
1012 | { |
1040 | { |
1013 | int unused_type; |
1041 | int unused_type; |
1014 | RETVAL = (char *)systemDirectory (&unused_type, ix); |
1042 | RETVAL = (char *)systemDirectory (&unused_type, ix); |
1015 | } |
1043 | } |
1016 | OUTPUT: |
1044 | OUTPUT: RETVAL |
1017 | RETVAL |
|
|
1018 | |
1045 | |
1019 | int |
1046 | int |
1020 | cf_find_animation (char *text) |
1047 | cf_find_animation (char *text) |
|
|
1048 | PROTOTYPE: $ |
1021 | |
1049 | |
1022 | MODULE = cf PACKAGE = cf::object PREFIX = cf_object_ |
1050 | MODULE = cf PACKAGE = cf::object PREFIX = cf_object_ |
1023 | |
|
|
1024 | PROTOTYPES: DISABLE |
|
|
1025 | |
1051 | |
1026 | SV * |
1052 | SV * |
1027 | get_property (object *obj, int type, int idx) |
1053 | get_property (object *obj, int type, int idx) |
1028 | CODE: |
1054 | CODE: |
1029 | RETVAL = newSVcfapi (type, cf_object_get_property (obj, idx)); |
1055 | RETVAL = newSVcfapi (type, cf_object_get_property (obj, idx)); |
1030 | OUTPUT: |
1056 | OUTPUT: RETVAL |
1031 | RETVAL |
|
|
1032 | |
1057 | |
1033 | SV * |
1058 | SV * |
1034 | set_property (object *obj, int type, int idx, SV *newval) |
1059 | set_property (object *obj, int type, int idx, SV *newval) |
1035 | CODE: |
1060 | CODE: |
1036 | switch (type) |
1061 | switch (type) |
… | |
… | |
1128 | |
1153 | |
1129 | char * |
1154 | char * |
1130 | base_name (object *ob, int plural) |
1155 | base_name (object *ob, int plural) |
1131 | CODE: |
1156 | CODE: |
1132 | RETVAL = cf_query_base_name (ob, plural); |
1157 | RETVAL = cf_query_base_name (ob, plural); |
1133 | OUTPUT: |
1158 | OUTPUT: RETVAL |
1134 | RETVAL |
|
|
1135 | |
1159 | |
1136 | MODULE = cf PACKAGE = cf::object PREFIX = cf_object_ |
1160 | MODULE = cf PACKAGE = cf::object PREFIX = cf_object_ |
1137 | |
1161 | |
1138 | object *cf_create_object () |
1162 | object *cf_create_object () |
|
|
1163 | PROTOTYPE: |
1139 | ALIAS: new = 0 |
1164 | ALIAS: new = 0 |
1140 | |
1165 | |
1141 | object *cf_create_object_by_name (const char *name) |
1166 | object *cf_create_object_by_name (const char *name) |
|
|
1167 | PROTOTYPE: $ |
1142 | ALIAS: new_from_name = 0 |
1168 | ALIAS: new_from_name = 0 |
1143 | |
1169 | |
1144 | void cf_free_object (object *ob) |
1170 | void cf_free_object (object *ob) |
1145 | |
1171 | |
1146 | void cf_fix_object (object *pl) |
1172 | void cf_fix_object (object *pl) |
… | |
… | |
1151 | MODULE = cf PACKAGE = cf::object::player PREFIX = cf_player_ |
1177 | MODULE = cf PACKAGE = cf::object::player PREFIX = cf_player_ |
1152 | |
1178 | |
1153 | player *player (object *op) |
1179 | player *player (object *op) |
1154 | CODE: |
1180 | CODE: |
1155 | RETVAL = cf_player_find (cf_query_name (op)); |
1181 | RETVAL = cf_player_find (cf_query_name (op)); |
1156 | OUTPUT: |
1182 | OUTPUT: RETVAL |
1157 | RETVAL |
|
|
1158 | |
1183 | |
1159 | 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) |
1160 | |
1185 | |
1161 | object *cf_player_send_inventory (object *op) |
1186 | object *cf_player_send_inventory (object *op) |
1162 | |
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 | |
1163 | void cf_player_set_marked_item(object *op, object *ob) |
1194 | void cf_player_set_marked_item (object *op, object *ob) |
1164 | |
1195 | |
|
|
1196 | partylist *cf_player_get_party (object *op) |
|
|
1197 | ALIAS: party = 0 |
|
|
1198 | |
1165 | void cf_player_set_party(object *op, partylist *party) |
1199 | void cf_player_set_party (object *op, partylist *party) |
1166 | |
1200 | |
1167 | |
1201 | |
1168 | MODULE = cf PACKAGE = cf::object::map PREFIX = cf_ |
1202 | MODULE = cf PACKAGE = cf::object::map PREFIX = cf_ |
1169 | |
1203 | |
1170 | MODULE = cf PACKAGE = cf::player PREFIX = cf_ |
1204 | MODULE = cf PACKAGE = cf::player PREFIX = cf_player_ |
1171 | |
1205 | |
1172 | player *cf_player_find (char *name) |
1206 | player *cf_player_find (char *name) |
|
|
1207 | PROTOTYPE: $ |
1173 | |
1208 | |
1174 | void cf_player_move (player *pl, int dir) |
1209 | void cf_player_move (player *pl, int dir) |
1175 | |
1210 | |
|
|
1211 | # nonstandard |
|
|
1212 | object *ob (player *pl) |
|
|
1213 | CODE: |
|
|
1214 | RETVAL = pl->ob; |
|
|
1215 | OUTPUT: RETVAL |
1176 | |
1216 | |
|
|
1217 | |
1177 | MODULE = cf PACKAGE = cf::map PREFIX = cf_ |
1218 | MODULE = cf PACKAGE = cf::map PREFIX = cf_map_ |
1178 | |
1219 | |
1179 | SV * |
1220 | SV * |
1180 | get_property (mapstruct *obj, int type, int idx) |
1221 | get_property (mapstruct *obj, int type, int idx) |
1181 | CODE: |
1222 | CODE: |
1182 | RETVAL = newSVcfapi (type, cf_map_get_property (obj, idx)); |
1223 | RETVAL = newSVcfapi (type, cf_map_get_property (obj, idx)); |
1183 | OUTPUT: |
1224 | OUTPUT: RETVAL |
1184 | RETVAL |
|
|
1185 | |
1225 | |
1186 | SV * |
1226 | SV * |
1187 | set_property (mapstruct *obj, int type, int idx, SV *newval) |
1227 | set_property (mapstruct *obj, int type, int idx, SV *newval) |
1188 | CODE: |
1228 | CODE: |
1189 | switch (type) |
1229 | switch (type) |
… | |
… | |
1194 | default: |
1234 | default: |
1195 | croak ("unhandled type '%d' in set_property '%d'", type, idx); |
1235 | croak ("unhandled type '%d' in set_property '%d'", type, idx); |
1196 | } |
1236 | } |
1197 | |
1237 | |
1198 | mapstruct *cf_map_get_map (char *name) |
1238 | mapstruct *cf_map_get_map (char *name) |
|
|
1239 | PROTOTYPE: $ |
1199 | ALIAS: map = 0 |
1240 | ALIAS: map = 0 |
1200 | |
1241 | |
1201 | mapstruct *cf_map_get_first () |
1242 | mapstruct *cf_map_get_first () |
|
|
1243 | PROTOTYPE: |
1202 | ALIAS: first = 0 |
1244 | ALIAS: first = 0 |
1203 | |
1245 | |
1204 | object *cf_map_insert_object_there (mapstruct *where, object *op, object *originator, int flags) |
1246 | object *cf_map_insert_object_there (mapstruct *where, object *op, object *originator, int flags) |
1205 | |
1247 | |
1206 | object *cf_map_insert_object (mapstruct *where, object* op, int x, int y) |
1248 | object *cf_map_insert_object (mapstruct *where, object* op, int x, int y) |
… | |
… | |
1213 | |
1255 | |
1214 | |
1256 | |
1215 | MODULE = cf PACKAGE = cf::arch PREFIX = cf_archetype_ |
1257 | MODULE = cf PACKAGE = cf::arch PREFIX = cf_archetype_ |
1216 | |
1258 | |
1217 | archetype*cf_archetype_get_first() |
1259 | archetype*cf_archetype_get_first() |
|
|
1260 | PROTOTYPE: |
1218 | ALIAS: first = 0 |
1261 | ALIAS: first = 0 |
1219 | |
1262 | |
1220 | archetype *cf_archetype_get_next (archetype *arch) |
1263 | archetype *cf_archetype_get_next (archetype *arch) |
1221 | ALIAS: next = 0 |
1264 | ALIAS: next = 0 |
1222 | |
1265 | |
… | |
… | |
1229 | const char *cf_archetype_get_name (archetype *arch) |
1272 | const char *cf_archetype_get_name (archetype *arch) |
1230 | ALIAS: name = 0 |
1273 | ALIAS: name = 0 |
1231 | |
1274 | |
1232 | MODULE = cf PACKAGE = cf::party PREFIX = cf_party_ |
1275 | MODULE = cf PACKAGE = cf::party PREFIX = cf_party_ |
1233 | |
1276 | |
1234 | const char *cf_party_get_name (partylist *party) |
|
|
1235 | |
|
|
1236 | partylist *cf_party_get_first () |
1277 | partylist *cf_party_get_first () |
|
|
1278 | PROTOTYPE: |
1237 | ALIAS: first = 0 |
1279 | ALIAS: first = 0 |
1238 | |
1280 | |
1239 | partylist *cf_party_get_next (partylist *party) |
1281 | partylist *cf_party_get_next (partylist *party) |
1240 | ALIAS: next = 0 |
1282 | ALIAS: next = 0 |
1241 | |
1283 | |
|
|
1284 | const char *cf_party_get_name (partylist *party) |
|
|
1285 | |
1242 | const char *cf_party_get_password (partylist *party) |
1286 | const char *cf_party_get_password (partylist *party) |
1243 | ALIAS: password = 0 |
1287 | ALIAS: password = 0 |
1244 | |
1288 | |
1245 | player *cf_party_get_first_player (partylist *party) |
1289 | player *cf_party_get_first_player (partylist *party) |
1246 | ALIAS: first_player = 0 |
1290 | ALIAS: first_player = 0 |
… | |
… | |
1250 | |
1294 | |
1251 | |
1295 | |
1252 | MODULE = cf PACKAGE = cf::region PREFIX = cf_region_ |
1296 | MODULE = cf PACKAGE = cf::region PREFIX = cf_region_ |
1253 | |
1297 | |
1254 | region *cf_region_get_first () |
1298 | region *cf_region_get_first () |
|
|
1299 | PROTOTYPE: |
1255 | ALIAS: first = 0 |
1300 | ALIAS: first = 0 |
1256 | |
1301 | |
1257 | const char *cf_region_get_name (region *reg) |
1302 | const char *cf_region_get_name (region *reg) |
1258 | ALIAS: name = 0 |
1303 | ALIAS: name = 0 |
1259 | |
1304 | |