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.80 by root, Thu Dec 14 20:39:54 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}
… …
1074 pe = GEventAPI->new_io (0, 0); 1089 pe = GEventAPI->new_io (0, 0);
1075 1090
1076 pe->base.callback = (void *)iow_dispatch; 1091 pe->base.callback = (void *)iow_dispatch;
1077 pe->base.ext_data = (void *)this; 1092 pe->base.ext_data = (void *)this;
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{
1113 if (pe->poll != events)
1114 {
1115 if (pe->poll) stop ();
1100 pe->poll = events; 1116 pe->poll = events;
1101 1117 if (pe->poll) start ();
1102 return *this; 1118 }
1103} 1119}
1104 1120
1105MODULE = cf PACKAGE = cf PREFIX = cf_ 1121MODULE = cf PACKAGE = cf PREFIX = cf_
1106 1122
1107BOOT: 1123BOOT:
… …
1653 for (object *op = object::first; op; op = op->next) 1669 for (object *op = object::first; op; op = op->next)
1654 reattach (op); 1670 reattach (op);
1655} 1671}
1656 1672
1657bool 1673bool
1658add_client_socket (int fd, const char *peername) 1674add_client (int fd, const char *peername)
1659 1675
1660NV floor (NV x) 1676NV floor (NV x)
1661 1677
1662NV ceil (NV x) 1678NV ceil (NV x)
1663 1679
… …
2084 2100
2085MODULE = cf PACKAGE = cf::player PREFIX = cf_player_ 2101MODULE = cf PACKAGE = cf::player PREFIX = cf_player_
2086 2102
2087INCLUDE: $PERL genacc player ../include/player.h | 2103INCLUDE: $PERL genacc player ../include/player.h |
2088 2104
2089char *
2090client (player *pl)
2091 CODE:
2092 RETVAL = pl->socket->client;
2093 OUTPUT:
2094 RETVAL
2095
2096char *
2097host (player *pl)
2098 CODE:
2099 RETVAL = pl->socket->host;
2100 OUTPUT:
2101 RETVAL
2102
2103int invoke (player *pl, int event, ...) 2105int invoke (player *pl, int event, ...)
2104 CODE: 2106 CODE:
2105 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");
2106 AV *av = (AV *)sv_2mortal ((SV *)newAV ()); 2108 AV *av = (AV *)sv_2mortal ((SV *)newAV ());
2107 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)));
… …
2132 CODE: 2134 CODE:
2133 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
2134 && !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];
2135 OUTPUT: 2137 OUTPUT:
2136 RETVAL 2138 RETVAL
2137
2138void
2139buggy_mapscroll (player *pl, int value = 1)
2140 CODE:
2141 pl->socket->buggy_mapscroll = value;
2142 2139
2143void 2140void
2144send (player *pl, SV *packet) 2141send (player *pl, SV *packet)
2145 CODE: 2142 CODE:
2146{ 2143{
… …
2436 2433
2437MODULE = cf PACKAGE = cf::settings 2434MODULE = cf PACKAGE = cf::settings
2438 2435
2439INCLUDE: $PERL genacc Settings ../include/global.h | 2436INCLUDE: $PERL genacc Settings ../include/global.h |
2440 2437
2441MODULE = cf PACKAGE = cf::client_socket 2438MODULE = cf PACKAGE = cf::client
2442 2439
2443INCLUDE: $PERL genacc client_socket ../include/newserver.h | 2440INCLUDE: $PERL genacc client ../include/client.h |
2444 2441
2445int invoke (client_socket *ns, int event, ...) 2442int invoke (client *ns, int event, ...)
2446 CODE: 2443 CODE:
2447 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");
2448 AV *av = (AV *)sv_2mortal ((SV *)newAV ()); 2445 AV *av = (AV *)sv_2mortal ((SV *)newAV ());
2449 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)));
2450 RETVAL = INVOKE_((event_type)event, ARG_SOCKET (ns), ARG_AV (av)); 2447 RETVAL = INVOKE_((event_type)event, ARG_SOCKET (ns), ARG_AV (av));
2451 OUTPUT: RETVAL 2448 OUTPUT: RETVAL
2452 2449
2453SV *registry (client_socket *ns) 2450SV *registry (client *ns)
2454 2451

Diff Legend

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