ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/deliantra/server/plugins/cfperl/cfperl.xs
(Generate patch)

Comparing deliantra/server/plugins/cfperl/cfperl.xs (file contents):
Revision 1.45 by root, Fri Mar 31 20:59:17 2006 UTC vs.
Revision 1.54 by root, Mon Jun 12 13:25:27 2006 UTC

1/*****************************************************************************/ 1/*****************************************************************************/
2/* CrossFire, A Multiplayer game for the X Window System */ 2/* CrossFire, A Multiplayer game for the X Window System */
3/* */
4/*****************************************************************************/ 3/*****************************************************************************/
5 4
6/* 5/*
7 * This code is placed under the GNU General Public Licence (GPL) 6 * This code is placed under the GNU General Public Licence (GPL)
8 * 7 *
… …
29#include <XSUB.h> 28#include <XSUB.h>
30 29
31#undef save_long // clashes with libproto.h 30#undef save_long // clashes with libproto.h
32 31
33#define PLUGIN_NAME "perl" 32#define PLUGIN_NAME "perl"
34#define PLUGIN_VERSION "cfperl 0.2" 33#define PLUGIN_VERSION "cfperl 0.3"
35 34
36#ifndef __CEXTRACT__ 35#ifndef __CEXTRACT__
37#include <plugin.h> 36#include <plugin.h>
38#endif 37#endif
39 38
… …
78} CFPContext; 77} CFPContext;
79 78
80static HV *obj_cache; 79static HV *obj_cache;
81static PerlInterpreter *perl; 80static PerlInterpreter *perl;
82 81
82#define PUSHcfapi(type,value) PUSHs (sv_2mortal (newSVcfapi (CFAPI_ ## type, (value))))
83#define PUSHcfapi(type,ctype) PUSHs (sv_2mortal (newSVcfapi ((type), va_arg (args, ctype)))) 83#define PUSHcfapi_va(type,ctype) PUSHcfapi (type, va_arg (args, ctype))
84#define PUSH_OB PUSHcfapi(CFAPI_POBJECT, object *) 84#define PUSH_OB PUSHcfapi_va(POBJECT, object *)
85#define PUSH_PL PUSHcfapi(CFAPI_PPLAYER, player *) 85#define PUSH_PL PUSHcfapi_va(PPLAYER, player *)
86#define PUSH_MAP PUSHcfapi(CFAPI_PMAP, mapstruct *) 86#define PUSH_MAP PUSHcfapi_va(PMAP, mapstruct *)
87#define PUSH_PV PUSHcfapi(CFAPI_STRING, const char *) 87#define PUSH_PV PUSHcfapi_va(STRING, const char *)
88#define PUSH_IV PUSHcfapi(CFAPI_INT, int) 88#define PUSH_IV PUSHs (sv_2mortal (newSViv (va_arg (args, int))))
89 89
90////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////// 90//////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
91 91
92// garbage collect some perl objects, if possible 92// garbage collect some perl objects, if possible
93// all objects no longer referenced and empty are 93// all objects no longer referenced and empty are
… …
229 case CFAPI_LONG: 229 case CFAPI_LONG:
230 sv = newSVnv ((double)*va_arg (args, sint64 *)); /* oh, the humanity! */ 230 sv = newSVnv ((double)*va_arg (args, sint64 *)); /* oh, the humanity! */
231 break; 231 break;
232 232
233 case CFAPI_DOUBLE: 233 case CFAPI_DOUBLE:
234 sv = newSViv (*va_arg (args, double *)); 234 sv = newSVnv (*va_arg (args, double *));
235 break; 235 break;
236 236
237 case CFAPI_STRING: 237 case CFAPI_STRING:
238 { 238 {
239 char *str = va_arg (args, char *); 239 char *str = va_arg (args, char *);
… …
246 object *obj = va_arg (args, object *); 246 object *obj = va_arg (args, object *);
247 247
248 if (!obj) 248 if (!obj)
249 sv = &PL_sv_undef; 249 sv = &PL_sv_undef;
250 else 250 else
251 switch (*(int *)cf_object_get_property (obj, CFAPI_OBJECT_PROP_TYPE)) 251 switch (obj->type)
252 { 252 {
253 case MAP: 253 case MAP:
254 sv = newSVptr_cached (obj, "cf::object::map"); 254 sv = newSVptr_cached (obj, "cf::object::map");
255 break; 255 break;
256 256
… …
427 registerGlobalEvent (NULL, EVENT_MUZZLE, PLUGIN_NAME, globalEventListener); 427 registerGlobalEvent (NULL, EVENT_MUZZLE, PLUGIN_NAME, globalEventListener);
428 registerGlobalEvent (NULL, EVENT_KICK, PLUGIN_NAME, globalEventListener); 428 registerGlobalEvent (NULL, EVENT_KICK, PLUGIN_NAME, globalEventListener);
429 registerGlobalEvent (NULL, EVENT_FREE_OB, PLUGIN_NAME, globalEventListener); 429 registerGlobalEvent (NULL, EVENT_FREE_OB, PLUGIN_NAME, globalEventListener);
430 registerGlobalEvent (NULL, EVENT_PLAYER_LOAD, PLUGIN_NAME, globalEventListener); 430 registerGlobalEvent (NULL, EVENT_PLAYER_LOAD, PLUGIN_NAME, globalEventListener);
431 registerGlobalEvent (NULL, EVENT_PLAYER_SAVE, PLUGIN_NAME, globalEventListener); 431 registerGlobalEvent (NULL, EVENT_PLAYER_SAVE, PLUGIN_NAME, globalEventListener);
432 registerGlobalEvent (NULL, EVENT_EXTCMD, PLUGIN_NAME, globalEventListener);
432 433
433 char *argv[] = { 434 char *argv[] = {
434 "", 435 "",
435 "-e" 436 "-e"
436 "BEGIN {" 437 "BEGIN {"
… …
542 case EVENT_KICK: 543 case EVENT_KICK:
543 PUSH_OB; 544 PUSH_OB;
544 PUSH_PV; 545 PUSH_PV;
545 break; 546 break;
546 547
548 case EVENT_EXTCMD:
549 PUSH_PL;
550 {
551 char *buf = va_arg (args, char *);
552 int len = va_arg (args, int);
553 PUSHs (sv_2mortal (newSVpvn (buf, len)));
554 }
555 break;
556
547 case EVENT_CLOCK: 557 case EVENT_CLOCK:
548 clean_obj_cache (); 558 clean_obj_cache ();
549 break; 559 break;
550 560
551 case EVENT_TELL: 561 case EVENT_TELL:
… …
557 PUTBACK; 567 PUTBACK;
558 int count = call_pv ("cf::inject_global_event", G_SCALAR | G_EVAL); 568 int count = call_pv ("cf::inject_global_event", G_SCALAR | G_EVAL);
559 SPAGAIN; 569 SPAGAIN;
560 570
561 if (SvTRUE (ERRSV)) 571 if (SvTRUE (ERRSV))
562 LOG (llevError, "event '%d' callback evaluation error: %s", event_code, SvPV_nolen (ERRSV)); 572 LOG (llevError, "global event '%d' callback evaluation error: %s", event_code, SvPV_nolen (ERRSV));
563 573
564 rv = count > 0 ? POPi : 0; 574 rv = count > 0 ? POPi : 0;
565 575
566 PUTBACK; 576 PUTBACK;
567 FREETMPS; 577 FREETMPS;
… …
572} 582}
573 583
574void * 584void *
575eventListener (int *type, ...) 585eventListener (int *type, ...)
576{ 586{
577 static int rv = 0; 587 static int rv;
578 va_list args; 588 va_list args;
579 char *buf; 589 int event_code;
580 CFPContext context; 590 object *who, *activator, *third, *event;
591 char *message, *extension, *options;
581 592
582 if (!perl) 593 if (!perl)
583 return; 594 return;
584 595
585 memset (&context, 0, sizeof (context));
586
587 va_start (args, type); 596 va_start (args, type);
588
589 context.who = va_arg (args, object *); 597 who = va_arg (args, object *);
590 context.event_code = va_arg (args, int); 598 event_code = va_arg (args, int);
591 context.activator = va_arg (args, object *); 599 activator = va_arg (args, object *);
592 context.third = va_arg (args, object *); 600 third = va_arg (args, object *);
593
594 buf = va_arg (args, char *); 601 message = va_arg (args, char *);
595 if (buf != 0) 602 va_arg (args, int); // fix yourself
596 strncpy (context.message, buf, sizeof (context.message)); 603 extension = va_arg (args, char *);
597 604 options = va_arg (args, char *);
598 context.fix = va_arg (args, int);
599 strncpy (context.extension, va_arg (args, char *), sizeof (context.extension));
600 strncpy (context.options, va_arg (args, char *), sizeof (context.options));
601 context.event = va_arg (args, object *); 605 event = va_arg (args, object *);
602 va_end (args); 606 va_end (args);
603 607
604 { 608 {
605 dSP; 609 dSP;
606 610
607 ENTER; 611 ENTER;
608 SAVETMPS; 612 SAVETMPS;
609 613
610 PUSHMARK (SP); 614 PUSHMARK (SP);
611
612 EXTEND (SP, 10); 615 EXTEND (SP, 10);
613 616
614 HV *hv = newHV (); 617 PUSHcfapi (STRING, extension);
615#define hv_context(type,addr,expr) hv_store (hv, #expr, sizeof (#expr) - 1, newSVcfapi (type, addr context.expr), 0) 618 PUSHs (sv_2mortal (newSViv (event_code)));
616 hv_context (CFAPI_POBJECT, ,who);
617 hv_context (CFAPI_POBJECT, ,activator);
618 hv_context (CFAPI_POBJECT, ,third);
619 hv_context (CFAPI_POBJECT, ,event);
620 hv_context (CFAPI_PMAP, ,map);
621 hv_context (CFAPI_STRING , ,message);
622 hv_context (CFAPI_INT ,&,fix);
623 hv_context (CFAPI_INT ,&,event_code);
624 hv_context (CFAPI_STRING , ,options);
625 hv_context (CFAPI_STRING , ,extension);
626 619
627 PUSHs (sv_2mortal (newRV_noinc ((SV *)hv))); 620 PUSHcfapi (POBJECT, event);
621 PUSHcfapi (POBJECT, who);
622
623 switch (event_code)
624 {
625 case EVENT_STOP: // $ob (e.g. arrow)
626 case EVENT_TIME: // $ob
627 case EVENT_TIMER: // $ob
628 break;
629
630 case EVENT_APPLY: // $ob, $who
631 case EVENT_DROP: // $ob, $who
632 case EVENT_CLOSE: // $ob, $who
633 case EVENT_DEATH: // $ob[, $killer]
634 case EVENT_MOVE: // $ob, $enemy
635 case EVENT_THROW: // $ob, $thrower
636 PUSHcfapi (POBJECT, activator);
637 break;
638
639 case EVENT_ATTACK: // $ob, $who, $victim (?? please god enlighten me)
640 PUSHcfapi (POBJECT, activator);
641 PUSHcfapi (POBJECT, third);
642 break;
643
644 case EVENT_TRIGGER: // $ob, $originator, [$victim], [$msg]
645 PUSHcfapi (POBJECT, activator);
646 PUSHcfapi (POBJECT, third);
647 PUSHcfapi (POBJECT, message);
648 break;
649
650 case EVENT_SAY: // $ob, $who, $msg
651 PUSHcfapi (POBJECT, activator);
652 PUSHcfapi (STRING, message);
653 break;
654
655 default:
656 LOG (llevError, "perl plugin called for unsupported event type %d", event_code);
657 break;
658 }
628 659
629 PUTBACK; 660 PUTBACK;
630 int count = call_pv ("cf::inject_event", G_SCALAR | G_EVAL); 661 int count = call_pv ("cf::inject_event", G_SCALAR | G_EVAL);
631 SPAGAIN; 662 SPAGAIN;
632 663
633 if (SvTRUE (ERRSV)) 664 if (SvTRUE (ERRSV))
634 LOG (llevError, "event '%d' callback evaluation error: %s", context.event_code, SvPV_nolen (ERRSV)); 665 LOG (llevError, "event '%d' callback evaluation error: %s", event_code, SvPV_nolen (ERRSV));
635 666
636 context.returnvalue = count > 0 ? POPi : 0; 667 rv = count > 0 ? POPi : 0;
637 668
638 PUTBACK; 669 PUTBACK;
639 FREETMPS; 670 FREETMPS;
640 LEAVE; 671 LEAVE;
641 } 672 }
642 673
643 rv = context.returnvalue;
644 return &rv; 674 return &rv;
645} 675}
646 676
647int 677int
648closePlugin () 678closePlugin ()
… …
1068 const_iv (SK_SUMMONING) 1098 const_iv (SK_SUMMONING)
1069 const_iv (SK_PYROMANCY) 1099 const_iv (SK_PYROMANCY)
1070 const_iv (SK_EVOCATION) 1100 const_iv (SK_EVOCATION)
1071 const_iv (SK_SORCERY) 1101 const_iv (SK_SORCERY)
1072 const_iv (SK_TWO_HANDED_WEAPON) 1102 const_iv (SK_TWO_HANDED_WEAPON)
1103 const_iv (SK_SPARK_TOUCH)
1104 const_iv (SK_SHIVER)
1105 const_iv (SK_ACID_SPLASH)
1106 const_iv (SK_POISON_NAIL)
1073 1107
1074 const_iv (SOUND_NEW_PLAYER) 1108 const_iv (SOUND_NEW_PLAYER)
1075 const_iv (SOUND_FIRE_ARROW) 1109 const_iv (SOUND_FIRE_ARROW)
1076 const_iv (SOUND_LEARN_SPELL) 1110 const_iv (SOUND_LEARN_SPELL)
1077 const_iv (SOUND_FUMBLE_SPELL) 1111 const_iv (SOUND_FUMBLE_SPELL)
… …
1139 const_event (REMOVE) 1173 const_event (REMOVE)
1140 const_event (SHOUT) 1174 const_event (SHOUT)
1141 const_event (TELL) 1175 const_event (TELL)
1142 const_event (MUZZLE) 1176 const_event (MUZZLE)
1143 const_event (KICK) 1177 const_event (KICK)
1178 const_event (EXTCMD)
1144 //const_event (FREE_OB) 1179 //const_event (FREE_OB)
1145 }; 1180 };
1146 1181
1147 AV *av = get_av ("cf::EVENT", 1); 1182 AV *av = get_av ("cf::EVENT", 1);
1148 1183
… …
1466 1501
1467void cf_object_update (object *op, int flags) 1502void cf_object_update (object *op, int flags)
1468 1503
1469void cf_object_pickup (object *op, object *what) 1504void cf_object_pickup (object *op, object *what)
1470 1505
1471char *cf_object_get_key (object *op, char *keyname)
1472 ALIAS: key = 0
1473
1474void cf_object_set_key (object *op, char *keyname, char *value)
1475
1476object *cf_create_object_by_name (const char *name) 1506object *cf_create_object_by_name (const char *name)
1477 1507
1478void change_exp (object *op, double exp, const char *skill_name = 0, int flag = 0) 1508void change_exp (object *op, double exp, const char *skill_name = 0, int flag = 0)
1479 1509
1480void player_lvl_adj (object *who, object *skill = 0) 1510void player_lvl_adj (object *who, object *skill = 0)
1481 1511
1512int kill_object (object *op, int dam = 0, object *hitter = 0, int type = AT_PHYSICAL)
1482 1513
1483MODULE = cf PACKAGE = cf::object PREFIX = cf_ 1514MODULE = cf PACKAGE = cf::object PREFIX = cf_
1484 1515
1485void cf_fix_object (object *pl) 1516void cf_fix_object (object *pl)
1486 ALIAS: fix = 0 1517 ALIAS: fix = 0
… …
1502 CODE: 1533 CODE:
1503{ 1534{
1504 int unused_type; 1535 int unused_type;
1505 RETVAL = (object *)object_insert (&unused_type, ob, 0, where, orig, flag, x, y); 1536 RETVAL = (object *)object_insert (&unused_type, ob, 0, where, orig, flag, x, y);
1506} 1537}
1538
1539# syntatic sugar for easier use in event callbacks.
1540const char *options (object *op)
1541 CODE:
1542 RETVAL = op->name;
1543 OUTPUT:
1544 RETVAL
1507 1545
1508const char *get_ob_key_value (object *op, const char *key) 1546const char *get_ob_key_value (object *op, const char *key)
1509 1547
1510bool set_ob_key_value (object *op, const char *key, const char *value = 0, int add_key = 1) 1548bool set_ob_key_value (object *op, const char *key, const char *value = 0, int add_key = 1)
1511 1549
… …
1548 1586
1549MODULE = cf PACKAGE = cf::object::player PREFIX = cf_player_ 1587MODULE = cf PACKAGE = cf::object::player PREFIX = cf_player_
1550 1588
1551player *player (object *op) 1589player *player (object *op)
1552 CODE: 1590 CODE:
1553 RETVAL = cf_player_find (cf_query_name (op)); 1591 RETVAL = op->contr;
1554 OUTPUT: RETVAL 1592 OUTPUT: RETVAL
1555 1593
1556void cf_player_message (object *obj, char *txt, int flags = NDI_ORANGE | NDI_UNIQUE) 1594void cf_player_message (object *obj, char *txt, int flags = NDI_ORANGE | NDI_UNIQUE)
1557 1595
1558object *cf_player_send_inventory (object *op) 1596object *cf_player_send_inventory (object *op)
… …
1575 1613
1576void cf_player_set_party (object *op, partylist *party) 1614void cf_player_set_party (object *op, partylist *party)
1577 1615
1578void change_skill (object *op, double exp, char *skill_name = 0, int flag = 0) 1616void change_skill (object *op, double exp, char *skill_name = 0, int flag = 0)
1579 1617
1618void kill_player (object *op)
1619
1580MODULE = cf PACKAGE = cf::object::map PREFIX = cf_ 1620MODULE = cf PACKAGE = cf::object::map PREFIX = cf_
1581 1621
1582MODULE = cf PACKAGE = cf::player PREFIX = cf_player_ 1622MODULE = cf PACKAGE = cf::player PREFIX = cf_player_
1583 1623
1584player *cf_player_find (char *name) 1624player *cf_player_find (char *name)
… …
1603 1643
1604player *next (player *pl) 1644player *next (player *pl)
1605 CODE: 1645 CODE:
1606 RETVAL = pl->next; 1646 RETVAL = pl->next;
1607 OUTPUT: RETVAL 1647 OUTPUT: RETVAL
1648
1649bool
1650cell_visible (player *pl, int dx, int dy)
1651 CODE:
1652 RETVAL = FABS (dx) <= pl->socket.mapx / 2 && FABS (dy) <= pl->socket.mapy / 2
1653 && !pl->blocked_los [dx + pl->socket.mapx / 2][dy + pl->socket.mapy / 2];
1654 OUTPUT:
1655 RETVAL
1656
1657void
1658send (player *pl, SV *packet)
1659 CODE:
1660{
1661 STRLEN len;
1662 char *buf = SvPVbyte (packet, len);
1663
1664 Write_String_To_Socket (&pl->socket, buf, len);
1665}
1666
1667int
1668listening (player *pl, int new_value = -1)
1669 CODE:
1670 RETVAL = pl->listening;
1671 if (new_value >= 0)
1672 pl->listening = new_value;
1673 OUTPUT:
1674 RETVAL
1608 1675
1609void get_savebed (player *pl) 1676void get_savebed (player *pl)
1610 ALIAS: 1677 ALIAS:
1611 savebed = 0 1678 savebed = 0
1612 PPCODE: 1679 PPCODE:
… …
1719object *cf_map_insert_object (mapstruct *where, object* op, int x, int y) 1786object *cf_map_insert_object (mapstruct *where, object* op, int x, int y)
1720 1787
1721object* cf_map_present_arch_by_name (mapstruct *map, const char* str, int nx, int ny) 1788object* cf_map_present_arch_by_name (mapstruct *map, const char* str, int nx, int ny)
1722 C_ARGS: str, map, nx, ny 1789 C_ARGS: str, map, nx, ny
1723 1790
1724#int cf_map_get_flags (mapstruct* map, mapstruct** nmap, I16 x, I16 y, I16 *nx, I16 *ny)
1725
1726void 1791void
1792cf_map_normalise (mapstruct *map, int x, int y)
1793 PPCODE:
1794{
1795 mapstruct *nmap = 0;
1796 I16 nx = 0, ny = 0;
1797 int flags = cf_map_get_flags (map, &nmap, x, y, &nx, &ny);
1798
1799 EXTEND (SP, 4);
1800 PUSHs (sv_2mortal (newSViv (flags)));
1801
1802 if (GIMME_V == G_ARRAY)
1803 {
1804 PUSHs (sv_2mortal (newSVcfapi (CFAPI_PMAP, nmap)));
1805 PUSHs (sv_2mortal (newSViv (nx)));
1806 PUSHs (sv_2mortal (newSViv (ny)));
1807 }
1808}
1809
1810void
1727at (mapstruct *obj, unsigned int x, unsigned int y) 1811at (mapstruct *map, unsigned int x, unsigned int y)
1728 PROTOTYPE: $$$ 1812 PROTOTYPE: $$$
1729 INIT:
1730 if (x >= MAP_WIDTH (obj) || y >= MAP_HEIGHT (obj)) XSRETURN_EMPTY;
1731 PPCODE: 1813 PPCODE:
1732{ 1814{
1733 object *o; 1815 object *o;
1734 1816 mapstruct *nmap = 0;
1817 I16 nx, ny;
1818
1819 cf_map_get_flags (map, &nmap, x, y, &nx, &ny);
1820
1821 if (nmap)
1735 for (o = GET_MAP_OB (obj, x, y); o; o = o->above) 1822 for (o = GET_MAP_OB (nmap, nx, ny); o; o = o->above)
1736 XPUSHs (sv_2mortal (newSVcfapi (CFAPI_POBJECT, o))); 1823 XPUSHs (sv_2mortal (newSVcfapi (CFAPI_POBJECT, o)));
1737} 1824}
1738 1825
1739SV * 1826SV *
1740bot_at (mapstruct *obj, unsigned int x, unsigned int y) 1827bot_at (mapstruct *obj, unsigned int x, unsigned int y)
1741 PROTOTYPE: $$$ 1828 PROTOTYPE: $$$

Diff Legend

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