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.285 by root, Sun May 4 08:25:33 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{
… …
1946void apply_below (object *op) 1951void apply_below (object *op)
1947 CODE: 1952 CODE:
1948 player_apply_below (op); 1953 player_apply_below (op);
1949 1954
1950int cast_heal (object *op, object *caster, object *spell, int dir = 0) 1955int cast_heal (object *op, object *caster, object *spell, int dir = 0)
1951
1952#//TODO
1953object *clone_ (object *op, int recursive = 0)
1954 CODE:
1955 if (recursive)
1956 RETVAL = object_create_clone (op);
1957 else
1958 {
1959 RETVAL = object::create ();
1960 op->copy_to (RETVAL);
1961 }
1962 OUTPUT: RETVAL
1963 1956
1964int pay_item (object *op, object *buyer) 1957int pay_item (object *op, object *buyer)
1965 CODE: 1958 CODE:
1966 RETVAL = pay_for_item (op, buyer); 1959 RETVAL = pay_for_item (op, buyer);
1967 OUTPUT: RETVAL 1960 OUTPUT: RETVAL
… …
2045 CODE: 2038 CODE:
2046{ 2039{
2047 RETVAL = insert_ob_in_map_at (ob, where, orig, flag, x, y); 2040 RETVAL = insert_ob_in_map_at (ob, where, orig, flag, x, y);
2048} 2041}
2049 2042
2050const_utf8_string get_ob_key_value (object *op, utf8_string key) 2043shstr
2044object::kv_get (shstr key)
2051 2045
2052bool set_ob_key_value (object *op, utf8_string key, utf8_string value = 0, int add_key = 1) 2046void
2047object::kv_del (shstr key)
2048
2049void
2050object::kv_set (shstr key, shstr value)
2053 2051
2054object *get_nearest_player (object *ob) 2052object *get_nearest_player (object *ob)
2055 ALIAS: nearest_player = 0 2053 ALIAS: nearest_player = 0
2056 PREINIT: 2054 PREINIT:
2057 extern object *get_nearest_player (object *); 2055 extern object *get_nearest_player (object *);

Diff Legend

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