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

Comparing deliantra/server/server/cfperl.xs (file contents):
Revision 1.55 by root, Tue Sep 12 18:15:34 2006 UTC vs.
Revision 1.57 by root, Thu Sep 14 18:13:02 2006 UTC

           reattach (pl);
         for (mapstruct *map = first_map; map; map = map->next)
           reattach (map);
-        for (object *op = objects; op; op = op->next)
+        for (object *op = object::first; op; op = op->next)
           reattach (op);
 }
 NV floor (NV x)
             case 5: RETVAL = settings.playerdir; break;
             case 6: RETVAL = settings.datadir  ; break;
           }
 	OUTPUT: RETVAL
-int
+void _exit (int status = 0)
-cf_find_animation (char *text)
+int cf_find_animation (char *text)
 	PROTOTYPE: $
 int random_roll(int min, int max, object *op, int goodbad);
 const char *cost_string_from_value(uint64 cost, int approx = 0)
 SV *registry (object *op)
 	CODE:
         RETVAL = registry_of (op);
         OUTPUT:
         RETVAL
+void mortals ()
+	CODE:
+        EXTEND (SP, object::mortals.size ());
+        for (AUTODECL (i, object::mortals.begin ()); i != object::mortals.end (); ++i)
+          PUSHs (to_sv (*i));
+object *first ()
+	CODE:
+        RETVAL = object::first;
+	OUTPUT: RETVAL
 INCLUDE: $PERL genacc object ../include/object.h |
 # missing properties

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