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.258 by root, Sun Sep 30 20:22:24 2007 UTC vs.
Revision 1.276 by root, Tue Apr 15 14:21:04 2008 UTC

1/* 1/*
2 * This file is part of Crossfire TRT, the Roguelike Realtime MORPG. 2 * This file is part of Deliantra, the Roguelike Realtime MMORPG.
3 * 3 *
4 * Copyright (©) 2006,2007 Marc Alexander Lehmann / Robin Redeker / the Crossfire TRT 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 * Crossfire TRT 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
10 * the Free Software Foundation, either version 3 of the License, or 10 * the Free Software Foundation, either version 3 of the License, or
11 * (at your option) any later version. 11 * (at your option) any later version.
12 * 12 *
13 * This program is distributed in the hope that it will be useful, 13 * This program is distributed in the hope that it will be useful,
… …
16 * GNU General Public License for more details. 16 * GNU General Public License for more details.
17 * 17 *
18 * You should have received a copy of the GNU General Public License 18 * You should have received a copy of the GNU General Public License
19 * along with this program. If not, see <http://www.gnu.org/licenses/>. 19 * along with this program. If not, see <http://www.gnu.org/licenses/>.
20 * 20 *
21 * The authors can be reached via e-mail to <crossfire@schmorp.de> 21 * The authors can be reached via e-mail to <support@deliantra.net>
22 */ 22 */
23 23
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
29#define CEDES_PER_TICK 5
30 28
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
46#if HAVE_MALLOC_H
47# include <malloc.h>
48#endif
49
47#include <EXTERN.h> 50#include <EXTERN.h>
48#include <perl.h> 51#include <perl.h>
49#include <XSUB.h> 52#include <XSUB.h>
50 53
51#include "CoroAPI.h" 54#include "CoroAPI.h"
… …
56typedef object_thawer &object_thawer_ref; 59typedef object_thawer &object_thawer_ref;
57typedef object_freezer &object_freezer_ref; 60typedef object_freezer &object_freezer_ref;
58 61
59typedef std::string std__string; 62typedef std::string std__string;
60 63
61#if IVSIZE >= 8
62 typedef IV val64;
63# define newSVval64 newSViv
64# define SvVAL64 SvIV
65#else
66 typedef double val64;
67# define newSVval64 newSVnv
68# define SvVAL64 SvNV
69#endif
70
71static PerlInterpreter *perl; 64static PerlInterpreter *perl;
72 65
73tstamp NOW, runtime; 66tstamp NOW, runtime;
67
68static int tick_inhibit;
69static int tick_pending;
74 70
75global gbl_ev; 71global gbl_ev;
76static AV *cb_global, *cb_attachable, *cb_object, *cb_player, *cb_client, *cb_type, *cb_map; 72static AV *cb_global, *cb_attachable, *cb_object, *cb_player, *cb_client, *cb_type, *cb_map;
77static SV *sv_runtime, *sv_next_tick; 73static SV *sv_runtime, *sv_tick_start, *sv_next_tick, *sv_now;
78 74
79bitset<NUM_EVENT_TYPES> ev_want_event; 75bitset<NUM_EVENT_TYPES> ev_want_event;
80bitset<NUM_TYPES> ev_want_type; 76bitset<NUM_TYPES> ev_want_type;
81 77
82static HV 78static HV
… …
438inline SV *to_sv (living & v) { return to_sv (&v); } 434inline SV *to_sv (living & v) { return to_sv (&v); }
439 435
440inline SV *to_sv (const std::string & v) { return newSVpvn (v.data (), v.size ()); } 436inline SV *to_sv (const std::string & v) { return newSVpvn (v.data (), v.size ()); }
441inline SV *to_sv (const treasurelist *v) { return to_sv (v->name); } 437inline SV *to_sv (const treasurelist *v) { return to_sv (v->name); }
442 438
443inline SV *to_sv (UUID v) 439inline SV *to_sv (UUID v) { return newSVpv (v.c_str (), 0); }
444{
445 char buf[128];
446 snprintf (buf, 128, "<1.%" PRIx64 ">", v.seq);
447 return newSVpv (buf, 0);
448}
449 440
450inline void sv_to (SV *sv, shstr &v) { v = SvOK (sv) ? SvPVutf8_nolen (sv) : 0; } 441inline void sv_to (SV *sv, shstr &v) { v = SvOK (sv) ? SvPVutf8_nolen (sv) : 0; }
451inline void sv_to (SV *sv, char * &v) { free (v); v = SvOK (sv) ? strdup (SvPV_nolen (sv)) : 0; } 442inline void sv_to (SV *sv, char * &v) { free (v); v = SvOK (sv) ? strdup (SvPV_nolen (sv)) : 0; }
452inline void sv_to (SV *sv, bool &v) { v = SvIV (sv); } 443inline void sv_to (SV *sv, bool &v) { v = SvIV (sv); }
453inline void sv_to (SV *sv, signed char &v) { v = SvIV (sv); } 444inline void sv_to (SV *sv, signed char &v) { v = SvIV (sv); }
… …
495 v.assign (data, len); 486 v.assign (data, len);
496} 487}
497 488
498inline void sv_to (SV *sv, UUID &v) 489inline void sv_to (SV *sv, UUID &v)
499{ 490{
500 unsigned int version; 491 if (!v.parse (SvPV_nolen (sv)))
501
502 if (2 != sscanf (SvPV_nolen (sv), "<%d.%" SCNx64 ">", &version, &v.seq) || 1 != version)
503 croak ("unparsable uuid: %s", SvPV_nolen (sv)); 492 croak ("unparsable uuid: %s", SvPV_nolen (sv));
504} 493}
505 494
506inline void sv_to (SV *sv, object::flags_t::reference v) { v = SvTRUE (sv); } 495inline void sv_to (SV *sv, object::flags_t::reference v) { v = SvTRUE (sv); }
507 496
… …
601///////////////////////////////////////////////////////////////////////////// 590/////////////////////////////////////////////////////////////////////////////
602 591
603void 592void
604cfperl_init () 593cfperl_init ()
605{ 594{
595 extern char **environ;
596
606 PERL_SYS_INIT3 (&settings.argc, &settings.argv, 0); 597 PERL_SYS_INIT3 (&settings.argc, &settings.argv, &environ);
607 perl = perl_alloc (); 598 perl = perl_alloc ();
608 perl_construct (perl); 599 perl_construct (perl);
609 600
610 PL_exit_flags |= PERL_EXIT_DESTRUCT_END; 601 PL_exit_flags |= PERL_EXIT_DESTRUCT_END;
611 602
612 const char *argv[] = { 603 const char *argv[] = {
613 settings.argv [0], 604 settings.argv [0],
614 "-e" 605 "-e"
615 "use Event; use Coro;" // required for bootstrap 606 "use EV; use Coro;" // required for bootstrap
616 "cf->bootstrap;" // required for datadir :*> 607 "cf->bootstrap;" // required for datadir :*>
617 "unshift @INC, cf::datadir ();" 608 "unshift @INC, cf::datadir ();"
618 "require cf;" 609 "require cf;"
619 }; 610 };
620 611
621 if (perl_parse (perl, xs_init, 2, (char **)argv, (char **)NULL) 612 if (perl_parse (perl, xs_init, 2, (char **)argv, environ)
622 || perl_run (perl)) 613 || perl_run (perl))
623 { 614 {
624 printf ("unable to initialize perl-interpreter, aborting.\n"); 615 printf ("unable to initialize perl-interpreter, aborting.\n");
625 exit (EXIT_FAILURE); 616 exit (EXIT_FAILURE);
626 } 617 }
… …
903} 894}
904 895
905///////////////////////////////////////////////////////////////////////////// 896/////////////////////////////////////////////////////////////////////////////
906// various c++ => perl glue functions 897// various c++ => perl glue functions
907 898
899void cfperl_tick ()
900{
901 tick_pending = 1;
902
903 if (tick_inhibit)
904 return;
905
906 tick_pending = 0;
907
908 dSP;
909
910 PUSHMARK (SP);
911 PUTBACK;
912 call_pv ("cf::tick", G_DISCARD | G_VOID);
913
914 SvNV_set (sv_next_tick, get_next_tick ()); SvNOK_only (sv_next_tick);
915}
916
908void 917void
909cfperl_emergency_save () 918cfperl_emergency_save ()
910{ 919{
911 CALL_BEGIN (0); 920 CALL_BEGIN (0);
912 CALL_CALL ("cf::emergency_save", G_VOID); 921 CALL_CALL ("cf::emergency_save", G_VOID);
… …
1095#endif 1104#endif
1096} 1105}
1097 1106
1098///////////////////////////////////////////////////////////////////////////// 1107/////////////////////////////////////////////////////////////////////////////
1099 1108
1100struct EventAPI *watcher_base::GEventAPI; 1109struct EVAPI *evapi::GEVAPI;
1101struct CoroAPI *coroapi::GCoroAPI; 1110struct CoroAPI *coroapi::GCoroAPI;
1102
1103int coroapi::cede_counter;
1104tstamp coroapi::next_cede;
1105 1111
1106void coroapi::do_cede_to_tick () 1112void coroapi::do_cede_to_tick ()
1107{ 1113{
1108 cede_counter = 0; 1114 cede_pending = 0;
1109
1110 cede (); 1115 cede ();
1111
1112 next_cede += (TICK / CEDES_PER_TICK) * 0.99;
1113 if (next_cede > SvNV (sv_next_tick) - 0.02)
1114 next_cede = SvNV (sv_next_tick);
1115}
1116
1117void coroapi::do_cede_every ()
1118{
1119 cede_counter = 0;
1120
1121 if (coroapi::nready ())
1122 coroapi::cede ();
1123}
1124
1125void coroapi::do_cede_to_tick_every ()
1126{
1127 cede_counter = 0;
1128
1129 cede_to_tick ();
1130} 1116}
1131 1117
1132void 1118void
1133coroapi::wait_for_tick () 1119coroapi::wait_for_tick ()
1134{ 1120{
… …
1143 CALL_BEGIN (0); 1129 CALL_BEGIN (0);
1144 CALL_CALL ("cf::wait_for_tick_begin", G_DISCARD); 1130 CALL_CALL ("cf::wait_for_tick_begin", G_DISCARD);
1145 CALL_END; 1131 CALL_END;
1146} 1132}
1147 1133
1148static void
1149iw_dispatch (pe_event *ev)
1150{
1151 iw *w = (iw *)ev->ext_data;
1152 w->call (*w);
1153}
1154
1155void
1156iw::alloc ()
1157{
1158 pe = GEventAPI->new_idle (0, 0);
1159
1160 WaREENTRANT_off (pe);
1161 pe->base.callback = (void *)iw_dispatch;
1162 pe->base.ext_data = (void *)this;
1163}
1164
1165static void iow_dispatch (pe_event *ev)
1166{
1167 iow *w = (iow *)ev->ext_data;
1168 w->call (*w, ((pe_ioevent *)ev)->got);
1169}
1170
1171void
1172iow::alloc ()
1173{
1174 pe = GEventAPI->new_io (0, 0);
1175
1176 WaREENTRANT_off (pe);
1177 pe->base.callback = (void *)iow_dispatch;
1178 pe->base.ext_data = (void *)this;
1179
1180 pe->fd = -1;
1181 pe->poll = 0;
1182}
1183
1184void
1185iow::fd (int fd)
1186{
1187 pe->fd = fd;
1188}
1189
1190int
1191iow::poll ()
1192{
1193 return pe->poll;
1194}
1195
1196void 1134void
1197iow::poll (int events) 1135iow::poll (int events)
1198{ 1136{
1199 if (pe->poll != events) 1137 if (events != this->events)
1200 { 1138 {
1139 int active = ev_is_active ((ev_io *)this);
1201 if (pe->poll) stop (); 1140 if (active) stop ();
1202 pe->poll = events; 1141 ev_io_set ((ev_io *)this, fd, events);
1203 if (pe->poll) start (); 1142 if (active) start ();
1204 } 1143 }
1205} 1144}
1206 1145
1207void 1146void
1208_connect_to_perl () 1147_connect_to_perl ()
1209{ 1148{
1210 stash_cf = gv_stashpv ("cf" , 1); 1149 stash_cf = gv_stashpv ("cf", 1);
1211 1150
1212 stash_cf_object_wrap = gv_stashpv ("cf::object::wrap", 1); 1151 stash_cf_object_wrap = gv_stashpv ("cf::object::wrap", 1);
1213 stash_cf_object_player_wrap = gv_stashpv ("cf::object::player::wrap", 1); 1152 stash_cf_object_player_wrap = gv_stashpv ("cf::object::player::wrap", 1);
1214 stash_cf_player_wrap = gv_stashpv ("cf::player::wrap", 1); 1153 stash_cf_player_wrap = gv_stashpv ("cf::player::wrap", 1);
1215 stash_cf_map_wrap = gv_stashpv ("cf::map::wrap" , 1); 1154 stash_cf_map_wrap = gv_stashpv ("cf::map::wrap" , 1);
… …
1217 stash_cf_arch_wrap = gv_stashpv ("cf::arch::wrap" , 1); 1156 stash_cf_arch_wrap = gv_stashpv ("cf::arch::wrap" , 1);
1218 stash_cf_party_wrap = gv_stashpv ("cf::party::wrap" , 1); 1157 stash_cf_party_wrap = gv_stashpv ("cf::party::wrap" , 1);
1219 stash_cf_region_wrap = gv_stashpv ("cf::region::wrap", 1); 1158 stash_cf_region_wrap = gv_stashpv ("cf::region::wrap", 1);
1220 stash_cf_living_wrap = gv_stashpv ("cf::living::wrap", 1); 1159 stash_cf_living_wrap = gv_stashpv ("cf::living::wrap", 1);
1221 1160
1161 sv_now = get_sv ("cf::NOW" , 1); SvUPGRADE (sv_now , SVt_NV);
1222 sv_runtime = get_sv ("cf::RUNTIME" , 1); sv_upgrade (sv_runtime , SVt_NV); 1162 sv_runtime = get_sv ("cf::RUNTIME" , 1); SvUPGRADE (sv_runtime , SVt_NV);
1163 sv_tick_start = get_sv ("cf::TICK_START", 1); SvUPGRADE (sv_tick_start, SVt_NV);
1223 sv_next_tick = get_sv ("cf::NEXT_TICK", 1); sv_upgrade (sv_next_tick, SVt_NV); 1164 sv_next_tick = get_sv ("cf::NEXT_TICK" , 1); SvUPGRADE (sv_next_tick , SVt_NV);
1224 1165
1225 cb_global = get_av ("cf::CB_GLOBAL", 1); 1166 cb_global = get_av ("cf::CB_GLOBAL", 1);
1226 cb_attachable = get_av ("cf::CB_ATTACHABLE", 1); 1167 cb_attachable = get_av ("cf::CB_ATTACHABLE", 1);
1227 cb_object = get_av ("cf::CB_OBJECT", 1); 1168 cb_object = get_av ("cf::CB_OBJECT", 1);
1228 cb_player = get_av ("cf::CB_PLAYER", 1); 1169 cb_player = get_av ("cf::CB_PLAYER", 1);
… …
1233 1174
1234MODULE = cf PACKAGE = cf PREFIX = cf_ 1175MODULE = cf PACKAGE = cf PREFIX = cf_
1235 1176
1236BOOT: 1177BOOT:
1237{ 1178{
1238 I_EVENT_API (PACKAGE); watcher_base::GEventAPI = GEventAPI; 1179 I_EV_API (PACKAGE); evapi::GEVAPI = GEVAPI;
1239 I_CORO_API (PACKAGE); coroapi::GCoroAPI = GCoroAPI; 1180 I_CORO_API (PACKAGE); coroapi::GCoroAPI = GCoroAPI;
1240 1181
1241 _connect_to_perl (); 1182 _connect_to_perl ();
1242 1183
1243 newCONSTSUB (stash_cf, "VERSION", newSVpv (VERSION, sizeof (VERSION) - 1)); 1184 newCONSTSUB (stash_cf, "VERSION", newSVpv (VERSION, sizeof (VERSION) - 1));
1244 1185
… …
1461 const_iv (ATNR_PARALYZE) const_iv (ATNR_TURN_UNDEAD) const_iv (ATNR_FEAR) const_iv (ATNR_CANCELLATION) 1402 const_iv (ATNR_PARALYZE) const_iv (ATNR_TURN_UNDEAD) const_iv (ATNR_FEAR) const_iv (ATNR_CANCELLATION)
1462 const_iv (ATNR_DEPLETE) const_iv (ATNR_DEATH) const_iv (ATNR_CHAOS) const_iv (ATNR_COUNTERSPELL) 1403 const_iv (ATNR_DEPLETE) const_iv (ATNR_DEATH) const_iv (ATNR_CHAOS) const_iv (ATNR_COUNTERSPELL)
1463 const_iv (ATNR_GODPOWER) const_iv (ATNR_HOLYWORD) const_iv (ATNR_BLIND) const_iv (ATNR_INTERNAL) 1404 const_iv (ATNR_GODPOWER) const_iv (ATNR_HOLYWORD) const_iv (ATNR_BLIND) const_iv (ATNR_INTERNAL)
1464 const_iv (ATNR_LIFE_STEALING) const_iv (ATNR_DISEASE) 1405 const_iv (ATNR_LIFE_STEALING) const_iv (ATNR_DISEASE)
1465 1406
1466 const_iv (MAP_IN_MEMORY) const_iv (MAP_SWAPPED) const_iv (MAP_LOADING) const_iv (MAP_SAVING) 1407 const_iv (MAP_ACTIVE) const_iv (MAP_SWAPPED) const_iv (MAP_LOADING) const_iv (MAP_SAVING)
1408 const_iv (MAP_INACTIVE)
1467 1409
1468 const_iv (KLASS_ATTACHABLE) const_iv (KLASS_GLOBAL) const_iv (KLASS_OBJECT) 1410 const_iv (KLASS_ATTACHABLE) const_iv (KLASS_GLOBAL) const_iv (KLASS_OBJECT)
1469 const_iv (KLASS_CLIENT) const_iv (KLASS_PLAYER) const_iv (KLASS_MAP) 1411 const_iv (KLASS_CLIENT) const_iv (KLASS_PLAYER) const_iv (KLASS_MAP)
1470 1412
1471 const_iv (VERSION_CS) const_iv (VERSION_SC) 1413 const_iv (VERSION_CS) const_iv (VERSION_SC)
… …
1576 } 1518 }
1577 1519
1578 SvCUR_set (data_sv, dst - SvPVX (data_sv)); 1520 SvCUR_set (data_sv, dst - SvPVX (data_sv));
1579} 1521}
1580 1522
1523void evthread_start (int aiofd)
1524
1581void _post_tick () 1525void cede_to_tick ()
1582 CODE: 1526 CODE:
1583 coroapi::next_cede = SvNV (sv_next_tick) - TICK * (1. - 1. / CEDES_PER_TICK); 1527 coroapi::cede_to_tick ();
1584 1528
1585NV till_cede () 1529NV till_tick ()
1586 CODE: 1530 CODE:
1587 RETVAL = coroapi::next_cede - now (); 1531 RETVAL = SvNVX (sv_next_tick) - now ();
1588 OUTPUT: 1532 OUTPUT:
1589 RETVAL 1533 RETVAL
1590 1534
1591NV till_tick () 1535int tick_inhibit ()
1592 CODE: 1536 CODE:
1593 RETVAL = SvNV (sv_next_tick) - now (); 1537 RETVAL = tick_inhibit;
1594 OUTPUT: 1538 OUTPUT:
1595 RETVAL 1539 RETVAL
1540
1541void tick_inhibit_inc ()
1542 CODE:
1543 ++tick_inhibit;
1544
1545void tick_inhibit_dec ()
1546 CODE:
1547 if (!--tick_inhibit)
1548 if (tick_pending)
1549 {
1550 ev_async_send (EV_DEFAULT, &tick_watcher);
1551 coroapi::cede ();
1552 }
1553
1554void server_tick ()
1555 CODE:
1556{
1557 NOW = ev_now (EV_DEFAULT);
1558 SvNV_set (sv_now, NOW); SvNOK_only (sv_now);
1559 SvNV_set (sv_tick_start, NOW); SvNOK_only (sv_tick_start);
1560 runtime = SvNVX (sv_runtime);
1561
1562 server_tick ();
1563
1564 NOW = ev_time ();
1565 SvNV_set (sv_now, NOW); SvNOK_only (sv_now);
1566 runtime += TICK;
1567 SvNV_set (sv_runtime, runtime); SvNOK_only (sv_runtime);
1568}
1596 1569
1597NV floor (NV x) 1570NV floor (NV x)
1598 1571
1599NV ceil (NV x) 1572NV ceil (NV x)
1600 1573
… …
1620 CODE: 1593 CODE:
1621 RETVAL = lerp (value, min_in, max_in, min_out, max_out); 1594 RETVAL = lerp (value, min_in, max_in, min_out, max_out);
1622 OUTPUT: 1595 OUTPUT:
1623 RETVAL 1596 RETVAL
1624 1597
1625void cede_to_tick () 1598void weaken (...)
1626 CODE: 1599 PROTOTYPE: @
1627 coroapi::cede_to_tick (); 1600 CODE:
1628 1601 while (items > 0)
1629void server_tick () 1602 sv_rvweaken (ST (--items));
1630 CODE:
1631 NOW = now ();
1632 runtime = SvNVx (sv_runtime);
1633 server_tick ();
1634 1603
1635void 1604void
1636log_backtrace (utf8_string msg) 1605log_backtrace (utf8_string msg)
1637 1606
1638void 1607void
… …
1643octet_string path_combine (octet_string base, octet_string path) 1612octet_string path_combine (octet_string base, octet_string path)
1644 PROTOTYPE: $$ 1613 PROTOTYPE: $$
1645 1614
1646octet_string path_combine_and_normalize (octet_string base, octet_string path) 1615octet_string path_combine_and_normalize (octet_string base, octet_string path)
1647 PROTOTYPE: $$ 1616 PROTOTYPE: $$
1617
1618void
1619mallinfo ()
1620 PPCODE:
1621{
1622#if __GLIBC__
1623 struct mallinfo mai = mallinfo ();
1624 EXTEND (SP, 10*2);
1625 PUSHs (sv_2mortal (newSVpv ("arena" , 0))); PUSHs (sv_2mortal (newSViv (mai.arena)));
1626 PUSHs (sv_2mortal (newSVpv ("ordblks" , 0))); PUSHs (sv_2mortal (newSViv (mai.ordblks)));
1627 PUSHs (sv_2mortal (newSVpv ("smblks" , 0))); PUSHs (sv_2mortal (newSViv (mai.smblks)));
1628 PUSHs (sv_2mortal (newSVpv ("hblks" , 0))); PUSHs (sv_2mortal (newSViv (mai.hblks)));
1629 PUSHs (sv_2mortal (newSVpv ("hblkhd" , 0))); PUSHs (sv_2mortal (newSViv (mai.hblkhd)));
1630 PUSHs (sv_2mortal (newSVpv ("usmblks" , 0))); PUSHs (sv_2mortal (newSViv (mai.usmblks)));
1631 PUSHs (sv_2mortal (newSVpv ("fsmblks" , 0))); PUSHs (sv_2mortal (newSViv (mai.fsmblks)));
1632 PUSHs (sv_2mortal (newSVpv ("uordblks", 0))); PUSHs (sv_2mortal (newSViv (mai.uordblks)));
1633 PUSHs (sv_2mortal (newSVpv ("fordblks", 0))); PUSHs (sv_2mortal (newSViv (mai.fordblks)));
1634 PUSHs (sv_2mortal (newSVpv ("keepcost", 0))); PUSHs (sv_2mortal (newSViv (mai.keepcost)));
1635#endif
1636 EXTEND (SP, 2*2);
1637 PUSHs (sv_2mortal (newSVpv ("slice_alloc", 0))); PUSHs (sv_2mortal (newSVuv (slice_alloc)));
1638 PUSHs (sv_2mortal (newSVpv ("shstr_alloc", 0))); PUSHs (sv_2mortal (newSVuv (shstr_alloc)));
1639}
1648 1640
1649void 1641void
1650sub_generation_inc () 1642sub_generation_inc ()
1651 CODE: 1643 CODE:
1652 PL_sub_generation++; 1644 PL_sub_generation++;
… …
1677 1669
1678void abort () 1670void abort ()
1679 1671
1680void reset_signals () 1672void reset_signals ()
1681 1673
1682void fork_abort (octet_string cause = "cf::fork_abort") 1674void fork_abort (const_octet_string cause = "cf::fork_abort")
1683 1675
1684void cleanup (octet_string cause, bool make_core = false) 1676void cleanup (const_octet_string cause, bool make_core = false)
1685 1677
1686void emergency_save () 1678void emergency_save ()
1687 1679
1688void _exit (int status = EXIT_SUCCESS) 1680void _exit (int status = EXIT_SUCCESS)
1689 1681
1690UV sv_2watcher (SV *w)
1691 CODE:
1692 RETVAL = (UV)GEventAPI->sv_2watcher (w);
1693 OUTPUT:
1694 RETVAL
1695
1696#if _POSIX_MEMLOCK 1682#if _POSIX_MEMLOCK
1697 1683
1698int mlockall (int flags = MCL_CURRENT | MCL_FUTURE) 1684int mlockall (int flags = MCL_CURRENT | MCL_FUTURE)
1685 INIT:
1686 mallopt (M_PERTURB, 0xaa); // bug-workaround for linux glibc+mlockall+calloc
1699 1687
1700int munlockall () 1688int munlockall ()
1701 1689
1702#endif 1690#endif
1703 1691
… …
1744 if (atnr >= 0 && atnr < NROFATTACKS) 1732 if (atnr >= 0 && atnr < NROFATTACKS)
1745 RETVAL = newSVpv (resist_plus[atnr], 0); 1733 RETVAL = newSVpv (resist_plus[atnr], 0);
1746 else 1734 else
1747 XSRETURN_UNDEF; 1735 XSRETURN_UNDEF;
1748 OUTPUT: RETVAL 1736 OUTPUT: RETVAL
1737
1738UUID
1739uuid_cur ()
1740 CODE:
1741 RETVAL = UUID::cur;
1742 OUTPUT:
1743 RETVAL
1744
1745UUID
1746uuid_gen ()
1747 CODE:
1748 RETVAL = UUID::gen ();
1749 OUTPUT:
1750 RETVAL
1751
1752val64
1753uuid_seq (UUID uuid)
1754 CODE:
1755 RETVAL = uuid.seq;
1756 OUTPUT:
1757 RETVAL
1758
1759UUID
1760uuid_str (val64 seq)
1761 CODE:
1762 RETVAL.seq = seq;
1763 OUTPUT:
1764 RETVAL
1765
1766void
1767coin_names ()
1768 PPCODE:
1769 EXTEND (SP, NUM_COINS);
1770 for (int i = 0; i < NUM_COINS; ++i)
1771 PUSHs (sv_2mortal (newSVpv (coins [i], 0)));
1772
1773void
1774coin_archetypes ()
1775 PPCODE:
1776 EXTEND (SP, NUM_COINS);
1777 for (int i = 0; i < NUM_COINS; ++i)
1778 PUSHs (sv_2mortal (to_sv (archetype::find (coins [i]))));
1749 1779
1750bool 1780bool
1751load_resource_file (octet_string filename) 1781load_resource_file (octet_string filename)
1752 1782
1753MODULE = cf PACKAGE = cf::attachable 1783MODULE = cf PACKAGE = cf::attachable
… …
2698 } 2728 }
2699} 2729}
2700 2730
2701int get_data_size (faceidx idx, int faceset = 0) 2731int get_data_size (faceidx idx, int faceset = 0)
2702 CODE: 2732 CODE:
2703 facedata *d = face_data (idx, faceset); assert (d); 2733 facedata *d = face_data (idx, faceset);
2734 if (!d) XSRETURN_UNDEF;
2704 RETVAL = d->data.size (); 2735 RETVAL = d->data.size ();
2705 OUTPUT: 2736 OUTPUT:
2706 RETVAL 2737 RETVAL
2707 2738
2708SV *get_chksum (faceidx idx, int faceset = 0) 2739SV *get_chksum (faceidx idx, int faceset = 0)
2709 CODE: 2740 CODE:
2710 facedata *d = face_data (idx, faceset); assert (d); 2741 facedata *d = face_data (idx, faceset);
2742 if (!d) XSRETURN_UNDEF;
2711 RETVAL = newSVpvn ((char *)d->chksum, CHKSUM_SIZE); 2743 RETVAL = newSVpvn ((char *)d->chksum, CHKSUM_SIZE);
2744 OUTPUT:
2745 RETVAL
2746
2747SV *get_data (faceidx idx, int faceset = 0)
2748 CODE:
2749 facedata *d = face_data (idx, faceset);
2750 if (!d) XSRETURN_UNDEF;
2751 RETVAL = newSVpvn (d->data.data (), d->data.length ());
2712 OUTPUT: 2752 OUTPUT:
2713 RETVAL 2753 RETVAL
2714 2754
2715void invalidate (faceidx idx) 2755void invalidate (faceidx idx)
2716 CODE: 2756 CODE:
… …
2808extract_tags (object_thawer *self) 2848extract_tags (object_thawer *self)
2809 PPCODE: 2849 PPCODE:
2810 while (self->kw != KW_EOF) 2850 while (self->kw != KW_EOF)
2811 { 2851 {
2812 PUTBACK; 2852 PUTBACK;
2813 coroapi::cede_to_tick_every (5000); 2853 coroapi::cede_to_tick ();
2814 SPAGAIN; 2854 SPAGAIN;
2815 2855
2816 if (self->kw == KW_tag) 2856 if (self->kw == KW_tag)
2817 XPUSHs (sv_2mortal (newSVpv_utf8 (self->get_str ()))); 2857 XPUSHs (sv_2mortal (newSVpv_utf8 (self->get_str ())));
2818 2858

Diff Legend

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