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.28 by root, Mon Mar 6 22:59:26 2006 UTC vs.
Revision 1.33 by root, Thu Mar 16 21:08:20 2006 UTC

… …
126 sv = newSV (0); 126 sv = newSV (0);
127 sv_magic (sv, 0, PERL_MAGIC_ext, (char *)ptr, 0); 127 sv_magic (sv, 0, PERL_MAGIC_ext, (char *)ptr, 0);
128 return sv_bless (newRV_noinc (sv), gv_stashpv (klass, 1)); 128 return sv_bless (newRV_noinc (sv), gv_stashpv (klass, 1));
129} 129}
130 130
131static void
132SVptr_cache_set (void *ptr, SV *sv)
133{
134 hv_store (obj_cache, (char *)&ptr, sizeof (ptr), sv, 0);
135}
136
131static SV * 137static SV *
132SVptr_cached (void *ptr) 138SVptr_cache_get (void *ptr)
133{ 139{
134 SV **he = hv_fetch (obj_cache, (char *)&ptr, sizeof (ptr), 0); 140 SV **he = hv_fetch (obj_cache, (char *)&ptr, sizeof (ptr), 0);
135 141
136 return he ? *he : 0; 142 return he ? *he : 0;
137} 143}
… …
142 SV *sv; 148 SV *sv;
143 149
144 if (!ptr) 150 if (!ptr)
145 return &PL_sv_undef; 151 return &PL_sv_undef;
146 152
147 sv = SVptr_cached (ptr); 153 sv = SVptr_cache_get (ptr);
148 154
149 if (!sv) 155 if (!sv)
150 { 156 {
151 HV *hv = newHV (); 157 HV *hv = newHV ();
152 sv_magic ((SV *)hv, 0, PERL_MAGIC_ext, (char *)ptr, 0); 158 sv_magic ((SV *)hv, 0, PERL_MAGIC_ext, (char *)ptr, 0);
153 sv = sv_bless (newRV_noinc ((SV *)hv), gv_stashpv (klass, 1)); 159 sv = sv_bless (newRV_noinc ((SV *)hv), gv_stashpv (klass, 1));
154 hv_store (obj_cache, (char *)&ptr, sizeof (ptr), sv, 0); 160
161 SVptr_cache_set (ptr, sv);
155 } 162 }
156 163
157 return newSVsv (sv); 164 return newSVsv (sv);
158} 165}
159 166
… …
442 registerGlobalEvent (NULL, EVENT_MAPLEAVE, PLUGIN_NAME, globalEventListener); 449 registerGlobalEvent (NULL, EVENT_MAPLEAVE, PLUGIN_NAME, globalEventListener);
443 registerGlobalEvent (NULL, EVENT_MAPRESET, PLUGIN_NAME, globalEventListener); 450 registerGlobalEvent (NULL, EVENT_MAPRESET, PLUGIN_NAME, globalEventListener);
444 registerGlobalEvent (NULL, EVENT_MAPLOAD, PLUGIN_NAME, globalEventListener); 451 registerGlobalEvent (NULL, EVENT_MAPLOAD, PLUGIN_NAME, globalEventListener);
445 registerGlobalEvent (NULL, EVENT_MAPOUT, PLUGIN_NAME, globalEventListener); 452 registerGlobalEvent (NULL, EVENT_MAPOUT, PLUGIN_NAME, globalEventListener);
446 registerGlobalEvent (NULL, EVENT_MAPIN, PLUGIN_NAME, globalEventListener); 453 registerGlobalEvent (NULL, EVENT_MAPIN, PLUGIN_NAME, globalEventListener);
454 registerGlobalEvent (NULL, EVENT_MAPCLEAN, PLUGIN_NAME, globalEventListener);
447 registerGlobalEvent (NULL, EVENT_REMOVE, PLUGIN_NAME, globalEventListener); 455 registerGlobalEvent (NULL, EVENT_REMOVE, PLUGIN_NAME, globalEventListener);
448 registerGlobalEvent (NULL, EVENT_SHOUT, PLUGIN_NAME, globalEventListener); 456 registerGlobalEvent (NULL, EVENT_SHOUT, PLUGIN_NAME, globalEventListener);
449 registerGlobalEvent (NULL, EVENT_TELL, PLUGIN_NAME, globalEventListener); 457 registerGlobalEvent (NULL, EVENT_TELL, PLUGIN_NAME, globalEventListener);
450 registerGlobalEvent (NULL, EVENT_MUZZLE, PLUGIN_NAME, globalEventListener); 458 registerGlobalEvent (NULL, EVENT_MUZZLE, PLUGIN_NAME, globalEventListener);
451 registerGlobalEvent (NULL, EVENT_KICK, PLUGIN_NAME, globalEventListener); 459 registerGlobalEvent (NULL, EVENT_KICK, PLUGIN_NAME, globalEventListener);
452 registerGlobalEvent (NULL, EVENT_FREE_OB, PLUGIN_NAME, globalEventListener); 460 registerGlobalEvent (NULL, EVENT_FREE_OB, PLUGIN_NAME, globalEventListener);
461 registerGlobalEvent (NULL, EVENT_PLAYER_LOAD, PLUGIN_NAME, globalEventListener);
462 registerGlobalEvent (NULL, EVENT_PLAYER_SAVE, PLUGIN_NAME, globalEventListener);
453 463
454 char *argv[] = { 464 char *argv[] = {
455 "", 465 "",
456 "-e" 466 "-e"
457 "BEGIN {" 467 "BEGIN {"
… …
503 { 513 {
504 case EVENT_CRASH: 514 case EVENT_CRASH:
505 printf ("Unimplemented for now\n"); 515 printf ("Unimplemented for now\n");
506 break; 516 break;
507 517
518 case EVENT_PLAYER_LOAD:
519 case EVENT_PLAYER_SAVE:
520 context.who = 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
508 case EVENT_MAPLOAD: 526 case EVENT_MAPLOAD:
509 case EVENT_MAPOUT: 527 case EVENT_MAPOUT:
510 case EVENT_MAPIN: 528 case EVENT_MAPIN:
529 case EVENT_MAPCLEAN:
511 context.map = va_arg (args, mapstruct *); 530 context.map = va_arg (args, mapstruct *);
512 break; 531 break;
513 532
514 case EVENT_MAPENTER: 533 case EVENT_MAPENTER:
515 case EVENT_MAPLEAVE: 534 case EVENT_MAPLEAVE:
… …
644 const_iv (llevInfo) 663 const_iv (llevInfo)
645 const_iv (llevDebug) 664 const_iv (llevDebug)
646 const_iv (llevMonster) 665 const_iv (llevMonster)
647 666
648 const_iv (PLAYER) 667 const_iv (PLAYER)
668 const_iv (TRANSPORT)
649 const_iv (ROD) 669 const_iv (ROD)
650 const_iv (TREASURE) 670 const_iv (TREASURE)
651 const_iv (POTION) 671 const_iv (POTION)
652 const_iv (FOOD) 672 const_iv (FOOD)
653 const_iv (POISON) 673 const_iv (POISON)
… …
658 const_iv (BOW) 678 const_iv (BOW)
659 const_iv (WEAPON) 679 const_iv (WEAPON)
660 const_iv (ARMOUR) 680 const_iv (ARMOUR)
661 const_iv (PEDESTAL) 681 const_iv (PEDESTAL)
662 const_iv (ALTAR) 682 const_iv (ALTAR)
663 const_iv (CONFUSION)
664 const_iv (LOCKED_DOOR) 683 const_iv (LOCKED_DOOR)
665 const_iv (SPECIAL_KEY) 684 const_iv (SPECIAL_KEY)
666 const_iv (MAP) 685 const_iv (MAP)
667 const_iv (DOOR) 686 const_iv (DOOR)
668 const_iv (KEY) 687 const_iv (KEY)
… …
769 const_iv (ITEM_TRANSFORMER) 788 const_iv (ITEM_TRANSFORMER)
770 const_iv (QUEST) 789 const_iv (QUEST)
771 790
772 const_iv (ST_BD_BUILD) 791 const_iv (ST_BD_BUILD)
773 const_iv (ST_BD_REMOVE) 792 const_iv (ST_BD_REMOVE)
793
774 const_iv (ST_MAT_FLOOR) 794 const_iv (ST_MAT_FLOOR)
775 const_iv (ST_MAT_WALL) 795 const_iv (ST_MAT_WALL)
776 const_iv (ST_MAT_ITEM) 796 const_iv (ST_MAT_ITEM)
777 797
778 const_iv (AT_PHYSICAL) 798 const_iv (AT_PHYSICAL)
… …
976 const_iv (WILL_APPLY_HANDLE) 996 const_iv (WILL_APPLY_HANDLE)
977 const_iv (WILL_APPLY_TREASURE) 997 const_iv (WILL_APPLY_TREASURE)
978 const_iv (WILL_APPLY_EARTHWALL) 998 const_iv (WILL_APPLY_EARTHWALL)
979 const_iv (WILL_APPLY_DOOR) 999 const_iv (WILL_APPLY_DOOR)
980 const_iv (WILL_APPLY_FOOD) 1000 const_iv (WILL_APPLY_FOOD)
1001
1002 const_iv (SAVE_MODE)
1003 const_iv (SAVE_DIR_MODE)
981 }; 1004 };
982 1005
983 for (civ = const_iv + sizeof (const_iv) / sizeof (const_iv [0]); civ-- > const_iv; ) 1006 for (civ = const_iv + sizeof (const_iv) / sizeof (const_iv [0]); civ-- > const_iv; )
984 newCONSTSUB (stash, (char *)civ->name, newSViv (civ->iv)); 1007 newCONSTSUB (stash, (char *)civ->name, newSViv (civ->iv));
985 1008
… …
1005 1028
1006 const_event (BORN) 1029 const_event (BORN)
1007 const_event (CLOCK) 1030 const_event (CLOCK)
1008 const_event (CRASH) 1031 const_event (CRASH)
1009 const_event (PLAYER_DEATH) 1032 const_event (PLAYER_DEATH)
1033 const_event (PLAYER_LOAD)
1034 const_event (PLAYER_SAVE)
1010 const_event (GKILL) 1035 const_event (GKILL)
1011 const_event (LOGIN) 1036 const_event (LOGIN)
1012 const_event (LOGOUT) 1037 const_event (LOGOUT)
1013 const_event (MAPENTER) 1038 const_event (MAPENTER)
1014 const_event (MAPLEAVE) 1039 const_event (MAPLEAVE)
1015 const_event (MAPRESET) 1040 const_event (MAPRESET)
1016 const_event (MAPLOAD) 1041 const_event (MAPLOAD)
1017 const_event (MAPOUT) 1042 const_event (MAPOUT)
1018 const_event (MAPIN) 1043 const_event (MAPIN)
1044 const_event (MAPCLEAN)
1019 const_event (REMOVE) 1045 const_event (REMOVE)
1020 const_event (SHOUT) 1046 const_event (SHOUT)
1021 const_event (TELL) 1047 const_event (TELL)
1022 const_event (MUZZLE) 1048 const_event (MUZZLE)
1023 const_event (KICK) 1049 const_event (KICK)
… …
1564 case 7: RETVAL = newSVuv ( GET_MAP_MOVE_OFF (obj, x, y)); break; 1590 case 7: RETVAL = newSVuv ( GET_MAP_MOVE_OFF (obj, x, y)); break;
1565 } 1591 }
1566 OUTPUT: 1592 OUTPUT:
1567 RETVAL 1593 RETVAL
1568 1594
1595# "serialise" map perl data into a ref
1569void 1596void
1570_get_obs (mapstruct *map) 1597_get_obs (mapstruct *map)
1571 PPCODE: 1598 PPCODE:
1572{ 1599{
1573 object *o; 1600 object *o;
… …
1580 { 1607 {
1581 AV *av = newAV (); 1608 AV *av = newAV ();
1582 1609
1583 for (o = GET_MAP_OB (map, x, y); o; o = o->above) 1610 for (o = GET_MAP_OB (map, x, y); o; o = o->above)
1584 { 1611 {
1585 SV *sv = SVptr_cached (o); 1612 SV *sv = SVptr_cache_get (o);
1586 1613
1587 if (sv && HvFILL (SvRV (sv))) 1614 if (sv && HvFILL (SvRV (sv)))
1588 { 1615 {
1589 nonnull = 1; 1616 nonnull = 1;
1590 sv = newSVsv (sv); 1617 sv = newSVsv (sv);
… …
1602 XPUSHs (sv_2mortal (newRV_noinc ((SV *)obs))); 1629 XPUSHs (sv_2mortal (newRV_noinc ((SV *)obs)));
1603 else 1630 else
1604 SvREFCNT_dec (obs); 1631 SvREFCNT_dec (obs);
1605} 1632}
1606 1633
1634# "deserialise" perl map data into the map
1635void
1636_set_obs (mapstruct *map, SV *sv)
1637 CODE:
1638{
1639 object *o;
1640 AV *av;
1641 int x, y;
1642 AV *obs = (AV *)SvRV (sv);
1643
1644 for (y = 0; y < MAP_HEIGHT (map); y++)
1645 for (x = 0; x < MAP_WIDTH (map); x++)
1646 {
1647 sv = *av_fetch (obs, x + y * MAP_HEIGHT (map), 1);
1648
1649 if (!SvROK (sv))
1650 continue;
1651
1652 av = (AV *)SvRV (sv);
1653
1654 for (o = GET_MAP_OB (map, x, y); o; o = o->above)
1655 {
1656 sv = av_shift (av);
1657
1658 if (SvROK (sv))
1659 {
1660 sv_magic ((SV *)SvRV (sv), 0, PERL_MAGIC_ext, (char *)o, 0);
1661 SVptr_cache_set (o, sv);
1662 }
1663 }
1664 }
1665}
1666
1607MODULE = cf PACKAGE = cf::arch PREFIX = cf_archetype_ 1667MODULE = cf PACKAGE = cf::arch PREFIX = cf_archetype_
1608 1668
1609archetype *cf_archetype_get_first() 1669archetype *cf_archetype_get_first()
1610 PROTOTYPE: 1670 PROTOTYPE:
1611 ALIAS: first = 0 1671 ALIAS: first = 0

Diff Legend

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