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.42 by root, Mon Sep 4 11:08:00 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 }
… …
585 int klen = p - line; 621 int klen = p - line;
586 622
587 if (*p++ != '\n') 623 if (*p++ != '\n')
588 { 624 {
589 // parse value 625 // parse value
590 while (*p <= ' ' && *p != '\n') // skip 0x01 .. 0x20 626 while (*(unsigned char *)p <= ' ' && *p != '\n') // skip 0x01 .. 0x20
591 ++p; 627 ++p;
592 628
593 last_value = p; 629 last_value = p;
594 630
595 while (*p != '\n') 631 while (*p != '\n')
… …
633 669
634void object_thawer::get_ml (keyword kend, shstr &sh) 670void object_thawer::get_ml (keyword kend, shstr &sh)
635{ 671{
636 char kw[128]; 672 char kw[128];
637 673
638 // multi-line strings are delimited by "\nendXXX\n" 674 int klen = keyword_len [kend];
675
639 kw [0] = '\n'; 676 kw [0] = '\n';
640 strcpy (kw + 1, keyword_str [kend]); 677 memcpy (kw + 1, keyword_str [kend], klen);
678 kw [klen + 1] = '\n';
679 kw [klen + 2] = 0;
641 680
642 char *end = strstr (line, kw); 681 // first test for completely empty msg... "endXXX\n"
643 682 if (!strncmp (line, kw + 1, klen + 1))
644 if (!end)
645 { 683 {
646 sh = 0; 684 sh = 0;
685
686 line += klen + 1;
687
647 return; 688 return;
648 } 689 }
690 else
691 {
692 // multi-line strings are delimited by "\nendXXX\n" or "endXXX\n" (NULL)
649 693
694 char *end = strstr (line, kw);
695
696 if (!end)
697 {
698 sh = 0;
699 return;
700 }
701
650 *end = 0; 702 *end = 0;
651 sh = line; 703 sh = line;
652 704
653 line = end + keyword_len [kend] + 1; 705 line = end + keyword_len [kend] + 1;
654 706
655 while (*line++ != '\n') 707 while (*line++ != '\n')
708 ;
656 ; 709 }
657} 710}
658 711
659sint32 object_thawer::get_sint32 () const 712sint32 object_thawer::get_sint32 () const
660{ 713{
661 char *p = last_value; 714 char *p = last_value;
… …
1545 av_push (event, newSViv (eiv->klass)); 1598 av_push (event, newSViv (eiv->klass));
1546 av_store (av, eiv->iv, newRV_noinc ((SV *)event)); 1599 av_store (av, eiv->iv, newRV_noinc ((SV *)event));
1547 newCONSTSUB (stash, (char *)eiv->name, newSViv (eiv->iv)); 1600 newCONSTSUB (stash, (char *)eiv->name, newSViv (eiv->iv));
1548 } 1601 }
1549 1602
1550 static const struct {
1551 int dtype;
1552 const char *name;
1553 IV idx;
1554 } *cprop, prop_table[] = {
1555# define prop(type, name) { type, # name, (IV) CFAPI_ ## name },
1556 prop (CFAPI_INT, MAP_PROP_FLAGS)
1557 prop (CFAPI_INT, MAP_PROP_DIFFICULTY)
1558 prop (CFAPI_STRING, MAP_PROP_PATH)
1559 prop (CFAPI_STRING, MAP_PROP_TMPNAME)
1560 prop (CFAPI_STRING, MAP_PROP_NAME)
1561 prop (CFAPI_INT, MAP_PROP_RESET_TIME)
1562 prop (CFAPI_INT, MAP_PROP_RESET_TIMEOUT)
1563 prop (CFAPI_INT, MAP_PROP_PLAYERS)
1564 prop (CFAPI_INT, MAP_PROP_DARKNESS)
1565 prop (CFAPI_INT, MAP_PROP_WIDTH)
1566 prop (CFAPI_INT, MAP_PROP_HEIGHT)
1567 prop (CFAPI_INT, MAP_PROP_ENTER_X)
1568 prop (CFAPI_INT, MAP_PROP_ENTER_Y)
1569 prop (CFAPI_INT, MAP_PROP_TEMPERATURE)
1570 prop (CFAPI_INT, MAP_PROP_PRESSURE)
1571 prop (CFAPI_INT, MAP_PROP_HUMIDITY)
1572 prop (CFAPI_INT, MAP_PROP_WINDSPEED)
1573 prop (CFAPI_INT, MAP_PROP_WINDDIR)
1574 prop (CFAPI_INT, MAP_PROP_SKY)
1575 prop (CFAPI_INT, MAP_PROP_WPARTX)
1576 prop (CFAPI_INT, MAP_PROP_WPARTY)
1577 prop (CFAPI_STRING, MAP_PROP_MESSAGE)
1578 prop (CFAPI_PREGION, MAP_PROP_REGION)
1579 prop (CFAPI_POBJECT, OBJECT_PROP_NEXT_ACTIVE_OB)
1580 prop (CFAPI_POBJECT, OBJECT_PROP_PREV_ACTIVE_OB)
1581 prop (CFAPI_POBJECT, OBJECT_PROP_INVENTORY)
1582 prop (CFAPI_POBJECT, OBJECT_PROP_ENVIRONMENT)
1583 prop (CFAPI_POBJECT, OBJECT_PROP_CONTAINER)
1584 prop (CFAPI_PMAP, OBJECT_PROP_MAP)
1585 prop (CFAPI_INT, OBJECT_PROP_COUNT)
1586 prop (CFAPI_INT, OBJECT_PROP_REFCOUNT)
1587 prop (CFAPI_STRING, OBJECT_PROP_NAME)
1588 prop (CFAPI_STRING, OBJECT_PROP_NAME_PLURAL)
1589 prop (CFAPI_STRING, OBJECT_PROP_TITLE)
1590 prop (CFAPI_STRING, OBJECT_PROP_RACE)
1591 prop (CFAPI_STRING, OBJECT_PROP_SLAYING)
1592 prop (CFAPI_STRING, OBJECT_PROP_SKILL)
1593 prop (CFAPI_STRING, OBJECT_PROP_MESSAGE)
1594 prop (CFAPI_STRING, OBJECT_PROP_LORE)
1595 prop (CFAPI_INT, OBJECT_PROP_X)
1596 prop (CFAPI_INT, OBJECT_PROP_Y)
1597 prop (CFAPI_DOUBLE, OBJECT_PROP_SPEED)
1598 prop (CFAPI_DOUBLE, OBJECT_PROP_SPEED_LEFT)
1599 prop (CFAPI_INT, OBJECT_PROP_NROF)
1600 prop (CFAPI_INT, OBJECT_PROP_DIRECTION)
1601 prop (CFAPI_INT, OBJECT_PROP_FACING)
1602 prop (CFAPI_INT, OBJECT_PROP_TYPE)
1603 prop (CFAPI_INT, OBJECT_PROP_SUBTYPE)
1604 prop (CFAPI_INT, OBJECT_PROP_CLIENT_TYPE)
1605 prop (CFAPI_INT, OBJECT_PROP_ATTACK_TYPE)
1606 prop (CFAPI_INT, OBJECT_PROP_PATH_ATTUNED)
1607 prop (CFAPI_INT, OBJECT_PROP_PATH_REPELLED)
1608 prop (CFAPI_INT, OBJECT_PROP_PATH_DENIED)
1609 prop (CFAPI_INT, OBJECT_PROP_MATERIAL)
1610 prop (CFAPI_STRING, OBJECT_PROP_MATERIAL_NAME)
1611 prop (CFAPI_INT, OBJECT_PROP_MAGIC)
1612 prop (CFAPI_INT, OBJECT_PROP_VALUE)
1613 prop (CFAPI_INT, OBJECT_PROP_LEVEL)
1614 prop (CFAPI_INT, OBJECT_PROP_LAST_HEAL)
1615 prop (CFAPI_INT, OBJECT_PROP_LAST_SP)
1616 prop (CFAPI_INT, OBJECT_PROP_LAST_GRACE)
1617 prop (CFAPI_INT, OBJECT_PROP_LAST_EAT)
1618 prop (CFAPI_INT, OBJECT_PROP_INVISIBLE_TIME)
1619 prop (CFAPI_INT, OBJECT_PROP_PICK_UP)
1620 prop (CFAPI_INT, OBJECT_PROP_ITEM_POWER)
1621 prop (CFAPI_INT, OBJECT_PROP_GEN_SP_ARMOUR)
1622 prop (CFAPI_INT, OBJECT_PROP_WEIGHT)
1623 prop (CFAPI_INT, OBJECT_PROP_WEIGHT_LIMIT)
1624 prop (CFAPI_INT, OBJECT_PROP_CARRYING)
1625 prop (CFAPI_INT, OBJECT_PROP_GLOW_RADIUS)
1626 prop (CFAPI_LONG, OBJECT_PROP_PERM_EXP)
1627 prop (CFAPI_POBJECT, OBJECT_PROP_CURRENT_WEAPON)
1628 prop (CFAPI_POBJECT, OBJECT_PROP_ENEMY)
1629 prop (CFAPI_POBJECT, OBJECT_PROP_ATTACKED_BY)
1630 prop (CFAPI_INT, OBJECT_PROP_RUN_AWAY)
1631 prop (CFAPI_POBJECT, OBJECT_PROP_CHOSEN_SKILL)
1632 prop (CFAPI_INT, OBJECT_PROP_HIDDEN)
1633 prop (CFAPI_INT, OBJECT_PROP_MOVE_STATUS)
1634 prop (CFAPI_INT, OBJECT_PROP_MOVE_TYPE)
1635 prop (CFAPI_POBJECT, OBJECT_PROP_SPELL_ITEM)
1636 prop (CFAPI_DOUBLE, OBJECT_PROP_EXP_MULTIPLIER)
1637 prop (CFAPI_PARCH, OBJECT_PROP_ARCHETYPE)
1638 prop (CFAPI_PARCH, OBJECT_PROP_OTHER_ARCH)
1639 prop (CFAPI_STRING, OBJECT_PROP_CUSTOM_NAME)
1640 prop (CFAPI_INT, OBJECT_PROP_ANIM_SPEED)
1641 prop (CFAPI_INT, OBJECT_PROP_FRIENDLY)
1642 prop (CFAPI_STRING, OBJECT_PROP_SHORT_NAME)
1643 prop (CFAPI_INT, OBJECT_PROP_MAGICAL)
1644 prop (CFAPI_INT, OBJECT_PROP_LUCK)
1645 prop (CFAPI_POBJECT, OBJECT_PROP_OWNER)
1646 prop (CFAPI_POBJECT, OBJECT_PROP_PRESENT)
1647 prop (CFAPI_INT, OBJECT_PROP_CHEATER)
1648 prop (CFAPI_INT, OBJECT_PROP_MERGEABLE)
1649 prop (CFAPI_INT, OBJECT_PROP_PICKABLE)
1650 prop (CFAPI_INT, OBJECT_PROP_STR)
1651 prop (CFAPI_INT, OBJECT_PROP_DEX)
1652 prop (CFAPI_INT, OBJECT_PROP_CON)
1653 prop (CFAPI_INT, OBJECT_PROP_WIS)
1654 prop (CFAPI_INT, OBJECT_PROP_INT)
1655 prop (CFAPI_INT, OBJECT_PROP_POW)
1656 prop (CFAPI_INT, OBJECT_PROP_CHA)
1657 prop (CFAPI_INT, OBJECT_PROP_WC)
1658 prop (CFAPI_INT, OBJECT_PROP_AC)
1659 prop (CFAPI_INT, OBJECT_PROP_HP)
1660 prop (CFAPI_INT, OBJECT_PROP_SP)
1661 prop (CFAPI_INT, OBJECT_PROP_GP)
1662 prop (CFAPI_INT, OBJECT_PROP_FP)
1663 prop (CFAPI_INT, OBJECT_PROP_MAXHP)
1664 prop (CFAPI_INT, OBJECT_PROP_MAXSP)
1665 prop (CFAPI_INT, OBJECT_PROP_MAXGP)
1666 prop (CFAPI_INT, OBJECT_PROP_DAM)
1667 prop (CFAPI_STRING, OBJECT_PROP_GOD)
1668 prop (CFAPI_STRING, OBJECT_PROP_ARCH_NAME)
1669 prop (CFAPI_INT, OBJECT_PROP_INVISIBLE)
1670 prop (CFAPI_INT, OBJECT_PROP_FACE)
1671 };
1672
1673 HV *prop_type = get_hv ("cf::PROP_TYPE", 1);
1674 HV *prop_idx = get_hv ("cf::PROP_IDX", 1);
1675
1676 for (cprop = prop_table + sizeof (prop_table) / sizeof (prop_table [0]); cprop-- > prop_table; )
1677 {
1678 hv_store (prop_type, cprop->name, strlen (cprop->name), newSViv (cprop->dtype), 0);
1679 hv_store (prop_idx, cprop->name, strlen (cprop->name), newSViv (cprop->idx ), 0);
1680 }
1681
1682 //I_EVENT_API (PACKAGE); 1603 //I_EVENT_API (PACKAGE);
1683} 1604}
1684 1605
1685void _reload_1 () 1606void _reload_1 ()
1686 CODE: 1607 CODE:
… …
1834 CODE: 1755 CODE:
1835 RETVAL = registry_of (op); 1756 RETVAL = registry_of (op);
1836 OUTPUT: 1757 OUTPUT:
1837 RETVAL 1758 RETVAL
1838 1759
1839object *head (object *op) 1760INCLUDE: $PERL genacc object ../include/object.h |
1840 PROTOTYPE: $
1841 ALIAS:
1842 more = 1
1843 above = 2
1844 below = 3
1845 CODE:
1846 switch (ix)
1847 {
1848 case 0: RETVAL = op->head ? op->head : op; break; // DOH!
1849 case 1: RETVAL = op->more; break;
1850 case 2: RETVAL = op->above; break;
1851 case 3: RETVAL = op->below; break;
1852 }
1853 OUTPUT:
1854 RETVAL
1855
1856SV *
1857get_property (object *obj, int type, int idx)
1858 CODE:
1859 RETVAL = newSVcfapi (type, cf_object_get_property (obj, idx));
1860 OUTPUT: RETVAL
1861
1862SV *
1863set_property (object *obj, int type, int idx, SV *newval)
1864 CODE:
1865 switch (type)
1866 {
1867 case CFAPI_INT:
1868 cf_object_set_int_property (obj, idx, SvIV (newval));
1869 break;
1870 case CFAPI_LONG:
1871 cf_object_set_long_property (obj, idx, (long) SvVAL64 (newval));
1872 break;
1873 case CFAPI_DOUBLE:
1874 {
1875 int unused_type;
1876 object_set_property (&unused_type, obj, idx, (double)SvNV (newval));
1877 }
1878 break;
1879 case CFAPI_STRING:
1880 cf_object_set_string_property (obj, idx, SvOK (newval) ? SvPV_nolen (newval) : 0);
1881 break;
1882 case CFAPI_POBJECT:
1883 {
1884 int unused_type;
1885 object_set_property (&unused_type, obj, idx, (object *)SvPTR_ornull (newval, "cf::object"));
1886 }
1887 break;
1888 default:
1889 croak ("unhandled type '%d' in set_property '%d'", type, idx);
1890 }
1891 1761
1892# missing properties 1762# missing properties
1893 1763
1894void 1764void
1895set_attacktype (object *obj, U32 attacktype) 1765set_attacktype (object *obj, U32 attacktype)
… …
1902 attacktype = 0 1772 attacktype = 0
1903 CODE: 1773 CODE:
1904 RETVAL = obj->attacktype; 1774 RETVAL = obj->attacktype;
1905 OUTPUT: RETVAL 1775 OUTPUT: RETVAL
1906 1776
1907# missing in plug-in api, of course 1777int flag (object *op, int flag, int value = 1)
1908void 1778 PROTOTYPE: $$;$
1909set_food (object *obj, int food)
1910 CODE: 1779 CODE:
1911 obj->stats.food = food; 1780 RETVAL = QUERY_FLAG (op, flag);
1912 1781 if (items >= 3)
1913int 1782 if (value)
1914get_food (object *obj) 1783 SET_FLAG (op, flag);
1915 ALIAS: 1784 else
1916 food = 0 1785 CLEAR_FLAG (op, flag);
1917 CODE:
1918 RETVAL = obj->stats.food;
1919 OUTPUT: RETVAL 1786 OUTPUT: RETVAL
1920 1787
1921void 1788void
1922inv (object *obj) 1789inv (object *obj)
1923 PROTOTYPE: $ 1790 PROTOTYPE: $
1924 PPCODE: 1791 PPCODE:
… …
1929} 1796}
1930 1797
1931int cf_object_get_resistance (object *op, int rtype) 1798int cf_object_get_resistance (object *op, int rtype)
1932 ALIAS: resistance = 0 1799 ALIAS: resistance = 0
1933 1800
1934int cf_object_get_flag (object *op, int flag)
1935 ALIAS: flag = 0
1936
1937void cf_object_set_flag (object *op, int flag, int value)
1938
1939int need_identify (const object *obj); 1801int need_identify (const object *obj);
1940 1802
1941int apply_shop_mat (object *shop_mat, object *op); 1803int apply_shop_mat (object *shop_mat, object *op);
1942 1804
1943int move (object *op, int dir, object *originator = op) 1805int move (object *op, int dir, object *originator = op)
… …
1995void cf_object_drop (object *op, object *author) 1857void cf_object_drop (object *op, object *author)
1996 1858
1997void cf_object_take (object *op, object *author) 1859void cf_object_take (object *op, object *author)
1998 1860
1999object *cf_object_insert_object (object *op, object *container) 1861object *cf_object_insert_object (object *op, object *container)
2000
2001const char *cf_object_get_msg (object *ob)
2002 ALIAS: msg = 0
2003 1862
2004object *cf_object_insert_in_ob (object *ob, object *where) 1863object *cf_object_insert_in_ob (object *ob, object *where)
2005 1864
2006int cf_object_teleport (object *op, mapstruct *map, int x, int y) 1865int cf_object_teleport (object *op, mapstruct *map, int x, int y)
2007 1866
… …
2103base_name (object *ob, int plural) 1962base_name (object *ob, int plural)
2104 CODE: 1963 CODE:
2105 RETVAL = cf_query_base_name (ob, plural); 1964 RETVAL = cf_query_base_name (ob, plural);
2106 OUTPUT: RETVAL 1965 OUTPUT: RETVAL
2107 1966
2108living *
2109stats (object *ob)
2110 CODE:
2111 RETVAL = &ob->stats;
2112 OUTPUT: RETVAL
2113
2114
2115MODULE = cf PACKAGE = cf::object::player PREFIX = cf_player_ 1967MODULE = cf PACKAGE = cf::object::player PREFIX = cf_player_
2116 1968
2117player *player (object *op) 1969player *player (object *op)
2118 CODE: 1970 CODE:
2119 RETVAL = op->contr; 1971 RETVAL = op->contr;
… …
2230 if (new_value >= 0) 2082 if (new_value >= 0)
2231 pl->listening = new_value; 2083 pl->listening = new_value;
2232 OUTPUT: 2084 OUTPUT:
2233 RETVAL 2085 RETVAL
2234 2086
2235void get_savebed (player *pl) 2087void savebed (player *pl, char *map_path = 0, int x = -1, int y = -1)
2088 PROTOTYPE: $;$$$
2236 ALIAS: 2089 ALIAS:
2237 savebed = 0 2090 savebed = 0
2238 PPCODE: 2091 PPCODE:
2092 if (GIMME_V != G_VOID)
2093 {
2239 EXTEND (SP, 3); 2094 EXTEND (SP, 3);
2240 PUSHs (sv_2mortal (newSVpv (pl->savebed_map, 0))); 2095 PUSHs (sv_2mortal (newSVpv (pl->savebed_map, 0)));
2241 PUSHs (sv_2mortal (newSViv (pl->bed_x))); 2096 PUSHs (sv_2mortal (newSViv (pl->bed_x)));
2242 PUSHs (sv_2mortal (newSViv (pl->bed_y))); 2097 PUSHs (sv_2mortal (newSViv (pl->bed_y)));
2243 2098 }
2244void set_savebed (player *pl, char *map_path, int x, int y)
2245 CODE:
2246 strcpy (pl->savebed_map, map_path); 2099 if (map_path) strcpy (pl->savebed_map, map_path);
2247 pl->bed_x = x; 2100 if (x >= 0) pl->bed_x = x;
2248 pl->bed_y = y; 2101 if (y >= 0) pl->bed_y = y;
2249 2102
2250void 2103void
2251list () 2104list ()
2252 PPCODE: 2105 PPCODE:
2253{ 2106{
… …
2285 PROTOTYPE: 2138 PROTOTYPE:
2286 CODE: 2139 CODE:
2287 RETVAL = first_map; 2140 RETVAL = first_map;
2288 OUTPUT: RETVAL 2141 OUTPUT: RETVAL
2289 2142
2290mapstruct *next (mapstruct *map)
2291 PROTOTYPE:
2292 CODE:
2293 RETVAL = map->next;
2294 OUTPUT: RETVAL
2295
2296int invoke (mapstruct *map, int event, ...) 2143int invoke (mapstruct *map, int event, ...)
2297 CODE: 2144 CODE:
2298 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");
2299 AV *av = (AV *)sv_2mortal ((SV *)newAV ()); 2146 AV *av = (AV *)sv_2mortal ((SV *)newAV ());
2300 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)));
… …
2305 CODE: 2152 CODE:
2306 RETVAL = registry_of (map); 2153 RETVAL = registry_of (map);
2307 OUTPUT: 2154 OUTPUT:
2308 RETVAL 2155 RETVAL
2309 2156
2310SV * 2157INCLUDE: $PERL genacc mapstruct ../include/map.h |
2311get_property (mapstruct *obj, int type, int idx)
2312 CODE:
2313 RETVAL = newSVcfapi (type, cf_map_get_property (obj, idx));
2314 OUTPUT: RETVAL
2315
2316SV *
2317set_property (mapstruct *obj, int type, int idx, SV *newval)
2318 CODE:
2319 switch (type)
2320 {
2321 case CFAPI_INT:
2322 cf_map_set_int_property (obj, idx, SvIV (newval));
2323 break;
2324 default:
2325 croak ("unhandled type '%d' in set_property '%d'", type, idx);
2326 }
2327 2158
2328mapstruct *new (int width, int height) 2159mapstruct *new (int width, int height)
2329 PROTOTYPE: 2160 PROTOTYPE:
2330 CODE: 2161 CODE:
2331{ 2162{
… …
2360 find = 0 2191 find = 0
2361 get_map = 1 2192 get_map = 1
2362 2193
2363mapstruct *has_been_loaded (char *name) 2194mapstruct *has_been_loaded (char *name)
2364 PROTOTYPE: $ 2195 PROTOTYPE: $
2365
2366# whoever "designed" the plug-in api should have wasted
2367# his/her time with staying away from the project - would have
2368# saved others a lot of time, without doubt.
2369void set_path (mapstruct *where, char *path)
2370 CODE:
2371 strcpy (where->path, path);
2372 2196
2373int in_memory (mapstruct *map) 2197int in_memory (mapstruct *map)
2374 CODE: 2198 CODE:
2375 RETVAL = map->in_memory; 2199 RETVAL = map->in_memory;
2376 OUTPUT: 2200 OUTPUT:
… …
2482 PROTOTYPE: 2306 PROTOTYPE:
2483 CODE: 2307 CODE:
2484 RETVAL = first_archetype; 2308 RETVAL = first_archetype;
2485 OUTPUT: RETVAL 2309 OUTPUT: RETVAL
2486 2310
2487archetype *next (archetype *arch) 2311INCLUDE: $PERL genacc archetype ../include/object.h |
2488 CODE:
2489 RETVAL = arch->next;
2490 OUTPUT: RETVAL
2491
2492archetype *head (archetype *arch)
2493 CODE:
2494 RETVAL = arch->head;
2495 OUTPUT: RETVAL
2496
2497archetype *more (archetype *arch)
2498 CODE:
2499 RETVAL = arch->more;
2500 OUTPUT: RETVAL
2501
2502const char *name (archetype *arch)
2503 CODE:
2504 RETVAL = arch->name;
2505 OUTPUT: RETVAL
2506
2507object *clone (archetype *arch)
2508 CODE:
2509 RETVAL = &arch->clone;
2510 OUTPUT: RETVAL
2511 2312
2512MODULE = cf PACKAGE = cf::party 2313MODULE = cf PACKAGE = cf::party
2513 2314
2514partylist *first () 2315partylist *first ()
2515 PROTOTYPE: 2316 PROTOTYPE:
… …
2565 RETVAL = reg->msg; 2366 RETVAL = reg->msg;
2566 OUTPUT: RETVAL 2367 OUTPUT: RETVAL
2567 2368
2568MODULE = cf PACKAGE = cf::living 2369MODULE = cf PACKAGE = cf::living
2569 2370
2570val64 2371INCLUDE: $PERL genacc living ../include/living.h |
2571exp (living *liv, val64 new_val = 0)
2572 PROTOTYPE: $;$
2573 ALIAS:
2574 Str = 1
2575 Dex = 2
2576 Con = 3
2577 Wis = 4
2578 Cha = 5
2579 Int = 6
2580 Pow = 7
2581 wc = 8
2582 ac = 9
2583 hp = 10
2584 maxhp = 11
2585 sp = 12
2586 maxsp = 13
2587 grace = 14
2588 maxgrace = 15
2589 food = 16
2590 dam = 17
2591 luck = 18
2592 CODE:
2593# define LIVING_ACC(acc,idx) case idx: RETVAL = liv->acc; if (items > 1) liv->acc = (sint64)new_val; break
2594 switch (ix)
2595 {
2596 LIVING_ACC (exp , 0);
2597 LIVING_ACC (Str , 1);
2598 LIVING_ACC (Dex , 2);
2599 LIVING_ACC (Con , 3);
2600 LIVING_ACC (Wis , 4);
2601 LIVING_ACC (Cha , 5);
2602 LIVING_ACC (Int , 6);
2603 LIVING_ACC (Pow , 7);
2604 LIVING_ACC (wc , 8);
2605 LIVING_ACC (ac , 9);
2606 LIVING_ACC (hp , 10);
2607 LIVING_ACC (maxhp , 11);
2608 LIVING_ACC (sp , 12);
2609 LIVING_ACC (maxsp , 13);
2610 LIVING_ACC (grace , 14);
2611 LIVING_ACC (maxgrace, 15);
2612 LIVING_ACC (food , 16);
2613 LIVING_ACC (dam , 17);
2614 LIVING_ACC (luck , 18);
2615 }
2616# undef LIVING_ACC
2617 OUTPUT:
2618 RETVAL
2619 2372

Diff Legend

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