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.158 by root, Mon Jan 29 14:46:01 2007 UTC vs.
Revision 1.176 by root, Sun Mar 11 02:12:45 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
… …
126 sv_unmagic ((SV *)self, PERL_MAGIC_ext); 128 sv_unmagic ((SV *)self, PERL_MAGIC_ext);
127 SvREFCNT_dec (self); 129 SvREFCNT_dec (self);
128 130
129 // self *must* be null now because thats sv_unmagic's job. 131 // self *must* be null now because thats sv_unmagic's job.
130 assert (!this->self); 132 assert (!this->self);
133 flags |= 0x80; // severed //D
131 } 134 }
132} 135}
133 136
134void 137void
135attachable::optimise () 138attachable::optimise ()
136{ 139{
137 if (self 140 if (self
138 && SvREFCNT (self) == 1 141 && SvREFCNT (self) == 1
139 && !HvTOTALKEYS (self)) 142 && !HvTOTALKEYS (self))
143 flags |= 0x40,//D
140 sever_self (); 144 sever_self ();
141} 145}
142 146
143// check wether the object really is dead 147// check wether the object really is dead
144void 148void
… …
162 } 166 }
163 167
164 if (self) 168 if (self)
165 sever_self (); 169 sever_self ();
166 170
171 flags |= 0x20; //D
167 mortals.push_back (this); 172 mortals.push_back (this);
168} 173}
169 174
170void 175void
171attachable::destroy () 176attachable::destroy ()
… …
266 271
267 if (!obj->self) 272 if (!obj->self)
268 { 273 {
269 obj->self = newHV (); 274 obj->self = newHV ();
270 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
271 279
272 // now bless the object _once_ 280 // now bless the object _once_
273 return sv_bless (newRV_inc ((SV *)obj->self), stash); 281 return sv_bless (newRV_inc ((SV *)obj->self), stash);
274 } 282 }
275 else 283 else
… …
341inline 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); }
342 350
343inline SV *to_sv (object & v) { return to_sv (&v); } 351inline SV *to_sv (object & v) { return to_sv (&v); }
344inline SV *to_sv (living & v) { return to_sv (&v); } 352inline SV *to_sv (living & v) { return to_sv (&v); }
345 353
346inline SV *to_sv (facetile * v) { return to_sv (v->name); } 354//inline SV *to_sv (faceinfo * v) { return to_sv (v->name); }
347inline 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 ()); }
348 357
349inline SV *to_sv (UUID v) 358inline SV *to_sv (UUID v)
350{ 359{
351 char buf[128]; 360 char buf[128];
352 snprintf (buf, 128, "<1,%" PRIx64 ">", v.seq); 361 snprintf (buf, 128, "<1.%" PRIx64 ">", v.seq);
353 return newSVpv (buf, 0); 362 return newSVpv (buf, 0);
354} 363}
355 364
356inline 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; }
357inline 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; }
… …
376inline 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"); }
377inline 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"); }
378inline 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"); }
379inline 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"); }
380 389
381inline 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)]; }
382inline 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)); }
383 392
384template<class T> 393template<class T>
385inline 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; }
386 395
… …
390inline void sv_to (SV *sv, rangetype &v) { v = (rangetype) SvIV (sv); } 399inline void sv_to (SV *sv, rangetype &v) { v = (rangetype) SvIV (sv); }
391inline 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); }
392inline 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); }
393inline void sv_to (SV *sv, usekeytype &v) { v = (usekeytype) SvIV (sv); } 402inline void sv_to (SV *sv, usekeytype &v) { v = (usekeytype) SvIV (sv); }
394inline 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}
395 411
396inline void sv_to (SV *sv, UUID &v) 412inline void sv_to (SV *sv, UUID &v)
397{ 413{
398 unsigned int version; 414 unsigned int version;
399 415
… …
604 if (perl_parse (perl, xs_init, 2, argv, (char **)NULL) || perl_run (perl)) 620 if (perl_parse (perl, xs_init, 2, argv, (char **)NULL) || perl_run (perl))
605 { 621 {
606 printf ("unable to initialize perl-interpreter, aborting.\n"); 622 printf ("unable to initialize perl-interpreter, aborting.\n");
607 exit (EXIT_FAILURE); 623 exit (EXIT_FAILURE);
608 } 624 }
625
626 {
627 dSP;
628
629 PUSHMARK (SP);
630 PUTBACK;
631 call_pv ("cf::init", G_DISCARD | G_VOID);
632 }
609} 633}
610 634
611void cfperl_main () 635void cfperl_main ()
612{ 636{
613 dSP; 637 dSP;
… …
831void 855void
832cfperl_emergency_save () 856cfperl_emergency_save ()
833{ 857{
834 CALL_BEGIN (0); 858 CALL_BEGIN (0);
835 CALL_CALL ("cf::emergency_save", G_VOID); 859 CALL_CALL ("cf::emergency_save", G_VOID);
860 CALL_END;
861}
862
863void
864cfperl_cleanup (int make_core)
865{
866 CALL_BEGIN (1);
867 CALL_ARG (make_core);
868 CALL_CALL ("cf::post_cleanup", G_VOID);
836 CALL_END; 869 CALL_END;
837} 870}
838 871
839maptile * 872maptile *
840maptile::find_sync (const char *path, maptile *origin) 873maptile::find_sync (const char *path, maptile *origin)
… …
1561{ 1594{
1562 // reattach to all attachable objects in the game. 1595 // reattach to all attachable objects in the game.
1563 for_all_clients (ns) 1596 for_all_clients (ns)
1564 ns->reattach (); 1597 ns->reattach ();
1565 1598
1566 for_all_players (pl)
1567 pl->reattach ();
1568
1569 //TODO
1570 //for (map_container::iterator i = maps.begin (); i != maps.end (); ++i)
1571 // i->second->reattach ();
1572
1573 for_all_objects (op) 1599 for_all_objects (op)
1574 op->reattach (); 1600 op->reattach ();
1575} 1601}
1576 1602
1577NV floor (NV x) 1603NV floor (NV x)
… …
1711 RETVAL = newSVpv (resist_plus[atnr], 0); 1737 RETVAL = newSVpv (resist_plus[atnr], 0);
1712 else 1738 else
1713 XSRETURN_UNDEF; 1739 XSRETURN_UNDEF;
1714 OUTPUT: RETVAL 1740 OUTPUT: RETVAL
1715 1741
1742bool
1743load_resource_file (const char *filename)
1744
1716MODULE = cf PACKAGE = cf::attachable 1745MODULE = cf PACKAGE = cf::attachable
1717 1746
1718int 1747int
1719valid (SV *obj) 1748valid (SV *obj)
1720 CODE: 1749 CODE:
1721 RETVAL = SvROK (obj) && mg_find (SvRV (obj), PERL_MAGIC_ext); 1750 RETVAL = SvROK (obj) && mg_find (SvRV (obj), PERL_MAGIC_ext);
1722 OUTPUT: 1751 OUTPUT:
1723 RETVAL 1752 RETVAL
1753
1754void
1755debug_trace (attachable *obj, bool on = true)
1756 CODE:
1757 obj->flags &= ~attachable::F_DEBUG_TRACE;
1758 if (on)
1759 obj->flags |= attachable::F_DEBUG_TRACE;
1724 1760
1725int mortals_size () 1761int mortals_size ()
1726 CODE: 1762 CODE:
1727 RETVAL = attachable::mortals.size (); 1763 RETVAL = attachable::mortals.size ();
1728 OUTPUT: RETVAL 1764 OUTPUT: RETVAL
… …
1730#object *mortals (U32 index) 1766#object *mortals (U32 index)
1731# CODE: 1767# CODE:
1732# RETVAL = index < attachable::mortals.size () ? attachable::mortals [index] : 0; 1768# RETVAL = index < attachable::mortals.size () ? attachable::mortals [index] : 0;
1733# OUTPUT: RETVAL 1769# OUTPUT: RETVAL
1734 1770
1735INCLUDE: $PERL genacc attachable ../include/cfperl.h | 1771INCLUDE: $PERL $srcdir/genacc attachable ../include/cfperl.h |
1736 1772
1737MODULE = cf PACKAGE = cf::global 1773MODULE = cf PACKAGE = cf::global
1738 1774
1739int invoke (SV *klass, int event, ...) 1775int invoke (SV *klass, int event, ...)
1740 CODE: 1776 CODE:
… …
1744 RETVAL = gbl_ev.invoke ((event_type)event, ARG_AV (av), DT_END); 1780 RETVAL = gbl_ev.invoke ((event_type)event, ARG_AV (av), DT_END);
1745 OUTPUT: RETVAL 1781 OUTPUT: RETVAL
1746 1782
1747MODULE = cf PACKAGE = cf::object PREFIX = cf_object_ 1783MODULE = cf PACKAGE = cf::object PREFIX = cf_object_
1748 1784
1749INCLUDE: $PERL genacc object ../include/object.h | 1785INCLUDE: $PERL $srcdir/genacc object ../include/object.h |
1750 1786
1751int invoke (object *op, int event, ...) 1787int invoke (object *op, int event, ...)
1752 CODE: 1788 CODE:
1753 if (KLASS_OF (event) != KLASS_OBJECT) croak ("event class must be OBJECT"); 1789 if (KLASS_OF (event) != KLASS_OBJECT) croak ("event class must be OBJECT");
1754 AV *av = (AV *)sv_2mortal ((SV *)newAV ()); 1790 AV *av = (AV *)sv_2mortal ((SV *)newAV ());
… …
1805void 1841void
1806set_animation (object *op, int idx) 1842set_animation (object *op, int idx)
1807 CODE: 1843 CODE:
1808 SET_ANIMATION (op, idx); 1844 SET_ANIMATION (op, idx);
1809 1845
1846int
1847num_animations (object *op)
1848 CODE:
1849 RETVAL = NUM_ANIMATIONS (op);
1850 OUTPUT: RETVAL
1851
1810object *find_best_object_match (object *op, const char *match) 1852object *find_best_object_match (object *op, const char *match)
1811 1853
1812object *find_marked_object (object *op) 1854object *find_marked_object (object *op)
1813 1855
1814int need_identify (object *obj); 1856int need_identify (object *obj);
1815 1857
1816int apply_shop_mat (object *shop_mat, object *op); 1858int apply_shop_mat (object *shop_mat, object *op);
1859
1860int move_player (object *op, int dir)
1861 CODE:
1862 RETVAL = move_player (op, dir);
1863 OUTPUT:
1864 RETVAL
1817 1865
1818int move (object *op, int dir, object *originator = op) 1866int move (object *op, int dir, object *originator = op)
1819 CODE: 1867 CODE:
1820 RETVAL = move_ob (op, dir, originator); 1868 RETVAL = move_ob (op, dir, originator);
1821 OUTPUT: 1869 OUTPUT:
… …
1826 manual_apply (applied, applier, flags); 1874 manual_apply (applied, applier, flags);
1827 1875
1828void apply_below (object *op) 1876void apply_below (object *op)
1829 CODE: 1877 CODE:
1830 player_apply_below (op); 1878 player_apply_below (op);
1879
1880int cast_heal (object *op, object *caster, object *spell, int dir = 0)
1831 1881
1832object *cf_object_present_archname_inside (object *op, char *whatstr) 1882object *cf_object_present_archname_inside (object *op, char *whatstr)
1833 1883
1834int cf_object_transfer (object *op, int x, int y, int r = 0, object_ornull *orig = 0) 1884int cf_object_transfer (object *op, int x, int y, int r = 0, object_ornull *orig = 0)
1835 1885
… …
2020 2070
2021int command_summon (object *op, char *params) 2071int command_summon (object *op, char *params)
2022 2072
2023int command_arrest (object *op, char *params) 2073int command_arrest (object *op, char *params)
2024 2074
2025int command_kick (object *op, char *params)
2026
2027int command_banish (object *op, char *params)
2028
2029 2075
2030MODULE = cf PACKAGE = cf::player PREFIX = cf_player_ 2076MODULE = cf PACKAGE = cf::player PREFIX = cf_player_
2031 2077
2032INCLUDE: $PERL genacc player ../include/player.h | 2078INCLUDE: $PERL $srcdir/genacc player ../include/player.h |
2033 2079
2034int invoke (player *pl, int event, ...) 2080int invoke (player *pl, int event, ...)
2035 CODE: 2081 CODE:
2036 if (KLASS_OF (event) != KLASS_PLAYER) croak ("event class must be PLAYER"); 2082 if (KLASS_OF (event) != KLASS_PLAYER) croak ("event class must be PLAYER");
2037 AV *av = (AV *)sv_2mortal ((SV *)newAV ()); 2083 AV *av = (AV *)sv_2mortal ((SV *)newAV ());
… …
2050 pl->orig_stats = pl->ob->stats; 2096 pl->orig_stats = pl->ob->stats;
2051 2097
2052void cf_player_move (player *pl, int dir) 2098void cf_player_move (player *pl, int dir)
2053 2099
2054void play_sound_player_only (player *pl, int soundnum, int x = 0, int y = 0); 2100void play_sound_player_only (player *pl, int soundnum, int x = 0, int y = 0);
2055
2056player *first ()
2057 CODE:
2058 RETVAL = first_player;
2059 OUTPUT: RETVAL
2060 2101
2061bool 2102bool
2062cell_visible (player *pl, int dx, int dy) 2103cell_visible (player *pl, int dx, int dy)
2063 CODE: 2104 CODE:
2064 RETVAL = FABS (dx) <= pl->ns->mapx / 2 && FABS (dy) <= pl->ns->mapy / 2 2105 RETVAL = FABS (dx) <= pl->ns->mapx / 2 && FABS (dy) <= pl->ns->mapy / 2
… …
2117 RETVAL = map->invoke ((event_type)event, ARG_AV (av), DT_END); 2158 RETVAL = map->invoke ((event_type)event, ARG_AV (av), DT_END);
2118 OUTPUT: RETVAL 2159 OUTPUT: RETVAL
2119 2160
2120SV *registry (maptile *map) 2161SV *registry (maptile *map)
2121 2162
2122INCLUDE: $PERL genacc maptile ../include/map.h | 2163INCLUDE: $PERL $srcdir/genacc maptile ../include/map.h |
2123 2164
2124void 2165void
2125maptile::instantiate () 2166maptile::instantiate ()
2126 2167
2127maptile *new () 2168maptile *new ()
… …
2143 if (pl->ob && pl->ob->map == THIS) 2184 if (pl->ob && pl->ob->map == THIS)
2144 PUSHs (sv_2mortal (to_sv (pl->ob))); 2185 PUSHs (sv_2mortal (to_sv (pl->ob)));
2145 } 2186 }
2146 2187
2147void 2188void
2148maptile::set_regiondata (SV *data, SV *plt) 2189maptile::add_underlay (SV *data, int offset, int stride, SV *palette)
2149 CODE: 2190 CODE:
2150{ 2191{
2151 if (!SvROK (plt) || SvTYPE (SvRV (plt)) != SVt_PVAV) 2192 if (!SvROK (palette) || SvTYPE (SvRV (palette)) != SVt_PVAV)
2193 croak ("maptile::add_underlay: palette must be arrayref");
2194
2195 palette = SvRV (palette);
2196
2197 STRLEN idxlen;
2198 const uint8_t *idx = (const uint8_t *)SvPVbyte (data, idxlen);
2199
2200 for (int x = 0; x < THIS->width; ++x)
2201 for (int y = 0; y < THIS->height; ++y)
2202 {
2203 for (object *op = THIS->at (x, y).bot; op; op = op->above)
2204 if (op->flag [FLAG_IS_FLOOR])
2205 goto skip_space;
2206
2207 {
2208 int offs = offset + y * stride + x;
2209 if (IN_RANGE_EXC (offs, 0, idxlen))
2210 {
2211 if (SV **elem = av_fetch ((AV *)palette, idx [offs], 0))
2212 {
2213 object *ob = get_archetype (SvPVutf8_nolen (*elem));
2214 ob->flag [FLAG_NO_MAP_SAVE] = true;
2215 THIS->insert (ob, x, y, 0, INS_ABOVE_FLOOR_ONLY);
2216 }
2217 }
2218 }
2219
2220 skip_space: ;
2221 }
2222}
2223
2224void
2225maptile::set_regiondata (SV *data, int offset, int stride, SV *palette)
2226 CODE:
2227{
2228 if (!SvROK (palette) || SvTYPE (SvRV (palette)) != SVt_PVAV)
2152 croak ("maptile::set_regiondata needs arrayref as plt arg"); 2229 croak ("maptile::set_regiondata: palette must be arrayref");
2153 2230
2154 AV *av = (AV *)SvRV (plt); 2231 palette = SvRV (palette);
2155 2232
2156 region **regionmap = (region **)malloc ((av_len (av) + 1) * sizeof (region *)); 2233 STRLEN idxlen;
2234 const uint8_t *idx = (const uint8_t *)SvPVbyte (data, idxlen);
2157 2235
2236 region **regionmap = (region **)malloc (
2237 (av_len ((AV *)palette) + 1) * sizeof (region *));
2238 uint8_t *regions = salloc<uint8_t> (THIS->size ());
2239
2158 for (int i = av_len (av) + 1; i--; ) 2240 for (int i = av_len ((AV *)palette) + 1; i--; )
2159 regionmap [i] = region::find (SvPVutf8_nolen (*av_fetch (av, i, 1))); 2241 regionmap [i] = region::find (
2242 SvPVutf8_nolen (*av_fetch ((AV *)palette, i, 1)));
2160 2243
2161 THIS->regions = salloc<uint8_t> (THIS->size (), (uint8_t *)SvPVbyte_nolen (data)); 2244 for (int y = 0; y < THIS->height; ++y)
2245 memcpy (regions + y * THIS->width, idx + offset + y * stride, THIS->width);
2246
2247 sfree (THIS->regions, THIS->size ());
2248 free (THIS->regionmap);
2249
2250 THIS->regions = regions;
2162 THIS->regionmap = regionmap; 2251 THIS->regionmap = regionmap;
2163} 2252}
2164 2253
2165void play_sound_map (maptile *map, int x, int y, int sound_num) 2254void play_sound_map (maptile *map, int x, int y, int sound_num)
2166 2255
… …
2352 PROTOTYPE: 2441 PROTOTYPE:
2353 CODE: 2442 CODE:
2354 RETVAL = first_archetype; 2443 RETVAL = first_archetype;
2355 OUTPUT: RETVAL 2444 OUTPUT: RETVAL
2356 2445
2357INCLUDE: $PERL genacc archetype ../include/object.h | 2446INCLUDE: $PERL $srcdir/genacc archetype ../include/object.h |
2358 2447
2359MODULE = cf PACKAGE = cf::party 2448MODULE = cf PACKAGE = cf::party
2360 2449
2361partylist *first () 2450partylist *first ()
2362 PROTOTYPE: 2451 PROTOTYPE:
2363 CODE: 2452 CODE:
2364 RETVAL = get_firstparty (); 2453 RETVAL = get_firstparty ();
2365 OUTPUT: RETVAL 2454 OUTPUT: RETVAL
2366 2455
2367INCLUDE: $PERL genacc partylist ../include/player.h | 2456INCLUDE: $PERL $srcdir/genacc partylist ../include/player.h |
2368 2457
2369MODULE = cf PACKAGE = cf::region 2458MODULE = cf PACKAGE = cf::region
2370 2459
2371region *first () 2460void
2372 PROTOTYPE: 2461list ()
2373 CODE: 2462 PPCODE:
2374 RETVAL = first_region; 2463 for_all_regions (rgn)
2375 OUTPUT: RETVAL 2464 XPUSHs (sv_2mortal (to_sv (rgn)));
2376 2465
2377region *find (char *name) 2466region *find (char *name)
2378 PROTOTYPE: $ 2467 PROTOTYPE: $
2379 CODE: 2468 CODE:
2380 RETVAL = region::find (name); 2469 RETVAL = region::find (name);
2381 OUTPUT: RETVAL 2470 OUTPUT: RETVAL
2382 2471
2472region *find_fuzzy (char *name)
2473 PROTOTYPE: $
2474 CODE:
2475 RETVAL = region::find_fuzzy (name);
2476 OUTPUT: RETVAL
2477
2383INCLUDE: $PERL genacc region ../include/map.h | 2478INCLUDE: $PERL $srcdir/genacc region ../include/map.h |
2384 2479
2385MODULE = cf PACKAGE = cf::living 2480MODULE = cf PACKAGE = cf::living
2386 2481
2387INCLUDE: $PERL genacc living ../include/living.h | 2482INCLUDE: $PERL $srcdir/genacc living ../include/living.h |
2388 2483
2389MODULE = cf PACKAGE = cf::settings 2484MODULE = cf PACKAGE = cf::settings
2390 2485
2391INCLUDE: $PERL genacc Settings ../include/global.h | 2486INCLUDE: $PERL $srcdir/genacc Settings ../include/global.h |
2392 2487
2393MODULE = cf PACKAGE = cf::client 2488MODULE = cf PACKAGE = cf::client
2394 2489
2395INCLUDE: $PERL genacc client ../include/client.h | 2490INCLUDE: $PERL $srcdir/genacc client ../include/client.h |
2396 2491
2397int invoke (client *ns, int event, ...) 2492int invoke (client *ns, int event, ...)
2398 CODE: 2493 CODE:
2399 if (KLASS_OF (event) != KLASS_CLIENT) croak ("event class must be CLIENT"); 2494 if (KLASS_OF (event) != KLASS_CLIENT) croak ("event class must be CLIENT");
2400 AV *av = (AV *)sv_2mortal ((SV *)newAV ()); 2495 AV *av = (AV *)sv_2mortal ((SV *)newAV ());
… …
2419 char *buf = SvPVbyte (packet, len); 2514 char *buf = SvPVbyte (packet, len);
2420 2515
2421 THIS->send_packet (buf, len); 2516 THIS->send_packet (buf, len);
2422} 2517}
2423 2518
2519MODULE = cf PACKAGE = cf::face PREFIX = face_
2520
2521INCLUDE: $PERL $srcdir/genacc faceset ../include/face.h |
2522
2523int face_find (const char *name, int defidx = 0)
2524
2525int alloc (const char *name)
2526 CODE:
2527{
2528 do
2529 {
2530 RETVAL = faces.size ();
2531 faces.resize (RETVAL + 1);
2532 face32.resize (RETVAL + 1);
2533 face64.resize (RETVAL + 1);
2534 }
2535 while (!RETVAL); // crude way to leave index 0
2536
2537 faces [RETVAL].name = name;
2538 facehash.insert (std::make_pair (faces [RETVAL].name, RETVAL));
2539
2540 if (!strcmp (name, BLANK_FACE_NAME)) blank_face = RETVAL;
2541 if (!strcmp (name, EMPTY_FACE_NAME)) empty_face = RETVAL;
2542}
2543 OUTPUT: RETVAL
2544
2545void set (int idx, int visibility, int magicmap)
2546 CODE:
2547 faces [idx].visibility = visibility;
2548 faces [idx].magicmap = magicmap;
2549
2550void set_data (int idx, int faceset, SV *data, SV *chksum)
2551 CODE:
2552 facedata *d = face_data (idx, faceset);
2553 assert (sv_len (chksum) == CHKSUM_SIZE);
2554 sv_to (data, d->data); memcpy (d->chksum, SvPVbyte_nolen (chksum), CHKSUM_SIZE);
2555

Diff Legend

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