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.272 by root, Wed Apr 2 11:13:56 2008 UTC vs.
Revision 1.285 by root, Sun May 4 08:25:33 2008 UTC

… …
45 45
46#if HAVE_MALLOC_H 46#if HAVE_MALLOC_H
47# include <malloc.h> 47# include <malloc.h>
48#endif 48#endif
49 49
50#if !__GLIBC__
51# define malloc_trim(pad) -1
52#endif
53
50#include <EXTERN.h> 54#include <EXTERN.h>
51#include <perl.h> 55#include <perl.h>
52#include <XSUB.h> 56#include <XSUB.h>
53 57
54#include "CoroAPI.h" 58#include "CoroAPI.h"
… …
58 62
59typedef object_thawer &object_thawer_ref; 63typedef object_thawer &object_thawer_ref;
60typedef object_freezer &object_freezer_ref; 64typedef object_freezer &object_freezer_ref;
61 65
62typedef std::string std__string; 66typedef std::string std__string;
63
64#if IVSIZE >= 8
65 typedef IV val64;
66# define newSVval64 newSViv
67# define SvVAL64 SvIV
68#else
69 typedef double val64;
70# define newSVval64 newSVnv
71# define SvVAL64 SvNV
72#endif
73 67
74static PerlInterpreter *perl; 68static PerlInterpreter *perl;
75 69
76tstamp NOW, runtime; 70tstamp NOW, runtime;
77 71
… …
444inline SV *to_sv (living & v) { return to_sv (&v); } 438inline SV *to_sv (living & v) { return to_sv (&v); }
445 439
446inline SV *to_sv (const std::string & v) { return newSVpvn (v.data (), v.size ()); } 440inline SV *to_sv (const std::string & v) { return newSVpvn (v.data (), v.size ()); }
447inline SV *to_sv (const treasurelist *v) { return to_sv (v->name); } 441inline SV *to_sv (const treasurelist *v) { return to_sv (v->name); }
448 442
449inline SV *to_sv (UUID v) 443inline SV *to_sv (UUID v) { return newSVpv (v.c_str (), 0); }
450{
451 char buf[128];
452 snprintf (buf, 128, "<1.%" PRIx64 ">", v.seq);
453 return newSVpv (buf, 0);
454}
455 444
456inline void sv_to (SV *sv, shstr &v) { v = SvOK (sv) ? SvPVutf8_nolen (sv) : 0; } 445inline void sv_to (SV *sv, shstr &v) { v = SvOK (sv) ? SvPVutf8_nolen (sv) : 0; }
457inline void sv_to (SV *sv, char * &v) { free (v); v = SvOK (sv) ? strdup (SvPV_nolen (sv)) : 0; } 446inline void sv_to (SV *sv, char * &v) { free (v); v = SvOK (sv) ? strdup (SvPV_nolen (sv)) : 0; }
458inline void sv_to (SV *sv, bool &v) { v = SvIV (sv); } 447inline void sv_to (SV *sv, bool &v) { v = SvIV (sv); }
459inline void sv_to (SV *sv, signed char &v) { v = SvIV (sv); } 448inline void sv_to (SV *sv, signed char &v) { v = SvIV (sv); }
… …
501 v.assign (data, len); 490 v.assign (data, len);
502} 491}
503 492
504inline void sv_to (SV *sv, UUID &v) 493inline void sv_to (SV *sv, UUID &v)
505{ 494{
506 unsigned int version; 495 if (!v.parse (SvPV_nolen (sv)))
507
508 if (2 != sscanf (SvPV_nolen (sv), "<%d.%" SCNx64 ">", &version, &v.seq) || 1 != version)
509 croak ("unparsable uuid: %s", SvPV_nolen (sv)); 496 croak ("unparsable uuid: %s", SvPV_nolen (sv));
510} 497}
511 498
512inline void sv_to (SV *sv, object::flags_t::reference v) { v = SvTRUE (sv); } 499inline void sv_to (SV *sv, object::flags_t::reference v) { v = SvTRUE (sv); }
513 500
… …
1419 const_iv (ATNR_PARALYZE) const_iv (ATNR_TURN_UNDEAD) const_iv (ATNR_FEAR) const_iv (ATNR_CANCELLATION) 1406 const_iv (ATNR_PARALYZE) const_iv (ATNR_TURN_UNDEAD) const_iv (ATNR_FEAR) const_iv (ATNR_CANCELLATION)
1420 const_iv (ATNR_DEPLETE) const_iv (ATNR_DEATH) const_iv (ATNR_CHAOS) const_iv (ATNR_COUNTERSPELL) 1407 const_iv (ATNR_DEPLETE) const_iv (ATNR_DEATH) const_iv (ATNR_CHAOS) const_iv (ATNR_COUNTERSPELL)
1421 const_iv (ATNR_GODPOWER) const_iv (ATNR_HOLYWORD) const_iv (ATNR_BLIND) const_iv (ATNR_INTERNAL) 1408 const_iv (ATNR_GODPOWER) const_iv (ATNR_HOLYWORD) const_iv (ATNR_BLIND) const_iv (ATNR_INTERNAL)
1422 const_iv (ATNR_LIFE_STEALING) const_iv (ATNR_DISEASE) 1409 const_iv (ATNR_LIFE_STEALING) const_iv (ATNR_DISEASE)
1423 1410
1424 const_iv (MAP_IN_MEMORY) const_iv (MAP_SWAPPED) const_iv (MAP_LOADING) const_iv (MAP_SAVING) 1411 const_iv (MAP_ACTIVE) const_iv (MAP_SWAPPED) const_iv (MAP_LOADING) const_iv (MAP_SAVING)
1412 const_iv (MAP_INACTIVE)
1425 1413
1426 const_iv (KLASS_ATTACHABLE) const_iv (KLASS_GLOBAL) const_iv (KLASS_OBJECT) 1414 const_iv (KLASS_ATTACHABLE) const_iv (KLASS_GLOBAL) const_iv (KLASS_OBJECT)
1427 const_iv (KLASS_CLIENT) const_iv (KLASS_PLAYER) const_iv (KLASS_MAP) 1415 const_iv (KLASS_CLIENT) const_iv (KLASS_PLAYER) const_iv (KLASS_MAP)
1428 1416
1429 const_iv (VERSION_CS) const_iv (VERSION_SC) 1417 const_iv (VERSION_CS) const_iv (VERSION_SC)
… …
1444 1432
1445 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)
1446 const_iv (SYMMETRY_Y) const_iv (SYMMETRY_XY) 1434 const_iv (SYMMETRY_Y) const_iv (SYMMETRY_XY)
1447 1435
1448 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)
1449 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)
1450 const_iv (GT_MINIMAL)
1451 1438
1452 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)
1453 const_iv (FT_RSRC) const_iv (FT_NUM) 1440 const_iv (FT_RSRC) const_iv (FT_NUM)
1454 }; 1441 };
1455 1442
… …
1534 } 1521 }
1535 1522
1536 SvCUR_set (data_sv, dst - SvPVX (data_sv)); 1523 SvCUR_set (data_sv, dst - SvPVX (data_sv));
1537} 1524}
1538 1525
1539void evthread_start () 1526void evthread_start (int aiofd)
1540 1527
1541void cede_to_tick () 1528void cede_to_tick ()
1542 CODE: 1529 CODE:
1543 coroapi::cede_to_tick (); 1530 coroapi::cede_to_tick ();
1544 1531
… …
1628octet_string path_combine (octet_string base, octet_string path) 1615octet_string path_combine (octet_string base, octet_string path)
1629 PROTOTYPE: $$ 1616 PROTOTYPE: $$
1630 1617
1631octet_string path_combine_and_normalize (octet_string base, octet_string path) 1618octet_string path_combine_and_normalize (octet_string base, octet_string path)
1632 PROTOTYPE: $$ 1619 PROTOTYPE: $$
1633
1634void
1635mallinfo ()
1636 PPCODE:
1637{
1638#if __GLIBC__
1639 struct mallinfo mai = mallinfo ();
1640 EXTEND (SP, 10*2);
1641 PUSHs (sv_2mortal (newSVpv ("arena" , 0))); PUSHs (sv_2mortal (newSViv (mai.arena)));
1642 PUSHs (sv_2mortal (newSVpv ("ordblks" , 0))); PUSHs (sv_2mortal (newSViv (mai.ordblks)));
1643 PUSHs (sv_2mortal (newSVpv ("smblks" , 0))); PUSHs (sv_2mortal (newSViv (mai.smblks)));
1644 PUSHs (sv_2mortal (newSVpv ("hblks" , 0))); PUSHs (sv_2mortal (newSViv (mai.hblks)));
1645 PUSHs (sv_2mortal (newSVpv ("hblkhd" , 0))); PUSHs (sv_2mortal (newSViv (mai.hblkhd)));
1646 PUSHs (sv_2mortal (newSVpv ("usmblks" , 0))); PUSHs (sv_2mortal (newSViv (mai.usmblks)));
1647 PUSHs (sv_2mortal (newSVpv ("fsmblks" , 0))); PUSHs (sv_2mortal (newSViv (mai.fsmblks)));
1648 PUSHs (sv_2mortal (newSVpv ("uordblks", 0))); PUSHs (sv_2mortal (newSViv (mai.uordblks)));
1649 PUSHs (sv_2mortal (newSVpv ("fordblks", 0))); PUSHs (sv_2mortal (newSViv (mai.fordblks)));
1650 PUSHs (sv_2mortal (newSVpv ("keepcost", 0))); PUSHs (sv_2mortal (newSViv (mai.keepcost)));
1651#endif
1652 EXTEND (SP, 2*2);
1653 PUSHs (sv_2mortal (newSVpv ("slice_alloc", 0))); PUSHs (sv_2mortal (newSVuv (slice_alloc)));
1654 PUSHs (sv_2mortal (newSVpv ("shstr_alloc", 0))); PUSHs (sv_2mortal (newSVuv (shstr_alloc)));
1655}
1656 1620
1657void 1621void
1658sub_generation_inc () 1622sub_generation_inc ()
1659 CODE: 1623 CODE:
1660 PL_sub_generation++; 1624 PL_sub_generation++;
… …
1697 1661
1698#if _POSIX_MEMLOCK 1662#if _POSIX_MEMLOCK
1699 1663
1700int mlockall (int flags = MCL_CURRENT | MCL_FUTURE) 1664int mlockall (int flags = MCL_CURRENT | MCL_FUTURE)
1701 INIT: 1665 INIT:
1666#if __GLIBC__
1702 mallopt (M_PERTURB, 0xaa); // bug-workaround for linux glibc+mlockall+calloc 1667 mallopt (M_PERTURB, 0xee); // bug-workaround for linux glibc+mlockall+calloc
1668#endif
1703 1669
1704int munlockall () 1670int munlockall ()
1705 1671
1706#endif 1672#endif
1673
1674int
1675malloc_trim (IV pad = 0)
1676
1677void
1678mallinfo ()
1679 PPCODE:
1680{
1681#if __GLIBC__
1682 struct mallinfo mai = mallinfo ();
1683 EXTEND (SP, 10*2);
1684 PUSHs (sv_2mortal (newSVpv ("arena" , 0))); PUSHs (sv_2mortal (newSViv (mai.arena)));
1685 PUSHs (sv_2mortal (newSVpv ("ordblks" , 0))); PUSHs (sv_2mortal (newSViv (mai.ordblks)));
1686 PUSHs (sv_2mortal (newSVpv ("smblks" , 0))); PUSHs (sv_2mortal (newSViv (mai.smblks)));
1687 PUSHs (sv_2mortal (newSVpv ("hblks" , 0))); PUSHs (sv_2mortal (newSViv (mai.hblks)));
1688 PUSHs (sv_2mortal (newSVpv ("hblkhd" , 0))); PUSHs (sv_2mortal (newSViv (mai.hblkhd)));
1689 PUSHs (sv_2mortal (newSVpv ("usmblks" , 0))); PUSHs (sv_2mortal (newSViv (mai.usmblks)));
1690 PUSHs (sv_2mortal (newSVpv ("fsmblks" , 0))); PUSHs (sv_2mortal (newSViv (mai.fsmblks)));
1691 PUSHs (sv_2mortal (newSVpv ("uordblks", 0))); PUSHs (sv_2mortal (newSViv (mai.uordblks)));
1692 PUSHs (sv_2mortal (newSVpv ("fordblks", 0))); PUSHs (sv_2mortal (newSViv (mai.fordblks)));
1693 PUSHs (sv_2mortal (newSVpv ("keepcost", 0))); PUSHs (sv_2mortal (newSViv (mai.keepcost)));
1694#endif
1695 EXTEND (SP, 2*2);
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)));
1698 PUSHs (sv_2mortal (newSVpv ("objects" , 0))); PUSHs (sv_2mortal (newSVuv (objects.size () * sizeof (object))));
1699}
1707 1700
1708int find_animation (utf8_string text) 1701int find_animation (utf8_string text)
1709 PROTOTYPE: $ 1702 PROTOTYPE: $
1710 1703
1711int random_roll (int min, int max, object *op, int goodbad); 1704int random_roll (int min, int max, object *op, int goodbad);
… …
1749 RETVAL = newSVpv (resist_plus[atnr], 0); 1742 RETVAL = newSVpv (resist_plus[atnr], 0);
1750 else 1743 else
1751 XSRETURN_UNDEF; 1744 XSRETURN_UNDEF;
1752 OUTPUT: RETVAL 1745 OUTPUT: RETVAL
1753 1746
1747UUID
1748uuid_cur ()
1749 CODE:
1750 RETVAL = UUID::cur;
1751 OUTPUT:
1752 RETVAL
1753
1754UUID
1755uuid_gen ()
1756 CODE:
1757 RETVAL = UUID::gen ();
1758 OUTPUT:
1759 RETVAL
1760
1761val64
1762uuid_seq (UUID uuid)
1763 CODE:
1764 RETVAL = uuid.seq;
1765 OUTPUT:
1766 RETVAL
1767
1768UUID
1769uuid_str (val64 seq)
1770 CODE:
1771 RETVAL.seq = seq;
1772 OUTPUT:
1773 RETVAL
1774
1775void
1776coin_names ()
1777 PPCODE:
1778 EXTEND (SP, NUM_COINS);
1779 for (int i = 0; i < NUM_COINS; ++i)
1780 PUSHs (sv_2mortal (newSVpv (coins [i], 0)));
1781
1782void
1783coin_archetypes ()
1784 PPCODE:
1785 EXTEND (SP, NUM_COINS);
1786 for (int i = 0; i < NUM_COINS; ++i)
1787 PUSHs (sv_2mortal (to_sv (archetype::find (coins [i]))));
1788
1754bool 1789bool
1755load_resource_file (octet_string filename) 1790load_resource_file_ (octet_string filename)
1756 1791
1757MODULE = cf PACKAGE = cf::attachable 1792MODULE = cf PACKAGE = cf::attachable
1758 1793
1759int 1794int
1760valid (SV *obj) 1795valid (SV *obj)
… …
1824object *actives (U32 index) 1859object *actives (U32 index)
1825 CODE: 1860 CODE:
1826 RETVAL = index < actives.size () ? actives [index] : 0; 1861 RETVAL = index < actives.size () ? actives [index] : 0;
1827 OUTPUT: RETVAL 1862 OUTPUT: RETVAL
1828 1863
1864int mortals_size ()
1865 CODE:
1866 RETVAL = attachable::mortals.size ();
1867 OUTPUT: RETVAL
1868
1829const char *slot_use_name (U32 slot) 1869const char *slot_use_name (U32 slot)
1830 ALIAS: 1870 ALIAS:
1831 slot_nonuse_name = 1 1871 slot_nonuse_name = 1
1832 CODE: 1872 CODE:
1833{ 1873{
… …
1911void apply_below (object *op) 1951void apply_below (object *op)
1912 CODE: 1952 CODE:
1913 player_apply_below (op); 1953 player_apply_below (op);
1914 1954
1915int cast_heal (object *op, object *caster, object *spell, int dir = 0) 1955int cast_heal (object *op, object *caster, object *spell, int dir = 0)
1916
1917#//TODO
1918object *clone_ (object *op, int recursive = 0)
1919 CODE:
1920 if (recursive)
1921 RETVAL = object_create_clone (op);
1922 else
1923 {
1924 RETVAL = object::create ();
1925 op->copy_to (RETVAL);
1926 }
1927 OUTPUT: RETVAL
1928 1956
1929int pay_item (object *op, object *buyer) 1957int pay_item (object *op, object *buyer)
1930 CODE: 1958 CODE:
1931 RETVAL = pay_for_item (op, buyer); 1959 RETVAL = pay_for_item (op, buyer);
1932 OUTPUT: RETVAL 1960 OUTPUT: RETVAL
… …
2010 CODE: 2038 CODE:
2011{ 2039{
2012 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);
2013} 2041}
2014 2042
2015const_utf8_string get_ob_key_value (object *op, utf8_string key) 2043shstr
2044object::kv_get (shstr key)
2016 2045
2017bool 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)
2018 2051
2019object *get_nearest_player (object *ob) 2052object *get_nearest_player (object *ob)
2020 ALIAS: nearest_player = 0 2053 ALIAS: nearest_player = 0
2021 PREINIT: 2054 PREINIT:
2022 extern object *get_nearest_player (object *); 2055 extern object *get_nearest_player (object *);
… …
2043const_utf8_string 2076const_utf8_string
2044base_name (object *op, int plural = op->nrof > 1) 2077base_name (object *op, int plural = op->nrof > 1)
2045 CODE: 2078 CODE:
2046 RETVAL = query_base_name (op, plural); 2079 RETVAL = query_base_name (op, plural);
2047 OUTPUT: RETVAL 2080 OUTPUT: RETVAL
2048
2049object *decrease_ob_nr (object *op, unsigned long i)
2050 2081
2051# return the tail of an object, excluding itself 2082# return the tail of an object, excluding itself
2052void 2083void
2053tail (object *op) 2084tail (object *op)
2054 PPCODE: 2085 PPCODE:

Diff Legend

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