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.234 by root, Sat Jul 21 18:01:26 2007 UTC vs.
Revision 1.237 by root, Mon Jul 23 23:46:03 2007 UTC

… …
1021void 1021void
1022cfperl_send_msg (client *ns, int color, const char *type, const char *msg) 1022cfperl_send_msg (client *ns, int color, const char *type, const char *msg)
1023{ 1023{
1024 CALL_BEGIN (4); 1024 CALL_BEGIN (4);
1025 CALL_ARG (ns); 1025 CALL_ARG (ns);
1026 CALL_ARG (color);
1027 CALL_ARG (type); 1026 CALL_ARG (type);
1028 CALL_ARG_SV (newSVpv_utf8 (msg)); 1027 CALL_ARG_SV (newSVpv_utf8 (msg));
1028 CALL_ARG (color);
1029 CALL_CALL ("cf::client::send_msg", G_VOID); 1029 CALL_CALL ("cf::client::send_msg", G_VOID);
1030 CALL_END; 1030 CALL_END;
1031} 1031}
1032 1032
1033int 1033int
… …
1564 1564
1565 for_all_objects (op) 1565 for_all_objects (op)
1566 op->reattach (); 1566 op->reattach ();
1567} 1567}
1568 1568
1569void _post_tick ()
1570 CODE:
1571 coroapi::next_cede = SvNV (sv_next_tick) - TICK * (1. - 1. / CEDES_PER_TICK);
1572
1573# support function for map-world.ext 1569# support function for map-world.ext
1574void _quantise (SV *data_sv, SV *plt_sv) 1570void _quantise (SV *data_sv, SV *plt_sv)
1575 CODE: 1571 CODE:
1576{ 1572{
1577 if (!SvROK (plt_sv) || SvTYPE (SvRV (plt_sv)) != SVt_PVAV) 1573 if (!SvROK (plt_sv) || SvTYPE (SvRV (plt_sv)) != SVt_PVAV)
… …
1609 len -= 3; 1605 len -= 3;
1610 } 1606 }
1611 1607
1612 SvCUR_set (data_sv, dst - SvPVX (data_sv)); 1608 SvCUR_set (data_sv, dst - SvPVX (data_sv));
1613} 1609}
1610
1611void _post_tick ()
1612 CODE:
1613 coroapi::next_cede = SvNV (sv_next_tick) - TICK * (1. - 1. / CEDES_PER_TICK);
1614
1615NV till_cede ()
1616 CODE:
1617 RETVAL = coroapi::next_cede - now ();
1618 OUTPUT:
1619 RETVAL
1620
1621NV till_tick ()
1622 CODE:
1623 RETVAL = SvNV (sv_next_tick) - now ();
1624 OUTPUT:
1625 RETVAL
1614 1626
1615NV floor (NV x) 1627NV floor (NV x)
1616 1628
1617NV ceil (NV x) 1629NV ceil (NV x)
1618 1630
… …
2609 char *buf = SvPVbyte (packet, len); 2621 char *buf = SvPVbyte (packet, len);
2610 2622
2611 THIS->send_packet (buf, len); 2623 THIS->send_packet (buf, len);
2612} 2624}
2613 2625
2626faceidx
2627client::find_face (utf8_string name, faceidx defidx = 0)
2628 CODE:
2629 RETVAL = face_find (name, defidx);
2630 THIS->send_face (RETVAL);
2631 THIS->flush_fx ();
2632 OUTPUT:
2633 RETVAL
2634
2614MODULE = cf PACKAGE = cf::face PREFIX = face_ 2635MODULE = cf PACKAGE = cf::face PREFIX = face_
2615 2636
2616#INCLUDE: $PERL $srcdir/genacc faceset ../include/face.h | 2637#INCLUDE: $PERL $srcdir/genacc faceset ../include/face.h |
2617 2638
2618faceidx face_find (utf8_string name, faceidx defidx = 0) 2639faceidx face_find (utf8_string name, faceidx defidx = 0)

Diff Legend

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