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.281 by root, Tue Apr 22 07:01:47 2008 UTC vs.
Revision 1.285 by root, Sun May 4 08:25:33 2008 UTC

… …
1693 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)));
1694#endif 1694#endif
1695 EXTEND (SP, 2*2); 1695 EXTEND (SP, 2*2);
1696 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)));
1697 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))));
1698} 1699}
1699 1700
1700int find_animation (utf8_string text) 1701int find_animation (utf8_string text)
1701 PROTOTYPE: $ 1702 PROTOTYPE: $
1702 1703
… …
1858object *actives (U32 index) 1859object *actives (U32 index)
1859 CODE: 1860 CODE:
1860 RETVAL = index < actives.size () ? actives [index] : 0; 1861 RETVAL = index < actives.size () ? actives [index] : 0;
1861 OUTPUT: RETVAL 1862 OUTPUT: RETVAL
1862 1863
1864int mortals_size ()
1865 CODE:
1866 RETVAL = attachable::mortals.size ();
1867 OUTPUT: RETVAL
1868
1863const char *slot_use_name (U32 slot) 1869const char *slot_use_name (U32 slot)
1864 ALIAS: 1870 ALIAS:
1865 slot_nonuse_name = 1 1871 slot_nonuse_name = 1
1866 CODE: 1872 CODE:
1867{ 1873{
… …
1945void apply_below (object *op) 1951void apply_below (object *op)
1946 CODE: 1952 CODE:
1947 player_apply_below (op); 1953 player_apply_below (op);
1948 1954
1949int cast_heal (object *op, object *caster, object *spell, int dir = 0) 1955int cast_heal (object *op, object *caster, object *spell, int dir = 0)
1950
1951#//TODO
1952object *clone_ (object *op, int recursive = 0)
1953 CODE:
1954 if (recursive)
1955 RETVAL = object_create_clone (op);
1956 else
1957 {
1958 RETVAL = object::create ();
1959 op->copy_to (RETVAL);
1960 }
1961 OUTPUT: RETVAL
1962 1956
1963int pay_item (object *op, object *buyer) 1957int pay_item (object *op, object *buyer)
1964 CODE: 1958 CODE:
1965 RETVAL = pay_for_item (op, buyer); 1959 RETVAL = pay_for_item (op, buyer);
1966 OUTPUT: RETVAL 1960 OUTPUT: RETVAL
… …
2044 CODE: 2038 CODE:
2045{ 2039{
2046 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);
2047} 2041}
2048 2042
2049const_utf8_string get_ob_key_value (object *op, utf8_string key) 2043shstr
2044object::kv_get (shstr key)
2050 2045
2051bool 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)
2052 2051
2053object *get_nearest_player (object *ob) 2052object *get_nearest_player (object *ob)
2054 ALIAS: nearest_player = 0 2053 ALIAS: nearest_player = 0
2055 PREINIT: 2054 PREINIT:
2056 extern object *get_nearest_player (object *); 2055 extern object *get_nearest_player (object *);

Diff Legend

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