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.81 by root, Thu Dec 14 21:46:34 2006 UTC vs.
Revision 1.82 by root, Fri Dec 15 00:14:13 2006 UTC

… …
2089 2089
2090MODULE = cf PACKAGE = cf::player PREFIX = cf_player_ 2090MODULE = cf PACKAGE = cf::player PREFIX = cf_player_
2091 2091
2092INCLUDE: $PERL genacc player ../include/player.h | 2092INCLUDE: $PERL genacc player ../include/player.h |
2093 2093
2094char *
2095client (player *pl)
2096 CODE:
2097 RETVAL = pl->socket->client;
2098 OUTPUT:
2099 RETVAL
2100
2101char *
2102host (player *pl)
2103 CODE:
2104 RETVAL = pl->socket->host;
2105 OUTPUT:
2106 RETVAL
2107
2108int invoke (player *pl, int event, ...) 2094int invoke (player *pl, int event, ...)
2109 CODE: 2095 CODE:
2110 if (KLASS_OF (event) != KLASS_PLAYER) croak ("event class must be PLAYER"); 2096 if (KLASS_OF (event) != KLASS_PLAYER) croak ("event class must be PLAYER");
2111 AV *av = (AV *)sv_2mortal ((SV *)newAV ()); 2097 AV *av = (AV *)sv_2mortal ((SV *)newAV ());
2112 for (int i = 2; i < items; i++) av_push (av, SvREFCNT_inc (ST (i))); 2098 for (int i = 2; i < items; i++) av_push (av, SvREFCNT_inc (ST (i)));
… …
2137 CODE: 2123 CODE:
2138 RETVAL = FABS (dx) <= pl->socket->mapx / 2 && FABS (dy) <= pl->socket->mapy / 2 2124 RETVAL = FABS (dx) <= pl->socket->mapx / 2 && FABS (dy) <= pl->socket->mapy / 2
2139 && !pl->blocked_los [dx + pl->socket->mapx / 2][dy + pl->socket->mapy / 2]; 2125 && !pl->blocked_los [dx + pl->socket->mapx / 2][dy + pl->socket->mapy / 2];
2140 OUTPUT: 2126 OUTPUT:
2141 RETVAL 2127 RETVAL
2142
2143void
2144buggy_mapscroll (player *pl, int value = 1)
2145 CODE:
2146 pl->socket->buggy_mapscroll = value;
2147 2128
2148void 2129void
2149send (player *pl, SV *packet) 2130send (player *pl, SV *packet)
2150 CODE: 2131 CODE:
2151{ 2132{

Diff Legend

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