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.38 by root, Sat Mar 18 01:32:53 2006 UTC vs.
Revision 1.43 by root, Fri Mar 31 19:47:55 2006 UTC

… …
42#else 42#else
43#define MODULEAPI 43#define MODULEAPI
44#endif 44#endif
45 45
46#include <plugin_common.h> 46#include <plugin_common.h>
47#include <sounds.h>
47 48
48#include <stdarg.h> 49#include <stdarg.h>
49 50
50#include "perlxsi.c" 51#include "perlxsi.c"
51 52
… …
76} CFPContext; 77} CFPContext;
77 78
78static HV *obj_cache; 79static HV *obj_cache;
79static PerlInterpreter *perl; 80static PerlInterpreter *perl;
80 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
81////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////// 89//////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
82 90
83// garbage collect some perl objects, if possible 91// garbage collect some perl objects, if possible
84// all objects no longer referenced and empty are 92// all objects no longer referenced and empty are
85// eligible for destruction. 93// eligible for destruction.
… …
295 ENTER; 303 ENTER;
296 SAVETMPS; 304 SAVETMPS;
297 305
298 PUSHMARK (SP); 306 PUSHMARK (SP);
299 307
308 EXTEND (SP, 10);
309
300 HV *hv = newHV (); 310 HV *hv = newHV ();
301#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)
302 hv_context (CFAPI_POBJECT, ,who); 312 hv_context (CFAPI_POBJECT, ,who);
303 hv_context (CFAPI_POBJECT, ,activator); 313 hv_context (CFAPI_POBJECT, ,activator);
304 hv_context (CFAPI_POBJECT, ,third); 314 hv_context (CFAPI_POBJECT, ,third);
… …
307 hv_context (CFAPI_INT ,&,fix); 317 hv_context (CFAPI_INT ,&,fix);
308 hv_context (CFAPI_INT ,&,event_code); 318 hv_context (CFAPI_INT ,&,event_code);
309 hv_context (CFAPI_STRING , ,options); 319 hv_context (CFAPI_STRING , ,options);
310 hv_context (CFAPI_STRING , ,extension); 320 hv_context (CFAPI_STRING , ,extension);
311 321
312 XPUSHs (sv_2mortal (newRV_noinc ((SV *)hv))); 322 PUSHs (sv_2mortal (newRV_noinc ((SV *)hv)));
313 323
314 PUTBACK; 324 PUTBACK;
315 int count = call_pv (func, G_SCALAR | G_EVAL); 325 int count = call_pv (func, G_SCALAR | G_EVAL);
316 SPAGAIN; 326 SPAGAIN;
317 327
… …
493 503
494void * 504void *
495globalEventListener (int *type, ...) 505globalEventListener (int *type, ...)
496{ 506{
497 va_list args; 507 va_list args;
498 static int rv = 0; 508 static int rv;
499 CFPContext context; 509 int event_code;
500 char *buf;
501 player *pl;
502 object *op;
503 510
504 if (!perl) 511 if (!perl)
505 return; 512 return;
506 513
507 memset (&context, 0, sizeof (context));
508
509 va_start (args, type); 514 va_start (args, type);
510 context.event_code = va_arg (args, int); 515 event_code = va_arg (args, int);
511 516
512 switch (context.event_code) 517 if (event_code == EVENT_FREE_OB)
513 { 518 {
514 case EVENT_CRASH: 519 player *pl;
515 printf ("Unimplemented for now\n"); 520 object *op;
516 break; 521 SV *sv;
517 522
518 case EVENT_PLAYER_LOAD:
519 case EVENT_PLAYER_SAVE:
520 context.who = va_arg (args, object *); 523 op = va_arg (args, object *);
521 buf = va_arg (args, char *);
522 if (buf != 0)
523 strncpy (context.message, buf, sizeof (context.message));
524 break;
525
526 case EVENT_MAPLOAD:
527 case EVENT_MAPOUT:
528 case EVENT_MAPIN:
529 case EVENT_MAPCLEAN:
530 context.map = va_arg (args, mapstruct *);
531 break;
532
533 case EVENT_MAPENTER:
534 case EVENT_MAPLEAVE:
535 case EVENT_FREE_OB:
536 case EVENT_BORN:
537 case EVENT_REMOVE:
538 context.activator = va_arg (args, object *);
539 break;
540
541 case EVENT_PLAYER_DEATH:
542 context.who = va_arg (args, object *);
543 break;
544
545 case EVENT_GKILL:
546 context.who = va_arg (args, object *);
547 context.activator = va_arg (args, object *);
548 break;
549
550 case EVENT_LOGIN:
551 case EVENT_LOGOUT:
552 pl = va_arg (args, player *);
553 context.activator = pl->ob;
554 buf = va_arg (args, char *);
555 if (buf != 0)
556 strncpy (context.message, buf, sizeof (context.message));
557 break;
558
559 case EVENT_SHOUT:
560 case EVENT_MUZZLE:
561 case EVENT_KICK:
562 context.activator = va_arg (args, object *);
563 buf = va_arg (args, char *);
564 if (buf != 0)
565 strncpy (context.message, buf, sizeof (context.message));
566 break;
567
568 case EVENT_CLOCK:
569 clean_obj_cache ();
570 break;
571
572 case EVENT_TELL:
573 break;
574
575 case EVENT_MAPRESET:
576 /* stupid, should be the map itself, not "message"??? */
577 buf = va_arg (args, char *);
578 if (buf != 0)
579 strncpy (context.message, buf, sizeof (context.message));
580 break;
581 }
582
583 va_end (args);
584
585 if (context.event_code == EVENT_FREE_OB)
586 {
587 SV *sv = hv_delete (obj_cache, (char *)&context.activator, sizeof (void *), 0); 524 sv = hv_delete (obj_cache, (char *)&op, sizeof (void *), 0);
588 525
589 if (sv) 526 if (sv)
590 clearSVptr (sv); 527 clearSVptr (sv);
528
529 rv = 0;
591 } 530 }
592 else 531 else
593 inject_event ("cf::inject_global_event", &context); 532 {
594 533 dSP;
595 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 }
596 611
597 return &rv; 612 return &rv;
598} 613}
599 614
600void * 615void *
… …
602{ 617{
603 static int rv = 0; 618 static int rv = 0;
604 va_list args; 619 va_list args;
605 char *buf; 620 char *buf;
606 CFPContext context; 621 CFPContext context;
622 object *eob;
607 623
608 if (!perl) 624 if (!perl)
609 return; 625 return;
610 626
611 memset (&context, 0, sizeof (context)); 627 memset (&context, 0, sizeof (context));
… …
622 strncpy (context.message, buf, sizeof (context.message)); 638 strncpy (context.message, buf, sizeof (context.message));
623 639
624 context.fix = va_arg (args, int); 640 context.fix = va_arg (args, int);
625 strncpy (context.extension, va_arg (args, char *), sizeof (context.extension)); 641 strncpy (context.extension, va_arg (args, char *), sizeof (context.extension));
626 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 *);
627 context.returnvalue = 0; 644 context.returnvalue = 0;
628 va_end (args); 645 va_end (args);
629 646
630 inject_event ("cf::inject_event", &context); 647 inject_event ("cf::inject_event", &context);
631 648
… …
1057 const_iv (SK_SUMMONING) 1074 const_iv (SK_SUMMONING)
1058 const_iv (SK_PYROMANCY) 1075 const_iv (SK_PYROMANCY)
1059 const_iv (SK_EVOCATION) 1076 const_iv (SK_EVOCATION)
1060 const_iv (SK_SORCERY) 1077 const_iv (SK_SORCERY)
1061 const_iv (SK_TWO_HANDED_WEAPON) 1078 const_iv (SK_TWO_HANDED_WEAPON)
1079
1080 const_iv (SOUND_NEW_PLAYER)
1081 const_iv (SOUND_FIRE_ARROW)
1082 const_iv (SOUND_LEARN_SPELL)
1083 const_iv (SOUND_FUMBLE_SPELL)
1084 const_iv (SOUND_WAND_POOF)
1085 const_iv (SOUND_OPEN_DOOR)
1086 const_iv (SOUND_PUSH_PLAYER)
1087 const_iv (SOUND_PLAYER_HITS1)
1088 const_iv (SOUND_PLAYER_HITS2)
1089 const_iv (SOUND_PLAYER_HITS3)
1090 const_iv (SOUND_PLAYER_HITS4)
1091 const_iv (SOUND_PLAYER_IS_HIT1)
1092 const_iv (SOUND_PLAYER_IS_HIT2)
1093 const_iv (SOUND_PLAYER_IS_HIT3)
1094 const_iv (SOUND_PLAYER_KILLS)
1095 const_iv (SOUND_PET_IS_KILLED)
1096 const_iv (SOUND_PLAYER_DIES)
1097 const_iv (SOUND_OB_EVAPORATE)
1098 const_iv (SOUND_OB_EXPLODE)
1099 const_iv (SOUND_CLOCK)
1100 const_iv (SOUND_TURN_HANDLE)
1101 const_iv (SOUND_FALL_HOLE)
1102 const_iv (SOUND_DRINK_POISON)
1103 const_iv (SOUND_CAST_SPELL_0)
1062 }; 1104 };
1063 1105
1064 for (civ = const_iv + sizeof (const_iv) / sizeof (const_iv [0]); civ-- > const_iv; ) 1106 for (civ = const_iv + sizeof (const_iv) / sizeof (const_iv [0]); civ-- > const_iv; )
1065 newCONSTSUB (stash, (char *)civ->name, newSViv (civ->iv)); 1107 newCONSTSUB (stash, (char *)civ->name, newSViv (civ->iv));
1066 1108
… …
1437 1479
1438void cf_object_set_key (object *op, char *keyname, char *value) 1480void cf_object_set_key (object *op, char *keyname, char *value)
1439 1481
1440object *cf_create_object_by_name (const char *name) 1482object *cf_create_object_by_name (const char *name)
1441 1483
1484void change_exp (object *op, double exp, const char *skill_name = 0, int flag = 0)
1485
1486void player_lvl_adj (object *who, object *skill = 0)
1487
1488
1442MODULE = cf PACKAGE = cf::object PREFIX = cf_ 1489MODULE = cf PACKAGE = cf::object PREFIX = cf_
1443 1490
1444void cf_fix_object (object *pl) 1491void cf_fix_object (object *pl)
1445 ALIAS: fix = 0 1492 ALIAS: fix = 0
1446 1493
… …
1461 CODE: 1508 CODE:
1462{ 1509{
1463 int unused_type; 1510 int unused_type;
1464 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);
1465} 1512}
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)
1466 1517
1467object *get_nearest_player (object *ob) 1518object *get_nearest_player (object *ob)
1468 ALIAS: nearest_player = 0 1519 ALIAS: nearest_player = 0
1469 PREINIT: 1520 PREINIT:
1470 extern object *get_nearest_player (object *); 1521 extern object *get_nearest_player (object *);
… …
1530 1581
1531void cf_player_set_party (object *op, partylist *party) 1582void cf_player_set_party (object *op, partylist *party)
1532 1583
1533void change_skill (object *op, double exp, char *skill_name = 0, int flag = 0) 1584void change_skill (object *op, double exp, char *skill_name = 0, int flag = 0)
1534 1585
1535
1536MODULE = cf PACKAGE = cf::object::map PREFIX = cf_ 1586MODULE = cf PACKAGE = cf::object::map PREFIX = cf_
1537 1587
1538MODULE = cf PACKAGE = cf::player PREFIX = cf_player_ 1588MODULE = cf PACKAGE = cf::player PREFIX = cf_player_
1539 1589
1540player *cf_player_find (char *name) 1590player *cf_player_find (char *name)
1541 PROTOTYPE: $ 1591 PROTOTYPE: $
1542 1592
1543void cf_player_move (player *pl, int dir) 1593void cf_player_move (player *pl, int dir)
1544 1594
1545void MapNewmapCmd (player *pl) 1595void MapNewmapCmd (player *pl)
1596
1597void play_sound_player_only (player *pl, int soundnum, int x = 0, int y = 0);
1546 1598
1547# nonstandard 1599# nonstandard
1548object *ob (player *pl) 1600object *ob (player *pl)
1549 CODE: 1601 CODE:
1550 RETVAL = pl->ob; 1602 RETVAL = pl->ob;
… …
1582 player *pl; 1634 player *pl;
1583 for (pl = first_player; pl; pl = pl->next) 1635 for (pl = first_player; pl; pl = pl->next)
1584 XPUSHs (newSVcfapi (CFAPI_PPLAYER, pl)); 1636 XPUSHs (newSVcfapi (CFAPI_PPLAYER, pl));
1585} 1637}
1586 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
1648
1587living * 1649living *
1588orig_stats (player *pl) 1650orig_stats (player *pl)
1589 CODE: 1651 CODE:
1590 RETVAL = &pl->orig_stats; 1652 RETVAL = &pl->orig_stats;
1591 OUTPUT: RETVAL 1653 OUTPUT: RETVAL
… …
1624 int unused_type; 1686 int unused_type;
1625 RETVAL = map_get_map (&unused_type, 0, width, height); 1687 RETVAL = map_get_map (&unused_type, 0, width, height);
1626} 1688}
1627 OUTPUT: 1689 OUTPUT:
1628 RETVAL 1690 RETVAL
1691
1692void delete_map (mapstruct *map)
1693
1694void clean_tmp_map (mapstruct *map)
1695
1696void play_sound_map (mapstruct *map, int x, int y, int sound_num)
1629 1697
1630mapstruct *cf_map_get_map (char *name) 1698mapstruct *cf_map_get_map (char *name)
1631 PROTOTYPE: $ 1699 PROTOTYPE: $
1632 ALIAS: map = 0 1700 ALIAS: map = 0
1633 1701

Diff Legend

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