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.265 by root, Wed Nov 14 08:09:46 2007 UTC vs.
Revision 1.285 by root, Sun May 4 08:25:33 2008 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 (©) 2006,2007 Marc Alexander Lehmann / Robin Redeker / the Deliantra team 4 * Copyright (©) 2006,2007,2008 Marc Alexander Lehmann / Robin Redeker / the Deliantra team
5 * Copyright (©) 2001-2005,2007 by Chachkoff Yann 5 * Copyright (©) 2001-2005,2007 by Chachkoff Yann
6 * Copyright (©) 2006,2007 by Marc Lehmann <cf@schmorp.de> 6 * Copyright (©) 2006,2007 by Marc Lehmann <cf@schmorp.de>
7 * 7 *
8 * Deliantra is free software: you can redistribute it and/or modify 8 * Deliantra is free software: you can redistribute it and/or modify
9 * it under the terms of the GNU General Public License as published by 9 * it under the terms of the GNU General Public License as published by
… …
24#include "autoconf.h" 24#include "autoconf.h"
25 25
26#define PLUGIN_NAME "perl" 26#define PLUGIN_NAME "perl"
27#define PLUGIN_VERSION "cfperl 0.5" 27#define PLUGIN_VERSION "cfperl 0.5"
28 28
29#define CEDES_PER_TICK 5
30
31#if HAVE_EXECINFO_H 29#if HAVE_EXECINFO_H
32# include <execinfo.h> 30# include <execinfo.h>
33#endif 31#endif
34 32
35#include <cstdarg> 33#include <cstdarg>
36 34
37#include "global.h" 35#include "global.h"
38#include "loader.h" 36#include "loader.h"
39#include "../random_maps/random_map.h" 37#include "../random_maps/random_map.h"
38#include "evthread.h"
40#include <sproto.h> 39#include "sproto.h"
41 40
42#include <unistd.h> 41#include <unistd.h>
43#if _POSIX_MEMLOCK 42#if _POSIX_MEMLOCK
44# include <sys/mman.h> 43# include <sys/mman.h>
45#endif 44#endif
46 45
47#if HAVE_MALLOC_H 46#if HAVE_MALLOC_H
48# include <malloc.h> 47# include <malloc.h>
49#endif 48#endif
50 49
50#if !__GLIBC__
51# define malloc_trim(pad) -1
52#endif
53
51#include <EXTERN.h> 54#include <EXTERN.h>
52#include <perl.h> 55#include <perl.h>
53#include <XSUB.h> 56#include <XSUB.h>
54 57
55#include "CoroAPI.h" 58#include "CoroAPI.h"
… …
60typedef object_thawer &object_thawer_ref; 63typedef object_thawer &object_thawer_ref;
61typedef object_freezer &object_freezer_ref; 64typedef object_freezer &object_freezer_ref;
62 65
63typedef std::string std__string; 66typedef std::string std__string;
64 67
65#if IVSIZE >= 8
66 typedef IV val64;
67# define newSVval64 newSViv
68# define SvVAL64 SvIV
69#else
70 typedef double val64;
71# define newSVval64 newSVnv
72# define SvVAL64 SvNV
73#endif
74
75static PerlInterpreter *perl; 68static PerlInterpreter *perl;
76 69
77tstamp NOW, runtime; 70tstamp NOW, runtime;
71
72static int tick_inhibit;
73static int tick_pending;
78 74
79global gbl_ev; 75global gbl_ev;
80static AV *cb_global, *cb_attachable, *cb_object, *cb_player, *cb_client, *cb_type, *cb_map; 76static AV *cb_global, *cb_attachable, *cb_object, *cb_player, *cb_client, *cb_type, *cb_map;
81static SV *sv_runtime, *sv_next_tick; 77static SV *sv_runtime, *sv_tick_start, *sv_next_tick, *sv_now;
82 78
83bitset<NUM_EVENT_TYPES> ev_want_event; 79bitset<NUM_EVENT_TYPES> ev_want_event;
84bitset<NUM_TYPES> ev_want_type; 80bitset<NUM_TYPES> ev_want_type;
85 81
86static HV 82static HV
… …
442inline SV *to_sv (living & v) { return to_sv (&v); } 438inline SV *to_sv (living & v) { return to_sv (&v); }
443 439
444inline SV *to_sv (const std::string & v) { return newSVpvn (v.data (), v.size ()); } 440inline SV *to_sv (const std::string & v) { return newSVpvn (v.data (), v.size ()); }
445inline SV *to_sv (const treasurelist *v) { return to_sv (v->name); } 441inline SV *to_sv (const treasurelist *v) { return to_sv (v->name); }
446 442
447inline SV *to_sv (UUID v) 443inline SV *to_sv (UUID v) { return newSVpv (v.c_str (), 0); }
448{
449 char buf[128];
450 snprintf (buf, 128, "<1.%" PRIx64 ">", v.seq);
451 return newSVpv (buf, 0);
452}
453 444
454inline void sv_to (SV *sv, shstr &v) { v = SvOK (sv) ? SvPVutf8_nolen (sv) : 0; } 445inline void sv_to (SV *sv, shstr &v) { v = SvOK (sv) ? SvPVutf8_nolen (sv) : 0; }
455inline void sv_to (SV *sv, char * &v) { free (v); v = SvOK (sv) ? strdup (SvPV_nolen (sv)) : 0; } 446inline void sv_to (SV *sv, char * &v) { free (v); v = SvOK (sv) ? strdup (SvPV_nolen (sv)) : 0; }
456inline void sv_to (SV *sv, bool &v) { v = SvIV (sv); } 447inline void sv_to (SV *sv, bool &v) { v = SvIV (sv); }
457inline void sv_to (SV *sv, signed char &v) { v = SvIV (sv); } 448inline void sv_to (SV *sv, signed char &v) { v = SvIV (sv); }
… …
499 v.assign (data, len); 490 v.assign (data, len);
500} 491}
501 492
502inline void sv_to (SV *sv, UUID &v) 493inline void sv_to (SV *sv, UUID &v)
503{ 494{
504 unsigned int version; 495 if (!v.parse (SvPV_nolen (sv)))
505
506 if (2 != sscanf (SvPV_nolen (sv), "<%d.%" SCNx64 ">", &version, &v.seq) || 1 != version)
507 croak ("unparsable uuid: %s", SvPV_nolen (sv)); 496 croak ("unparsable uuid: %s", SvPV_nolen (sv));
508} 497}
509 498
510inline void sv_to (SV *sv, object::flags_t::reference v) { v = SvTRUE (sv); } 499inline void sv_to (SV *sv, object::flags_t::reference v) { v = SvTRUE (sv); }
511 500
… …
605///////////////////////////////////////////////////////////////////////////// 594/////////////////////////////////////////////////////////////////////////////
606 595
607void 596void
608cfperl_init () 597cfperl_init ()
609{ 598{
599 extern char **environ;
600
610 PERL_SYS_INIT3 (&settings.argc, &settings.argv, 0); 601 PERL_SYS_INIT3 (&settings.argc, &settings.argv, &environ);
611 perl = perl_alloc (); 602 perl = perl_alloc ();
612 perl_construct (perl); 603 perl_construct (perl);
613 604
614 PL_exit_flags |= PERL_EXIT_DESTRUCT_END; 605 PL_exit_flags |= PERL_EXIT_DESTRUCT_END;
615 606
… …
620 "cf->bootstrap;" // required for datadir :*> 611 "cf->bootstrap;" // required for datadir :*>
621 "unshift @INC, cf::datadir ();" 612 "unshift @INC, cf::datadir ();"
622 "require cf;" 613 "require cf;"
623 }; 614 };
624 615
625 if (perl_parse (perl, xs_init, 2, (char **)argv, (char **)NULL) 616 if (perl_parse (perl, xs_init, 2, (char **)argv, environ)
626 || perl_run (perl)) 617 || perl_run (perl))
627 { 618 {
628 printf ("unable to initialize perl-interpreter, aborting.\n"); 619 printf ("unable to initialize perl-interpreter, aborting.\n");
629 exit (EXIT_FAILURE); 620 exit (EXIT_FAILURE);
630 } 621 }
… …
907} 898}
908 899
909///////////////////////////////////////////////////////////////////////////// 900/////////////////////////////////////////////////////////////////////////////
910// various c++ => perl glue functions 901// various c++ => perl glue functions
911 902
903void cfperl_tick ()
904{
905 tick_pending = 1;
906
907 if (tick_inhibit)
908 return;
909
910 tick_pending = 0;
911
912 dSP;
913
914 PUSHMARK (SP);
915 PUTBACK;
916 call_pv ("cf::tick", G_DISCARD | G_VOID);
917
918 SvNV_set (sv_next_tick, get_next_tick ()); SvNOK_only (sv_next_tick);
919}
920
912void 921void
913cfperl_emergency_save () 922cfperl_emergency_save ()
914{ 923{
915 CALL_BEGIN (0); 924 CALL_BEGIN (0);
916 CALL_CALL ("cf::emergency_save", G_VOID); 925 CALL_CALL ("cf::emergency_save", G_VOID);
… …
1102///////////////////////////////////////////////////////////////////////////// 1111/////////////////////////////////////////////////////////////////////////////
1103 1112
1104struct EVAPI *evapi::GEVAPI; 1113struct EVAPI *evapi::GEVAPI;
1105struct CoroAPI *coroapi::GCoroAPI; 1114struct CoroAPI *coroapi::GCoroAPI;
1106 1115
1107int coroapi::cede_counter;
1108tstamp coroapi::next_cede;
1109
1110void coroapi::do_cede_to_tick () 1116void coroapi::do_cede_to_tick ()
1111{ 1117{
1112 cede_counter = 0; 1118 cede_pending = 0;
1113
1114 cede (); 1119 cede ();
1115
1116 next_cede += (TICK / CEDES_PER_TICK) * 0.99;
1117 if (next_cede > SvNV (sv_next_tick) - 0.02)
1118 next_cede = SvNV (sv_next_tick);
1119}
1120
1121void coroapi::do_cede_every ()
1122{
1123 cede_counter = 0;
1124
1125 if (coroapi::nready ())
1126 coroapi::cede ();
1127}
1128
1129void coroapi::do_cede_to_tick_every ()
1130{
1131 cede_counter = 0;
1132
1133 cede_to_tick ();
1134} 1120}
1135 1121
1136void 1122void
1137coroapi::wait_for_tick () 1123coroapi::wait_for_tick ()
1138{ 1124{
… …
1162} 1148}
1163 1149
1164void 1150void
1165_connect_to_perl () 1151_connect_to_perl ()
1166{ 1152{
1167 stash_cf = gv_stashpv ("cf" , 1); 1153 stash_cf = gv_stashpv ("cf", 1);
1168 1154
1169 stash_cf_object_wrap = gv_stashpv ("cf::object::wrap", 1); 1155 stash_cf_object_wrap = gv_stashpv ("cf::object::wrap", 1);
1170 stash_cf_object_player_wrap = gv_stashpv ("cf::object::player::wrap", 1); 1156 stash_cf_object_player_wrap = gv_stashpv ("cf::object::player::wrap", 1);
1171 stash_cf_player_wrap = gv_stashpv ("cf::player::wrap", 1); 1157 stash_cf_player_wrap = gv_stashpv ("cf::player::wrap", 1);
1172 stash_cf_map_wrap = gv_stashpv ("cf::map::wrap" , 1); 1158 stash_cf_map_wrap = gv_stashpv ("cf::map::wrap" , 1);
… …
1174 stash_cf_arch_wrap = gv_stashpv ("cf::arch::wrap" , 1); 1160 stash_cf_arch_wrap = gv_stashpv ("cf::arch::wrap" , 1);
1175 stash_cf_party_wrap = gv_stashpv ("cf::party::wrap" , 1); 1161 stash_cf_party_wrap = gv_stashpv ("cf::party::wrap" , 1);
1176 stash_cf_region_wrap = gv_stashpv ("cf::region::wrap", 1); 1162 stash_cf_region_wrap = gv_stashpv ("cf::region::wrap", 1);
1177 stash_cf_living_wrap = gv_stashpv ("cf::living::wrap", 1); 1163 stash_cf_living_wrap = gv_stashpv ("cf::living::wrap", 1);
1178 1164
1165 sv_now = get_sv ("cf::NOW" , 1); SvUPGRADE (sv_now , SVt_NV);
1179 sv_runtime = get_sv ("cf::RUNTIME" , 1); sv_upgrade (sv_runtime , SVt_NV); 1166 sv_runtime = get_sv ("cf::RUNTIME" , 1); SvUPGRADE (sv_runtime , SVt_NV);
1167 sv_tick_start = get_sv ("cf::TICK_START", 1); SvUPGRADE (sv_tick_start, SVt_NV);
1180 sv_next_tick = get_sv ("cf::NEXT_TICK", 1); sv_upgrade (sv_next_tick, SVt_NV); 1168 sv_next_tick = get_sv ("cf::NEXT_TICK" , 1); SvUPGRADE (sv_next_tick , SVt_NV);
1181 1169
1182 cb_global = get_av ("cf::CB_GLOBAL", 1); 1170 cb_global = get_av ("cf::CB_GLOBAL", 1);
1183 cb_attachable = get_av ("cf::CB_ATTACHABLE", 1); 1171 cb_attachable = get_av ("cf::CB_ATTACHABLE", 1);
1184 cb_object = get_av ("cf::CB_OBJECT", 1); 1172 cb_object = get_av ("cf::CB_OBJECT", 1);
1185 cb_player = get_av ("cf::CB_PLAYER", 1); 1173 cb_player = get_av ("cf::CB_PLAYER", 1);
… …
1418 const_iv (ATNR_PARALYZE) const_iv (ATNR_TURN_UNDEAD) const_iv (ATNR_FEAR) const_iv (ATNR_CANCELLATION) 1406 const_iv (ATNR_PARALYZE) const_iv (ATNR_TURN_UNDEAD) const_iv (ATNR_FEAR) const_iv (ATNR_CANCELLATION)
1419 const_iv (ATNR_DEPLETE) const_iv (ATNR_DEATH) const_iv (ATNR_CHAOS) const_iv (ATNR_COUNTERSPELL) 1407 const_iv (ATNR_DEPLETE) const_iv (ATNR_DEATH) const_iv (ATNR_CHAOS) const_iv (ATNR_COUNTERSPELL)
1420 const_iv (ATNR_GODPOWER) const_iv (ATNR_HOLYWORD) const_iv (ATNR_BLIND) const_iv (ATNR_INTERNAL) 1408 const_iv (ATNR_GODPOWER) const_iv (ATNR_HOLYWORD) const_iv (ATNR_BLIND) const_iv (ATNR_INTERNAL)
1421 const_iv (ATNR_LIFE_STEALING) const_iv (ATNR_DISEASE) 1409 const_iv (ATNR_LIFE_STEALING) const_iv (ATNR_DISEASE)
1422 1410
1423 const_iv (MAP_IN_MEMORY) const_iv (MAP_SWAPPED) const_iv (MAP_LOADING) const_iv (MAP_SAVING) 1411 const_iv (MAP_ACTIVE) const_iv (MAP_SWAPPED) const_iv (MAP_LOADING) const_iv (MAP_SAVING)
1412 const_iv (MAP_INACTIVE)
1424 1413
1425 const_iv (KLASS_ATTACHABLE) const_iv (KLASS_GLOBAL) const_iv (KLASS_OBJECT) 1414 const_iv (KLASS_ATTACHABLE) const_iv (KLASS_GLOBAL) const_iv (KLASS_OBJECT)
1426 const_iv (KLASS_CLIENT) const_iv (KLASS_PLAYER) const_iv (KLASS_MAP) 1415 const_iv (KLASS_CLIENT) const_iv (KLASS_PLAYER) const_iv (KLASS_MAP)
1427 1416
1428 const_iv (VERSION_CS) const_iv (VERSION_SC) 1417 const_iv (VERSION_CS) const_iv (VERSION_SC)
… …
1443 1432
1444 const_iv (SYMMETRY_RANDOM) const_iv (SYMMETRY_NONE) const_iv (SYMMETRY_X) 1433 const_iv (SYMMETRY_RANDOM) const_iv (SYMMETRY_NONE) const_iv (SYMMETRY_X)
1445 const_iv (SYMMETRY_Y) const_iv (SYMMETRY_XY) 1434 const_iv (SYMMETRY_Y) const_iv (SYMMETRY_XY)
1446 1435
1447 const_iv (GT_ENVIRONMENT) const_iv (GT_INVISIBLE) const_iv (GT_STARTEQUIP) 1436 const_iv (GT_ENVIRONMENT) const_iv (GT_INVISIBLE) const_iv (GT_STARTEQUIP)
1448 const_iv (GT_APPLY) const_iv (GT_ONLY_GOOD) const_iv (GT_UPDATE_INV) 1437 const_iv (GT_APPLY) const_iv (GT_ONLY_GOOD) const_iv (GT_MINIMAL)
1449 const_iv (GT_MINIMAL)
1450 1438
1451 const_iv (FT_FACE) const_iv (FT_MUSIC) const_iv (FT_SOUND) 1439 const_iv (FT_FACE) const_iv (FT_MUSIC) const_iv (FT_SOUND)
1452 const_iv (FT_RSRC) const_iv (FT_NUM) 1440 const_iv (FT_RSRC) const_iv (FT_NUM)
1453 }; 1441 };
1454 1442
… …
1533 } 1521 }
1534 1522
1535 SvCUR_set (data_sv, dst - SvPVX (data_sv)); 1523 SvCUR_set (data_sv, dst - SvPVX (data_sv));
1536} 1524}
1537 1525
1526void evthread_start (int aiofd)
1527
1538void _post_tick () 1528void cede_to_tick ()
1539 CODE: 1529 CODE:
1540 coroapi::next_cede = SvNV (sv_next_tick) - TICK * (1. - 1. / CEDES_PER_TICK); 1530 coroapi::cede_to_tick ();
1541 1531
1542NV till_cede () 1532NV till_tick ()
1543 CODE: 1533 CODE:
1544 RETVAL = coroapi::next_cede - now (); 1534 RETVAL = SvNVX (sv_next_tick) - now ();
1545 OUTPUT: 1535 OUTPUT:
1546 RETVAL 1536 RETVAL
1547 1537
1548NV till_tick () 1538int tick_inhibit ()
1549 CODE: 1539 CODE:
1550 RETVAL = SvNV (sv_next_tick) - now (); 1540 RETVAL = tick_inhibit;
1551 OUTPUT: 1541 OUTPUT:
1552 RETVAL 1542 RETVAL
1543
1544void tick_inhibit_inc ()
1545 CODE:
1546 ++tick_inhibit;
1547
1548void tick_inhibit_dec ()
1549 CODE:
1550 if (!--tick_inhibit)
1551 if (tick_pending)
1552 {
1553 ev_async_send (EV_DEFAULT, &tick_watcher);
1554 coroapi::cede ();
1555 }
1556
1557void server_tick ()
1558 CODE:
1559{
1560 NOW = ev_now (EV_DEFAULT);
1561 SvNV_set (sv_now, NOW); SvNOK_only (sv_now);
1562 SvNV_set (sv_tick_start, NOW); SvNOK_only (sv_tick_start);
1563 runtime = SvNVX (sv_runtime);
1564
1565 server_tick ();
1566
1567 NOW = ev_time ();
1568 SvNV_set (sv_now, NOW); SvNOK_only (sv_now);
1569 runtime += TICK;
1570 SvNV_set (sv_runtime, runtime); SvNOK_only (sv_runtime);
1571}
1553 1572
1554NV floor (NV x) 1573NV floor (NV x)
1555 1574
1556NV ceil (NV x) 1575NV ceil (NV x)
1557 1576
… …
1577 CODE: 1596 CODE:
1578 RETVAL = lerp (value, min_in, max_in, min_out, max_out); 1597 RETVAL = lerp (value, min_in, max_in, min_out, max_out);
1579 OUTPUT: 1598 OUTPUT:
1580 RETVAL 1599 RETVAL
1581 1600
1582void cede_to_tick () 1601void weaken (...)
1583 CODE: 1602 PROTOTYPE: @
1584 coroapi::cede_to_tick (); 1603 CODE:
1585 1604 while (items > 0)
1586void server_tick () 1605 sv_rvweaken (ST (--items));
1587 CODE:
1588 NOW = now ();
1589 runtime = SvNVx (sv_runtime);
1590 server_tick ();
1591 1606
1592void 1607void
1593log_backtrace (utf8_string msg) 1608log_backtrace (utf8_string msg)
1594 1609
1595void 1610void
… …
1600octet_string path_combine (octet_string base, octet_string path) 1615octet_string path_combine (octet_string base, octet_string path)
1601 PROTOTYPE: $$ 1616 PROTOTYPE: $$
1602 1617
1603octet_string path_combine_and_normalize (octet_string base, octet_string path) 1618octet_string path_combine_and_normalize (octet_string base, octet_string path)
1604 PROTOTYPE: $$ 1619 PROTOTYPE: $$
1605
1606void
1607mallinfo ()
1608 PPCODE:
1609{
1610#if __GLIBC__
1611 struct mallinfo mai = mallinfo ();
1612 EXTEND (SP, 10*2);
1613 PUSHs (sv_2mortal (newSVpv ("arena" , 0))); PUSHs (sv_2mortal (newSViv (mai.arena)));
1614 PUSHs (sv_2mortal (newSVpv ("ordblks" , 0))); PUSHs (sv_2mortal (newSViv (mai.ordblks)));
1615 PUSHs (sv_2mortal (newSVpv ("smblks" , 0))); PUSHs (sv_2mortal (newSViv (mai.smblks)));
1616 PUSHs (sv_2mortal (newSVpv ("hblks" , 0))); PUSHs (sv_2mortal (newSViv (mai.hblks)));
1617 PUSHs (sv_2mortal (newSVpv ("hblkhd" , 0))); PUSHs (sv_2mortal (newSViv (mai.hblkhd)));
1618 PUSHs (sv_2mortal (newSVpv ("usmblks" , 0))); PUSHs (sv_2mortal (newSViv (mai.usmblks)));
1619 PUSHs (sv_2mortal (newSVpv ("fsmblks" , 0))); PUSHs (sv_2mortal (newSViv (mai.fsmblks)));
1620 PUSHs (sv_2mortal (newSVpv ("uordblks", 0))); PUSHs (sv_2mortal (newSViv (mai.uordblks)));
1621 PUSHs (sv_2mortal (newSVpv ("fordblks", 0))); PUSHs (sv_2mortal (newSViv (mai.fordblks)));
1622 PUSHs (sv_2mortal (newSVpv ("keepcost", 0))); PUSHs (sv_2mortal (newSViv (mai.keepcost)));
1623#endif
1624 EXTEND (SP, 2*2);
1625 PUSHs (sv_2mortal (newSVpv ("slice_alloc", 0))); PUSHs (sv_2mortal (newSVuv (slice_alloc)));
1626 PUSHs (sv_2mortal (newSVpv ("shstr_alloc", 0))); PUSHs (sv_2mortal (newSVuv (shstr_alloc)));
1627}
1628 1620
1629void 1621void
1630sub_generation_inc () 1622sub_generation_inc ()
1631 CODE: 1623 CODE:
1632 PL_sub_generation++; 1624 PL_sub_generation++;
… …
1657 1649
1658void abort () 1650void abort ()
1659 1651
1660void reset_signals () 1652void reset_signals ()
1661 1653
1662void fork_abort (octet_string cause = "cf::fork_abort") 1654void fork_abort (const_octet_string cause = "cf::fork_abort")
1663 1655
1664void cleanup (octet_string cause, bool make_core = false) 1656void cleanup (const_octet_string cause, bool make_core = false)
1665 1657
1666void emergency_save () 1658void emergency_save ()
1667 1659
1668void _exit (int status = EXIT_SUCCESS) 1660void _exit (int status = EXIT_SUCCESS)
1669 1661
1670#if _POSIX_MEMLOCK 1662#if _POSIX_MEMLOCK
1671 1663
1672int mlockall (int flags = MCL_CURRENT | MCL_FUTURE) 1664int mlockall (int flags = MCL_CURRENT | MCL_FUTURE)
1665 INIT:
1666#if __GLIBC__
1667 mallopt (M_PERTURB, 0xee); // bug-workaround for linux glibc+mlockall+calloc
1668#endif
1673 1669
1674int munlockall () 1670int munlockall ()
1675 1671
1676#endif 1672#endif
1673
1674int
1675malloc_trim (IV pad = 0)
1676
1677void
1678mallinfo ()
1679 PPCODE:
1680{
1681#if __GLIBC__
1682 struct mallinfo mai = mallinfo ();
1683 EXTEND (SP, 10*2);
1684 PUSHs (sv_2mortal (newSVpv ("arena" , 0))); PUSHs (sv_2mortal (newSViv (mai.arena)));
1685 PUSHs (sv_2mortal (newSVpv ("ordblks" , 0))); PUSHs (sv_2mortal (newSViv (mai.ordblks)));
1686 PUSHs (sv_2mortal (newSVpv ("smblks" , 0))); PUSHs (sv_2mortal (newSViv (mai.smblks)));
1687 PUSHs (sv_2mortal (newSVpv ("hblks" , 0))); PUSHs (sv_2mortal (newSViv (mai.hblks)));
1688 PUSHs (sv_2mortal (newSVpv ("hblkhd" , 0))); PUSHs (sv_2mortal (newSViv (mai.hblkhd)));
1689 PUSHs (sv_2mortal (newSVpv ("usmblks" , 0))); PUSHs (sv_2mortal (newSViv (mai.usmblks)));
1690 PUSHs (sv_2mortal (newSVpv ("fsmblks" , 0))); PUSHs (sv_2mortal (newSViv (mai.fsmblks)));
1691 PUSHs (sv_2mortal (newSVpv ("uordblks", 0))); PUSHs (sv_2mortal (newSViv (mai.uordblks)));
1692 PUSHs (sv_2mortal (newSVpv ("fordblks", 0))); PUSHs (sv_2mortal (newSViv (mai.fordblks)));
1693 PUSHs (sv_2mortal (newSVpv ("keepcost", 0))); PUSHs (sv_2mortal (newSViv (mai.keepcost)));
1694#endif
1695 EXTEND (SP, 2*2);
1696 PUSHs (sv_2mortal (newSVpv ("slice_alloc", 0))); PUSHs (sv_2mortal (newSVuv (slice_alloc)));
1697 PUSHs (sv_2mortal (newSVpv ("shstr_alloc", 0))); PUSHs (sv_2mortal (newSVuv (shstr_alloc)));
1698 PUSHs (sv_2mortal (newSVpv ("objects" , 0))); PUSHs (sv_2mortal (newSVuv (objects.size () * sizeof (object))));
1699}
1677 1700
1678int find_animation (utf8_string text) 1701int find_animation (utf8_string text)
1679 PROTOTYPE: $ 1702 PROTOTYPE: $
1680 1703
1681int random_roll (int min, int max, object *op, int goodbad); 1704int random_roll (int min, int max, object *op, int goodbad);
… …
1719 RETVAL = newSVpv (resist_plus[atnr], 0); 1742 RETVAL = newSVpv (resist_plus[atnr], 0);
1720 else 1743 else
1721 XSRETURN_UNDEF; 1744 XSRETURN_UNDEF;
1722 OUTPUT: RETVAL 1745 OUTPUT: RETVAL
1723 1746
1747UUID
1748uuid_cur ()
1749 CODE:
1750 RETVAL = UUID::cur;
1751 OUTPUT:
1752 RETVAL
1753
1754UUID
1755uuid_gen ()
1756 CODE:
1757 RETVAL = UUID::gen ();
1758 OUTPUT:
1759 RETVAL
1760
1761val64
1762uuid_seq (UUID uuid)
1763 CODE:
1764 RETVAL = uuid.seq;
1765 OUTPUT:
1766 RETVAL
1767
1768UUID
1769uuid_str (val64 seq)
1770 CODE:
1771 RETVAL.seq = seq;
1772 OUTPUT:
1773 RETVAL
1774
1775void
1776coin_names ()
1777 PPCODE:
1778 EXTEND (SP, NUM_COINS);
1779 for (int i = 0; i < NUM_COINS; ++i)
1780 PUSHs (sv_2mortal (newSVpv (coins [i], 0)));
1781
1782void
1783coin_archetypes ()
1784 PPCODE:
1785 EXTEND (SP, NUM_COINS);
1786 for (int i = 0; i < NUM_COINS; ++i)
1787 PUSHs (sv_2mortal (to_sv (archetype::find (coins [i]))));
1788
1724bool 1789bool
1725load_resource_file (octet_string filename) 1790load_resource_file_ (octet_string filename)
1726 1791
1727MODULE = cf PACKAGE = cf::attachable 1792MODULE = cf PACKAGE = cf::attachable
1728 1793
1729int 1794int
1730valid (SV *obj) 1795valid (SV *obj)
… …
1794object *actives (U32 index) 1859object *actives (U32 index)
1795 CODE: 1860 CODE:
1796 RETVAL = index < actives.size () ? actives [index] : 0; 1861 RETVAL = index < actives.size () ? actives [index] : 0;
1797 OUTPUT: RETVAL 1862 OUTPUT: RETVAL
1798 1863
1864int mortals_size ()
1865 CODE:
1866 RETVAL = attachable::mortals.size ();
1867 OUTPUT: RETVAL
1868
1799const char *slot_use_name (U32 slot) 1869const char *slot_use_name (U32 slot)
1800 ALIAS: 1870 ALIAS:
1801 slot_nonuse_name = 1 1871 slot_nonuse_name = 1
1802 CODE: 1872 CODE:
1803{ 1873{
… …
1881void apply_below (object *op) 1951void apply_below (object *op)
1882 CODE: 1952 CODE:
1883 player_apply_below (op); 1953 player_apply_below (op);
1884 1954
1885int cast_heal (object *op, object *caster, object *spell, int dir = 0) 1955int cast_heal (object *op, object *caster, object *spell, int dir = 0)
1886
1887#//TODO
1888object *clone_ (object *op, int recursive = 0)
1889 CODE:
1890 if (recursive)
1891 RETVAL = object_create_clone (op);
1892 else
1893 {
1894 RETVAL = object::create ();
1895 op->copy_to (RETVAL);
1896 }
1897 OUTPUT: RETVAL
1898 1956
1899int pay_item (object *op, object *buyer) 1957int pay_item (object *op, object *buyer)
1900 CODE: 1958 CODE:
1901 RETVAL = pay_for_item (op, buyer); 1959 RETVAL = pay_for_item (op, buyer);
1902 OUTPUT: RETVAL 1960 OUTPUT: RETVAL
… …
1980 CODE: 2038 CODE:
1981{ 2039{
1982 RETVAL = insert_ob_in_map_at (ob, where, orig, flag, x, y); 2040 RETVAL = insert_ob_in_map_at (ob, where, orig, flag, x, y);
1983} 2041}
1984 2042
1985const_utf8_string get_ob_key_value (object *op, utf8_string key) 2043shstr
2044object::kv_get (shstr key)
1986 2045
1987bool set_ob_key_value (object *op, utf8_string key, utf8_string value = 0, int add_key = 1) 2046void
2047object::kv_del (shstr key)
2048
2049void
2050object::kv_set (shstr key, shstr value)
1988 2051
1989object *get_nearest_player (object *ob) 2052object *get_nearest_player (object *ob)
1990 ALIAS: nearest_player = 0 2053 ALIAS: nearest_player = 0
1991 PREINIT: 2054 PREINIT:
1992 extern object *get_nearest_player (object *); 2055 extern object *get_nearest_player (object *);
… …
2013const_utf8_string 2076const_utf8_string
2014base_name (object *op, int plural = op->nrof > 1) 2077base_name (object *op, int plural = op->nrof > 1)
2015 CODE: 2078 CODE:
2016 RETVAL = query_base_name (op, plural); 2079 RETVAL = query_base_name (op, plural);
2017 OUTPUT: RETVAL 2080 OUTPUT: RETVAL
2018
2019object *decrease_ob_nr (object *op, unsigned long i)
2020 2081
2021# return the tail of an object, excluding itself 2082# return the tail of an object, excluding itself
2022void 2083void
2023tail (object *op) 2084tail (object *op)
2024 PPCODE: 2085 PPCODE:
… …
2672 } 2733 }
2673} 2734}
2674 2735
2675int get_data_size (faceidx idx, int faceset = 0) 2736int get_data_size (faceidx idx, int faceset = 0)
2676 CODE: 2737 CODE:
2677 facedata *d = face_data (idx, faceset); assert (d); 2738 facedata *d = face_data (idx, faceset);
2739 if (!d) XSRETURN_UNDEF;
2678 RETVAL = d->data.size (); 2740 RETVAL = d->data.size ();
2679 OUTPUT: 2741 OUTPUT:
2680 RETVAL 2742 RETVAL
2681 2743
2682SV *get_chksum (faceidx idx, int faceset = 0) 2744SV *get_chksum (faceidx idx, int faceset = 0)
2683 CODE: 2745 CODE:
2684 facedata *d = face_data (idx, faceset); assert (d); 2746 facedata *d = face_data (idx, faceset);
2747 if (!d) XSRETURN_UNDEF;
2685 RETVAL = newSVpvn ((char *)d->chksum, CHKSUM_SIZE); 2748 RETVAL = newSVpvn ((char *)d->chksum, CHKSUM_SIZE);
2749 OUTPUT:
2750 RETVAL
2751
2752SV *get_data (faceidx idx, int faceset = 0)
2753 CODE:
2754 facedata *d = face_data (idx, faceset);
2755 if (!d) XSRETURN_UNDEF;
2756 RETVAL = newSVpvn (d->data.data (), d->data.length ());
2686 OUTPUT: 2757 OUTPUT:
2687 RETVAL 2758 RETVAL
2688 2759
2689void invalidate (faceidx idx) 2760void invalidate (faceidx idx)
2690 CODE: 2761 CODE:
… …
2782extract_tags (object_thawer *self) 2853extract_tags (object_thawer *self)
2783 PPCODE: 2854 PPCODE:
2784 while (self->kw != KW_EOF) 2855 while (self->kw != KW_EOF)
2785 { 2856 {
2786 PUTBACK; 2857 PUTBACK;
2787 coroapi::cede_to_tick_every (5000); 2858 coroapi::cede_to_tick ();
2788 SPAGAIN; 2859 SPAGAIN;
2789 2860
2790 if (self->kw == KW_tag) 2861 if (self->kw == KW_tag)
2791 XPUSHs (sv_2mortal (newSVpv_utf8 (self->get_str ()))); 2862 XPUSHs (sv_2mortal (newSVpv_utf8 (self->get_str ())));
2792 2863

Diff Legend

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