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

Comparing deliantra/server/server/cfperl.xs (file contents):
Revision 1.280 by root, Mon Apr 21 06:35:26 2008 UTC vs.
Revision 1.283 by root, Wed Apr 30 08:29:31 2008 UTC

     const_iv (SYMMETRY_RANDOM)		const_iv (SYMMETRY_NONE)	const_iv (SYMMETRY_X)
     const_iv (SYMMETRY_Y)		const_iv (SYMMETRY_XY)
     const_iv (GT_ENVIRONMENT)		const_iv (GT_INVISIBLE)		const_iv (GT_STARTEQUIP)
-    const_iv (GT_APPLY)			const_iv (GT_ONLY_GOOD)		const_iv (GT_UPDATE_INV)
+    const_iv (GT_APPLY)			const_iv (GT_ONLY_GOOD)		const_iv (GT_MINIMAL)
-    const_iv (GT_MINIMAL)
     const_iv (FT_FACE)			const_iv (FT_MUSIC)		const_iv (FT_SOUND)
     const_iv (FT_RSRC)			const_iv (FT_NUM)
   };
         PUSHs (sv_2mortal (newSVpv ("keepcost", 0))); PUSHs (sv_2mortal (newSViv (mai.keepcost)));
 #endif
         EXTEND (SP, 2*2);
         PUSHs (sv_2mortal (newSVpv ("slice_alloc", 0))); PUSHs (sv_2mortal (newSVuv (slice_alloc)));
         PUSHs (sv_2mortal (newSVpv ("shstr_alloc", 0))); PUSHs (sv_2mortal (newSVuv (shstr_alloc)));
+        PUSHs (sv_2mortal (newSVpv ("objects"    , 0))); PUSHs (sv_2mortal (newSVuv (objects.size () * sizeof (object))));
 }
 int find_animation (utf8_string text)
 	PROTOTYPE: $
 	OUTPUT: RETVAL
 object *actives (U32 index)
 	CODE:
         RETVAL = index < actives.size () ? actives [index] : 0;
+	OUTPUT: RETVAL
+int mortals_size ()
+	CODE:
+        RETVAL = attachable::mortals.size ();
 	OUTPUT: RETVAL
 const char *slot_use_name (U32 slot)
 	ALIAS:
         slot_nonuse_name = 1

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