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.197 by root, Fri Apr 27 03:38:33 2007 UTC vs.
Revision 1.217 by root, Sun Jun 3 17:42:39 2007 UTC

1/*****************************************************************************/
2/* CrossFire, A Multiplayer game for the X Window System */
3/*****************************************************************************/
4
5/* 1/*
6 * This code is placed under the GNU General Public Licence (GPL) 2 * This file is part of Crossfire TRT, the Roguelike Realtime MORPG.
7 * 3 *
4 * Copyright (©) 2006,2007 Marc Alexander Lehmann / Robin Redeker / the Crossfire TRT team
8 * Copyright (C) 2001-2005 by Chachkoff Yann 5 * Copyright (©) 2001-2005,2007 by Chachkoff Yann
9 * Copyright (C) 2006,2007 by Marc Lehmann <cf@schmorp.de> 6 * Copyright (©) 2006,2007 by Marc Lehmann <cf@schmorp.de>
10 * 7 *
11 * This program is free software; you can redistribute it and/or modify 8 * Crossfire TRT is free software; you can redistribute it and/or modify it
12 * it under the terms of the GNU General Public License as published by 9 * under the terms of the GNU General Public License as published by the Free
13 * the Free Software Foundation; either version 2 of the License, or 10 * Software Foundation; either version 2 of the License, or (at your option)
14 * (at your option) any later version. 11 * any later version.
15 * 12 *
16 * This program is distributed in the hope that it will be useful, 13 * This program is distributed in the hope that it will be useful, but
17 * but WITHOUT ANY WARRANTY; without even the implied warranty of 14 * WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY
18 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 15 * or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
19 * GNU General Public License for more details. 16 * for more details.
20 * 17 *
21 * You should have received a copy of the GNU General Public License 18 * You should have received a copy of the GNU General Public License along
22 * along with this program; if not, write to the Free Software 19 * with Crossfire TRT; if not, write to the Free Software Foundation, Inc. 51
23 * Foundation, Inc. 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA 20 * Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
21 *
22 * The authors can be reached via e-mail to <crossfire@schmorp.de>
24 */ 23 */
24
25#include "autoconf.h"
25 26
26#define PLUGIN_NAME "perl" 27#define PLUGIN_NAME "perl"
27#define PLUGIN_VERSION "cfperl 0.5" 28#define PLUGIN_VERSION "cfperl 0.5"
28 29
29#define CEDES_PER_TICK 5 30#define CEDES_PER_TICK 5
31
32#if HAVE_EXECINFO_H
33# include <execinfo.h>
34#endif
30 35
31#include <plugin_common.h> 36#include <plugin_common.h>
32#include <sounds.h> 37#include <sounds.h>
33#include <cstdarg> 38#include <cstdarg>
34#include <sproto.h> 39#include <sproto.h>
… …
80double runtime; 85double runtime;
81 86
82global gbl_ev; 87global gbl_ev;
83static AV *cb_global, *cb_attachable, *cb_object, *cb_player, *cb_client, *cb_type, *cb_map; 88static AV *cb_global, *cb_attachable, *cb_object, *cb_player, *cb_client, *cb_type, *cb_map;
84static SV *sv_runtime, *sv_next_tick; 89static SV *sv_runtime, *sv_next_tick;
90
91bitset<NUM_EVENT_TYPES> ev_want_event;
92bitset<NUM_TYPES> ev_want_type;
85 93
86static HV 94static HV
87 *stash_cf, 95 *stash_cf,
88 *stash_cf_object_wrap, 96 *stash_cf_object_wrap,
89 *stash_cf_object_player_wrap, 97 *stash_cf_object_player_wrap,
… …
161} 169}
162 170
163void 171void
164attachable::do_destroy () 172attachable::do_destroy ()
165{ 173{
166 invoke (EVENT_ATTACHABLE_DESTROY, DT_END); 174 INVOKE_ATTACHABLE (DESTROY, this);
167 175
168 if (cb) 176 if (cb)
169 { 177 {
170 SvREFCNT_dec (cb); 178 SvREFCNT_dec (cb);
171 cb = 0; 179 cb = 0;
… …
180 if (destroyed ()) 188 if (destroyed ())
181 return; 189 return;
182 190
183 flags |= F_DESTROYED; 191 flags |= F_DESTROYED;
184 do_destroy (); 192 do_destroy ();
193 sever_self ();
185} 194}
186 195
187void 196void
188attachable::check_mortals () 197attachable::check_mortals ()
189{ 198{
… …
209 LOG (llevError, "check_mortals: object '%s' still has self\n", typeid (obj).name ()); 218 LOG (llevError, "check_mortals: object '%s' still has self\n", typeid (obj).name ());
210 obj->sever_self (); 219 obj->sever_self ();
211 } 220 }
212#endif 221#endif
213 222
214 if (obj->refcnt_cnt ()) 223 if (obj->refcnt)
215 { 224 {
216 ++i; // further delay freeing 225 ++i; // further delay freeing
217 226
218 if (!(i & 0x3ff)) 227 if (!(i & 0x3ff))
219 break; 228 break;
… …
397inline void sv_to (SV *sv, refptr<T> &v) { T *tmp; sv_to (sv, tmp); v = tmp; } 406inline void sv_to (SV *sv, refptr<T> &v) { T *tmp; sv_to (sv, tmp); v = tmp; }
398 407
399template<int N> 408template<int N>
400inline void sv_to (SV *sv, char (&v)[N]) { assign (v, SvPV_nolen (sv)); } 409inline void sv_to (SV *sv, char (&v)[N]) { assign (v, SvPV_nolen (sv)); }
401 410
402inline void sv_to (SV *sv, rangetype &v) { v = (rangetype) SvIV (sv); }
403inline void sv_to (SV *sv, bowtype_t &v) { v = (bowtype_t) SvIV (sv); } 411inline void sv_to (SV *sv, bowtype_t &v) { v = (bowtype_t) SvIV (sv); }
404inline void sv_to (SV *sv, petmode_t &v) { v = (petmode_t) SvIV (sv); } 412inline void sv_to (SV *sv, petmode_t &v) { v = (petmode_t) SvIV (sv); }
405inline void sv_to (SV *sv, usekeytype &v) { v = (usekeytype) SvIV (sv); } 413inline void sv_to (SV *sv, usekeytype &v) { v = (usekeytype) SvIV (sv); }
406inline void sv_to (SV *sv, unapplymode &v) { v = (unapplymode) SvIV (sv); } 414inline void sv_to (SV *sv, unapplymode &v) { v = (unapplymode) SvIV (sv); }
407 415
… …
610 perl_construct (perl); 618 perl_construct (perl);
611 619
612 PL_exit_flags |= PERL_EXIT_DESTRUCT_END; 620 PL_exit_flags |= PERL_EXIT_DESTRUCT_END;
613 621
614 const char *argv[] = { 622 const char *argv[] = {
615 "", 623 settings.argv [0],
616 "-e" 624 "-e"
617 "use Event; use Coro;" // required for bootstrap 625 "use Event; use Coro;" // required for bootstrap
618 "cf->bootstrap;" // required for datadir :*> 626 "cf->bootstrap;" // required for datadir :*>
619 "unshift @INC, cf::datadir ();" 627 "unshift @INC, cf::datadir ();"
620 "require cf;" 628 "require cf;"
… …
648void 656void
649attachable::instantiate () 657attachable::instantiate ()
650{ 658{
651 if (attach) 659 if (attach)
652 { 660 {
653 invoke (EVENT_ATTACHABLE_INSTANTIATE, ARG_STRING (attach), DT_END); 661 INVOKE_ATTACHABLE (INSTANTIATE, this, ARG_STRING (attach));
654 attach = 0; 662 attach = 0;
655 } 663 }
656} 664}
657 665
658void 666void
659attachable::reattach () 667attachable::reattach ()
660{ 668{
661 optimise (); 669 optimise ();
662 //TODO: check for _attachment's, very important for restarts 670 //TODO: check for _attachment's, very important for restarts
663 invoke (EVENT_ATTACHABLE_REATTACH, DT_END); 671 INVOKE_ATTACHABLE (REATTACH, this);
664} 672}
665 673
666static event_klass klass_of[NUM_EVENT_TYPES] = { 674static event_klass klass_of[NUM_EVENT_TYPES] = {
667# define def(type,name) KLASS_ ## type, 675# define def(type,name) KLASS_ ## type,
668# include "eventinc.h" 676# include "eventinc.h"
… …
711} 719}
712 720
713void 721void
714global::gather_callbacks (AV *&callbacks, event_type event) const 722global::gather_callbacks (AV *&callbacks, event_type event) const
715{ 723{
716 ::gather_callbacks (callbacks, cb_object, event); 724 ::gather_callbacks (callbacks, cb_global, event);
717} 725}
718 726
719void 727void
720object::gather_callbacks (AV *&callbacks, event_type event) const 728object::gather_callbacks (AV *&callbacks, event_type event) const
721{ 729{
722 if (subtype && type + subtype * NUM_SUBTYPES <= AvFILLp (cb_type)) 730 if (subtype && type + subtype * NUM_TYPES <= AvFILLp (cb_type))
723 { 731 {
724 SV *registry = AvARRAY (cb_type)[type + subtype * NUM_SUBTYPES]; 732 SV *registry = AvARRAY (cb_type)[type + subtype * NUM_TYPES];
725 733
726 if (registry && SvROK (registry) && SvTYPE (SvRV (registry)) == SVt_PVAV) 734 if (registry && SvROK (registry) && SvTYPE (SvRV (registry)) == SVt_PVAV)
727 ::gather_callbacks (callbacks, (AV *)SvRV (registry), event); 735 ::gather_callbacks (callbacks, (AV *)SvRV (registry), event);
728 } 736 }
729 737
… …
765{ 773{
766 attachable::gather_callbacks (callbacks, event); 774 attachable::gather_callbacks (callbacks, event);
767 ::gather_callbacks (callbacks, cb_map, event); 775 ::gather_callbacks (callbacks, cb_map, event);
768} 776}
769 777
778void
779_recalc_want (bitset<NUM_EVENT_TYPES> &set, AV *registry)
780{
781 for (int event = 0; event <= AvFILLp (registry); ++event)
782 {
783 SV *cbs_ = AvARRAY (registry)[event];
784
785 // element must be list of callback entries
786 if (cbs_ && SvROK (cbs_) && SvTYPE (SvRV (cbs_)) == SVt_PVAV)
787 {
788 AV *cbs = (AV *)SvRV (cbs_);
789
790 // no callback entries, no callbacks to call
791 if (AvFILLp (cbs) >= 0)
792 set.set (event);
793 }
794 }
795}
796
797// very slow and inefficient way to recalculate the global want bitsets
798void
799_recalc_want ()
800{
801 ev_want_event.reset ();
802
803 _recalc_want (ev_want_event, cb_global);
804 _recalc_want (ev_want_event, cb_attachable);
805 _recalc_want (ev_want_event, cb_object);
806 _recalc_want (ev_want_event, cb_client);
807 _recalc_want (ev_want_event, cb_player);
808 _recalc_want (ev_want_event, cb_map);
809
810 ev_want_type.reset ();
811
812 for (int type = 0; type <= AvFILLp (cb_type); ++type)
813 {
814 SV *cbs_ = AvARRAY (cb_type)[type];
815
816 // element must be list of callback entries
817 if (cbs_ && SvROK (cbs_) && SvTYPE (SvRV (cbs_)) == SVt_PVAV)
818 {
819 AV *cbs = (AV *)SvRV (cbs_);
820
821 // no callback entries, no callbacks to call
822 if (AvFILLp (cbs) >= 0)
823 ev_want_type.set (type % NUM_TYPES);
824 }
825 }
826}
827
770bool 828bool
771attachable::invoke (event_type event, ...) 829attachable::invoke (event_type event, ...)
772{ 830{
773 data_type dt; 831 data_type dt;
774 va_list ap;
775
776 va_start (ap, event);
777 832
778 // callback call ordering should be: 833 // callback call ordering should be:
779 // 1. per-object callback 834 // 1. per-object callback
780 // 2. per-class object 835 // 2. per-class object
781 // 3. per-type callback 836 // 3. per-type callback
… …
785 gather_callbacks (callbacks, event); 840 gather_callbacks (callbacks, event);
786 841
787 // short-circuit processing if no callbacks found/defined 842 // short-circuit processing if no callbacks found/defined
788 if (!callbacks) 843 if (!callbacks)
789 return 0; 844 return 0;
845
846 va_list ap;
847 va_start (ap, event);
790 848
791 CALL_BEGIN (3); 849 CALL_BEGIN (3);
792 CALL_ARG_SV (newSViv (event)); // only used for debugging nowadays 850 CALL_ARG_SV (newSViv (event)); // only used for debugging nowadays
793 CALL_ARG_SV (newRV_noinc ((SV *)callbacks)); 851 CALL_ARG_SV (newRV_noinc ((SV *)callbacks));
794 852
… …
871 CALL_ARG (make_core); 929 CALL_ARG (make_core);
872 CALL_CALL ("cf::post_cleanup", G_VOID); 930 CALL_CALL ("cf::post_cleanup", G_VOID);
873 CALL_END; 931 CALL_END;
874} 932}
875 933
934void
935cfperl_make_book (object *book, int level)
936{
937 CALL_BEGIN (2);
938 CALL_ARG (book);
939 CALL_ARG (level);
940 CALL_CALL ("ext::books::make_book", G_VOID);
941 CALL_END;
942}
943
876maptile * 944maptile *
877maptile::find_sync (const char *path, maptile *origin) 945maptile::find_sync (const char *path, maptile *origin)
878{ 946{
879 CALL_BEGIN (2); 947 CALL_BEGIN (2);
880 CALL_ARG (path); 948 CALL_ARG (path);
… …
940 CALL_BEGIN (2); 1008 CALL_BEGIN (2);
941 CALL_ARG (this); 1009 CALL_ARG (this);
942 CALL_ARG (exit); 1010 CALL_ARG (exit);
943 CALL_CALL ("cf::object::player::enter_exit", G_VOID); 1011 CALL_CALL ("cf::object::player::enter_exit", G_VOID);
944 CALL_END; 1012 CALL_END;
1013}
1014
1015void
1016log_backtrace (const char *msg)
1017{
1018#if HAVE_BACKTRACE
1019 void *addr [20];
1020 int size = backtrace (addr, 20);
1021
1022 CALL_BEGIN (size);
1023 CALL_ARG (msg);
1024 for (int i = 0; i < size; ++i)
1025 CALL_ARG ((IV)addr [i]);
1026 CALL_CALL ("cf::_log_backtrace", G_VOID);
1027 CALL_END;
1028#endif
945} 1029}
946 1030
947///////////////////////////////////////////////////////////////////////////// 1031/////////////////////////////////////////////////////////////////////////////
948 1032
949struct EventAPI *watcher_base::GEventAPI; 1033struct EventAPI *watcher_base::GEventAPI;
… …
1105 const char *name; 1189 const char *name;
1106 IV iv; 1190 IV iv;
1107 } *civ, const_iv[] = { 1191 } *civ, const_iv[] = {
1108# define const_iv(name) { # name, (IV)name }, 1192# define const_iv(name) { # name, (IV)name },
1109 const_iv (llevError) const_iv (llevInfo) const_iv (llevDebug) const_iv (llevMonster) 1193 const_iv (llevError) const_iv (llevInfo) const_iv (llevDebug) const_iv (llevMonster)
1194 const_iv (logBacktrace)
1110 1195
1111 const_iv (Map0Cmd) const_iv (Map1Cmd) const_iv (Map1aCmd) 1196 const_iv (Map0Cmd) const_iv (Map1Cmd) const_iv (Map1aCmd)
1112 1197
1113 const_iv (MAP_CLIENT_X) const_iv (MAP_CLIENT_Y) 1198 const_iv (MAP_CLIENT_X) const_iv (MAP_CLIENT_Y)
1114 1199
1115 const_iv (MAX_TIME) 1200 const_iv (MAX_TIME)
1201
1202 const_iv (NUM_BODY_LOCATIONS)
1203 const_iv (body_range) const_iv (body_shield) const_iv (body_combat)
1204 const_iv (body_arm) const_iv (body_torso) const_iv (body_head)
1205 const_iv (body_neck) const_iv (body_skill) const_iv (body_finger)
1206 const_iv (body_shoulder) const_iv (body_foot) const_iv (body_hand)
1207 const_iv (body_wrist) const_iv (body_waist)
1116 1208
1117 const_iv (PLAYER) const_iv (TRANSPORT) const_iv (ROD) const_iv (TREASURE) 1209 const_iv (PLAYER) const_iv (TRANSPORT) const_iv (ROD) const_iv (TREASURE)
1118 const_iv (POTION) const_iv (FOOD) const_iv (POISON) const_iv (BOOK) 1210 const_iv (POTION) const_iv (FOOD) const_iv (POISON) const_iv (BOOK)
1119 const_iv (CLOCK) const_iv (ARROW) const_iv (BOW) const_iv (WEAPON) 1211 const_iv (CLOCK) const_iv (ARROW) const_iv (BOW) const_iv (WEAPON)
1120 const_iv (ARMOUR) const_iv (PEDESTAL) const_iv (ALTAR) const_iv (LOCKED_DOOR) 1212 const_iv (ARMOUR) const_iv (PEDESTAL) const_iv (ALTAR) const_iv (LOCKED_DOOR)
… …
1141 const_iv (CONTAINER) const_iv (ARMOUR_IMPROVER) const_iv (WEAPON_IMPROVER) const_iv (SKILLSCROLL) 1233 const_iv (CONTAINER) const_iv (ARMOUR_IMPROVER) const_iv (WEAPON_IMPROVER) const_iv (SKILLSCROLL)
1142 const_iv (DEEP_SWAMP) const_iv (IDENTIFY_ALTAR) const_iv (MENU) const_iv (RUNE) 1234 const_iv (DEEP_SWAMP) const_iv (IDENTIFY_ALTAR) const_iv (MENU) const_iv (RUNE)
1143 const_iv (TRAP) const_iv (POWER_CRYSTAL) const_iv (CORPSE) const_iv (DISEASE) 1235 const_iv (TRAP) const_iv (POWER_CRYSTAL) const_iv (CORPSE) const_iv (DISEASE)
1144 const_iv (SYMPTOM) const_iv (BUILDER) const_iv (MATERIAL) const_iv (ITEM_TRANSFORMER) 1236 const_iv (SYMPTOM) const_iv (BUILDER) const_iv (MATERIAL) const_iv (ITEM_TRANSFORMER)
1145 1237
1146 const_iv (NUM_SUBTYPES) 1238 const_iv (NUM_TYPES) const_iv (NUM_SUBTYPES)
1147 1239
1148 const_iv (ST_BD_BUILD) const_iv (ST_BD_REMOVE) 1240 const_iv (ST_BD_BUILD) const_iv (ST_BD_REMOVE)
1149 const_iv (ST_MAT_FLOOR) const_iv (ST_MAT_WALL) const_iv (ST_MAT_ITEM) 1241 const_iv (ST_MAT_FLOOR) const_iv (ST_MAT_WALL) const_iv (ST_MAT_ITEM)
1150 1242
1151 const_iv (AT_PHYSICAL) const_iv (AT_MAGIC) const_iv (AT_FIRE) const_iv (AT_ELECTRICITY) 1243 const_iv (AT_PHYSICAL) const_iv (AT_MAGIC) const_iv (AT_FIRE) const_iv (AT_ELECTRICITY)
… …
1159 const_iv (WEAP_HIT) const_iv (WEAP_SLASH) const_iv (WEAP_PIERCE) const_iv (WEAP_CLEAVE) 1251 const_iv (WEAP_HIT) const_iv (WEAP_SLASH) const_iv (WEAP_PIERCE) const_iv (WEAP_CLEAVE)
1160 const_iv (WEAP_SLICE) const_iv (WEAP_STAB) const_iv (WEAP_WHIP) const_iv (WEAP_CRUSH) 1252 const_iv (WEAP_SLICE) const_iv (WEAP_STAB) const_iv (WEAP_WHIP) const_iv (WEAP_CRUSH)
1161 const_iv (WEAP_BLUD) 1253 const_iv (WEAP_BLUD)
1162 1254
1163 const_iv (FLAG_ALIVE) const_iv (FLAG_WIZ) const_iv (FLAG_REMOVED) const_iv (FLAG_FREED) 1255 const_iv (FLAG_ALIVE) const_iv (FLAG_WIZ) const_iv (FLAG_REMOVED) const_iv (FLAG_FREED)
1164 const_iv (FLAG_WAS_WIZ) const_iv (FLAG_APPLIED) const_iv (FLAG_UNPAID) const_iv (FLAG_USE_SHIELD) 1256 const_iv (FLAG_APPLIED) const_iv (FLAG_UNPAID) const_iv (FLAG_USE_SHIELD)
1165 const_iv (FLAG_NO_PICK) const_iv (FLAG_ANIMATE) const_iv (FLAG_MONSTER) const_iv (FLAG_FRIENDLY) 1257 const_iv (FLAG_NO_PICK) const_iv (FLAG_ANIMATE) const_iv (FLAG_MONSTER) const_iv (FLAG_FRIENDLY)
1166 const_iv (FLAG_GENERATOR) const_iv (FLAG_IS_THROWN) const_iv (FLAG_AUTO_APPLY) const_iv (FLAG_PLAYER_SOLD) 1258 const_iv (FLAG_GENERATOR) const_iv (FLAG_IS_THROWN) const_iv (FLAG_AUTO_APPLY) const_iv (FLAG_PLAYER_SOLD)
1167 const_iv (FLAG_SEE_INVISIBLE) const_iv (FLAG_CAN_ROLL) const_iv (FLAG_OVERLAY_FLOOR) const_iv (FLAG_IS_TURNABLE) 1259 const_iv (FLAG_SEE_INVISIBLE) const_iv (FLAG_CAN_ROLL) const_iv (FLAG_OVERLAY_FLOOR) const_iv (FLAG_IS_TURNABLE)
1168 const_iv (FLAG_IS_USED_UP) const_iv (FLAG_IDENTIFIED) const_iv (FLAG_REFLECTING) const_iv (FLAG_CHANGING) 1260 const_iv (FLAG_IS_USED_UP) const_iv (FLAG_IDENTIFIED) const_iv (FLAG_REFLECTING) const_iv (FLAG_CHANGING)
1169 const_iv (FLAG_SPLITTING) const_iv (FLAG_HITBACK) const_iv (FLAG_STARTEQUIP) const_iv (FLAG_BLOCKSVIEW) 1261 const_iv (FLAG_SPLITTING) const_iv (FLAG_HITBACK) const_iv (FLAG_STARTEQUIP) const_iv (FLAG_BLOCKSVIEW)
… …
1196 const_iv (UPD_LOCATION) const_iv (UPD_FLAGS) const_iv (UPD_WEIGHT) const_iv (UPD_FACE) 1288 const_iv (UPD_LOCATION) const_iv (UPD_FLAGS) const_iv (UPD_WEIGHT) const_iv (UPD_FACE)
1197 const_iv (UPD_NAME) const_iv (UPD_ANIM) const_iv (UPD_ANIMSPEED) const_iv (UPD_NROF) 1289 const_iv (UPD_NAME) const_iv (UPD_ANIM) const_iv (UPD_ANIMSPEED) const_iv (UPD_NROF)
1198 1290
1199 const_iv (UPD_SP_MANA) const_iv (UPD_SP_GRACE) const_iv (UPD_SP_DAMAGE) 1291 const_iv (UPD_SP_MANA) const_iv (UPD_SP_GRACE) const_iv (UPD_SP_DAMAGE)
1200 1292
1293 const_iv (SP_RAISE_DEAD)
1294 const_iv (SP_RUNE)
1295 const_iv (SP_MAKE_MARK)
1296 const_iv (SP_BOLT)
1297 const_iv (SP_BULLET)
1298 const_iv (SP_EXPLOSION)
1299 const_iv (SP_CONE)
1300 const_iv (SP_BOMB)
1301 const_iv (SP_WONDER)
1302 const_iv (SP_SMITE)
1303 const_iv (SP_MAGIC_MISSILE)
1304 const_iv (SP_SUMMON_GOLEM)
1305 const_iv (SP_DIMENSION_DOOR)
1306 const_iv (SP_MAGIC_MAPPING)
1307 const_iv (SP_MAGIC_WALL)
1308 const_iv (SP_DESTRUCTION)
1309 const_iv (SP_PERCEIVE_SELF)
1310 const_iv (SP_WORD_OF_RECALL)
1311 const_iv (SP_INVISIBLE)
1312 const_iv (SP_PROBE)
1313 const_iv (SP_HEALING)
1314 const_iv (SP_CREATE_FOOD)
1315 const_iv (SP_EARTH_TO_DUST)
1316 const_iv (SP_CHANGE_ABILITY)
1317 const_iv (SP_BLESS)
1318 const_iv (SP_CURSE)
1319 const_iv (SP_SUMMON_MONSTER)
1320 const_iv (SP_CHARGING)
1321 const_iv (SP_POLYMORPH)
1322 const_iv (SP_ALCHEMY)
1323 const_iv (SP_REMOVE_CURSE)
1324 const_iv (SP_IDENTIFY)
1325 const_iv (SP_DETECTION)
1326 const_iv (SP_MOOD_CHANGE)
1327 const_iv (SP_MOVING_BALL)
1328 const_iv (SP_SWARM)
1329 const_iv (SP_CHANGE_MANA)
1330 const_iv (SP_DISPEL_RUNE)
1331 const_iv (SP_CREATE_MISSILE)
1332 const_iv (SP_CONSECRATE)
1333 const_iv (SP_ANIMATE_WEAPON)
1334 const_iv (SP_LIGHT)
1335 const_iv (SP_CHANGE_MAP_LIGHT)
1336 const_iv (SP_FAERY_FIRE)
1337 const_iv (SP_CAUSE_DISEASE)
1338 const_iv (SP_AURA)
1339 const_iv (SP_TOWN_PORTAL)
1340 const_iv (SP_PARTY_SPELL)
1341
1201 const_iv (F_APPLIED) const_iv (F_LOCATION) const_iv (F_UNPAID) const_iv (F_MAGIC) 1342 const_iv (F_APPLIED) const_iv (F_LOCATION) const_iv (F_UNPAID) const_iv (F_MAGIC)
1202 const_iv (F_CURSED) const_iv (F_DAMNED) const_iv (F_OPEN) const_iv (F_NOPICK) 1343 const_iv (F_CURSED) const_iv (F_DAMNED) const_iv (F_OPEN) const_iv (F_NOPICK)
1203 const_iv (F_LOCKED) 1344 const_iv (F_LOCKED)
1204 1345
1205 const_iv (F_BUY) const_iv (F_SHOP) const_iv (F_SELL) 1346 const_iv (F_BUY) const_iv (F_SHOP) const_iv (F_SELL)
… …
1307 } 1448 }
1308} 1449}
1309 1450
1310void _connect_to_perl () 1451void _connect_to_perl ()
1311 1452
1453void _recalc_want ()
1454
1312void _global_reattach () 1455void _global_reattach ()
1313 CODE: 1456 CODE:
1314{ 1457{
1315 // reattach to all attachable objects in the game. 1458 // reattach to all attachable objects in the game.
1316 for_all_clients (ns) 1459 for_all_clients (ns)
… …
1380 default: croak ("cf::rndm requires none, one or two parameters."); break; 1523 default: croak ("cf::rndm requires none, one or two parameters."); break;
1381 } 1524 }
1382 OUTPUT: 1525 OUTPUT:
1383 RETVAL 1526 RETVAL
1384 1527
1528NV clamp (NV value, NV min_value, NV max_value)
1529 CODE:
1530 RETVAL = clamp (value, min_value, max_value);
1531 OUTPUT:
1532 RETVAL
1533
1534NV lerp (NV value, NV min_in, NV max_in, NV min_out, NV max_out)
1535 CODE:
1536 RETVAL = lerp (value, min_in, max_in, min_out, max_out);
1537 OUTPUT:
1538 RETVAL
1539
1540void cede_to_tick ()
1541 CODE:
1542 coroapi::cede_to_tick ();
1543
1385void server_tick () 1544void server_tick ()
1386 CODE: 1545 CODE:
1387 runtime = SvNVx (sv_runtime); 1546 runtime = SvNVx (sv_runtime);
1388 server_tick (); 1547 server_tick ();
1389 1548
1390void 1549void
1550log_backtrace (utf8_string msg)
1551
1552void
1391LOG (int level, utf8_string msg) 1553LOG (int flags, utf8_string msg)
1392 PROTOTYPE: $$ 1554 PROTOTYPE: $$
1393 C_ARGS: (LogLevel)level, "%s", msg 1555 C_ARGS: flags, "%s", msg
1394 1556
1395octet_string path_combine (octet_string base, octet_string path) 1557octet_string path_combine (octet_string base, octet_string path)
1396 PROTOTYPE: $$ 1558 PROTOTYPE: $$
1397 1559
1398octet_string path_combine_and_normalize (octet_string base, octet_string path) 1560octet_string path_combine_and_normalize (octet_string base, octet_string path)
… …
1435 } 1597 }
1436 OUTPUT: RETVAL 1598 OUTPUT: RETVAL
1437 1599
1438void abort () 1600void abort ()
1439 1601
1602void reset_signals ()
1603
1440void fork_abort (octet_string cause = "cf::fork_abort") 1604void fork_abort (octet_string cause = "cf::fork_abort")
1441 1605
1442void cleanup (octet_string cause, bool make_core = false) 1606void cleanup (octet_string cause, bool make_core = false)
1443 1607
1444void emergency_save () 1608void emergency_save ()
… …
1578object *actives (U32 index) 1742object *actives (U32 index)
1579 CODE: 1743 CODE:
1580 RETVAL = index < actives.size () ? actives [index] : 0; 1744 RETVAL = index < actives.size () ? actives [index] : 0;
1581 OUTPUT: RETVAL 1745 OUTPUT: RETVAL
1582 1746
1747const char *slot_use_name (U32 slot)
1748 ALIAS:
1749 slot_nonuse_name = 1
1750 CODE:
1751{
1752 if (slot >= NUM_BODY_LOCATIONS)
1753 croak ("body slot index out of range");
1754
1755 switch (ix)
1756 {
1757 case 0: RETVAL = body_locations[slot].use_name; break;
1758 case 1: RETVAL = body_locations[slot].nonuse_name; break;
1759 }
1760}
1761 OUTPUT:
1762 RETVAL
1763
1583# missing properties 1764# missing properties
1584 1765
1585object *head (object *op) 1766object *head (object *op)
1586 PROTOTYPE: $ 1767 PROTOTYPE: $
1587 CODE: 1768 CODE:
… …
1612int 1793int
1613num_animations (object *op) 1794num_animations (object *op)
1614 CODE: 1795 CODE:
1615 RETVAL = NUM_ANIMATIONS (op); 1796 RETVAL = NUM_ANIMATIONS (op);
1616 OUTPUT: RETVAL 1797 OUTPUT: RETVAL
1798
1799int slot_info (object *op, UV slot, int value = 0)
1800 ALIAS:
1801 slot_used = 1
1802 CODE:
1803{
1804 if (slot >= NUM_BODY_LOCATIONS)
1805 croak ("body slot index out of range");
1806
1807 RETVAL = ix ? op->slot[slot].used : op->slot[slot].info;
1808
1809 if (items > 2)
1810 if (ix)
1811 op->slot[slot].used = value;
1812 else
1813 op->slot[slot].info = value;
1814}
1815 OUTPUT:
1816 RETVAL
1617 1817
1618object *find_best_object_match (object *op, utf8_string match) 1818object *find_best_object_match (object *op, utf8_string match)
1619 1819
1620object *find_marked_object (object *op) 1820object *find_marked_object (object *op)
1621 1821
… …
1803 2003
1804void message (object *op, utf8_string txt, int flags = NDI_ORANGE | NDI_UNIQUE) 2004void message (object *op, utf8_string txt, int flags = NDI_ORANGE | NDI_UNIQUE)
1805 CODE: 2005 CODE:
1806 new_draw_info (flags, 0, op, txt); 2006 new_draw_info (flags, 0, op, txt);
1807 2007
1808object *cf_player_send_inventory (object *op)
1809
1810octet_string cf_player_get_ip (object *op)
1811 ALIAS: ip = 0
1812
1813object *cf_player_get_marked_item (object *op)
1814 ALIAS: marked_item = 0
1815
1816void cf_player_set_marked_item (object *op, object *ob)
1817
1818partylist *cf_player_get_party (object *op)
1819 ALIAS: party = 0
1820
1821void cf_player_set_party (object *op, partylist *party)
1822
1823void kill_player (object *op) 2008void kill_player (object *op)
1824 2009
1825void esrv_update_item (object *op, int what, object *item) 2010void esrv_update_item (object *op, int what, object *item)
1826 C_ARGS: what, op, item 2011 C_ARGS: what, op, item
1827
1828void clear_los (object *op)
1829 2012
1830int command_summon (object *op, utf8_string params) 2013int command_summon (object *op, utf8_string params)
1831 2014
1832int command_arrest (object *op, utf8_string params) 2015int command_arrest (object *op, utf8_string params)
1833 2016
… …
1851 CODE: 2034 CODE:
1852 pl->ob->stats.hp = pl->ob->stats.maxhp; 2035 pl->ob->stats.hp = pl->ob->stats.maxhp;
1853 pl->ob->stats.sp = pl->ob->stats.maxsp; 2036 pl->ob->stats.sp = pl->ob->stats.maxsp;
1854 pl->ob->stats.grace = pl->ob->stats.maxgrace; 2037 pl->ob->stats.grace = pl->ob->stats.maxgrace;
1855 pl->orig_stats = pl->ob->stats; 2038 pl->orig_stats = pl->ob->stats;
2039
2040void clear_los (player *pl)
1856 2041
1857void cf_player_move (player *pl, int dir) 2042void cf_player_move (player *pl, int dir)
1858 2043
1859void play_sound_player_only (player *pl, int soundnum, int x = 0, int y = 0); 2044void play_sound_player_only (player *pl, int soundnum, int x = 0, int y = 0);
1860 2045
… …
1970 if (SV **elem = av_fetch ((AV *)palette, idx [offs], 0)) 2155 if (SV **elem = av_fetch ((AV *)palette, idx [offs], 0))
1971 { 2156 {
1972 object *ob = get_archetype (SvPVutf8_nolen (*elem)); 2157 object *ob = get_archetype (SvPVutf8_nolen (*elem));
1973 ob->flag [FLAG_NO_MAP_SAVE] = true; 2158 ob->flag [FLAG_NO_MAP_SAVE] = true;
1974 THIS->insert (ob, x, y, 0, INS_ABOVE_FLOOR_ONLY); 2159 THIS->insert (ob, x, y, 0, INS_ABOVE_FLOOR_ONLY);
2160
2161 if (ob->randomitems)
2162 {
2163 if (!ob->above)
2164 {
2165 ob->create_treasure (ob->randomitems);
2166
2167 for (object *op = ob->above; op; op = op->above)
2168 op->flag [FLAG_NO_MAP_SAVE] = true;
2169 }
2170
2171 ob->randomitems = 0;
2172 }
1975 } 2173 }
1976 } 2174 }
1977 } 2175 }
1978 2176
1979 skip_space: ; 2177 skip_space: ;
… …
2199 rmp.decoroptions = decoroptions; 2397 rmp.decoroptions = decoroptions;
2200 rmp.orientation = orientation; 2398 rmp.orientation = orientation;
2201 rmp.origin_y = origin_y; 2399 rmp.origin_y = origin_y;
2202 rmp.origin_x = origin_x; 2400 rmp.origin_x = origin_x;
2203 rmp.random_seed = random_seed; 2401 rmp.random_seed = random_seed;
2204 rmp.total_map_hp = total_map_hp; 2402 rmp.total_map_hp = (uint64_t) total_map_hp;
2205 rmp.map_layout_style = map_layout_style; 2403 rmp.map_layout_style = map_layout_style;
2206 rmp.treasureoptions = treasureoptions; 2404 rmp.treasureoptions = treasureoptions;
2207 rmp.symmetry_used = symmetry_used; 2405 rmp.symmetry_used = symmetry_used;
2208 rmp.region = region; 2406 rmp.region = region;
2209 rmp.custom = custom; 2407 rmp.custom = custom;
… …
2224archetype *first() 2422archetype *first()
2225 PROTOTYPE: 2423 PROTOTYPE:
2226 CODE: 2424 CODE:
2227 RETVAL = first_archetype; 2425 RETVAL = first_archetype;
2228 OUTPUT: RETVAL 2426 OUTPUT: RETVAL
2427
2428object *instantiate (archetype *arch)
2429 CODE:
2430 RETVAL = arch_to_object (arch);
2431 OUTPUT:
2432 RETVAL
2229 2433
2230INCLUDE: $PERL $srcdir/genacc archetype ../include/object.h | 2434INCLUDE: $PERL $srcdir/genacc archetype ../include/object.h |
2231 2435
2232MODULE = cf PACKAGE = cf::party 2436MODULE = cf PACKAGE = cf::party
2233 2437

Diff Legend

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