[ViewVC] Diff of: cvs/deliantra/server/server/cfperl.xs

Comparing deliantra/server/server/cfperl.xs (file contents):
Revision 1.129 by root, Sun Jan 7 21:54:59 2007 UTC vs.
Revision 1.131 by root, Mon Jan 8 18:18:35 2007 UTC

 attachable::~attachable ()
 {
   assert (!(flags & F_BORROWED));
 }
+int
+attachable::refcnt_cnt () const
+{
+  return refcnt + (self ? SvREFCNT (self) : 0);
+}
+void
-void attachable::optimise ()
+attachable::optimise ()
 {
   if (self
       && SvREFCNT (self) == 1
       && !HvTOTALKEYS (self))
     {
   flags |= F_DESTROYED;
   do_destroy ();
 }
+void
-void attachable::check_mortals ()
+attachable::check_mortals ()
 {
   for (int i = 0; i < mortals.size (); )
     {
       attachable *obj = mortals [i];
 list ()
 	PPCODE:
         for_all_players (pl)
           XPUSHs (sv_2mortal (to_sv (pl)));
-bool
-peaceful (player *pl, bool new_setting = 0)
-	PROTOTYPE: $;$
-        CODE:
-        RETVAL = pl->peaceful;
-        if (items > 1)
-          pl->peaceful = new_setting;
-        OUTPUT:
-        RETVAL
-living *
-orig_stats (player *pl)
-	CODE:
-        RETVAL = &pl->orig_stats;
-        OUTPUT: RETVAL
-living *
-last_stats (player *pl)
-	CODE:
-        RETVAL = &pl->last_stats;
-        OUTPUT: RETVAL
 MODULE = cf        PACKAGE = cf::map            PREFIX = cf_map_
 int invoke (maptile *map, int event, ...)
 	CODE:

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