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.153 by root, Fri Jan 26 20:59:57 2007 UTC vs.
Revision 1.181 by root, Tue Apr 3 00:21:38 2007 UTC

… …
4 4
5/* 5/*
6 * This code is placed under the GNU General Public Licence (GPL) 6 * This code is placed under the GNU General Public Licence (GPL)
7 * 7 *
8 * Copyright (C) 2001-2005 by Chachkoff Yann 8 * Copyright (C) 2001-2005 by Chachkoff Yann
9 * Copyright (C) 2006 by Marc Lehmann <cf@schmorp.de> 9 * Copyright (C) 2006,2007 by Marc Lehmann <cf@schmorp.de>
10 * 10 *
11 * This program is free software; you can redistribute it and/or modify 11 * This program is free software; you can redistribute it and/or modify
12 * it under the terms of the GNU General Public License as published by 12 * it under the terms of the GNU General Public License as published by
13 * the Free Software Foundation; either version 2 of the License, or 13 * the Free Software Foundation; either version 2 of the License, or
14 * (at your option) any later version. 14 * (at your option) any later version.
… …
29#include <plugin_common.h> 29#include <plugin_common.h>
30#include <sounds.h> 30#include <sounds.h>
31#include <cstdarg> 31#include <cstdarg>
32#include <sproto.h> 32#include <sproto.h>
33 33
34#include "loader.h"
34#include "cfperl.h" 35#include "cfperl.h"
35#include "shstr.h" 36#include "shstr.h"
36 37
37#include <unistd.h> 38#include <unistd.h>
38#if _POSIX_MEMLOCK 39#if _POSIX_MEMLOCK
… …
101 102
102unordered_vector<attachable *> attachable::mortals; 103unordered_vector<attachable *> attachable::mortals;
103 104
104attachable::~attachable () 105attachable::~attachable ()
105{ 106{
107 flags |=0x3300;//D
106 assert (!self); 108 assert (!self);
107 assert (!cb); 109 assert (!cb);
108} 110}
109 111
110int 112int
111attachable::refcnt_cnt () const 113attachable::refcnt_cnt () const
112{ 114{
113 return refcnt + (self ? SvREFCNT (self) - 1 : 0); 115 return refcnt + (self ? SvREFCNT (self) - 1 : 0);
116}
117
118void
119attachable::sever_self ()
120{
121 if (HV *self = this->self)
122 {
123 // keep a refcount because sv_unmagic might call attachable_free,
124 // which might clear self, causing sv_unmagic to crash on a now
125 // invalid object.
126 SvREFCNT_inc (self);
127 hv_clear (self);
128 sv_unmagic ((SV *)self, PERL_MAGIC_ext);
129 SvREFCNT_dec (self);
130
131 // self *must* be null now because thats sv_unmagic's job.
132 assert (!this->self);
133 flags |= 0x80; // severed //D
134 }
114} 135}
115 136
116void 137void
117attachable::optimise () 138attachable::optimise ()
118{ 139{
119 if (self 140 if (self
120 && SvREFCNT (self) == 1 141 && SvREFCNT (self) == 1
121 && !HvTOTALKEYS (self)) 142 && !HvTOTALKEYS (self))
122 { 143 flags |= 0x40,//D
123 sv_unmagic ((SV *)self, PERL_MAGIC_ext); 144 sever_self ();
124 assert (!self);
125 }
126} 145}
127 146
128// check wether the object really is dead 147// check wether the object really is dead
129void 148void
130attachable::do_check () 149attachable::do_check ()
… …
145 SvREFCNT_dec (cb); 164 SvREFCNT_dec (cb);
146 cb = 0; 165 cb = 0;
147 } 166 }
148 167
149 if (self) 168 if (self)
150 { 169 sever_self ();
151 hv_clear (self);
152 sv_unmagic ((SV *)self, PERL_MAGIC_ext);
153 // self is now 0
154 assert (!self);//D//TODO remove soon
155 }
156 170
171 flags |= 0x20; //D
157 mortals.push_back (this); 172 mortals.push_back (this);
158} 173}
159 174
160void 175void
161attachable::destroy () 176attachable::destroy ()
… …
256 271
257 if (!obj->self) 272 if (!obj->self)
258 { 273 {
259 obj->self = newHV (); 274 obj->self = newHV ();
260 sv_magicext ((SV *)obj->self, 0, PERL_MAGIC_ext, &attachable::vtbl, (char *)obj, 0); 275 sv_magicext ((SV *)obj->self, 0, PERL_MAGIC_ext, &attachable::vtbl, (char *)obj, 0);
276 obj->flags |= (obj->flags & 0xc0) << 8;
277 obj->flags &= ~0xc0;//D
278 obj->flags |= 0x10;//D
261 279
262 // now bless the object _once_ 280 // now bless the object _once_
263 return sv_bless (newRV_inc ((SV *)obj->self), stash); 281 return sv_bless (newRV_inc ((SV *)obj->self), stash);
264 } 282 }
265 else 283 else
… …
331inline SV *to_sv (living * v) { return newSVptr (v, stash_cf_living_wrap); } 349inline SV *to_sv (living * v) { return newSVptr (v, stash_cf_living_wrap); }
332 350
333inline SV *to_sv (object & v) { return to_sv (&v); } 351inline SV *to_sv (object & v) { return to_sv (&v); }
334inline SV *to_sv (living & v) { return to_sv (&v); } 352inline SV *to_sv (living & v) { return to_sv (&v); }
335 353
336inline SV *to_sv (facetile * v) { return to_sv (v->name); } 354//inline SV *to_sv (faceinfo * v) { return to_sv (v->name); }
337inline SV *to_sv (treasurelist * v) { return to_sv (v->name); } 355inline SV *to_sv (treasurelist * v) { return to_sv (v->name); }
356inline SV *to_sv (std::string & v) { return newSVpvn (v.data (), v.size ()); }
338 357
339inline SV *to_sv (UUID v) 358inline SV *to_sv (UUID v)
340{ 359{
341 char buf[128]; 360 char buf[128];
342 snprintf (buf, 128, "<1,%" PRIx64 ">", v.seq); 361 snprintf (buf, 128, "<1.%" PRIx64 ">", v.seq);
343 return newSVpv (buf, 0); 362 return newSVpv (buf, 0);
344} 363}
345 364
346inline void sv_to (SV *sv, shstr &v) { v = SvOK (sv) ? SvPV_nolen (sv) : 0; } 365inline void sv_to (SV *sv, shstr &v) { v = SvOK (sv) ? SvPV_nolen (sv) : 0; }
347inline void sv_to (SV *sv, char * &v) { free (v); v = SvOK (sv) ? strdup (SvPV_nolen (sv)) : 0; } 366inline void sv_to (SV *sv, char * &v) { free (v); v = SvOK (sv) ? strdup (SvPV_nolen (sv)) : 0; }
… …
366inline void sv_to (SV *sv, attachable * &v) { v = (attachable *)SvPTR_ornull (sv, "cf::attachable"); } 385inline void sv_to (SV *sv, attachable * &v) { v = (attachable *)SvPTR_ornull (sv, "cf::attachable"); }
367inline void sv_to (SV *sv, partylist * &v) { v = (partylist *)SvPTR_ornull (sv, "cf::party"); } 386inline void sv_to (SV *sv, partylist * &v) { v = (partylist *)SvPTR_ornull (sv, "cf::party"); }
368inline void sv_to (SV *sv, region * &v) { v = (region *)SvPTR_ornull (sv, "cf::region"); } 387inline void sv_to (SV *sv, region * &v) { v = (region *)SvPTR_ornull (sv, "cf::region"); }
369inline void sv_to (SV *sv, living * &v) { v = (living *)SvPTR_ornull (sv, "cf::living"); } 388inline void sv_to (SV *sv, living * &v) { v = (living *)SvPTR_ornull (sv, "cf::living"); }
370 389
371inline void sv_to (SV *sv, facetile * &v) { v = &new_faces[FindFace (SvPV_nolen (sv), 0)]; } 390//inline void sv_to (SV *sv, faceinfo * &v) { v = &faces [face_find (SvPV_nolen (sv), 0)]; }
372inline void sv_to (SV *sv, treasurelist * &v) { v = find_treasurelist (SvPV_nolen (sv)); } 391inline void sv_to (SV *sv, treasurelist * &v) { v = find_treasurelist (SvPV_nolen (sv)); }
373 392
374template<class T> 393template<class T>
375inline void sv_to (SV *sv, refptr<T> &v) { T *tmp; sv_to (sv, tmp); v = tmp; } 394inline void sv_to (SV *sv, refptr<T> &v) { T *tmp; sv_to (sv, tmp); v = tmp; }
376 395
… …
380inline void sv_to (SV *sv, rangetype &v) { v = (rangetype) SvIV (sv); } 399inline void sv_to (SV *sv, rangetype &v) { v = (rangetype) SvIV (sv); }
381inline void sv_to (SV *sv, bowtype_t &v) { v = (bowtype_t) SvIV (sv); } 400inline void sv_to (SV *sv, bowtype_t &v) { v = (bowtype_t) SvIV (sv); }
382inline void sv_to (SV *sv, petmode_t &v) { v = (petmode_t) SvIV (sv); } 401inline void sv_to (SV *sv, petmode_t &v) { v = (petmode_t) SvIV (sv); }
383inline void sv_to (SV *sv, usekeytype &v) { v = (usekeytype) SvIV (sv); } 402inline void sv_to (SV *sv, usekeytype &v) { v = (usekeytype) SvIV (sv); }
384inline void sv_to (SV *sv, unapplymode &v) { v = (unapplymode) SvIV (sv); } 403inline void sv_to (SV *sv, unapplymode &v) { v = (unapplymode) SvIV (sv); }
404
405inline void sv_to (SV *sv, std::string &v)
406{
407 STRLEN len;
408 char *data = SvPVbyte (sv, len);
409 v.assign (data, len);
410}
385 411
386inline void sv_to (SV *sv, UUID &v) 412inline void sv_to (SV *sv, UUID &v)
387{ 413{
388 unsigned int version; 414 unsigned int version;
389 415
… …
580 perl = perl_alloc (); 606 perl = perl_alloc ();
581 perl_construct (perl); 607 perl_construct (perl);
582 608
583 PL_exit_flags |= PERL_EXIT_DESTRUCT_END; 609 PL_exit_flags |= PERL_EXIT_DESTRUCT_END;
584 610
585 char *argv[] = { 611 const char *argv[] = {
586 "", 612 "",
587 "-e" 613 "-e"
588 "use Event; use Coro;" // required for bootstrap 614 "use Event; use Coro;" // required for bootstrap
589 "cf->bootstrap;" // required for datadir :*> 615 "cf->bootstrap;" // required for datadir :*>
590 "unshift @INC, cf::datadir ();" 616 "unshift @INC, cf::datadir ();"
591 "require cf;" 617 "require cf;"
592 }; 618 };
593 619
594 if (perl_parse (perl, xs_init, 2, argv, (char **)NULL) || perl_run (perl)) 620 if (perl_parse (perl, xs_init, 2, (char **)argv, (char **)NULL)
621 || perl_run (perl))
595 { 622 {
596 printf ("unable to initialize perl-interpreter, aborting.\n"); 623 printf ("unable to initialize perl-interpreter, aborting.\n");
597 exit (EXIT_FAILURE); 624 exit (EXIT_FAILURE);
598 } 625 }
626
627 {
628 dSP;
629
630 PUSHMARK (SP);
631 PUTBACK;
632 call_pv ("cf::init", G_DISCARD | G_VOID);
633 }
599} 634}
600 635
601void cfperl_main () 636void cfperl_main ()
602{ 637{
603 dSP; 638 dSP;
… …
824 CALL_BEGIN (0); 859 CALL_BEGIN (0);
825 CALL_CALL ("cf::emergency_save", G_VOID); 860 CALL_CALL ("cf::emergency_save", G_VOID);
826 CALL_END; 861 CALL_END;
827} 862}
828 863
864void
865cfperl_cleanup (int make_core)
866{
867 CALL_BEGIN (1);
868 CALL_ARG (make_core);
869 CALL_CALL ("cf::post_cleanup", G_VOID);
870 CALL_END;
871}
872
829maptile * 873maptile *
830maptile::find_sync (const char *path, maptile *origin) 874maptile::find_sync (const char *path, maptile *origin)
831{ 875{
832 CALL_BEGIN (2); 876 CALL_BEGIN (2);
833 CALL_ARG (path); 877 CALL_ARG (path);
… …
1007# define const_iv(name) { # name, (IV)name }, 1051# define const_iv(name) { # name, (IV)name },
1008 const_iv (llevError) 1052 const_iv (llevError)
1009 const_iv (llevInfo) 1053 const_iv (llevInfo)
1010 const_iv (llevDebug) 1054 const_iv (llevDebug)
1011 const_iv (llevMonster) 1055 const_iv (llevMonster)
1056
1057 const_iv (Map0Cmd)
1058 const_iv (Map1Cmd)
1059 const_iv (Map1aCmd)
1060
1061 const_iv (MAP_CLIENT_X)
1062 const_iv (MAP_CLIENT_Y)
1012 1063
1013 const_iv (MAX_TIME) 1064 const_iv (MAX_TIME)
1014 const_iv (PLAYER) 1065 const_iv (PLAYER)
1015 const_iv (TRANSPORT) 1066 const_iv (TRANSPORT)
1016 const_iv (ROD) 1067 const_iv (ROD)
… …
1551{ 1602{
1552 // reattach to all attachable objects in the game. 1603 // reattach to all attachable objects in the game.
1553 for_all_clients (ns) 1604 for_all_clients (ns)
1554 ns->reattach (); 1605 ns->reattach ();
1555 1606
1556 for_all_players (pl)
1557 pl->reattach ();
1558
1559 //TODO
1560 //for (map_container::iterator i = maps.begin (); i != maps.end (); ++i)
1561 // i->second->reattach ();
1562
1563 for_all_objects (op) 1607 for_all_objects (op)
1564 op->reattach (); 1608 op->reattach ();
1565} 1609}
1566 1610
1567NV floor (NV x) 1611NV floor (NV x)
… …
1607void 1651void
1608sub_generation_inc () 1652sub_generation_inc ()
1609 CODE: 1653 CODE:
1610 PL_sub_generation++; 1654 PL_sub_generation++;
1611 1655
1612char * 1656const char *
1613mapdir () 1657mapdir ()
1614 PROTOTYPE: 1658 PROTOTYPE:
1615 ALIAS: 1659 ALIAS:
1616 mapdir = 0 1660 mapdir = 0
1617 uniquedir = 1 1661 uniquedir = 1
… …
1639 1683
1640void cleanup (const char *cause, bool make_core = false) 1684void cleanup (const char *cause, bool make_core = false)
1641 1685
1642void emergency_save () 1686void emergency_save ()
1643 1687
1688void _exit (int status = EXIT_SUCCESS)
1689
1644UV sv_2watcher (SV *w) 1690UV sv_2watcher (SV *w)
1645 CODE: 1691 CODE:
1646 RETVAL = (UV)GEventAPI->sv_2watcher (w); 1692 RETVAL = (UV)GEventAPI->sv_2watcher (w);
1647 OUTPUT: 1693 OUTPUT:
1648 RETVAL 1694 RETVAL
1649
1650void _exit (int status = 0)
1651 1695
1652#if _POSIX_MEMLOCK 1696#if _POSIX_MEMLOCK
1653 1697
1654int mlockall (int flags = MCL_CURRENT | MCL_FUTURE) 1698int mlockall (int flags = MCL_CURRENT | MCL_FUTURE)
1655 1699
… …
1701 RETVAL = newSVpv (resist_plus[atnr], 0); 1745 RETVAL = newSVpv (resist_plus[atnr], 0);
1702 else 1746 else
1703 XSRETURN_UNDEF; 1747 XSRETURN_UNDEF;
1704 OUTPUT: RETVAL 1748 OUTPUT: RETVAL
1705 1749
1750bool
1751load_resource_file (const char *filename)
1752
1706MODULE = cf PACKAGE = cf::attachable 1753MODULE = cf PACKAGE = cf::attachable
1707 1754
1708int 1755int
1709valid (SV *obj) 1756valid (SV *obj)
1710 CODE: 1757 CODE:
1711 RETVAL = SvROK (obj) && mg_find (SvRV (obj), PERL_MAGIC_ext); 1758 RETVAL = SvROK (obj) && mg_find (SvRV (obj), PERL_MAGIC_ext);
1712 OUTPUT: 1759 OUTPUT:
1713 RETVAL 1760 RETVAL
1761
1762void
1763debug_trace (attachable *obj, bool on = true)
1764 CODE:
1765 obj->flags &= ~attachable::F_DEBUG_TRACE;
1766 if (on)
1767 obj->flags |= attachable::F_DEBUG_TRACE;
1714 1768
1715int mortals_size () 1769int mortals_size ()
1716 CODE: 1770 CODE:
1717 RETVAL = attachable::mortals.size (); 1771 RETVAL = attachable::mortals.size ();
1718 OUTPUT: RETVAL 1772 OUTPUT: RETVAL
… …
1720#object *mortals (U32 index) 1774#object *mortals (U32 index)
1721# CODE: 1775# CODE:
1722# RETVAL = index < attachable::mortals.size () ? attachable::mortals [index] : 0; 1776# RETVAL = index < attachable::mortals.size () ? attachable::mortals [index] : 0;
1723# OUTPUT: RETVAL 1777# OUTPUT: RETVAL
1724 1778
1725INCLUDE: $PERL genacc attachable ../include/cfperl.h | 1779INCLUDE: $PERL $srcdir/genacc attachable ../include/cfperl.h |
1726 1780
1727MODULE = cf PACKAGE = cf::global 1781MODULE = cf PACKAGE = cf::global
1728 1782
1729int invoke (SV *klass, int event, ...) 1783int invoke (SV *klass, int event, ...)
1730 CODE: 1784 CODE:
… …
1734 RETVAL = gbl_ev.invoke ((event_type)event, ARG_AV (av), DT_END); 1788 RETVAL = gbl_ev.invoke ((event_type)event, ARG_AV (av), DT_END);
1735 OUTPUT: RETVAL 1789 OUTPUT: RETVAL
1736 1790
1737MODULE = cf PACKAGE = cf::object PREFIX = cf_object_ 1791MODULE = cf PACKAGE = cf::object PREFIX = cf_object_
1738 1792
1739INCLUDE: $PERL genacc object ../include/object.h | 1793INCLUDE: $PERL $srcdir/genacc object ../include/object.h |
1740 1794
1741int invoke (object *op, int event, ...) 1795int invoke (object *op, int event, ...)
1742 CODE: 1796 CODE:
1743 if (KLASS_OF (event) != KLASS_OBJECT) croak ("event class must be OBJECT"); 1797 if (KLASS_OF (event) != KLASS_OBJECT) croak ("event class must be OBJECT");
1744 AV *av = (AV *)sv_2mortal ((SV *)newAV ()); 1798 AV *av = (AV *)sv_2mortal ((SV *)newAV ());
… …
1795void 1849void
1796set_animation (object *op, int idx) 1850set_animation (object *op, int idx)
1797 CODE: 1851 CODE:
1798 SET_ANIMATION (op, idx); 1852 SET_ANIMATION (op, idx);
1799 1853
1854int
1855num_animations (object *op)
1856 CODE:
1857 RETVAL = NUM_ANIMATIONS (op);
1858 OUTPUT: RETVAL
1859
1800object *find_best_object_match (object *op, const char *match) 1860object *find_best_object_match (object *op, const char *match)
1801 1861
1802object *find_marked_object (object *op) 1862object *find_marked_object (object *op)
1803 1863
1804int need_identify (object *obj); 1864int need_identify (object *obj);
1805 1865
1806int apply_shop_mat (object *shop_mat, object *op); 1866int apply_shop_mat (object *shop_mat, object *op);
1867
1868int move_player (object *op, int dir)
1869 CODE:
1870 RETVAL = move_player (op, dir);
1871 OUTPUT:
1872 RETVAL
1807 1873
1808int move (object *op, int dir, object *originator = op) 1874int move (object *op, int dir, object *originator = op)
1809 CODE: 1875 CODE:
1810 RETVAL = move_ob (op, dir, originator); 1876 RETVAL = move_ob (op, dir, originator);
1811 OUTPUT: 1877 OUTPUT:
… …
1816 manual_apply (applied, applier, flags); 1882 manual_apply (applied, applier, flags);
1817 1883
1818void apply_below (object *op) 1884void apply_below (object *op)
1819 CODE: 1885 CODE:
1820 player_apply_below (op); 1886 player_apply_below (op);
1887
1888int cast_heal (object *op, object *caster, object *spell, int dir = 0)
1821 1889
1822object *cf_object_present_archname_inside (object *op, char *whatstr) 1890object *cf_object_present_archname_inside (object *op, char *whatstr)
1823 1891
1824int cf_object_transfer (object *op, int x, int y, int r = 0, object_ornull *orig = 0) 1892int cf_object_transfer (object *op, int x, int y, int r = 0, object_ornull *orig = 0)
1825 1893
… …
2010 2078
2011int command_summon (object *op, char *params) 2079int command_summon (object *op, char *params)
2012 2080
2013int command_arrest (object *op, char *params) 2081int command_arrest (object *op, char *params)
2014 2082
2015int command_kick (object *op, char *params)
2016
2017int command_banish (object *op, char *params)
2018
2019 2083
2020MODULE = cf PACKAGE = cf::player PREFIX = cf_player_ 2084MODULE = cf PACKAGE = cf::player PREFIX = cf_player_
2021 2085
2022INCLUDE: $PERL genacc player ../include/player.h | 2086INCLUDE: $PERL $srcdir/genacc player ../include/player.h |
2023 2087
2024int invoke (player *pl, int event, ...) 2088int invoke (player *pl, int event, ...)
2025 CODE: 2089 CODE:
2026 if (KLASS_OF (event) != KLASS_PLAYER) croak ("event class must be PLAYER"); 2090 if (KLASS_OF (event) != KLASS_PLAYER) croak ("event class must be PLAYER");
2027 AV *av = (AV *)sv_2mortal ((SV *)newAV ()); 2091 AV *av = (AV *)sv_2mortal ((SV *)newAV ());
… …
2040 pl->orig_stats = pl->ob->stats; 2104 pl->orig_stats = pl->ob->stats;
2041 2105
2042void cf_player_move (player *pl, int dir) 2106void cf_player_move (player *pl, int dir)
2043 2107
2044void play_sound_player_only (player *pl, int soundnum, int x = 0, int y = 0); 2108void play_sound_player_only (player *pl, int soundnum, int x = 0, int y = 0);
2045
2046player *first ()
2047 CODE:
2048 RETVAL = first_player;
2049 OUTPUT: RETVAL
2050 2109
2051bool 2110bool
2052cell_visible (player *pl, int dx, int dy) 2111cell_visible (player *pl, int dx, int dy)
2053 CODE: 2112 CODE:
2054 RETVAL = FABS (dx) <= pl->ns->mapx / 2 && FABS (dy) <= pl->ns->mapy / 2 2113 RETVAL = FABS (dx) <= pl->ns->mapx / 2 && FABS (dy) <= pl->ns->mapy / 2
… …
2107 RETVAL = map->invoke ((event_type)event, ARG_AV (av), DT_END); 2166 RETVAL = map->invoke ((event_type)event, ARG_AV (av), DT_END);
2108 OUTPUT: RETVAL 2167 OUTPUT: RETVAL
2109 2168
2110SV *registry (maptile *map) 2169SV *registry (maptile *map)
2111 2170
2112INCLUDE: $PERL genacc maptile ../include/map.h | 2171INCLUDE: $PERL $srcdir/genacc maptile ../include/map.h |
2113 2172
2114void 2173void
2115maptile::instantiate () 2174maptile::instantiate ()
2116 2175
2117maptile *new () 2176maptile *new ()
… …
2131 EXTEND (SP, THIS->players); 2190 EXTEND (SP, THIS->players);
2132 for_all_players (pl) 2191 for_all_players (pl)
2133 if (pl->ob && pl->ob->map == THIS) 2192 if (pl->ob && pl->ob->map == THIS)
2134 PUSHs (sv_2mortal (to_sv (pl->ob))); 2193 PUSHs (sv_2mortal (to_sv (pl->ob)));
2135 } 2194 }
2195
2196void
2197maptile::add_underlay (SV *data, int offset, int stride, SV *palette)
2198 CODE:
2199{
2200 if (!SvROK (palette) || SvTYPE (SvRV (palette)) != SVt_PVAV)
2201 croak ("maptile::add_underlay: palette must be arrayref");
2202
2203 palette = SvRV (palette);
2204
2205 STRLEN idxlen;
2206 const uint8_t *idx = (const uint8_t *)SvPVbyte (data, idxlen);
2207
2208 for (int x = 0; x < THIS->width; ++x)
2209 for (int y = 0; y < THIS->height; ++y)
2210 {
2211 for (object *op = THIS->at (x, y).bot; op; op = op->above)
2212 if (op->flag [FLAG_IS_FLOOR])
2213 goto skip_space;
2214
2215 {
2216 int offs = offset + y * stride + x;
2217 if (IN_RANGE_EXC (offs, 0, idxlen))
2218 {
2219 if (SV **elem = av_fetch ((AV *)palette, idx [offs], 0))
2220 {
2221 object *ob = get_archetype (SvPVutf8_nolen (*elem));
2222 ob->flag [FLAG_NO_MAP_SAVE] = true;
2223 THIS->insert (ob, x, y, 0, INS_ABOVE_FLOOR_ONLY);
2224 }
2225 }
2226 }
2227
2228 skip_space: ;
2229 }
2230}
2231
2232void
2233maptile::set_regiondata (SV *data, int offset, int stride, SV *palette)
2234 CODE:
2235{
2236 if (!SvROK (palette) || SvTYPE (SvRV (palette)) != SVt_PVAV)
2237 croak ("maptile::set_regiondata: palette must be arrayref");
2238
2239 palette = SvRV (palette);
2240
2241 STRLEN idxlen;
2242 const uint8_t *idx = (const uint8_t *)SvPVbyte (data, idxlen);
2243
2244 region **regionmap = (region **)malloc (
2245 (av_len ((AV *)palette) + 1) * sizeof (region *));
2246 uint8_t *regions = salloc<uint8_t> (THIS->size ());
2247
2248 for (int i = av_len ((AV *)palette) + 1; i--; )
2249 regionmap [i] = region::find (
2250 SvPVutf8_nolen (*av_fetch ((AV *)palette, i, 1)));
2251
2252 for (int y = 0; y < THIS->height; ++y)
2253 memcpy (regions + y * THIS->width, idx + offset + y * stride, THIS->width);
2254
2255 sfree (THIS->regions, THIS->size ());
2256 free (THIS->regionmap);
2257
2258 THIS->regions = regions;
2259 THIS->regionmap = regionmap;
2260}
2136 2261
2137void play_sound_map (maptile *map, int x, int y, int sound_num) 2262void play_sound_map (maptile *map, int x, int y, int sound_num)
2138 2263
2139int out_of_map (maptile *map, int x, int y) 2264int out_of_map (maptile *map, int x, int y)
2140 2265
… …
2221 OUTPUT: RETVAL 2346 OUTPUT: RETVAL
2222 2347
2223void fix_walls (maptile *map, int x, int y) 2348void fix_walls (maptile *map, int x, int y)
2224 2349
2225void fix_walls_around (maptile *map, int x, int y) 2350void fix_walls_around (maptile *map, int x, int y)
2226
2227const char *
2228region_name (maptile *m)
2229 CODE:
2230 RETVAL = get_name_of_region_for_map (m);
2231 OUTPUT: RETVAL
2232 2351
2233# worst xs function of my life 2352# worst xs function of my life
2234bool 2353bool
2235_create_random_map (\ 2354_create_random_map (\
2236 maptile *self,\ 2355 maptile *self,\
… …
2330 PROTOTYPE: 2449 PROTOTYPE:
2331 CODE: 2450 CODE:
2332 RETVAL = first_archetype; 2451 RETVAL = first_archetype;
2333 OUTPUT: RETVAL 2452 OUTPUT: RETVAL
2334 2453
2335INCLUDE: $PERL genacc archetype ../include/object.h | 2454INCLUDE: $PERL $srcdir/genacc archetype ../include/object.h |
2336 2455
2337MODULE = cf PACKAGE = cf::party 2456MODULE = cf PACKAGE = cf::party
2338 2457
2339partylist *first () 2458partylist *first ()
2340 PROTOTYPE: 2459 PROTOTYPE:
2341 CODE: 2460 CODE:
2342 RETVAL = get_firstparty (); 2461 RETVAL = get_firstparty ();
2343 OUTPUT: RETVAL 2462 OUTPUT: RETVAL
2344 2463
2345INCLUDE: $PERL genacc partylist ../include/player.h | 2464INCLUDE: $PERL $srcdir/genacc partylist ../include/player.h |
2346 2465
2347MODULE = cf PACKAGE = cf::region 2466MODULE = cf PACKAGE = cf::region
2348 2467
2349region *first () 2468void
2350 PROTOTYPE: 2469list ()
2351 CODE: 2470 PPCODE:
2352 RETVAL = first_region; 2471 for_all_regions (rgn)
2353 OUTPUT: RETVAL 2472 XPUSHs (sv_2mortal (to_sv (rgn)));
2354 2473
2355region *find (char *name) 2474region *find (char *name)
2356 PROTOTYPE: $ 2475 PROTOTYPE: $
2357 CODE: 2476 CODE:
2358 RETVAL = get_region_by_name (name); 2477 RETVAL = region::find (name);
2359 OUTPUT: RETVAL 2478 OUTPUT: RETVAL
2360 2479
2480region *find_fuzzy (char *name)
2481 PROTOTYPE: $
2482 CODE:
2483 RETVAL = region::find_fuzzy (name);
2484 OUTPUT: RETVAL
2485
2361INCLUDE: $PERL genacc region ../include/map.h | 2486INCLUDE: $PERL $srcdir/genacc region ../include/map.h |
2362 2487
2363MODULE = cf PACKAGE = cf::living 2488MODULE = cf PACKAGE = cf::living
2364 2489
2365INCLUDE: $PERL genacc living ../include/living.h | 2490INCLUDE: $PERL $srcdir/genacc living ../include/living.h |
2366 2491
2367MODULE = cf PACKAGE = cf::settings 2492MODULE = cf PACKAGE = cf::settings
2368 2493
2369INCLUDE: $PERL genacc Settings ../include/global.h | 2494INCLUDE: $PERL $srcdir/genacc Settings ../include/global.h |
2370 2495
2371MODULE = cf PACKAGE = cf::client 2496MODULE = cf PACKAGE = cf::client
2372 2497
2373INCLUDE: $PERL genacc client ../include/client.h | 2498INCLUDE: $PERL $srcdir/genacc client ../include/client.h |
2374 2499
2375int invoke (client *ns, int event, ...) 2500int invoke (client *ns, int event, ...)
2376 CODE: 2501 CODE:
2377 if (KLASS_OF (event) != KLASS_CLIENT) croak ("event class must be CLIENT"); 2502 if (KLASS_OF (event) != KLASS_CLIENT) croak ("event class must be CLIENT");
2378 AV *av = (AV *)sv_2mortal ((SV *)newAV ()); 2503 AV *av = (AV *)sv_2mortal ((SV *)newAV ());
… …
2397 char *buf = SvPVbyte (packet, len); 2522 char *buf = SvPVbyte (packet, len);
2398 2523
2399 THIS->send_packet (buf, len); 2524 THIS->send_packet (buf, len);
2400} 2525}
2401 2526
2527MODULE = cf PACKAGE = cf::face PREFIX = face_
2528
2529INCLUDE: $PERL $srcdir/genacc faceset ../include/face.h |
2530
2531faceidx face_find (const char *name, faceidx defidx = 0)
2532
2533faceidx alloc (const char *name)
2534 CODE:
2535{
2536 do
2537 {
2538 RETVAL = faces.size ();
2539 faces.resize (RETVAL + 1);
2540 }
2541 while (!RETVAL); // crude way to leave index 0
2542
2543 faces [RETVAL].name = name;
2544 facehash.insert (std::make_pair (faces [RETVAL].name, RETVAL));
2545
2546 if (!strcmp (name, BLANK_FACE_NAME)) blank_face = RETVAL;
2547 if (!strcmp (name, EMPTY_FACE_NAME)) empty_face = RETVAL;
2548}
2549 OUTPUT: RETVAL
2550
2551void set (faceidx idx, int visibility, int magicmap)
2552 CODE:
2553 faceinfo *f = face_info (idx);
2554 assert (f);
2555 f->visibility = visibility;
2556 f->magicmap = magicmap;
2557
2558void set_smooth (faceidx idx, faceidx smooth)
2559 CODE:
2560 faceinfo *f = face_info (idx);
2561 assert (f);
2562 f->smooth = smooth;
2563
2564void set_data (faceidx idx, int faceset, SV *data, SV *chksum)
2565 CODE:
2566 facedata *d = face_data (idx, faceset);
2567 assert (d);
2568 sv_to (data, d->data);
2569 STRLEN clen;
2570 char *cdata = SvPVbyte (chksum, clen);
2571 memcpy (d->chksum, cdata, min (CHKSUM_SIZE, clen));
2572
2573void invalidate (faceidx idx)
2574 CODE:
2575 for_all_clients (ns)
2576 ns->faces_sent [idx] = false;
2577
2578void invalidate_all ()
2579 CODE:
2580 for_all_clients (ns)
2581 ns->faces_sent.reset ();
2582

Diff Legend

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