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.39 by root, Tue Mar 21 02:08:02 2006 UTC vs.
Revision 1.43 by root, Fri Mar 31 19:47:55 2006 UTC

… …
77} CFPContext; 77} CFPContext;
78 78
79static HV *obj_cache; 79static HV *obj_cache;
80static PerlInterpreter *perl; 80static PerlInterpreter *perl;
81 81
82#define PUSHcfapi(type,ctype) PUSHs (sv_2mortal (newSVcfapi ((type), va_arg (args, ctype))))
83#define PUSH_OB PUSHcfapi(CFAPI_POBJECT, object *)
84#define PUSH_PL PUSHcfapi(CFAPI_PPLAYER, player *)
85#define PUSH_MAP PUSHcfapi(CFAPI_PMAP, mapstruct *)
86#define PUSH_PV PUSHcfapi(CFAPI_STRING, const char *)
87#define PUSH_IV PUSHcfapi(CFAPI_INT, int)
88
82////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////// 89//////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
83 90
84// garbage collect some perl objects, if possible 91// garbage collect some perl objects, if possible
85// all objects no longer referenced and empty are 92// all objects no longer referenced and empty are
86// eligible for destruction. 93// eligible for destruction.
… …
296 ENTER; 303 ENTER;
297 SAVETMPS; 304 SAVETMPS;
298 305
299 PUSHMARK (SP); 306 PUSHMARK (SP);
300 307
308 EXTEND (SP, 10);
309
301 HV *hv = newHV (); 310 HV *hv = newHV ();
302#define hv_context(type,addr,expr) hv_store (hv, #expr, sizeof (#expr) - 1, newSVcfapi (type, addr context->expr), 0) 311#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); 312 hv_context (CFAPI_POBJECT, ,who);
304 hv_context (CFAPI_POBJECT, ,activator); 313 hv_context (CFAPI_POBJECT, ,activator);
305 hv_context (CFAPI_POBJECT, ,third); 314 hv_context (CFAPI_POBJECT, ,third);
… …
308 hv_context (CFAPI_INT ,&,fix); 317 hv_context (CFAPI_INT ,&,fix);
309 hv_context (CFAPI_INT ,&,event_code); 318 hv_context (CFAPI_INT ,&,event_code);
310 hv_context (CFAPI_STRING , ,options); 319 hv_context (CFAPI_STRING , ,options);
311 hv_context (CFAPI_STRING , ,extension); 320 hv_context (CFAPI_STRING , ,extension);
312 321
313 XPUSHs (sv_2mortal (newRV_noinc ((SV *)hv))); 322 PUSHs (sv_2mortal (newRV_noinc ((SV *)hv)));
314 323
315 PUTBACK; 324 PUTBACK;
316 int count = call_pv (func, G_SCALAR | G_EVAL); 325 int count = call_pv (func, G_SCALAR | G_EVAL);
317 SPAGAIN; 326 SPAGAIN;
318 327
… …
494 503
495void * 504void *
496globalEventListener (int *type, ...) 505globalEventListener (int *type, ...)
497{ 506{
498 va_list args; 507 va_list args;
499 static int rv = 0; 508 static int rv;
500 CFPContext context; 509 int event_code;
501 char *buf;
502 player *pl;
503 object *op;
504 510
505 if (!perl) 511 if (!perl)
506 return; 512 return;
507 513
508 memset (&context, 0, sizeof (context));
509
510 va_start (args, type); 514 va_start (args, type);
511 context.event_code = va_arg (args, int); 515 event_code = va_arg (args, int);
512 516
513 switch (context.event_code) 517 if (event_code == EVENT_FREE_OB)
514 { 518 {
515 case EVENT_CRASH: 519 player *pl;
516 printf ("Unimplemented for now\n"); 520 object *op;
517 break; 521 SV *sv;
518 522
519 case EVENT_PLAYER_LOAD:
520 case EVENT_PLAYER_SAVE:
521 context.who = va_arg (args, object *); 523 op = va_arg (args, object *);
522 buf = va_arg (args, char *);
523 if (buf != 0)
524 strncpy (context.message, buf, sizeof (context.message));
525 break;
526
527 case EVENT_MAPLOAD:
528 case EVENT_MAPOUT:
529 case EVENT_MAPIN:
530 case EVENT_MAPCLEAN:
531 context.map = va_arg (args, mapstruct *);
532 break;
533
534 case EVENT_MAPENTER:
535 case EVENT_MAPLEAVE:
536 case EVENT_FREE_OB:
537 case EVENT_BORN:
538 case EVENT_REMOVE:
539 context.activator = va_arg (args, object *);
540 break;
541
542 case EVENT_PLAYER_DEATH:
543 context.who = va_arg (args, object *);
544 break;
545
546 case EVENT_GKILL:
547 context.who = va_arg (args, object *);
548 context.activator = va_arg (args, object *);
549 break;
550
551 case EVENT_LOGIN:
552 case EVENT_LOGOUT:
553 pl = va_arg (args, player *);
554 context.activator = pl->ob;
555 buf = va_arg (args, char *);
556 if (buf != 0)
557 strncpy (context.message, buf, sizeof (context.message));
558 break;
559
560 case EVENT_SHOUT:
561 case EVENT_MUZZLE:
562 case EVENT_KICK:
563 context.activator = va_arg (args, object *);
564 buf = va_arg (args, char *);
565 if (buf != 0)
566 strncpy (context.message, buf, sizeof (context.message));
567 break;
568
569 case EVENT_CLOCK:
570 clean_obj_cache ();
571 break;
572
573 case EVENT_TELL:
574 break;
575
576 case EVENT_MAPRESET:
577 /* stupid, should be the map itself, not "message"??? */
578 buf = va_arg (args, char *);
579 if (buf != 0)
580 strncpy (context.message, buf, sizeof (context.message));
581 break;
582 }
583
584 va_end (args);
585
586 if (context.event_code == EVENT_FREE_OB)
587 {
588 SV *sv = hv_delete (obj_cache, (char *)&context.activator, sizeof (void *), 0); 524 sv = hv_delete (obj_cache, (char *)&op, sizeof (void *), 0);
589 525
590 if (sv) 526 if (sv)
591 clearSVptr (sv); 527 clearSVptr (sv);
528
529 rv = 0;
592 } 530 }
593 else 531 else
594 inject_event ("cf::inject_global_event", &context); 532 {
595 533 dSP;
596 rv = context.returnvalue; 534
535 ENTER;
536 SAVETMPS;
537
538 PUSHMARK (SP);
539
540 EXTEND (SP, 10);
541 PUSHs (sv_2mortal (newSViv (event_code)));
542
543 switch (event_code)
544 {
545 case EVENT_CRASH:
546 break;
547
548 case EVENT_PLAYER_LOAD:
549 case EVENT_PLAYER_SAVE:
550 PUSH_OB;
551 PUSH_PV;
552 break;
553
554 case EVENT_MAPLOAD:
555 case EVENT_MAPOUT:
556 case EVENT_MAPIN:
557 case EVENT_MAPCLEAN:
558 case EVENT_MAPRESET:
559 PUSH_MAP;
560 break;
561
562 case EVENT_MAPENTER:
563 case EVENT_MAPLEAVE:
564 case EVENT_BORN:
565 case EVENT_REMOVE:
566 case EVENT_PLAYER_DEATH:
567 PUSH_OB;
568 break;
569
570 case EVENT_GKILL:
571 PUSH_OB;
572 PUSH_OB;
573 break;
574
575 case EVENT_LOGIN:
576 case EVENT_LOGOUT:
577 PUSH_PL;
578 PUSH_PV;
579 break;
580
581 case EVENT_SHOUT:
582 case EVENT_MUZZLE:
583 case EVENT_KICK:
584 PUSH_OB;
585 PUSH_PV;
586 break;
587
588 case EVENT_CLOCK:
589 clean_obj_cache ();
590 break;
591
592 case EVENT_TELL:
593 break;
594 }
595
596 va_end (args);
597
598 PUTBACK;
599 int count = call_pv ("cf::inject_global_event", G_SCALAR | G_EVAL);
600 SPAGAIN;
601
602 if (SvTRUE (ERRSV))
603 LOG (llevError, "event '%d' callback evaluation error: %s", event_code, SvPV_nolen (ERRSV));
604
605 rv = count > 0 ? POPi : 0;
606
607 PUTBACK;
608 FREETMPS;
609 LEAVE;
610 }
597 611
598 return &rv; 612 return &rv;
599} 613}
600 614
601void * 615void *
… …
603{ 617{
604 static int rv = 0; 618 static int rv = 0;
605 va_list args; 619 va_list args;
606 char *buf; 620 char *buf;
607 CFPContext context; 621 CFPContext context;
622 object *eob;
608 623
609 if (!perl) 624 if (!perl)
610 return; 625 return;
611 626
612 memset (&context, 0, sizeof (context)); 627 memset (&context, 0, sizeof (context));
… …
623 strncpy (context.message, buf, sizeof (context.message)); 638 strncpy (context.message, buf, sizeof (context.message));
624 639
625 context.fix = va_arg (args, int); 640 context.fix = va_arg (args, int);
626 strncpy (context.extension, va_arg (args, char *), sizeof (context.extension)); 641 strncpy (context.extension, va_arg (args, char *), sizeof (context.extension));
627 strncpy (context.options, va_arg (args, char *), sizeof (context.options)); 642 strncpy (context.options, va_arg (args, char *), sizeof (context.options));
643 eob = va_arg (args, object *);
628 context.returnvalue = 0; 644 context.returnvalue = 0;
629 va_end (args); 645 va_end (args);
630 646
631 inject_event ("cf::inject_event", &context); 647 inject_event ("cf::inject_event", &context);
632 648
… …
1493{ 1509{
1494 int unused_type; 1510 int unused_type;
1495 RETVAL = (object *)object_insert (&unused_type, ob, 0, where, orig, flag, x, y); 1511 RETVAL = (object *)object_insert (&unused_type, ob, 0, where, orig, flag, x, y);
1496} 1512}
1497 1513
1514const char *get_ob_key_value (object *op, const char *key)
1515
1516bool set_ob_key_value (object *op, const char *key, const char *value = 0, int add_key = 1)
1517
1498object *get_nearest_player (object *ob) 1518object *get_nearest_player (object *ob)
1499 ALIAS: nearest_player = 0 1519 ALIAS: nearest_player = 0
1500 PREINIT: 1520 PREINIT:
1501 extern object *get_nearest_player (object *); 1521 extern object *get_nearest_player (object *);
1502 1522
… …
1613{ 1633{
1614 player *pl; 1634 player *pl;
1615 for (pl = first_player; pl; pl = pl->next) 1635 for (pl = first_player; pl; pl = pl->next)
1616 XPUSHs (newSVcfapi (CFAPI_PPLAYER, pl)); 1636 XPUSHs (newSVcfapi (CFAPI_PPLAYER, pl));
1617} 1637}
1638
1639bool
1640peaceful (player *pl, bool new_setting = 0)
1641 PROTOTYPE: $;$
1642 CODE:
1643 RETVAL = pl->peaceful;
1644 if (items > 1)
1645 pl->peaceful = new_setting;
1646 OUTPUT:
1647 RETVAL
1618 1648
1619living * 1649living *
1620orig_stats (player *pl) 1650orig_stats (player *pl)
1621 CODE: 1651 CODE:
1622 RETVAL = &pl->orig_stats; 1652 RETVAL = &pl->orig_stats;

Diff Legend

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