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

Comparing deliantra/server/server/cfperl.xs (file contents):
Revision 1.203 by root, Sun Apr 29 14:33:33 2007 UTC vs.
Revision 1.212 by root, Tue May 22 10:50:01 2007 UTC

1/*****************************************************************************/
2/* CrossFire, A Multiplayer game for the X Window System */
3/*****************************************************************************/
4
5/* 1/*
2 * CrossFire, A Multiplayer game
3 *
6 * This code is placed under the GNU General Public Licence (GPL) 4 * This code is placed under the GNU General Public Licence (GPL)
7 * 5 *
8 * Copyright (C) 2001-2005 by Chachkoff Yann 6 * Copyright (C) 2001-2005 by Chachkoff Yann
9 * Copyright (C) 2006,2007 by Marc Lehmann <cf@schmorp.de> 7 * Copyright (C) 2006,2007 by Marc Lehmann <cf@schmorp.de>
10 * 8 *
… …
86double runtime; 84double runtime;
87 85
88global gbl_ev; 86global gbl_ev;
89static AV *cb_global, *cb_attachable, *cb_object, *cb_player, *cb_client, *cb_type, *cb_map; 87static AV *cb_global, *cb_attachable, *cb_object, *cb_player, *cb_client, *cb_type, *cb_map;
90static SV *sv_runtime, *sv_next_tick; 88static SV *sv_runtime, *sv_next_tick;
89
90bitset<NUM_EVENT_TYPES> ev_want_event;
91bitset<NUM_TYPES> ev_want_type;
91 92
92static HV 93static HV
93 *stash_cf, 94 *stash_cf,
94 *stash_cf_object_wrap, 95 *stash_cf_object_wrap,
95 *stash_cf_object_player_wrap, 96 *stash_cf_object_player_wrap,
… …
404inline void sv_to (SV *sv, refptr<T> &v) { T *tmp; sv_to (sv, tmp); v = tmp; } 405inline void sv_to (SV *sv, refptr<T> &v) { T *tmp; sv_to (sv, tmp); v = tmp; }
405 406
406template<int N> 407template<int N>
407inline void sv_to (SV *sv, char (&v)[N]) { assign (v, SvPV_nolen (sv)); } 408inline void sv_to (SV *sv, char (&v)[N]) { assign (v, SvPV_nolen (sv)); }
408 409
409inline void sv_to (SV *sv, rangetype &v) { v = (rangetype) SvIV (sv); }
410inline void sv_to (SV *sv, bowtype_t &v) { v = (bowtype_t) SvIV (sv); } 410inline void sv_to (SV *sv, bowtype_t &v) { v = (bowtype_t) SvIV (sv); }
411inline void sv_to (SV *sv, petmode_t &v) { v = (petmode_t) SvIV (sv); } 411inline void sv_to (SV *sv, petmode_t &v) { v = (petmode_t) SvIV (sv); }
412inline void sv_to (SV *sv, usekeytype &v) { v = (usekeytype) SvIV (sv); } 412inline void sv_to (SV *sv, usekeytype &v) { v = (usekeytype) SvIV (sv); }
413inline void sv_to (SV *sv, unapplymode &v) { v = (unapplymode) SvIV (sv); } 413inline void sv_to (SV *sv, unapplymode &v) { v = (unapplymode) SvIV (sv); }
414 414
… …
718} 718}
719 719
720void 720void
721global::gather_callbacks (AV *&callbacks, event_type event) const 721global::gather_callbacks (AV *&callbacks, event_type event) const
722{ 722{
723 ::gather_callbacks (callbacks, cb_object, event); 723 ::gather_callbacks (callbacks, cb_global, event);
724} 724}
725 725
726void 726void
727object::gather_callbacks (AV *&callbacks, event_type event) const 727object::gather_callbacks (AV *&callbacks, event_type event) const
728{ 728{
729 if (subtype && type + subtype * NUM_SUBTYPES <= AvFILLp (cb_type)) 729 if (subtype && type + subtype * NUM_TYPES <= AvFILLp (cb_type))
730 { 730 {
731 SV *registry = AvARRAY (cb_type)[type + subtype * NUM_SUBTYPES]; 731 SV *registry = AvARRAY (cb_type)[type + subtype * NUM_TYPES];
732 732
733 if (registry && SvROK (registry) && SvTYPE (SvRV (registry)) == SVt_PVAV) 733 if (registry && SvROK (registry) && SvTYPE (SvRV (registry)) == SVt_PVAV)
734 ::gather_callbacks (callbacks, (AV *)SvRV (registry), event); 734 ::gather_callbacks (callbacks, (AV *)SvRV (registry), event);
735 } 735 }
736 736
… …
772{ 772{
773 attachable::gather_callbacks (callbacks, event); 773 attachable::gather_callbacks (callbacks, event);
774 ::gather_callbacks (callbacks, cb_map, event); 774 ::gather_callbacks (callbacks, cb_map, event);
775} 775}
776 776
777void
778_recalc_want (bitset<NUM_EVENT_TYPES> &set, AV *registry)
779{
780 for (int event = 0; event <= AvFILLp (registry); ++event)
781 {
782 SV *cbs_ = AvARRAY (registry)[event];
783
784 // element must be list of callback entries
785 if (cbs_ && SvROK (cbs_) && SvTYPE (SvRV (cbs_)) == SVt_PVAV)
786 {
787 AV *cbs = (AV *)SvRV (cbs_);
788
789 // no callback entries, no callbacks to call
790 if (AvFILLp (cbs) >= 0)
791 set.set (event);
792 }
793 }
794}
795
796// very slow and inefficient way to recalculate the global want bitsets
797void
798_recalc_want ()
799{
800 ev_want_event.reset ();
801
802 _recalc_want (ev_want_event, cb_global);
803 _recalc_want (ev_want_event, cb_attachable);
804 _recalc_want (ev_want_event, cb_object);
805 _recalc_want (ev_want_event, cb_client);
806 _recalc_want (ev_want_event, cb_player);
807 _recalc_want (ev_want_event, cb_map);
808
809 ev_want_type.reset ();
810
811 for (int type = 0; type <= AvFILLp (cb_type); ++type)
812 {
813 SV *cbs_ = AvARRAY (cb_type)[type];
814
815 // element must be list of callback entries
816 if (cbs_ && SvROK (cbs_) && SvTYPE (SvRV (cbs_)) == SVt_PVAV)
817 {
818 AV *cbs = (AV *)SvRV (cbs_);
819
820 // no callback entries, no callbacks to call
821 if (AvFILLp (cbs) >= 0)
822 ev_want_type.set (type % NUM_TYPES);
823 }
824 }
825}
826
777bool 827bool
778attachable::invoke (event_type event, ...) 828attachable::vinvoke (event_type event, va_list &ap)
779{ 829{
780 data_type dt; 830 data_type dt;
781 va_list ap;
782
783 va_start (ap, event);
784 831
785 // callback call ordering should be: 832 // callback call ordering should be:
786 // 1. per-object callback 833 // 1. per-object callback
787 // 2. per-class object 834 // 2. per-class object
788 // 3. per-type callback 835 // 3. per-type callback
… …
1135 const_iv (Map0Cmd) const_iv (Map1Cmd) const_iv (Map1aCmd) 1182 const_iv (Map0Cmd) const_iv (Map1Cmd) const_iv (Map1aCmd)
1136 1183
1137 const_iv (MAP_CLIENT_X) const_iv (MAP_CLIENT_Y) 1184 const_iv (MAP_CLIENT_X) const_iv (MAP_CLIENT_Y)
1138 1185
1139 const_iv (MAX_TIME) 1186 const_iv (MAX_TIME)
1187
1188 const_iv (NUM_BODY_LOCATIONS)
1189 const_iv (body_range) const_iv (body_shield) const_iv (body_combat)
1190 const_iv (body_arm) const_iv (body_torso) const_iv (body_head)
1191 const_iv (body_neck) const_iv (body_skill) const_iv (body_finger)
1192 const_iv (body_shoulder) const_iv (body_foot) const_iv (body_hand)
1193 const_iv (body_wrist) const_iv (body_waist)
1140 1194
1141 const_iv (PLAYER) const_iv (TRANSPORT) const_iv (ROD) const_iv (TREASURE) 1195 const_iv (PLAYER) const_iv (TRANSPORT) const_iv (ROD) const_iv (TREASURE)
1142 const_iv (POTION) const_iv (FOOD) const_iv (POISON) const_iv (BOOK) 1196 const_iv (POTION) const_iv (FOOD) const_iv (POISON) const_iv (BOOK)
1143 const_iv (CLOCK) const_iv (ARROW) const_iv (BOW) const_iv (WEAPON) 1197 const_iv (CLOCK) const_iv (ARROW) const_iv (BOW) const_iv (WEAPON)
1144 const_iv (ARMOUR) const_iv (PEDESTAL) const_iv (ALTAR) const_iv (LOCKED_DOOR) 1198 const_iv (ARMOUR) const_iv (PEDESTAL) const_iv (ALTAR) const_iv (LOCKED_DOOR)
… …
1165 const_iv (CONTAINER) const_iv (ARMOUR_IMPROVER) const_iv (WEAPON_IMPROVER) const_iv (SKILLSCROLL) 1219 const_iv (CONTAINER) const_iv (ARMOUR_IMPROVER) const_iv (WEAPON_IMPROVER) const_iv (SKILLSCROLL)
1166 const_iv (DEEP_SWAMP) const_iv (IDENTIFY_ALTAR) const_iv (MENU) const_iv (RUNE) 1220 const_iv (DEEP_SWAMP) const_iv (IDENTIFY_ALTAR) const_iv (MENU) const_iv (RUNE)
1167 const_iv (TRAP) const_iv (POWER_CRYSTAL) const_iv (CORPSE) const_iv (DISEASE) 1221 const_iv (TRAP) const_iv (POWER_CRYSTAL) const_iv (CORPSE) const_iv (DISEASE)
1168 const_iv (SYMPTOM) const_iv (BUILDER) const_iv (MATERIAL) const_iv (ITEM_TRANSFORMER) 1222 const_iv (SYMPTOM) const_iv (BUILDER) const_iv (MATERIAL) const_iv (ITEM_TRANSFORMER)
1169 1223
1170 const_iv (NUM_SUBTYPES) 1224 const_iv (NUM_TYPES) const_iv (NUM_SUBTYPES)
1171 1225
1172 const_iv (ST_BD_BUILD) const_iv (ST_BD_REMOVE) 1226 const_iv (ST_BD_BUILD) const_iv (ST_BD_REMOVE)
1173 const_iv (ST_MAT_FLOOR) const_iv (ST_MAT_WALL) const_iv (ST_MAT_ITEM) 1227 const_iv (ST_MAT_FLOOR) const_iv (ST_MAT_WALL) const_iv (ST_MAT_ITEM)
1174 1228
1175 const_iv (AT_PHYSICAL) const_iv (AT_MAGIC) const_iv (AT_FIRE) const_iv (AT_ELECTRICITY) 1229 const_iv (AT_PHYSICAL) const_iv (AT_MAGIC) const_iv (AT_FIRE) const_iv (AT_ELECTRICITY)
… …
1183 const_iv (WEAP_HIT) const_iv (WEAP_SLASH) const_iv (WEAP_PIERCE) const_iv (WEAP_CLEAVE) 1237 const_iv (WEAP_HIT) const_iv (WEAP_SLASH) const_iv (WEAP_PIERCE) const_iv (WEAP_CLEAVE)
1184 const_iv (WEAP_SLICE) const_iv (WEAP_STAB) const_iv (WEAP_WHIP) const_iv (WEAP_CRUSH) 1238 const_iv (WEAP_SLICE) const_iv (WEAP_STAB) const_iv (WEAP_WHIP) const_iv (WEAP_CRUSH)
1185 const_iv (WEAP_BLUD) 1239 const_iv (WEAP_BLUD)
1186 1240
1187 const_iv (FLAG_ALIVE) const_iv (FLAG_WIZ) const_iv (FLAG_REMOVED) const_iv (FLAG_FREED) 1241 const_iv (FLAG_ALIVE) const_iv (FLAG_WIZ) const_iv (FLAG_REMOVED) const_iv (FLAG_FREED)
1188 const_iv (FLAG_WAS_WIZ) const_iv (FLAG_APPLIED) const_iv (FLAG_UNPAID) const_iv (FLAG_USE_SHIELD) 1242 const_iv (FLAG_APPLIED) const_iv (FLAG_UNPAID) const_iv (FLAG_USE_SHIELD)
1189 const_iv (FLAG_NO_PICK) const_iv (FLAG_ANIMATE) const_iv (FLAG_MONSTER) const_iv (FLAG_FRIENDLY) 1243 const_iv (FLAG_NO_PICK) const_iv (FLAG_ANIMATE) const_iv (FLAG_MONSTER) const_iv (FLAG_FRIENDLY)
1190 const_iv (FLAG_GENERATOR) const_iv (FLAG_IS_THROWN) const_iv (FLAG_AUTO_APPLY) const_iv (FLAG_PLAYER_SOLD) 1244 const_iv (FLAG_GENERATOR) const_iv (FLAG_IS_THROWN) const_iv (FLAG_AUTO_APPLY) const_iv (FLAG_PLAYER_SOLD)
1191 const_iv (FLAG_SEE_INVISIBLE) const_iv (FLAG_CAN_ROLL) const_iv (FLAG_OVERLAY_FLOOR) const_iv (FLAG_IS_TURNABLE) 1245 const_iv (FLAG_SEE_INVISIBLE) const_iv (FLAG_CAN_ROLL) const_iv (FLAG_OVERLAY_FLOOR) const_iv (FLAG_IS_TURNABLE)
1192 const_iv (FLAG_IS_USED_UP) const_iv (FLAG_IDENTIFIED) const_iv (FLAG_REFLECTING) const_iv (FLAG_CHANGING) 1246 const_iv (FLAG_IS_USED_UP) const_iv (FLAG_IDENTIFIED) const_iv (FLAG_REFLECTING) const_iv (FLAG_CHANGING)
1193 const_iv (FLAG_SPLITTING) const_iv (FLAG_HITBACK) const_iv (FLAG_STARTEQUIP) const_iv (FLAG_BLOCKSVIEW) 1247 const_iv (FLAG_SPLITTING) const_iv (FLAG_HITBACK) const_iv (FLAG_STARTEQUIP) const_iv (FLAG_BLOCKSVIEW)
… …
1220 const_iv (UPD_LOCATION) const_iv (UPD_FLAGS) const_iv (UPD_WEIGHT) const_iv (UPD_FACE) 1274 const_iv (UPD_LOCATION) const_iv (UPD_FLAGS) const_iv (UPD_WEIGHT) const_iv (UPD_FACE)
1221 const_iv (UPD_NAME) const_iv (UPD_ANIM) const_iv (UPD_ANIMSPEED) const_iv (UPD_NROF) 1275 const_iv (UPD_NAME) const_iv (UPD_ANIM) const_iv (UPD_ANIMSPEED) const_iv (UPD_NROF)
1222 1276
1223 const_iv (UPD_SP_MANA) const_iv (UPD_SP_GRACE) const_iv (UPD_SP_DAMAGE) 1277 const_iv (UPD_SP_MANA) const_iv (UPD_SP_GRACE) const_iv (UPD_SP_DAMAGE)
1224 1278
1279 const_iv (SP_RAISE_DEAD)
1280 const_iv (SP_RUNE)
1281 const_iv (SP_MAKE_MARK)
1282 const_iv (SP_BOLT)
1283 const_iv (SP_BULLET)
1284 const_iv (SP_EXPLOSION)
1285 const_iv (SP_CONE)
1286 const_iv (SP_BOMB)
1287 const_iv (SP_WONDER)
1288 const_iv (SP_SMITE)
1289 const_iv (SP_MAGIC_MISSILE)
1290 const_iv (SP_SUMMON_GOLEM)
1291 const_iv (SP_DIMENSION_DOOR)
1292 const_iv (SP_MAGIC_MAPPING)
1293 const_iv (SP_MAGIC_WALL)
1294 const_iv (SP_DESTRUCTION)
1295 const_iv (SP_PERCEIVE_SELF)
1296 const_iv (SP_WORD_OF_RECALL)
1297 const_iv (SP_INVISIBLE)
1298 const_iv (SP_PROBE)
1299 const_iv (SP_HEALING)
1300 const_iv (SP_CREATE_FOOD)
1301 const_iv (SP_EARTH_TO_DUST)
1302 const_iv (SP_CHANGE_ABILITY)
1303 const_iv (SP_BLESS)
1304 const_iv (SP_CURSE)
1305 const_iv (SP_SUMMON_MONSTER)
1306 const_iv (SP_CHARGING)
1307 const_iv (SP_POLYMORPH)
1308 const_iv (SP_ALCHEMY)
1309 const_iv (SP_REMOVE_CURSE)
1310 const_iv (SP_IDENTIFY)
1311 const_iv (SP_DETECTION)
1312 const_iv (SP_MOOD_CHANGE)
1313 const_iv (SP_MOVING_BALL)
1314 const_iv (SP_SWARM)
1315 const_iv (SP_CHANGE_MANA)
1316 const_iv (SP_DISPEL_RUNE)
1317 const_iv (SP_CREATE_MISSILE)
1318 const_iv (SP_CONSECRATE)
1319 const_iv (SP_ANIMATE_WEAPON)
1320 const_iv (SP_LIGHT)
1321 const_iv (SP_CHANGE_MAP_LIGHT)
1322 const_iv (SP_FAERY_FIRE)
1323 const_iv (SP_CAUSE_DISEASE)
1324 const_iv (SP_AURA)
1325 const_iv (SP_TOWN_PORTAL)
1326 const_iv (SP_PARTY_SPELL)
1327
1225 const_iv (F_APPLIED) const_iv (F_LOCATION) const_iv (F_UNPAID) const_iv (F_MAGIC) 1328 const_iv (F_APPLIED) const_iv (F_LOCATION) const_iv (F_UNPAID) const_iv (F_MAGIC)
1226 const_iv (F_CURSED) const_iv (F_DAMNED) const_iv (F_OPEN) const_iv (F_NOPICK) 1329 const_iv (F_CURSED) const_iv (F_DAMNED) const_iv (F_OPEN) const_iv (F_NOPICK)
1227 const_iv (F_LOCKED) 1330 const_iv (F_LOCKED)
1228 1331
1229 const_iv (F_BUY) const_iv (F_SHOP) const_iv (F_SELL) 1332 const_iv (F_BUY) const_iv (F_SHOP) const_iv (F_SELL)
… …
1331 } 1434 }
1332} 1435}
1333 1436
1334void _connect_to_perl () 1437void _connect_to_perl ()
1335 1438
1439void _recalc_want ()
1440
1336void _global_reattach () 1441void _global_reattach ()
1337 CODE: 1442 CODE:
1338{ 1443{
1339 // reattach to all attachable objects in the game. 1444 // reattach to all attachable objects in the game.
1340 for_all_clients (ns) 1445 for_all_clients (ns)
… …
1403 case 2: RETVAL = rndm (SvIV (ST (0)), SvIV (ST (1))); break; 1508 case 2: RETVAL = rndm (SvIV (ST (0)), SvIV (ST (1))); break;
1404 default: croak ("cf::rndm requires none, one or two parameters."); break; 1509 default: croak ("cf::rndm requires none, one or two parameters."); break;
1405 } 1510 }
1406 OUTPUT: 1511 OUTPUT:
1407 RETVAL 1512 RETVAL
1513
1514NV clamp (NV value, NV min_value, NV max_value)
1515 CODE:
1516 RETVAL = clamp (value, min_value, max_value);
1517 OUTPUT:
1518 RETVAL
1519
1520NV lerp (NV value, NV min_in, NV max_in, NV min_out, NV max_out)
1521 CODE:
1522 RETVAL = lerp (value, min_in, max_in, min_out, max_out);
1523 OUTPUT:
1524 RETVAL
1525
1526void cede_to_tick ()
1527 CODE:
1528 coroapi::cede_to_tick ();
1408 1529
1409void server_tick () 1530void server_tick ()
1410 CODE: 1531 CODE:
1411 runtime = SvNVx (sv_runtime); 1532 runtime = SvNVx (sv_runtime);
1412 server_tick (); 1533 server_tick ();
… …
1607object *actives (U32 index) 1728object *actives (U32 index)
1608 CODE: 1729 CODE:
1609 RETVAL = index < actives.size () ? actives [index] : 0; 1730 RETVAL = index < actives.size () ? actives [index] : 0;
1610 OUTPUT: RETVAL 1731 OUTPUT: RETVAL
1611 1732
1733const char *slot_save_name (U32 slot)
1734 ALIAS:
1735 slot_use_name = 1
1736 slot_nonuse_name = 2
1737 CODE:
1738{
1739 if (slot >= NUM_BODY_LOCATIONS)
1740 croak ("body slot index out of range");
1741
1742 switch (ix)
1743 {
1744 case 0: RETVAL = body_locations[slot].save_name; break;
1745 case 1: RETVAL = body_locations[slot].use_name; break;
1746 case 2: RETVAL = body_locations[slot].nonuse_name; break;
1747 }
1748}
1749 OUTPUT:
1750 RETVAL
1751
1612# missing properties 1752# missing properties
1613 1753
1614object *head (object *op) 1754object *head (object *op)
1615 PROTOTYPE: $ 1755 PROTOTYPE: $
1616 CODE: 1756 CODE:
… …
1641int 1781int
1642num_animations (object *op) 1782num_animations (object *op)
1643 CODE: 1783 CODE:
1644 RETVAL = NUM_ANIMATIONS (op); 1784 RETVAL = NUM_ANIMATIONS (op);
1645 OUTPUT: RETVAL 1785 OUTPUT: RETVAL
1786
1787int slot_info (object *op, UV slot, int value = 0)
1788 ALIAS:
1789 slot_used = 1
1790 CODE:
1791{
1792 if (slot >= NUM_BODY_LOCATIONS)
1793 croak ("body slot index out of range");
1794
1795 RETVAL = ix ? op->slot[slot].used : op->slot[slot].info;
1796
1797 if (items > 2)
1798 if (ix)
1799 op->slot[slot].used = value;
1800 else
1801 op->slot[slot].info = value;
1802}
1803 OUTPUT:
1804 RETVAL
1646 1805
1647object *find_best_object_match (object *op, utf8_string match) 1806object *find_best_object_match (object *op, utf8_string match)
1648 1807
1649object *find_marked_object (object *op) 1808object *find_marked_object (object *op)
1650 1809
… …
1831void check_score (object *op) 1990void check_score (object *op)
1832 1991
1833void message (object *op, utf8_string txt, int flags = NDI_ORANGE | NDI_UNIQUE) 1992void message (object *op, utf8_string txt, int flags = NDI_ORANGE | NDI_UNIQUE)
1834 CODE: 1993 CODE:
1835 new_draw_info (flags, 0, op, txt); 1994 new_draw_info (flags, 0, op, txt);
1836
1837object *cf_player_send_inventory (object *op)
1838
1839octet_string cf_player_get_ip (object *op)
1840 ALIAS: ip = 0
1841
1842object *cf_player_get_marked_item (object *op)
1843 ALIAS: marked_item = 0
1844
1845void cf_player_set_marked_item (object *op, object *ob)
1846
1847partylist *cf_player_get_party (object *op)
1848 ALIAS: party = 0
1849
1850void cf_player_set_party (object *op, partylist *party)
1851 1995
1852void kill_player (object *op) 1996void kill_player (object *op)
1853 1997
1854void esrv_update_item (object *op, int what, object *item) 1998void esrv_update_item (object *op, int what, object *item)
1855 C_ARGS: what, op, item 1999 C_ARGS: what, op, item
… …
2267 PROTOTYPE: 2411 PROTOTYPE:
2268 CODE: 2412 CODE:
2269 RETVAL = first_archetype; 2413 RETVAL = first_archetype;
2270 OUTPUT: RETVAL 2414 OUTPUT: RETVAL
2271 2415
2416object *instantiate (archetype *arch)
2417 CODE:
2418 RETVAL = arch_to_object (arch);
2419 OUTPUT:
2420 RETVAL
2421
2272INCLUDE: $PERL $srcdir/genacc archetype ../include/object.h | 2422INCLUDE: $PERL $srcdir/genacc archetype ../include/object.h |
2273 2423
2274MODULE = cf PACKAGE = cf::party 2424MODULE = cf PACKAGE = cf::party
2275 2425
2276partylist *first () 2426partylist *first ()

Diff Legend

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