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.414 by root, Tue Oct 30 17:07:50 2012 UTC vs.
Revision 1.429 by root, Sat Nov 17 23:33:18 2018 UTC

1/* 1/*
2 * This file is part of Deliantra, the Roguelike Realtime MMORPG. 2 * This file is part of Deliantra, the Roguelike Realtime MMORPG.
3 * 3 *
4 * Copyright (©) 2018 Marc Alexander Lehmann / the Deliantra team
4 * Copyright (©) 2006,2007,2008,2009,2010,2012 Marc Alexander Lehmann / Robin Redeker / the Deliantra team 5 * Copyright (©) 2006,2007,2008,2009,2010,2012,2015 Marc Alexander Lehmann / Robin Redeker / the Deliantra team
5 * 6 *
6 * Deliantra is free software: you can redistribute it and/or modify it under 7 * Deliantra is free software: you can redistribute it and/or modify it under
7 * the terms of the Affero GNU General Public License as published by the 8 * the terms of the Affero GNU General Public License as published by the
8 * Free Software Foundation, either version 3 of the License, or (at your 9 * Free Software Foundation, either version 3 of the License, or (at your
9 * option) any later version. 10 * option) any later version.
… …
20 * The authors can be reached via e-mail to <support@deliantra.net> 21 * The authors can be reached via e-mail to <support@deliantra.net>
21 */ 22 */
22 23
23#include "autoconf.h" 24#include "autoconf.h"
24 25
26#define CFPERL 1
27
25#if HAVE_EXECINFO_H 28#if HAVE_EXECINFO_H
26# include <execinfo.h> 29# include <execinfo.h>
27#endif 30#endif
28 31
29#include <cstdarg> 32#include <cstdarg>
… …
92 95
93static SV 96static SV
94 *cv_cf_do_invoke, 97 *cv_cf_do_invoke,
95 *cv_cf__can_merge, 98 *cv_cf__can_merge,
96 *cv_cf_client_send_msg, 99 *cv_cf_client_send_msg,
100 *cv_cf_ix,
97 *cv_cf_tick, 101 *cv_cf_tick,
98 *cv_cf_match_match; 102 *cv_cf_match_match;
99 103
100#ifndef newSVpv_utf8 104#ifndef newSVpv_utf8
101static SV * 105static SV *
… …
124 128
125 return sv; 129 return sv;
126} 130}
127#endif 131#endif
128 132
129noinline utf8_string 133ecb_noinline utf8_string
130cfSvPVutf8_nolen (SV *sv) 134cfSvPVutf8_nolen (SV *sv)
131{ 135{
132 SvGETMAGIC (sv); 136 SvGETMAGIC (sv);
133 137
134 if (SvPOK (sv)) 138 if (SvPOK (sv))
… …
366 370
367 sv_magicext ((SV *)hv, 0, PERL_MAGIC_ext, 0, (char *)ptr, 0); 371 sv_magicext ((SV *)hv, 0, PERL_MAGIC_ext, 0, (char *)ptr, 0);
368 return sv_bless (newRV_noinc ((SV *)hv), stash); 372 return sv_bless (newRV_noinc ((SV *)hv), stash);
369} 373}
370 374
371static SV * noinline 375ecb_noinline static SV *
372newSVptr (void *ptr, HV *stash) 376newSVptr (void *ptr, HV *stash)
373{ 377{
374 return newSVptr (ptr, stash, newHV ()); 378 return newSVptr (ptr, stash, newHV ());
375} 379}
376 380
… …
391 return 0; 395 return 0;
392} 396}
393 397
394MGVTBL attachable::vtbl = {0, 0, 0, 0, attachable_free}; 398MGVTBL attachable::vtbl = {0, 0, 0, 0, attachable_free};
395 399
396static SV * noinline 400ecb_noinline static SV *
397newSVattachable (attachable *obj, HV *stash) 401newSVattachable (attachable *obj, HV *stash)
398{ 402{
399 if (!obj) 403 if (!obj)
400 return newSV (0); 404 return newSV (0);
401 405
… …
455 croak ("object of type %s expected", klass); 459 croak ("object of type %s expected", klass);
456 460
457 return SvPTR_nc (sv); 461 return SvPTR_nc (sv);
458} 462}
459 463
460static long noinline 464ecb_noinline static long
461SvPTR_ornull (SV *sv, const char *klass) 465SvPTR_ornull (SV *sv, const char *klass)
462{ 466{
463 if (expect_false (!SvOK (sv))) return 0; 467 if (expect_false (!SvOK (sv))) return 0;
464 468
465 return SvPTR (sv, klass); 469 return SvPTR (sv, klass);
466} 470}
467 471
468static long noinline 472ecb_noinline static long
469SvPTR_ornull_client (SV *sv) 473SvPTR_ornull_client (SV *sv)
470{ 474{
471 if (expect_false (!SvOK (sv))) return 0; 475 if (expect_false (!SvOK (sv))) return 0;
472 476
473 if (!SvROK (sv) 477 if (!SvROK (sv)
… …
476 croak ("object of type cf::client expected"); 480 croak ("object of type cf::client expected");
477 481
478 return SvPTR_nc (sv); 482 return SvPTR_nc (sv);
479} 483}
480 484
481static long noinline 485ecb_noinline static long
482SvPTR_ornull_object (SV *sv) 486SvPTR_ornull_object (SV *sv)
483{ 487{
484 if (expect_false (!SvOK (sv))) return 0; 488 if (expect_false (!SvOK (sv))) return 0;
485 489
486 if (!SvROK (sv) 490 if (!SvROK (sv)
… …
491 croak ("object of type cf::object expected"); 495 croak ("object of type cf::object expected");
492 496
493 return SvPTR_nc (sv); 497 return SvPTR_nc (sv);
494} 498}
495 499
496static long noinline 500ecb_noinline static long
497SvPTR_ornull_maptile (SV *sv) 501SvPTR_ornull_maptile (SV *sv)
498{ 502{
499 if (expect_false (!SvOK (sv))) return 0; 503 if (expect_false (!SvOK (sv))) return 0;
500 504
501 if (!SvROK (sv) 505 if (!SvROK (sv)
… …
505 croak ("object of type cf::map expected"); 509 croak ("object of type cf::map expected");
506 510
507 return SvPTR_nc (sv); 511 return SvPTR_nc (sv);
508} 512}
509 513
510static long noinline 514ecb_noinline static long
511SvPTR_ornull_player (SV *sv) 515SvPTR_ornull_player (SV *sv)
512{ 516{
513 if (expect_false (!SvOK (sv))) return 0; 517 if (expect_false (!SvOK (sv))) return 0;
514 518
515 if (!SvROK (sv) 519 if (!SvROK (sv)
… …
535static inline SV *to_sv (unsigned long long v) { return newSVval64 (v); } 539static inline SV *to_sv (unsigned long long v) { return newSVval64 (v); }
536static inline SV *to_sv (float v) { return newSVnv (v); } 540static inline SV *to_sv (float v) { return newSVnv (v); }
537static inline SV *to_sv (double v) { return newSVnv (v); } 541static inline SV *to_sv (double v) { return newSVnv (v); }
538static inline SV *to_sv (client * v) { return newSVattachable (v, stash_cf_client_wrap); } 542static inline SV *to_sv (client * v) { return newSVattachable (v, stash_cf_client_wrap); }
539static inline SV *to_sv (player * v) { return newSVattachable (v, stash_cf_player_wrap); } 543static inline SV *to_sv (player * v) { return newSVattachable (v, stash_cf_player_wrap); }
540// gcc dislikes noilnine on to_sv 544// gcc dislikes noinline on to_sv
541static noinline SV *to_sv_ni (object * v) { return newSVattachable (v, v && v->type == PLAYER ? stash_cf_object_player_wrap : stash_cf_object_wrap); } 545ecb_noinline static SV *to_sv_ni (object * v) { return newSVattachable (v, v && v->type == PLAYER ? stash_cf_object_player_wrap : stash_cf_object_wrap); }
542static inline SV *to_sv (object * v) { return to_sv_ni (v); } 546static inline SV *to_sv (object * v) { return to_sv_ni (v); }
543static inline SV *to_sv (maptile * v) { return newSVattachable (v, stash_cf_map_wrap); } 547static inline SV *to_sv (maptile * v) { return newSVattachable (v, stash_cf_map_wrap); }
544static inline SV *to_sv (archetype * v) { return newSVattachable (v, stash_cf_arch_wrap); } 548static inline SV *to_sv (archetype * v) { return newSVattachable (v, stash_cf_arch_wrap); }
545static inline SV *to_sv (region * v) { return newSVattachable (v, stash_cf_region_wrap); } 549static inline SV *to_sv (region * v) { return newSVattachable (v, stash_cf_region_wrap); }
546static inline SV *to_sv (partylist * v) { return newSVptr (v, stash_cf_party_wrap); } 550static inline SV *to_sv (partylist * v) { return newSVptr (v, stash_cf_party_wrap); }
… …
725 return sv; 729 return sv;
726} 730}
727 731
728// typemap support, mostly to avoid excessive inlining 732// typemap support, mostly to avoid excessive inlining
729template<class type> 733template<class type>
730static void noinline 734ecb_noinline static void
731cf_obj_to (SV *arg, type &var) 735cf_obj_to (SV *arg, type &var)
732{ 736{
733 sv_to (arg, var); 737 sv_to (arg, var);
734 if (expect_false (!var)) 738 if (expect_false (!var))
735 croak ("must not pass invalid/null cf_obj here"); 739 croak ("must not pass invalid/null cf_obj here");
736} 740}
737 741
738template<class object> 742template<class object>
739static void noinline 743ecb_noinline static void
740cf_obj_ornull_to (SV *arg, object *&var) 744cf_obj_ornull_to (SV *arg, object *&var)
741{ 745{
742 if (SvOK (arg)) 746 if (SvOK (arg))
743 { 747 {
744 sv_to (arg, var); 748 sv_to (arg, var);
… …
836# undef def 840# undef def
837}; 841};
838 842
839#define KLASS_OF(event) (((unsigned int)event) < NUM_EVENT_TYPES ? klass_of [event] : KLASS_NONE) 843#define KLASS_OF(event) (((unsigned int)event) < NUM_EVENT_TYPES ? klass_of [event] : KLASS_NONE)
840 844
841static void noinline 845ecb_noinline static void
842gather_callbacks (AV *&callbacks, AV *registry, event_type event) 846gather_callbacks (AV *&callbacks, AV *registry, event_type event)
843{ 847{
844 // event must be in array 848 // event must be in array
845 if (event >= 0 && event <= AvFILLp (registry)) 849 if (event >= 0 && event <= AvFILLp (registry))
846 { 850 {
… …
932{ 936{
933 attachable::gather_callbacks (callbacks, event); 937 attachable::gather_callbacks (callbacks, event);
934 ::gather_callbacks (callbacks, cb_map, event); 938 ::gather_callbacks (callbacks, cb_map, event);
935} 939}
936 940
937static void noinline 941ecb_noinline static void
938_recalc_want (bitset<NUM_EVENT_TYPES> &set, AV *registry) 942_recalc_want (bitset<NUM_EVENT_TYPES> &set, AV *registry)
939{ 943{
940 for (int event = 0; event <= AvFILLp (registry); ++event) 944 for (int event = 0; event <= AvFILLp (registry); ++event)
941 { 945 {
942 SV *cbs_ = AvARRAY (registry)[event]; 946 SV *cbs_ = AvARRAY (registry)[event];
… …
1157 CALL_ARG (originator); 1161 CALL_ARG (originator);
1158 CALL_CALL ("cf::mapscript::activate", G_VOID); 1162 CALL_CALL ("cf::mapscript::activate", G_VOID);
1159 CALL_END; 1163 CALL_END;
1160} 1164}
1161 1165
1166void cfperl_ix (client *ns, int set, faceidx idx, int pri)
1167{
1168 CALL_BEGIN (3);
1169 CALL_ARG (ns);
1170 CALL_ARG (set);
1171 CALL_ARG (idx);
1172 CALL_ARG (pri);
1173 CALL_CALL (cv_cf_ix, G_VOID);
1174 CALL_END;
1175}
1176
1162player * 1177player *
1163player::find (const_utf8_string name) 1178player::find (const_utf8_string name)
1164{ 1179{
1165 CALL_BEGIN (1); 1180 CALL_BEGIN (1);
1166 CALL_ARG (name); 1181 CALL_ARG (name);
… …
1260 CALL_ARG (y); 1275 CALL_ARG (y);
1261 CALL_CALL ("cf::object::player::goto", G_VOID); 1276 CALL_CALL ("cf::object::player::goto", G_VOID);
1262 CALL_END; 1277 CALL_END;
1263} 1278}
1264 1279
1265const_utf8_string 1280const_utf8_string
1266object::ref () const 1281object::ref () const
1267{ 1282{
1268 if (type == PLAYER) 1283 if (type == PLAYER)
1269 return format ("player/<1.%llx>/%s", (unsigned long long)uuid.seq, &name); 1284 return format ("player/<1.%llx>/%s", (unsigned long long)uuid.seq, &name);
1270 else 1285 else
… …
1436_connect_to_perl_2 () 1451_connect_to_perl_2 ()
1437{ 1452{
1438 cv_cf_do_invoke = (SV *)get_cv ("cf::do_invoke" , 0); assert (cv_cf_do_invoke); 1453 cv_cf_do_invoke = (SV *)get_cv ("cf::do_invoke" , 0); assert (cv_cf_do_invoke);
1439 cv_cf__can_merge = (SV *)get_cv ("cf::_can_merge" , 0); assert (cv_cf__can_merge); 1454 cv_cf__can_merge = (SV *)get_cv ("cf::_can_merge" , 0); assert (cv_cf__can_merge);
1440 cv_cf_client_send_msg = (SV *)get_cv ("cf::client::send_msg", 0); assert (cv_cf_client_send_msg); 1455 cv_cf_client_send_msg = (SV *)get_cv ("cf::client::send_msg", 0); assert (cv_cf_client_send_msg);
1456 cv_cf_ix = (SV *)get_cv ("cf::face::ix" , 0); assert (cv_cf_ix);
1441 cv_cf_tick = (SV *)get_cv ("cf::tick" , 0); assert (cv_cf_tick); 1457 cv_cf_tick = (SV *)get_cv ("cf::tick" , 0); assert (cv_cf_tick);
1442 cv_cf_match_match = (SV *)get_cv ("cf::match::match" , 0); assert (cv_cf_match_match); 1458 cv_cf_match_match = (SV *)get_cv ("cf::match::match" , 0); assert (cv_cf_match_match);
1443} 1459}
1444 1460
1445MODULE = cf PACKAGE = cf PREFIX = cf_ 1461MODULE = cf PACKAGE = cf PREFIX = cf_
… …
1450 I_CORO_API (PACKAGE); coroapi::GCoroAPI = GCoroAPI; 1466 I_CORO_API (PACKAGE); coroapi::GCoroAPI = GCoroAPI;
1451 1467
1452 _connect_to_perl_1 (); 1468 _connect_to_perl_1 ();
1453 1469
1454 newCONSTSUB (stash_cf, "VERSION", newSVpv (VERSION, sizeof (VERSION) - 1)); 1470 newCONSTSUB (stash_cf, "VERSION", newSVpv (VERSION, sizeof (VERSION) - 1));
1455
1456 //{
1457 // require_pv ("Time::HiRes");
1458 //
1459 // SV **svp = hv_fetch (PL_modglobal, "Time::NVtime", 12, 0);
1460 // if (!svp) croak ("Time::HiRes is required");
1461 // if (!SvIOK(*svp)) croak ("Time::NVtime isn’t a function pointer");
1462 // coroapi::time = INT2PTR (double(*)(), SvIV(*svp));
1463 //}
1464 1471
1465 static const struct { 1472 static const struct {
1466 const char *name; 1473 const char *name;
1467 IV iv; 1474 IV iv;
1468 } *civ, const_iv[] = { 1475 } *civ, const_iv[] = {
… …
1579 1586
1580void init_dynamic () 1587void init_dynamic ()
1581 1588
1582void load_settings () 1589void load_settings ()
1583 1590
1584void reload_exp_table () 1591void _reload_exp_table ()
1585 1592
1586void reload_materials () 1593void _reload_materials ()
1587 1594
1588void init_uuid () 1595void init_uuid ()
1589 CODE: 1596 CODE:
1590 UUID::init (); 1597 UUID::init ();
1591 1598
… …
1602 coroapi::cede_to_tick (); 1609 coroapi::cede_to_tick ();
1603 1610
1604NV till_tick () 1611NV till_tick ()
1605 CODE: 1612 CODE:
1606 RETVAL = SvNVX (sv_next_tick) - now (); 1613 RETVAL = SvNVX (sv_next_tick) - now ();
1607 OUTPUT: 1614 OUTPUT: RETVAL
1608 RETVAL
1609 1615
1610int tick_inhibit () 1616int tick_inhibit ()
1611 CODE: 1617 CODE:
1612 RETVAL = tick_inhibit; 1618 RETVAL = tick_inhibit;
1613 OUTPUT: 1619 OUTPUT: RETVAL
1614 RETVAL
1615 1620
1616void tick_inhibit_inc () 1621void tick_inhibit_inc ()
1617 CODE: 1622 CODE:
1618 ++tick_inhibit; 1623 ++tick_inhibit;
1619 1624
… …
1655NV rndm (...) 1660NV rndm (...)
1656 ALIAS: 1661 ALIAS:
1657 rmg_rndm = 1 1662 rmg_rndm = 1
1658 CODE: 1663 CODE:
1659{ 1664{
1660 rand_gen &gen = ix ? rmg_rndm : rndm; 1665 rand_gen &gen = ix ? rmg_rndm : rndm;
1661 switch (items) 1666 switch (items)
1662 { 1667 {
1663 case 0: RETVAL = gen (); break; 1668 case 0: RETVAL = gen (); break;
1664 case 1: RETVAL = gen (SvUV (ST (0))); break; 1669 case 1: RETVAL = gen (SvUV (ST (0))); break;
1665 case 2: RETVAL = gen (SvIV (ST (0)), SvIV (ST (1))); break; 1670 case 2: RETVAL = gen (SvIV (ST (0)), SvIV (ST (1))); break;
1666 default: croak ("cf::rndm requires zero, one or two parameters."); break; 1671 default: croak ("cf::rndm requires zero, one or two parameters."); break;
1667 } 1672 }
1668} 1673}
1669 OUTPUT: 1674 OUTPUT: RETVAL
1670 RETVAL
1671 1675
1672NV clamp (NV value, NV min_value, NV max_value) 1676NV clamp (NV value, NV min_value, NV max_value)
1673 CODE: 1677 CODE:
1674 RETVAL = clamp (value, min_value, max_value); 1678 RETVAL = clamp (value, min_value, max_value);
1675 OUTPUT: 1679 OUTPUT: RETVAL
1676 RETVAL
1677 1680
1678NV lerp (NV value, NV min_in, NV max_in, NV min_out, NV max_out) 1681NV lerp (NV value, NV min_in, NV max_in, NV min_out, NV max_out)
1679 CODE: 1682 CODE:
1680 RETVAL = lerp (value, min_in, max_in, min_out, max_out); 1683 RETVAL = lerp (value, min_in, max_in, min_out, max_out);
1681 OUTPUT: 1684 OUTPUT: RETVAL
1682 RETVAL
1683 1685
1684const char *ordinal (int i) 1686const char *ordinal (int i)
1685 1687
1686void weaken (...) 1688void weaken (...)
1687 PROTOTYPE: @ 1689 PROTOTYPE: @
… …
1786 EXTEND (SP, 5*2); 1788 EXTEND (SP, 5*2);
1787 PUSHs (sv_2mortal (newSVpv ("slice_alloc", 0))); PUSHs (sv_2mortal (newSVuv (slice_alloc))); 1789 PUSHs (sv_2mortal (newSVpv ("slice_alloc", 0))); PUSHs (sv_2mortal (newSVuv (slice_alloc)));
1788 PUSHs (sv_2mortal (newSVpv ("shstr_alloc", 0))); PUSHs (sv_2mortal (newSVuv (shstr_alloc))); 1790 PUSHs (sv_2mortal (newSVpv ("shstr_alloc", 0))); PUSHs (sv_2mortal (newSVuv (shstr_alloc)));
1789 PUSHs (sv_2mortal (newSVpv ("objects" , 0))); PUSHs (sv_2mortal (newSVuv (objects.size () * sizeof (object)))); 1791 PUSHs (sv_2mortal (newSVpv ("objects" , 0))); PUSHs (sv_2mortal (newSVuv (objects.size () * sizeof (object))));
1790 PUSHs (sv_2mortal (newSVpv ("sv_count" , 0))); PUSHs (sv_2mortal (newSVuv (PL_sv_count))); 1792 PUSHs (sv_2mortal (newSVpv ("sv_count" , 0))); PUSHs (sv_2mortal (newSVuv (PL_sv_count)));
1791 PUSHs (sv_2mortal (newSVpv ("sv_objcount", 0))); PUSHs (sv_2mortal (newSVuv (PL_sv_objcount)));
1792} 1793}
1793
1794int find_animation (utf8_string text)
1795 PROTOTYPE: $
1796 1794
1797int random_roll (int min, int max, object *op, int goodbad); 1795int random_roll (int min, int max, object *op, int goodbad);
1798 1796
1799const_utf8_string cost_string_from_value(uint64 cost, int approx = 0) 1797const_utf8_string cost_string_from_value(uint64 cost, int approx = 0)
1800 1798
1801int exp_to_level (val64 exp) 1799int exp_to_level (val64 exp)
1802 1800
1803val64 level_to_min_exp (int level) 1801val64 level_to_min_exp (int level)
1802
1803const_utf8_string
1804spellpathnames (int idx)
1805 CODE:
1806 RETVAL = spellpathnames [idx];
1807 OUTPUT: RETVAL
1804 1808
1805SV * 1809SV *
1806attacktype_name (int atnr) 1810attacktype_name (int atnr)
1807 CODE: 1811 CODE:
1808 RETVAL = IN_RANGE_EXC (atnr, 0, NROFATTACKS) 1812 RETVAL = IN_RANGE_EXC (atnr, 0, NROFATTACKS)
… …
1832 RETVAL = IN_RANGE_EXC (atnr, 0, NROFATTACKS) 1836 RETVAL = IN_RANGE_EXC (atnr, 0, NROFATTACKS)
1833 ? newSVpv (change_resist_msg [atnr], 0) 1837 ? newSVpv (change_resist_msg [atnr], 0)
1834 : &PL_sv_undef; 1838 : &PL_sv_undef;
1835 OUTPUT: RETVAL 1839 OUTPUT: RETVAL
1836 1840
1841int
1842skill_flags (int idx)
1843 CODE:
1844 if (idx < 0 || idx >= array_length (skill_flags))
1845 croak ("skill_flags: index out of bounds");
1846 RETVAL = skill_flags [idx];
1847 OUTPUT: RETVAL
1848
1837UUID 1849UUID
1838uuid_cur () 1850uuid_cur ()
1839 CODE: 1851 CODE:
1840 RETVAL = UUID::cur; 1852 RETVAL = UUID::cur;
1841 OUTPUT: 1853 OUTPUT: RETVAL
1842 RETVAL
1843 1854
1844UUID 1855UUID
1845uuid_gen () 1856uuid_gen ()
1846 CODE: 1857 CODE:
1847 RETVAL = UUID::gen (); 1858 RETVAL = UUID::gen ();
1848 OUTPUT: 1859 OUTPUT: RETVAL
1849 RETVAL
1850 1860
1851val64 1861val64
1852uuid_seq (UUID uuid) 1862uuid_seq (UUID uuid)
1853 CODE: 1863 CODE:
1854 RETVAL = uuid.seq; 1864 RETVAL = uuid.seq;
1855 OUTPUT: 1865 OUTPUT: RETVAL
1856 RETVAL
1857 1866
1858UUID 1867UUID
1859uuid_str (val64 seq) 1868uuid_str (val64 seq)
1860 CODE: 1869 CODE:
1861 RETVAL.seq = seq; 1870 RETVAL.seq = seq;
1862 OUTPUT: 1871 OUTPUT: RETVAL
1863 RETVAL
1864 1872
1865void 1873void
1866coin_names () 1874coin_names ()
1867 PPCODE: 1875 PPCODE:
1868 EXTEND (SP, NUM_COINS); 1876 EXTEND (SP, NUM_COINS);
… …
1880load_resource_file_ (octet_string filename) 1888load_resource_file_ (octet_string filename)
1881 1889
1882void 1890void
1883fix_weight () 1891fix_weight ()
1884 1892
1893utf8_string
1894expand_cfpod (int hintmode, int gender, const_utf8_string cfpod)
1895 PPCODE:
1896 XPUSHs (to_sv (player::expand_cfpod (hintmode, gender, cfpod)));
1897
1885MODULE = cf PACKAGE = cf::attachable 1898MODULE = cf PACKAGE = cf::attachable
1886 1899
1887int 1900int
1888valid (SV *obj) 1901valid (SV *obj)
1889 CODE: 1902 CODE:
1890 RETVAL = SvROK (obj) && mg_find (SvRV (obj), PERL_MAGIC_ext); 1903 RETVAL = SvROK (obj) && mg_find (SvRV (obj), PERL_MAGIC_ext);
1891 OUTPUT: 1904 OUTPUT: RETVAL
1892 RETVAL
1893 1905
1894bool should_invoke (attachable *obj, int event) 1906bool should_invoke (attachable *obj, int event)
1895 CODE: 1907 CODE:
1896 RETVAL = obj->should_invoke ((event_type)event); 1908 RETVAL = obj->should_invoke ((event_type)event);
1897 OUTPUT: RETVAL 1909 OUTPUT: RETVAL
… …
1979 case 0: RETVAL = body_locations[slot].name ; break; 1991 case 0: RETVAL = body_locations[slot].name ; break;
1980 case 1: RETVAL = body_locations[slot].use_name ; break; 1992 case 1: RETVAL = body_locations[slot].use_name ; break;
1981 case 2: RETVAL = body_locations[slot].nonuse_name; break; 1993 case 2: RETVAL = body_locations[slot].nonuse_name; break;
1982 } 1994 }
1983} 1995}
1984 OUTPUT: 1996 OUTPUT: RETVAL
1985 RETVAL
1986 1997
1987# missing properties 1998# missing properties
1988 1999
1989object *head (object *op) 2000object *head (object *op)
1990 PROTOTYPE: $ 2001 PROTOTYPE: $
… …
2026 if (ix) 2037 if (ix)
2027 op->slot[slot].used = value; 2038 op->slot[slot].used = value;
2028 else 2039 else
2029 op->slot[slot].info = value; 2040 op->slot[slot].info = value;
2030} 2041}
2031 OUTPUT: 2042 OUTPUT: RETVAL
2032 RETVAL
2033 2043
2034object *find_best_object_match (object *op, utf8_string match) 2044object *find_best_object_match (object *op, utf8_string match)
2035 2045
2036int apply_shop_mat (object *shop_mat, object *op); 2046int apply_shop_mat (object *shop_mat, object *op);
2037 2047
2038int move (object *op, int dir, object *originator = op) 2048int move (object *op, int dir, object *originator = op)
2039 CODE: 2049 CODE:
2040 RETVAL = op->move (dir, originator); 2050 RETVAL = op->move (dir, originator);
2041 OUTPUT: 2051 OUTPUT: RETVAL
2042 RETVAL
2043 2052
2044void apply_below (object *op) 2053void apply_below (object *op)
2045 CODE: 2054 CODE:
2046 player_apply_below (op); 2055 player_apply_below (op);
2047 2056
… …
2111int convert_item (object *item, object *converter) 2120int convert_item (object *item, object *converter)
2112 2121
2113void fix_generated_item (object *op, object *creator, int difficulty, int max_magic, int flags); 2122void fix_generated_item (object *op, object *creator, int difficulty, int max_magic, int flags);
2114 2123
2115MODULE = cf PACKAGE = cf::object PREFIX = cf_ 2124MODULE = cf PACKAGE = cf::object PREFIX = cf_
2116
2117# no clean way to get an object from an archetype - stupid idiotic
2118# dumb kludgy misdesigned plug-in api slowly gets on my nerves.
2119 2125
2120object *new (utf8_string archetype = 0) 2126object *new (utf8_string archetype = 0)
2121 PROTOTYPE: ;$ 2127 PROTOTYPE: ;$
2122 CODE: 2128 CODE:
2123 RETVAL = archetype 2129 RETVAL = archetype
2124 ? archetype::get (archetype) 2130 ? archetype::get (archetype)
2125 : object::create (); 2131 : object::create ();
2126 OUTPUT: 2132 OUTPUT: RETVAL
2127 RETVAL
2128 2133
2129object *generate (utf8_string arch, object *creator) 2134object *generate (utf8_string arch, object *creator)
2130 CODE: 2135 CODE:
2131 object *obj = archetype::get (arch); 2136 object *obj = archetype::get (arch);
2132 fix_generated_item (obj, creator, 0, 0, GT_MINIMAL); 2137 fix_generated_item (obj, creator, 0, 0, GT_MINIMAL);
2133 RETVAL = obj; 2138 RETVAL = obj;
2134 OUTPUT: 2139 OUTPUT: RETVAL
2135 RETVAL
2136 2140
2137object *find_object (U32 tag) 2141object *find_object (U32 tag)
2138 2142
2139object *find_object_uuid (UUID i) 2143object *find_object_uuid (UUID i)
2140 2144
… …
2146 RETVAL = insert_ob_in_map_at (ob, where, orig, flag, x, y); 2150 RETVAL = insert_ob_in_map_at (ob, where, orig, flag, x, y);
2147 2151
2148 if (RETVAL->destroyed ()) 2152 if (RETVAL->destroyed ())
2149 RETVAL = 0; 2153 RETVAL = 0;
2150} 2154}
2151 OUTPUT: 2155 OUTPUT: RETVAL
2152 RETVAL
2153 2156
2154shstr 2157shstr
2155object::kv_get (shstr key) 2158object::kv_get (shstr key)
2156 CODE: 2159 CODE:
2157 RETVAL = THIS->kv.get (key); 2160 RETVAL = THIS->kv.get (key);
2158 OUTPUT: 2161 OUTPUT: RETVAL
2159 RETVAL
2160 2162
2161void 2163void
2162object::kv_del (shstr key) 2164object::kv_del (shstr key)
2163 CODE: 2165 CODE:
2164 THIS->kv.del (key); 2166 THIS->kv.del (key);
… …
2263#d# TODO: replace by blocked_los accessor, fix code using this 2265#d# TODO: replace by blocked_los accessor, fix code using this
2264bool 2266bool
2265cell_visible (player *pl, int dx, int dy) 2267cell_visible (player *pl, int dx, int dy)
2266 CODE: 2268 CODE:
2267 RETVAL = pl->blocked_los (dx, dy) != LOS_BLOCKED; 2269 RETVAL = pl->blocked_los (dx, dy) != LOS_BLOCKED;
2268 OUTPUT: 2270 OUTPUT: RETVAL
2269 RETVAL
2270 2271
2271void 2272void
2272send (player *pl, SV *packet) 2273send (player *pl, SV *packet)
2273 CODE: 2274 CODE:
2274{ 2275{
… …
2350outdoor_darkness (int darkness = 0) 2351outdoor_darkness (int darkness = 0)
2351 CODE: 2352 CODE:
2352 RETVAL = maptile::outdoor_darkness; 2353 RETVAL = maptile::outdoor_darkness;
2353 if (items) 2354 if (items)
2354 maptile::outdoor_darkness = darkness; 2355 maptile::outdoor_darkness = darkness;
2355 OUTPUT: 2356 OUTPUT: RETVAL
2356 RETVAL
2357 2357
2358void 2358void
2359maptile::instantiate () 2359maptile::instantiate ()
2360 2360
2361maptile *new () 2361maptile *new ()
2362 PROTOTYPE: 2362 PROTOTYPE:
2363 CODE: 2363 CODE:
2364 RETVAL = new maptile; 2364 RETVAL = new maptile;
2365 OUTPUT: 2365 OUTPUT: RETVAL
2366 RETVAL
2367 2366
2368void 2367void
2369maptile::players () 2368maptile::players ()
2370 PPCODE: 2369 PPCODE:
2371 if (GIMME_V == G_SCALAR) 2370 if (GIMME_V == G_SCALAR)
… …
2391 croak ("maptile::add_underlay: palette must be arrayref"); 2390 croak ("maptile::add_underlay: palette must be arrayref");
2392 2391
2393 palette = SvRV (palette); 2392 palette = SvRV (palette);
2394 2393
2395 STRLEN idxlen; 2394 STRLEN idxlen;
2396 const uint8_t *idx = (const uint8_t *)SvPVbyte (data, idxlen); 2395 const uint8 *idx = (const uint8 *)SvPVbyte (data, idxlen);
2397 2396
2398 for (int x = 0; x < THIS->width; ++x) 2397 for (int x = 0; x < THIS->width; ++x)
2399 for (int y = 0; y < THIS->height; ++y) 2398 for (int y = 0; y < THIS->height; ++y)
2400 { 2399 {
2401 for (object *op = THIS->at (x, y).bot; op; op = op->above) 2400 for (object *op = THIS->at (x, y).bot; op; op = op->above)
… …
2441 croak ("maptile::set_regiondata: palette must be arrayref"); 2440 croak ("maptile::set_regiondata: palette must be arrayref");
2442 2441
2443 palette = SvRV (palette); 2442 palette = SvRV (palette);
2444 2443
2445 STRLEN idxlen; 2444 STRLEN idxlen;
2446 const uint8_t *idx = (const uint8_t *)SvPVbyte (data, idxlen); 2445 const uint8 *idx = (const uint8 *)SvPVbyte (data, idxlen);
2447 2446
2448 region_ptr *regionmap = new region_ptr [av_len ((AV *)palette) + 1]; 2447 region_ptr *regionmap = new region_ptr [av_len ((AV *)palette) + 1];
2449 uint8_t *regions = salloc<uint8_t> (THIS->size ()); 2448 uint8 *regions = salloc<uint8_t> (THIS->size ());
2450 2449
2451 for (int i = av_len ((AV *)palette) + 1; i--; ) 2450 for (int i = av_len ((AV *)palette) + 1; i--; )
2452 regionmap [i] = region::find (cfSvPVutf8_nolen (*av_fetch ((AV *)palette, i, 1))); 2451 regionmap [i] = region::find (cfSvPVutf8_nolen (*av_fetch ((AV *)palette, i, 1)));
2453 2452
2454 for (int y = 0; y < THIS->height; ++y) 2453 for (int y = 0; y < THIS->height; ++y)
… …
2506 if (!pos.move (dir).normalise ()) 2505 if (!pos.move (dir).normalise ())
2507 XSRETURN_UNDEF; 2506 XSRETURN_UNDEF;
2508 2507
2509 RETVAL = &*pos; 2508 RETVAL = &*pos;
2510} 2509}
2511 OUTPUT: 2510 OUTPUT: RETVAL
2512 RETVAL
2513 2511
2514void 2512void
2515at (maptile *map, unsigned int x, unsigned int y, int dir = 0) 2513at (maptile *map, unsigned int x, unsigned int y, int dir = 0)
2516 PROTOTYPE: $$$;$ 2514 PROTOTYPE: $$$;$
2517 PPCODE: 2515 PPCODE:
… …
2558# worst xs function of my life 2556# worst xs function of my life
2559bool 2557bool
2560_create_random_map (maptile *self, SV *options) 2558_create_random_map (maptile *self, SV *options)
2561 CODE: 2559 CODE:
2562{ 2560{
2563 random_map_params rmp ((HV *)SvRV (options)); 2561 random_map_params rmp ((HV *)SvRV (options));
2564 RETVAL = self->generate_random_map (&rmp); 2562 RETVAL = self->generate_random_map (&rmp);
2565} 2563}
2566 OUTPUT: 2564 OUTPUT: RETVAL
2567 RETVAL
2568 2565
2569MODULE = cf PACKAGE = cf::mapspace 2566MODULE = cf PACKAGE = cf::mapspace
2570 2567
2571INCLUDE: $PERL $srcdir/genacc mapspace $srcdir/../include/map.h | 2568INCLUDE: $PERL $srcdir/genacc mapspace $srcdir/../include/map.h |
2572 2569
… …
2579 2576
2580archetype *archetypes (U32 index) 2577archetype *archetypes (U32 index)
2581 CODE: 2578 CODE:
2582 RETVAL = index < archetypes.size () ? archetypes [index] : 0; 2579 RETVAL = index < archetypes.size () ? archetypes [index] : 0;
2583 OUTPUT: RETVAL 2580 OUTPUT: RETVAL
2581
2582int skillvec_size ()
2583 CODE:
2584 RETVAL = skillvec.size ();
2585 OUTPUT: RETVAL
2586
2587archetype *skillvec (U32 index)
2588 CODE:
2589 RETVAL = index < skillvec.size () ? (archetype *)(object *)skillvec [index] : 0;
2590 OUTPUT: RETVAL
2591
2592void
2593find_by_type (int type)
2594 PPCODE:
2595 for_all_archetypes (arch)
2596 if (arch->type == type)
2597 XPUSHs (sv_2mortal (to_sv (arch)));
2584 2598
2585INCLUDE: $PERL $srcdir/genacc archetype $srcdir/../include/object.h | 2599INCLUDE: $PERL $srcdir/genacc archetype $srcdir/../include/object.h |
2586 2600
2587MODULE = cf PACKAGE = cf::party 2601MODULE = cf PACKAGE = cf::party
2588 2602
… …
2681 if (RETVAL) 2695 if (RETVAL)
2682 { 2696 {
2683 THIS->send_face (RETVAL, pri); 2697 THIS->send_face (RETVAL, pri);
2684 THIS->flush_fx (); 2698 THIS->flush_fx ();
2685 } 2699 }
2686 OUTPUT: 2700 OUTPUT: RETVAL
2687 RETVAL
2688 2701
2689int 2702int
2690client::fx_want (int idx, int value = -1) 2703client::fx_want (int idx, int value = -1)
2691 CODE: 2704 CODE:
2692 if (0 < idx && idx < FT_NUM) 2705 if (0 < idx && idx < FT_NUM)
… …
2695 if (items > 2) 2708 if (items > 2)
2696 THIS->fx_want [idx] = value; 2709 THIS->fx_want [idx] = value;
2697 } 2710 }
2698 else 2711 else
2699 RETVAL = 0; 2712 RETVAL = 0;
2700 OUTPUT: 2713 OUTPUT: RETVAL
2701 RETVAL
2702 2714
2703MODULE = cf PACKAGE = cf::sound PREFIX = sound_ 2715MODULE = cf PACKAGE = cf::sound PREFIX = sound_
2704 2716
2705faceidx sound_find (utf8_string name) 2717faceidx sound_find (utf8_string name)
2706 2718
… …
2753 case 2: f->magicmap = value; break; 2765 case 2: f->magicmap = value; break;
2754 case 3: f->smooth = value; break; 2766 case 3: f->smooth = value; break;
2755 case 4: f->smoothlevel = value; break; 2767 case 4: f->smoothlevel = value; break;
2756 } 2768 }
2757 2769
2758void set_data (faceidx idx, int faceset, SV *data, SV *chksum) 2770void set_csum (faceidx idx, int faceset, SV *chksum)
2759 CODE: 2771 CODE:
2760{ 2772{
2761 faceinfo *f = face_info (idx); assert (f); 2773 faceinfo *f = face_info (idx); assert (f);
2762 facedata *d = f->face + faceset; 2774 facedata *d = f->face + faceset;
2763 sv_to (data, d->data);
2764 STRLEN clen; 2775 STRLEN clen;
2765 char *cdata = SvPVbyte (chksum, clen); 2776 char *cdata = SvPVbyte (chksum, clen);
2766 clen = min (CHKSUM_MAXLEN, clen);
2767 2777
2778 assert (("cf::face::set_data called with too long checksum", clen <= CHKSUM_MAXLEN));
2768 assert (("cf::face::set_data must be called with a non-empty checksum", clen)); 2779 assert (("cf::face::set_data must be called with a non-empty checksum", clen));
2769 2780
2770 if (clen != d->chksum_len || memcmp (d->chksum, cdata, clen)) 2781 if (clen != d->chksum_len || memcmp (d->chksum, cdata, clen))
2771 { 2782 {
2772 d->chksum_len = clen; 2783 d->chksum_len = clen;
2773 memcpy (d->chksum, cdata, clen); 2784 memcpy (d->chksum, cdata, clen);
2774 2785
2775 // invalidate existing client face info 2786 // invalidate existing client face info
2776 for_all_clients (ns) 2787 for_all_clients (ns)
2777 if (ns->faceset == faceset) 2788 ns->invalidate_face (idx);
2778 {
2779 ns->faces_sent [idx] = false;
2780 ns->force_newmap = true;
2781 }
2782 } 2789 }
2783} 2790}
2784 2791
2785int get_data_size (faceidx idx, int faceset = 0) 2792SV *mangle_csum (SV *chksum)
2786 CODE: 2793 CODE:
2787 facedata *d = face_data (idx, faceset); 2794 STRLEN len;
2788 if (!d) XSRETURN_UNDEF; 2795 char *data = SvPVbyte (chksum, len);
2789 RETVAL = d->data.size (); 2796 RETVAL = newSVpvn (data, min (len, CHKSUM_MAXLEN));
2790 OUTPUT: 2797 OUTPUT: RETVAL
2791 RETVAL
2792 2798
2793void set_meta (faceidx idx, SV *sv)
2794 CODE:
2795{
2796 faceinfo *f = face_info (idx); assert (f);
2797 SvREFCNT_dec (f->meta_hv);
2798 f->meta_hv = SvOK (sv) ? (HV *)SvREFCNT_inc (SvRV (sv)) : 0;
2799}
2800
2801SV *get_chksum (faceidx idx, int faceset = 0) 2799SV *get_csum (faceidx idx, int faceset = 0)
2802 CODE: 2800 CODE:
2803 facedata *d = face_data (idx, faceset); 2801 facedata *d = face_data (idx, faceset);
2804 if (!d) XSRETURN_UNDEF; 2802 if (!d) XSRETURN_UNDEF;
2805 RETVAL = newSVpvn ((char *)d->chksum, d->chksum_len); 2803 RETVAL = newSVpvn ((char *)d->chksum, d->chksum_len);
2806 OUTPUT: 2804 OUTPUT: RETVAL
2807 RETVAL
2808 2805
2809int get_type (faceidx idx) 2806int get_type (faceidx idx)
2810 CODE: 2807 CODE:
2811 faceinfo *f = face_info (idx); 2808 faceinfo *f = face_info (idx);
2812 if (!f) XSRETURN_UNDEF; 2809 if (!f) XSRETURN_UNDEF;
2813 RETVAL = f->type; 2810 RETVAL = f->type;
2814 OUTPUT: 2811 OUTPUT: RETVAL
2815 RETVAL
2816 2812
2817SV *get_data (faceidx idx, int faceset = 0) 2813SV *get_name (faceidx idx)
2818 CODE: 2814 CODE:
2819 facedata *d = face_data (idx, faceset); 2815 faceinfo *f = face_info (idx);
2820 if (!d) XSRETURN_UNDEF; 2816 if (!f) XSRETURN_UNDEF;
2821 RETVAL = newSVpvn (d->data, d->data.size ()); 2817 RETVAL = to_sv (f->name);
2822 OUTPUT: 2818 OUTPUT: RETVAL
2823 RETVAL
2824
2825SV *get_meta (faceidx idx)
2826 CODE:
2827 faceinfo *f = face_info (idx); assert (f);
2828 if (!f || !f->meta_hv) XSRETURN_UNDEF;
2829 RETVAL = newRV_inc ((SV *)f->meta_hv);
2830 OUTPUT:
2831 RETVAL
2832 2819
2833void invalidate (faceidx idx) 2820void invalidate (faceidx idx)
2834 CODE: 2821 CODE:
2835 for_all_clients (ns) 2822 for_all_clients (ns)
2836 ns->invalidate_face (idx); 2823 ns->invalidate_face (idx);
… …
2900bool 2887bool
2901errors_are_fatal (bool fatal) 2888errors_are_fatal (bool fatal)
2902 CODE: 2889 CODE:
2903 RETVAL = object_thawer::errors_are_fatal; 2890 RETVAL = object_thawer::errors_are_fatal;
2904 object_thawer::errors_are_fatal = fatal; 2891 object_thawer::errors_are_fatal = fatal;
2905 OUTPUT: 2892 OUTPUT: RETVAL
2906 RETVAL
2907 2893
2908SV * 2894SV *
2909new_from_file (char *klass, octet_string path) 2895new_from_file (char *klass, octet_string path)
2910 CODE: 2896 CODE:
2911 object_thawer *f = new object_thawer (path); 2897 object_thawer *f = new object_thawer (path);
… …
2937 XPUSHs (sv_2mortal (newSVpv_utf8 (self->get_str ()))); 2923 XPUSHs (sv_2mortal (newSVpv_utf8 (self->get_str ())));
2938 2924
2939 self->skip (); 2925 self->skip ();
2940 } 2926 }
2941 2927
2928MODULE = cf PACKAGE = cf::treasurelist
2929
2930# quick hack, because I didn't want to implement accessors for treasurelist.
2931# this asks for even more autogen, actually.
2932
2933void
2934expand (treasurelist *list)
2935 PPCODE:
2936 EXTEND (SP, 3);
2937 PUSHs (sv_2mortal (to_sv (list->name)));
2938 PUSHs (sv_2mortal (to_sv (list->total_chance)));
2939 AV *av = newAV ();
2940 PUSHs (sv_2mortal (newRV_noinc ((SV *)av)));
2941 for (treasure *item = list->items; item; item = item->next)
2942 {
2943 AV *iav = newAV ();
2944 av_push (av, newRV_noinc ((SV *)iav));
2945
2946 av_extend (iav, 7);
2947 av_push (iav, to_sv (item->item));
2948 av_push (iav, to_sv (item->name));
2949 av_push (iav, to_sv (item->change_arch.name));
2950 av_push (iav, to_sv (item->change_arch.title));
2951 av_push (iav, to_sv (item->change_arch.slaying));
2952 av_push (iav, to_sv (item->chance));
2953 av_push (iav, to_sv (item->nrof));
2954 av_push (iav, to_sv (item->magic));
2955 }
2956
2942MODULE = cf PACKAGE = cf::layout 2957MODULE = cf PACKAGE = cf::layout
2943 2958
2944INCLUDE: $PERL $srcdir/genacc layout $srcdir/../include/rmg.h | 2959INCLUDE: $PERL $srcdir/genacc layout $srcdir/../include/rmg.h |
2945 2960

Diff Legend

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