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.32 by root, Tue Mar 7 13:59:57 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);
… …
506 break; 514 break;
507 515
508 case EVENT_MAPLOAD: 516 case EVENT_MAPLOAD:
509 case EVENT_MAPOUT: 517 case EVENT_MAPOUT:
510 case EVENT_MAPIN: 518 case EVENT_MAPIN:
519 case EVENT_MAPCLEAN:
511 context.map = va_arg (args, mapstruct *); 520 context.map = va_arg (args, mapstruct *);
512 break; 521 break;
513 522
514 case EVENT_MAPENTER: 523 case EVENT_MAPENTER:
515 case EVENT_MAPLEAVE: 524 case EVENT_MAPLEAVE:
… …
976 const_iv (WILL_APPLY_HANDLE) 985 const_iv (WILL_APPLY_HANDLE)
977 const_iv (WILL_APPLY_TREASURE) 986 const_iv (WILL_APPLY_TREASURE)
978 const_iv (WILL_APPLY_EARTHWALL) 987 const_iv (WILL_APPLY_EARTHWALL)
979 const_iv (WILL_APPLY_DOOR) 988 const_iv (WILL_APPLY_DOOR)
980 const_iv (WILL_APPLY_FOOD) 989 const_iv (WILL_APPLY_FOOD)
990
991 const_iv (SAVE_MODE)
992 const_iv (SAVE_DIR_MODE)
981 }; 993 };
982 994
983 for (civ = const_iv + sizeof (const_iv) / sizeof (const_iv [0]); civ-- > const_iv; ) 995 for (civ = const_iv + sizeof (const_iv) / sizeof (const_iv [0]); civ-- > const_iv; )
984 newCONSTSUB (stash, (char *)civ->name, newSViv (civ->iv)); 996 newCONSTSUB (stash, (char *)civ->name, newSViv (civ->iv));
985 997
… …
1014 const_event (MAPLEAVE) 1026 const_event (MAPLEAVE)
1015 const_event (MAPRESET) 1027 const_event (MAPRESET)
1016 const_event (MAPLOAD) 1028 const_event (MAPLOAD)
1017 const_event (MAPOUT) 1029 const_event (MAPOUT)
1018 const_event (MAPIN) 1030 const_event (MAPIN)
1031 const_event (MAPCLEAN)
1019 const_event (REMOVE) 1032 const_event (REMOVE)
1020 const_event (SHOUT) 1033 const_event (SHOUT)
1021 const_event (TELL) 1034 const_event (TELL)
1022 const_event (MUZZLE) 1035 const_event (MUZZLE)
1023 const_event (KICK) 1036 const_event (KICK)
… …
1564 case 7: RETVAL = newSVuv ( GET_MAP_MOVE_OFF (obj, x, y)); break; 1577 case 7: RETVAL = newSVuv ( GET_MAP_MOVE_OFF (obj, x, y)); break;
1565 } 1578 }
1566 OUTPUT: 1579 OUTPUT:
1567 RETVAL 1580 RETVAL
1568 1581
1582# "serialise" map perl data into a ref
1569void 1583void
1570_get_obs (mapstruct *map) 1584_get_obs (mapstruct *map)
1571 PPCODE: 1585 PPCODE:
1572{ 1586{
1573 object *o; 1587 object *o;
… …
1580 { 1594 {
1581 AV *av = newAV (); 1595 AV *av = newAV ();
1582 1596
1583 for (o = GET_MAP_OB (map, x, y); o; o = o->above) 1597 for (o = GET_MAP_OB (map, x, y); o; o = o->above)
1584 { 1598 {
1585 SV *sv = SVptr_cached (o); 1599 SV *sv = SVptr_cache_get (o);
1586 1600
1587 if (sv && HvFILL (SvRV (sv))) 1601 if (sv && HvFILL (SvRV (sv)))
1588 { 1602 {
1589 nonnull = 1; 1603 nonnull = 1;
1590 sv = newSVsv (sv); 1604 sv = newSVsv (sv);
… …
1602 XPUSHs (sv_2mortal (newRV_noinc ((SV *)obs))); 1616 XPUSHs (sv_2mortal (newRV_noinc ((SV *)obs)));
1603 else 1617 else
1604 SvREFCNT_dec (obs); 1618 SvREFCNT_dec (obs);
1605} 1619}
1606 1620
1621# "deserialise" perl map data into the map
1622void
1623_set_obs (mapstruct *map, SV *sv)
1624 CODE:
1625{
1626 object *o;
1627 AV *av;
1628 int x, y;
1629 AV *obs = (AV *)SvRV (sv);
1630
1631 for (y = 0; y < MAP_HEIGHT (map); y++)
1632 for (x = 0; x < MAP_WIDTH (map); x++)
1633 {
1634 sv = *av_fetch (obs, x + y * MAP_HEIGHT (map), 1);
1635
1636 if (!SvROK (sv))
1637 continue;
1638
1639 av = (AV *)SvRV (sv);
1640
1641 for (o = GET_MAP_OB (map, x, y); o; o = o->above)
1642 {
1643 sv = av_shift (av);
1644
1645 if (SvROK (sv))
1646 {
1647 sv_magic ((SV *)SvRV (sv), 0, PERL_MAGIC_ext, (char *)o, 0);
1648 SVptr_cache_set (o, sv);
1649 }
1650 }
1651 }
1652}
1653
1607MODULE = cf PACKAGE = cf::arch PREFIX = cf_archetype_ 1654MODULE = cf PACKAGE = cf::arch PREFIX = cf_archetype_
1608 1655
1609archetype *cf_archetype_get_first() 1656archetype *cf_archetype_get_first()
1610 PROTOTYPE: 1657 PROTOTYPE:
1611 ALIAS: first = 0 1658 ALIAS: first = 0

Diff Legend

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