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.259 by root, Tue Oct 16 04:09:31 2007 UTC vs.
Revision 1.267 by root, Mon Dec 17 08:03:22 2007 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 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"
… …
76 76
77tstamp NOW, runtime; 77tstamp NOW, runtime;
78 78
79global gbl_ev; 79global gbl_ev;
80static AV *cb_global, *cb_attachable, *cb_object, *cb_player, *cb_client, *cb_type, *cb_map; 80static AV *cb_global, *cb_attachable, *cb_object, *cb_player, *cb_client, *cb_type, *cb_map;
81static SV *sv_runtime, *sv_next_tick; 81static SV *sv_runtime, *sv_next_tick, *sv_now;
82 82
83bitset<NUM_EVENT_TYPES> ev_want_event; 83bitset<NUM_EVENT_TYPES> ev_want_event;
84bitset<NUM_TYPES> ev_want_type; 84bitset<NUM_TYPES> ev_want_type;
85 85
86static HV 86static HV
… …
614 PL_exit_flags |= PERL_EXIT_DESTRUCT_END; 614 PL_exit_flags |= PERL_EXIT_DESTRUCT_END;
615 615
616 const char *argv[] = { 616 const char *argv[] = {
617 settings.argv [0], 617 settings.argv [0],
618 "-e" 618 "-e"
619 "use Event; use Coro;" // required for bootstrap 619 "use EV; use Coro;" // required for bootstrap
620 "cf->bootstrap;" // required for datadir :*> 620 "cf->bootstrap;" // required for datadir :*>
621 "unshift @INC, cf::datadir ();" 621 "unshift @INC, cf::datadir ();"
622 "require cf;" 622 "require cf;"
623 }; 623 };
624 624
625 if (perl_parse (perl, xs_init, 2, (char **)argv, (char **)NULL) 625 if (perl_parse (perl, xs_init, 2, (char **)argv, (char **)NULL)
… …
1099#endif 1099#endif
1100} 1100}
1101 1101
1102///////////////////////////////////////////////////////////////////////////// 1102/////////////////////////////////////////////////////////////////////////////
1103 1103
1104struct EventAPI *watcher_base::GEventAPI; 1104struct EVAPI *evapi::GEVAPI;
1105struct CoroAPI *coroapi::GCoroAPI; 1105struct CoroAPI *coroapi::GCoroAPI;
1106 1106
1107int coroapi::cede_counter; 1107int coroapi::cede_counter;
1108tstamp coroapi::next_cede; 1108tstamp coroapi::next_cede;
1109 1109
1110void coroapi::do_cede_to_tick () 1110void coroapi::do_cede_to_tick ()
… …
1112 cede_counter = 0; 1112 cede_counter = 0;
1113 1113
1114 cede (); 1114 cede ();
1115 1115
1116 next_cede += (TICK / CEDES_PER_TICK) * 0.99; 1116 next_cede += (TICK / CEDES_PER_TICK) * 0.99;
1117 if (next_cede > SvNV (sv_next_tick) - 0.02) 1117 if (next_cede > SvNVx (sv_next_tick) - 0.02)
1118 next_cede = SvNV (sv_next_tick); 1118 next_cede = SvNVx (sv_next_tick);
1119} 1119}
1120 1120
1121void coroapi::do_cede_every () 1121void coroapi::do_cede_every ()
1122{ 1122{
1123 cede_counter = 0; 1123 cede_counter = 0;
… …
1147 CALL_BEGIN (0); 1147 CALL_BEGIN (0);
1148 CALL_CALL ("cf::wait_for_tick_begin", G_DISCARD); 1148 CALL_CALL ("cf::wait_for_tick_begin", G_DISCARD);
1149 CALL_END; 1149 CALL_END;
1150} 1150}
1151 1151
1152static void
1153iw_dispatch (pe_event *ev)
1154{
1155 iw *w = (iw *)ev->ext_data;
1156 w->call (*w);
1157}
1158
1159void
1160iw::alloc ()
1161{
1162 pe = GEventAPI->new_idle (0, 0);
1163
1164 WaREENTRANT_off (pe);
1165 pe->base.callback = (void *)iw_dispatch;
1166 pe->base.ext_data = (void *)this;
1167}
1168
1169static void iow_dispatch (pe_event *ev)
1170{
1171 iow *w = (iow *)ev->ext_data;
1172 w->call (*w, ((pe_ioevent *)ev)->got);
1173}
1174
1175void
1176iow::alloc ()
1177{
1178 pe = GEventAPI->new_io (0, 0);
1179
1180 WaREENTRANT_off (pe);
1181 pe->base.callback = (void *)iow_dispatch;
1182 pe->base.ext_data = (void *)this;
1183
1184 pe->fd = -1;
1185 pe->poll = 0;
1186}
1187
1188void
1189iow::fd (int fd)
1190{
1191 pe->fd = fd;
1192}
1193
1194int
1195iow::poll ()
1196{
1197 return pe->poll;
1198}
1199
1200void 1152void
1201iow::poll (int events) 1153iow::poll (int events)
1202{ 1154{
1203 if (pe->poll != events) 1155 if (events != this->events)
1204 { 1156 {
1157 int active = ev_is_active ((ev_io *)this);
1205 if (pe->poll) stop (); 1158 if (active) stop ();
1206 pe->poll = events; 1159 ev_io_set ((ev_io *)this, fd, events);
1207 if (pe->poll) start (); 1160 if (active) start ();
1208 } 1161 }
1209} 1162}
1210 1163
1211void 1164void
1212_connect_to_perl () 1165_connect_to_perl ()
… …
1221 stash_cf_arch_wrap = gv_stashpv ("cf::arch::wrap" , 1); 1174 stash_cf_arch_wrap = gv_stashpv ("cf::arch::wrap" , 1);
1222 stash_cf_party_wrap = gv_stashpv ("cf::party::wrap" , 1); 1175 stash_cf_party_wrap = gv_stashpv ("cf::party::wrap" , 1);
1223 stash_cf_region_wrap = gv_stashpv ("cf::region::wrap", 1); 1176 stash_cf_region_wrap = gv_stashpv ("cf::region::wrap", 1);
1224 stash_cf_living_wrap = gv_stashpv ("cf::living::wrap", 1); 1177 stash_cf_living_wrap = gv_stashpv ("cf::living::wrap", 1);
1225 1178
1179 sv_now = get_sv ("cf::NOW" , 1); sv_upgrade (sv_now , SVt_NV);
1226 sv_runtime = get_sv ("cf::RUNTIME" , 1); sv_upgrade (sv_runtime , SVt_NV); 1180 sv_runtime = get_sv ("cf::RUNTIME" , 1); sv_upgrade (sv_runtime , SVt_NV);
1227 sv_next_tick = get_sv ("cf::NEXT_TICK", 1); sv_upgrade (sv_next_tick, SVt_NV); 1181 sv_next_tick = get_sv ("cf::NEXT_TICK", 1); sv_upgrade (sv_next_tick, SVt_NV);
1228 1182
1229 cb_global = get_av ("cf::CB_GLOBAL", 1); 1183 cb_global = get_av ("cf::CB_GLOBAL", 1);
1230 cb_attachable = get_av ("cf::CB_ATTACHABLE", 1); 1184 cb_attachable = get_av ("cf::CB_ATTACHABLE", 1);
… …
1237 1191
1238MODULE = cf PACKAGE = cf PREFIX = cf_ 1192MODULE = cf PACKAGE = cf PREFIX = cf_
1239 1193
1240BOOT: 1194BOOT:
1241{ 1195{
1242 I_EVENT_API (PACKAGE); watcher_base::GEventAPI = GEventAPI; 1196 I_EV_API (PACKAGE); evapi::GEVAPI = GEVAPI;
1243 I_CORO_API (PACKAGE); coroapi::GCoroAPI = GCoroAPI; 1197 I_CORO_API (PACKAGE); coroapi::GCoroAPI = GCoroAPI;
1244 1198
1245 _connect_to_perl (); 1199 _connect_to_perl ();
1246 1200
1247 newCONSTSUB (stash_cf, "VERSION", newSVpv (VERSION, sizeof (VERSION) - 1)); 1201 newCONSTSUB (stash_cf, "VERSION", newSVpv (VERSION, sizeof (VERSION) - 1));
1248 1202
… …
1582 SvCUR_set (data_sv, dst - SvPVX (data_sv)); 1536 SvCUR_set (data_sv, dst - SvPVX (data_sv));
1583} 1537}
1584 1538
1585void _post_tick () 1539void _post_tick ()
1586 CODE: 1540 CODE:
1587 coroapi::next_cede = SvNV (sv_next_tick) - TICK * (1. - 1. / CEDES_PER_TICK); 1541 coroapi::next_cede = SvNVx (sv_next_tick) - TICK * (1. - 1. / CEDES_PER_TICK);
1588 1542
1589NV till_cede () 1543NV till_cede ()
1590 CODE: 1544 CODE:
1591 RETVAL = coroapi::next_cede - now (); 1545 RETVAL = coroapi::next_cede - now ();
1592 OUTPUT: 1546 OUTPUT:
1593 RETVAL 1547 RETVAL
1594 1548
1595NV till_tick () 1549NV till_tick ()
1596 CODE: 1550 CODE:
1597 RETVAL = SvNV (sv_next_tick) - now (); 1551 RETVAL = SvNVx (sv_next_tick) - now ();
1598 OUTPUT: 1552 OUTPUT:
1599 RETVAL 1553 RETVAL
1600 1554
1601NV floor (NV x) 1555NV floor (NV x)
1602 1556
… …
1630 CODE: 1584 CODE:
1631 coroapi::cede_to_tick (); 1585 coroapi::cede_to_tick ();
1632 1586
1633void server_tick () 1587void server_tick ()
1634 CODE: 1588 CODE:
1635 NOW = now (); 1589 NOW = SvNVx (sv_now);
1636 runtime = SvNVx (sv_runtime); 1590 runtime = SvNVx (sv_runtime);
1637 server_tick (); 1591 server_tick ();
1638 1592
1639void 1593void
1640log_backtrace (utf8_string msg) 1594log_backtrace (utf8_string msg)
… …
1654mallinfo () 1608mallinfo ()
1655 PPCODE: 1609 PPCODE:
1656{ 1610{
1657#if __GLIBC__ 1611#if __GLIBC__
1658 struct mallinfo mai = mallinfo (); 1612 struct mallinfo mai = mallinfo ();
1659 EXTEND (SP, 7*2); 1613 EXTEND (SP, 10*2);
1660 PUSHs (sv_2mortal (newSVpv ("arena" , 0))); PUSHs (sv_2mortal (newSViv (mai.arena))); 1614 PUSHs (sv_2mortal (newSVpv ("arena" , 0))); PUSHs (sv_2mortal (newSViv (mai.arena)));
1661 PUSHs (sv_2mortal (newSVpv ("ordblks" , 0))); PUSHs (sv_2mortal (newSViv (mai.ordblks))); 1615 PUSHs (sv_2mortal (newSVpv ("ordblks" , 0))); PUSHs (sv_2mortal (newSViv (mai.ordblks)));
1616 PUSHs (sv_2mortal (newSVpv ("smblks" , 0))); PUSHs (sv_2mortal (newSViv (mai.smblks)));
1662 PUSHs (sv_2mortal (newSVpv ("hblks" , 0))); PUSHs (sv_2mortal (newSViv (mai.hblks))); 1617 PUSHs (sv_2mortal (newSVpv ("hblks" , 0))); PUSHs (sv_2mortal (newSViv (mai.hblks)));
1663 PUSHs (sv_2mortal (newSVpv ("hblkhd" , 0))); PUSHs (sv_2mortal (newSViv (mai.hblkhd))); 1618 PUSHs (sv_2mortal (newSVpv ("hblkhd" , 0))); PUSHs (sv_2mortal (newSViv (mai.hblkhd)));
1619 PUSHs (sv_2mortal (newSVpv ("usmblks" , 0))); PUSHs (sv_2mortal (newSViv (mai.usmblks)));
1620 PUSHs (sv_2mortal (newSVpv ("fsmblks" , 0))); PUSHs (sv_2mortal (newSViv (mai.fsmblks)));
1664 PUSHs (sv_2mortal (newSVpv ("uordblks", 0))); PUSHs (sv_2mortal (newSViv (mai.uordblks))); 1621 PUSHs (sv_2mortal (newSVpv ("uordblks", 0))); PUSHs (sv_2mortal (newSViv (mai.uordblks)));
1665 PUSHs (sv_2mortal (newSVpv ("fordblks", 0))); PUSHs (sv_2mortal (newSViv (mai.fordblks))); 1622 PUSHs (sv_2mortal (newSVpv ("fordblks", 0))); PUSHs (sv_2mortal (newSViv (mai.fordblks)));
1666 PUSHs (sv_2mortal (newSVpv ("keepcost", 0))); PUSHs (sv_2mortal (newSViv (mai.keepcost))); 1623 PUSHs (sv_2mortal (newSVpv ("keepcost", 0))); PUSHs (sv_2mortal (newSViv (mai.keepcost)));
1667#endif 1624#endif
1625 EXTEND (SP, 2*2);
1626 PUSHs (sv_2mortal (newSVpv ("slice_alloc", 0))); PUSHs (sv_2mortal (newSVuv (slice_alloc)));
1627 PUSHs (sv_2mortal (newSVpv ("shstr_alloc", 0))); PUSHs (sv_2mortal (newSVuv (shstr_alloc)));
1668} 1628}
1669 1629
1670void 1630void
1671sub_generation_inc () 1631sub_generation_inc ()
1672 CODE: 1632 CODE:
… …
1705void cleanup (octet_string cause, bool make_core = false) 1665void cleanup (octet_string cause, bool make_core = false)
1706 1666
1707void emergency_save () 1667void emergency_save ()
1708 1668
1709void _exit (int status = EXIT_SUCCESS) 1669void _exit (int status = EXIT_SUCCESS)
1710
1711UV sv_2watcher (SV *w)
1712 CODE:
1713 RETVAL = (UV)GEventAPI->sv_2watcher (w);
1714 OUTPUT:
1715 RETVAL
1716 1670
1717#if _POSIX_MEMLOCK 1671#if _POSIX_MEMLOCK
1718 1672
1719int mlockall (int flags = MCL_CURRENT | MCL_FUTURE) 1673int mlockall (int flags = MCL_CURRENT | MCL_FUTURE)
1720 1674
… …
2719 } 2673 }
2720} 2674}
2721 2675
2722int get_data_size (faceidx idx, int faceset = 0) 2676int get_data_size (faceidx idx, int faceset = 0)
2723 CODE: 2677 CODE:
2724 facedata *d = face_data (idx, faceset); assert (d); 2678 facedata *d = face_data (idx, faceset);
2679 if (!d) XSRETURN_UNDEF;
2725 RETVAL = d->data.size (); 2680 RETVAL = d->data.size ();
2726 OUTPUT: 2681 OUTPUT:
2727 RETVAL 2682 RETVAL
2728 2683
2729SV *get_chksum (faceidx idx, int faceset = 0) 2684SV *get_chksum (faceidx idx, int faceset = 0)
2730 CODE: 2685 CODE:
2731 facedata *d = face_data (idx, faceset); assert (d); 2686 facedata *d = face_data (idx, faceset);
2687 if (!d) XSRETURN_UNDEF;
2732 RETVAL = newSVpvn ((char *)d->chksum, CHKSUM_SIZE); 2688 RETVAL = newSVpvn ((char *)d->chksum, CHKSUM_SIZE);
2689 OUTPUT:
2690 RETVAL
2691
2692SV *get_data (faceidx idx, int faceset = 0)
2693 CODE:
2694 facedata *d = face_data (idx, faceset);
2695 if (!d) XSRETURN_UNDEF;
2696 RETVAL = newSVpvn (d->data.data (), d->data.length ());
2733 OUTPUT: 2697 OUTPUT:
2734 RETVAL 2698 RETVAL
2735 2699
2736void invalidate (faceidx idx) 2700void invalidate (faceidx idx)
2737 CODE: 2701 CODE:

Diff Legend

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