… | |
… | |
2093 | OUTPUT: RETVAL |
2093 | OUTPUT: RETVAL |
2094 | |
2094 | |
2095 | |
2095 | |
2096 | MODULE = cf PACKAGE = cf::map PREFIX = cf_map_ |
2096 | MODULE = cf PACKAGE = cf::map PREFIX = cf_map_ |
2097 | |
2097 | |
|
|
2098 | void |
|
|
2099 | trigger (mapstruct *map, long connection, bool state = true) |
|
|
2100 | CODE: |
|
|
2101 | activate_connection (map, connection, state); |
|
|
2102 | |
|
|
2103 | void |
|
|
2104 | get_connection (mapstruct *map, long connection) |
|
|
2105 | PPCODE: |
|
|
2106 | { |
|
|
2107 | oblinkpt *obp = get_connection_links (map, connection); |
|
|
2108 | if (obp) |
|
|
2109 | for (objectlink *ol = obp->link; ol; ol = ol->next) |
|
|
2110 | XPUSHs (sv_2mortal (newSVcfapi (CFAPI_POBJECT, ol->ob))); |
|
|
2111 | } |
|
|
2112 | |
2098 | int invoke (mapstruct *map, int event, ...) |
2113 | int invoke (mapstruct *map, int event, ...) |
2099 | CODE: |
2114 | CODE: |
2100 | if (KLASS_OF (event) != KLASS_MAP) croak ("event class must be MAP"); |
2115 | if (KLASS_OF (event) != KLASS_MAP) croak ("event class must be MAP"); |
2101 | AV *av = (AV *)sv_2mortal ((SV *)newAV ()); |
2116 | AV *av = (AV *)sv_2mortal ((SV *)newAV ()); |
2102 | for (int i = 2; i < items; i++) av_push (av, SvREFCNT_inc (ST (i))); |
2117 | for (int i = 2; i < items; i++) av_push (av, SvREFCNT_inc (ST (i))); |