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.267 by root, Mon Dec 17 08:03:22 2007 UTC vs.
Revision 1.275 by root, Fri Apr 11 13:59:06 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
… …
60typedef object_thawer &object_thawer_ref; 59typedef object_thawer &object_thawer_ref;
61typedef object_freezer &object_freezer_ref; 60typedef object_freezer &object_freezer_ref;
62 61
63typedef std::string std__string; 62typedef std::string std__string;
64 63
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; 64static PerlInterpreter *perl;
76 65
77tstamp NOW, runtime; 66tstamp NOW, runtime;
67
68static int tick_inhibit;
69static int tick_pending;
78 70
79global gbl_ev; 71global gbl_ev;
80static 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;
81static SV *sv_runtime, *sv_next_tick, *sv_now; 73static SV *sv_runtime, *sv_tick_start, *sv_next_tick, *sv_now;
82 74
83bitset<NUM_EVENT_TYPES> ev_want_event; 75bitset<NUM_EVENT_TYPES> ev_want_event;
84bitset<NUM_TYPES> ev_want_type; 76bitset<NUM_TYPES> ev_want_type;
85 77
86static HV 78static HV
… …
442inline SV *to_sv (living & v) { return to_sv (&v); } 434inline SV *to_sv (living & v) { return to_sv (&v); }
443 435
444inline 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 ()); }
445inline SV *to_sv (const treasurelist *v) { return to_sv (v->name); } 437inline SV *to_sv (const treasurelist *v) { return to_sv (v->name); }
446 438
447inline SV *to_sv (UUID v) 439inline 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 440
454inline 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; }
455inline 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; }
456inline void sv_to (SV *sv, bool &v) { v = SvIV (sv); } 443inline void sv_to (SV *sv, bool &v) { v = SvIV (sv); }
457inline void sv_to (SV *sv, signed char &v) { v = SvIV (sv); } 444inline void sv_to (SV *sv, signed char &v) { v = SvIV (sv); }
… …
499 v.assign (data, len); 486 v.assign (data, len);
500} 487}
501 488
502inline void sv_to (SV *sv, UUID &v) 489inline void sv_to (SV *sv, UUID &v)
503{ 490{
504 unsigned int version; 491 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)); 492 croak ("unparsable uuid: %s", SvPV_nolen (sv));
508} 493}
509 494
510inline 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); }
511 496
… …
605///////////////////////////////////////////////////////////////////////////// 590/////////////////////////////////////////////////////////////////////////////
606 591
607void 592void
608cfperl_init () 593cfperl_init ()
609{ 594{
595 extern char **environ;
596
610 PERL_SYS_INIT3 (&settings.argc, &settings.argv, 0); 597 PERL_SYS_INIT3 (&settings.argc, &settings.argv, &environ);
611 perl = perl_alloc (); 598 perl = perl_alloc ();
612 perl_construct (perl); 599 perl_construct (perl);
613 600
614 PL_exit_flags |= PERL_EXIT_DESTRUCT_END; 601 PL_exit_flags |= PERL_EXIT_DESTRUCT_END;
615 602
… …
620 "cf->bootstrap;" // required for datadir :*> 607 "cf->bootstrap;" // required for datadir :*>
621 "unshift @INC, cf::datadir ();" 608 "unshift @INC, cf::datadir ();"
622 "require cf;" 609 "require cf;"
623 }; 610 };
624 611
625 if (perl_parse (perl, xs_init, 2, (char **)argv, (char **)NULL) 612 if (perl_parse (perl, xs_init, 2, (char **)argv, environ)
626 || perl_run (perl)) 613 || perl_run (perl))
627 { 614 {
628 printf ("unable to initialize perl-interpreter, aborting.\n"); 615 printf ("unable to initialize perl-interpreter, aborting.\n");
629 exit (EXIT_FAILURE); 616 exit (EXIT_FAILURE);
630 } 617 }
… …
907} 894}
908 895
909///////////////////////////////////////////////////////////////////////////// 896/////////////////////////////////////////////////////////////////////////////
910// various c++ => perl glue functions 897// various c++ => perl glue functions
911 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
912void 917void
913cfperl_emergency_save () 918cfperl_emergency_save ()
914{ 919{
915 CALL_BEGIN (0); 920 CALL_BEGIN (0);
916 CALL_CALL ("cf::emergency_save", G_VOID); 921 CALL_CALL ("cf::emergency_save", G_VOID);
… …
1102///////////////////////////////////////////////////////////////////////////// 1107/////////////////////////////////////////////////////////////////////////////
1103 1108
1104struct EVAPI *evapi::GEVAPI; 1109struct EVAPI *evapi::GEVAPI;
1105struct CoroAPI *coroapi::GCoroAPI; 1110struct CoroAPI *coroapi::GCoroAPI;
1106 1111
1107int coroapi::cede_counter;
1108tstamp coroapi::next_cede;
1109
1110void coroapi::do_cede_to_tick () 1112void coroapi::do_cede_to_tick ()
1111{ 1113{
1112 cede_counter = 0; 1114 cede_pending = 0;
1113
1114 cede (); 1115 cede ();
1115
1116 next_cede += (TICK / CEDES_PER_TICK) * 0.99;
1117 if (next_cede > SvNVx (sv_next_tick) - 0.02)
1118 next_cede = SvNVx (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} 1116}
1135 1117
1136void 1118void
1137coroapi::wait_for_tick () 1119coroapi::wait_for_tick ()
1138{ 1120{
… …
1162} 1144}
1163 1145
1164void 1146void
1165_connect_to_perl () 1147_connect_to_perl ()
1166{ 1148{
1167 stash_cf = gv_stashpv ("cf" , 1); 1149 stash_cf = gv_stashpv ("cf", 1);
1168 1150
1169 stash_cf_object_wrap = gv_stashpv ("cf::object::wrap", 1); 1151 stash_cf_object_wrap = gv_stashpv ("cf::object::wrap", 1);
1170 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);
1171 stash_cf_player_wrap = gv_stashpv ("cf::player::wrap", 1); 1153 stash_cf_player_wrap = gv_stashpv ("cf::player::wrap", 1);
1172 stash_cf_map_wrap = gv_stashpv ("cf::map::wrap" , 1); 1154 stash_cf_map_wrap = gv_stashpv ("cf::map::wrap" , 1);
… …
1174 stash_cf_arch_wrap = gv_stashpv ("cf::arch::wrap" , 1); 1156 stash_cf_arch_wrap = gv_stashpv ("cf::arch::wrap" , 1);
1175 stash_cf_party_wrap = gv_stashpv ("cf::party::wrap" , 1); 1157 stash_cf_party_wrap = gv_stashpv ("cf::party::wrap" , 1);
1176 stash_cf_region_wrap = gv_stashpv ("cf::region::wrap", 1); 1158 stash_cf_region_wrap = gv_stashpv ("cf::region::wrap", 1);
1177 stash_cf_living_wrap = gv_stashpv ("cf::living::wrap", 1); 1159 stash_cf_living_wrap = gv_stashpv ("cf::living::wrap", 1);
1178 1160
1179 sv_now = get_sv ("cf::NOW" , 1); sv_upgrade (sv_now , SVt_NV); 1161 sv_now = get_sv ("cf::NOW" , 1); SvUPGRADE (sv_now , SVt_NV);
1180 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);
1181 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);
1182 1165
1183 cb_global = get_av ("cf::CB_GLOBAL", 1); 1166 cb_global = get_av ("cf::CB_GLOBAL", 1);
1184 cb_attachable = get_av ("cf::CB_ATTACHABLE", 1); 1167 cb_attachable = get_av ("cf::CB_ATTACHABLE", 1);
1185 cb_object = get_av ("cf::CB_OBJECT", 1); 1168 cb_object = get_av ("cf::CB_OBJECT", 1);
1186 cb_player = get_av ("cf::CB_PLAYER", 1); 1169 cb_player = get_av ("cf::CB_PLAYER", 1);
… …
1534 } 1517 }
1535 1518
1536 SvCUR_set (data_sv, dst - SvPVX (data_sv)); 1519 SvCUR_set (data_sv, dst - SvPVX (data_sv));
1537} 1520}
1538 1521
1522void evthread_start (int aiofd)
1523
1539void _post_tick () 1524void cede_to_tick ()
1540 CODE: 1525 CODE:
1541 coroapi::next_cede = SvNVx (sv_next_tick) - TICK * (1. - 1. / CEDES_PER_TICK); 1526 coroapi::cede_to_tick ();
1542 1527
1543NV till_cede () 1528NV till_tick ()
1544 CODE: 1529 CODE:
1545 RETVAL = coroapi::next_cede - now (); 1530 RETVAL = SvNVX (sv_next_tick) - now ();
1546 OUTPUT: 1531 OUTPUT:
1547 RETVAL 1532 RETVAL
1548 1533
1549NV till_tick () 1534int tick_inhibit ()
1550 CODE: 1535 CODE:
1551 RETVAL = SvNVx (sv_next_tick) - now (); 1536 RETVAL = tick_inhibit;
1552 OUTPUT: 1537 OUTPUT:
1553 RETVAL 1538 RETVAL
1539
1540void tick_inhibit_inc ()
1541 CODE:
1542 ++tick_inhibit;
1543
1544void tick_inhibit_dec ()
1545 CODE:
1546 if (!--tick_inhibit)
1547 if (tick_pending)
1548 {
1549 ev_async_send (EV_DEFAULT, &tick_watcher);
1550 coroapi::cede ();
1551 }
1552
1553void server_tick ()
1554 CODE:
1555{
1556 NOW = ev_now (EV_DEFAULT);
1557 SvNV_set (sv_now, NOW); SvNOK_only (sv_now);
1558 SvNV_set (sv_tick_start, NOW); SvNOK_only (sv_tick_start);
1559 runtime = SvNVX (sv_runtime);
1560
1561 server_tick ();
1562
1563 NOW = ev_time ();
1564 SvNV_set (sv_now, NOW); SvNOK_only (sv_now);
1565 runtime += TICK;
1566 SvNV_set (sv_runtime, runtime); SvNOK_only (sv_runtime);
1567}
1554 1568
1555NV floor (NV x) 1569NV floor (NV x)
1556 1570
1557NV ceil (NV x) 1571NV ceil (NV x)
1558 1572
… …
1578 CODE: 1592 CODE:
1579 RETVAL = lerp (value, min_in, max_in, min_out, max_out); 1593 RETVAL = lerp (value, min_in, max_in, min_out, max_out);
1580 OUTPUT: 1594 OUTPUT:
1581 RETVAL 1595 RETVAL
1582 1596
1583void cede_to_tick () 1597void weaken (...)
1584 CODE: 1598 PROTOTYPE: @
1585 coroapi::cede_to_tick (); 1599 CODE:
1586 1600 while (items > 0)
1587void server_tick () 1601 sv_rvweaken (ST (--items));
1588 CODE:
1589 NOW = SvNVx (sv_now);
1590 runtime = SvNVx (sv_runtime);
1591 server_tick ();
1592 1602
1593void 1603void
1594log_backtrace (utf8_string msg) 1604log_backtrace (utf8_string msg)
1595 1605
1596void 1606void
… …
1658 1668
1659void abort () 1669void abort ()
1660 1670
1661void reset_signals () 1671void reset_signals ()
1662 1672
1663void fork_abort (octet_string cause = "cf::fork_abort") 1673void fork_abort (const_octet_string cause = "cf::fork_abort")
1664 1674
1665void cleanup (octet_string cause, bool make_core = false) 1675void cleanup (const_octet_string cause, bool make_core = false)
1666 1676
1667void emergency_save () 1677void emergency_save ()
1668 1678
1669void _exit (int status = EXIT_SUCCESS) 1679void _exit (int status = EXIT_SUCCESS)
1670 1680
1671#if _POSIX_MEMLOCK 1681#if _POSIX_MEMLOCK
1672 1682
1673int mlockall (int flags = MCL_CURRENT | MCL_FUTURE) 1683int mlockall (int flags = MCL_CURRENT | MCL_FUTURE)
1684 INIT:
1685 mallopt (M_PERTURB, 0xaa); // bug-workaround for linux glibc+mlockall+calloc
1674 1686
1675int munlockall () 1687int munlockall ()
1676 1688
1677#endif 1689#endif
1678 1690
… …
1719 if (atnr >= 0 && atnr < NROFATTACKS) 1731 if (atnr >= 0 && atnr < NROFATTACKS)
1720 RETVAL = newSVpv (resist_plus[atnr], 0); 1732 RETVAL = newSVpv (resist_plus[atnr], 0);
1721 else 1733 else
1722 XSRETURN_UNDEF; 1734 XSRETURN_UNDEF;
1723 OUTPUT: RETVAL 1735 OUTPUT: RETVAL
1736
1737UUID
1738uuid_cur ()
1739 CODE:
1740 RETVAL = UUID::cur;
1741 OUTPUT:
1742 RETVAL
1743
1744UUID
1745uuid_gen ()
1746 CODE:
1747 RETVAL = UUID::gen ();
1748 OUTPUT:
1749 RETVAL
1750
1751val64
1752uuid_seq (UUID uuid)
1753 CODE:
1754 RETVAL = uuid.seq;
1755 OUTPUT:
1756 RETVAL
1757
1758UUID
1759uuid_str (val64 seq)
1760 CODE:
1761 RETVAL.seq = seq;
1762 OUTPUT:
1763 RETVAL
1764
1765void
1766coin_names ()
1767 PPCODE:
1768 EXTEND (SP, NUM_COINS);
1769 for (int i = 0; i < NUM_COINS; ++i)
1770 PUSHs (sv_2mortal (newSVpv (coins [i], 0)));
1771
1772void
1773coin_archetypes ()
1774 PPCODE:
1775 EXTEND (SP, NUM_COINS);
1776 for (int i = 0; i < NUM_COINS; ++i)
1777 PUSHs (sv_2mortal (to_sv (archetype::find (coins [i]))));
1724 1778
1725bool 1779bool
1726load_resource_file (octet_string filename) 1780load_resource_file (octet_string filename)
1727 1781
1728MODULE = cf PACKAGE = cf::attachable 1782MODULE = cf PACKAGE = cf::attachable
… …
2793extract_tags (object_thawer *self) 2847extract_tags (object_thawer *self)
2794 PPCODE: 2848 PPCODE:
2795 while (self->kw != KW_EOF) 2849 while (self->kw != KW_EOF)
2796 { 2850 {
2797 PUTBACK; 2851 PUTBACK;
2798 coroapi::cede_to_tick_every (5000); 2852 coroapi::cede_to_tick ();
2799 SPAGAIN; 2853 SPAGAIN;
2800 2854
2801 if (self->kw == KW_tag) 2855 if (self->kw == KW_tag)
2802 XPUSHs (sv_2mortal (newSVpv_utf8 (self->get_str ()))); 2856 XPUSHs (sv_2mortal (newSVpv_utf8 (self->get_str ())));
2803 2857

Diff Legend

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