| … | |
… | |
| 77 | #define RESULT(idx,type) cfperl_result_ ## type (idx) |
77 | #define RESULT(idx,type) cfperl_result_ ## type (idx) |
| 78 | #define RESULT_DOUBLE(idx) RESULT(idx, DOUBLE) |
78 | #define RESULT_DOUBLE(idx) RESULT(idx, DOUBLE) |
| 79 | #define RESULT_INT(idx) RESULT(idx, INT) |
79 | #define RESULT_INT(idx) RESULT(idx, INT) |
| 80 | |
80 | |
| 81 | bool cfperl_invoke (event_type event, ...); |
81 | bool cfperl_invoke (event_type event, ...); |
| 82 | int cfperl_result_DOUBLE (int idx); |
82 | double cfperl_result_DOUBLE (int idx); |
| 83 | int cfperl_result_INT (int idx); |
83 | int cfperl_result_INT (int idx); |
| 84 | |
84 | |
| 85 | struct attachable_base |
85 | struct attachable_base |
| 86 | { |
86 | { |
| 87 | SV *self; |
87 | SV *self; |
| 88 | AV *cb; // CF+ perl self and callback |
88 | AV *cb; // CF+ perl self and callback |
