ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/deliantra/server/server/cfperl.xs
(Generate patch)

Comparing deliantra/server/server/cfperl.xs (file contents):
Revision 1.133 by root, Mon Jan 8 23:36:16 2007 UTC vs.
Revision 1.134 by root, Tue Jan 9 21:32:42 2007 UTC

… …
818} 818}
819 819
820///////////////////////////////////////////////////////////////////////////// 820/////////////////////////////////////////////////////////////////////////////
821 821
822void 822void
823maptile::emergency_save () 823cfperl_emergency_save ()
824{ 824{
825 CALL_BEGIN (0); 825 CALL_BEGIN (0);
826 CALL_CALL ("cf::map::emergency_save", G_VOID); 826 CALL_CALL ("cf::emergency_save", G_VOID);
827 CALL_END; 827 CALL_END;
828} 828}
829 829
830maptile * 830maptile *
831maptile::find_sync (const char *path, maptile *origin) 831maptile::find_sync (const char *path, maptile *origin)
… …
1604 } 1604 }
1605 OUTPUT: RETVAL 1605 OUTPUT: RETVAL
1606 1606
1607void abort () 1607void abort ()
1608 1608
1609void cleanup (const char *cause, bool make_core = false)
1610
1609void emergency_save () 1611void emergency_save ()
1610 1612
1611void _exit (int status = 0) 1613void _exit (int status = 0)
1612 1614
1613#if _POSIX_MEMLOCK 1615#if _POSIX_MEMLOCK
… …
1703 PPCODE: 1705 PPCODE:
1704 EXTEND (SP, object::mortals.size ()); 1706 EXTEND (SP, object::mortals.size ());
1705 for (AUTODECL (i, object::mortals.begin ()); i != object::mortals.end (); ++i) 1707 for (AUTODECL (i, object::mortals.begin ()); i != object::mortals.end (); ++i)
1706 PUSHs (to_sv (*i)); 1708 PUSHs (to_sv (*i));
1707 1709
1708object *first () 1710int objects_size ()
1709 CODE: 1711 CODE:
1710 RETVAL = object::first; 1712 RETVAL = objects.size ();
1713 OUTPUT: RETVAL
1714
1715object *objects (U32 index)
1716 CODE:
1717 RETVAL = index < objects.size () ? objects [index] : 0;
1718 OUTPUT: RETVAL
1719
1720int actives_size ()
1721 CODE:
1722 RETVAL = actives.size ();
1723 OUTPUT: RETVAL
1724
1725object *actives (U32 index)
1726 CODE:
1727 RETVAL = index < actives.size () ? actives [index] : 0;
1711 OUTPUT: RETVAL 1728 OUTPUT: RETVAL
1712 1729
1713# missing properties 1730# missing properties
1714 1731
1715object *head (object *op) 1732object *head (object *op)
1716 PROTOTYPE: $ 1733 PROTOTYPE: $
1717 CODE: 1734 CODE:
1718 RETVAL = op->head ? op->head : op; 1735 RETVAL = op->head_ ();
1719 OUTPUT: RETVAL 1736 OUTPUT: RETVAL
1720 1737
1721int is_head (object *op) 1738int is_head (object *op)
1722 PROTOTYPE: $ 1739 PROTOTYPE: $
1723 CODE: 1740 CODE:
1724 RETVAL = !op->head; 1741 RETVAL = op->head_ () == op;
1725 OUTPUT: RETVAL 1742 OUTPUT: RETVAL
1726 1743
1727void 1744void
1728inv (object *obj) 1745inv (object *obj)
1729 PROTOTYPE: $ 1746 PROTOTYPE: $

Diff Legend

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