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.44 by root, Thu Sep 7 14:32:13 2006 UTC vs.
Revision 1.45 by root, Fri Sep 8 16:51:44 2006 UTC

… …
51 51
52static f_plug_api gethook = cfapi_get_hooks; 52static f_plug_api gethook = cfapi_get_hooks;
53static f_plug_api object_set_property = cfapi_object_set_property; 53static f_plug_api object_set_property = cfapi_object_set_property;
54static f_plug_api object_insert = cfapi_object_insert; 54static f_plug_api object_insert = cfapi_object_insert;
55 55
56/* this is a stupid way to do things, and awkward to use for plug-in authors */
57typedef struct
58{
59 object* who;
60 object* activator;
61 object* third;
62 object* event;
63 mapstruct* map;
64 char message[1024];
65 int fix; // seems to be python-only, and should not be part of the API
66 int event_code;
67 char extension[1024]; // name field, should invoke specific perl extension
68 char options[1024]; // slaying field of event_connectors
69 int returnvalue;
70} CFPContext;
71
72static HV *obj_cache; 56static HV *obj_cache;
73static PerlInterpreter *perl; 57static PerlInterpreter *perl;
74 58
75static AV *cb_global, *cb_object, *cb_player, *cb_type, *cb_map; 59static AV *cb_global, *cb_object, *cb_player, *cb_type, *cb_map;
76 60
… …
176 return SvPTR (sv, klass); 160 return SvPTR (sv, klass);
177 else 161 else
178 return 0; 162 return 0;
179} 163}
180 164
165inline SV *to_sv (const shstr & v) { return v ? newSVpvn ((const char *)v, v.length ()) : &PL_sv_undef; }
166inline SV *to_sv (const char * v) { return newSVpv (v, 0); }
167inline SV *to_sv (bool v) { return newSViv (v); }
168inline SV *to_sv ( signed char v) { return newSViv (v); }
169inline SV *to_sv (unsigned char v) { return newSViv (v); }
170inline SV *to_sv ( signed short v) { return newSViv (v); }
171inline SV *to_sv (unsigned short v) { return newSVuv (v); }
172inline SV *to_sv ( signed int v) { return newSViv (v); }
173inline SV *to_sv (unsigned int v) { return newSVuv (v); }
174inline SV *to_sv ( signed long v) { return newSViv (v); }
175inline SV *to_sv (unsigned long v) { return newSVuv (v); }
176inline SV *to_sv (float v) { return newSVnv (v); }
177inline SV *to_sv (double v) { return newSVnv (v); }
178inline SV *to_sv (player * v) { return newSVattachable (v, "cf::player::wrap"); }
179inline SV *to_sv (object * v) { return newSVattachable (v, v && v->type == PLAYER ? "cf::object::player::wrap" : "cf::object::wrap"); }
180inline SV *to_sv (mapstruct * v) { return newSVattachable (v, "cf::map::wrap"); }
181inline SV *to_sv (archetype * v) { return newSVptr (v, "cf::archetype::wrap"); }
182inline SV *to_sv (partylist * v) { return newSVptr (v, "cf::party::wrap"); }
183inline SV *to_sv (region * v) { return newSVptr (v, "cf::region::wrap"); }
184inline SV *to_sv (living * v) { return newSVptr (v, "cf::living::wrap"); }
185
186inline SV *to_sv (object & v) { return to_sv (&v); }
187inline SV *to_sv (living & v) { return to_sv (&v); }
188
189//TODO:
190inline SV *to_sv (New_Face * v) { return to_sv (v->name); }
191inline SV *to_sv (treasurelist * v) { return to_sv (v->name); }
192
193inline void sv_to (SV *sv, shstr &v) { v = SvPV_nolen (sv); }
194inline void sv_to (SV *sv, char * &v) { v = strdup (SvPV_nolen (sv)); } //TODO: verify that all simple pointers are strdup-managed
195inline void sv_to (SV *sv, bool &v) { v = SvIV (sv); }
196inline void sv_to (SV *sv, signed char &v) { v = SvIV (sv); }
197inline void sv_to (SV *sv, unsigned char &v) { v = SvIV (sv); }
198inline void sv_to (SV *sv, signed short &v) { v = SvIV (sv); }
199inline void sv_to (SV *sv, unsigned short &v) { v = SvIV (sv); }
200inline void sv_to (SV *sv, signed int &v) { v = SvIV (sv); }
201inline void sv_to (SV *sv, unsigned int &v) { v = SvUV (sv); }
202inline void sv_to (SV *sv, signed long &v) { v = SvIV (sv); }
203inline void sv_to (SV *sv, unsigned long &v) { v = SvUV (sv); }
204inline void sv_to (SV *sv, float &v) { v = SvNV (sv); }
205inline void sv_to (SV *sv, double &v) { v = SvNV (sv); }
206inline void sv_to (SV *sv, player * &v) { v = (player *)SvPTR_ornull (sv, "cf::player"); }
207inline void sv_to (SV *sv, object * &v) { v = (object *)SvPTR_ornull (sv, "cf::object"); }
208inline void sv_to (SV *sv, archetype * &v) { v = (archetype *)SvPTR_ornull (sv, "cf::archetype"); }
209inline void sv_to (SV *sv, mapstruct * &v) { v = (mapstruct *)SvPTR_ornull (sv, "cf::map"); }
210inline void sv_to (SV *sv, partylist * &v) { v = (partylist *)SvPTR_ornull (sv, "cf::party"); }
211inline void sv_to (SV *sv, region * &v) { v = (region *)SvPTR_ornull (sv, "cf::region"); }
212inline void sv_to (SV *sv, living * &v) { v = (living *)SvPTR_ornull (sv, "cf::living"); }
213
214inline void sv_to (SV *sv, New_Face * &v) { v = &new_faces[FindFace (SvPV_nolen (sv), 0)]; } //TODO
215inline void sv_to (SV *sv, treasurelist * &v) { v = find_treasurelist (SvPV_nolen (sv)); } // TODO
216
217template<int N>
218inline void sv_to (SV *sv, char (&v)[N]) { snprintf (v, N, "%s", SvPV_nolen (sv)); }
219
181static SV * 220static SV *
182newSVdt_va (va_list &ap, data_type type) 221newSVdt_va (va_list &ap, data_type type)
183{ 222{
184 SV *sv; 223 SV *sv;
185 224
… …
211 sv = str ? newSVpv (str, len) : &PL_sv_undef; 250 sv = str ? newSVpv (str, len) : &PL_sv_undef;
212 } 251 }
213 break; 252 break;
214 253
215 case DT_OBJECT: 254 case DT_OBJECT:
216 { 255 sv = to_sv (va_arg (ap, object *));
217 object *obj = va_arg (ap, object *);
218 sv = newSVattachable (obj, obj && obj->type == PLAYER ? "cf::object::player::wrap" : "cf::object::wrap");
219 }
220 break; 256 break;
221 257
222 case DT_MAP: 258 case DT_MAP:
223 // va_arg (object *) when void * is passed is an XSI extension 259 // va_arg (object *) when void * is passed is an XSI extension
224 sv = newSVattachable (va_arg (ap, mapstruct *), "cf::map::wrap"); 260 sv = to_sv (va_arg (ap, mapstruct *));
225 break; 261 break;
226 262
227 case DT_PLAYER: 263 case DT_PLAYER:
228 sv = newSVattachable (va_arg (ap, player *), "cf::player::wrap"); 264 sv = to_sv (va_arg (ap, player *));
229 break; 265 break;
230 266
231 case DT_ARCH: 267 case DT_ARCH:
232 sv = newSVptr (va_arg (ap, archetype *), "cf::arch::wrap"); 268 sv = to_sv (va_arg (ap, archetype *));
233 break; 269 break;
234 270
235 case DT_PARTY: 271 case DT_PARTY:
236 sv = newSVptr (va_arg (ap, partylist *), "cf::party::wrap"); 272 sv = to_sv (va_arg (ap, partylist *));
237 break; 273 break;
238 274
239 case DT_REGION: 275 case DT_REGION:
240 sv = newSVptr (va_arg (ap, region *), "cf::region::wrap"); 276 sv = to_sv (va_arg (ap, region *));
241 break; 277 break;
242 278
243 default: 279 default:
244 assert (("unhandled type in newSVdt_va", 0)); 280 assert (("unhandled type in newSVdt_va", 0));
245 } 281 }
… …
1562 av_push (event, newSViv (eiv->klass)); 1598 av_push (event, newSViv (eiv->klass));
1563 av_store (av, eiv->iv, newRV_noinc ((SV *)event)); 1599 av_store (av, eiv->iv, newRV_noinc ((SV *)event));
1564 newCONSTSUB (stash, (char *)eiv->name, newSViv (eiv->iv)); 1600 newCONSTSUB (stash, (char *)eiv->name, newSViv (eiv->iv));
1565 } 1601 }
1566 1602
1567 static const struct {
1568 int dtype;
1569 const char *name;
1570 IV idx;
1571 } *cprop, prop_table[] = {
1572# define prop(type, name) { type, # name, (IV) CFAPI_ ## name },
1573 prop (CFAPI_INT, MAP_PROP_FLAGS)
1574 prop (CFAPI_INT, MAP_PROP_DIFFICULTY)
1575 prop (CFAPI_STRING, MAP_PROP_PATH)
1576 prop (CFAPI_STRING, MAP_PROP_TMPNAME)
1577 prop (CFAPI_STRING, MAP_PROP_NAME)
1578 prop (CFAPI_INT, MAP_PROP_RESET_TIME)
1579 prop (CFAPI_INT, MAP_PROP_RESET_TIMEOUT)
1580 prop (CFAPI_INT, MAP_PROP_PLAYERS)
1581 prop (CFAPI_INT, MAP_PROP_DARKNESS)
1582 prop (CFAPI_INT, MAP_PROP_WIDTH)
1583 prop (CFAPI_INT, MAP_PROP_HEIGHT)
1584 prop (CFAPI_INT, MAP_PROP_ENTER_X)
1585 prop (CFAPI_INT, MAP_PROP_ENTER_Y)
1586 prop (CFAPI_INT, MAP_PROP_TEMPERATURE)
1587 prop (CFAPI_INT, MAP_PROP_PRESSURE)
1588 prop (CFAPI_INT, MAP_PROP_HUMIDITY)
1589 prop (CFAPI_INT, MAP_PROP_WINDSPEED)
1590 prop (CFAPI_INT, MAP_PROP_WINDDIR)
1591 prop (CFAPI_INT, MAP_PROP_SKY)
1592 prop (CFAPI_INT, MAP_PROP_WPARTX)
1593 prop (CFAPI_INT, MAP_PROP_WPARTY)
1594 prop (CFAPI_STRING, MAP_PROP_MESSAGE)
1595 prop (CFAPI_PREGION, MAP_PROP_REGION)
1596 prop (CFAPI_POBJECT, OBJECT_PROP_NEXT_ACTIVE_OB)
1597 prop (CFAPI_POBJECT, OBJECT_PROP_PREV_ACTIVE_OB)
1598 prop (CFAPI_POBJECT, OBJECT_PROP_INVENTORY)
1599 prop (CFAPI_POBJECT, OBJECT_PROP_ENVIRONMENT)
1600 prop (CFAPI_POBJECT, OBJECT_PROP_CONTAINER)
1601 prop (CFAPI_PMAP, OBJECT_PROP_MAP)
1602 prop (CFAPI_INT, OBJECT_PROP_COUNT)
1603 prop (CFAPI_INT, OBJECT_PROP_REFCOUNT)
1604 prop (CFAPI_STRING, OBJECT_PROP_NAME)
1605 prop (CFAPI_STRING, OBJECT_PROP_NAME_PLURAL)
1606 prop (CFAPI_STRING, OBJECT_PROP_TITLE)
1607 prop (CFAPI_STRING, OBJECT_PROP_RACE)
1608 prop (CFAPI_STRING, OBJECT_PROP_SLAYING)
1609 prop (CFAPI_STRING, OBJECT_PROP_SKILL)
1610 prop (CFAPI_STRING, OBJECT_PROP_MESSAGE)
1611 prop (CFAPI_STRING, OBJECT_PROP_LORE)
1612 prop (CFAPI_INT, OBJECT_PROP_X)
1613 prop (CFAPI_INT, OBJECT_PROP_Y)
1614 prop (CFAPI_DOUBLE, OBJECT_PROP_SPEED)
1615 prop (CFAPI_DOUBLE, OBJECT_PROP_SPEED_LEFT)
1616 prop (CFAPI_INT, OBJECT_PROP_NROF)
1617 prop (CFAPI_INT, OBJECT_PROP_DIRECTION)
1618 prop (CFAPI_INT, OBJECT_PROP_FACING)
1619 prop (CFAPI_INT, OBJECT_PROP_TYPE)
1620 prop (CFAPI_INT, OBJECT_PROP_SUBTYPE)
1621 prop (CFAPI_INT, OBJECT_PROP_CLIENT_TYPE)
1622 prop (CFAPI_INT, OBJECT_PROP_ATTACK_TYPE)
1623 prop (CFAPI_INT, OBJECT_PROP_PATH_ATTUNED)
1624 prop (CFAPI_INT, OBJECT_PROP_PATH_REPELLED)
1625 prop (CFAPI_INT, OBJECT_PROP_PATH_DENIED)
1626 prop (CFAPI_INT, OBJECT_PROP_MATERIAL)
1627 prop (CFAPI_STRING, OBJECT_PROP_MATERIAL_NAME)
1628 prop (CFAPI_INT, OBJECT_PROP_MAGIC)
1629 prop (CFAPI_INT, OBJECT_PROP_VALUE)
1630 prop (CFAPI_INT, OBJECT_PROP_LEVEL)
1631 prop (CFAPI_INT, OBJECT_PROP_LAST_HEAL)
1632 prop (CFAPI_INT, OBJECT_PROP_LAST_SP)
1633 prop (CFAPI_INT, OBJECT_PROP_LAST_GRACE)
1634 prop (CFAPI_INT, OBJECT_PROP_LAST_EAT)
1635 prop (CFAPI_INT, OBJECT_PROP_INVISIBLE_TIME)
1636 prop (CFAPI_INT, OBJECT_PROP_PICK_UP)
1637 prop (CFAPI_INT, OBJECT_PROP_ITEM_POWER)
1638 prop (CFAPI_INT, OBJECT_PROP_GEN_SP_ARMOUR)
1639 prop (CFAPI_INT, OBJECT_PROP_WEIGHT)
1640 prop (CFAPI_INT, OBJECT_PROP_WEIGHT_LIMIT)
1641 prop (CFAPI_INT, OBJECT_PROP_CARRYING)
1642 prop (CFAPI_INT, OBJECT_PROP_GLOW_RADIUS)
1643 prop (CFAPI_LONG, OBJECT_PROP_PERM_EXP)
1644 prop (CFAPI_POBJECT, OBJECT_PROP_CURRENT_WEAPON)
1645 prop (CFAPI_POBJECT, OBJECT_PROP_ENEMY)
1646 prop (CFAPI_POBJECT, OBJECT_PROP_ATTACKED_BY)
1647 prop (CFAPI_INT, OBJECT_PROP_RUN_AWAY)
1648 prop (CFAPI_POBJECT, OBJECT_PROP_CHOSEN_SKILL)
1649 prop (CFAPI_INT, OBJECT_PROP_HIDDEN)
1650 prop (CFAPI_INT, OBJECT_PROP_MOVE_STATUS)
1651 prop (CFAPI_INT, OBJECT_PROP_MOVE_TYPE)
1652 prop (CFAPI_POBJECT, OBJECT_PROP_SPELL_ITEM)
1653 prop (CFAPI_DOUBLE, OBJECT_PROP_EXP_MULTIPLIER)
1654 prop (CFAPI_PARCH, OBJECT_PROP_ARCHETYPE)
1655 prop (CFAPI_PARCH, OBJECT_PROP_OTHER_ARCH)
1656 prop (CFAPI_STRING, OBJECT_PROP_CUSTOM_NAME)
1657 prop (CFAPI_INT, OBJECT_PROP_ANIM_SPEED)
1658 prop (CFAPI_INT, OBJECT_PROP_FRIENDLY)
1659 prop (CFAPI_STRING, OBJECT_PROP_SHORT_NAME)
1660 prop (CFAPI_INT, OBJECT_PROP_MAGICAL)
1661 prop (CFAPI_INT, OBJECT_PROP_LUCK)
1662 prop (CFAPI_POBJECT, OBJECT_PROP_OWNER)
1663 prop (CFAPI_POBJECT, OBJECT_PROP_PRESENT)
1664 prop (CFAPI_INT, OBJECT_PROP_CHEATER)
1665 prop (CFAPI_INT, OBJECT_PROP_MERGEABLE)
1666 prop (CFAPI_INT, OBJECT_PROP_PICKABLE)
1667 prop (CFAPI_INT, OBJECT_PROP_STR)
1668 prop (CFAPI_INT, OBJECT_PROP_DEX)
1669 prop (CFAPI_INT, OBJECT_PROP_CON)
1670 prop (CFAPI_INT, OBJECT_PROP_WIS)
1671 prop (CFAPI_INT, OBJECT_PROP_INT)
1672 prop (CFAPI_INT, OBJECT_PROP_POW)
1673 prop (CFAPI_INT, OBJECT_PROP_CHA)
1674 prop (CFAPI_INT, OBJECT_PROP_WC)
1675 prop (CFAPI_INT, OBJECT_PROP_AC)
1676 prop (CFAPI_INT, OBJECT_PROP_HP)
1677 prop (CFAPI_INT, OBJECT_PROP_SP)
1678 prop (CFAPI_INT, OBJECT_PROP_GP)
1679 prop (CFAPI_INT, OBJECT_PROP_FP)
1680 prop (CFAPI_INT, OBJECT_PROP_MAXHP)
1681 prop (CFAPI_INT, OBJECT_PROP_MAXSP)
1682 prop (CFAPI_INT, OBJECT_PROP_MAXGP)
1683 prop (CFAPI_INT, OBJECT_PROP_DAM)
1684 prop (CFAPI_STRING, OBJECT_PROP_GOD)
1685 prop (CFAPI_STRING, OBJECT_PROP_ARCH_NAME)
1686 prop (CFAPI_INT, OBJECT_PROP_INVISIBLE)
1687 prop (CFAPI_INT, OBJECT_PROP_FACE)
1688 };
1689
1690 HV *prop_type = get_hv ("cf::PROP_TYPE", 1);
1691 HV *prop_idx = get_hv ("cf::PROP_IDX", 1);
1692
1693 for (cprop = prop_table + sizeof (prop_table) / sizeof (prop_table [0]); cprop-- > prop_table; )
1694 {
1695 hv_store (prop_type, cprop->name, strlen (cprop->name), newSViv (cprop->dtype), 0);
1696 hv_store (prop_idx, cprop->name, strlen (cprop->name), newSViv (cprop->idx ), 0);
1697 }
1698
1699 //I_EVENT_API (PACKAGE); 1603 //I_EVENT_API (PACKAGE);
1700} 1604}
1701 1605
1702void _reload_1 () 1606void _reload_1 ()
1703 CODE: 1607 CODE:
… …
1851 CODE: 1755 CODE:
1852 RETVAL = registry_of (op); 1756 RETVAL = registry_of (op);
1853 OUTPUT: 1757 OUTPUT:
1854 RETVAL 1758 RETVAL
1855 1759
1856object *head (object *op) 1760INCLUDE: $PERL genacc object ../include/object.h |
1857 PROTOTYPE: $
1858 ALIAS:
1859 more = 1
1860 above = 2
1861 below = 3
1862 CODE:
1863 switch (ix)
1864 {
1865 case 0: RETVAL = op->head ? op->head : op; break; // DOH!
1866 case 1: RETVAL = op->more; break;
1867 case 2: RETVAL = op->above; break;
1868 case 3: RETVAL = op->below; break;
1869 }
1870 OUTPUT:
1871 RETVAL
1872
1873SV *
1874get_property (object *obj, int type, int idx)
1875 CODE:
1876 RETVAL = newSVcfapi (type, cf_object_get_property (obj, idx));
1877 OUTPUT: RETVAL
1878
1879SV *
1880set_property (object *obj, int type, int idx, SV *newval)
1881 CODE:
1882 switch (type)
1883 {
1884 case CFAPI_INT:
1885 cf_object_set_int_property (obj, idx, SvIV (newval));
1886 break;
1887 case CFAPI_LONG:
1888 cf_object_set_long_property (obj, idx, (long) SvVAL64 (newval));
1889 break;
1890 case CFAPI_DOUBLE:
1891 {
1892 int unused_type;
1893 object_set_property (&unused_type, obj, idx, (double)SvNV (newval));
1894 }
1895 break;
1896 case CFAPI_STRING:
1897 cf_object_set_string_property (obj, idx, SvOK (newval) ? SvPV_nolen (newval) : 0);
1898 break;
1899 case CFAPI_POBJECT:
1900 {
1901 int unused_type;
1902 object_set_property (&unused_type, obj, idx, (object *)SvPTR_ornull (newval, "cf::object"));
1903 }
1904 break;
1905 default:
1906 croak ("unhandled type '%d' in set_property '%d'", type, idx);
1907 }
1908 1761
1909# missing properties 1762# missing properties
1910 1763
1911void 1764void
1912set_attacktype (object *obj, U32 attacktype) 1765set_attacktype (object *obj, U32 attacktype)
… …
1919 attacktype = 0 1772 attacktype = 0
1920 CODE: 1773 CODE:
1921 RETVAL = obj->attacktype; 1774 RETVAL = obj->attacktype;
1922 OUTPUT: RETVAL 1775 OUTPUT: RETVAL
1923 1776
1924# missing in plug-in api, of course 1777int flag (object *op, int flag, int value = 1)
1925void 1778 PROTOTYPE: $$;$
1926set_food (object *obj, int food)
1927 CODE: 1779 CODE:
1928 obj->stats.food = food; 1780 RETVAL = QUERY_FLAG (op, flag);
1929 1781 if (items >= 3)
1930int 1782 if (value)
1931get_food (object *obj) 1783 SET_FLAG (op, flag);
1932 ALIAS: 1784 else
1933 food = 0 1785 CLEAR_FLAG (op, flag);
1934 CODE:
1935 RETVAL = obj->stats.food;
1936 OUTPUT: RETVAL 1786 OUTPUT: RETVAL
1937 1787
1938void 1788void
1939inv (object *obj) 1789inv (object *obj)
1940 PROTOTYPE: $ 1790 PROTOTYPE: $
1941 PPCODE: 1791 PPCODE:
… …
1946} 1796}
1947 1797
1948int cf_object_get_resistance (object *op, int rtype) 1798int cf_object_get_resistance (object *op, int rtype)
1949 ALIAS: resistance = 0 1799 ALIAS: resistance = 0
1950 1800
1951int cf_object_get_flag (object *op, int flag)
1952 ALIAS: flag = 0
1953
1954void cf_object_set_flag (object *op, int flag, int value)
1955
1956int need_identify (const object *obj); 1801int need_identify (const object *obj);
1957 1802
1958int apply_shop_mat (object *shop_mat, object *op); 1803int apply_shop_mat (object *shop_mat, object *op);
1959 1804
1960int move (object *op, int dir, object *originator = op) 1805int move (object *op, int dir, object *originator = op)
… …
2012void cf_object_drop (object *op, object *author) 1857void cf_object_drop (object *op, object *author)
2013 1858
2014void cf_object_take (object *op, object *author) 1859void cf_object_take (object *op, object *author)
2015 1860
2016object *cf_object_insert_object (object *op, object *container) 1861object *cf_object_insert_object (object *op, object *container)
2017
2018const char *cf_object_get_msg (object *ob)
2019 ALIAS: msg = 0
2020 1862
2021object *cf_object_insert_in_ob (object *ob, object *where) 1863object *cf_object_insert_in_ob (object *ob, object *where)
2022 1864
2023int cf_object_teleport (object *op, mapstruct *map, int x, int y) 1865int cf_object_teleport (object *op, mapstruct *map, int x, int y)
2024 1866
… …
2120base_name (object *ob, int plural) 1962base_name (object *ob, int plural)
2121 CODE: 1963 CODE:
2122 RETVAL = cf_query_base_name (ob, plural); 1964 RETVAL = cf_query_base_name (ob, plural);
2123 OUTPUT: RETVAL 1965 OUTPUT: RETVAL
2124 1966
2125living *
2126stats (object *ob)
2127 CODE:
2128 RETVAL = &ob->stats;
2129 OUTPUT: RETVAL
2130
2131
2132MODULE = cf PACKAGE = cf::object::player PREFIX = cf_player_ 1967MODULE = cf PACKAGE = cf::object::player PREFIX = cf_player_
2133 1968
2134player *player (object *op) 1969player *player (object *op)
2135 CODE: 1970 CODE:
2136 RETVAL = op->contr; 1971 RETVAL = op->contr;
… …
2247 if (new_value >= 0) 2082 if (new_value >= 0)
2248 pl->listening = new_value; 2083 pl->listening = new_value;
2249 OUTPUT: 2084 OUTPUT:
2250 RETVAL 2085 RETVAL
2251 2086
2252void get_savebed (player *pl) 2087void savebed (player *pl, char *map_path = 0, int x = -1, int y = -1)
2088 PROTOTYPE: $;$$$
2253 ALIAS: 2089 ALIAS:
2254 savebed = 0 2090 savebed = 0
2255 PPCODE: 2091 PPCODE:
2092 if (GIMME_V != G_VOID)
2093 {
2256 EXTEND (SP, 3); 2094 EXTEND (SP, 3);
2257 PUSHs (sv_2mortal (newSVpv (pl->savebed_map, 0))); 2095 PUSHs (sv_2mortal (newSVpv (pl->savebed_map, 0)));
2258 PUSHs (sv_2mortal (newSViv (pl->bed_x))); 2096 PUSHs (sv_2mortal (newSViv (pl->bed_x)));
2259 PUSHs (sv_2mortal (newSViv (pl->bed_y))); 2097 PUSHs (sv_2mortal (newSViv (pl->bed_y)));
2260 2098 }
2261void set_savebed (player *pl, char *map_path, int x, int y)
2262 CODE:
2263 strcpy (pl->savebed_map, map_path); 2099 if (map_path) strcpy (pl->savebed_map, map_path);
2264 pl->bed_x = x; 2100 if (x >= 0) pl->bed_x = x;
2265 pl->bed_y = y; 2101 if (y >= 0) pl->bed_y = y;
2266 2102
2267void 2103void
2268list () 2104list ()
2269 PPCODE: 2105 PPCODE:
2270{ 2106{
… …
2302 PROTOTYPE: 2138 PROTOTYPE:
2303 CODE: 2139 CODE:
2304 RETVAL = first_map; 2140 RETVAL = first_map;
2305 OUTPUT: RETVAL 2141 OUTPUT: RETVAL
2306 2142
2307mapstruct *next (mapstruct *map)
2308 PROTOTYPE:
2309 CODE:
2310 RETVAL = map->next;
2311 OUTPUT: RETVAL
2312
2313int invoke (mapstruct *map, int event, ...) 2143int invoke (mapstruct *map, int event, ...)
2314 CODE: 2144 CODE:
2315 if (KLASS_OF (event) != KLASS_MAP) croak ("event class must be MAP"); 2145 if (KLASS_OF (event) != KLASS_MAP) croak ("event class must be MAP");
2316 AV *av = (AV *)sv_2mortal ((SV *)newAV ()); 2146 AV *av = (AV *)sv_2mortal ((SV *)newAV ());
2317 for (int i = 2; i < items; i++) av_push (av, SvREFCNT_inc (ST (i))); 2147 for (int i = 2; i < items; i++) av_push (av, SvREFCNT_inc (ST (i)));
… …
2322 CODE: 2152 CODE:
2323 RETVAL = registry_of (map); 2153 RETVAL = registry_of (map);
2324 OUTPUT: 2154 OUTPUT:
2325 RETVAL 2155 RETVAL
2326 2156
2327SV * 2157INCLUDE: $PERL genacc mapstruct ../include/map.h |
2328get_property (mapstruct *obj, int type, int idx)
2329 CODE:
2330 RETVAL = newSVcfapi (type, cf_map_get_property (obj, idx));
2331 OUTPUT: RETVAL
2332
2333SV *
2334set_property (mapstruct *obj, int type, int idx, SV *newval)
2335 CODE:
2336 switch (type)
2337 {
2338 case CFAPI_INT:
2339 cf_map_set_int_property (obj, idx, SvIV (newval));
2340 break;
2341 default:
2342 croak ("unhandled type '%d' in set_property '%d'", type, idx);
2343 }
2344 2158
2345mapstruct *new (int width, int height) 2159mapstruct *new (int width, int height)
2346 PROTOTYPE: 2160 PROTOTYPE:
2347 CODE: 2161 CODE:
2348{ 2162{
… …
2377 find = 0 2191 find = 0
2378 get_map = 1 2192 get_map = 1
2379 2193
2380mapstruct *has_been_loaded (char *name) 2194mapstruct *has_been_loaded (char *name)
2381 PROTOTYPE: $ 2195 PROTOTYPE: $
2382
2383# whoever "designed" the plug-in api should have wasted
2384# his/her time with staying away from the project - would have
2385# saved others a lot of time, without doubt.
2386void set_path (mapstruct *where, char *path)
2387 CODE:
2388 strcpy (where->path, path);
2389 2196
2390int in_memory (mapstruct *map) 2197int in_memory (mapstruct *map)
2391 CODE: 2198 CODE:
2392 RETVAL = map->in_memory; 2199 RETVAL = map->in_memory;
2393 OUTPUT: 2200 OUTPUT:
… …
2499 PROTOTYPE: 2306 PROTOTYPE:
2500 CODE: 2307 CODE:
2501 RETVAL = first_archetype; 2308 RETVAL = first_archetype;
2502 OUTPUT: RETVAL 2309 OUTPUT: RETVAL
2503 2310
2504archetype *next (archetype *arch) 2311INCLUDE: $PERL genacc archetype ../include/object.h |
2505 CODE:
2506 RETVAL = arch->next;
2507 OUTPUT: RETVAL
2508
2509archetype *head (archetype *arch)
2510 CODE:
2511 RETVAL = arch->head;
2512 OUTPUT: RETVAL
2513
2514archetype *more (archetype *arch)
2515 CODE:
2516 RETVAL = arch->more;
2517 OUTPUT: RETVAL
2518
2519const char *name (archetype *arch)
2520 CODE:
2521 RETVAL = arch->name;
2522 OUTPUT: RETVAL
2523
2524object *clone (archetype *arch)
2525 CODE:
2526 RETVAL = &arch->clone;
2527 OUTPUT: RETVAL
2528 2312
2529MODULE = cf PACKAGE = cf::party 2313MODULE = cf PACKAGE = cf::party
2530 2314
2531partylist *first () 2315partylist *first ()
2532 PROTOTYPE: 2316 PROTOTYPE:
… …
2582 RETVAL = reg->msg; 2366 RETVAL = reg->msg;
2583 OUTPUT: RETVAL 2367 OUTPUT: RETVAL
2584 2368
2585MODULE = cf PACKAGE = cf::living 2369MODULE = cf PACKAGE = cf::living
2586 2370
2587val64 2371INCLUDE: $PERL genacc living ../include/living.h |
2588exp (living *liv, val64 new_val = 0)
2589 PROTOTYPE: $;$
2590 ALIAS:
2591 Str = 1
2592 Dex = 2
2593 Con = 3
2594 Wis = 4
2595 Cha = 5
2596 Int = 6
2597 Pow = 7
2598 wc = 8
2599 ac = 9
2600 hp = 10
2601 maxhp = 11
2602 sp = 12
2603 maxsp = 13
2604 grace = 14
2605 maxgrace = 15
2606 food = 16
2607 dam = 17
2608 luck = 18
2609 CODE:
2610# define LIVING_ACC(acc,idx) case idx: RETVAL = liv->acc; if (items > 1) liv->acc = (sint64)new_val; break
2611 switch (ix)
2612 {
2613 LIVING_ACC (exp , 0);
2614 LIVING_ACC (Str , 1);
2615 LIVING_ACC (Dex , 2);
2616 LIVING_ACC (Con , 3);
2617 LIVING_ACC (Wis , 4);
2618 LIVING_ACC (Cha , 5);
2619 LIVING_ACC (Int , 6);
2620 LIVING_ACC (Pow , 7);
2621 LIVING_ACC (wc , 8);
2622 LIVING_ACC (ac , 9);
2623 LIVING_ACC (hp , 10);
2624 LIVING_ACC (maxhp , 11);
2625 LIVING_ACC (sp , 12);
2626 LIVING_ACC (maxsp , 13);
2627 LIVING_ACC (grace , 14);
2628 LIVING_ACC (maxgrace, 15);
2629 LIVING_ACC (food , 16);
2630 LIVING_ACC (dam , 17);
2631 LIVING_ACC (luck , 18);
2632 }
2633# undef LIVING_ACC
2634 OUTPUT:
2635 RETVAL
2636 2372

Diff Legend

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