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.26 by elmex, Tue Aug 29 17:29:28 2006 UTC vs.
Revision 1.27 by root, Tue Aug 29 17:32:19 2006 UTC

… …
1409 prop (CFAPI_INT, MAP_PROP_WPARTX) 1409 prop (CFAPI_INT, MAP_PROP_WPARTX)
1410 prop (CFAPI_INT, MAP_PROP_WPARTY) 1410 prop (CFAPI_INT, MAP_PROP_WPARTY)
1411 prop (CFAPI_STRING, MAP_PROP_MESSAGE) 1411 prop (CFAPI_STRING, MAP_PROP_MESSAGE)
1412 prop (CFAPI_PMAP, MAP_PROP_NEXT) 1412 prop (CFAPI_PMAP, MAP_PROP_NEXT)
1413 prop (CFAPI_PREGION, MAP_PROP_REGION) 1413 prop (CFAPI_PREGION, MAP_PROP_REGION)
1414 prop (CFAPI_POBJECT, OBJECT_PROP_OB_ABOVE)
1415 prop (CFAPI_POBJECT, OBJECT_PROP_OB_BELOW)
1416 prop (CFAPI_POBJECT, OBJECT_PROP_NEXT_ACTIVE_OB) 1414 prop (CFAPI_POBJECT, OBJECT_PROP_NEXT_ACTIVE_OB)
1417 prop (CFAPI_POBJECT, OBJECT_PROP_PREV_ACTIVE_OB) 1415 prop (CFAPI_POBJECT, OBJECT_PROP_PREV_ACTIVE_OB)
1418 prop (CFAPI_POBJECT, OBJECT_PROP_INVENTORY) 1416 prop (CFAPI_POBJECT, OBJECT_PROP_INVENTORY)
1419 prop (CFAPI_POBJECT, OBJECT_PROP_ENVIRONMENT) 1417 prop (CFAPI_POBJECT, OBJECT_PROP_ENVIRONMENT)
1420 prop (CFAPI_POBJECT, OBJECT_PROP_HEAD)
1421 prop (CFAPI_POBJECT, OBJECT_PROP_CONTAINER) 1418 prop (CFAPI_POBJECT, OBJECT_PROP_CONTAINER)
1422 prop (CFAPI_PMAP, OBJECT_PROP_MAP) 1419 prop (CFAPI_PMAP, OBJECT_PROP_MAP)
1423 prop (CFAPI_INT, OBJECT_PROP_COUNT) 1420 prop (CFAPI_INT, OBJECT_PROP_COUNT)
1424 prop (CFAPI_INT, OBJECT_PROP_REFCOUNT) 1421 prop (CFAPI_INT, OBJECT_PROP_REFCOUNT)
1425 prop (CFAPI_STRING, OBJECT_PROP_NAME) 1422 prop (CFAPI_STRING, OBJECT_PROP_NAME)
… …
1649 RETVAL = newSVpv (resist_plus[atnr], 0); 1646 RETVAL = newSVpv (resist_plus[atnr], 0);
1650 else 1647 else
1651 XSRETURN_UNDEF; 1648 XSRETURN_UNDEF;
1652 OUTPUT: RETVAL 1649 OUTPUT: RETVAL
1653 1650
1651int
1652_valid (SV *obj)
1653 CODE:
1654 RETVAL = SvROK (obj) && mg_find (SvRV (obj), PERL_MAGIC_ext);
1655 OUTPUT:
1656 RETVAL
1657
1654MODULE = cf PACKAGE = cf::object PREFIX = cf_object_ 1658MODULE = cf PACKAGE = cf::object PREFIX = cf_object_
1655 1659
1656int invoke (object *op, int event, ...) 1660int invoke (object *op, int event, ...)
1657 CODE: 1661 CODE:
1658 if (KLASS_OF (event) != KLASS_OBJECT) croak ("event class must be OBJECT"); 1662 if (KLASS_OF (event) != KLASS_OBJECT) croak ("event class must be OBJECT");
… …
1663 1667
1664SV *registry (object *op) 1668SV *registry (object *op)
1665 CODE: 1669 CODE:
1666 RETVAL = registry_of (op); 1670 RETVAL = registry_of (op);
1667 OUTPUT: 1671 OUTPUT:
1672 RETVAL
1673
1674object *head (object *op)
1675 PROTOTYPE: $
1676 ALIAS:
1677 more = 1
1678 above = 2
1679 below = 3
1680 CODE:
1681 switch (ix)
1682 {
1683 case 0: RETVAL = op->head ? op->head : op; break; // DOH!
1684 case 1: RETVAL = op->more; break;
1685 case 2: RETVAL = op->above; break;
1686 case 3: RETVAL = op->below; break;
1687 }
1688 OUTPUT:
1668 RETVAL 1689 RETVAL
1669 1690
1670SV * 1691SV *
1671get_property (object *obj, int type, int idx) 1692get_property (object *obj, int type, int idx)
1672 CODE: 1693 CODE:
… …
1752 1773
1753int need_identify (const object *obj); 1774int need_identify (const object *obj);
1754 1775
1755int apply_shop_mat (object *shop_mat, object *op); 1776int apply_shop_mat (object *shop_mat, object *op);
1756 1777
1757void cf_object_move (object *op, int dir, object *originator = op) 1778int move (object *op, int dir, object *originator = op)
1779 CODE:
1780 RETVAL = move_ob (op, dir, originator);
1781 OUTPUT:
1782 RETVAL
1758 1783
1759void cf_object_apply (object *op, object *author, int flags = 0) 1784void cf_object_apply (object *op, object *author, int flags = 0)
1760 1785
1761void cf_object_apply_below (object *op) 1786void cf_object_apply_below (object *op)
1762 1787

Diff Legend

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