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.288 by root, Tue May 6 18:47:32 2008 UTC vs.
Revision 1.295 by root, Sat Aug 30 05:19:03 2008 UTC

… …
21 * The authors can be reached via e-mail to <support@deliantra.net> 21 * The authors can be reached via e-mail to <support@deliantra.net>
22 */ 22 */
23 23
24#include "autoconf.h" 24#include "autoconf.h"
25 25
26#define PLUGIN_NAME "perl"
27#define PLUGIN_VERSION "cfperl 0.5"
28
29#if HAVE_EXECINFO_H 26#if HAVE_EXECINFO_H
30# include <execinfo.h> 27# include <execinfo.h>
31#endif 28#endif
32 29
33#include <cstdarg> 30#include <cstdarg>
31#include <typeinfo>
34 32
35#include "global.h" 33#include "global.h"
36#include "loader.h" 34#include "loader.h"
37#include "../random_maps/random_map.h" 35#include "../random_maps/random_map.h"
38#include "evthread.h" 36#include "evthread.h"
… …
83 *stash_cf, 81 *stash_cf,
84 *stash_cf_object_wrap, 82 *stash_cf_object_wrap,
85 *stash_cf_object_player_wrap, 83 *stash_cf_object_player_wrap,
86 *stash_cf_player_wrap, 84 *stash_cf_player_wrap,
87 *stash_cf_map_wrap, 85 *stash_cf_map_wrap,
86 *stash_cf_mapspace_wrap,
88 *stash_cf_client_wrap, 87 *stash_cf_client_wrap,
89 *stash_cf_arch_wrap, 88 *stash_cf_arch_wrap,
90 *stash_cf_party_wrap, 89 *stash_cf_party_wrap,
91 *stash_cf_region_wrap, 90 *stash_cf_region_wrap,
92 *stash_cf_living_wrap; 91 *stash_cf_living_wrap;
… …
431inline SV *to_sv (maptile * v) { return newSVattachable (v, stash_cf_map_wrap); } 430inline SV *to_sv (maptile * v) { return newSVattachable (v, stash_cf_map_wrap); }
432inline SV *to_sv (archetype * v) { return newSVattachable (v, stash_cf_arch_wrap); } 431inline SV *to_sv (archetype * v) { return newSVattachable (v, stash_cf_arch_wrap); }
433inline SV *to_sv (region * v) { return newSVattachable (v, stash_cf_region_wrap); } 432inline SV *to_sv (region * v) { return newSVattachable (v, stash_cf_region_wrap); }
434inline SV *to_sv (partylist * v) { return newSVptr (v, stash_cf_party_wrap); } 433inline SV *to_sv (partylist * v) { return newSVptr (v, stash_cf_party_wrap); }
435inline SV *to_sv (living * v) { return newSVptr (v, stash_cf_living_wrap); } 434inline SV *to_sv (living * v) { return newSVptr (v, stash_cf_living_wrap); }
435inline SV *to_sv (mapspace * v) { return newSVptr (v, stash_cf_mapspace_wrap); }
436 436
437inline SV *to_sv (object & v) { return to_sv (&v); } 437inline SV *to_sv (object & v) { return to_sv (&v); }
438inline SV *to_sv (living & v) { return to_sv (&v); } 438inline SV *to_sv (living & v) { return to_sv (&v); }
439 439
440inline SV *to_sv (const std::string & v) { return newSVpvn (v.data (), v.size ()); } 440inline SV *to_sv (const std::string & v) { return newSVpvn (v.data (), v.size ()); }
… …
464inline void sv_to (SV *sv, maptile * &v) { v = (maptile *)(attachable *)SvPTR_ornull (sv, "cf::map"); } 464inline void sv_to (SV *sv, maptile * &v) { v = (maptile *)(attachable *)SvPTR_ornull (sv, "cf::map"); }
465inline void sv_to (SV *sv, region * &v) { v = (region *)(attachable *)SvPTR_ornull (sv, "cf::region"); } 465inline void sv_to (SV *sv, region * &v) { v = (region *)(attachable *)SvPTR_ornull (sv, "cf::region"); }
466inline void sv_to (SV *sv, attachable * &v) { v = (attachable *)SvPTR_ornull (sv, "cf::attachable"); } 466inline void sv_to (SV *sv, attachable * &v) { v = (attachable *)SvPTR_ornull (sv, "cf::attachable"); }
467inline void sv_to (SV *sv, partylist * &v) { v = (partylist *)SvPTR_ornull (sv, "cf::party"); } 467inline void sv_to (SV *sv, partylist * &v) { v = (partylist *)SvPTR_ornull (sv, "cf::party"); }
468inline void sv_to (SV *sv, living * &v) { v = (living *)SvPTR_ornull (sv, "cf::living"); } 468inline void sv_to (SV *sv, living * &v) { v = (living *)SvPTR_ornull (sv, "cf::living"); }
469inline void sv_to (SV *sv, mapspace * &v) { v = (mapspace *)SvPTR_ornull (sv, "cf::mapspace"); }
469inline void sv_to (SV *sv, object_freezer * &v) { v = (object_freezer *)SvPTR_ornull (sv, "cf::object::freezer"); } 470inline void sv_to (SV *sv, object_freezer * &v) { v = (object_freezer *)SvPTR_ornull (sv, "cf::object::freezer"); }
470inline void sv_to (SV *sv, object_thawer * &v) { v = (object_thawer *)SvPTR_ornull (sv, "cf::object::thawer" ); } 471inline void sv_to (SV *sv, object_thawer * &v) { v = (object_thawer *)SvPTR_ornull (sv, "cf::object::thawer" ); }
471 472
472//inline void sv_to (SV *sv, faceinfo * &v) { v = &faces [face_find (SvPV_nolen (sv), 0)]; } 473//inline void sv_to (SV *sv, faceinfo * &v) { v = &faces [face_find (SvPV_nolen (sv), 0)]; }
473inline void sv_to (SV *sv, treasurelist * &v) { v = treasurelist::find (SvPV_nolen (sv)); } 474inline void sv_to (SV *sv, treasurelist * &v) { v = treasurelist::find (SvPV_nolen (sv)); }
… …
944 CALL_CALL ("ext::books::make_book", G_VOID); 945 CALL_CALL ("ext::books::make_book", G_VOID);
945 CALL_END; 946 CALL_END;
946} 947}
947 948
948void 949void
950cfperl_expand_cfpod (player *pl, std::string &msg)
951{
952 CALL_BEGIN (2);
953 CALL_ARG (pl);
954 CALL_ARG_SV (newSVpvn_utf8 (msg.data (), msg.size ()));
955 CALL_CALL ("cf::player::expand_cfpod", G_SCALAR);
956
957 if (count)
958 {
959 STRLEN len;
960 char *data = SvPVutf8 (TOPs, len);
961 msg.assign (data, len);
962 }
963
964 CALL_END;
965}
966
967void
949cfperl_send_msg (client *ns, int color, const char *type, const char *msg) 968cfperl_send_msg (client *ns, int color, const char *type, const char *msg)
950{ 969{
951 CALL_BEGIN (4); 970 CALL_BEGIN (4);
952 CALL_ARG (ns); 971 CALL_ARG (ns);
953 CALL_ARG (type); 972 CALL_ARG (type);
… …
1174 1193
1175 stash_cf_object_wrap = gv_stashpv ("cf::object::wrap", 1); 1194 stash_cf_object_wrap = gv_stashpv ("cf::object::wrap", 1);
1176 stash_cf_object_player_wrap = gv_stashpv ("cf::object::player::wrap", 1); 1195 stash_cf_object_player_wrap = gv_stashpv ("cf::object::player::wrap", 1);
1177 stash_cf_player_wrap = gv_stashpv ("cf::player::wrap", 1); 1196 stash_cf_player_wrap = gv_stashpv ("cf::player::wrap", 1);
1178 stash_cf_map_wrap = gv_stashpv ("cf::map::wrap" , 1); 1197 stash_cf_map_wrap = gv_stashpv ("cf::map::wrap" , 1);
1198 stash_cf_mapspace_wrap = gv_stashpv ("cf::mapspace::wrap" , 1);
1179 stash_cf_client_wrap = gv_stashpv ("cf::client::wrap", 1); 1199 stash_cf_client_wrap = gv_stashpv ("cf::client::wrap", 1);
1180 stash_cf_arch_wrap = gv_stashpv ("cf::arch::wrap" , 1); 1200 stash_cf_arch_wrap = gv_stashpv ("cf::arch::wrap" , 1);
1181 stash_cf_party_wrap = gv_stashpv ("cf::party::wrap" , 1); 1201 stash_cf_party_wrap = gv_stashpv ("cf::party::wrap" , 1);
1182 stash_cf_region_wrap = gv_stashpv ("cf::region::wrap", 1); 1202 stash_cf_region_wrap = gv_stashpv ("cf::region::wrap", 1);
1183 stash_cf_living_wrap = gv_stashpv ("cf::living::wrap", 1); 1203 stash_cf_living_wrap = gv_stashpv ("cf::living::wrap", 1);
… …
1376 const_iv (F_CURSED) const_iv (F_DAMNED) const_iv (F_OPEN) const_iv (F_NOPICK) 1396 const_iv (F_CURSED) const_iv (F_DAMNED) const_iv (F_OPEN) const_iv (F_NOPICK)
1377 const_iv (F_LOCKED) 1397 const_iv (F_LOCKED)
1378 1398
1379 const_iv (F_BUY) const_iv (F_SHOP) const_iv (F_SELL) 1399 const_iv (F_BUY) const_iv (F_SHOP) const_iv (F_SELL)
1380 1400
1381 const_iv (P_BLOCKSVIEW) const_iv (P_PLAYER) const_iv (P_NO_MAGIC) const_iv (P_IS_ALIVE) 1401 const_iv (P_BLOCKSVIEW) const_iv (P_NO_MAGIC) const_iv (P_IS_ALIVE)
1382 const_iv (P_NO_CLERIC) const_iv (P_OUT_OF_MAP) const_iv (P_NEW_MAP) const_iv (P_UPTODATE) 1402 const_iv (P_NO_CLERIC) const_iv (P_OUT_OF_MAP) const_iv (P_NEW_MAP) const_iv (P_UPTODATE)
1383 1403
1384 const_iv (UP_OBJ_INSERT) const_iv (UP_OBJ_REMOVE) const_iv (UP_OBJ_CHANGE) const_iv (UP_OBJ_FACE) 1404 const_iv (UP_OBJ_INSERT) const_iv (UP_OBJ_REMOVE) const_iv (UP_OBJ_CHANGE) const_iv (UP_OBJ_FACE)
1385 1405
1386 const_iv (INS_NO_MERGE) const_iv (INS_ABOVE_FLOOR_ONLY) const_iv (INS_NO_WALK_ON) 1406 const_iv (INS_NO_MERGE) const_iv (INS_ABOVE_FLOOR_ONLY) const_iv (INS_NO_WALK_ON)
… …
1483 av_push (event, newSViv (eiv->klass)); 1503 av_push (event, newSViv (eiv->klass));
1484 av_store (av, eiv->iv, newRV_noinc ((SV *)event)); 1504 av_store (av, eiv->iv, newRV_noinc ((SV *)event));
1485 newCONSTSUB (stash_cf, (char *)eiv->name, newSViv (eiv->iv)); 1505 newCONSTSUB (stash_cf, (char *)eiv->name, newSViv (eiv->iv));
1486 } 1506 }
1487} 1507}
1508
1509void _gv_clear (SV *gv)
1510 CODE:
1511 assert (SvTYPE (gv) == SVt_PVGV);
1512# define f(sv) { SV *sv_ = (SV *)(sv); sv = 0; SvREFCNT_dec (sv_); }
1513 f (GvGP (gv)->gp_form);
1514 f (GvGP (gv)->gp_io);
1515 f (GvGP (gv)->gp_sv);
1516 f (GvGP (gv)->gp_av);
1517 f (GvGP (gv)->gp_hv);
1518 f (GvGP (gv)->gp_cv);
1519 GvCVGEN (gv) = 0;
1520 GvMULTI_off (gv);
1521# undef f
1522
1488 1523
1489void _connect_to_perl () 1524void _connect_to_perl ()
1490 1525
1491void _recalc_want () 1526void _recalc_want ()
1492 1527
… …
2085void rangevector (object *ob, object *other, int flags = 0) 2120void rangevector (object *ob, object *other, int flags = 0)
2086 PROTOTYPE: $$;$ 2121 PROTOTYPE: $$;$
2087 PPCODE: 2122 PPCODE:
2088{ 2123{
2089 rv_vector rv; 2124 rv_vector rv;
2125
2126 PUTBACK;
2090 get_rangevector (ob, other, &rv, flags); 2127 get_rangevector (ob, other, &rv, flags);
2128 SPAGAIN;
2129
2091 EXTEND (SP, 5); 2130 EXTEND (SP, 5);
2092 PUSHs (newSVuv (rv.distance)); 2131 PUSHs (newSVuv (rv.distance));
2093 PUSHs (newSViv (rv.distance_x)); 2132 PUSHs (newSViv (rv.distance_x));
2094 PUSHs (newSViv (rv.distance_y)); 2133 PUSHs (newSViv (rv.distance_y));
2095 PUSHs (newSViv (rv.direction)); 2134 PUSHs (newSViv (rv.direction));
… …
2186 if (len > MAXSOCKBUF) 2225 if (len > MAXSOCKBUF)
2187 pl->failmsg ("[packet too long for client]"); 2226 pl->failmsg ("[packet too long for client]");
2188 else if (pl->ns) 2227 else if (pl->ns)
2189 pl->ns->send_packet (buf, len); 2228 pl->ns->send_packet (buf, len);
2190} 2229}
2191
2192int
2193listening (player *pl, int new_value = -1)
2194 CODE:
2195 RETVAL = pl->listening;
2196 if (new_value >= 0)
2197 pl->listening = new_value;
2198 OUTPUT:
2199 RETVAL
2200 2230
2201void savebed (player *pl, SV *map_path = 0, SV *x = 0, SV *y = 0) 2231void savebed (player *pl, SV *map_path = 0, SV *x = 0, SV *y = 0)
2202 PROTOTYPE: $;$$$ 2232 PROTOTYPE: $;$$$
2203 PPCODE: 2233 PPCODE:
2204 if (GIMME_V != G_VOID) 2234 if (GIMME_V != G_VOID)
… …
2402get_map_flags (maptile *map, int x, int y) 2432get_map_flags (maptile *map, int x, int y)
2403 PPCODE: 2433 PPCODE:
2404{ 2434{
2405 maptile *nmap = 0; 2435 maptile *nmap = 0;
2406 I16 nx = 0, ny = 0; 2436 I16 nx = 0, ny = 0;
2437
2438 PUTBACK;
2407 int flags = get_map_flags (map, &nmap, x, y, &nx, &ny); 2439 int flags = get_map_flags (map, &nmap, x, y, &nx, &ny);
2440 SPAGAIN;
2408 2441
2409 EXTEND (SP, 4); 2442 EXTEND (SP, 4);
2410 PUSHs (sv_2mortal (newSViv (flags))); 2443 PUSHs (sv_2mortal (newSViv (flags)));
2411 2444
2412 if (GIMME_V == G_ARRAY) 2445 if (GIMME_V == G_ARRAY)
… …
2415 PUSHs (sv_2mortal (newSViv (nx))); 2448 PUSHs (sv_2mortal (newSViv (nx)));
2416 PUSHs (sv_2mortal (newSViv (ny))); 2449 PUSHs (sv_2mortal (newSViv (ny)));
2417 } 2450 }
2418} 2451}
2419 2452
2453mapspace *
2454ms (maptile *map, unsigned int x, unsigned int y)
2455 PROTOTYPE: $$$
2456 CODE:
2457{
2458 maptile *nmap = 0;
2459 I16 nx, ny;
2460
2461 PUTBACK;
2462 get_map_flags (map, &nmap, x, y, &nx, &ny);
2463 SPAGAIN;
2464
2465 if (!nmap)
2466 XSRETURN_UNDEF;
2467
2468 RETVAL = &nmap->at (nx, ny);
2469}
2470 OUTPUT:
2471 RETVAL
2472
2420void 2473void
2421at (maptile *map, unsigned int x, unsigned int y) 2474at (maptile *map, unsigned int x, unsigned int y)
2422 PROTOTYPE: $$$ 2475 PROTOTYPE: $$$
2423 PPCODE: 2476 PPCODE:
2424{ 2477{
2425 object *o;
2426 maptile *nmap = 0; 2478 maptile *nmap = 0;
2427 I16 nx, ny; 2479 I16 nx, ny;
2428 2480
2481 PUTBACK;
2429 get_map_flags (map, &nmap, x, y, &nx, &ny); 2482 get_map_flags (map, &nmap, x, y, &nx, &ny);
2483 SPAGAIN;
2430 2484
2431 if (nmap) 2485 if (nmap)
2432 for (o = GET_MAP_OB (nmap, nx, ny); o; o = o->above) 2486 for (object *o = nmap->at (nx, ny).bot; o; o = o->above)
2433 XPUSHs (sv_2mortal (to_sv (o))); 2487 XPUSHs (sv_2mortal (to_sv (o)));
2434} 2488}
2435 2489
2436SV * 2490SV *
2437bot_at (maptile *obj, unsigned int x, unsigned int y) 2491bot_at (maptile *obj, unsigned int x, unsigned int y)
… …
2550 RETVAL = self->generate_random_map (&rmp); 2604 RETVAL = self->generate_random_map (&rmp);
2551} 2605}
2552 OUTPUT: 2606 OUTPUT:
2553 RETVAL 2607 RETVAL
2554 2608
2609MODULE = cf PACKAGE = cf::mapspace
2610
2611INCLUDE: $PERL $srcdir/genacc mapspace ../include/map.h |
2612
2555MODULE = cf PACKAGE = cf::arch 2613MODULE = cf PACKAGE = cf::arch
2556 2614
2557int archetypes_size () 2615int archetypes_size ()
2558 CODE: 2616 CODE:
2559 RETVAL = archetypes.size (); 2617 RETVAL = archetypes.size ();

Diff Legend

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