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.85 by root, Sat Dec 16 03:08:26 2006 UTC

… …
136inline SV *to_sv (unsigned long v) { return newSVuv (v); } 136inline SV *to_sv (unsigned long v) { return newSVuv (v); }
137inline SV *to_sv ( signed long long v) { return newSVval64 (v); } 137inline SV *to_sv ( signed long long v) { return newSVval64 (v); }
138inline SV *to_sv (unsigned long long v) { return newSVval64 (v); } 138inline SV *to_sv (unsigned long long v) { return newSVval64 (v); }
139inline SV *to_sv (float v) { return newSVnv (v); } 139inline SV *to_sv (float v) { return newSVnv (v); }
140inline SV *to_sv (double v) { return newSVnv (v); } 140inline SV *to_sv (double v) { return newSVnv (v); }
141inline SV *to_sv (client_socket *v) { return newSVattachable (v, "cf::client_socket::wrap"); } 141inline SV *to_sv (client * v) { return newSVattachable (v, "cf::client::wrap"); }
142inline SV *to_sv (player * v) { return newSVattachable (v, "cf::player::wrap"); } 142inline SV *to_sv (player * v) { return newSVattachable (v, "cf::player::wrap"); }
143inline SV *to_sv (object * v) { return newSVattachable (v, v && v->type == PLAYER ? "cf::object::player::wrap" : "cf::object::wrap"); } 143inline SV *to_sv (object * v) { return newSVattachable (v, v && v->type == PLAYER ? "cf::object::player::wrap" : "cf::object::wrap"); }
144inline SV *to_sv (maptile * v) { return newSVattachable (v, "cf::map::wrap"); } 144inline SV *to_sv (maptile * v) { return newSVattachable (v, "cf::map::wrap"); }
145inline SV *to_sv (archetype * v) { return newSVptr (v, "cf::arch::wrap"); } 145inline SV *to_sv (archetype * v) { return newSVptr (v, "cf::arch::wrap"); }
146inline SV *to_sv (partylist * v) { return newSVptr (v, "cf::party::wrap"); } 146inline SV *to_sv (partylist * v) { return newSVptr (v, "cf::party::wrap"); }
… …
174inline void sv_to (SV *sv, unsigned long &v) { v = SvUV (sv); } 174inline void sv_to (SV *sv, unsigned long &v) { v = SvUV (sv); }
175inline void sv_to (SV *sv, signed long long &v) { v = ( signed long long)SvVAL64 (sv); } 175inline void sv_to (SV *sv, signed long long &v) { v = ( signed long long)SvVAL64 (sv); }
176inline void sv_to (SV *sv, unsigned long long &v) { v = (unsigned long long)SvVAL64 (sv); } 176inline void sv_to (SV *sv, unsigned long long &v) { v = (unsigned long long)SvVAL64 (sv); }
177inline void sv_to (SV *sv, float &v) { v = SvNV (sv); } 177inline void sv_to (SV *sv, float &v) { v = SvNV (sv); }
178inline void sv_to (SV *sv, double &v) { v = SvNV (sv); } 178inline void sv_to (SV *sv, double &v) { v = SvNV (sv); }
179inline void sv_to (SV *sv, client_socket *&v) { v = (client_socket *)SvPTR_ornull (sv, "cf::client_socket"); } 179inline void sv_to (SV *sv, client * &v) { v = (client *)SvPTR_ornull (sv, "cf::client"); }
180inline void sv_to (SV *sv, player * &v) { v = (player *)SvPTR_ornull (sv, "cf::player"); } 180inline void sv_to (SV *sv, player * &v) { v = (player *)SvPTR_ornull (sv, "cf::player"); }
181inline void sv_to (SV *sv, object * &v) { v = (object *)SvPTR_ornull (sv, "cf::object"); } 181inline void sv_to (SV *sv, object * &v) { v = (object *)SvPTR_ornull (sv, "cf::object"); }
182inline void sv_to (SV *sv, archetype * &v) { v = (archetype *)SvPTR_ornull (sv, "cf::arch"); } 182inline void sv_to (SV *sv, archetype * &v) { v = (archetype *)SvPTR_ornull (sv, "cf::arch"); }
183inline void sv_to (SV *sv, maptile * &v) { v = (maptile *)SvPTR_ornull (sv, "cf::map"); } 183inline void sv_to (SV *sv, maptile * &v) { v = (maptile *)SvPTR_ornull (sv, "cf::map"); }
184inline void sv_to (SV *sv, partylist * &v) { v = (partylist *)SvPTR_ornull (sv, "cf::party"); } 184inline void sv_to (SV *sv, partylist * &v) { v = (partylist *)SvPTR_ornull (sv, "cf::party"); }
… …
244 // va_arg (object *) when void * is passed is an XSI extension 244 // va_arg (object *) when void * is passed is an XSI extension
245 sv = to_sv (va_arg (ap, maptile *)); 245 sv = to_sv (va_arg (ap, maptile *));
246 break; 246 break;
247 247
248 case DT_SOCKET: 248 case DT_SOCKET:
249 sv = to_sv (va_arg (ap, client_socket *)); 249 sv = to_sv (va_arg (ap, client *));
250 break; 250 break;
251 251
252 case DT_PLAYER: 252 case DT_PLAYER:
253 sv = to_sv (va_arg (ap, player *)); 253 sv = to_sv (va_arg (ap, player *));
254 break; 254 break;
… …
835 835
836 char *argv[] = { 836 char *argv[] = {
837 "", 837 "",
838 "-e" 838 "-e"
839 "use Event;" // required for bootstrap 839 "use Event;" // required for bootstrap
840 "cf->bootstrap;" // requiored for datadir :*> 840 "cf->bootstrap;" // required for datadir :*>
841 "unshift @INC, cf::datadir ();" 841 "unshift @INC, cf::datadir ();"
842 "require cf;" 842 "require cf;"
843 }; 843 };
844 844
845 if (perl_parse (perl, xs_init, 2, argv, (char **)NULL) || perl_run (perl)) 845 if (perl_parse (perl, xs_init, 2, argv, (char **)NULL) || perl_run (perl))
… …
1060 1060
1061///////////////////////////////////////////////////////////////////////////// 1061/////////////////////////////////////////////////////////////////////////////
1062 1062
1063struct EventAPI *watcher_base::GEventAPI; 1063struct EventAPI *watcher_base::GEventAPI;
1064 1064
1065static void iw_dispatch (pe_event *ev)
1066{
1067 iw *w = (iw *)ev->ext_data;
1068 w->call (*w);
1069}
1070
1071void
1072iw::alloc ()
1073{
1074 pe = GEventAPI->new_idle (0, 0);
1075
1076 pe->base.callback = (void *)iw_dispatch;
1077 pe->base.ext_data = (void *)this;
1078}
1079
1065static void iow_dispatch (pe_event *ev) 1080static void iow_dispatch (pe_event *ev)
1066{ 1081{
1067 iow *w = (iow *)ev->ext_data; 1082 iow *w = (iow *)ev->ext_data;
1068 w->call (*w, ((pe_ioevent *)ev)->got); 1083 w->call (*w, ((pe_ioevent *)ev)->got);
1069} 1084}
… …
1078 1093
1079 pe->fd = -1; 1094 pe->fd = -1;
1080 pe->poll = 0; 1095 pe->poll = 0;
1081} 1096}
1082 1097
1083iow & 1098void
1084iow::fd (int fd) 1099iow::fd (int fd)
1085{ 1100{
1086 pe->fd = fd; 1101 pe->fd = fd;
1087
1088 return *this;
1089} 1102}
1090 1103
1091int 1104int
1092iow::poll () 1105iow::poll ()
1093{ 1106{
1094 return pe->poll; 1107 return pe->poll;
1095} 1108}
1096 1109
1097iow & 1110void
1098iow::poll (int events) 1111iow::poll (int events)
1099{ 1112{
1100 if (pe->poll != events) 1113 if (pe->poll != events)
1101 { 1114 {
1102 if (pe->poll) stop (); 1115 if (pe->poll) stop ();
1103 pe->poll = events; 1116 pe->poll = events;
1104 if (pe->poll) start (); 1117 if (pe->poll) start ();
1105 } 1118 }
1106
1107 return *this;
1108} 1119}
1109 1120
1110MODULE = cf PACKAGE = cf PREFIX = cf_ 1121MODULE = cf PACKAGE = cf PREFIX = cf_
1111 1122
1112BOOT: 1123BOOT:
… …
1658 for (object *op = object::first; op; op = op->next) 1669 for (object *op = object::first; op; op = op->next)
1659 reattach (op); 1670 reattach (op);
1660} 1671}
1661 1672
1662bool 1673bool
1663add_client_socket (int fd, const char *peername) 1674add_client (int fd, const char *peername)
1664 1675
1665NV floor (NV x) 1676NV floor (NV x)
1666 1677
1667NV ceil (NV x) 1678NV ceil (NV x)
1668 1679
… …
2089 2100
2090MODULE = cf PACKAGE = cf::player PREFIX = cf_player_ 2101MODULE = cf PACKAGE = cf::player PREFIX = cf_player_
2091 2102
2092INCLUDE: $PERL genacc player ../include/player.h | 2103INCLUDE: $PERL genacc player ../include/player.h |
2093 2104
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, ...) 2105int invoke (player *pl, int event, ...)
2109 CODE: 2106 CODE:
2110 if (KLASS_OF (event) != KLASS_PLAYER) croak ("event class must be PLAYER"); 2107 if (KLASS_OF (event) != KLASS_PLAYER) croak ("event class must be PLAYER");
2111 AV *av = (AV *)sv_2mortal ((SV *)newAV ()); 2108 AV *av = (AV *)sv_2mortal ((SV *)newAV ());
2112 for (int i = 2; i < items; i++) av_push (av, SvREFCNT_inc (ST (i))); 2109 for (int i = 2; i < items; i++) av_push (av, SvREFCNT_inc (ST (i)));
… …
2137 CODE: 2134 CODE:
2138 RETVAL = FABS (dx) <= pl->socket->mapx / 2 && FABS (dy) <= pl->socket->mapy / 2 2135 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]; 2136 && !pl->blocked_los [dx + pl->socket->mapx / 2][dy + pl->socket->mapy / 2];
2140 OUTPUT: 2137 OUTPUT:
2141 RETVAL 2138 RETVAL
2142
2143void
2144buggy_mapscroll (player *pl, int value = 1)
2145 CODE:
2146 pl->socket->buggy_mapscroll = value;
2147 2139
2148void 2140void
2149send (player *pl, SV *packet) 2141send (player *pl, SV *packet)
2150 CODE: 2142 CODE:
2151{ 2143{
… …
2441 2433
2442MODULE = cf PACKAGE = cf::settings 2434MODULE = cf PACKAGE = cf::settings
2443 2435
2444INCLUDE: $PERL genacc Settings ../include/global.h | 2436INCLUDE: $PERL genacc Settings ../include/global.h |
2445 2437
2446MODULE = cf PACKAGE = cf::client_socket 2438MODULE = cf PACKAGE = cf::client
2447 2439
2448INCLUDE: $PERL genacc client_socket ../include/newserver.h | 2440INCLUDE: $PERL genacc client ../include/client.h |
2449 2441
2450int invoke (client_socket *ns, int event, ...) 2442int invoke (client *ns, int event, ...)
2451 CODE: 2443 CODE:
2452 if (KLASS_OF (event) != KLASS_SOCKET) croak ("event class must be SOCKET"); 2444 if (KLASS_OF (event) != KLASS_SOCKET) croak ("event class must be SOCKET");
2453 AV *av = (AV *)sv_2mortal ((SV *)newAV ()); 2445 AV *av = (AV *)sv_2mortal ((SV *)newAV ());
2454 for (int i = 2; i < items; i++) av_push (av, SvREFCNT_inc (ST (i))); 2446 for (int i = 2; i < items; i++) av_push (av, SvREFCNT_inc (ST (i)));
2455 RETVAL = INVOKE_((event_type)event, ARG_SOCKET (ns), ARG_AV (av)); 2447 RETVAL = INVOKE_((event_type)event, ARG_SOCKET (ns), ARG_AV (av));
2456 OUTPUT: RETVAL 2448 OUTPUT: RETVAL
2457 2449
2458SV *registry (client_socket *ns) 2450SV *registry (client *ns)
2459 2451

Diff Legend

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