… | |
… | |
1765 | #object *mortals (U32 index) |
1765 | #object *mortals (U32 index) |
1766 | # CODE: |
1766 | # CODE: |
1767 | # RETVAL = index < attachable::mortals.size () ? attachable::mortals [index] : 0; |
1767 | # RETVAL = index < attachable::mortals.size () ? attachable::mortals [index] : 0; |
1768 | # OUTPUT: RETVAL |
1768 | # OUTPUT: RETVAL |
1769 | |
1769 | |
1770 | INCLUDE: $PERL genacc attachable ../include/cfperl.h | |
1770 | INCLUDE: $PERL $srcdir/genacc attachable ../include/cfperl.h | |
1771 | |
1771 | |
1772 | MODULE = cf PACKAGE = cf::global |
1772 | MODULE = cf PACKAGE = cf::global |
1773 | |
1773 | |
1774 | int invoke (SV *klass, int event, ...) |
1774 | int invoke (SV *klass, int event, ...) |
1775 | CODE: |
1775 | CODE: |
… | |
… | |
1779 | RETVAL = gbl_ev.invoke ((event_type)event, ARG_AV (av), DT_END); |
1779 | RETVAL = gbl_ev.invoke ((event_type)event, ARG_AV (av), DT_END); |
1780 | OUTPUT: RETVAL |
1780 | OUTPUT: RETVAL |
1781 | |
1781 | |
1782 | MODULE = cf PACKAGE = cf::object PREFIX = cf_object_ |
1782 | MODULE = cf PACKAGE = cf::object PREFIX = cf_object_ |
1783 | |
1783 | |
1784 | INCLUDE: $PERL genacc object ../include/object.h | |
1784 | INCLUDE: $PERL $srcdir/genacc object ../include/object.h | |
1785 | |
1785 | |
1786 | int invoke (object *op, int event, ...) |
1786 | int invoke (object *op, int event, ...) |
1787 | CODE: |
1787 | CODE: |
1788 | if (KLASS_OF (event) != KLASS_OBJECT) croak ("event class must be OBJECT"); |
1788 | if (KLASS_OF (event) != KLASS_OBJECT) croak ("event class must be OBJECT"); |
1789 | AV *av = (AV *)sv_2mortal ((SV *)newAV ()); |
1789 | AV *av = (AV *)sv_2mortal ((SV *)newAV ()); |
… | |
… | |
2074 | int command_banish (object *op, char *params) |
2074 | int command_banish (object *op, char *params) |
2075 | |
2075 | |
2076 | |
2076 | |
2077 | MODULE = cf PACKAGE = cf::player PREFIX = cf_player_ |
2077 | MODULE = cf PACKAGE = cf::player PREFIX = cf_player_ |
2078 | |
2078 | |
2079 | INCLUDE: $PERL genacc player ../include/player.h | |
2079 | INCLUDE: $PERL $srcdir/genacc player ../include/player.h | |
2080 | |
2080 | |
2081 | int invoke (player *pl, int event, ...) |
2081 | int invoke (player *pl, int event, ...) |
2082 | CODE: |
2082 | CODE: |
2083 | if (KLASS_OF (event) != KLASS_PLAYER) croak ("event class must be PLAYER"); |
2083 | if (KLASS_OF (event) != KLASS_PLAYER) croak ("event class must be PLAYER"); |
2084 | AV *av = (AV *)sv_2mortal ((SV *)newAV ()); |
2084 | AV *av = (AV *)sv_2mortal ((SV *)newAV ()); |
… | |
… | |
2159 | RETVAL = map->invoke ((event_type)event, ARG_AV (av), DT_END); |
2159 | RETVAL = map->invoke ((event_type)event, ARG_AV (av), DT_END); |
2160 | OUTPUT: RETVAL |
2160 | OUTPUT: RETVAL |
2161 | |
2161 | |
2162 | SV *registry (maptile *map) |
2162 | SV *registry (maptile *map) |
2163 | |
2163 | |
2164 | INCLUDE: $PERL genacc maptile ../include/map.h | |
2164 | INCLUDE: $PERL $srcdir/genacc maptile ../include/map.h | |
2165 | |
2165 | |
2166 | void |
2166 | void |
2167 | maptile::instantiate () |
2167 | maptile::instantiate () |
2168 | |
2168 | |
2169 | maptile *new () |
2169 | maptile *new () |
… | |
… | |
2442 | PROTOTYPE: |
2442 | PROTOTYPE: |
2443 | CODE: |
2443 | CODE: |
2444 | RETVAL = first_archetype; |
2444 | RETVAL = first_archetype; |
2445 | OUTPUT: RETVAL |
2445 | OUTPUT: RETVAL |
2446 | |
2446 | |
2447 | INCLUDE: $PERL genacc archetype ../include/object.h | |
2447 | INCLUDE: $PERL $srcdir/genacc archetype ../include/object.h | |
2448 | |
2448 | |
2449 | MODULE = cf PACKAGE = cf::party |
2449 | MODULE = cf PACKAGE = cf::party |
2450 | |
2450 | |
2451 | partylist *first () |
2451 | partylist *first () |
2452 | PROTOTYPE: |
2452 | PROTOTYPE: |
2453 | CODE: |
2453 | CODE: |
2454 | RETVAL = get_firstparty (); |
2454 | RETVAL = get_firstparty (); |
2455 | OUTPUT: RETVAL |
2455 | OUTPUT: RETVAL |
2456 | |
2456 | |
2457 | INCLUDE: $PERL genacc partylist ../include/player.h | |
2457 | INCLUDE: $PERL $srcdir/genacc partylist ../include/player.h | |
2458 | |
2458 | |
2459 | MODULE = cf PACKAGE = cf::region |
2459 | MODULE = cf PACKAGE = cf::region |
2460 | |
2460 | |
2461 | void |
2461 | void |
2462 | list () |
2462 | list () |
… | |
… | |
2474 | PROTOTYPE: $ |
2474 | PROTOTYPE: $ |
2475 | CODE: |
2475 | CODE: |
2476 | RETVAL = region::find_fuzzy (name); |
2476 | RETVAL = region::find_fuzzy (name); |
2477 | OUTPUT: RETVAL |
2477 | OUTPUT: RETVAL |
2478 | |
2478 | |
2479 | INCLUDE: $PERL genacc region ../include/map.h | |
2479 | INCLUDE: $PERL $srcdir/genacc region ../include/map.h | |
2480 | |
2480 | |
2481 | MODULE = cf PACKAGE = cf::living |
2481 | MODULE = cf PACKAGE = cf::living |
2482 | |
2482 | |
2483 | INCLUDE: $PERL genacc living ../include/living.h | |
2483 | INCLUDE: $PERL $srcdir/genacc living ../include/living.h | |
2484 | |
2484 | |
2485 | MODULE = cf PACKAGE = cf::settings |
2485 | MODULE = cf PACKAGE = cf::settings |
2486 | |
2486 | |
2487 | INCLUDE: $PERL genacc Settings ../include/global.h | |
2487 | INCLUDE: $PERL $srcdir/genacc Settings ../include/global.h | |
2488 | |
2488 | |
2489 | MODULE = cf PACKAGE = cf::client |
2489 | MODULE = cf PACKAGE = cf::client |
2490 | |
2490 | |
2491 | INCLUDE: $PERL genacc client ../include/client.h | |
2491 | INCLUDE: $PERL $srcdir/genacc client ../include/client.h | |
2492 | |
2492 | |
2493 | int invoke (client *ns, int event, ...) |
2493 | int invoke (client *ns, int event, ...) |
2494 | CODE: |
2494 | CODE: |
2495 | if (KLASS_OF (event) != KLASS_CLIENT) croak ("event class must be CLIENT"); |
2495 | if (KLASS_OF (event) != KLASS_CLIENT) croak ("event class must be CLIENT"); |
2496 | AV *av = (AV *)sv_2mortal ((SV *)newAV ()); |
2496 | AV *av = (AV *)sv_2mortal ((SV *)newAV ()); |