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

Comparing deliantra/server/server/cfperl.xs (file contents):
Revision 1.56 by root, Tue Sep 12 22:18:56 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)
 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