… | |
… | |
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 |