| … | |
… | |
| 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 ()); |
