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.302 by root, Mon Sep 22 23:57:48 2008 UTC vs.
Revision 1.310 by root, Fri Dec 19 22:47:30 2008 UTC

… …
88 *stash_cf_arch_wrap, 88 *stash_cf_arch_wrap,
89 *stash_cf_party_wrap, 89 *stash_cf_party_wrap,
90 *stash_cf_region_wrap, 90 *stash_cf_region_wrap,
91 *stash_cf_living_wrap; 91 *stash_cf_living_wrap;
92 92
93#ifndef newSVpv_utf8
93static inline SV * 94static inline SV *
94newSVpv_utf8 (const char *s) 95newSVpv_utf8 (const char *s)
95{ 96{
96 if (!s) 97 if (!s)
97 return newSV (0); 98 return newSV (0);
98 99
99 SV *sv = newSVpv (s, 0); 100 SV *sv = newSVpv (s, 0);
100 SvUTF8_on (sv); 101 SvUTF8_on (sv);
101 return sv; 102 return sv;
102} 103}
104#endif
103 105
106#ifndef newSVpvn_utf8
104static inline SV * 107static inline SV *
105newSVpvn_utf8 (const char *s, STRLEN l) 108newSVpvn_utf8 (const char *s, STRLEN l, int utf8)
106{ 109{
107 if (!s) 110 if (!s)
108 return newSV (0); 111 return newSV (0);
109 112
110 SV *sv = newSVpvn (s, l); 113 SV *sv = newSVpvn (s, l);
114
115 if (utf8)
111 SvUTF8_on (sv); 116 SvUTF8_on (sv);
117
112 return sv; 118 return sv;
113} 119}
120#endif
114 121
115// helper cast function, returns super class * or 0 122// helper cast function, returns super class * or 0
116template<class super> 123template<class super>
117static super * 124static super *
118is_a (attachable *at) 125is_a (attachable *at)
… …
407 return SvPTR (sv, klass); 414 return SvPTR (sv, klass);
408 else 415 else
409 return 0; 416 return 0;
410} 417}
411 418
412inline SV *to_sv (const shstr & v) { return newSVpvn_utf8 ((const char *)v, v.length ()); } 419inline SV *to_sv (const shstr & v) { return newSVpvn_utf8 ((const char *)v, v.length (), 1); }
413inline SV *to_sv (const char * v) { return v ? newSVpv (v, 0) : newSV (0); } 420inline SV *to_sv (const char * v) { return v ? newSVpv (v, 0) : newSV (0); }
414inline SV *to_sv (bool v) { return newSViv (v); } 421inline SV *to_sv (bool v) { return newSViv (v); }
415inline SV *to_sv ( signed char v) { return newSViv (v); } 422inline SV *to_sv ( signed char v) { return newSViv (v); }
416inline SV *to_sv (unsigned char v) { return newSViv (v); } 423inline SV *to_sv (unsigned char v) { return newSViv (v); }
417inline SV *to_sv ( signed short v) { return newSViv (v); } 424inline SV *to_sv ( signed short v) { return newSViv (v); }
… …
626 633
627 PL_exit_flags |= PERL_EXIT_DESTRUCT_END; 634 PL_exit_flags |= PERL_EXIT_DESTRUCT_END;
628 635
629 const char *argv[] = { 636 const char *argv[] = {
630 settings.argv [0], 637 settings.argv [0],
631 "-e" 638 "-e0"
632 "use EV; use Coro;" // required for bootstrap
633 "cf->bootstrap;" // required for datadir :*>
634 "unshift @INC, cf::datadir ();"
635 "require cf;"
636 }; 639 };
637 640
638 if (perl_parse (perl, xs_init, 2, (char **)argv, environ) 641 if (perl_parse (perl, xs_init, 2, (char **)argv, environ)
639 || perl_run (perl)) 642 || perl_run (perl))
640 { 643 {
641 printf ("unable to initialize perl-interpreter, aborting.\n"); 644 printf ("unable to initialize perl-interpreter, aborting.\n");
642 exit (EXIT_FAILURE); 645 exit (EXIT_FAILURE);
643 } 646 }
644 647
648 eval_pv (
649 "#line 1 'cfperl init'\n"
650 "use EV ();\n"
651 "use Coro ();\n"
652 "cf->bootstrap;\n"
653 "unshift @INC, cf::datadir ();\n"
654 "require cf;\n",
655 0
656 );
657
658 if (SvTRUE (ERRSV))
645 { 659 {
646 dSP; 660 printf ("unable to bootstrap perl, aborting:\n%s", SvPV_nolen (ERRSV));
647 661 exit (EXIT_FAILURE);
648 PUSHMARK (SP);
649 PUTBACK;
650 call_pv ("cf::init", G_DISCARD | G_VOID);
651 } 662 }
652} 663}
653 664
654void cfperl_main () 665void cfperl_main ()
655{ 666{
656 dSP; 667 dSP;
… …
1521 f (GvGP (gv)->gp_cv); 1532 f (GvGP (gv)->gp_cv);
1522 GvCVGEN (gv) = 0; 1533 GvCVGEN (gv) = 0;
1523 GvMULTI_off (gv); 1534 GvMULTI_off (gv);
1524# undef f 1535# undef f
1525 1536
1526
1527void _connect_to_perl () 1537void _connect_to_perl ()
1528 1538
1529void _recalc_want () 1539void _recalc_want ()
1530 1540
1541# not used by default anymore
1531void _global_reattach () 1542void _global_reattach ()
1532 CODE: 1543 CODE:
1533{ 1544{
1534 // reattach to all attachable objects in the game. 1545 // reattach to all attachable objects in the game.
1535 for_all_clients (ns) 1546 for_all_clients (ns)
… …
1578 len -= 3; 1589 len -= 3;
1579 } 1590 }
1580 1591
1581 SvCUR_set (data_sv, dst - SvPVX (data_sv)); 1592 SvCUR_set (data_sv, dst - SvPVX (data_sv));
1582} 1593}
1594
1595void init_anim ()
1596
1597void init_globals ()
1598
1599void init_experience ()
1600
1601void init_attackmess ()
1602
1603void init_dynamic ()
1604
1605void load_settings ()
1606
1607void load_materials ()
1608
1609void init_uuid ()
1610 CODE:
1611 UUID::init ();
1612
1613void init_signals ()
1614
1615void init_commands ()
1616
1617void init_skills ()
1618
1619void init_beforeplay ()
1583 1620
1584void evthread_start (int aiofd) 1621void evthread_start (int aiofd)
1585 1622
1586void cede_to_tick () 1623void cede_to_tick ()
1587 CODE: 1624 CODE:
… …
1756 PUSHs (sv_2mortal (newSVpv ("fsmblks" , 0))); PUSHs (sv_2mortal (newSViv (mai.fsmblks))); 1793 PUSHs (sv_2mortal (newSVpv ("fsmblks" , 0))); PUSHs (sv_2mortal (newSViv (mai.fsmblks)));
1757 PUSHs (sv_2mortal (newSVpv ("uordblks", 0))); PUSHs (sv_2mortal (newSViv (mai.uordblks))); 1794 PUSHs (sv_2mortal (newSVpv ("uordblks", 0))); PUSHs (sv_2mortal (newSViv (mai.uordblks)));
1758 PUSHs (sv_2mortal (newSVpv ("fordblks", 0))); PUSHs (sv_2mortal (newSViv (mai.fordblks))); 1795 PUSHs (sv_2mortal (newSVpv ("fordblks", 0))); PUSHs (sv_2mortal (newSViv (mai.fordblks)));
1759 PUSHs (sv_2mortal (newSVpv ("keepcost", 0))); PUSHs (sv_2mortal (newSViv (mai.keepcost))); 1796 PUSHs (sv_2mortal (newSVpv ("keepcost", 0))); PUSHs (sv_2mortal (newSViv (mai.keepcost)));
1760#endif 1797#endif
1761 EXTEND (SP, 2*2); 1798 EXTEND (SP, 5*2);
1762 PUSHs (sv_2mortal (newSVpv ("slice_alloc", 0))); PUSHs (sv_2mortal (newSVuv (slice_alloc))); 1799 PUSHs (sv_2mortal (newSVpv ("slice_alloc", 0))); PUSHs (sv_2mortal (newSVuv (slice_alloc)));
1763 PUSHs (sv_2mortal (newSVpv ("shstr_alloc", 0))); PUSHs (sv_2mortal (newSVuv (shstr_alloc))); 1800 PUSHs (sv_2mortal (newSVpv ("shstr_alloc", 0))); PUSHs (sv_2mortal (newSVuv (shstr_alloc)));
1764 PUSHs (sv_2mortal (newSVpv ("objects" , 0))); PUSHs (sv_2mortal (newSVuv (objects.size () * sizeof (object)))); 1801 PUSHs (sv_2mortal (newSVpv ("objects" , 0))); PUSHs (sv_2mortal (newSVuv (objects.size () * sizeof (object))));
1802 PUSHs (sv_2mortal (newSVpv ("sv_count" , 0))); PUSHs (sv_2mortal (newSVuv (PL_sv_count)));
1803 PUSHs (sv_2mortal (newSVpv ("sv_objcount", 0))); PUSHs (sv_2mortal (newSVuv (PL_sv_objcount)));
1765} 1804}
1766 1805
1767int find_animation (utf8_string text) 1806int find_animation (utf8_string text)
1768 PROTOTYPE: $ 1807 PROTOTYPE: $
1769 1808
… …
2211 pl->ob->stats.grace = pl->ob->stats.maxgrace; 2250 pl->ob->stats.grace = pl->ob->stats.maxgrace;
2212 pl->orig_stats = pl->ob->stats; 2251 pl->orig_stats = pl->ob->stats;
2213 2252
2214void clear_los (player *pl) 2253void clear_los (player *pl)
2215 2254
2255# should only be temporary
2256void esrv_new_player (player *pl)
2257
2258#d# TODO: replace by blocked_los accessor, fix code using this
2216bool 2259bool
2217cell_visible (player *pl, int dx, int dy) 2260cell_visible (player *pl, int dx, int dy)
2218 CODE: 2261 CODE:
2219 RETVAL = FABS (dx) <= pl->ns->mapx / 2 && FABS (dy) <= pl->ns->mapy / 2 2262 RETVAL = pl->blocked_los (dx, dy) != LOS_BLOCKED;
2220 && !pl->blocked_los [dx + pl->ns->mapx / 2][dy + pl->ns->mapy / 2];
2221 OUTPUT: 2263 OUTPUT:
2222 RETVAL 2264 RETVAL
2223 2265
2224void 2266void
2225send (player *pl, SV *packet) 2267send (player *pl, SV *packet)
… …
2481 for (object *o = nmap->at (nx, ny).bot; o; o = o->above) 2523 for (object *o = nmap->at (nx, ny).bot; o; o = o->above)
2482 XPUSHs (sv_2mortal (to_sv (o))); 2524 XPUSHs (sv_2mortal (to_sv (o)));
2483} 2525}
2484 2526
2485SV * 2527SV *
2486bot_at (maptile *obj, unsigned int x, unsigned int y) 2528bot_at (maptile *map, unsigned int x, unsigned int y)
2487 PROTOTYPE: $$$ 2529 PROTOTYPE: $$$
2488 ALIAS: 2530 ALIAS:
2489 top_at = 1 2531 top_at = 1
2490 flags_at = 2 2532 flags_at = 2
2491 light_at = 3 2533 light_at = 3
2492 move_block_at = 4 2534 move_block_at = 4
2493 move_slow_at = 5 2535 move_slow_at = 5
2494 move_on_at = 6 2536 move_on_at = 6
2495 move_off_at = 7 2537 move_off_at = 7
2496 INIT:
2497 if (x >= obj->width || y >= obj->height) XSRETURN_UNDEF;
2498 CODE: 2538 CODE:
2539{
2540 sint16 nx = x;
2541 sint16 ny = y;
2542
2543 if (!xy_normalise (map, nx, ny))
2544 XSRETURN_UNDEF;
2545
2546 mapspace &ms = map->at (nx, ny);
2547
2548 ms.update ();
2549
2499 switch (ix) 2550 switch (ix)
2500 { 2551 {
2501 case 0: RETVAL = to_sv (GET_MAP_OB (obj, x, y)); break; 2552 case 0: RETVAL = to_sv (ms.bot ); break;
2502 case 1: RETVAL = to_sv (GET_MAP_TOP (obj, x, y)); break; 2553 case 1: RETVAL = to_sv (ms.top ); break;
2503 case 2: RETVAL = newSVuv (GET_MAP_FLAGS (obj, x, y)); break; 2554 case 2: RETVAL = newSVuv (ms.flags_ ); break;
2504 case 3: RETVAL = newSViv (GET_MAP_LIGHT (obj, x, y)); break; 2555 case 3: RETVAL = newSViv (ms.light ); break;
2505 case 4: RETVAL = newSVuv (GET_MAP_MOVE_BLOCK (obj, x, y)); break; 2556 case 4: RETVAL = newSVuv (ms.move_block); break;
2506 case 5: RETVAL = newSVuv (GET_MAP_MOVE_SLOW (obj, x, y)); break; 2557 case 5: RETVAL = newSVuv (ms.move_slow ); break;
2507 case 6: RETVAL = newSVuv (GET_MAP_MOVE_ON (obj, x, y)); break; 2558 case 6: RETVAL = newSVuv (ms.move_on ); break;
2508 case 7: RETVAL = newSVuv (GET_MAP_MOVE_OFF (obj, x, y)); break; 2559 case 7: RETVAL = newSVuv (ms.move_off ); break;
2509 } 2560 }
2561}
2510 OUTPUT: RETVAL 2562 OUTPUT: RETVAL
2511 2563
2512void fix_walls (maptile *map, int x, int y) 2564void fix_walls (maptile *map, int x, int y)
2513 2565
2514void fix_walls_around (maptile *map, int x, int y) 2566void fix_walls_around (maptile *map, int x, int y)

Diff Legend

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