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.280 by root, Mon Apr 21 06:35:26 2008 UTC vs.
Revision 1.284 by root, Sat May 3 11:14:50 2008 UTC

… …
1432 1432
1433 const_iv (SYMMETRY_RANDOM) const_iv (SYMMETRY_NONE) const_iv (SYMMETRY_X) 1433 const_iv (SYMMETRY_RANDOM) const_iv (SYMMETRY_NONE) const_iv (SYMMETRY_X)
1434 const_iv (SYMMETRY_Y) const_iv (SYMMETRY_XY) 1434 const_iv (SYMMETRY_Y) const_iv (SYMMETRY_XY)
1435 1435
1436 const_iv (GT_ENVIRONMENT) const_iv (GT_INVISIBLE) const_iv (GT_STARTEQUIP) 1436 const_iv (GT_ENVIRONMENT) const_iv (GT_INVISIBLE) const_iv (GT_STARTEQUIP)
1437 const_iv (GT_APPLY) const_iv (GT_ONLY_GOOD) const_iv (GT_UPDATE_INV) 1437 const_iv (GT_APPLY) const_iv (GT_ONLY_GOOD) const_iv (GT_MINIMAL)
1438 const_iv (GT_MINIMAL)
1439 1438
1440 const_iv (FT_FACE) const_iv (FT_MUSIC) const_iv (FT_SOUND) 1439 const_iv (FT_FACE) const_iv (FT_MUSIC) const_iv (FT_SOUND)
1441 const_iv (FT_RSRC) const_iv (FT_NUM) 1440 const_iv (FT_RSRC) const_iv (FT_NUM)
1442 }; 1441 };
1443 1442
… …
1694 PUSHs (sv_2mortal (newSVpv ("keepcost", 0))); PUSHs (sv_2mortal (newSViv (mai.keepcost))); 1693 PUSHs (sv_2mortal (newSVpv ("keepcost", 0))); PUSHs (sv_2mortal (newSViv (mai.keepcost)));
1695#endif 1694#endif
1696 EXTEND (SP, 2*2); 1695 EXTEND (SP, 2*2);
1697 PUSHs (sv_2mortal (newSVpv ("slice_alloc", 0))); PUSHs (sv_2mortal (newSVuv (slice_alloc))); 1696 PUSHs (sv_2mortal (newSVpv ("slice_alloc", 0))); PUSHs (sv_2mortal (newSVuv (slice_alloc)));
1698 PUSHs (sv_2mortal (newSVpv ("shstr_alloc", 0))); PUSHs (sv_2mortal (newSVuv (shstr_alloc))); 1697 PUSHs (sv_2mortal (newSVpv ("shstr_alloc", 0))); PUSHs (sv_2mortal (newSVuv (shstr_alloc)));
1698 PUSHs (sv_2mortal (newSVpv ("objects" , 0))); PUSHs (sv_2mortal (newSVuv (objects.size () * sizeof (object))));
1699} 1699}
1700 1700
1701int find_animation (utf8_string text) 1701int find_animation (utf8_string text)
1702 PROTOTYPE: $ 1702 PROTOTYPE: $
1703 1703
… …
1859object *actives (U32 index) 1859object *actives (U32 index)
1860 CODE: 1860 CODE:
1861 RETVAL = index < actives.size () ? actives [index] : 0; 1861 RETVAL = index < actives.size () ? actives [index] : 0;
1862 OUTPUT: RETVAL 1862 OUTPUT: RETVAL
1863 1863
1864int mortals_size ()
1865 CODE:
1866 RETVAL = attachable::mortals.size ();
1867 OUTPUT: RETVAL
1868
1864const char *slot_use_name (U32 slot) 1869const char *slot_use_name (U32 slot)
1865 ALIAS: 1870 ALIAS:
1866 slot_nonuse_name = 1 1871 slot_nonuse_name = 1
1867 CODE: 1872 CODE:
1868{ 1873{
… …
2045 CODE: 2050 CODE:
2046{ 2051{
2047 RETVAL = insert_ob_in_map_at (ob, where, orig, flag, x, y); 2052 RETVAL = insert_ob_in_map_at (ob, where, orig, flag, x, y);
2048} 2053}
2049 2054
2050const_utf8_string get_ob_key_value (object *op, utf8_string key) 2055shstr
2056object::kv_get (shstr key)
2051 2057
2052bool set_ob_key_value (object *op, utf8_string key, utf8_string value = 0, int add_key = 1) 2058void
2059object::kv_del (shstr key)
2060
2061void
2062object::kv_set (shstr key, shstr value)
2053 2063
2054object *get_nearest_player (object *ob) 2064object *get_nearest_player (object *ob)
2055 ALIAS: nearest_player = 0 2065 ALIAS: nearest_player = 0
2056 PREINIT: 2066 PREINIT:
2057 extern object *get_nearest_player (object *); 2067 extern object *get_nearest_player (object *);

Diff Legend

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