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.44 by root, Fri Mar 31 20:21:53 2006 UTC vs.
Revision 1.46 by root, Fri Mar 31 22:47:25 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 *);
… …
292 va_end (args); 292 va_end (args);
293 293
294 return sv; 294 return sv;
295} 295}
296 296
297/////////////////////////////////////////////////////////////////////////////
298
299void
300inject_event (const char *func, CFPContext *context)
301{
302 dSP;
303
304 ENTER;
305 SAVETMPS;
306
307 PUSHMARK (SP);
308
309 EXTEND (SP, 10);
310
311 HV *hv = newHV ();
312#define hv_context(type,addr,expr) hv_store (hv, #expr, sizeof (#expr) - 1, newSVcfapi (type, addr context->expr), 0)
313 hv_context (CFAPI_POBJECT, ,who);
314 hv_context (CFAPI_POBJECT, ,activator);
315 hv_context (CFAPI_POBJECT, ,third);
316 hv_context (CFAPI_POBJECT, ,event);
317 hv_context (CFAPI_PMAP, ,map);
318 hv_context (CFAPI_STRING , ,message);
319 hv_context (CFAPI_INT ,&,fix);
320 hv_context (CFAPI_INT ,&,event_code);
321 hv_context (CFAPI_STRING , ,options);
322 hv_context (CFAPI_STRING , ,extension);
323
324 PUSHs (sv_2mortal (newRV_noinc ((SV *)hv)));
325
326 PUTBACK;
327 int count = call_pv (func, G_SCALAR | G_EVAL);
328 SPAGAIN;
329
330 if (SvTRUE (ERRSV))
331 LOG (llevError, "event '%d' callback evaluation error: %s", context->event_code, SvPV_nolen (ERRSV));
332
333 context->returnvalue = count > 0 ? POPi : 0;
334
335 PUTBACK;
336 FREETMPS;
337 LEAVE;
338}
339
340///////////////////////////////////////////////////////////////////////////// 297/////////////////////////////////////////////////////////////////////////////
341 298
342int 299int
343initPlugin (const char *iversion, f_plug_api gethooksptr) 300initPlugin (const char *iversion, f_plug_api gethooksptr)
344{ 301{
… …
600 PUTBACK; 557 PUTBACK;
601 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);
602 SPAGAIN; 559 SPAGAIN;
603 560
604 if (SvTRUE (ERRSV)) 561 if (SvTRUE (ERRSV))
605 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));
606 563
607 rv = count > 0 ? POPi : 0; 564 rv = count > 0 ? POPi : 0;
608 565
609 PUTBACK; 566 PUTBACK;
610 FREETMPS; 567 FREETMPS;
… …
615} 572}
616 573
617void * 574void *
618eventListener (int *type, ...) 575eventListener (int *type, ...)
619{ 576{
620 static int rv = 0; 577 static int rv;
621 va_list args; 578 va_list args;
622 char *buf; 579 int event_code;
623 CFPContext context; 580 object *who, *activator, *third, *event;
581 char *message, *extension, *options;
624 582
625 if (!perl) 583 if (!perl)
626 return; 584 return;
627 585
628 memset (&context, 0, sizeof (context));
629
630 va_start (args, type); 586 va_start (args, type);
631
632 context.who = va_arg (args, object *); 587 who = va_arg (args, object *);
633 context.event_code = va_arg (args, int); 588 event_code = va_arg (args, int);
634 context.activator = va_arg (args, object *); 589 activator = va_arg (args, object *);
635 context.third = va_arg (args, object *); 590 third = va_arg (args, object *);
636
637 buf = va_arg (args, char *); 591 message = va_arg (args, char *);
638 if (buf != 0) 592 va_arg (args, int); // fix yourself
639 strncpy (context.message, buf, sizeof (context.message)); 593 extension = va_arg (args, char *);
640 594 options = va_arg (args, char *);
641 context.fix = va_arg (args, int);
642 strncpy (context.extension, va_arg (args, char *), sizeof (context.extension));
643 strncpy (context.options, va_arg (args, char *), sizeof (context.options));
644 context.event = va_arg (args, object *); 595 event = va_arg (args, object *);
645 va_end (args); 596 va_end (args);
646 597
647 context.returnvalue = 0; 598 {
599 dSP;
648 600
649 inject_event ("cf::inject_event", &context); 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 }
650 663
651 rv = context.returnvalue;
652 return &rv; 664 return &rv;
653} 665}
654 666
655int 667int
656closePlugin () 668closePlugin ()
… …
1511{ 1523{
1512 int unused_type; 1524 int unused_type;
1513 RETVAL = (object *)object_insert (&unused_type, ob, 0, where, orig, flag, x, y); 1525 RETVAL = (object *)object_insert (&unused_type, ob, 0, where, orig, flag, x, y);
1514} 1526}
1515 1527
1528# syntatic sugar for easier use in event callbacks.
1529const char *options (object *op)
1530 CODE:
1531 RETVAL = op->name;
1532 OUTPUT:
1533 RETVAL
1534
1516const char *get_ob_key_value (object *op, const char *key) 1535const char *get_ob_key_value (object *op, const char *key)
1517 1536
1518bool set_ob_key_value (object *op, const char *key, const char *value = 0, int add_key = 1) 1537bool set_ob_key_value (object *op, const char *key, const char *value = 0, int add_key = 1)
1519 1538
1520object *get_nearest_player (object *ob) 1539object *get_nearest_player (object *ob)

Diff Legend

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