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.41 by root, Tue Mar 28 16:08:28 2006 UTC vs.
Revision 1.50 by root, Sat May 6 13:27:52 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
… …
65typedef struct 64typedef struct
66{ 65{
67 object* who; 66 object* who;
68 object* activator; 67 object* activator;
69 object* third; 68 object* third;
69 object* event;
70 mapstruct* map; 70 mapstruct* map;
71 char message[1024]; 71 char message[1024];
72 int fix; // seems to be python-only, and should not be part of the API 72 int fix; // seems to be python-only, and should not be part of the API
73 int event_code; 73 int event_code;
74 char extension[1024]; // name field, should invoke specific perl extension 74 char extension[1024]; // name field, should invoke specific perl extension
… …
76 int returnvalue; 76 int returnvalue;
77} CFPContext; 77} CFPContext;
78 78
79static HV *obj_cache; 79static HV *obj_cache;
80static PerlInterpreter *perl; 80static PerlInterpreter *perl;
81
82#define PUSHcfapi(type,value) PUSHs (sv_2mortal (newSVcfapi (CFAPI_ ## type, (value))))
83#define PUSHcfapi_va(type,ctype) PUSHcfapi (type, va_arg (args, ctype))
84#define PUSH_OB PUSHcfapi_va(POBJECT, object *)
85#define PUSH_PL PUSHcfapi_va(PPLAYER, player *)
86#define PUSH_MAP PUSHcfapi_va(PMAP, mapstruct *)
87#define PUSH_PV PUSHcfapi_va(STRING, const char *)
88#define PUSH_IV PUSHs (sv_2mortal (newSViv (va_arg (args, int))))
81 89
82////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////// 90//////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
83 91
84// garbage collect some perl objects, if possible 92// garbage collect some perl objects, if possible
85// all objects no longer referenced and empty are 93// all objects no longer referenced and empty are
… …
221 case CFAPI_LONG: 229 case CFAPI_LONG:
222 sv = newSVnv ((double)*va_arg (args, sint64 *)); /* oh, the humanity! */ 230 sv = newSVnv ((double)*va_arg (args, sint64 *)); /* oh, the humanity! */
223 break; 231 break;
224 232
225 case CFAPI_DOUBLE: 233 case CFAPI_DOUBLE:
226 sv = newSViv (*va_arg (args, double *)); 234 sv = newSVnv (*va_arg (args, double *));
227 break; 235 break;
228 236
229 case CFAPI_STRING: 237 case CFAPI_STRING:
230 { 238 {
231 char *str = va_arg (args, char *); 239 char *str = va_arg (args, char *);
… …
238 object *obj = va_arg (args, object *); 246 object *obj = va_arg (args, object *);
239 247
240 if (!obj) 248 if (!obj)
241 sv = &PL_sv_undef; 249 sv = &PL_sv_undef;
242 else 250 else
243 switch (*(int *)cf_object_get_property (obj, CFAPI_OBJECT_PROP_TYPE)) 251 switch (obj->type)
244 { 252 {
245 case MAP: 253 case MAP:
246 sv = newSVptr_cached (obj, "cf::object::map"); 254 sv = newSVptr_cached (obj, "cf::object::map");
247 break; 255 break;
248 256
… …
284 va_end (args); 292 va_end (args);
285 293
286 return sv; 294 return sv;
287} 295}
288 296
289/////////////////////////////////////////////////////////////////////////////
290
291void
292inject_event (const char *func, CFPContext *context)
293{
294 dSP;
295
296 ENTER;
297 SAVETMPS;
298
299 PUSHMARK (SP);
300
301 HV *hv = newHV ();
302#define hv_context(type,addr,expr) hv_store (hv, #expr, sizeof (#expr) - 1, newSVcfapi (type, addr context->expr), 0)
303 hv_context (CFAPI_POBJECT, ,who);
304 hv_context (CFAPI_POBJECT, ,activator);
305 hv_context (CFAPI_POBJECT, ,third);
306 hv_context (CFAPI_PMAP, ,map);
307 hv_context (CFAPI_STRING , ,message);
308 hv_context (CFAPI_INT ,&,fix);
309 hv_context (CFAPI_INT ,&,event_code);
310 hv_context (CFAPI_STRING , ,options);
311 hv_context (CFAPI_STRING , ,extension);
312
313 XPUSHs (sv_2mortal (newRV_noinc ((SV *)hv)));
314
315 PUTBACK;
316 int count = call_pv (func, G_SCALAR | G_EVAL);
317 SPAGAIN;
318
319 if (SvTRUE (ERRSV))
320 LOG (llevError, "event '%d' callback evaluation error: %s", context->event_code, SvPV_nolen (ERRSV));
321
322 context->returnvalue = count > 0 ? POPi : 0;
323
324 PUTBACK;
325 FREETMPS;
326 LEAVE;
327}
328
329///////////////////////////////////////////////////////////////////////////// 297/////////////////////////////////////////////////////////////////////////////
330 298
331int 299int
332initPlugin (const char *iversion, f_plug_api gethooksptr) 300initPlugin (const char *iversion, f_plug_api gethooksptr)
333{ 301{
… …
529 PUSHMARK (SP); 497 PUSHMARK (SP);
530 498
531 EXTEND (SP, 10); 499 EXTEND (SP, 10);
532 PUSHs (sv_2mortal (newSViv (event_code))); 500 PUSHs (sv_2mortal (newSViv (event_code)));
533 501
534#define PUSHcfapi(type,ctype) PUSHs (sv_2mortal (newSVcfapi ((type), va_arg (args, ctype))))
535#define PUSH_OB PUSHcfapi(CFAPI_POBJECT, object *)
536#define PUSH_PL PUSHcfapi(CFAPI_PPLAYER, player *)
537#define PUSH_MAP PUSHcfapi(CFAPI_PMAP, mapstruct *)
538#define PUSH_PV PUSHcfapi(CFAPI_STRING, const char *)
539#define PUSH_IV PUSHcfapi(CFAPI_INT, int)
540
541 switch (event_code) 502 switch (event_code)
542 { 503 {
543 case EVENT_CRASH: 504 case EVENT_CRASH:
544 break; 505 break;
545 506
… …
596 PUTBACK; 557 PUTBACK;
597 int count = call_pv ("cf::inject_global_event", G_SCALAR | G_EVAL); 558 int count = call_pv ("cf::inject_global_event", G_SCALAR | G_EVAL);
598 SPAGAIN; 559 SPAGAIN;
599 560
600 if (SvTRUE (ERRSV)) 561 if (SvTRUE (ERRSV))
601 LOG (llevError, "event '%d' callback evaluation error: %s", event_code, SvPV_nolen (ERRSV)); 562 LOG (llevError, "global event '%d' callback evaluation error: %s", event_code, SvPV_nolen (ERRSV));
602 563
603 rv = count > 0 ? POPi : 0; 564 rv = count > 0 ? POPi : 0;
604 565
605 PUTBACK; 566 PUTBACK;
606 FREETMPS; 567 FREETMPS;
… …
611} 572}
612 573
613void * 574void *
614eventListener (int *type, ...) 575eventListener (int *type, ...)
615{ 576{
616 static int rv = 0; 577 static int rv;
617 va_list args; 578 va_list args;
618 char *buf; 579 int event_code;
619 CFPContext context; 580 object *who, *activator, *third, *event;
620 object *eob; 581 char *message, *extension, *options;
621 582
622 if (!perl) 583 if (!perl)
623 return; 584 return;
624 585
625 memset (&context, 0, sizeof (context));
626
627 va_start (args, type); 586 va_start (args, type);
628
629 context.who = va_arg (args, object *); 587 who = va_arg (args, object *);
630 context.event_code = va_arg (args, int); 588 event_code = va_arg (args, int);
631 context.activator = va_arg (args, object *); 589 activator = va_arg (args, object *);
632 context.third = va_arg (args, object *); 590 third = va_arg (args, object *);
633
634 buf = va_arg (args, char *); 591 message = va_arg (args, char *);
635 if (buf != 0) 592 va_arg (args, int); // fix yourself
636 strncpy (context.message, buf, sizeof (context.message)); 593 extension = va_arg (args, char *);
637 594 options = va_arg (args, char *);
638 context.fix = va_arg (args, int);
639 strncpy (context.extension, va_arg (args, char *), sizeof (context.extension));
640 strncpy (context.options, va_arg (args, char *), sizeof (context.options));
641 eob = va_arg (args, object *); 595 event = va_arg (args, object *);
642 context.returnvalue = 0;
643 va_end (args); 596 va_end (args);
644 597
645 inject_event ("cf::inject_event", &context); 598 {
599 dSP;
600
601 ENTER;
602 SAVETMPS;
603
604 PUSHMARK (SP);
605 EXTEND (SP, 10);
606
607 PUSHcfapi (STRING, extension);
608 PUSHs (sv_2mortal (newSViv (event_code)));
609
610 PUSHcfapi (POBJECT, event);
611 PUSHcfapi (POBJECT, who);
612
613 switch (event_code)
614 {
615 case EVENT_STOP: // $ob (e.g. arrow)
616 case EVENT_TIME: // $ob
617 case EVENT_TIMER: // $ob
618 break;
619
620 case EVENT_APPLY: // $ob, $who
621 case EVENT_DROP: // $ob, $who
622 case EVENT_CLOSE: // $ob, $who
623 case EVENT_DEATH: // $ob[, $killer]
624 case EVENT_MOVE: // $ob, $enemy
625 case EVENT_THROW: // $ob, $thrower
626 PUSHcfapi (POBJECT, activator);
627 break;
628
629 case EVENT_ATTACK: // $ob, $who, $victim (?? please god enlighten me)
630 PUSHcfapi (POBJECT, activator);
631 PUSHcfapi (POBJECT, third);
632 break;
633
634 case EVENT_TRIGGER: // $ob, $originator, [$victim], [$msg]
635 PUSHcfapi (POBJECT, activator);
636 PUSHcfapi (POBJECT, third);
637 PUSHcfapi (POBJECT, message);
638 break;
639
640 case EVENT_SAY: // $ob, $who, $msg
641 PUSHcfapi (POBJECT, activator);
642 PUSHcfapi (STRING, message);
643 break;
644
645 default:
646 LOG (llevError, "perl plugin called for unsupported event type %d", event_code);
647 break;
648 }
649
650 PUTBACK;
651 int count = call_pv ("cf::inject_event", G_SCALAR | G_EVAL);
652 SPAGAIN;
653
654 if (SvTRUE (ERRSV))
655 LOG (llevError, "event '%d' callback evaluation error: %s", event_code, SvPV_nolen (ERRSV));
656
657 rv = count > 0 ? POPi : 0;
658
659 PUTBACK;
660 FREETMPS;
661 LEAVE;
662 }
646 663
647 rv = context.returnvalue;
648 return &rv; 664 return &rv;
649} 665}
650 666
651int 667int
652closePlugin () 668closePlugin ()
… …
1072 const_iv (SK_SUMMONING) 1088 const_iv (SK_SUMMONING)
1073 const_iv (SK_PYROMANCY) 1089 const_iv (SK_PYROMANCY)
1074 const_iv (SK_EVOCATION) 1090 const_iv (SK_EVOCATION)
1075 const_iv (SK_SORCERY) 1091 const_iv (SK_SORCERY)
1076 const_iv (SK_TWO_HANDED_WEAPON) 1092 const_iv (SK_TWO_HANDED_WEAPON)
1093 const_iv (SK_SPARK_TOUCH)
1094 const_iv (SK_SHIVER)
1095 const_iv (SK_ACID_SPLASH)
1096 const_iv (SK_POISON_NAIL)
1077 1097
1078 const_iv (SOUND_NEW_PLAYER) 1098 const_iv (SOUND_NEW_PLAYER)
1079 const_iv (SOUND_FIRE_ARROW) 1099 const_iv (SOUND_FIRE_ARROW)
1080 const_iv (SOUND_LEARN_SPELL) 1100 const_iv (SOUND_LEARN_SPELL)
1081 const_iv (SOUND_FUMBLE_SPELL) 1101 const_iv (SOUND_FUMBLE_SPELL)
… …
1481 1501
1482void change_exp (object *op, double exp, const char *skill_name = 0, int flag = 0) 1502void change_exp (object *op, double exp, const char *skill_name = 0, int flag = 0)
1483 1503
1484void player_lvl_adj (object *who, object *skill = 0) 1504void player_lvl_adj (object *who, object *skill = 0)
1485 1505
1506int kill_object (object *op, int dam = 0, object *hitter = 0, int type = AT_PHYSICAL)
1486 1507
1487MODULE = cf PACKAGE = cf::object PREFIX = cf_ 1508MODULE = cf PACKAGE = cf::object PREFIX = cf_
1488 1509
1489void cf_fix_object (object *pl) 1510void cf_fix_object (object *pl)
1490 ALIAS: fix = 0 1511 ALIAS: fix = 0
… …
1506 CODE: 1527 CODE:
1507{ 1528{
1508 int unused_type; 1529 int unused_type;
1509 RETVAL = (object *)object_insert (&unused_type, ob, 0, where, orig, flag, x, y); 1530 RETVAL = (object *)object_insert (&unused_type, ob, 0, where, orig, flag, x, y);
1510} 1531}
1532
1533# syntatic sugar for easier use in event callbacks.
1534const char *options (object *op)
1535 CODE:
1536 RETVAL = op->name;
1537 OUTPUT:
1538 RETVAL
1511 1539
1512const char *get_ob_key_value (object *op, const char *key) 1540const char *get_ob_key_value (object *op, const char *key)
1513 1541
1514bool set_ob_key_value (object *op, const char *key, const char *value = 0, int add_key = 1) 1542bool set_ob_key_value (object *op, const char *key, const char *value = 0, int add_key = 1)
1515 1543
… …
1552 1580
1553MODULE = cf PACKAGE = cf::object::player PREFIX = cf_player_ 1581MODULE = cf PACKAGE = cf::object::player PREFIX = cf_player_
1554 1582
1555player *player (object *op) 1583player *player (object *op)
1556 CODE: 1584 CODE:
1557 RETVAL = cf_player_find (cf_query_name (op)); 1585 RETVAL = op->contr;
1558 OUTPUT: RETVAL 1586 OUTPUT: RETVAL
1559 1587
1560void cf_player_message (object *obj, char *txt, int flags = NDI_ORANGE | NDI_UNIQUE) 1588void cf_player_message (object *obj, char *txt, int flags = NDI_ORANGE | NDI_UNIQUE)
1561 1589
1562object *cf_player_send_inventory (object *op) 1590object *cf_player_send_inventory (object *op)
… …
1578 ALIAS: party = 0 1606 ALIAS: party = 0
1579 1607
1580void cf_player_set_party (object *op, partylist *party) 1608void cf_player_set_party (object *op, partylist *party)
1581 1609
1582void change_skill (object *op, double exp, char *skill_name = 0, int flag = 0) 1610void change_skill (object *op, double exp, char *skill_name = 0, int flag = 0)
1611
1612void kill_player (object *op)
1583 1613
1584MODULE = cf PACKAGE = cf::object::map PREFIX = cf_ 1614MODULE = cf PACKAGE = cf::object::map PREFIX = cf_
1585 1615
1586MODULE = cf PACKAGE = cf::player PREFIX = cf_player_ 1616MODULE = cf PACKAGE = cf::player PREFIX = cf_player_
1587 1617
… …
1631{ 1661{
1632 player *pl; 1662 player *pl;
1633 for (pl = first_player; pl; pl = pl->next) 1663 for (pl = first_player; pl; pl = pl->next)
1634 XPUSHs (newSVcfapi (CFAPI_PPLAYER, pl)); 1664 XPUSHs (newSVcfapi (CFAPI_PPLAYER, pl));
1635} 1665}
1666
1667bool
1668peaceful (player *pl, bool new_setting = 0)
1669 PROTOTYPE: $;$
1670 CODE:
1671 RETVAL = pl->peaceful;
1672 if (items > 1)
1673 pl->peaceful = new_setting;
1674 OUTPUT:
1675 RETVAL
1636 1676
1637living * 1677living *
1638orig_stats (player *pl) 1678orig_stats (player *pl)
1639 CODE: 1679 CODE:
1640 RETVAL = &pl->orig_stats; 1680 RETVAL = &pl->orig_stats;

Diff Legend

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